Herausfinden ob eine Datei fertig heruntergeladen ist

[Luckie]

Solltest du UrlDownloadToFile nicht in einem Thread aufrufen, kehrt es erst wieder zurück, wenn es die Datei fertig runtergeladne hat.

[himitsu]

@Lamy:
du nimmst einfach URLDownloadToFile und wärdens des Downloads wird die Prozedur, wo der Befehl drin ist angehalten, was denkst du denn, warum wird hier oftmals URLDownloadToFile in Threads auslagen? (Weil es halt das Prog anhält - du darfst den Download halt nur nicht ein einem Thread auslagern)

@Remote1:
Weil z.B. die Datei defekt sein könnte, oder man sich eine neue Version einer Datei besorgt...


[ADD]
Och menno, Luckie hat sich vorgedrängelt -.-

[ADD2]
@Lamy:

Zitat:

Und während des Downloads:
LBStatus.Caption := 'Es dauert noch einen Moment, die Datei wird heruntergeladen...'

wenn du hier im Forum etwas suchst, dann wirst du entdecken, dass man auch noch einen paar Rückruf-Prizeduren an URLDownloadToFile übergeben kann, damit kannst du dann auch anzeigen lassen, wie weit der Download schon ist.

[Lamy]

Delphi-Quellcode:

PROCEDURE TForm1.FormCreate(Sender: TObject);
VAR Datei, Ziel: PChar;
  Programmverzeichnis: STRING;
BEGIN
  Programmverzeichnis := ExtractFilePath(Application.ExeName);
  TRY
    Label2.Caption := 'Alte Programmdatei wird gelöscht';
    DeleteFile(Programmverzeichnis + '\UrFtpclient.exe');
    Label1.Caption := 'Bitte warten!';
    Datei := 'http://www.a.toolsnfun.de/urftpclient.exe';
    Ziel := PChar(Programmverzeichnis + '\urftpclient.exe');
    UrlDownloadToFile(NIL, Datei, Ziel, 0, NIL);
    IF FileExists(Programmverzeichnis + '\urftpclient.exe') THEN
      Label1.Caption := 'updatedatei heruntergeladen';
    ELSE
    BEGIN
      sleep(5000);
      Label1.Caption := 'Bitte warten Sie bis die Updatedatei heruntergeladen ist...';
    END;
    IF FileExists(Programmverzeichnis + '\urftpclient.exe') THEN
      Label1.Caption := 'updatedatei heruntergeladen';
  EXCEPT
    showmessage('Download abgebrochen');
  END;
END;
Ich weiß nicht was ein Thread ist aber der hier wartet nicht bis die Datei runtergeladen wurde...

[MathiasSimmack]

Die Code-Lib enthält doch ein Beispiel von "UrlDownloadToFile" mit Download-Fortschritt. (Link, s. Beitrag von Luckie). Daraus müsste sich doch was machen lassen.

[Luckie]

Ich habe ja eher die Befürchtung, dass du deine Labels gar nichts siehst, da sie in OnCreate der Form noch gar nicht angezeigr werden.

[Lamy]

Oh nein :/

Ich bin so dämlich...
Naja, der Fehler hat sich von Selbst aufgelöst, bitte fragt mich nicht worans gelegen hat....
@ Luckie: Stimmt ^^
Aber wie kann ich in einem Label anzeigen, dass der die Datei zur Zeit runterlädt?

[himitsu]

1. Bei mir wartet diese Prozedure

2. ist das doch nicht die, die du im Proggi hast, denn diese hat Fehler drin (nicht compilierbar)

Code:

    IF FileExists(Programmverzeichnis + '\urftpclient.exe') THEN
      Label1.Caption := 'updatedatei heruntergeladen'[color=red][b];[/b][/color]
    ELSE

