掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TcpClientとTcpServerコンポーネントの使い方 (ID：15378)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
以下のソースで自分自身に対して送信した場合は正しく動作しました。 この同じexeファイルをもう一台のPCにも起動していますが、データ来ていないようです。テスト方法が悪いのでしょうか・・・。ネットワークプログラムの経験があまり無いので、困っています。 procedure TForm1.FormCreate(Sender: TObject); begin TcpServer1.LocalHost := '192.168.1.2'; TcpServer1.LocalPort := '8080'; TcpServer1.Active := true; end; //送信 procedure TForm1.Button1Click(Sender: TObject); begin TcpClient1.RemoteHost := '192.168.1.2'; TcpClient1.RemotePort := '8080'; TcpClient1.Active := true; if TcpClient1.Connect then begin StatusBar1.Panels[0].Text := '接続成功'; TcpClient1.Sendln(Edit1.Text); end else StatusBar1.Panels[0].Text := '接続失敗'; TcpClient1.Active := false; end; //受信時 procedure TForm1.TcpServer1Accept(Sender: TObject; ClientSocket: TCustomIpClient); begin Memo1.Text:=ClientSocket.ReceiveLn; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.