Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Netzwerke (https://www.delphipraxis.net/14-netzwerke/)
-   -   Delphi Fehlermeldung wenn internet Verbindung nicht möglich ist. (https://www.delphipraxis.net/68967-fehlermeldung-wenn-internet-verbindung-nicht-moeglich-ist.html)

ferby 8. Mai 2006 19:27


Fehlermeldung wenn internet Verbindung nicht möglich ist.
 
Liste der Anhänge anzeigen (Anzahl: 1)
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

SirThornberry 8. Mai 2006 19:29

Re: Fehlermeldung wenn internet Verbindung nicht möglich ist
 
der fehler kommt doch sicherlich nur wenn du das ganze innerhalb von Delphi ausführst und beim Debugger "Stop on Delphi exceptions" nicht abgehakt hast.

ferby 8. Mai 2006 19:33

Re: Fehlermeldung wenn internet Verbindung nicht möglich ist
 
Hallo,

Danke!
Das wars!

Ferby


Alle Zeitangaben in WEZ +1. Es ist jetzt 23:14 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz