POST запрос в делфи

Аватара пользователя
SLITE
Сообщения: 203
Зарегистрирован: 01 янв 2010
Пишу прогу типо чекера для игры, вот так проходит авторизация:

Код: Выделить всё

  info:=TStringList.Create;
  info.Add('do_cmd=login');
  info.Add('server=1');
  info.Add('type=name');
  info.Add('name='+memo1.lines[1]);
  for j:=0 to 1 do
    begin
      html:=IdHTTP1.Post('http://g1.botva.ru/login.php',info);
    end;

все работает отлично атворизация проходит но пытаясь отправить запрос в эту форму:

Код: Выделить всё

reg:=TStringList.Create;
reg.Add('do_cmd=register');
reg.Add('server=1');
reg.Add('k=key');
reg.Add('email='+edit5.text);
reg.Add('password='+edit6.text);
reg.Add('password2='+edit6.text);
regi:=IdHTTP1.Post('http://сайт.ru/options.php?a=register ',reg);
Ничего не получается, поля формы заполняются но скрипту не передаются.

Код: Выделить всё

<form method='POST' action=''>
                <input type='hidden' name='do_cmd' value='register'>
                <input type='hidden' name='k' value='28090'>
 
 
                <p>Введите вашу электронную почту:</p>
                <input type='text' name='email' value='' class='inp' />
 
                <p>Введите пароль:</p>
                <input type='password' name='password' value='' class='inp' />
 
 
                <p>Пароль повторно:</p>
 
                <input type='password' name='password2' value='' class='inp' />
 
                <br /><br />
                <input type='submit'  class='cmd_all cmd_large cmd_alarge ' value='ГОТОВО' >
        </form>

Аватара пользователя
Distructor
Администратор
Сообщения: 1599
Зарегистрирован: 28 дек 2009
вроде похоже на правду. возможно дело в типе возвращаемой переменной или в том как указал адрес для запроса

Код: Выделить всё

procedure TForm1.Button1Click(Sender: TObject);
var
  PostData:TStringList;
  html:WideString;
begin
  try
    PostData:=TStringList.Create;
    PostData.Clear;
    PostData.Add('name=123');
    PostData.Add('pass=333');
    PostData.Add('cap=444');
    html:=IdHTTP1.Post('www.site.ru',PostData);
    PostData.Free;
  except on e:Exception do
    PostData.Free;
  end;
end;

полистай http://devdelphi.ru/?p=114 и http://devdelphi.ru/?p=129 в конце второй статьи есть архив с исходниками

и еще http://parsing-and-i.blogspot.com/2009/ ... ppost.html


Вернуться в «Вопросы по программированию»