Zu Downloadene Dateigröße herausbekommen

[Pfoto]

Hi!

ich benutze z.Zt. folgende Funktionen:


Beim HTTP-Download:

Delphi-Quellcode:

uses WinINet;

var
  URL: HInternet;

  function GetHTTPFileSize(hInet:HINTERNET):cardinal;
  var
    dwindex,dwcodelen :dword;
    dwcode:array[1..20] of char;
  Begin
    dwIndex := 0;
    dwCodeLen := 10;
    HttpQueryInfo(hInet, HTTP_QUERY_CONTENT_LENGTH, @dwcode,  dwcodeLen, dwIndex);
    Result := cardinal(strtoint(PCHAR(@dwcode)));
  end;

URL := InternetOpenURL(hSession, PChar(URL), nil, 0, 0, 0);
SizeOfFile:= GetHTTPFileSize(URL);

Beim Download per FTP:

Delphi-Quellcode:

   
var
  sRec: TWin32FindData;

    if FtpFindFirstFile(fFTP, PChar(ftpFile), sRec, 0, 0) <> nil then
    begin
      fileSize := sRec.nFileSizeLow;astWriteTime;
    end else
    begin
      ShowMessage(Format('Datei nicht vorhanden',[ftpFile]));
    end;

Gruß
Pfoto