Entwickler-Ecke

Internet / Netzwerk - Prog stürzt ab trotz Schutzblock ?


Blackheart666 - So 17.09.06 19:54
Titel: Prog stürzt ab trotz Schutzblock ?
Hallo Leute !
Hab mal wieder ein kleines Problem.
Mein Programm friert ein falls die Url nicht exestiert trotz try except.
Hat einer ne Idee wie man das umgehen kann.
Danke Blackheart666


Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
procedure TForm1.Button1Click(Sender: TObject);
var
  UrlString: string;
  ClickedOK: Boolean;
begin
  UrlString := 'http://www.';
  ClickedOK := InputQuery('''Bitte Url eingeben !', UrlString);
  try
  if ClickedOK then
    memo1.Text:=IdHTTP1.Get(UrlString);
  except
  Showmessage('Fehler! - Seite kann nicht geöffnet werden');
 end;
end;


mkinzler - So 17.09.06 20:04

Ein Exceptionhandler reagiert ja nur auf Exceptiuons, wenn keine auftreten hilft er nicht. Hast du mal versucht den ReadTimeout herunter zu setzen?


Blackheart666 - So 17.09.06 20:08

Hallo !
ReadTimeout steht auf 0.
Hab jetzt Application.ProcessMessages in den Block gesetzt jetzt funzt es.