掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
UDPでマルチキャストアドレスにデータ送信するには？(UPnPテスト) (ID:20283)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
追記なのですが、TIdIPMCastClientを追加して MulticastGroupとPortをTIdIPMCastServerと同じにしてみたのですが、 IPMCastReadイベントは発生していないようでした。 何か根本的にやり方が間違っているのかもしれませんが、下記にコードを載せておきます。 よろしくお願い致します。 procedure TForm1.Button1Click(Sender: TObject); begin IdIPMCastServer1.MulticastGroup := '239.255.255.250'; IdIPMCastServer1.Port := 1900; IdIPMCastServer1.Active := True; IdIPMCastServer1.Send('M-SEARCH * HTTP/1.1'#13#10'MX: 3'#13#10'HOST: 239.255.255.250:1900'#13#10'MAN: "ssdp:discover"'#13#10'ST: urn:schemas-upnp-org:service:WANIPConnection:1'#13#10#13#10); IdIPMCastServer1.Active := False; end; procedure TForm1.IdIPMCastClient1IPMCastRead(Sender: TObject; AData: TStream; ABinding: TIdSocketHandle); begin // とりあえずイベント発生通知のみ Memo1.Lines.Add('Receive'); end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.