Delphi 7 + Skype: как получить текст входящего сообщения?

Question

[KaleevAS]

Подскажите как при помощи Skype API из Delphi 7 получать тексты входящих сообщений???

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

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

Поэтому очень нужна ваша помощь.

Answer 1

[zed]

https://support.skype.com/en/faq/FA214/what-is-the...

some features of the API will stop working with Skype for desktop. For example, delivery of chat messages using the API will cease to work. However, we will be extending support for two of the most widely used features – call recording and compatibility with hardware devices – until we determine alternative options or retire the current solution.

Вот тут описывается один странный метод, как можно слушать сообщения скайпа без API: habrahabr.ru/post/235007

Answer 2

[Владимир Кузьмин]

Здравствуйте.
Столкнулся с тем же. Как видно из резюме со support.skype.com - вероятно это тот самый случай с подрезанием "API".
У меня событие возникает, но при условии фокусировки на чате с тем человеком, откуда пришло сообщение.
Если фокус на другом чате - событие не возникает.
Решил этот вопрос опросом последних сообщений по всем чатам через IChat , IChatMessageCollection; IChatMessage;
Если появились новые сообщения в IChatMessageCollection читаю IChatMessage.Body.