この操作を行う前に Bind メソッドを呼び出してください例外を解決するには (ID:100862)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

皆さん方には、いつも大変お世話になっております。

http://codezine.jp/a/article.aspx?aid=22
上記のサイト(DOBON.NET関係。http://dobon.net/)
から入手した、TCPチャットのサーバー側で、例外「この操作を行う前に Bind メソッドを呼び出してください」がでます。

'クライアントの接続待ちスタート
Private Shared Sub StartAccept( _
    ByVal server As System.Net.Sockets.Socket)
    '接続要求待機を開始する
    server.BeginAccept(New System.AsyncCallback( _
        AddressOf AcceptCallback), server)
End Sub

'BeginAcceptのコールバック
Private Shared Sub AcceptCallback(ByVal ar As System.IAsyncResult)
    'サーバーSocketの取得
    Dim server As System.Net.Sockets.Socket = _
        CType(ar.AsyncState, System.Net.Sockets.Socket)

'接続要求を受け入れる
    Dim client As System.Net.Sockets.Socket = Nothing
    Try
        'クライアントSocketの取得
        client = server.EndAccept(ar)
    Catch
        System.Console.WriteLine("閉じました。")
        Return
    End Try

'クライアントが接続した時の処理をここに書く
    'ここでは文字列を送信して、すぐに閉じている
    client.Send(System.Text.Encoding.UTF8.GetBytes("こんにちは。"))
    client.Shutdown(System.Net.Sockets.SocketShutdown.Both)
    client.Close()

'接続要求待機を再開する
    server.BeginAccept(New System.AsyncCallback( _
        AddressOf AcceptCallback), server)
End Sub
----------------------------------------

'接続要求待機を開始する
    server.BeginAccept(New System.AsyncCallback( _
        AddressOf AcceptCallback), server)

ここで、例外が発生します。

tcpには、あまり慣れていないので、さっぱりわかりません。

どうすればよいのでしょうか？

←解決時は質問者本人がここをチェックしてください。

戻る

この操作を行う前に Bind メソッドを呼び出してください 例外を解決するには (ID:100862)

この操作を行う前に Bind メソッドを呼び出してください例外を解決するには (ID:100862)