bonsoir
je travaille sur un petit projet qui fait la compression d'un exécutable sous delphi2009
la fonction GetFilesize renvoi 0 même quand il existe un fichier dans Tedit1
voila le code
Pouvez-vous m'aider
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41 function TForm1.GetFileSize( FileName: string): int64; var Sr : TSearchRec; begin if FindFirst(FileName,faAnyFile,Sr)=0 then try Result := Int64(Sr.FindData.nFileSizeHigh) shl 32 + Sr.FindData.nFileSizeLow; finally FindClose(Sr); end else Result := 0; end; procedure Tform1.GoClick(Sender: TObject); begin size:= GetFileSize(FileName); ClearMemo1; AddMemo1(' Size of section: '+IntToStr(size) ); AddMemo1(' size after Packed' ); AddMemo1 (' Ratio of compression ' ); end; procedure Tform1.openClick(Sender: TObject); begin if OpenDialog1.Execute then if FileExists(OpenDialog1.FileName) then begin Edit1.Text:= OpenDialog1.FileName; source:=ExtractFileName (Edit1.Text) ; ClearMemo1; end; end;
Partager