VB6 Winsock複数のTCP接続> DoEventsの問題

Question

TCPサーバーとして動作するVB6を使用して数年前にソフトウェアを作成し、クライアントから複数の接続を受け取りました。

ソフトウェアの基本的なアイデアは、特定のポートでリッスンし、異なるクライアントからの接続を受け入れ、データを分析する別のwinsockに各接続を渡し、DBを探し、適切なメッセージで応答し、接続を閉じます。アプリケーションの起動時に

ソケットの初期化：

For i = 1 To MaxCon  
    Load sckAccept(i) 
Next i 
sckListen.Listen 

の接続を受け入れること：ここで

は、いくつかのコードだ

Private Sub sckListen_ConnectionRequest(ByVal requestID As Long) 
    Dim aFreeSocket As Integer 
    aFreeSocket = GetFreeSocket 
    If aFreeSocket = 0 Then 
     sckAccept(0).Accept requestID 
     sckAccept(0).SendData "Server is full!" 
     sckAccept(0).Close 
    Else 
     sckAccept(aFreeSocket).Accept requestID   
End Sub 

受信データを、それを分析し、そして返信：

Private Sub sckAccept_DataArrival(Index As Integer, ByVal bytesTotal As Long) 
    Dim sData As String 
    sckAccept(Index).GetData sData 
    'Do lots of analyizing and search in DB 
    ' 
    ' 
    sckAccept(Index).SendData "Message" 
    ' 
    ' 
    DoEvents 
    sckAccept(Index).Close 
End Sub 

すべてが正常に働いていたが、現在は接続数は、（毎秒カップルの数十）増加しているので、ソフトウェアが（理由DoEventsの）Out of stack space例外を取得し始めました。

多くの場合、DoEventsが悪いですが、削除するとアプリケーションのUIが応答せず（スレッドの負荷が高いため）、一部のデータが配信されない可能性があります。

だから私の質問です：DoEventsを使用してこの問題を回避する方法のアイデアはありますか？

---

注：私はVB6は本当にマルチスレッドをサポートしていないとこのような状況のためにPITAであるかもしれないことを知っています。私は実際にソフトウェアをアップグレードし、.Netを使用してソフトウェアを再作成する予定ですが、それには時間がかかります。 VB6でこの問題を解決する必要があるのはこのためですが、今はVB6で書かれています。

Answer 1

私は問題を把握して解決しました。

短い答え

は、一部のデータが配信されることはありません... DoEventsを使わないのでしょうか？さて、SendCompleteイベントでのみ接続を閉じてください。

---

長い答え

まず最初のもの：

私が最初の場所でDoEventsを使用なぜ？ のメッセージの一部が配信されなかったためです。受信機へのデータ到着を保証するために、Socket.SendDataの後に、DoEventsを使用してインターネット上の多くの記事/質問が示唆されています。

メッセージが配信されない理由を理解するために、これをさらに深く掘り下げました。私は、メッセージ送信後に接続を閉じるときに、この問題が発生することが判明：だから

Socket.SendData "Message" 
' 
' 
Socket.Close 

を、私は単純に、SendCompleteイベントへの接続を閉じ行を移動し、私はしませんDoEvents文-sinceを削除しましたもう問題がなくなりました。

Private Sub sckAccept_SendComplete(Index As Integer) 
    sckAccept_Close (Index) 
End Sub 

これは、同じ問題を抱えている人に役立つことを望みます。