|
分類:[VB6 以前]
開発環境（WinXPSP3、VB6SP6） 実行環境（XP,W2000)
Winsock1コントロールにて、マルチキャスト送受信しようとしています。
実行しても、送信側、受信側の反応が見られず、まずは、UDPユニキャスト
にて、特定のPCに送受信したところ、期待する動きをしました。
SETSOCKOPTに問題があるのか、ソケット（Winsock1)の設定に問題あるのか
の判別も付かず・・・。
以下のコーディングにて、問題ありそうなところにお気付きの方がおりましたら、
アドバイスの程、頂戴したく、よろしくお願いいたします。
====関連しそうと思われる部分=======================================================
《送信側》
Dim in_adr As Long
Dim lngRtn As Long
With Winsock1
.Close
.protocol = sckUDPProtocol
.RemoteHost = "224.1.1.1"
.RemotePort = 1902
End With
in_adr = inet_addr("127.0.0.1")
lngRtn = setsockopt(Winsock1.SocketHandle, IPPROTO_IP, IP_MULTICAST_IF, in_adr, Len(in_adr))
Winsock1.bind 1901
sdat = sdatC <--- バイト型データ
Call Winsock1.SendData(sdat)
《受信側》
With Winsock1
.Close
.protocol = sckUDPProtocol
.RemoteHost = "127.0.0.1"
.RemotePort = 1901
End With
in_adr = inet_addr("224.1.1.1")
lngRtn = setsockopt(Winsock1.SocketHandle, IPPROTO_IP, IP_ADD_MEMBERSHIP, in_adr, Len(in_adr))
で、待機。。。
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim buff() As Byte
Winsock1.GetData buff
Call data_send <---届いたよ返してる
End Sub
=======================================================================================
以上、お気付きの点がありましたら、よろしくお願いいたします。
|