Отправить сообщение вконтакт

[mish@]

Ну вроде всё сделал, но сообщение не отправляется
Чё не так?

var
x: TStringList;
pf, ik, pic: string;
error: boolean;
i, n: integer;
begin
IdHTTP1.HandleRedirects:=false;
x:=TStringList.Create;
IdHTTP1.AllowCookies:=true;
x.Add('email=xxx');
x.Add('pass=xxx');
x.Add('expire=');
x.Add('vk=');
error:=false;
try
pf:=IdHTTP1.Post('http://login.vk.com/?act=login', x);
except
error:=true;
end;
if not(error) then
begin
x.Clear;
ik:=Copy(pf, Pos('value', pf)+7, 56);
x.Add('s='+ ik);
x.Add('op=slogin');
x.Add('redirect=1');
x.Add('expire=0');
x.Add('to=');
IdHTTP1.HandleRedirects:=true;
IdHTTP1.Request.CustomHeaders.Text := 'Cookie: remixsid='+ ik +';';
end;
end;


procedure TForm1.Button3Click(Sender: TObject);
var
a: TStringList;
buff, chas: string;
begin
buff:=idhttp1.Get('http://vkontakte.ru/mail.php?act=write');
Delete(buff, Pos('<!DOCTYPE', buff), Pos('name="chas"', buff));
Delete(buff, Pos('ame="chas"', buff), Pos('value="', buff) + 6);
Delete(buff, Pos('" />', buff), Length(buff));
chas:=buff;
a:=TStringList.Create;
a.Add('act=sent');
a.Add('ajax=1');
a.Add('misc=1');
a.Add('chas'+ chas);
a.Add('to_id=17063024');
a.Add('title=dima123');
a.Add('message=dimaETOpasha');
a.Add('to_ids=16091472');
a.Add('to_reply=0');
a.Add('toFriends=');
end;

[RIO]

Может проблема в версии Indy? Советую обновить.

[Alex2009]

У меня на 10й отправляет без проблем.

[mish@]

Ну код правильный?

Может проблема в версии Indy? Советую обновить.

Не подскажете где скачать и инструкцию по обновлению

[W0LF]

Это вам поможет

P.S.: http://kvendi.pp.ru/?p=89

[mish@]

Это вам поможет

XDDD
Но весь код я не хочу передирать.
===
Спасибо

[Alex2009]

А зачем периделывать,ставь Indy 10 и все,этот код работать будет.

[mish@]

При обновлении инди по инструкции на http://kvendi.pp.ru/?p=89, на последнем этапе ошибка

[Voody]

Может я что не понимаю, но вот вы добавляете параметры в А, а потом что??? Где отправка запроса с этими параметрами?

[W0LF]

mish@, зачастую ошибки появляються когда придыдущая версия Indy не была полностью удалена! Пройдитесь поиском по папке с Delphi ('Borland', если Delphi 7 как на скрине) и удалите все файлы имеющие в имени 'Id'...

P.S.: И НЕ КОГДА НЕ ЗАБЫВАЙТЕ ОСВОБОЖДАТЬ ПЕРЕМЕННЫЕ!!! x.Free и a.Free