Код: Выделить всё
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>