Jabber per dorXMPPClient

**CCRDude**

Ich versuche aktuell, mich per Jabber zu verbinden, um Nachrichten abzusetzen. Bei der Suche nach "fertigen" Delphi-Komponenten habe ich eigentlich, neben kommerziellen, nur dorXMPPClient.pas aus

DelphiOnRails gefunden (einzige Abhängigkeit:

superobject). Inklusive superobject per git ausgecheckt, losgelegt...

Nun ist das noch sehr nahe am Protokoll implementiert, und dummerweise so voller anonymer Funktionen und gotos, dass ich mit meinem (Delphi XE) Debugger nicht wirklich durchsteige; einen Vergleich mit der XMPP-Doku macht das zudem auch schwierig. Und zu guter letzter kann die XE-Codeformatierung mit anonymen Methoden auch nicht so recht und der Linker steigt ständig bei diesen irgendwie mit Internal Errors aus, dann ist jeweils ein IDE-Neustart plus Rebuild angesagt.

Aber genug gejammert, mein Stand jetzt:

zusammenfalten · markieren

Delphi-Quellcode:

			function TJabberNotificationTransmitter.SendNotification(ANotification: TNotification): boolean;

var

   jc: TXMPPClient;

   msg: IXMLNode;

   msgbody: IXMLNode;

   res: TXMPPResult;

   iq: IXMPPIQ;

   p: IXMPPPresence;

begin

   Result := false;

   AllocConsole;

   jc := TXMPPClient.Create;

   try

      IXMPPClient(jc).OnReadyStateChange := DoJabberReadyState;

      IXMPPClient(jc).OnError := DoJabberError;

      IXMPPClient(jc).OnTrace := DoJabberTrace;

      IXMPPClient(jc).OnIQ := DoJabberIQ;

      IXMPPClient(jc).OnPresence := DoJabberPresence;

      IXMPPClient(jc).OnMessage := DoJabberMessage;

      IXMPPClient(jc).OnSynchronize := DoJabberSynchronize;

      res := IXMPPClient(jc).Open(FUsername, FPassword, 'NotificationSpreader', FHost, FPort, []); // xoPlaintextAuth

      repeat

      until IXMPPClient(jc).ReadyState = rsAuthenticated;

      Result := (res = xOK);

      if res = xOK then begin

         try

            Sleep(2000);

            p := TXMPPMessage.CreatePresence(ptNone, psAway, 'Sending notification...');

            IXMPPClient(jc).SendXML(p);

            Sleep(2000);

            msg := TXMPPMessage.CreateMessage(mtChat, FRecipient, FUsername + '/NotificationSpreader', '');

            msgbody := msg.Append('body');

            msgbody.Text := ANotification.Title + #13#10 + ANotification.Text;

            IXMPPClient(jc).SendXML(msg);

            Sleep(2000);

         finally

            IXMPPClient(jc).Close;

         end;

      end;

   finally

      jc.Free;

   end;

end;

Soweit funktioniert das, nur hat das dreifache Sleep natürlich der Teufel in Person da reingeschrieben, selbst wenn ich das Teil selber threaden sollte, mag ich das (unh auch kein WaitFor...) einfach nicht haben.

Hat jemand schon mit dem Teil gearbeitet und es hinbekommen, über Events jeweils zum richtigen Zeitpunkt zu agieren?

Jabber per dorXMPPClient

Jabber per dorXMPPClient

Forumregeln