Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Первая попытка подключения к инернету


veb ©   (2006-02-22 17:01:00) 

Здравствуйте!
Ужасно наивный вопрос, но для этого и сделана эта ветвь, не правда ли?
Мне необходимо, получать в TStringList содержимое web-страницы с указанного адреса. Никогда раньше не писал ничего подобного, поэтому посмотрел статьи здесь на сайте и в других конференциях. Везде подразумевается, что уже есть минимальные знания. Посему, подскажите, с чего начать? Какие компоненты надо расположить в приложении? Есть ли какие-то хитрости? (например связанные с прокси)
Буду благодарен за любую информацию, в том числе и ссылку на статью вида: "С чего начать?"


Плохиш   (2006-02-22 19:28:00) [1]


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;


Плохиш   (2006-02-22 19:15:00) [2]


> HTTP/1.0 407 Proxy
> Proxy Authentication Required

Я так понимаю, прокси требует авторизацию. Или сделай BasicAuthentication := true.

> IdHTTP1. Post(' http://delphimaster.ru',_qwe);

Может с Get начать?


veb   (2006-02-22 19:01:00) [3]

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 18:37:00) [4]

Используй TidHTTP


Кефир87   (2006-02-22 18:36:00) [5]

http://cwdev.mykm.ru/index.php?pg=progs


veb   (2006-02-22 17:51:00) [6]

Огромное спасибО!
правда у меня пока ничего не получилось, потому что выход в инет через прокси, а в предложенных компонентах пока не нашел как это настроить.


Zeqfreed   (2006-02-22 17:25:00) [7]

Посмотри http://www.delphimaster.ru/cgi-bin/forum.pl?id=1139078593&n=18&toprint=1
Если есть какие-то конкретные вопросы, то задавай.


Наверх

Титульная страница Поиск, карта сайта Написать письмо