Delphi y intelhex
 

"Tolomeo se mudo al Polo Norte"

Imagino que para mostrar sólo los datos válidos, tenes que jugar con el retorno de la función ReadLine, es decir:

Código Delphi [-]
while (readline(memo1.line[i],buf)=0) do 
 begin
 end;

"Tolomeo se mudo al Polo Norte"

La función de ReadLine, llena un buffer línea a línea del contenido del HEX, y va traduciendo la lectura según esta conformada la linea. La explicación es sencilla, y se basa en el formato Hex de Intel

Donde deja un ejemplo claro


Y a tomar encuenta el mapeo según el tipo de Eprom

Al encontrarse con un dato no válido, la función retorna el código de error #integer, sino devueve 0=OK.


Saludos

"Tolomeo se mudo al Polo Norte"

Podrias explicarnos a que te refieres con linea valida?, y porque el readln no te sirve, quizas asi muchos podriamos colaborar

"Tolomeo se mudo al Polo Norte"

Ah, osea que tu problema con Delphi, es la falta de domino de Pascal.

Código Delphi [-]
function AprendoDelphi(yo:string):boolean;
begin
  if PracticoMucho(yo) then Result:=True else Result:=False;
end;
 
begin
if AprendoMucho('Pepe')
 then showmessage('Anda la osa!!!')
  else showmessage('Me quiero volver chango!!!');
end.

:D

"Tolomeo se mudo al Polo Norte"

Quieren leer un intel hex file?
 

Pues he aca la solucion: No voy a inventar que yo lo hise por que pa que, estoy estudiando esto pero si uds quieren adelanten para que despues me ayuden, vallan a este link:
http://www.sixca.com/delphi/article/readhex.html
y en la pagina prinsipal mucho mas:
http://www.sixca.com/delphi/index.html

ademas e conseguido el codigo de varios grabadores en delphi tal ves lo suba para que lo estudien.

Solo me falta el del icprog y el del winpic800 para completar la coleccion.
:D

"Tolomeo se mudo al Polo Norte"

"Tolomeo se mudo al Polo Norte"

"Tolomeo se mudo al Polo Norte"

Segun lo poco que entendi tengo unas propuestas, son dos lineas basicamente las puse en rojo para que las identifiques. En la primera devuelvo cero si el resultado es correcto, y en la segunda lo agrego al memo

Código Delphi [-]
unit Unit1;
interface
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,Forms,
 Dialogs, StdCtrls;
 type
 TForm1 = class(TForm)
 Memo1: TMemo;
 Button1: TButton;
 Button2: TButton;
 Label1: TLabel;
 OpenDialog1: TOpenDialog;
 procedure Button1Click(Sender: TObject);
 procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
  type buffer=array of byte;  //assign as Dynamic array
  var HexBuf:buffer;
 function ByteToHex(InByte:byte):shortstring;
const Digits:array[0..15] of char='0123456789ABCDEF';
begin
 result:=digits[InByte shr 4]+digits[InByte and $0F];
end;
  function readline(HexLine:string; var Buf:buffer):integer;
  var ADDR,count:integer;
  CHKSUM,SUMLINE,RECLEN,RECTYPE,DATA:byte; t:shortstring;
  begin
  // Array length may be change, here is 100,000
 SetLength(HexBuf,100000);
 if HexLine[1]=':' then begin
 t:='$'+copy(HexLine,2,2);   // get length
 RECLEN:=strtoint(t);
 CHKSUM:=0;
 CHKSUM:=CHKSUM+RECLEN;
 t:='$'+copy(HexLine,4,4); // get address
 ADDR:=strtoint(t);
 CHKSUM:=CHKSUM+lo(ADDR)+hi(ADDR);
 t:='$'+copy(HexLine,8,2);
 RECTYPE:=strtoint(t);
 CHKSUM:=CHKSUM+RECTYPE;
 case RECTYPE of
 0:begin             // datablock
 count:=0;
 while (count < RECLEN) do begin
 t:='$'+copy(HexLine,10+2*count,2);
 DATA:=strtoint(t);
 CHKSUM:=CHKSUM+DATA;
 Buf[ADDR+count]:=DATA;
 inc(count);
 end;
 t:='$'+copy(HexLine,10+2*count,2);
 SUMLINE:=strtoint(t);
 Result := 0;
 end;
 1:begin   // end of file
 t:='$'+copy(HexLine,10,2);
 SUMLINE:=strtoint(t);
 result:=1;
 end;
 else
 begin
 result := -2;  // invalid record type
 exit;
 end;
 end; //case
 // test checksum
 DATA:=SUMLINE+CHKSUM;
 if (DATA<>0) then result:=-3; // checksum error
 end
 else result:=-1; // no record
 end;
