Support Forum

Code: Select all

Public Class frm_Showtime

    ' Declare function to talk to FreeStyler
    Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

    ' VB6 called this a type
    Private Structure COPYDATASTRUCT
        Public dwData As Long
        Public cbData As Long
        Public lpData As Long
    End Structure

    Private ThWnd As Long
    Private Const WM_COPYDATA = &H4A
    Private Const WM_USER = &H400
    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

    Sub SendData(ByVal Functioncode As Byte, ByVal Length As Long, ByVal arrValues() As Byte)
        Dim cdCopyData As COPYDATASTRUCT
        Dim DMXvalues() As Byte
        Dim teller As Byte
        Dim n As Integer
        Dim i As Integer
        cdCopyData.dwData = Functioncode
        cdCopyData.cbData = Length
        ' This line is the problem: cdCopyData is a structure of longs, bytes are fed into VarPtr
        ' which no longer exists in VB2010 so I've used a function I found on the internet as a
        ' substitute but it returns an integer
        cdCopyData.lpData = VarPtr(arrValues(0))

        ThWnd = FindWindow(vbNullString, "FS")
        If ThWnd > 0 Then
            i = SendMessage(ThWnd, WM_COPYDATA, Me.ThWnd, cdCopyData)
        End If
    End Sub

    Public Function VarPtr(ByVal o As Object) As Integer
        Dim GC As System.Runtime.InteropServices.GCHandle = System.Runtime.InteropServices.GCHandle.Alloc(o, System.Runtime.InteropServices.GCHandleType.Pinned)
        Dim ret As Integer = GC.AddrOfPinnedObject.ToInt32
        GC.Free()
        Return ret
    End Function
End Class

Code: Select all

i = SendMessage(ThWnd, WM_COPYDATA, Me.ThWnd, cdCopyData)

Code: Select all

Sub Main()
Dim b2() As Byte = New Byte() {48, 48, 71, 114, 101, 101, 110, 32, 67, 104, 97, 115, 101, 32, 82, 86, 83, 46, 99, 104, 98}
FreestylerConnection.sender.sendMessageFunction(b2, 5)
End Sub