3. kann es sein. das die Datei (auf'm Server) nicht existiert?

...

Das dürfte eigentlich reichen:

Delphi-Quellcode:

PROCEDURE TForm1.FormCreate(Sender: TObject);
VAR Programmverzeichnis: STRING;
BEGIN
  Programmverzeichnis := ExtractFilePath(Application.ExeName);
  TRY
    Label2.Caption := 'Alte Programmdatei wird gelöscht';
    Application.ProcessMessages;
    DeleteFile(Programmverzeichnis + '\UrFtpclient.exe');
    Label1.Caption := 'Bitte warten!';
    UrlDownloadToFile(NIL, 'http://www.a.toolsnfun.de/urftpclient.exe', PChar(Programmverzeichnis + '\urftpclient.exe'), 0, NIL);
    IF FileExists(Programmverzeichnis + '\urftpclient.exe') THEN
      Label1.Caption := 'updatedatei heruntergeladen';
  EXCEPT
    showmessage('Download abgebrochen');
  END;
END;

[ADD]

Zitat:

Aber wie kann ich in einem Label anzeigen, dass der die Datei zur Zeit runterlädt?

Es nicht im OnCreate runterladen, sonder erst später - z.B. über einen Timer.
und dann :Application.ProcessMessages; Wir fragen dennoch, den wir lernen auch gern und von Fehlern lernt es sich am Besten.

[Luckie]

Zitat:

Aber wie kann ich in einem Label anzeigen, dass der die Datei zur Zeit runterlädt?

UrlDownloadToFile <-- Bitte klicken, falls nicht schon längst geschehen.

[Lamy]

Zitat von himitsu:

1. Bei mir wartet diese Prozedure

2. ist das doch nicht die, die du im Proggi hast, denn diese hat Fehler drin (nicht compilierbar)

Code:

    IF FileExists(Programmverzeichnis + '\urftpclient.exe') THEN
      Label1.Caption := 'updatedatei heruntergeladen'[color=red][b];[/b][/color]
    ELSE

3. kann es sein. das die Datei (auf'm Server) nicht existiert?

...

Das dürfte eigentlich reichen:

Delphi-Quellcode:

PROCEDURE TForm1.FormCreate(Sender: TObject);
VAR Programmverzeichnis: STRING;
BEGIN
  Programmverzeichnis := ExtractFilePath(Application.ExeName);
  TRY
    Label2.Caption := 'Alte Programmdatei wird gelöscht';
    Application.ProcessMessages;
    DeleteFile(Programmverzeichnis + '\UrFtpclient.exe');
    Label1.Caption := 'Bitte warten!';
    UrlDownloadToFile(NIL, 'http://www.a.toolsnfun.de/urftpclient.exe', PChar(Programmverzeichnis + '\urftpclient.exe'), 0, NIL);
    IF FileExists(Programmverzeichnis + '\urftpclient.exe') THEN
      Label1.Caption := 'updatedatei heruntergeladen';
  EXCEPT
    showmessage('Download abgebrochen');
  END;
END;

[ADD]

Zitat:

Aber wie kann ich in einem Label anzeigen, dass der die Datei zur Zeit runterlädt?

Application.ProcessMessages; Wir fragen dennoch, den wir lernen auch gern und von Fehlern lernt es sich am Besten.

Zu 1: Jo, bei mir jetzt auch
Zu 2: Ne, hatte das nicht so in der Prozedur drin, war hier nur'n Tippfehler
Zu 3: Ja, das war mein Fehler *schäm*
Zu 4: Danke
Zu 5: ?

[himitsu]

Zitat von himitsu:

[ADD]

Zitat:

Aber wie kann ich in einem Label anzeigen, dass der die Datei zur Zeit runterlädt?

Es nicht im OnCreate runterladen, sondern erst später - z.B. über einen Timer.
und dann :Application.ProcessMessages;

war gerade beim editieren - und wenn du dann noch Luckie's Link folgst (so das er endlich in Ruhe schlafen kann), dann kannst du sogar dnoch den Downloadfortschritt anzeigen lassen.


(Also die Datei war nicht da, oder unter einem anderenn Namen?)