掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
IPアドレスの存在確認 (ID:27477)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
追記します。 下のコードは、案2確認用に作ったものです。 「返信されないケース」と書いてしまいましたが、下でいうところの「Test1」送信後、「Test2」が返ってこないということです。 NT Server側で起動している側のアプリで、DataReceivedイベントが起きていませんので、そもそも受信できていないというのが正しいですね。 すみません。 セキュリティソフトなどは利用していません。 よろしくお願いいたします。 procedure TForm1.FormCreate(Sender: TObject); begin NMUDP1.LocalPort := 1234; end; procedure TForm1.Button1Click(Sender: TObject); var C: array[0..7] of Char; begin NMUDP1.RemoteHost:= '192.168.0.1'; NMUDP1.RemotePort:= 1234; C:= 'Test1'; NMUDP1.SendBuffer(C, Length(C)); end; procedure TForm1.NMUDP1DataReceived(Sender: TComponent; NumberBytes: Integer; FromIP: String); var C: array[0..7] of Char; begin NMUDP1.ReadBuffer(C, NumberBytes); if C = 'Test1' then begin NMUDP1.RemoteHost:= FromIP; NMUDP1.RemotePort:= 1234; C:= 'Test2'; NMUDP1.SendBuffer(C, Length(C)); end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.