ANTICHAT — форум по информационной безопасности, OSINT и технологиям

http://www.bit-team.com/index.php?showtopic=1053&st=0

что именно не понятно

вообще то про инди куча везде инфы, я сам недавно искал когда чекер на делфи писал(правда все равно на сокетах переписал). так что не отмазывайся что гугл и яша не работает.

вешаю на кнопочку

procedure TForm1.Button1Click(Sender: TObject);
var
data: TIdMultiPartFormDataStream;
begin
data := TIdMultiPartFormDataStream.Create;
try
{add the used parameters for the script}

data.AddFormField('login', '111');
data.AddFormField('passwd', '222);
data.AddFormField('Войти', 'submit');
{ Call the Post method of TIdHTTP and read the result into TMemo}
Memo1.Lines.Text := http.Post('http://mail.yandex.ru/pda/', data);
finally
data.Free;
end;
end;

нефига не пашет...

Гуру хелп плиз, лучше всего разбирать на примерах

Как по мне ТСтрингЛист попроще в качестве постдаты будет... вотъ подправил:

Сначала узнать что и куда передавать!
http://pda-passport.yandex.ru/passport?mode=auth
Данные POST как минимум
login=vova
passwd=123

очень быстрый компонент GET/POST <тыц>

neprovad можно на примере, слабо догоняю

procedure TForm1.Button1Click(Sender: TObject);
var
SHttp: TSwinHttp;
begin
SHttp := TSwinHttp.Create();
SHttp.InThread := false; // переводим в синхронный режим
SHttp.Post('http://mail.yandex.ru/pda/', 'login=111&passwd=222' );
if SHttp.Error = 0 then // если всё успешно
Memo1.Lines.LoadFromStream(SHttp.Response.Content) ;
SHttp.Free;

end;

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