Efectivamente JCarlosas, es del mismo modo, lo que no hace es confirmar la recepcion OK.
Puede que con una rutina de control se pueda realizar, donde el receptor envie una señal de recibido.
Esto es lo que probe:
[delphi]
uses
SysUtils,
windows;
var Puerto,n:integer;
Num, Res:byte;
Cad:string;
Mode:DCB;
begin
Puerto:=FileOpen('COM1',fmOpenReadWrite);//Abre el puerto
Mode.BaudRate := 1200;
Mode.ByteSize := 8;
Mode.Parity := NOPARITY;
Mode.StopBits := ONESTOPBIT;
SetCommState(Puerto, Mode); //Ajusta los parámetros
Num:=253; // Dato a enviar
repeat until FileWrite(Puerto,Num,1)=1;
Sleep(1000); // Espera para enviar el siguiente dato
end.
|