Wenn man Andreas Bepspiel noch etwas umstellt, dann kommt es deinem Code doch recht nah:
Delphi-Quellcode:
var
http: TIdHTTP;
begin
http := TIdHTTP.Create(
nil);
try
http.TimeOut := 5000;
http.Get('
http://' + Configuration.ServerIpAddress);
Result := '
';
except
on e:
Exception do
Result := e.
Message;
end;
http.Free;
end;
Und ja, ich hab hier absichtlich Try-Finally ausgelassen, da es indirekt im Try-Except drinsteckt.
