Egalware/TestEIn
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

TestEIn 1.6w1 :

Browse Source 
- aggiornamento.
This commit is contained in:
Dario Sassi
2016-11-01 19:09:53 +00:00
parent e40078f3a3
commit cca8015aae
2 changed files with 11 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files
EgtInterface.vb
+9 -9
View File
@@ -8636,24 +8636,24 @@ Public Function EgtSimHome() As Boolean
End Function
<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtSimGetAxisInfoPos"), SuppressUnmanagedCodeSecurity()>
Private Function EgtSimGetAxisInfoPos_32(nInd As Integer, ByRef psName As IntPtr, ByRef dVal As Double) As Boolean
Private Function EgtSimGetAxisInfoPos_32(nInd As Integer, ByRef psToken As IntPtr, ByRef bLinear As Boolean, ByRef dVal As Double) As Boolean
End Function
<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtSimGetAxisInfoPos"), SuppressUnmanagedCodeSecurity()>
Private Function EgtSimGetAxisInfoPos_64(nInd As Integer, ByRef psName As IntPtr, ByRef dVal As Double) As Boolean
Private Function EgtSimGetAxisInfoPos_64(nInd As Integer, ByRef psToken As IntPtr, ByRef bLinear As Boolean, ByRef dVal As Double) As Boolean
End Function
Public Function EgtSimGetAxisInfoPos(nInd As Integer, ByRef sName As String, ByRef dVal As Double) As Boolean
Dim psName As IntPtr
Public Function EgtSimGetAxisInfoPos(nInd As Integer, ByRef sToken As String, ByRef bLinear As Boolean, ByRef dVal As Double) As Boolean
Dim psToken As IntPtr
Dim bOk As Boolean
If IntPtr.Size = 4 Then
bOk = EgtSimGetAxisInfoPos_32(nInd, psName, dVal)
bOk = EgtSimGetAxisInfoPos_32(nInd, psToken, bLinear, dVal)
Else
bOk = EgtSimGetAxisInfoPos_64(nInd, psName, dVal)
bOk = EgtSimGetAxisInfoPos_64(nInd, psToken, bLinear, dVal)
End If
If bOk Then
sName = Marshal.PtrToStringUni(psName)
EgtFreeMemory(psName)
sToken = Marshal.PtrToStringUni(psToken)
EgtFreeMemory(psToken)
Else
sName = String.Empty
sToken = String.Empty
End If
Return bOk
End Function
My Project/AssemblyInfo.vb
+2 -2
View File
@@ -46,5 +46,5 @@ Imports System.Runtime.InteropServices
' utilizzando l'asterisco (*) come descritto di seguito:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.6.22.8")>
<Assembly: AssemblyFileVersion("1.6.22.8")>
<Assembly: AssemblyVersion("1.6.23.1")>
<Assembly: AssemblyFileVersion("1.6.23.1")>