VPF::Проблема с пост запросами - Форум программистов

arashvg

Дата 8.7.2009, 17:42 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 35
Регистрация: 19.6.2009

Репутация: нет
Всего: нет

Добрый день есть проблема пытаюсь отправить пост запрос

Код


procedure TForm1.Button1Click(Sender: TObject);
var
tL: TStringList;
s: String;
Response: TStringStream;
begin
tL := TStringList.Create;
Response := TStringStream.Create('');
tL.Add('s_url=http://fentezi-world.ru/');
tL.Add('s_back1=http://fentezi-world.ru/');
tL.Add('[email protected]');
tL.Add('s_sel=Торговля');
tL.Add('src=');
tL.Add('s_lname=http://fentezi-world.ru/');
tL.Add('s_labout=http://fentezi-world.ru/');

try
   IdHTTP1.Post('http://filmok.in.ua/cat/links_ex.php',tL,Response);
    Showmessage(Response.DataString);
   finally
  begin
   Response.Free;
   tL.Free;
end;
end;
 end;

в результате почемуто получаю исходный код страницы http://filmok.in.ua/cat/links_ex.php, ЧТО ЗА ГЛЮК???

Как правильно отправить запрос пробовал посмотреть что отправляет браузер вот что получил

Код


POST /cat/links_ex.php HTTP/1.1
Host: filmok.in.ua
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.1) Gecko/20090624 Firefox/3.5
Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
Accept-Language: ru,en-us;q=0.7,en;q=0.3
Accept-Encoding: gzip,deflate
Accept-Charset: windows-1251,utf-8;q=0.7,*;q=0.7
Keep-Alive: 300
Connection: keep-alive
Referer: http://filmok.in.ua/cat/links_ex.php
Cookie: __utma=82680321.1607360655.1242887534.1245678269.1246448420.109; __utmz=82680321.1245327642.96.16.utmcsr=mail.rambler.ru|utmccn=(referral)|utmcmd=referral|utmcct=/mail/mail.cgi; dle_user_id=1; dle_password=ded8db400f39b94d77f504c3fb7c819d; dle_newpm=0; clickunder=1; FirstUrl_cu=1; okf4ba47838bc3=1; 7345.clickunder1972=1; PHPSESSID=44975aec97d12229725a6287589b7a3e
Content-Type: application/x-www-form-urlencoded
Content-Length: 216
url=http%3A%2F%2Ffentezi-world.ru%2F&backlink=http%3A%2F%2Ffentezi-world.ru%2F&seenform=1&mail=arashvg%40yandex.ru&dir=21&src=http%3A%2F%2F&title=http%3A%2F%2Ffentezi-world.ru%2F&desc=http%3A%2F%2Ffentezi-world.ru%2F
HTTP/1.x 200 OK
Date: Wed, 08 Jul 2009 10:32:51 GMT
Server: Apache/2.2.11 (Unix) mod_ssl/2.2.11 OpenSSL/0.9.7a mod_auth_passthrough/2.1 mod_bwlimited/1.4 FrontPage/5.0.2.2635
X-Powered-By: PHP/5.2.8
Keep-Alive: timeout=5, max=100
Connection: Keep-Alive
Transfer-Encoding: chunked
Content-Type: text/html
----------------------------------------------------------
http://filmok.in.ua/cat/admin/udcy.php?noinfo

Romikgy

Дата 8.7.2009, 21:20 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 3
Всего: 146

url=http%3A%2F%2Ffentezi-world.ru%2F
backlink=http%3A%2F%2Ffentezi-world.ru%2F
seenform=1
mail=arashvg%40yandex.ru
dir=2
src=http%3A%2F%2Ffentezi-world.ru%2F
title=fentezi-world.ru%2F
desc=fentezi-world.ru%2F

Код


tL.Add('url=http://fentezi-world.ru/');
tL.Add('backlink=http://fentezi-world.ru/');
tL.Add('seenform=1');
tL.Add('[email protected]');
tL.Add('dir=2');
tL.Add('src=');
tL.Add('title=http://fentezi-world.ru/');
tL.Add('desc=http://fentezi-world.ru/');

типа так

Это сообщение отредактировал(а) Romikgy - 8.7.2009, 21:21

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

arashvg

Дата 9.7.2009, 11:32 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 35
Регистрация: 19.6.2009

Репутация: нет
Всего: нет

Цитата(Romikgy @ 8.7.2009, 21:20

)

типа так

спасибо пашет!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »