Форум на Исходниках.RU

Jabber клиент. TJabberClient

LeroyDow — Tue, 21 Aug 2018 02:31:16 +0000

LeroyDow: -

- ICQ Jabber- JID- XML . - ,

- c jabber:iq:roster. .

- JID , jid jid userdomain subscription :

none - ,

to - ,

from - ,

both - , .

br /
Jabber -

-:

Jabber клиент. TJabberClient

labvictx — Sat, 31 Mar 2018 14:07:36 +0000

labvictx: seryal
[DCC Error] janXPathTokenizer.pas(202): E2010 Incompatible types: 'TTokenOperator' and 'string'
[DCC Warning] janXPathTokenizer.pas(207): W1050 WideChar reduced to byte char in set expressions. Consider using 'CharInSet' function in 'SysUtils' unit.
[DCC Warning] janXPathTokenizer.pas(232): W1050 WideChar reduced to byte char in set expressions. Consider using 'CharInSet' function in 'SysUtils' unit.
[DCC Warning] janXPathTokenizer.pas(233): W1050 WideChar reduced to byte char in set expressions. Consider using 'CharInSet' function in 'SysUtils' unit.
[DCC Error] janXPathTokenizer.pas(315): E2010 Incompatible types: 'TTokenOperator' and 'string'
[DCC Error] janXPathTokenizer.pas(320): E2010 Incompatible types: 'TTokenOperator' and 'string'
[DCC Warning] janXPathTokenizer.pas(331): W1050 WideChar reduced to byte char in set expressions. Consider using 'CharInSet' function in 'SysUtils' unit.
[DCC Warning] janXPathTokenizer.pas(332): W1050 WideChar reduced to byte char in set expressions. Consider using 'CharInSet' function in 'SysUtils' unit.
[DCC Warning] janXPathTokenizer.pas(361): W1050 WideChar reduced to byte char in set expressions. Consider using 'CharInSet' function in 'SysUtils' unit.
[DCC Fatal Error] janXMLparser2.pas(7): F2063 Could not compile used unit 'janXPathTokenizer.pas'

Delphi 2009

Jabber клиент. TJabberClient

YuraZZZ — Thu, 22 Jul 2010 06:44:24 +0000

YuraZZZ: Ясно, спасибо.

Jabber клиент. TJabberClient

seryal — Thu, 22 Jul 2010 02:05:52 +0000

seryal: Не нашел я исходники под Delphi 7.
Могу подсказать, что я использовал TNT компоненты и их библиотеку классов для работы с юникодом.
Также для авторизации по DIGEST-MD5 использовался Indy9, код для авторизации я подсмотрел в исходниках Exodus.

Jabber клиент. TJabberClient

seryal — Wed, 21 Jul 2010 02:17:59 +0000

seryal: Блин, вылетело из головы совсем, дел куча, написал напоминание в телефон, посмотрю сегодня.

Jabber клиент. TJabberClient

YuraZZZ — Tue, 20 Jul 2010 11:41:28 +0000

YuraZZZ: Не нашел под D7 ?

Jabber клиент. TJabberClient

v1m — Fri, 16 Jul 2010 10:20:33 +0000

v1m:

Цитата YuraZZZ @ 14.07.10, 14:39

[Fatal Error] Jabberd10.dpk(35): Required package 'IndyCore' not found
[Fatal Error] Required package 'IndyProtocols' not found

это вообще 10индеец как бы так)
seryal написал бы лучше на winsock))

Jabber клиент. TJabberClient

seryal — Thu, 15 Jul 2010 10:52:42 +0000

seryal: да, ну там тоже самое.

Jabber клиент. TJabberClient

YuraZZZ — Thu, 15 Jul 2010 10:49:45 +0000

YuraZZZ: Simple Jabber component for Delphi 2009

http://sourceforge.net/projects/tjabberclient/files/

TJabberClient by seryal
Твой ?

Jabber клиент. TJabberClient

seryal — Thu, 15 Jul 2010 10:18:25 +0000

