[Alegun]

Оффтоп:

Сообщение от NumLock

включи куки

Краткость сестра таланта

Код:

var
HTTP: TIdHTTP;
SP: String;
CM: TidCookieManager;
Data:Tstringlist;
begin
Data:= TStringList.Create;
CM:= TidCookieManager.Create(Http);
Http.AllowCookies:= true;
Http.CookieManager:= CM;
Http.HandleRedirects:= true;

Http.Request.UserAgent:= 'Opera/9.80 (Windows NT 6.1; U; ru) Presto/2.10.229 Version/11.61';
Http.Request.Accept:= '*/*';
Http.Request.AcceptLanguage:= 'ru-RU,ru;q=0.9,en;q=0.8';


Data.Add('username='); // Логин
Data.Add('password='); // Пароль

try
SP:= Http.Post('http://*/*login', Data);
except
end;
 if pos('reg.php',SP) <> 0 then
  ShowMessage('Неверный логин или пароль')
 else
  ShowMessage('Всё нормально, авторизовались');
Data.Free;
// Soft.Bz