отправка сообщений ВКонтакте [Delphi7]

[Кольша]

ну тогда авторизуйтесь по моему и все!

[unbanned]

нашел... ошибку
у меня get запрос был по адресу

http.Get('http://vk.com/?act=login&email=' + login + '&pass=' +pass);

с hash вроде тоже разобрался... осталось два вопроса

1й: что за параметр такой "ts"

и

2й: как отследить ушло сообщение или нет?

посмотрел, пост запрос ничего дельного не возвращает
что-то типо такого

<!--8892<!><!>0<!>6232<!>0<!><!json>{"v ersion":45,"msg_id":18670,"date":13 35335493,"newmsg":0,"online":0,"sex ":"2"}

пока наугад сделал так

 try
    test := http.Post('http://vk.com/al_im.php', post);
  finally
    if (pos('Ошибка', test) > 0) or (pos('ошибка', test) > 0) then
      result := False
    else
      result := true;
  end;

[Кольша]

 try
    test := http.Post('http://vk.com/al_im.php', post);
  finally
    if (pos('error', test) > 0) or (pos('msg_id', test) = 0) then
      result := False
    else
      result := true;
  end;

так не?

[unbanned]

ну наверное тогда

try
    test := http.Post('http://vk.com/al_im.php', post);
  finally
    if (pos('Ошибка', test) > 0) or (pos('msg_id', test) = 0) then
      result := False
    else
      result := true;
  end;

т.к. если неверный hash возвращает

<!--8892<!><!>0<!>6232<!>8<!>Ошибка доступа<!>

спасибо

а что за "ts" не знаете? без него сообщения отправляются, но все таки интересно

[Кольша]

Нет попробуйте посмотреть на странице диалога! Спасибо!=)

[unbanned]

еще возник вопрос с кодировкой...
латиница, цифры и знаки - нормально, а вот кирилица вообще криво отправляется

[Кольша]

ansitoutf8(s:string); utf8toansi(s:string);

[unbanned]

я почему то думал что в delphi 7 oem кодировка ну да ладно...