在网络传输数据时哪会有那么多问题呢?
无论你发送的是字符串或是字节数组都是一样的,就是写清楚变量名就搞定了。
你所写的函数说明你原来有拥有字符串变量,你直接发不就可以了吗?为什么
还要做成字节数组在传送?
以下是你的代码:
=============================================
'这里原来是字符串
Private Function sendmessage(ByVal senmess As String) As String
Dim us()
Dim i
ReDim us(iii)
'这里却把字符串转换成16进制字符,还是变体类型不是字节类型或字符类型。
For i = 0 To Len(senmess)
Label1.Caption = LBound(us)
us(i) = Hex(Asc(Mid(senmess, i + 1, 1)))
Next i
'这里才发送,还写错了。正确的写法是: Winsock1.SendData us
Call Winsock1.SendData( us )
'不用在数组后加入括号“()”,而且函数或方法在使用是只有三种格式
'1:函数 参数,...
'2:Call 函数(参数,...)
'3:变量=函数(参数,...) 或 表达式<>函数(参数,...) ...
Me.Winsock1.SendData (us()) 这一句老是报错!
End Function
==================================================
如果对于我来说我会这样做:
'直接把字符串发出去,接收时直接用字符串变量接收就行了。
'哪还用得着转来转去的。
Winsock1.SendData senmess
我的代码如下:
Private Function sendmessage(ByVal senmess As String) As String
Dim us()
Dim i
ReDim us(iii)
For i = 0 To Len(senmess)
Label1.Caption = LBound(us)
us(i) = Hex(Asc(Mid(senmess, i + 1, 1)))
Next i
Me.Winsock1.SendData (us()) 这一句老是报错!
End Function
请帮帮忙!