vb下调用使用须知.txt

本目录内所有代码仅作指导用户编程之用,用户如果要作为 商业用途,建议使用正版软件进行编译. 开发环境说明： delphi demo : delphi 6.0 vc de

'如果想工作在无窗口环境下
'可把网络事件工作模式设置为0或1
Private Sub miStartServer_Click()
    Dim mess(1 To 1024) As Byte
    Dim result As Integer
    result = SetWorkMode(1) '设置网络事件工作模式
    If result = 0 Then
        Form1.addtext ("blocking")
    Else
        Form1.addtext ("nonblocking")
    End If
'    result = start_gprs_server(Form1.hwnd, WM_USER + 103, srvport, mess(1)) '使用消息机制
    result = start_gprs_server(1, 1, srvport, mess(1))
End Sub

'当用户把网络事件工作模式设置为0或1时(SetWorkMode)
'可以利用轮询方式来获取数据,而不需要采用消息机制
Private Sub Timer3_Timer()
      Dim lpPrevWndProc As Long
      Dim pcount As Long
      Dim rvdata As data_record
      Dim mess(1 To 1024) As Byte
      Dim result As Long
      '调用do_read_proc函数处理结果
      result = do_read_proc(rvdata, mess(1), Form1.miAnswer.Checked)
      If result = 0 Then           
        If rvdata.m_data_len > 0 Then
               process 
        end If              
        If rvdata.m_data_len = 0 Then
               pollusertable
        End If
      End If
End Sub