Re: SendMessage eata type mismatch error (General questions)

of course...

FUNCTION SendMsg
PARAMETRES lcMsg, lcWho
LOCAL oMsg, lnSec
oMsg = NULL
oMsg = CREATEOBJECT( WeOnlyDo.XMPPMessage )
oMsg.Text = ALLTRIM(lcMsg)
THIS.oXMPP.SendMessage(lcWho,oMsg)
lnSec = SECONDS()
DO WHILE THIS.oXMPP.State <> 5 .AND. (SECONDS()-lnSec)<2
DOEVENTS
ENDDO
IF !EMPTY(oSprava.ErrorCode)
DO S_ErrMes WITH (oSprava.ErrorText)
RETURN .F.
ELSE
RETURN .T.
ENDIF