Делфи вопрос

[aydar]

Немогу авторизоваться на сайте ucoz

cod := idHttp1.Get('http://sacred2-zone.ru/');
rndResult:= copy (cod,pos('input type="hidden" name="rnd" value="',cod)+38,3);

params:=tstringlist.create;
params.Add('user=test');
params.Add('password=Test');
params.Add('rem=1');
params.Add('a=2');
params.Add('ajax=1');
params.Add('rnd=' + rndResult);
cod:=IdHTTP1.Post('http://sacred2-zone.ru/', params);
cod:=memo1.Text;
if pos ('Вы вошли как',cod)<>0 then showmessage ('ok');

params.Free;

может куки надо сохранять, если да то как?

[RedFern.89]

надо, idHTTP1.AllowCookies := True;

[aydar]

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

idHTTP1.AllowCookies := True;
cod := idHttp1.Get('http://sacred2-zone.ru/');
rndResult:= copy (cod,pos('input type="hidden" name="rnd" value="',cod)+38,3);

params:=tstringlist.create;
params.Add('user=test');
params.Add('password=Test');
params.Add('rem=1');
params.Add('a=2');
params.Add('ajax=1');
params.Add('rnd=' + rndResult);
cod:=IdHTTP1.Post('http://sacred2-zone.ru/', params);

if pos ('Вы вошли как test',cod)<>0 then showmessage ('ok');
memo1.Text:=cod;
params.Free;

[aydar]

все проблема решена, всем спасибо

[lamer811]

ТС выложи пожалуйста решение своей проблемы

[aydar]

idHTTP1.AllowCookies := True;
cod := idHttp1.Get('http://sacred2-zone.ru/');
rndResult:= copy (cod,pos('input type="hidden" name="rnd" value="',cod)+38,3);

params:=tstringlist.create;
params.Add('user=логин');
params.Add('password=пароль');
params.Add('rem=1');
params.Add('a=2');
params.Add('ajax=1');
params.Add('rnd=' + rndResult);
cod:=IdHTTP1.Post('http://sacred2-zone.ru/index/sub/', params);
memo1.Text:=cod;
params.Free;

Не откажусь от +