terminal portable PT360

[JoseFco]

Empezado por robertosc

muchisimas gracias por tu ayuda, si ya voy entendiendo, pero entonces en delphi utilizariamos los compontesde tpapropara mandar esos comandos a la terminal? y se enviarian asi? en forma Hexadecimal.

Bueno con ese componente no mandar ni medio bit al serial port.Pero el Maestro egostar esta muy bien documentado con el Apro y te podra dar una manito con eso.
De todas formas tu tienes el Serial Spy y cada vez que pruebes el codigo que estas generando pues estaras mirando lo que sale. La cosa es emular exactamente ese protocolo.Tu estas mirando lo que sale en el software del PC y a donde va la informacion.Entonces esa es la idea, ir haciendo lo mismo que hace el software ese, pero en uno creado por ti en Delphi.
Ya tienes que el PC le manda 12 bytes al portatil y espera 5 bytes de respuesta, compara y entonces envia (la PC) 6 bytes 02 1B 44 42 42 C1 y espera recivir 8 bytes que le envia el portatil 02 1B 44 31 2E 45 58 45 despues de esto existe una pequeña demora y es cuando el portatil manda una cadena de 32 bytes.
.....
y asi hasta el final.(fijate bien y emula exactamente lo que sucede entre la PC y el Portatil.)

Seria bueno poder ver una captura de la pantalla del PC.
¿Ademas que tipo de informacion es la que ese terminal estara enviando?


Un Saludo.

[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