ОП
Олеся Пируева
НАРОД! Как запилить авторизатор на Delphi???
Имею код:
procedure TForm1.button2Click(Sender: TObject);
var par:TStringList; page:string; num:Integer;
begin
par:=TStringList.Create;
par.Add('mode=login');
par.Add('password=БЛАБЛА');
par.Add('remember=0');
par.Add('username=БЛАБЛА) ;
page:=idhttp1.Post('http://pikabu.ru/ajax/ajax_login.php',par);
num:=Pos('logout',page);
if Pos('logout',page)>0 then Edit1.Text:='LOL' else Edit1.Text:='UNLOL';
memo1.Text:=page;
Edit2.Text:=IntToStr(num);
end;
Не работает, почему?