Cuantos ComPortRxChar?

[JoseFco]

Esto es lo que esta en el memo:

00 12 00 72 12 00 7E B4 80 04 80 34 80 F6 75 A0
FE 12 00 AF 75 A0 FD 12 00 AF 75 A0 FB 12 00 AF
75 A0 F7 12 00 AF 75 A0 EF 12 00 AF 75 A0 DF 12
00 AF 75 A0 BF 12 00 AF 75 A0 7F 12 00 AF 80 C4
75 A0 7F 12 00 AF 75 A0 BF 12 00 AF 75 A0 DF 12
00 AF 75 A0 EF 12 00 AF 75 A0 F7 12 00 AF 75 A0
FB 12 00 AF 75 A0 FD 12 00 AF 75 A0 FE 12 00 AF
80 92 75 98 52 75 89 20 75 8D F3 D2 8E 22 30 98
FD C2 98 E5 99 22 C2 B5 89 A0 D2 B4 12 00 AF C2
B4 22 D2 B5 89 A0 D2 B4 12 00 AF C2 B4 22 79 01
11 86 79 38 11 86 79 0C 11 86 79 06 11 86 22 7F
00 7E 00 7D 00 0D BD 50 FC 0E BE 50 F6 0F BF 50

y sigue con 00 hasta completar 4096 bytes.

[JoseFco]

Creo que la cosa es mas complicadita todavia.

Por ejemplo si te fijas en el codigo del programita.Yo para que por el serial port me mande un 10 tengo que escribir un #16 .

A mi me recomendaron usar el buffer, para no tener que convertir otra vez el file.creo que eso me lo dijo seoane, en otro hilo.Pero la rutina con el buffer se complico.

Un Saludo.

[JoseFco]

Hola egostar.

Resuelto el problema de que no mandara el file del memo completo:
jajajajajajaja yo solo estaba recibiendo 01 del chip y comparando.
Entonces si yo estoy recibiendo 53 y me pongo a leer 53 estoy perdido por eso se detenia la rutina. cambie y lo puse a esperar 83 Dec = a 53 hex.
Ese era el problema, ahora hay que ver lo de mandar lo que esta en el memo que lo cambia todo.

Un Saludo.

[[egostar]]

Empezado por JoseFco

Hola egostar.

Resuelto el problema de que no mandara el file del memo completo:
jajajajajajaja yo solo estaba recibiendo 01 del chip y comparando.
Entonces si yo estoy recibiendo 53 y me pongo a leer 53 estoy perdido por eso se detenia la rutina. cambie y lo puse a esperar 83 Dec = a 53 hex.
Ese era el problema, ahora hay que ver lo de mandar lo que esta en el memo que lo cambia todo.

Un Saludo.

Pues si, pequeño detalle, checa lo que te puse en el post anterior que es para enviar lo que tienes en el Memo1, espero que funcione como lo soñe,

Salud OS

[JoseFco]

Ok declare lineaMemo y la otra declaracion.Pero me esta pidiendo declarar esta linea.

Código Delphi [-]
    ComPort.WriteStr(strtoint('$'+Copy(Linea,1,2)));

Me dice que no esta declarada Linea ?

[[egostar]]

Ya corregí el post, checalo, debe ser LineaMemo, habia varios detalles

Salud OS

[JoseFco]

Eso esta resuelto.

Ahora me da un error:

Código Delphi [-]
  ComPort.WriteStr(strtoint('$'+Copy(LineaMemo,1,2))));

Incompatible Types: " String " and " Integer" ???

[[egostar]]

Empezado por JoseFco

Eso esta resuelto.

Ahora me da un error:

Código Delphi [-]
  ComPort.WriteStr(strtoint('$'+Copy(LineaMemo,1,2))));

Incompatible Types: " String " and " Integer" ???

Si, eso ya lo habia corregido tambien El ComPort.WriteStr no permite enviar enteros, así que lo cambie a Caracter, copia todo el post de nuevo, ya esta corregido.

Salud OS

[[egostar]]

Vamos a hacer una chapuza

Código Delphi [-]
    5: begin // Comando para escribir el chip(06 04 00 00 10 00)
           ComPort.WriteStr(#6#4#0#0#16#0);
           sleep(100);
           Count := 0; //Agregar esta variable Integer
           LineaMemo := Memo1.Lines[Count]; //Agregar esta variable String (LineaMemo)
           ComPort.WriteStr(Char(strtoint('$'+Copy(LineaMemo,1,2))));
           Delete(LineaMemo,1,3);
           Contador := 2;
     end;
//........
     else if Str = #83 then begin //83 decimal
              sleep(100);
              ComPort.WriteStr(Char(strtoint('$'+Copy(LineaMemo,1,2))));
              Delete(LineaMemo,1,3);
              if LineaMemo = '' then begin
                 LineaMemo := Memo1.Lines[Count+1];
              end;
              Inc(Contador);
           end;

Espero te funcione como espero

Salud OS