procedure TForm1.Button1Click(Sender: TObject);
var Fname,line:string;
Fp : textfile;
 ErrorCode:integer;
begin
 Fname:='test.hex';
 AssignFile(Fp,Fname); { File selected in dialog }
 Reset(Fp);
 while not eof(Fp) do
   begin
  Readln(Fp,line);{ Read first line of file }
  ErrorCode := readline(line,HexBuf);
   if (ErrorCode=0) then
  begin
   // Do some thing if read one line OK
   // such send data to serial port,parallel port etc.
      Memo1.Lines.Add(ByteToHex(HexBuf));
   end
    else
  begin
  // Error handle here
  //  0 = No error
  // -1 = File not Intel Hex format
  // -2 = Invalid record type
  // -3 = Checksum error
   end;
    end;
   CloseFile(Fp);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
Label1.Caption:=OpenDialog1.FileName;
end;
end;
end.

"Tolomeo se mudo al Polo Norte"

"Tolomeo se mudo al Polo Norte"

es que el asunto radica , segun lo que entendi la linea que necesitas esta en HexBuf que es de tipo Byte, el asunto es convertirlo a string por eso utilize la funcion que agregue al principio

Si lo que quieres es solamente eliminar lo que no son datos de cada linea, podemos usar una función como esta:

Código Delphi [-]
function Strip(Str: String): 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
              Result:= Copy(Str,10,2*i);
end;

Y si queremos cargar todo en un memo:

Código Delphi [-]
var
  i: Integer;
  Str: String;
begin
  with TStringList.Create do
  try
    LoadFromFile('d:\test.hex');
    for i:= 0 to Count - 1 do
    begin
      Str:= Strip(Strings[i]);
      if Str <> EmptyStr then
        Memo1.Lines.Add(Str);
    end;
  finally
    Free;
  end;
end;

Por otro lado lo que podemos querer en realidad es obtener todos los bytes que se van a grabar (incluidos los que no aparecen el archivo que yo supongo como ceros) y además ordenados. Eso ya es un poco, solo un poco, mas complicado ¿es eso lo que quieres? :confused:

"Tolomeo se mudo al Polo Norte"

Bueno, siguiendo con mi respuesta anterior:

Código Delphi [-]
type
  TBuffer = array[$0000..$FFFF] of Byte;

// Insertamos la linea de datos en un buffer
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;


// Aqui leemos el archivo y mostramos la informacion en un memo
var
  i,j: Integer;
  Str: String;
  Buffer: TBuffer;
begin
  Memo1.Clear;
  with TStringList.Create do
  try
    LoadFromFile('d:\test.hex');
    // Llenamos todo el buffer con ceros
    FillChar(Buffer,Sizeof(Buffer),#0);
    // Leemos el archivo linea a linea e insertamos los datos en el buffer
    for i:= 0 to Count - 1 do
      Insertar(Strings[i],Buffer);
    Str:= EmptyStr;
    j:= Sizeof(Buffer) - 1;
    // Buscamos el ultimo dato que no es un cero
    while (Buffer[j] = 0) and (j > 0) do
      dec(j);
    // Mostramos el contenido del buffer en un memo
    for i:= 0 to j do
    begin
      Str:= Str + #32 + IntToHex(Buffer[i],2);
      // 16 bytes por linea
      if ((i+1) mod 16 = 0) then
      begin
        Memo1.Lines.Add(Str);
        Str:= EmptyStr;
      end;
    end;
  finally
    Free;
  end;
end;

Solo quedaría añadir algunas cosillas, como la comprobación de la "suma de comprobación".

"Tolomeo se mudo al Polo Norte"

Memo1 es el nombre de un memo que debes tener colocado en tu formulario

"Tolomeo se mudo al Polo Norte"

Creo que no me explique bien, el código no debe escribirse directamente en la unit, se debe encerrar dentro de algún evento como por ejemplo hacer click sobre un botón:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

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.Button1Click(Sender: TObject);
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;
  finally
    Free;
  end;
end;

end.

"Tolomeo se mudo al Polo Norte"

"Tolomeo se mudo al Polo Norte"

"Tolomeo se mudo al Polo Norte"

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;

"Tolomeo se mudo al Polo Norte"

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

"Tolomeo se mudo al Polo Norte"

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. :rolleyes:

"Tolomeo se mudo al Polo Norte"

"Tolomeo se mudo al Polo Norte"

"Tolomeo se mudo al Polo Norte"

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

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. :)

"Tolomeo se mudo al Polo Norte"

Venga una modificación :D:

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 :p ), y además esta hecho en delphi :D ... lo malo es que no muestra el código fuente :(

"Tolomeo se mudo al Polo Norte"