Обработка ошибок в TidHTTP [D7, WinXP]
Kostya © (2005-10-24 21:05:00)
Добрый день.
Возник вопрос как обработать ошибку если прокси сервер не
отвечает(выскакивает окно с ошибкой) в следующем коде? И как
правильно завершить соединение?:
procedure TForm1.Button1Click(Sender: TObject);
Var St : TMemoryStream;
begin
St := TMemoryStream.Create;
IdHTTP1.Request.UserAgent:='Mozzila 3.0/';
IdHTTP1.Request.Referer:='';
IdHTTP1.ProxyParams.ProxyServer:='221.11.124.35';
IdHTTP1.ProxyParams.ProxyPort:=8080;
IdHTTP1.Get('
http://www.yandex.ru',St);
St.Position:=0;
ListBox1.Items.LoadFromStream(St);
St.Free;
end;
Заранее спасибо.
AlexAndroID (2005-10-27 12:31:00) [1]
По-мойму, IdHTTP1.Get('http... надо одеть в "броник":
try
IdHTTP1.Get('http...
exception
... {здесь обрабатывать исключение, номера конкретного
не помню, увы - поройся в RFC}
end;
Наверх 
ЧАТ |
Орешник |
|
