hola amigos estoy intentando leer los datos proveniente de un UPS que contiene un puerto serie pero no logro obtener datos uso los componente CportLibr ,me gustaria que me dijieran que parametro debo poner para poder leer los datos e probado con este codigo
Código Delphi
[-]uses
SysUtils,
windows;
var Puerto,n:integer;
Num:byte;
Cad:string;
ModeCB;
begin
Puerto:=FileOpen('COM1',fmOpenRead); Mode.BaudRate := 1200;
Mode.ByteSize := 8;
Mode.Parity := NOPARITY;
Mode.StopBits := ONESTOPBIT;
SetCommState(Puerto, Mode); repeat
repeat until FileRead(Puerto,Num,1)=1;
until Num=13; Cad:='';
for n := 1 to 8 do begin
repeat until FileRead(Puerto,Num,1)=1; Cad:=Cad+chr(Num);
end;
write(Cad); Sleep(1000); end.
y no e conseguido nada