Nerladdning av filer...

var
   f: file of Byte;
   size: Longint;
   S: string;
   y: Integer;
begin
try
    AssignFile(f, 'C:\temp\filen.zip');
    Reset(f);
    try
      size := FileSize(f);
      S := IntToStr(size);
      edit1.Text := s;
    finally
      CloseFile(f);
    end;
except
  edit1.Text := '0';
end;

Med koden ovan skriver den ut storleken på filen: "C:\temp\filen.zip" till edit1.text. Denna fil laddas ner till datorn via en annan delphi applikation med föjlande kod:

URLDownloadToFile(nil, pchar('http://www.sidan.com/filen.zip'), pchar('C:\temp\filen.zip'), 0, nil)

Problemet är att jag vill kunna se filens storlek undertiden den laddas ner. Koden säger att filen först är 0 byte, sen när det är färdigladdat får den rätt storlek. Jag har testat kolla storleken på filer som andra program t.ex. Direct Connect laddar ner, då kan jag se den aktuelle storleken hela tiden, men inte när jag själv laddar ner den med programmet på det sätt som jag beskrev ovan.

Någon som kan förklara varför det blir fel eller säga hur jag kan lösa detta problem, jag vill nämligen få en progressbar att visa hur det går med nerladdningen av filen...