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