Cita:
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); 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.