Rnbfra Multi-Thread und Netzwerkfähig mit GUI im www, jetzt - Roboternetz-Forum

Zum Darüberstreuen:

Code:

    'NEU ------------------------------------------
    Declare Function RnIpEnabRx Lib "rnregist.dll" (ByVal IpRef As Integer) As Integer

Code:

    '-------------------------------------------------------------------------------------------------
    '   Workout with original Thread 
    '-------------------------------------------------------------------------------------------------
    Public Sub IpData(ByVal MyIp As Integer, ByVal Arg As Integer, ByVal Status As Integer)
        Dim MsgRef As Integer   ' current Message Reference
        Dim res As Integer
        Dim RespLen As Integer

        MsgRef = RnIpMsgGetIn(IpRef)
        While MsgRef <> 0
                  '.....
        End While


        If IpRef <> 0 Then                  'NEU ------------------------------------------
            res = RnIpEnabRx(IpRef)         'NEU ------------------------------------------ 
        End If                              'NEU ------------------------------------------ 

    End Sub

Das sollte gegen das verhaspeln helfen , hoff' ich

In der ZIP: MARV (Teilprojekt)
und eine neue DLL