Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Salve a tutti, e da un paio di giorni che provo a risolvere questo problema ma niente da fare, spero che qualcuno di voi possa aiutarmi a risolvere questo problema. Posto qui la funzione completa.
Codice sorgente - presumibilmente Delphi
Function THome.File_Size(S_File:String):String;
Var
L_Size:LongInt;
P_Char:PChar;
begin
AppendStr(s_file,chr(0));
p_char:=@s_file[1];
try
l_size := CreateFile(p_char,GENERIC_READ or GENERIC_WRITE,0,nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);
Result :=IntToStr(GetFileSize(l_size,nil));
CloseHandle(l_size);
exceptend;
end;
Per favore se qualcuno riesce a risolvere questo piccolo mio problema potrebbe pure descrivermi i vari passaggi.
Dal sito Embarcadero:
SysUtils.AppendStr
This method is deprecated, and as such, is hard-coded to use AnsiString and no UnicodeString overload is available.
Replace calls like this:
AppendStr(String1, String2);
with code like this:
String1 := String1 + String2;
Or, better yet, use the new TStringBuilder class to concatenate strings.
dunque:
Codice sorgente - presumibilmente Delphi
Function File_Size(S_File:String):String;
Var
L_Size:LongInt;
P_Char:PChar;
begin
S_file := S_File +chr(0);
p_char:=@s_file[1];
try
l_size := CreateFile(p_char,GENERIC_READ or GENERIC_WRITE,0,nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);