Cuantos ComPortRxChar?

[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

[JoseFco]

Ok ya copilo y rodo sin problemas hasta donde esta la rutina de mandar los bytes al serial. me dio Debugger Exception Notication
raised exception class EconvertError with message "$0" is not a valid integer value.

Como la ves?

[[egostar]]

Empezado por JoseFco

Ok ya copilo y rodo sin problemas hasta donde esta la rutina de mandar los bytes al serial. me dio Debugger Exception Notication
raised exception class EconvertError with message "$0" is not a valid integer value.

Como la ves?

Hola Jose,

Pasame los datos completos del Memo1, tal vez por ahi hay algun problemita, ya es algo tarde y debo salir a casa, mañana lo vemos con calma.

Salud OS

[JoseFco]

Asi esta la cosa:

Código Delphi [-]
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, CPort, StdCtrls, ComCtrls;
type
  TForm1 = class(TForm)
    ComPort: TComPort;
    Button1: TButton;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    ProgressBar1: TProgressBar;
    Button2: TButton;
    Button3: TButton;
    Label1: TLabel;
    OpenDialog1: TOpenDialog;
    Memo1: TMemo;
    Label2: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure ComPortRxChar(Sender: TObject; Count: Integer);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
  Cuantos, CuentaB : Integer;
  Contador  : Integer;
  LineaMemo  :  String;
  Count :   Integer;
implementation
{$R *.dfm}
type
 TBuffer = array[$0000..$FFFF] of Byte;
function Insertar(Str: String; var Buffer: TBuffer): String;
var
  i,j,k: Integer;
begin
  Result:= EmptyStr;
  Str:= Trim(Str);
  if Copy(Str,1,1) = ':' then
    if TryStrToInt('$' + Copy(Str,2,2),i) then
      if Length(Str) = ((2*i) + 11) then
        if TryStrToInt('$' + Copy(Str,4,4),j) then
          if TryStrToInt('$' + Copy(Str,8,2),k) then
            if k = 0 then
            begin
              Str:= Copy(Str,10,2*i);
              for k:= j to (j + i - 1) do
              begin
                Buffer[k]:= StrToInt('$' + Copy(Str,1,2));
                Delete(Str,1,2);
              end;
            end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
if not ComPort.Connected then
ComPort.Open;
comport.WriteStr(#2#0);
end;
procedure TForm1.ComPortRxChar(Sender: TObject; Count: Integer);
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     //poner el chip en prog..
ComPort.WriteStr(#2#2);
   Cuantos := 2;
 end;
   2: begin //comando para borrar.
     ComPort.WriteStr(#2#3);
       Cuantos := 3;
   end;
    3: begin //Modo Borrar
    showmessage('Chip Borrado.. OK!')
 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);
            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;
     end;
     end
         else if Str = #2 then begin
         end
           else if Str = #83 then begin
             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;
     end;
 //Aqui comienza el procedimiento para borrar el chip
procedure TForm1.Button1Click(Sender: TObject);
begin
 if not ComPort.Connected then
  ComPort.Open;
 comport.WriteStr(#4#1#0#1);
   Cuantos := 1;
    end;
 //Aqui comienza el procedimiento para escribir el chip
procedure TForm1.Button2Click(Sender: TObject);
begin
 if not ComPort.Connected then
  ComPort.Open;
 comport.WriteStr(#4#1#0#1);
  Cuantos := 4;
end;
procedure TForm1.Button3Click(Sender: TObject);
  var
  i,j: Integer;
  Str: String;
  Buffer: TBuffer;
begin
 if OpenDialog1.Execute then
Label1.caption:=OpenDialog1.FileName;
  Memo1.Clear;
  with TStringList.Create do
  try
    LoadFromFile(Label1.Caption);
    FillChar(Buffer,Sizeof(Buffer),#0);
    for i:= 0 to Count - 1 do
      Insertar(Strings[i],Buffer);
     j:= StrToInt(Label2.caption);
     Str:= EmptyStr;
       for i:= 0 to j -1 do
      begin
   Str:= Str + #32 + IntToHex(Buffer[i],2);
      if ((i+1) mod 16 = 0) then
    begin
        Memo1.Lines.Add(Str);
        Str:= EmptyStr;
      end;
    end;
     if Str <> EmptyStr then
      Memo1.Lines.Add(Str);
  finally
    Free;
  end;
end;
end.

Despues le seguimos, hoy se adelanto un monton

Esto esta tomando forma.

Un Saludo y un millon de gracias carnal.

[JoseFco]

Alguna idea?

Esta rutina esta trabajando, pero no manda los hex que espero.Solo manda ascii.

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);
            ComPort.WriteStr(Memo1.Text[1]);
           Contador := 2;
     end;
     end;
     end
         else if Str = #2 then begin
         end
           else if Str = #83 then begin
                   if contador <= 4096 then begin
                        
                      ComPort.WriteStr(Memo1.Text[Contador]);
                      Inc(Contador);
     end;

Como puedo convertir ascii en hex?
Alguna idea o alguna acternativa?

Un Saludo.

[[egostar]]

Hola amigo Jose

No entiendo lo que quieres, perdon, con lo que ayer vimos deberias de poder transmitir los caracteres, porque al final es eso lo que estan mandando, quiero decir

por ejemplo

Suponiendo que Copy(LineaMemo,1,2) = FE

FE 12 00 AF 75 A0 FD 12 00 AF 75 A0 FB 12 00 AF

Char(strtoint('$'+FE)); = Char(254) = #254

Necesito que postees lo que tienes en el Memo1, pero completo, porque segun lo que yo estoy haciendo no me manda ningúun error....

Salud OS