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

[Luckie]

In der Code-Lib findest du genau dafür Code mit Fortschrittsanzeige.

[devnull]

Das ist ein Codebeispiel aus der CodeLib ...

[Luckie]

Zitat von devnull:

Das ist ein Codebeispiel aus der CodeLib ...

Und was willst du mir damit sagen? Bei mir geht es.

[devnull]

Ok bei mir auch. Ich hab ActiveX vergessen

Aber was passiert, wenn mein Programm beendet wird und der Download noch läuft:

Delphi-Quellcode:

  try
   UrlDownloadtoFile(nil, PCHAR(runterladen), PCHAR(speichernals), 0, CDownStatus);
  finally
    cDownStatus.Free;
  end;

devnull

[Luckie]

Was soll passieren, dann ist er unvollständig.