Форум: "Начинающим";
Текущий архив: 2006.03.12;
Скачать: [xml.tar.bz2];
Вниз
Первая попытка подключения к инернету Найти похожие ветки
← →
veb (2006-02-22 17:01) [0]Здравствуйте!
Ужасно наивный вопрос, но для этого и сделана эта ветвь, не правда ли?
Мне необходимо, получать в TStringList содержимое web-страницы с указанного адреса. Никогда раньше не писал ничего подобного, поэтому посмотрел статьи здесь на сайте и в других конференциях. Везде подразумевается, что уже есть минимальные знания. Посему, подскажите, с чего начать? Какие компоненты надо расположить в приложении? Есть ли какие-то хитрости? (например связанные с прокси)
Буду благодарен за любую информацию, в том числе и ссылку на статью вида: "С чего начать?"
← →
Zeqfreed © (2006-02-22 17:25) [1]Посмотри http://delphimaster.net/view/2-1139078593/&toprint=1
Если есть какие-то конкретные вопросы, то задавай.
← →
veb (2006-02-22 17:51) [2]Огромное спасибО!
правда у меня пока ничего не получилось, потому что выход в инет через прокси, а в предложенных компонентах пока не нашел как это настроить.
← →
Кефир87 © (2006-02-22 18:36) [3]http://cwdev.mykm.ru/index.php?pg=progs
← →
Плохиш © (2006-02-22 18:37) [4]Используй TidHTTP
← →
veb (2006-02-22 19:01) [5]to Плохиш
именно его и пытаюсь использовать! Получаю все время ошибку!
procedure TForm1.Button1Click(Sender: TObject);
var _qwe:TStringList;
begin
_qwe:=TStringList.Create;
_qwe.add("test");
IdHTTP1.ProxyParams.ProxyPort:=3128;
IdHTTP1.ProxyParams.ProxyServer:="192.168.39.10";
IdHTTP1.Post("http://delphimaster.ru",_qwe);
Memo1.text:=IdHTTP1.ResponseText;
_qwe.Clear;
end;
HTTP/1.0 407 Proxy
Proxy Authentication Required
Может у кого пример есть? а? Я пониаю, что за час все не получится, но хочется чтоб хоть что-нибудь заработало
← →
Плохиш © (2006-02-22 19:15) [6]
> HTTP/1.0 407 Proxy
> Proxy Authentication Required
Я так понимаю, прокси требует авторизацию. Или сделай BasicAuthentication := true.
> IdHTTP1.Post("http://delphimaster.ru",_qwe);
Может с Get начать?
← →
Плохиш © (2006-02-22 19:28) [7]
procedure TForm1.Button1Click(Sender: TObject);
var
streamResponse: TMemoryStream;
begin
IdHTTP1.ProxyParams.BasicAuthentication := true;
IdHTTP1.ProxyParams.ProxyPort:=3128;
IdHTTP1.ProxyParams.ProxyServer:="192.168.30.12";
IdHTTP1.ProxyParams.ProxyUsername:="xxx";
IdHTTP1.ProxyParams.ProxyPassword:="xxx";
streamResponse := TMemoryStream.Create;
try
IdHTTP1.Get("http://delphimaster.ru", streamResponse);
streamResponse.Position := 0;
Memo1.Lines.LoadFromStream(streamResponse);
finally
streamResponse.Free;
end;
end;
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.03.12;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.021 c
