Registriert seit: 11. Apr 2004
119 Beiträge
Delphi 7 Personal
|
Re: Herausfinden ob eine Datei fertig heruntergeladen ist
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...
|
|
Zitat
|