Hallo Leute
ich hoffe es ist nicht zu unhöflich mit dem ersten Post gleich eine Frage zu stellen aber ich weiß nicht mehr weiter.
kurz:
Ich kann die
Indy Exeptions nicht abfangen und das Programm bricht die aktuelle Aktion ab
Detailliert:
Ich versuche ein Programm zu schreiben das mit Hilfe der
Indy Komponente von einem Webserver Dateien herunterlädt.
Sollte beim download ein Problem auftreten möchte ich das das Programm kurz wartet und es dann erneut versucht da der Webserver um den es sich handelt chronisch überlastet ist kann das leider öfter passieren.
Das
Indy Exeptions auswirft möchte ich gar nicht verhindern sondern umleiten auf eine ListenView Spalte, bei „Fehler 404“ sowie die Meldung das der Webserver die Verbindung ablehnt „Socket-Fehler # 10061 Verbindung abgelehnt.“ funktioniert auch alles wunderbar.
Löse ich aber einen Fehler aus indem ich während des Downloads den Webserver beende erhalte ich eine messagebox mit der Fehlermeldung "Socket-Fehler # 10054 Die Verbindung wurde von Peer zurückgesetzt" die ich weder mit noch ohne Debugger umgeleitet bekomme und was noch störender ist das ganze bricht die repeat schleife ab.
Wie kann ich diese Meldung abfangen?
Ist es möglich das diese Meldung nicht von Delphi/
Indy kommen sondern vom Betriebssystem?
Ein Ausschnitt aus meinem Code habe ich hier:
Delphi-Quellcode:
// Download1
function download1(z, q : String): String;
var
FS : Tfilestream;
begin
FS := TFileStream.Create(z, fmCreate or fmShareDenyNone);
try
try
Form1.IdHTTP1.Get(q,FS);
result := '';
except
On E:EIdHTTPProtocolException do result := 'HTTP-Fehler: '+IntToStr(E.ErrorCode);
On E:EIdSocketError do result := E.Message;
end;
finally
FS.Free;
end;
end;
// test !
procedure TForm1.Button5Click(Sender: TObject);
var
quelle, ziel, download : String;
begin
quelle := 'http://192.168.0.2/test/test10mb.bmp';
ziel := Valuelisteditor1.Values['Zielordner']+'\test10mb.bmp';
abbruch := false;
repeat
//abbruch
if abbruch then begin
Form1.idhttp1.Disconnect;
Form1.Listview1.items[Form1.ListView1.Items.Count-1].subitems[4] := 'abbruch';
exit;
end;
//laden
Form1.Listview1.items[Form1.ListView1.Items.Count-1].subitems[4] := 'lade';
download := download1(ziel, quelle);
//fehler
if (download <> '') then begin
Form1.idhttp1.Disconnect;
Form1.Listview1.items[Form1.ListView1.Items.Count-1].subitems[4] := download;
Delay(2000);
Form1.Listview1.items[Form1.ListView1.Items.Count-1].subitems[0] := inttostr(strtoint(Form1.Listview1.items[Form1.ListView1.Items.Count-1].subitems[0]) + 1);
end;
until (download = '');
Form1.Listview1.items[Form1.ListView1.Items.Count-1].subitems[4] := 'Fertig';
end;