Herausfinden ob eine Datei fertig heruntergeladen ist

[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: ?