掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
定時実行について (ID：15492)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Indyでのサンプル。 Indyの場合、UdpServerとUdpClientにわかれているようで、受信はServer側でやるようです。 procedure TMainForm.Button1Click(Sender: TObject); begin IdUDPClient1.Active := True; IdUDPClient1.Broadcast('ABCDEFGHIJKLMNOPQRSTUVWXYZ', 1234); end; procedure TMainForm.IdUDPServer1UDPRead(Sender: TObject; AData: TStream; ABinding: TIdSocketHandle); var Buffer: String; tmp: String; buf: array[0..8] of char; count: integer; begin Memo1.Lines.Add('PeerIP:' + ABinding.PeerIP); Memo1.Lines.Add('PeerIP:' + IntToStr(ABinding.PeerPort)); ABinding.Accept(0); Buffer := ''; repeat count := AData.Read(buf, 8); if count = 0 then break; SetLength(tmp, count); CopyMemory(PCHAR(tmp), @buf[0], count); Buffer := Buffer + tmp; until count = 0; Memo1.Lines.Add(BUffer); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.