terminal portable PT360

[robertosc]

Empezado por JoseFco

¿Ademas que tipo de informacion es la que ese terminal estara enviando?

hola, pues ahora si ya entendi a lo que te referias con emular , le mande los parametros a la terminal asi como me comento [egostar] y por medio del evento OnTriggerAvail si me respondio la terminal exactamente igual

la terminal lo que envia es un un archivo te texto y ya logre que me lo enviará, aunque esta mesclado con otros caracteres que tengo que ver la forma de limpiarla, lo que me envia es esto:

Y1,1.00,1.00\?\Š2,2.00,2.00\?\Š3,3.00,3.00\?\Š4,4.00,4.00\?\Š5,5.00,5.00\?\Š6,6.00,6.00\?\Š7,7.00,7. 00\?\Š8,8.00,8.00\?\Š9,9.00,9.00\?\Š10,GOY1.00,1.00\?\Š11,1.00,1.00\?\Š12,1.00,1.00\?\Š13,1.00,1.00\ ?\ŠDDZGG

que tengo que convertir a esto:

1,1.00,1.00
2,2.00,2.00
3,3.00,3.00
4,4.00,4.00
5,5.00,5.00
6,6.00,6.00
7,7.00,7.00
8,8.00,8.00
9,9.00,9.00
10,1.00,1.00
11,1.00,1.00
12,1.00,1.00
13,1.00,1.00

a lo que veo, esta cadena

\?\Š

si es regular entre cada registro, asi que no habria problema para cambiar de registro, lo que no es regular con dos caracteres que pone 10,GOY1.00,1.00 en determinadas posiciones de la cadena y entre mas grande esta la cadena, las va poniendo mas seguido

pero pues ya estoy mejor que como empece , gracias por su ayuda!

[[egostar]]

Hola

Los caracteres "raros" que ves son caracteres de control,

02 Start of Text
1B Escape
03 End Of Text

Tus cadenas recibidas tienen este formato

02 IB [Cadena de Datos] 03

Y lo que tú deseas es solo la [Cadena de Datos]

Hay varias formas de lograr lo que quieres.

1. Usar un ApdDataPacket configurando las propiedades

• EndCond = [ecString]
• EndString = #3
• StartString = #2#27
• IncludeStrings = False
• StartCond = scString

En el evento OnStringPacket solo debes de mostrar el dato recibido, por ejemplo en un TMemo

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

2. Con la forma como estas recibiendo los datos eliminas el inicio de la cadena (02 y 1B) y reemplazando el (03) por #13

Código Delphi [-]
   Cadena := StringReplace(Cadena, #02#27,'',[rfReplaceAll]);
   Cadena := StringReplace(Cadena, #03,#13,[rfReplaceAll]);
   Memo1.Lines.Add(Cadena);

Trata con cualquiera de las dos opciones y nos comentas.

Salud OS

[robertosc]

ya lo resolvi de la segunda forma que mensionastes , utilizando la funcion StringReplace

Código Delphi [-]
cadena := StringReplace(cadena,'\?\Š',#13#10,[rfReplaceAll]);

gracias nuevamente