Cuantos ComPortRxChar?

[[egostar]]

Bueno, y porque no usar el Memo para enviar los caracteres, agrega otra variable de tipo Integer de nombre Contador

Código Delphi [-]
var
  Str: String;
begin
  ComPort.ReadStr(Str, Count);
  if length(Str)>= 8 then
    ShowMessage('OK')
  else if Str = #1 then  begin
          case Cuantos of
             1: begin
                  ComPort.WriteStr(#2#2);
                  Cuantos := 2;
             end;
             2: begin //Modo Escribir
                  ComPort.WriteStr(#2#3);
                  //ProcedimientoEscribir
                  Cuantos := 3;
             end;
             3: begin //Modo Borrar
                  //ProcedimientoBorrar
                  showmessage('Chip Borrado.. OK!')
                  Cuantos := 4;
             end;
             4: begin //poner el chip en prog..
                  ComPort.WriteStr(#2#2);
                  Cuantos := 5;
             end;
             5: begin // Comando para escribir el chip(06 04 00 00 10 00)
                  ComPort.WriteStr(#6#4#0#0#16#0);
                  Contador := 1;
             end;
          end;
      end
      else if Str = #2 then begin
           end
           else if Str = #53 then begin
                   if contador <= 4096 then begin
                      ComPort.WriteStr(Memo1.Text[Contador]);
                      Inc(Contador);
                   end;
                end;
end;

A ver como funciona

Salud OS

[JoseFco]

Una preguntita.

Código Delphi [-]
 5: begin // Comando para escribir el chip(06 04 00 00 10 00)
                  ComPort.WriteStr(#6#4#0#0#16#0);
                  Contador := 1; // aqui esta mandando el primer byte?
             end;
          end;
      end
      else if Str = #2 then begin
           end
           else if Str = #53 then begin
                   if contador <= 4096 then begin
                      ComPort.WriteStr(Memo1.Text[Contador]);
                      Inc(Contador);
                   end;
                end;
end;

Esta copilando bien y rueda sin problemas hasta donde manda los 6 bytes de comando.El primer byte del memo no sale al serial port. contador:=1; Esta esperando el primer 53?
El primer 53 entrara despues que el primer byte de data entro al chip.

Un Saludo.

[[egostar]]

Empezado por JoseFco

Una preguntita.

Esta copilando bien y rueda sin problemas hasta donde manda los 6 bytes de comando.El primer byte del memo no sale al serial port. contador:=1; Esta esperando el primer 53?
El primer 53 entrara despues que el primer byte de data entro al chip.

A ver, lo que entendi es que tu estas esperando el #53, entonces lo que necesitas es enviar #53?

Salud OS

[JoseFco]

Empezado por egostar

A ver, lo que entendi es que tu estas esperando el #53, entonces lo que necesitas es enviar #53?

Salud OS

El 53 lo manda el chip despues que recive el primer byte de data ( el primer byte que esta en el memo) entonces es que manda el primer 53.

Código Delphi [-]
   ComPort.WriteStr(#6#4#0#0#16#0);
     // aqui debe mandar el primer byte del memo y entonces espera el 53
                  Contador := 1;

El primer 53 es para mandar el segundo en adelante hasta el final de los 4096 bytes.

Un Saludo.

[[egostar]]

Código Delphi [-]
    ComPort.WriteStr(#6#4#0#0#16#0);
    sleep(100); // Edito, esto es para que haga una pequeña pausa, antes de enviar el primer caracter....
    ComPort.WriteStr(Memo1.Text[1]);
    Contador := 2;

A ver que tal así....

Salud OS

[JoseFco]

Ya esta mandando el primer byte y recibe el primer 53.
Eso quiere decir que si el chip regresa el primer 53 es que esta entendiendo bien la cosa.
Ahora hay dos problemas, uno es que el primer byte es un "01" y esta mandando "20" .cambie el file hex y el primer byte es un "00" y sigue mandando un "20".El segundo problema es que cuando regresa el primer 53 ya no manda mas nada.Se detiene.La rutina contador no manda mas nada.

Un Saludo.
PD: el 20 es espacio en asscii?? jejejejeje creo que aqui hay gato encerrado.

[[egostar]]

Empezado por JoseFco

Ya esta mandando el primer byte y recibe el primer 53.
Eso quiere decir que si el chip regresa el primer 53 es que esta entendiendo bien la cosa.
Ahora hay dos problemas, uno es que el primer byte es un "01" y esta mandando "20" .cambie el file hex y el primer byte es un "00" y sigue mandando un "20".El segundo problema es que cuando regresa el primer 53 ya no manda mas nada.Se detiene.La rutina contador no manda mas nada.

Un Saludo.
PD: el 20 es espacio en asscii?? jejejejeje creo que aqui hay gato encerrado.

Una pregunta Jose, que es lo que tienes en el Memo......

Salud OS