Проблема с авторизацией

[Yazon2006]

Опыт программирования 2 дня

Мне надо авторизироваться на www.newrpg.ru.

На странице входа нашёл следующее:

<form ENCTYPE="multipart/form-data" method="post" action="http://www.newrpg.ru/login4.php">

На форме из input есть следующие параметры login, pass, diz.

Так вот получилось авторизоваться из под idHTTP:

 var params,responseres:TStringList;
begin

idhttp1.HandleRedirects:=true;
params:=TStringList.Create;
responseres:=TStringList.Create;
try
params.Add('login=XXX');
params.Add('pass=XXX');
params.Add('diz=2');

responseres.Text:=idHTTP1.Post('http://www.newrpg.ru/login4.php',params);

finally
params.free;
responseres.free;
end;

Но мне надо авторизоваться через WebBrowser, не получаеться:

procedure TForm1.Button1Click(Sender: TObject);
var
  EncodedDataString: string;
  PostData: OleVariant;
  Headers: OleVariant;
  i: integer;
begin { TForm1.Button1Click }
  // First, create a URL encoded string of the data
  EncodedDataString := 'login='+HTTPEncode('XXX')+'&'+
                       'pass='+HTTPEncode('XXX')+'&'+
                       'diz='+HTTPEncode('2');

  // The PostData OleVariant needs to be an array of bytes
  // as large as the string (minus the 0 terminator)
  PostData := VarArrayCreate([0, length(EncodedDataString)-1], varByte);

  // Now, move the Ordinal value of the character into the PostData array
  for i := 1 to length(EncodedDataString) do
    PostData[i-1] := ord(EncodedDataString[i]);

  Headers := 'Content-Type: multipart/form-data;'#10#13;

  // Parameters 2 and 3 are not used, thus EmptyParam is passed.
  WebBrowser1.Navigate('http://www.newrpg.ru/login4.php',
                       EmptyParam, EmptyParam, PostData, Headers);
end; { TForm1.Button1Click }

Может я не правильно создаю PostData запрос? Там ведь применяеться multipart/form-data ...
Или может причина в кукисах?.. Непонятно ничего!

[Mifody]

ну сразу видно "Опыт программирования 2 дня" , только без обид.
Вы отправляете application/x-www-form-urlencoded, а надо multipart/form-data .
Почитайте про индевский класс TIdMultipartFormData и будет вам счастье. Хотя я рекомендовал бы, для начала, поискать сайт с авторизацией application/x-www-form-urlencoded, там система такая, как Вы пытаетесь реализовать. Поучитесь для начала на них.

[Yazon2006]

Спасибо, буду пробовать)