clssgip.cls

BREW平台上实现的一个聊天系统

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "ClsSgip"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False

Private WithEvents m_Sgip As SGIPLib.PSgip
Attribute m_Sgip.VB_VarHelpID = -1
Public Event Deliver(bStrSPID As String, bStrMobileID As String, bMessageCoding As Byte, lMessageLength As Long, MessageContent)
Public Property Let Para(ByVal eInParaType As SGIPLib.tagParaType, ByVal vNewValue As Long)
   m_Sgip.Para(eInParaType) = vNewValue
End Property
Public Property Let ExpireTime(ByVal vNewValue As String)
   m_Sgip.ExpireTime = vNewValue
End Property

Public Property Let AgentFlag(ByVal vNewValue As Integer)
   m_Sgip.AgentFlag = vNewValue
End Property

Public Property Let FeeMobileID(ByVal vNewValue As String)
   m_Sgip.FeeMobileID = vNewValue
End Property
   
Public Property Let FeeType(ByVal vNewValue As Integer)
   m_Sgip.FeeType = vNewValue
End Property

Public Property Let FeeValue(ByVal vNewValue As String)
   m_Sgip.FeeValue = vNewValue
End Property

Public Property Let GivenValue(ByVal vNewValue As String)
   m_Sgip.GivenValue = vNewValue
End Property

Public Property Let MessageCoding(ByVal vNewValue As Integer)
   m_Sgip.MessageCoding = vNewValue
End Property

Public Property Let MessageType(ByVal vNewValue As Integer)
   m_Sgip.MessageType = vNewValue
End Property

Public Property Let MobileIDFix(ByVal vNewValue As String)
   m_Sgip.MobileIDFix = vNewValue
End Property

Public Property Let MoreLateToMTFlag(ByVal vNewValue As Integer)
   m_Sgip.MoreLateToMTFlag = vNewValue
End Property

Public Property Let Priority(ByVal vNewValue As Integer)
   m_Sgip.Priority = vNewValue
End Property

Public Property Let Reserve(ByVal vNewValue As String)
   m_Sgip.Reserve = vNewValue
End Property

Public Property Let ScheduleTime(ByVal vNewValue As String)
   m_Sgip.ScheduleTime = vNewValue
End Property

Public Property Let SeviceType(ByVal vNewValue As String)
   m_Sgip.SeviceType = vNewValue
End Property

Public Property Let RegisteredDeliveryFlag(ByVal vNewValue As Integer)
   m_Sgip.RegisteredDeliveryFlag = vNewValue
End Property

Public Property Let SPID(ByVal vNewValue As String)
   m_Sgip.SPID = vNewValue
End Property

Public Property Let spnumber(ByVal vNewValue As String)
   m_Sgip.spnumber = vNewValue
End Property

Public Property Let TPpid(ByVal vNewValue As Integer)
   m_Sgip.TPpid = vNewValue
End Property

Public Property Let TPudhi(ByVal vNewValue As Integer)
   m_Sgip.TPudhi = vNewValue
End Property

Public Property Let Version(ByVal vNewValue As Integer)
   m_Sgip.Version = vNewValue
End Property

Private Sub Class_Initialize()
   Set m_Sgip = New SGIPLib.PSgip
End Sub

Private Sub Class_Terminate()
   Set m_Sgip = Nothing
End Sub

Private Sub m_Sgip_Deliver(ByVal bStrSPID As String, ByVal bStrMobileID As String, ByVal lTP_pid As Long, ByVal lTP_udhi As Long, ByVal bMessageCoding As Byte, ByVal lMessageLength As Long, ByVal MessageContent As Variant, ByVal bstrReserved As String)
   RaiseEvent Deliver(bStrSPID, bStrMobileID, bMessageCoding, lMessageLength, MessageContent)
End Sub

Public Function Init() As Long
   Init = m_Sgip.Init(0, "Cat4Sgip.dat", 60000, App.Path)
End Function

Public Function Bind() As Long
   Dim i As Integer
   Dim lngRet As Long
   frmMain.staBar.Panels(1).Text = "正在建立连接......"
   
   lngRet = m_Sgip.Bind(g_Ini.DataBase.ip, _
                        g_Ini.DataBase.port, _
                        g_Ini.DataBase.name, _
                        g_Ini.DataBase.password)
         
   If lngRet <> 0 Then
      frmMain.staBar.Panels(1).Text = "连接失败" & lngRet
   Else
      frmMain.staBar.Panels(1).Text = "连接成功"
   End If
   Bind = lngRet
End Function

Public Function Unbind() As Long
   Unbind = m_Sgip.Unbind
   Do While m_Sgip.Info(ThreadState) Mod 1000 <> 0
       Sleep 300
   Loop
End Function

Public Function Active() As Long
   Dim lngRet As Long
   If m_Sgip.Info(WaitSendNumber) > 0 Then
      lngRet = Bind
      m_Sgip.Submit "", ""
   End If
   Active = lngRet
End Function

Public Function Submit(ByVal bStrMobileCode As String, ByVal pMessageContent As Variant) As Long
   Dim lngRet As Long
   lngRet = m_Sgip.Submit(bStrMobileCode, pMessageContent)
   Submit = lngRet
End Function