Delphi TIdIPMCastClient および TIdIPMCastServer でのマルチキャスト送受信
Delphi TIdIPMCastClient と TIdIPMCastServer を利用したマルチキャスト送受信 最小コード サーバ(送信側) フォームへ IdIPMCastServer1, Edit1, Button1 を置く uses IdGlobal; procedure TMultiCastServerForm.Button1Click(Sender: TObject); begin IdIPMCastServer1.Send(Edit1.Text, IdGlobal.IndyTextEncoding_UTF8); end; procedure TMultiCastServerForm.FormCreate(Sender: TObject); begin IdIPMCastServer1.MulticastGroup := '224.0.0.1'; IdIPMCastServer1.Port := 5000; IdIPMCastServer1.Active := True; end; クライアント(受信側) フォームへ IdIPMCastClient1, Memo1 を置く uses IdGlobal; procedure TMulticastClientForm.FormCreate(Sender: TObject); begin IdIPMCastClient1.MulticastGroup := '224.0.0.1'; IdIPMCastClient1.DefaultPort := 5000; IdIPMCastClient1.Active := True; end; procedure TMulticastClientForm.IdIPMCastClient1IPMCastRead(Sender: TObject; const AData: TIdBytes; ABinding: TIdSocketHandle); begin Memo1.Lines.Add(IdGlobal.IndyTextEncoding_UTF8.GetString(AData)); end; 終了時(IdIPMCastClient1.Active := Fals...
