Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Обработка ошибок в TidHTTP

14K
24 октября 2005 года
dabreezy
1 / / 24.10.2005
Добрый день.
Возник вопрос как обработать ошибку если прокси сервер не отвечает(выскакивает окно с ошибкой) в следующем коде? И как правильно завершить соединение?:

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;
Заранее спасибо.
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог