El tamaño de un Fichero

[ixMike]

Vale. Entonces, suponiendo que esa última línea :00000001FF no afecta (¿siempre es :00....?) entonces creo que este código te sirve:

Código Delphi [-]
Function IntelHexFinalFileSize(const FileName: String): Integer;
var
 S: TStrings;
 n, FinalSize: Integer;
begin
 FinalSize:=0;
 S:=TStringList.Create;
 S.LoadFromFile(FileName);
 For n:=0 to S.Count-1 do Inc(FinalSize, HexToInt(Copy(S[n],2,2)));
 S.Free;
 Result:=FinalSize;
end;

Lo único que hace es recorrer todas las líneas del fichero, sumando los valores iniciales de cada línea.

¿Fácil, no? ¿Qué es lo que no sabías hacer? ¿Leer el archivo de texto? ¿Obtener los valores de cada línea? ¿Sumar valores hexadecimales?...


Salu2

[JoseFco]

Hola ixMike.

¿Qué es lo que no sabías hacer? ¿Leer el archivo de texto? ¿Obtener los valores de cada línea?

Mas bien que es lo que no se todavia. jajajajajaja en esto de Delphi estoy a gatas todavia.
Con ese codigo tengo material de estudio para un rato.

Un Saludo y un millon de gracias.

[JoseFco]

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;
    Label1: TLabel;
    OpenDialog1: TOpenDialog;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
 function HextoInt(HexStr: String):integer;
const Hex : array['A'..'F'] of integer = (10,11,12,13,14,15);
var
    i   : integer;
begin
  Result:=0;
  for i := 1 to Length(HexStr) do
    if HexStr[i] < 'A' then Result := Result * 16 + Ord(HexStr[i]) - 48
                       else Result := Result * 16 + Hex[HexStr[i]];
end;
Function IntelHexFinalFileSize(const FileName: String): Integer;
var
 S: TStrings;
 n, FinalSize: Integer;
begin
 FinalSize:=0;
 S:=TStringList.Create;
 S.LoadFromFile(FileName);
 For n:=0 to S.Count-1 do Inc(FinalSize, HexToInt(Copy(S[n],2,2)));
 S.Free;
 Result:=FinalSize;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
  begin
  Label1.Caption:=OpenDialog1.FileName;
  Memo1.Lines.LoadFromFile(Label1.Caption);
  Label2.Caption:=IntToStr(IntelHexFinalFileSize(Label1.Caption));
end;
end;
end.

Gracias al amigo ixMike asunto resuelto.

[[Caral]]

Hola
He seguido el hilo y solo puedo decir, muy interesante aunque no se para que sirve.
Saludos

[JoseFco]

Hola Caral.

La idea es poder contar los bytes de programa (bytes que nadara a un micro) que contiene un file intelhex determinado.Ya que este es el tipo de file que se usa para programar un micro usando una PC.El file en si es mucho mas grande de los bytes que al final estaran dentro del chip.En este tipo de formato estan algunas instrucines y las address a donde estaran apuntando estos bytes de data.La importancia de saber cual es el tamaño real que iria a parar dentro del chip , es para determinar si el chip tiene memoria para el tamaño del file.
Por ejemplo el AT89C2051 solo tiene 2 kbytes de memoria y solo se podran mandar files que contengan 2 kbytes o menos.
Ahora yo con esa informacion comparo la memoria del chip que usare y el tamaño del file si esta dentro de los parametros todo continua normal de ser mayor entonces un Showmessage(' File es mas grande que la memoria');
algo asi.

Espero que ya este mas claro.

Un Saludo.

[[Caral]]

Hola
Gracias por la explicación, trato de leer los hilos en los que participas ya que se que van relacionados con los chips y esas cosas.
Me pregunto?.
Como haces para leer el chip, lo pones en una usb, en otro ordenador?, no me queda claro.
No te preocupes en explicarme mucho, ya se que no le llegare, es solo curiosidad.
Saludos

[JoseFco]

Empezado por Caral

Hola
Gracias por la explicación, trato de leer los hilos en los que participas ya que se que van relacionados con los chips y esas cosas.
Me pregunto?.
Como haces para leer el chip, lo pones en una usb, en otro ordenador?, no me queda claro.
No te preocupes en explicarme mucho, ya se que no le llegare, es solo curiosidad.
Saludos

Hay muchas formas de programarlos y leerlos.Tengo algunos programadores para ellos y este es el ultimo que me regale por navidad. Programador
Trabaja por USB y es lo mas completo que encontre en muchos años en la web.
Es como dice el amigo eduarcol nada dificil, es cosa de comenzar un poco hoy y otro mañana.

Un Saludo.

[[eduarcol]]

un gusto en saludarte amigo Jose, pero has perdido tu tiempo explicando eso a Caral, el ya lo sabia, solo pregunto para aumentar un post y ver si desvirtuaba el hilo , mira que por eso tiene mas de 3K en su cuenta

[[Caral]]

Hola
Mira que eres camorrero.
No me hagas quedar mal, sabes que de esto no se nada y la verdad es muy interesante.
Saludos