Porta Parallela - Progetti Hardware ["Dentro il Computer" di Giobe®2000]

		Come Funziona Indirizzi Base Area Comunicaz. Bios Registri Livello Hardware Livello BIOS Livello DOS Tecniche d'Interruzione Connettori Cavi Interfaccia Applicazioni Software Applicazioni Hardware Download INDICE
Porta Parallela

Applicazioni Hardware

VISIBILITA PORTE DI I/O 7/8 [185 di 189]
in ambiente Windows2000/NT/XP

Visibilità Porta Parallela - Istruzioni per la corretta Messa a Punto del Sistema

[5 di 6] Suggerimenti per l'utilizzo negli ambienti di programmazione

La Scientific Software Tools, Inc (www.sstnet.com) assicura che il suo DriverLINX™ Port I/O Driver for Win95 and WinNT consente l'accesso diretto alle porte di I/O d'indirizzo compreso tra 0100H e FFFFH ad ogni applicazione a 32 bit, anche con i nuovi sistemi operativi.

NB: Per poter fruire in ambiente VisualBasic e C/C++ della libreria DLPortIO.DLL è necessario disporre delle consuete interfacce, di proprietà e distribuite gratuitamente dalla Scientific Software Tools, Inc nel rispetto delle regole di copyright: "You are free to copy and distribute this product as long as this package is distributed in its entirety and SST's copyright and trademark notices are not removed. Please see the license file for more information."

Per poter fruire della libreria la DLPortIO.DLL in Visual Basic è necessaria l'interfaccia Dlportio.bas (scarica qui) riassunta nella seguente casella di testo:

Public Declare Function DlPortReadPortUchar Lib "dlportio.dll" (ByVal Port As Long) As Byte
Public Declare Function DlPortReadPortUshort Lib "dlportio.dll" (ByVal Port As Long) As Integer
Public Declare Function DlPortReadPortUlong Lib "dlportio.dll" (ByVal Port As Long) As Long

Public Declare Sub DlPortReadPortBufferUchar Lib "dlportio.dll" (ByVal Port As Long, Buffer As Any, ....
Public Declare Sub DlPortReadPortBufferUshort Lib "dlportio.dll" (ByVal Port As Long, Buffer As Any, ...
Public Declare Sub DlPortReadPortBufferUlong Lib "dlportio.dll" (ByVal Port As Long, Buffer As Any,  ...

Public Declare Sub DlPortWritePortUchar Lib "dlportio.dll" (ByVal Port As Long, ByVal Value As Byte)
Public Declare Sub DlPortWritePortUshort Lib "dlportio.dll" (ByVal Port As Long, ByVal Value As Integer)
Public Declare Sub DlPortWritePortUlong Lib "dlportio.dll" (ByVal Port As Long, ByVal Value As Long)

Public Declare Sub DlPortWritePortBufferUchar Lib "dlportio.dll" (ByVal Port As Long, Buffer As Any, ...
Public Declare Sub DlPortWritePortBufferUshort Lib "dlportio.dll" (ByVal Port As Long, Buffer As Any, ..
Public Declare Sub DlPortWritePortBufferUlong Lib "dlportio.dll" (ByVal Port As Long, Buffer As Any, ...

La Scientific Software Tools, Inc mette a disposizione anche il codice sorgente VB (scarica qui) per realizzare l'esempio di applicazione VBPortIO.exe:

Clicca qui per vederlo in esecuzione

Per poter fruire della libreria la DLPortIO.DLL in C/C++ è necessaria l'interfaccia Dlportio.h riassunta nella seguente casella di testo (scorri con la barra laterale); puoi scaricarla qui, insieme alle Import Library DLPortIO.lib, adatta all'ambiente Microsoft C\C++, e DLPortBC.lib, adatta all'ambiente Borland C\C++

#ifndef DLPORTIO_H
  #define DLPORTIO_H

#ifdef __cplusplus
extern "C" {
#endif

#ifndef IN
  #define IN
#endif

#define DLPORT_API _stdcall

UCHAR DLPORT_API
DlPortReadPortUchar(
    IN ULONG Port
    );

USHORT DLPORT_API
DlPortReadPortUshort(
    IN ULONG Port
    );

ULONG DLPORT_API
DlPortReadPortUlong(
    IN ULONG Port
    );

VOID DLPORT_API
DlPortReadPortBufferUchar(
    IN ULONG Port,
    IN PUCHAR Buffer,
    IN ULONG  Count
    );

VOID DLPORT_API
DlPortReadPortBufferUshort(
    IN ULONG Port,
    IN PUSHORT Buffer,
    IN ULONG Count
    );

VOID DLPORT_API
DlPortReadPortBufferUlong(
    IN ULONG Port,
    IN PULONG Buffer,
    IN ULONG Count
    );

VOID DLPORT_API
DlPortWritePortUchar(
    IN ULONG Port,
    IN UCHAR Value
    );

VOID DLPORT_API
DlPortWritePortUshort(
    IN ULONG Port,
    IN USHORT Value
    );

VOID DLPORT_API
DlPortWritePortUlong(
    IN ULONG Port,
    IN ULONG Value
    );

VOID DLPORT_API
DlPortWritePortBufferUchar(
    IN ULONG Port,
    IN PUCHAR Buffer,
    IN ULONG  Count
    );

VOID DLPORT_API
DlPortWritePortBufferUshort(
    IN ULONG Port,
    IN PUSHORT Buffer,
    IN ULONG Count
    );

VOID DLPORT_API
DlPortWritePortBufferUlong(
    IN ULONG Port,
    IN PULONG Buffer,
    IN ULONG Count
    );

#ifdef __cplusplus
}
#endif

#endif // DLPORTIO_H

La Scientific Software Tools, Inc mette a disposizione anche il codice sorgente C/C++ (scarica qui) per realizzare l'esempio di applicazione PortIO.exe:

Clicca qui per vederlo in esecuzione

NB: La Scientific Software Tools, Inc non fornisce alcuna interfaccia per la programmazione in Delphi

Una interessante libreria per l'ambiente Delphi (la Unit ZLPortIO.PAS) è disponibile sul Sito di Alexandr Zloba (http://www.specosoft.com/zlportio.html); con essa le nostre applicazioni PAS possono accedere alle porte, in lettura e scrittura, con ogni versione di Windows.

{ -----------------------------------------------------------------------------}
{ ZLPortIO driver interface unit v1.20                                         }
{ -----------------------------------------------------------------------------}
{ Description:                                                                 }
{   This unit allow your application direct access port input and output under }
{   all versions of Microsoft Windows®                                         }
{ Depends:                                                                     }
{   zlportio.sys ddkint.pas                                                    }
{   You must distribute zlportio.sys with your application                     }
{ Procedures and functions:                                                    }
{   procedure zlioportread( const Port,DataType:dword ):dword;                 }
{   procedure zlioportwrite( const Port,DataType,Data:dword );                 }
{                                                                              }
{  function portreadb( const Port:dword ):byte;                                }
{  function portreadw( const Port:dword ):word;                                }
{  function portreadl( const Port:dword ):dword;                               }
{                                                                              }
{  procedure portwriteb( const Port:Dword;const Data:byte );                   }
{  procedure portwritew( const Port:dword;const Data:word );                   }
{  procedure portwritel( const Port,Data:dword );                              }
{ -----------------------------------------------------------------------------}