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

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

HTTP Get, через TClientSocket [D6, WinXP]


Страницы:   1 2

delpher_gray ©   (2004-05-16 14:50:00) 

Как выполнить HTTP запрос GET через TClientSocket ? Какие данные нужно посылать ?
И как принять только содержание страницы (заголовок не нужен)


delpher_gray   (2004-05-16 17:23:00) [21]

Апач.
Главно когда в тельнете пишу: GET /index.php HTTP/1.0\n\n, то всё работает.


Polevi   (2004-05-16 16:41:00) [22]

а что у тебя слушает на 80 порту


delpher_gray   (2004-05-16 16:12:00) [23]

Соединяюсь с localhost:80, посылаю:
GET /index.php HTTP/1.0\n\n

Ответа нет :(


FireMan_Alexey   (2004-05-16 15:41:00) [24]

Создай TSServerSocket скажем на 9000 порту выключи инет и настрой свой браузер на прокси 127.0.0.1 и порт 9000.
напиши любой адрес и  увидишь запрос от IE к Серверу.
На твой запрос отосланный в инет тем же TClientSocket-том прийдет вся страничка, а затем принимаешь ее до дисконнекта со стороны сервера, а затем запихуешь в строку.
Далее Элементарные знания паскаля:
Var
 Index1,Index2:Integer;
 telo:String;
Begin
Index1:=Pos('<BODY>',Твоя строка);
Index2:=Pos('</BODY>',Твоя строка);
Telo:=Copy(Твоя строка,Index1,Index2-Index1);
End;
Вот и все!


Михаил   (2004-05-16 15:11:00) [25]

Да самому интересно какой там должен быть запрос?


Страницы:   1 2

Наверх

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