Registriert seit: 27. Mai 2007
122 Beiträge
Delphi 7 Enterprise
|
Indy Exception abfangen
16. Jun 2009, 23:37
hi,
was ist denn da bitte falsch?
Egal ob ich per Firewall das Programm blocke oder nicht,
es wirft imemr eine access denied raise exception von Indy, aber try except trifft nie ein, sprich:
var_Newsticker := 'You are not connected to the Internet (or your Firewall is blocking me) or my Homepage is down. Look for Help and Updates @ www.xyz.com';
trifft nie ein und bleibt somit leer!
Warum?
Delphi-Quellcode:
IdHTTPUpdate.ReadTimeout := 3000;
IdHTTPUpdate.ConnectTimeout := 3000;
if InternetGetConnectedState(nil, 0) then
try //1
masterserver := IdHTTPUpdate.Get(masterserver);
masterserver := StringsucheVor(masterserver,'<frame src="','"');
onlineSettings := IdHTTPUpdate.Get(masterserver+'EasyMangosHandler/onlinesettings.ini');
finally
try //2
AktuelleVersion := StringsucheVor(onlineSettings,'Version=<','>');
var_Newsticker := StringsucheVor(onlineSettings,'News=<','>');
var_Maps_download := StringsucheVor(onlineSettings,'Maps_Download=<','>');
DownloadLink := StringsucheVor(onlineSettings,'DownloadLink=<','>');
Changelog := StringsucheVor(onlineSettings,'Changelog=<','>');
except //2
var_Newsticker := 'You are not connected to the Internet (or your Firewall is blocking me) or my Homepage is down. Look for Help and Updates @ www.xyz.com';
end;
end else //1
begin
var_Newsticker := 'You are not connected to the Internet (or your Firewall is blocking me) or my Homepage is down. Look for Help and Updates @ www.xyz.com';
end;
Takeo Don't make me angry...
You wouldn't like me when I'm angry!
Blut ist leben, Leben ist Blut, ins Licht geboren suchen wir die Dunkelheit!
|
|
Zitat
|