Capturar un dato de otro ordenador

[DarkByte]

No se si funcionará esto a través del puerto paralelo, pero bueno...

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Interval := 10;
Application.ProcessMessages;
//Enviamos el conterido del Edit al cliente
Try ServerSocket1.Socket.SendText (Edit1.Text)
Except
end;
end;

[José Arce]

Hola DarkByte, gracias por responder

(No se si funcionará esto a través del puerto paralelo, pero bueno...)
disculpa pero no comprendo lo que me quieres decir.

Un saludo
Jose Arce

[DarkByte]

La culpa es mía, está muy mal explicado.

¿Conoces los componentes TServerSocket y TClientSocket?, en las versiones 6 y anteriores existen. El código anterior era el evento OnTimer de un TTimer, y lo que hacía era enviar hacia una dirección ip el contenido del edit.

Supongo que los pc's conectados en el puerto paralelo funcionaran como un a LAN.