Hallo,
ich habe dieses Code hier gefunden und in mein kleines Downloadprogramm eingebaut.
Klickst du hier! (Datei downloaden mit fortschrittsanzeige)
Ja, nun wollte ich aber auch das PRogramm beenden. Hab nen Button erstellt und so eiter:
Delphi-Quellcode:
procedure TForm1.ButBeendenClick(Sender: TObject);
begin
close;
end;
Weil beim Downloaden jedoch das Beenden nicht akzeptiert wird, dachte ich, baue ich cDownStatus.Free dort ein:
Delphi-Quellcode:
procedure TForm1.ButBeendenClick(Sender: TObject);
var
cDownStatus : cDownloadStatusCallback;
begin
cDownStatus.Free;
close;
end;
Naja, jetzt wird das Programm zwar auch beendet, jedoch mit dieser schrecklichen Fehlermeldung (siehe Anhang).
Gibt es dort eine Elegenade Alternative ?
btw: ich habe gestern mit Delphi angefangen .. also bitte Idiotensicher erklären (also, was einegfügt werden muss).