トップ  >  サンプルソース  >  TCP/IP 送信/受信(C#/VB.NET)

TCP/IP 送信/受信(C#/VB.NET)

2011年02月03日

TCP/IPで通信するサンプル(ソース/コード)です。.NET(VB/C#)標準のSystem.Net.Sockets.TcpClientを使っています。

TCP/IP関係のその他のツールやサンプルはこちらでお探しください。
TCP/IP送信/受信(VBS/VBA)TCP/IP関係

' -----------------------------------------------------------
' TCP/IPで通信するサンプル(VB.NET/VS2005)

' ソケット生成
Dim objSck As New System.Net.Sockets.TcpClient
Dim objStm As System.Net.Sockets.NetworkStream

' TCP/IP接続
objSck.Connect("127.0.0.1", 8888)
objStm = objSck.GetStream()

' TCP/IP接続待ち
Do While objSck.Connected = False
    System.Threading.Thread.Sleep(500)
Loop

' データ送信(文字列をByte配列に変換して送信)
Dim sdat As Byte() = _
    System.Text.Encoding.GetEncoding( _
    "SHIFT-JIS").GetBytes(Chr(2) & "1234567890" & Chr(3))
objStm.Write(sdat, 0, sdat.GetLength(0))

' データ受信
Do
    System.Threading.Thread.Sleep(500)
    If objSck.Available > 0 Then
        ' Byte配列にデータ受信
        Dim rdat As Byte() = _
            New Byte(objSck.Available - 1) {}
        objStm.Read(rdat, 0, rdat.GetLength(0))
        ' Byte配列を文字列に変換して表示
        MessageBox.Show( _
            System.Text.Encoding.GetEncoding( _
            "SHIFT-JIS").GetString(rdat))
        Exit Do
    End If
Loop

' TCP/IP切断
SerialPort1.Close()

MessageBox.Show("終了")
' -----------------------------------------------------------

// ----------------------------------------------------------
// TCP/IPで通信するサンプル(C#.NET/VS2005)

// ソケット生成
System.Net.Sockets.TcpClient objSck =
    new System.Net.Sockets.TcpClient();
System.Net.Sockets.NetworkStream objStm;

// TCP/IP接続
objSck.Connect("127.0.0.1", 8888);
objStm = objSck.GetStream();

// TCP/IP接続待ち
while (objSck.Connected == false)
{
    System.Threading.Thread.Sleep(500);
}

// データ送信(文字列をByte配列に変換して送信)
Byte[] sdat =
    System.Text.Encoding.GetEncoding(
    "SHIFT-JIS").GetBytes("\x02" + "1234567890" + "\x03");
objStm.Write(sdat, 0, sdat.GetLength(0));

// データ受信
while(true){
    System.Threading.Thread.Sleep(500);
    if (objSck.Available > 0)
    {
        // Byte配列にデータ受信
        Byte[] rdat =
            new Byte[objSck.Available];
        objStm.Read(rdat, 0, rdat.GetLength(0));
        // Byte配列を文字列に変換して表示
        MessageBox.Show(
            System.Text.Encoding.GetEncoding(
            "SHIFT-JIS").GetString(rdat));
        break;
    }
}

// TCP/IP切断
serialPort1.Close();

MessageBox.Show("終了");
// ----------------------------------------------------------
スポンサーサイト

UDP/IP 送信/受信(C#/VB.NET) | トップページへ戻る | RS232C 送信/受信(C#/VB.NET)

このページのトップに戻る

コメント

管理人のみ閲覧できます

このコメントは管理人のみ閲覧できます

名前
題名
メールアドレス
WEBサイト
 
コメント
パスワード
  管理者にだけ表示を許可する

このページのトップに戻る

トラックバック

このページのトップに戻る