怎么用winsock控件发广播?

知行职场-雷曼 2000-07-07 11:04:00
用UDP协议.
...全文
269 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
shines77 2000-08-10
  • 打赏
  • 举报
回复
关注.
forise 2000-08-08
  • 打赏
  • 举报
回复
'/////////////////////////////////////////////////////////////////////
'//名称: SendData
'//功能: send command to computer
'//入口: COMMAND, Computer, SendTime
'//出口:
'//返回值:
' 0: failue
' 1: success
'/////////////////////////////////////////////////////////////////////
Public Function SendData(Command As Long, Computer As String, _
SendTime As Date, Optional Flag As Long) As Long
Dim mskSend As HHMsgSock
Dim sDataSend As String
If Flag = 0 Then
mskSend.RoomComputer = Computer
mskSend.SendCommand = Command
mskSend.SendDirection = HH_WATCH
mskSend.SendTime = SendTime

sDataSend = ConvertString(mskSend)
gstrLastSend = sDataSend

' If Command < 50 Then 'resend data
' If Command <> 5 Then
' frmMain.mRetryTimes = 2
' frmMain.tmrReSend.Enabled = True
' End If
' End If
Else
sDataSend = gstrLastSend
End If

sockClient.RemoteHost = "255.255.255.255"
sockClient.RemotePort = PORTWATCH
On Error GoTo ErrHandle
sockClient.SendData sDataSend
On Error GoTo 0
SendData = 1
Exit Function
ErrHandle:
If Err.Number = 126 Then
Resume Next
Else
MsgBox Err.Number & Err.Description
End If

End Function
yiwei 2000-07-27
  • 打赏
  • 举报
回复
使用WINSOCK的UDP协议啊,在MSDN里有帮助,看看就会了。
Wonny 2000-07-27
  • 打赏
  • 举报
回复
我也是用 VB 的,照着改一下看看行不行。
  • 打赏
  • 举报
回复
可是我是用VB
LaoZheng 2000-07-09
  • 打赏
  • 举报
回复
function MakeSockAddrIn(IP:String;Port:String;proto:String):TSockAddrIn;
begin
Result.sin_family:=AF_INET;
Result.sin_port := WSocket_htons(WSocketResolvePort(Port,proto));
Result.sin_addr.s_addr := WSocketResolveHost(IP).s_addr;
end;
procedure Send;
var
Dest:TSockAddrIn;
begin
Dest:=MakeSockAddrIn('255.255.255.255',port,'udp');
ClientWSocket.SendTo(Dest,sizeof(Dest),@SendBuffer,Len);
end;

1,451

社区成员

发帖
与我相关
我的任务
社区描述
VB 控件
社区管理员
  • 控件
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