Hallo,
Ich möchte eine Datei aus dem Internet laden, die nur Text enthält und maximal 10 kb groß ist.
Dazu habe ich im Formum gesucht und eine Lösung mit einer
INDY Komponente gefunden.
Jetzt will ich noch, wenn keine Verbindung zum Internet möglich ist, sei es weil der Firewall sich einschaltet oder wenn
keine Verbindung zum Internet möglich ist, dass eine Fehlermeldung ausgespuckt wird.
Mein Quellcode:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
test: TFilestream;
begin
test:=TFilestream.Create('c:\Test.txt',fmCreate);
try
idhttp1.Get('http://ferby.at/index.html',test);
except
showmessage('Leider keine Verbindung möglich......');
end;
test.free;
end;
Der Quellcode funktioniert, die Datei wird heruntergeladen.
Wenn ich allerdings meine Internetverbindung ausschalte dann öffnet sich ein Fenster (siehe die Grafik die ich raufgeladen habe)
Wenn ich bei diesen Fenster auf Abbrechen bzw. Ignorieren drücke, dann kommt erst meine Fehlermeldung 'Leider keine Verbindung möglich......'
Ich möchte das dieses Fenster überhaupt nicht kommt und, dass nur meine Fehlermeldung angezeigt wird....
Kann mir wer helfen?
Ps. Ich verwende
Indy 10
Ferby