Capturar datos por el puerto serie

[[egostar]]

Empezado por mierda

Me puedes decir que ejmeplo de los que trae deberia mirar para capturar los datos y ponerlos en un memo??

Un saludo. Gracias.

Bueno, ejemplo como tal no creo que haya, pero has esto,

Necesitamos saber que caracter hay al final de la cadena que vas a recibir, yo imagino que debe ser un #13 o un #10 (ENTER) puede que sean los dos. Esto yo lo obtengo creando un archivo desde hiperterminal y después "mirando" los caracteres desde delphi con un "barrido" de los caracteres del archivo.

Código Delphi [-]
while not eof(Archivo) do begin
   Read(Archivo,Caracter);
   Memo1.Lines.Add(IntoStr(Ord(Caracter))+' '+Caracter); //Por ejemplo para el ASCII del caracter recibido
end;

Cuando determines que caracter es el fin de la cadena puedes hacer esto.

Pega en tu forma

1 ApdComPort
1 ApdDataPacket
1 Memo

Configuras los parametros de comunicacion del ApdComPort para que coincidan con tu equipo

Configuras las propiedades del ApdDataPacket

EndCond = [ecString]
EndString = Caracter que tienes, por ejemplo si es un 13, pon #13
StartCond = scAnyData

Luego en el evento OnStringPacket colocas esto

Código Delphi [-]
procedure TForm1.ApdDataPacket1StringPacket(Sender: TObject; Data: String);
begin
  Memo1.Lines.Add(Data);
end;

Intentalo y nos comentas.

Salud OS

PD. Puede ser que tambien tenga un Inicio de paquete o que tenga una longitud definida, vamos por partes, incluso si puedes pegar aqui el archivo que obtengas con hiperterminal podremos avanzar mas rapido.