seryal: Сегодня погляжу.

Jabber клиент. TJabberClient

YuraZZZ — Thu, 15 Jul 2010 10:15:54 +0000

YuraZZZ: Да, очень интересно.
Посмотри пож. если конечно не сильно напрягаю.

Jabber клиент. TJabberClient

seryal — Thu, 15 Jul 2010 09:29:52 +0000

seryal: в Delphi 7 проблема с юникодом, поэтому я как-то отказался от использования этой версии.
Хотя начинал, в Delphi 7. Если SVN базу не прибил то может в загашниках где и лежит версия для семерки.
И в семерке мне приходилось использовать сторонние библиотеки для работы с юникодом.
Если интересно, могу поглядеть версию для Delphi 7.

Jabber клиент. TJabberClient

YuraZZZ — Thu, 15 Jul 2010 09:06:05 +0000

YuraZZZ: Delphi 7
пробую переделать под нее.
К инди пути исправил. Компонент установился.

Чуть изменил в модуле: Jabber.pas

function TJabberClient.GetSASLResponse(AStr: string): string;
var
...
//tmp: TBytes;
tmp: TIdBytes;

procedure TJabberClient.ParseReceive(Buffer: Pointer; BufLen: LongWord);
...
{исправлено Юра XMLStr := XMLStr + UTF8ToString(StrEnd);}
XMLStr := XMLStr + StrEnd;
...
в итоге

---------------------------
Application Error / Ошибка приложения
---------------------------
Exception / Исключительная ситуация EAccessViolation in module / в модуле demoapp.exe at / по адресу 00979B47.
Access violation at address / Нарушение доступа по адресу 0097AB47. Write/Запись of address / по адресу 03E7A917.
---------------------------
ОК
---------------------------

---------------------------
Application Error / Ошибка приложения
---------------------------
Exception / Исключительная ситуация EOSError in module / в модуле demoapp.exe at / по адресу 0000D56A.
System Error. Code / Системная ошибка. Код: 5.

Отказано в доступе.
---------------------------
ОК
---------------------------

Rich текст:

Connected
---------

DIGEST-MD5PLAIN

bm9uY2U9IjM4NTc1NDIzNzkiLHFvcD0iYXV0aCIsY2hhcnNldD11dGYtOCxhbGdvcml0aG09bWQ1LXNlc3M=
dXNlcm5hbWU9InRlc3RqYWJiZXIiLHJlYWxtPSJ3d3cubmFkcmEuY29ycCIsbm9uY2U9IjM4NTc1NDIzNzkiLGNub25jZT0iYmIxZDRmZjZiYTg1ZjAwNGRhNTY5N2Y1YjFlZjYxNGMiLG5jPTAwMDAwMDAxLHFvcD1hdXRoLGRpZ2VzdC11cmk9InhtcHAvd3d3Lm5hZHJhLmNvcnAiLGNoYXJzZXQ9dXRmLTgscmVzcG9uc2U9NzZkNGM2NjI3NzAyNmUyMDgyYzkyNzAyODE4OWE2OWE=

Disconnect
---------
Login Error
---------

Jabber клиент. TJabberClient

seryal — Thu, 15 Jul 2010 02:52:33 +0000

seryal: Версия Delphi какая?

Jabber клиент. TJabberClient

YuraZZZ — Wed, 14 Jul 2010 14:39:40 +0000

YuraZZZ: Поглядим. Как раз интересует данная тема. Спс.

Добавлено 14.07.10, 14:50
Build
[Fatal Error] Jabberd10.dpk(35): Required package 'IndyCore' not found
[Fatal Error] Required package 'IndyProtocols' not found
:o

Jabber клиент. TJabberClient

seryal — Fri, 20 Nov 2009 11:55:22 +0000

seryal: С наилучшими пожеланиями.
Написал простейшую компоненту для работы с XMPP протоколом, потестируйте пожалуйста.
Может кому пригодится для личных нужд.
Да и нужна Delphi >= 2009 на нижних версиях буду проблемы с юникодом.

С уважением.