Delphi y intelhex

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[mario2000]

Gracias JoseFco, eres una gran persona.

Solo queria preguntarte si despues piensas colocar los datos del hex en un stringrid tal como los programadores como winpic800 o icprog?

Tambien ya que quieres utilisar un puerto diferente al paralelo puedes utilizar un adactador que se consigue para convertir de usb a 232 FS232, y en la pagina del chip hay ejemplos de control para delphi podrias utilisarlo.

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[[ArdiIIa]]

Empezado por JoseFco

Hola amigos.

Una consulta: Partiendo de este file que estara en un memo:


Una ayudadita a ver por donde arranco.

Tal vez un hilo que se publicó hace tiempo pueda orientarte en el asunto y con unas pequeñas modificaciones del código que se puso, podrías hallar la respuesta...

[[seoane]]

Creo que lo estas enfocando de una manera equivocada JoseFco, para que quieres andar jugando con los datos en un memo cuando ya tienes todos los bytes guardados en un array.

Analicemos el código:

Código Delphi [-]
var
  i,j: Integer;
  Str: String;
  Buffer: TBuffer;
begin
  if OpenDialog1.Execute then
  begin
    Label1.caption:=OpenDialog1.FileName;
    // Borramos el memo
    Memo1.Clear;
    with TStringList.Create do
    try
      LoadFromFile(Label1.Caption);
      // Llenamos el buffer con ceros, si prefieres rellenar con FF usa #$FF en vez de #0
      FillChar(Buffer,Sizeof(Buffer),#0);
      // Leemos cada un de las lineas del fichero
      for i:= 0 to Count - 1 do
        Insertar(Strings[i],Buffer);
      // Ahora dentro del buffer tenemos todos los bytes
    
{ Este trozo de codigo servia para decidir cuanto bytes mostrar
      j:= Sizeof(Buffer) - 1;
      while (Buffer[j] = 0) and (j > 0) do
        dec(j);
}

// Pero si ya sabes cuantos bytes quieres mostrar
      j:= StrToInt(Label2.caption);

      Str:= EmptyStr;
      for i:= 0 to j 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;

Fíjate que en buffer ya tenemos los bytes tal cual se tienen que mandar al programador, así que cuando hagas la rutina de envío no vayas a coger los datos del memo y convertirlos a bytes, seria hacer el mismo trabajo dos veces.