掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
IdudpServer/Clientコンポーネントの使い方 (ID：13889)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
オブジェクトインスペクタで以下を設定。 IdUDPServer1.Active := True; IdUDPServer1.DefaultPort := 12345; procedure TForm1.Button1Click(Sender: TObject); begin IdUDPServer1.Broadcast('おまえら起きとるか？', IdUDPServer1.Binding.Port); end; var OwnReply: Boolean; procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream; ABinding: TIdSocketHandle); var sMsg, sAddr: string; SeqID: Integer; begin SetLength(sMsg, AData.Size); AData.Read(sMsg[1], Length(sMsg)); Memo1.Lines.Add(ABinding.PeerIP + ' のPCから "'+ sMsg +' "を受信'); if not OwnReply then begin OwnReply := True; IdUDPServer1.Send(ABinding.PeerIP, ABinding.PeerPort, IdUDPServer1.LocalName +' は起きとるで〜'); Memo1.Lines.Add(ABinding.PeerIP +' のPCに "おれは起きとるで〜" を返信'); end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.