掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TcpClientとTcpServerコンポーネントの使い方 (ID：15377)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
２台のPC間で、ソケット通信を使ったチャットの様な物を作成しようとしています。 Edit1に入力した文字列をButton1クリック時に送信し、もう一台のPCで受信してMemo1に受信内容を表示するといった物を作成したいのです。 TcpClientとTcpServerを使うのかなと思い、色々と書いてみたのですが接続はできているのですが、送受信の流れがわからず困っています。以下がここまでに書いたソースです。どなたかご存じの方いらっしゃいましたらご享受ください。 procedure TForm1.FormCreate(Sender: TObject); begin TcpServer1.LocalHost := '192.168.1.3'; TcpServer1.LocalPort := '80'; TcpServer1.Active := true; end; procedure TForm1.Button1Click(Sender: TObject); begin TcpClient1.RemoteHost := '192.168.1.3'; TcpClient1.RemotePort := '80'; TcpClient1.Active := true; if TcpClient1.Connect then begin StatusBar1.Panels[0].Text := '接続成功'; TcpClient1.Sendln(Edit1.Text); end else StatusBar1.Panels[0].Text := '接続失敗'; end; procedure TForm1.TcpServer1Accept(Sender: TObject; ClientSocket: TCustomIpClient); begin Memo1.Text:=ClientSocket.ReceiveLn; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.