Einzelnen Beitrag anzeigen

Lamy

Registriert seit: 11. Apr 2004
119 Beiträge
 
Delphi 7 Personal
 
#13

Re: Herausfinden ob eine Datei fertig heruntergeladen ist

  Alt 16. Apr 2004, 16:39
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...
  Mit Zitat antworten Zitat