Einzelnen Beitrag anzeigen

codenoob
(Gast)

n/a Beiträge
 
#1

Filegrösse von Datei aus Opendialog

  Alt 10. Jun 2017, 01:08
Hi Delphianer.

Ich öffne mitels Opendialog eine Datei und möchte die Dateigrösse der Datei in eine Litvie schreiben.
Delphi-Quellcode:

Li.SubItems.Add(GetFileSize(ClientForm.opendialog1.Files[i]));
Delphi-Quellcode:
function GetFileSize(FileName: string): integer;
var
  Handle: THandle;
begin
  Result := 0;
  Handle := CreateFile(pchar(FileName),GENERIC_READ,FILE_SHARE_READ,nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);
  if Handle <> INVALID_HANDLE_VALUE then Result := windows.GetFileSize(Handle,nil);
  CloseHandle(handle);
end;
Allerdings bekomme ich da immer die Fehlermeldung: Inkompatible Typen: NativeUInt und String;
  Mit Zitat antworten Zitat