掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
定時実行について (ID：15490)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
TNMUDP でできるようです。 以下は、NMUDP1 が受信用、NMUDP2 が送信用です。 procedure TForm1.FormCreate(Sender: TObject); begin NMUDP1.LocalPort := 1234; end; procedure TForm1.Button1Click(Sender: TObject); var C: array[1..8] of Char; begin C[1] := 'A'; C[2] := 'B'; C[3] := 'C'; C[4] := 'D'; C[5] := 'E'; C[6] := 'F'; C[7] := 'G'; C[8] := 'H'; NMUDP2.RemoteHost := '100.101.102.103'; NMUDP2.RemotePort := 1234; NMUDP2.SendBuffer(C, 8); end; procedure TForm1.NMUDP1DataReceived(Sender: TComponent; NumberBytes: Integer; FromIP: String; Port: Integer); var C: array[1..8] of Char; i: Integer; begin if NumberBytes <= 8 then begin NMUDP1.ReadBuffer(C, i); Memo1.Lines.Add('受信文字列：' + C); Memo1.Lines.Add('送信元ＩＰ：' + FromIP); end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.