Показать сообщение отдельно
  #2  
Старый 09.01.2012, 23:19
ApxaHGe1 ApxaHGe1 вне форума
Активный
 
Регистрация: 08.04.2008
Адрес: Нижний новгород
Сообщения: 311
Репутация: 38
По умолчанию

Ну наверное правильнее будет так

Код:
procedure TForm2.Button1Click(Sender: TObject);
var logo:TstringList;
StrPage, ssylka:string;
begin
 ssylka:='http://borncash.com/';
 IdHTTP2.HandleRedirects:=true;
logo:=TstringList.Create;
Logo.Add('lb_login=login') ;
logo.Add('lb_password=password');
logo.Add('lb_remember=true');
StrPage:=IdHTTP2.Post(ssylka, logo);
 if pos ('[logout]', StrPage) <>0 then
 ShowMessage('OK' )
 else
 ShowMessage('NO');
logo.free;
end;

А ты сначала делаешь POST запрос, потом уже данные добавляешь в logo .....
Ответить с цитированием