Größenvergleich von 2 Dateien

[BLuBBi]

Huhu

Hab ma ne Frage zu Delphi(6) und zwar:

Ich habe ein Programm das per Button eine vorher angegebene Datei herunterlädt. Nun lädt man noch eine 2. Datei herunter.
Nun sind diese Dateien im selben Ordner mit den Namen: "vergleich1.* und vergleich2.*"
Nun sollen diese beiden Dateien von der Größe her verglichen werden nun leider hab ich kein schimmer wie ich das hinbekommen soll.

Thx schonmal

[moori]

Serrs,

mit dem Code kannst du die Dateigrösse ermitteln. Dann einfach beide miteinander vergleichen.

Delphi-Quellcode:

function GetFileSize(const AFileName: String): Integer;
var
  F: TSearchRec;
begin
  Result:=-1;
  if FindFirst(AFileName,faAnyFile,F)=0 then
  begin
    try
      Result := F.Size;
    finally
      FindClose(F);
    end;
  End;
end;

Is nich von mir aber sollte gehen.


Gruss Moori

[BLuBBi]

Hmm und wie soll ich dann den vergleich schreiben ?

[Dagon]

So verglechst du dann beide Dateien:

Delphi-Quellcode:

if GetFileSize(Vergleich1) > GetFielSize(Vergleich2) then
  ShwoMessage('Vergleich1 ist grösser')
else
  ShwoMessage('Vergleich2 ist grösser');

[Christian Seehase]

Moin Blubbi,

Zitat:

Zitat von BLuBBi

Hmm und wie soll ich dann den vergleich schreiben ?

1. Du willst die Grössen zweier Dateien vergleichen
2. Du hast einen Code bekommen, der Dir die Grösse einer Datei liefert
3. Wo ist das Problem zwei Werte miteinander zu vergleichen? ;-)

[BLuBBi]

Muss die Funktion GetFileSize zu dem Buttonklick-code oder wo muss der hin ?

/edit: Ich mach noch net so lange Delphi deswegen auch diese Fragen :)

[Christian Seehase]

Moin Blubbi,

meinst Du jetzt die Funktion selber oder deren Aufruf?

[BLuBBi]

Die funktion selber.

[Christian Seehase]

Moin Blubbi,

die Deklaration, wie sie moori gepostet hat, muss in den implementation Abschnitt der Unit, der Kopfe (function GetFileSize...) sollte noch einmal im interface Abschnitt wiederholt werden, damit aus jeder unit heraus, die auf diese unit zugreifen kann die Funktion aufgerufen werden kann.

[BLuBBi]

Also wenn ich den Code von moori kompiliere kommt da immer Undeclared identifier 'Result'
Is wohl irgendwo éin Fehler im Code.

/edit: Nee doch kein Fehler hab nur was falsch gemacht.

[emsländer]

wo ist hier mein Denkfehler?

lang := getfilesize(sAppDir+'\Adobe7ger.exe');

Delphi meint dazu: [Fehler] main.pas(977): Inkompatible Typen: 'Cardinal' und 'String'

sAppdir ist ein String und enthält den Ordner.

Die Variable lang kann ich als Integer, Double oder Cardinal definieren. Der Fehler bleibt.


Gruss

EL

[chrisw]

Hallo emsländer !

Du nutzt irgendwie nicht die oben beschriebene function getfilsize, sondern die aus der win api.

Delphi-Quellcode:

DWORD GetFileSize(

    HANDLE hFile,   // handle of file to get size of
    LPDWORD lpFileSizeHigh    // address of high-order word for file size
   );

Diese verlangt nämlich ein Handle (Cardinal).
So kommt es zu der beschriebenen Fehlermeldung.

Chris

[emsländer]

Danke - daran lags


Gruss

EL