基本クライアントプログラム VB編

基本的なクライアントの動作は次のようになります。 なお、ストリームの説明は、ここをクリックください。

  1. 受けたいサービスのサーバに、IPアドレスとポート番号で接続する。 ⇒tcpC=new TcpClient(IPアドレス,ポート番号)
    （この時、サーバーへの送信用のストリーム(sw=StreamWriter)と、受信用ストリーム(sr=StreamReader)を得る。）

  2. 必要に応じてデータを受信し⇒データ = sr.ReadLine()、
    データを送信する⇒sw.WriteLine(データ)。

  3. 接続を閉じるtcpC.Close()
    （先に、サーバーへの送信用(sw)と、受信用ストリーム(sr)を閉じる。）

以下に　文字列を送受信できるサーバーに対して、接続し、
サーバーから1行受信してそれを表示し、
コンソール画面からキー入力した1行を送信して、
接続を閉じるプログラムを示します。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

	Dim ip As String = "192.168.6.54" '
	Dim port As Integer = 49152	'
	Dim enc As Encoding = Encoding.GetEncoding("shift-jis") '
	
	'サーバーへの接続と、サーバーと送受信するためのストリームを取得
	Dim tcpC As TcpClient = New TcpClient(ip, port) '
	Dim sw As StreamWriter = New StreamWriter(tcpC.GetStream(), enc) '
	Dim sr As StreamReader = New StreamReader(tcpC.GetStream(), enc) '
	Dim msg As String '

	'データの受信
	Console.WriteLine("受信データ待ち状態")'画面に表示
	msg = sr.ReadLine()	'
	Console.WriteLine(msg)'

	'データの送信
	Console.Write("入力>") '画面に表示
	msg = Console.ReadLine() '
	sw.WriteLine(msg) '

	sw.Close() '
	sr.Close() '
	tcpC.Close() '
End Sub

←全ての『未選択』の箇所を正しく選択してから評価ボタンをクリックしてください