[delm1k]

Добрый день!

Подскажите в чем ошибка.
Авторизация проходит успешно, но не отправляется сообщение.

Код:

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;

[lmikle]

Кусок твоего кода:

Код:

Data.Free;
Data.add('to_uid='+edit3.text);
Data.add('body='+memo1.text);
try
s:= http.post('http://site.ru/ajax/cammodel_send_msg.php',Data);

Ты сначала УНИЧТОЖАЕШЬ объект Data, а потом пытаешься с ним работать.

[delm1k]

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

Кусок твоего кода:

Код:

Data.Free;
Data.add('to_uid='+edit3.text);
Data.add('body='+memo1.text);
try
s:= http.post('http://site.ru/ajax/cammodel_send_msg.php',Data);

Ты сначала УНИЧТОЖАЕШЬ объект Data, а потом пытаешься с ним работать.

Это я забыл убрать, и без него тоже не работало, не могу понять почему не работает в чем ошибка

[lmikle]

Скорее всего, там еще передаются дополнительные скрытые поля, значения в которых приходят после логина. Посмотри либо в самой странице, либо в трейсере трафика.