как получить Html через прокси

  • Автор темы slavas
  • Дата начала
Статус
Закрыто для дальнейших ответов.
S

slavas

#1
Здравствуйте. Мне нужно получить текст html-странички в Memo. Вот код:
Код:
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdHttp, StdCtrls, ComCtrls;

procedure TForm1.Button1Click(Sender: TObject);
var http: TIdHttp;
s: string;

begin
Memo1.Clear;
http:=TIdHTTP.Create(nil);
try
s:=http.Get('http://we..../index.htm');
except
ShowMessage('Неудача.');
end;

Memo1.Lines.Add(s);
http.Free;
end;
end.
На домашнем компе все работает замечательно. А на работе интернет у нас через прокси, и этот код не работает.
Вопрос: Какие команды надо добавить, чтобы программа смогла работать через прокси?
Айпи прокси и номер порта мне известны (взяты из настроек IE-браузера).
 
S

slavas

#3
Спасибо. Все заработало. Не хватало команд:
http.ProxyParams.ProxyPort:=порт;
http.ProxyParams.ProxyServer:='айпи сервера в текстовом виде';
Вопрос закрыт.
 
Статус
Закрыто для дальнейших ответов.