关于mswinsck.ocx问题,怎么关闭连接,继续执行下面的程序?

zhengli1999 2005-10-18 02:07:07

Private WithEvents objWinSock As MSWinsockLib.Winsock
Private bConnected As Boolean

Public Sub connect()
Set objWinSock = New MSWinsockLib.Winsock
Dim dtStart As Date
dtStart = Now()
objWinSock.Protocol = sckTCPProtocol
objWinSock.RemoteHost = "192.168.0.98"
objWinSock.RemotePort = 9000
objWinSock.connect
Do Until bConnected
DoEvents
If DateDiff("s", dtStart, Now) > 30 Then
Err.Raise vbObjectError, "Error", "连接超时"
End If
Loop
objWinSock.SendData "11166"
Do Until objWinSock.State = sckClosing
DoEvents
Loop
objWinSock.Close
End Sub

Private Sub objWinSock_DataArrival(ByVal bytesTotal As Long)
Dim strTemp
objWinSock.GetData strTemp, vbString
strData = strData & strTemp
End Sub

Private Sub objWinSock_Connect()
bConnected = True
End Sub

Private Sub objWinSock_Error(ByVal Number As Integer, Description As String, _
ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, _
ByVal HelpContext As Long, CancelDisplay As Boolean)

Err.Raise vbObjectError, "Error", "Winsock Error: " & Number & vbCrLf & Description
CancelDisplay = True
End Sub
=====================================================
上面是我用VB写的一个DLL的源程序.

以下是调用这个DLL的ASP文件.
=====================================================
<BODY>
<%
Dim obj
Set obj = Server.CreateObject("congc2.concls2")
obj.Connect()
set obj=nothing
%>
发送成功
</BODY>
=====================================================
目前我服务器已经可以接收到"11166"这个数据.
但是..asp页面就一直不能继续执行输出"发送成功",出现假死状态

请问我要怎样发送数据后.显示"发送成功"的提示?.

...全文

188 3 打赏收藏转发到动态举报

写回复

用AI写文章

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

zhengli1999 2005-10-19

打赏
举报

都没有人回答...
自己解决,贴出答案大家共享

主要是修改了原来的Connect()函数
调试成功后,代码如下:

Public Function connect() As String
Set objWinSock = New MSWinsockLib.Winsock
Dim strCmd
Dim dtStart As Date
dtStart = Now()
objWinSock.Close
objWinSock.Protocol = sckTCPProtocol
objWinSock.RemoteHost = "192.168.0.98"
objWinSock.RemotePort = 9000
objWinSock.connect
Do Until bConnected
DoEvents
If DateDiff("s", dtStart, Now) > 30 Then
Err.Raise vbObjectError, "Error", "连接超时"
End If
Loop
strCmd = "11166" & vbCrLf
objWinSock.SendData strCmd
DoEvents
Do While objWinSock.State = 8
If DateDiff("s", dtStart, Now) > 60 Then
Err.Raise vbObjectError, "Error", "请求超时"
End If
Loop
objWinSock.Close
connect = "发送OK成功."
End Function

zhengli1999 2005-10-18