Dateigröße abfragen (urldownload)

[devnull]

Hi,
ich hab ff zeilen in einem thread laufen und möchte die empfangene bytes herausbekommen :

Delphi-Quellcode:

procedure TDownloadThread.DownloadFiles (runterladen,speichernals : string);
begin
  UrlDownloadtoFile(nil, PCHAR(runterladen), PCHAR(speichernals), 0, nil);
  Synchronize(UpdateForm1);
end;

Wisst ihr wie und wo ich die fehlende Zeile eintragen muss ?
Ich hab ausserdem schon probiert, dass so zu machen

Datei download

Compilieren geht nicht !

Delphi-Quellcode:

function OnDataAvailable(grfBSCF: DWORD; dwSize: DWORD; formatetc: PFormatEtc;       
                         stgmed: PStgMedium): HResult; stdcall;
function OnObjectAvailable(const iid: TGUID; punk: IUnknown): HResult;stdcall;

Probleme: formatetc: PFormatEtc; stgmed: PStgMedium ?



devnull