как залогиниться автоматом?

[element]

Сообщение от Pitbull

для Post:

Здраствуйте люди!
имею схожую проблему, не могу залогинится на сайт, пишу как указано, но компилятор выдает ошибку:

procedure TForm1.Button1Click(Sender: TObject);
var list: TStringList;
s: string;
response: TStringStream;
begin
response:=TstringStream.Create('');
list := TStringList.Create;
list.Add('req_username=rapget');
list.Add('req_password=123456');
try
s := IdHTTP1.Post('usd.mybb.ru/login.php',list,Response);
memo1.lines.text := response.DataString;
finally
list.Free;
response.free;
idHTTP1.Disconnect;
end;
end;

в ответ получаю:

[Error] Unit1.pas(44): Incompatible types: 'String' and 'procedure, untyped pointer or untyped parameter'



Pitbull, помоги пожалуста!

[Квэнди]

А если почитать текст ошибки ?...

[element]

Сообщение от Квэнди

А если почитать текст ошибки ?...

"несовместимые типы"?
я убрал s, теперь осталось так:

IdHTTP1.Post('usd.mybb.ru/login.php',list,Response);
в ответ ошибка:



что не так?

[Квэнди]

Для начала в post URL добавь HTTP://

[element]

ок, сенки довбавил.
теперь ошибки нет, но по прежнему - не заходит...
в memo возвращает хтмл (похоже это та-же страница с предложением зайти..), он довольно большой, постить его здесь?

[element]

люди, что делать, пробую так, тоже не входит

function UrlEncode(const S:string;NeedUTF8:boolean=false):st ring;
var I:integer;
W:UTF8String;
begin
Result:='';
if NeedUTF8 then W:=Utf8Encode(S) else W:=S;
For I:=1 to Length(W) do case W[I] of
'%',' ','&','=','@','.',#13,#10,'+',#128. .#255:Result:=Result+'%'+inttohex(o rd(W[I]),2);
else Result:=Result+W[I];
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var Source:TStringStream;
Fin:TFileStream;
begin
Source := TStringStream.Create(Format('req_us ername=%s&req_password=%s',[URLEncode('rapget'),
URLEncode('123456')]));
Fin:= TFileStream.Create('d:\rapget.html' , fmOpenWrite);
Http.Request.ContentType:='applicat ion/x-www-form-urlencoded';
try
Http.Post('http://usd.mybb.ru/login.php',Source,Fin);
finally
source.Free;
fin.Free;
end;
end;

[element]

все получилось только пришлось twebbrowser прикрутить.
помогла повторная передача запроса на индексную страницу.
спасибо всем помогавшим.

[saha]

Ребят помогите с куками. Вот почти всё работает вот токо Idhttp не передает куки webbrowser. чё я натупил с куками?

procedure TForm1.Button1Click(Sender: TObject);
var
    ss:TStrings;
    st,s:string;
    i:integer;
begin
    //Memo1.Clear;
    ss:=tstringlist.create;
    ss.Clear;
    ss.add('lo=login');
    ss.add('pa=pass');
         // cookie
         IdCookieManager1.cookieCollection.clear;
         s:=IdHTTP1.post('http://sayt.xx/login.php',ss);
         idHTTP1.get('http://sayt.xx/login.php');
         for i:=0 to IdCookieManager1.cookieCollection.count-1 do
         memo1.lines.add(IdCookieManager1.cookieCollection.items[i].cookieText);
         memo1.Lines.Text:=s;
         idHTTP1.disconnect;
         //копирование p=....... в переменную st
      st:=memo1.Text;
      st:=copy(st,pos('p=',st),length(st)-pos('p=',st));
      st:=copy(st,1,pos('">',st)-1);
    WebBrowser1.Navigate('http://sayt.xx/panel.php?l=xxxx&'+st);
     showmessage (st);
            
end;

[Квэнди]

а с чего вы взяли что Idhttp Должен передавать куки от Twebbrowser-а ?

[saha]

Ну как тогда после авторизации ввойти в аккаунт?