![]() |
Delphi tidhttp post get
Желательно доходчиво и доступно, тупо от нуля...
Гуглил везде обсуждение и "как то" вроде понимаешь но не до конца... Заранее спасибо за ссылочку! Вот еще порыл вроде нашел... http://www.swissdelphicenter.ch/torry/showcode.php?id=1855 |
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; вот сделал на компоненте новом что то я не въезжаю что не правильно ... |
шас зделаю....
там еще 2 поля передается Код:
<input type="hidden" name="idkey" value="2Ep1217705940ymil6ll5p">Код:
POST /passport?mode=auth HTTP/1.1 |
| Время: 00:00 |