Добрый день!
Подскажите в чем ошибка.
Авторизация проходит успешно, но не отправляется сообщение.
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
Data : TStringList;
http : TIdHTTP;
begin
http := TIdHTTP.Create(Form1);
http.AllowCookies := True;
http.HandleRedirects := True;
Data := TStringList.Create;
Data.add('username='+edit1.text);
Data.add('password='+edit2.text);
Data.add('remeber=on');
http.Request.UserAgent :='Opera/9.80 (Windows NT 5.1; U; ru) Presto/2.7.62 Version/11.01';
try
s:= http.post('http://site.ru/login.php',Data);
except
end;
if Pos('Logout',s)<>0 then
Data.add('to_uid='+edit3.text);
Data.add('body='+memo1.text);
try
s:= http.post('http://site.ru/ajax/cammodel_send_msg.php',Data);
except
end;
end;