Como leer los datos de un UPS
 

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;
    Mode:DCB;
begin
  Puerto:=FileOpen('COM1',fmOpenRead);//Abre el puerto
  Mode.BaudRate := 1200;
  Mode.ByteSize := 8;
  Mode.Parity := NOPARITY;
  Mode.StopBits := ONESTOPBIT;
  SetCommState(Puerto, Mode); //Ajusta los parámetros
  // Los datos se repiten y terminan con #13(CR) 
  repeat
   repeat until FileRead(Puerto,Num,1)=1;
  until Num=13; // Final de cadena anterior
  Cad:='';
  for n := 1 to 8 do begin
   repeat until FileRead(Puerto,Num,1)=1;//lee un byte
   Cad:=Cad+chr(Num);
  end;
 write(Cad);//Muestra la lectura
 Sleep(1000); // Espera para poder ver el resultado
end.

y no e conseguido nada

Yo lo primero que haría sería hacer una prueba con el hiperterminal de windows a ver si recibes algo del ups por ese puerto a ver si vas a tener un problema de comunicación. Cuando estés seguro de que el ups envía datos pasa a ver qué pasa con el programa.

Saludos

Intente con el HyperTerminal y no recibo nada no se porque no establece comunicacion ya que con el software que trae si lo hace

Pues por eso te lo decía, si no puedes con el HyperTerminal dificilmente lo vas a hacer con tu software.

entonces eso quiere decir que el ups tiene una especie de bloqueo que solo el software que trajo es capas de decodificarlo o leerlo en ese caso no habria nada que hacer

Pues no sabría decirte. A mi me resulta extraño que no recibas nada de nada. ¿Estás seguro de que estás configurando correctamente el puerto y la velocidad?. De una forma o de otra intenta ponerte en contacto con el fabricante a ver si te pueden decir algo.