Delphi dicas

Comunicando-se com a porta paralela windwos xp

Primeiro vai até o link abaixo e faça o Download do arquivo "port95nt.exe":



http://www.driverlinx.com/DownLoad/DlPortIO.htm



Em seguida instale o programa em seu diretório padrão.



Agora segue as funções:



{adiciona isso no seu projeto

aí pra ler:

variavel := DlPortReadPortUchar(<endereço porta>)

e pra escrever

DlPortWritePortUchar(<endereço porta>, dado)}



//Imported DLL Routine from DriverLinx PortIO DLL Driver (Francis que mandou).

function DlPortReadPortUchar(Port:longint):byte;stdcall;external 'DLPORTIO.DLL';

procedure DlPortWritePortUchar(Port:longint;Value:byte);stdcall;external 'DLPORTIO.DLL';



//PROCEDIMENTO ONCLICK DO BOTÃO

procedure TForm1.btnEnviarClick(Sender: TObject);

Var

Valor:byte; //VARIAVEL INTEIRA DO TIPO BYTE (0 Á 255)

begin

        Valor:=StrToInt(edEndereco.Text); //CARREGA VALOR DIGITADO NO EDIT NA VARIAVEL

        DlPortWritePortUchar(888, Valor); //Para escrever.



        //DlPortReadPortUchar(888, Valor); {para ler}