Delphi - Enviar infor. a un puerto LPT

Hola:
Quisiera saber como enviar información al puerto en paralelo, para que otro ordenador conectado al mismo cable, y en el mismo puerto, reciba los datos enviado.Los datos serían letras en forma de numeros, p. ejem. a = 97.El codigo fuente me da igual si se usa ASM o no, solo que sea compatible con delphi.
Agradeceria me contestara sia laguien sabe algo.
Un saludo Aitor.

Hola:
Quisiera saber como enviar información al puerto en paralelo, para que otro ordenador conectado al mismo cable, y en el mismo puerto, reciba los datos enviado.Los datos serían letras en forma de numeros, p. ejem. a = 97.El codigo fuente me da igual si se usa ASM o no, solo que sea compatible con delphi.
Agradeceria me contestara sia laguien sabe algo.
Un saludo Aitor.

Este es un viejo código para Delphi 1.0. A partir de Delphi 2 ya no existe el arreglo Port, pero en principio una expresión como

Port[puerto] := octeto;

puede sustituirse por esto:

SendByte(puerto, octeto);

donde SendByte podría ser así:

procedure SendByte(puerto : word; octeto : byte);
asm
mov dx, puerto;
mov al, octeto;
out dx, al;
end;

Y para el caso de lectura:

octeto := Port[puerto];

puede hacerse así:

octeto := ReceiveByte(puerto);

donde ReceiveByte podría ser así:

function ReceiveByte(puerto: word): byte;
asm
mov dx, puerto;
in dx, al;
end;

Espero que te funcione, y recuerda que no me hago responsable por los daños!!!!!

Te sugiero que busques componentes en la red, aunque de por sí, todos los que yo he visto son payware....

Ernesto

he trabajado bastante con el puerto paralelo
si te interesa mi codigo me escribes y te lo mando!
saludos

Estaria muy agradecido si me pudieran enviar ese codigo gracias

Estaria muy agradecido si me pudieran enviar ese codigo gracias