Delphi y intelhex

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[[seoane]]

Tienes razón, solo hace falta una pequeña corrección:

Código Delphi [-]
var
  i,j: Integer;
  Str: String;
  Buffer: TBuffer;
begin
  Memo1.Clear;
  with TStringList.Create do
  try
    LoadFromFile('d:\test.hex');
    FillChar(Buffer,Sizeof(Buffer),#0);
    for i:= 0 to Count - 1 do
      Insertar(Strings[i],Buffer);
    Str:= EmptyStr;
    j:= Sizeof(Buffer) - 1;
    while (Buffer[j] = 0) and (j > 0) do
      dec(j);
    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; 
    // ---- Solo hay que añadir estas dos lineas ---
    if Str <> EmptyStr then
      Memo1.Lines.Add(Str);
  finally
    Free;
  end;
end;

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[mario2000]

Hola JoseFco, y no era un programador de pics?
aunque el que quieras esta bien pero no hagas como algunos que despues no comparten la informacion, aunque por lo visto te gusta compartir.

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