El tamaño de un Fichero

[JoseFco]

Hola Amigos.

Existe alguna forma de que Delphi al cargar un file nos permita saber el size del mismo?.El formato de este file es un (intelHex.)


Un Saludo.

[dec]

Hola,

Hum... ¿estamos hablando de averiguar el tamaño de un archivo?

[JoseFco]

Hola dec.

Me temo que es mas complicado que eso.No es en si el tamaño del file, en realidad es el size de los bytes que este file contiene y que son data a programar.
Para explicarme mejor intelhex. este enlace nos deja ver mejor el formato de este tipo de files.En la penultima linea esta la informacion que tendria que manipular.En el primer hex de esta linea esta la cantidad de bytes de data que contiene y en los dos bytes que le siguen esta el address donde esta data comenzara.Si el primer hex de esa linea es 03 entonces sabremos que el address final donde terminara el size del file de programacion es ese address mas dos espacios mas . jajajajajajajaja algo complicado.
La idea del porque quiero saber el size de este tipo de file es para saber de ante mano antes de mandar un file a un chip si este tiene la capacidad de cargarlo, antes de dar la orden de hacerlo.

Un Saludo.

[JoseFco]

Hola Amigos.

Bueno aportando mas informacion:

:080743004349474F4C2D694862

En esa linea de codigo intelhex (la penultima para ser mas especifico) Encontramos que el primer hex es 08 esto nos deja saber que son 8 los hex de data en la misma.Los hex 0743 nos dejan saber que estos 8 hex de data comensaran en el address 0743h donde el primero de ellos estara en esa address y los restantes 7 en adelante.Entonces tendriamos que el address final de ese file seria 074Ah. Teniendo en cuenta que 07FFh son 2 kbytes, entonces podemos decir que este file si cabe dentro de un chip que tengo 2 kbytes de memoria.Ya que 074A < 07FF.
La clave de lo que trato de encontrar estaria entonces como digo en la penultima linea de este tipo de files y para ser mas exactos en sus primeros tres bytes.

Un Saludo.

[ixMike]

Veamos si me sale...

Código Delphi [-]
function IntelHexFileSize(FileName: string): integer;
var
 F: File of byte;
 HexCount, A1, A2: Byte;
 Adress: Word;
begin
AssignFile(FileName, F);
Reset(F);
Read(F, HexCount);
Read(F, A1);
Read(F, A2);
CloseFile(F);
Adress:=HexToInt(IntToHex(A1,2)+IntToHex(A2,2));
Result:=Adress+HexCount;
end;

Necestirás la función HexToInt: Trucomanía

Está hecho así, de cabeza, no sé si funcionará bien... de todas formas, ¿no te vale un FileSize de un archivo de tipo Byte?


Salu2.

[JoseFco]

Hola ixMike.

Gracias por la ayuda que me puedas dar en este hilo.Pondre un file intelhex corto para ver si me puedes ayudar a encontrar una forma de poder contar los bytes de data que en realidad tiene.

[codigo]
:020000000149B4
:0100030032CA
:01000B0032C2
:0100130032BA
:01001B0032B2
:0100230032AA
:1800250075880075890075D00075A800227F000FEFB4FFFB227E007DFC
:14003D00020E1132EE70FA1DED70F6221125B290113A014B63
:00000001FF
[/codigo]

Este file intelhex tiene 9 lineas pero en realidad solo 8 tienen bytes de data a programar en un micro.
Si vemos el primer hex de cada linea despues del semicolon ( : ) y lo pasamos a decimal nos dara los bytes de data en esa linea y asi los podemos sumar con los de la linea dos,tres, etc. En este caso en la primera linea hay solo dos bytes de data a programar ya que es :02 y en la segunda solo uno :01

Mi pregunta se puede hacer una funcion en Delphi que solo cuente en cada linea despues del semicolon el hex que le sigue y sumarlo al siguiente de la siguiente linea ?

Un Saludo.

[ixMike]

Buscando por ahí encontré esto:

http://www.ibrtses.com/delphi/intelhex.html
http://www.programmersheaven.com/dow...0/ZipView.aspx

Igual te ayuda.


Salu2

[JoseFco]

Hola ixMike.

Interesante esos enlaces, el primero lo estoy estudiando porque tendre que hacer uso de esas rutinas.

Un Saludo.