![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
HTTP Get, через TClientSocket [D6, WinXP]
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]Да самому интересно какой там должен быть запрос?