Trying to connect to openfire XMPP server...

murlin 2011-08-29, 21:12 #16

Member since Aug 2011 · 1 post
Group memberships: Members

In reply to post ID 3697
Subject: Connection from AGSxmpp to openfire

Good Day!!

I know other users asked the question and fixed it but i read all info and could not resolve mine. I will post my code and maybe someone can help me as well. The AddHandler xmpp.OnReadXml and AddHandler xmpp.OnWriteXml not even gets "handled" so no xml code generated. Everything is working on Gtalk settings, but not on any of my 3 openfire servers.

Here my code many of the code commented as i tested different settings:

Imports AGSXmpp
Imports AGSXmpp.protocol.client
Imports AGSXmpp.Collections
Imports AGSXmpp.protocol.iq.roster
Imports AGSXmpp.sasl
Imports AGSXmpp.net.dns
Imports AGSXmpp.Xml.Dom
Imports AGSXmpp.Xml.xpnet
Imports AGSXmpp.Xml
Imports System.Threading

Public Class Form1
    Public xmpp As New XmppClientConnection

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

      'Dim jidSender As Jid = New Jid("murlin@lintel.dyndns.org")
      Try

      xmpp.Server = "summer.dyndns.org"
      xmpp.Username = "summer"
      xmpp.Password = "500767"
      'xmpp.Resource = "TheApp"
      'xmpp.Priority = CType(10, Integer)
      'xmpp.Port = Integer.Parse(5222)
      'xmpp.UseStartTLS = False
      'xmpp.UseSSL = False
      'xmpp.RegisterAccount = False
      'xmpp.UseCompression = False
      xmpp.ConnectServer = "openfire.summer.dyndns.org"
      'xmpp.AutoResolveConnectServer = True

      xmpp.Open()

      AddHandler xmpp.OnReadXml, AddressOf ReadXLM
      AddHandler xmpp.OnWriteXml, AddressOf WriteXLM
      AddHandler xmpp.OnXmppConnectionStateChanged, AddressOf ConnectionStateChanged
      'AddHandler xmpp.OnSaslStart, AddressOf XmppCon_OnSaslStart
      AddHandler xmpp.OnMessage, AddressOf messageReceived
      AddHandler xmpp.OnAuthError, AddressOf loginFailed
      AddHandler xmpp.OnLogin, AddressOf loggedIn
      AddHandler xmpp.OnPresence, AddressOf Presence
      AddHandler xmpp.OnRosterStart, AddressOf Roster

      Catch ex As Exception
      MsgBox(ex.Message)
      End Try

    End Sub

I didn't add any other subs as addhandlers are not even get triggered.

I forgot one gets triggered after i press connect button second time and replies with a "1" that is connecting as far as i know:

Private Sub ConnectionStateChanged()
      MsgBox(xmpp.XmppConnectionState)
    End Sub

hope anyone can shed light on my problem as well!!

Thank You

Alex

2011-08-30, 08:05 #17

Member since Feb 2003 · 2700 posts · Location: Germany
Group memberships: Administrators, Members

Show profile ·

Link to this post

Are you sure that your Openfire servers are working correctly? Are all firewall rules and port forwarding rules in place?
Did you try to connect to them with an existing XMPP client like Psi, Pandion or others?

Alex

Alexander Gnauck
AG-Software