Downloadprozess wird in Gauge nicht angezeigt

[Premaider]

Zitat von Luckie:

Du schreibst eine Funktion und als Parameter übergibst du einen Zeiger auf die Funktion.

Sorry, ich bin noch ein ziemlicher Anfänger.
Ist der Zeiger z.b. bei
Form1.Caption:='Beispiel'
Form1 ?
Ich habe schonmal nachgeschaut. Da müsste doch irgendetwas mit OnProgress oder so hin

[Luckie]

Forensuche: http://www.delphipraxis.net/dp_searc...ch_matchmode=0

[Premaider]

Sorry. Die suchte enttäuscht mich. Entwerder wird wieder auf http://www.delphipraxis.net/47-datei...tsanzeige.html
verwiesen. Was ja funktionieren sollte, bei mir genauso ist, aber nicht funktioniert.
Oder es hat kaum etwas mit meinem Problem zu tun
Es muss ja etwas vom Typ IBindStatusCallback nur davon habe ich noch nie etwas gehört

[Luckie]

Kommando zurück. Es wird ein A pointer to the IBindStatusCallback interface of the caller erwartet. Du musst also das Interface implementieren.

Aber warum machst du es nicht mit einer HTPP Komponente? Ist viel einfacher.

[Premaider]

Hast du da einen Link zu einem Beispiel oder Tutorial ? Das wäre sehr nett ;D

[Luckie]

Zeig doch mal etwas Eigeninitiative. Ein Tutorial sollte sich recht schnell mit der Forensuche oder Google finden lassen.

[Premaider]

Hab ich ja schon ich finde aber nichts. Hast du ein paar Suchvorschläge ?

[Luckie]

Suchbegriffe: Delphi http. Und da mit findest du nichts?

[Premaider]

Jetzt habe ich etwas mit einer ProgessBar und http gefunden. Da mir diese sogar noch lieber ist werde ich es damit morgen probieren. Falls dies nicht klappen sollte melde ich mich hier noch mal. Danke dir ;D

[DeddyH]

Es hätte ja auch genügt, den selbst verlinkten Code exakt zu kopieren.

Zitat:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  cDownStatus : cDownloadStatusCallback;
  status: integer;
begin
  cDownStatus := cDownloadStatusCallBack.Create;
  
   status := URLDownloadToFIle(nil,'http://www.google.de/index.html',
     'C:\index.html',0,CDownStatus); //<-- CDownStatus statt nil
    cDownStatus.Free;

   if (status <> 0) then
      Form1.Label1.Caption:='Es gab einen Fehler beim Herunterladen!';
end;