Gestion d'une pile de procédures

Question

Bonjour,

Voici un code que j'ai extrêmement simplifié (le code complet comprend des sockets et dépasse le méga) mais qui résume mon problème.

Pour envoyer un fichier bloc par bloc à travers un socket j'utilise cette méthode mais le problème est qu'au bout d'un certain temps, trop de procédures n'ont pas eu eu le temps de se décharger et là c'est l'erreur!! 

Je cherche donc le moyen de vérifier l'état de la pile de procédures avant d'en appeler une nouvelle. Voici le code simplifié :

frmMain.frm

Private Sub Form_Load()

    FileReader.ReadDataBlock

End Sub

Private Sub FileReader_DataArrival(Data As String)

    'If FreeProcStack = true then  '<< C'est ici que le test devrait se faire...

        FileReader.ReadDataBlock

    'end if
    
End Sub

UserControl1 :

Public Event DataArrival(Data As String)

Public Sub ReadDataBlock()

    If RemainData = True Then
    
        RaiseEvent DataArrival("block-de-donnees")
        
    End If

End Sub

Renfield · Answer

QUID de l'utilisation de l'API TransmitFile ?

Renfield
Admin CodeS-SourceS- MVP Visual Basic

Utilisateur anonyme · Answer

C'est avec le MSWINSOCK ça?

"This function is a Microsoft-specific extension to the Windows Sockets specification."



Je passe par un socket fait maison


.

Utilisateur anonyme · Answer

Personne n'a une idée?

Gestion d'une pile de procédures

3 réponses

Votre réponse

Discussions similaires