[sXciNe]

авторизация на юкозе.
вот код

Код:

var  Data:TstringList;
StrPage, ssylka:string;
begin
 idhttp1.HandleRedirects:=true;
 StrPage:=idhttp1.Get('http://www.unet.com/dolog/');
 Data:=TstringList.Create;
 Data.Add('email='edit1.text);
 Data.Add('pass='edit2.text);
 data.add('goto=desktop');
 data.add('x=0');
 data.add('y=0');
 data.add('rnd=972');
 StrPage:=idhttp1.Post('http://www.unet.com/dolog', Data);
 if Pos('Logout', StrPage)<>0 then
  Label1.Caption:='Авторизовались'
 else Label1.Caption:='Не авторизовались';
 Data.Free;

почему не авторизовывается?
где ошибка?

[friz]

надо сперва знать код страницы..
ну а по коду:

Код:

var  Data:TstringList;
StrPage, ssylka:string;
begin
 idhttp1.HandleRedirects:=true;
 StrPage:=idhttp1.Get('http://www.unet.com/dolog/');
 Data:=TstringList.Create;
 Data.Add('email='+edit1.text);
 Data.Add('pass='+edit2.text);
 data.add('goto=desktop');
 data.add('x=0');
 data.add('y=0');
 data.add('rnd=972');
 StrPage:=idhttp1.Post('http://www.unet.com/dolog', Data);
 if Pos('Logout', StrPage)<>0 then
  Label1.Caption:='Авторизовались'
 else Label1.Caption:='Не авторизовались';
 Data.Free;

[sXciNe]

сейчас можно поподробнее?
в делфи то я не так давно занимаюсь.