Helper

Helper

Thread Start

#Include "../Core/ZeroMQ.bi"

Dim lpszLibZmqDll As String = "libzmq.dll"

Dim hLibrary As Any Ptr = ZmqDllOpen(lpszLibZmqDll)

Sub TestZmqThreadRepProc(Byval vData As Any Ptr)
End Sub

Sub TestZmqThreadReqProc(Byval vData As Any Ptr)
End Sub

If hLibrary > 0 Then
    Dim threadRepPtr As Any Ptr = ZmqThreadstart(hLibrary, @TestZmqThreadRepProc, 0)
    Dim threadReqPtr As Any Ptr = ZmqThreadstart(hLibrary, @TestZmqThreadReqProc, 0)
End If

Thread Start (ZMQ Wrapper)

#Include "../../Core/Enums.bi"
#Include "../../Core/ZeroMQWrapper.bi"

Dim lpszLibZmqDll As String = "libzmq.dll"

Dim Shared ZmqHelperRec As LibZmqHelper

Sub TestZmqThreadRepProc(Byval vData As Any Ptr)
End Sub

Sub TestZmqThreadReqProc(Byval vData As Any Ptr)
End Sub

If LibZMQWrapper.DllOpen(lpszLibZmqDll) Then
    Dim threadRepPtr As Any Ptr = ZmqHelperRec.Threadstart(@TestZmqThreadRepProc, 0)
    Dim threadReqPtr As Any Ptr = ZmqHelperRec.Threadstart(@TestZmqThreadReqProc, 0)
End If