Delphi Studio > Примеры на Delphi Сеть Интернет > Авторизация на DLE сайте (IdHTTP). Пример на Delphi
Авторизация на DLE сайте (IdHTTP). Пример на Delphi7-05-2011, 03:06. Разместил: SkyLine32 |
Пример на Delphi для авторизации на DLE сайте с помощью компонента IdHTTP var LoginInfo, Response: TStrings; begin LoginInfo := TStringList.Create; Response := TStringList.Create; try LoginInfo.Add('login_name=MyLogin'); LoginInfo.Add('login_password=MyPass'); LoginInfo.Add('login=submit'); LoginInfo.Add('x=50'); LoginInfo.Add('y=11'); Response.Text := IdHTTP.Post('http://delphistudio.ru/index.php',LoginInfo); if Pos('logout',Response.Text)>0 then ShowMessage('Авторизовались!') else ShowMessage('Авторизация не удалась!'); finally LoginInfo.Free; end; end; Таким простым примером можно авторизоваться на многих сайтах Вернуться назад |