Delphi Studio > Примеры на Delphi Сеть Интернет > Авторизация на DLE сайте (IdHTTP). Пример на Delphi

Авторизация на DLE сайте (IdHTTP). Пример на Delphi


7-05-2011, 03:06. Разместил: SkyLine32
Авторизация на DLE сайте (IdHTTP). Пример на Delphi

Пример на 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;

Таким простым примером можно авторизоваться на многих сайтах

Вернуться назад
rss