Winsockについて

解決

---

win2000  vb6で

Winsockのstateが6（接続処理中)の時
受信側から接続状態に持っていくには
どのようにしたらいいですか？
closeして
connectしても６になります

編集 削除

---

MSDNのサンプル。
--
Private Sub Form_Load()
' LocalPort プロパティに整数を設定します。
' Listen メソッドを呼び出します。
tcpServer.LocalPort = 1001
tcpServer.Listen 
frmClient.Show ' クライアント フォームを表示します。
End Sub

Private Sub tcpServer_ConnectionRequest _
(ByVal requestID As Long)
' コントロールの状態が closed (閉じている) であるかどうかを確認しま
' す。閉じていない場合は、
' 接続を閉じてから新しい
' 接続を受け付けます。
If tcpServer.State <> sckClosed Then _
tcpServer.Close
' requestID パラメーター付きの要求を
' 受け付けます。
tcpServer.Accept requestID
End Sub

Private Sub txtSendData_Change()
' txtSendData という名前のテキスト ボックス (TextBox) コントロー
' ルに送るデータが入っています。ユーザーがテキストボックスに入力するた
' びに、SendData メソッドを使用してその文字列を送ります。
tcpServer.SendData txtSendData.Text
End Sub

Private Sub tcpServer_DataArrival _
(ByVal bytesTotal As Long)
' 受信データ用の変数を宣言します。
' GetData メソッドを呼び出し、txtOutput という名前のテキスト ボック
' スの Textプロパティにそのデータを設定します。
Dim strData As String
tcpServer.GetData strData
txtOutput.Text = strData
End Sub

編集 削除

---

すいませんでした
state=6(connecting)に気をとられて
state=8(closing)の処理を怠ってました
解決しました

編集 削除

---

名前

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

本文

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