Jabber Client, Get Message

rtomazini · September 21, 2023, 2:27pm

Hi, I am creating a chat project in Delphi Pascal, with Jabber and Open Fire. The oldest version is this:

But when I try received messages from others clients, like spark, I get only trash and no message, like the picture:

in this picture, I receive when the other client types.

A part of the code:

gist.github.com

https://gist.github.com/rtomazini42/e770e3a679e37625b7ddfe8419eeeecb

fmxJabberClient.pas

{ -------------------------------------------------------------------------------
  Procedure: TfmxJabberClient.OnMessageReceivedProc
  Arguments: AFrom, AMessage: string
  Result:    None
  ------------------------------------------------------------------------------- }
procedure TfmxJabberClient.OnMessageReceivedProc(AFrom, AMessage: string);
begin
  if assigned(fOnMessageReceived) then
    fOnMessageReceived(AFrom, AMessage);
end;

frameChat.pas

unit frameChat;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, 
  FMX.Types, FMX.Graphics, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.StdCtrls,
  FMX.ListView.Types, FMX.ListView.Appearances, FMX.ListView.Adapters.Base,
  System.ImageList, FMX.ImgList, FMX.Layouts, FMX.ListBox, FMX.ListView,
  FMX.Controls.Presentation, FMX.Objects, Alcinoe.FMX.Memo, FMX.TextLayout,

This file has been truncated. show original

frmContacts.pas

unit frmContacts;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
  FMX.ListView.Types, FMX.ListView.Appearances, FMX.ListView.Adapters.Base,
  Alcinoe.FMX.Objects, FMX.ListView, FMX.TabControl, FMX.Objects,
  FMX.ListBox, FMX.Controls.Presentation, FMX.StdCtrls, FMX.Layouts, fmxJabberClient, CommonHeader, FmxJabberTools,

This file has been truncated. show original

So I would like to know if the message protocol has changed in OpenFire and how do I receive it?

Thanks in advance

rtomazini · September 21, 2023, 2:27pm

in this I received a message, but the same of the before.

guus · September 25, 2023, 10:16am

I can only imagine that the code is displaying the wrong property of a message that it receives. I have not investigated the implementation (as that’s rather large, undocumented and written in a language that I do not master).

The protocol that is implemented by Openfire to send and receive chat messages is called XMPP. You can find its specifications in XMPP | Specifications

I suspect that RFC-6121 is of most interest to you, particularly section 5.

rtomazini · September 27, 2023, 12:03pm

Thanks for help!

The apps did arent in the same encoder version of text.
My application was also detecting signs that the other person was writing and playing in the chat, I resolved that.
Thanks really for the help.