Delphi y intelhex

[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.

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[[seoane]]

Venga una modificación :

Código Delphi [-]
for i:= 0 to j - 1 do

El problema viene porque el buffer empieza a numerar los bytes desde cero.

Por cierto hablando sobre programadores http://www.ic-prog.com/ es uno de los mejores que he visto (aunque no he visto demasiados ), y además esta hecho en delphi ... lo malo es que no muestra el código fuente

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[[FGarcia]]

GRRRRRR!!!

Va de nuez!!!

GUI es la abreviatura (acronimo ¿seria lo correcto?) de Graphical User Interfase es decir en castellano: Interface de Usuario Grafica y ¡NO es un lenguaje de programacion!

Todos los programas en Windows independiente del lenguaje son GUI. Delphi te permite hacer GUI que son todas las ventanas y formularios que crea tu aplicación.