質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

90.36%

  • VB.NET

    960questions

    Microsoft Visual Basic .NETのことで、Microsoft Visual Basic(VB6)の後継。 .NET環境向けのプログラムを開発することができます。 現在のVB.NETでは、.NET Frameworkを利用して開発を行うことが可能です。

  • TCP

    169questions

    TCP(Transmission Control Protocol)とは、トランスポート層のプロトコルで、コネクション型のデータサービスです。

  • ソケット

    26questions

    TCP/IPにおいて、IPアドレスとサブアドレスであるポート番号を組み合わせたネットワークアドレスのことを呼びます。また、ソフトウェアアプリケーションにおいて、TCP/IP通信を行う為の仮想的なインターフェースという意味もある。

1対1のTCP通信画面を一つのソフト内で複数作成

解決済

回答 1

投稿

  • 評価
  • クリップ 0
  • VIEW 1,130

abanda

score 4

いつもお世話になっております。

今回はある動作でSocektExceptionが発生する為、その対処法についてお聞きしようと質問しました。

やりたい事は1対1のTCP通信画面を一つのソフトの中で複数作り、共通する返信・設定は設定画面一つで賄おうとしており、個別の設定値については通信画面一つ一つで決めれるような形にしようと考えています。(該当箇所:ラジオボタン[A,B,C,D])

ServerFormが通信、返信をする画面です。この画面のインスタンスを複数作れば1対1の接続を同時にいくつも行う場合、共通の設定を共有できるのではないかと考えていたのですが、ServerForm画面を複数呼び出し、Startボタンを二つ以上押したところで、SocektExceptionが発生してしまいます。

このエラーがなぜ発生するのかいまいちわかっておりません。どなたかご教授できればと思います。また、こういう形にすれば複数画面でTCP通信が可能になるとヒントでも貰えればと思います。

前回質問同様、ソースコードを添付いたしますので、お手数お掛けしますがそちらを参照していたければ幸いです。
リンク内容(PASSWORD:今年の西暦4桁を数字で)

  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

回答 1

checkベストアンサー

+1

サーバ側で同一のポートで待ち受けしようとしてSocketExceptionが発生しています。

    'サーバーの接続の確立
    Public Function ServerStart() As Boolean

        'ListenするIPアドレス
        Dim IP As System.Net.IPAddress

        'サーバーのIPアドレス(または、ホスト名)とポート番号をテキストボックスから取得
        IpAdress = ServerForm.textBoxIp.text
        IP = System.Net.IPAddress.Parse(IpAdress)
        Port = Integer.Parse(ServerForm.textBoxPortNo.Text)

        'TcpListenerを使用してサーバーの接続の確立
        Try
            'lisenerが無い場合
            If listener Is Nothing Then
                'TcpListenerオブジェクトを作成する
                listener = New TcpListener(IP, Port)
            End If

            'Listenを開始  = クライアント接続要求の受付開始
            listener.Start()         ’ここでSocketExceptionが発生

            'ログの書き込み
            RaiseEvent WriteLog(DateTime.Now.ToString() & Space(1) & "サーバを開始しました。")

            'スレッドの作成と開始
            threadServer = New Thread(New ThreadStart(AddressOf ServerListen))
            threadServer.Start()
            Return True

        Catch ex As Exception
            'エラーが起きた場合
            RaiseEvent WriteLog("サーバ接続エラー:" & ex.Message.ToString())
            listener.Stop()
            RaiseEvent ChangeIndicator(Color.Navy)
            Return False
        End Try
    End Function


原因としては待ち受けポートを設定する際

    Port = Integer.Parse(ServerForm.textBoxPortNo.Text)


とA~Dどの画面から呼ばれる場合でも同一のフォームのtextBoxPortNo.Textを参照していて画面側で
いくらポートを変更していても同じ値になってしまっています。

せっかくプロパティとして作成しているのですからTCPクラスからポートの値を取りに行くのではなく

    'ソケット通信開始
    Private Sub StartSock()
        '接続確認フラグ
        Dim OpenFlg As Boolean

        TCP.Port = Integer.Parse(Me.textBoxPortNo.Text)
        OpenFlg = TCP.ServerStart()

        If OpenFlg Then
            StartServerbtn.Enabled = False
            StopServerbtn.Enabled = True
        End If

    End Sub


と画面の方でTCPクラスのプロパティをセットすべきです。

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2017/03/12 20:40

    いつも回答ありがとうございます!
    画面側で変更しても同じポートを待ち受けるようになっていたとは全く気づきませんでした。
    いつも大変勉強にさせてもらっております。
    今後も何かあればよろしくお願いします。それではありがとうございました。

    キャンセル

同じタグがついた質問を見る

  • VB.NET

    960questions

    Microsoft Visual Basic .NETのことで、Microsoft Visual Basic(VB6)の後継。 .NET環境向けのプログラムを開発することができます。 現在のVB.NETでは、.NET Frameworkを利用して開発を行うことが可能です。

  • TCP

    169questions

    TCP(Transmission Control Protocol)とは、トランスポート層のプロトコルで、コネクション型のデータサービスです。

  • ソケット

    26questions

    TCP/IPにおいて、IPアドレスとサブアドレスであるポート番号を組み合わせたネットワークアドレスのことを呼びます。また、ソフトウェアアプリケーションにおいて、TCP/IP通信を行う為の仮想的なインターフェースという意味もある。