Hello Experts!
I have a VB6 app that communicates (reads and writes) with the InTouch Tag Database.
The app contains only to small files, the Ptacc.bas and a test form.
The code for the Ptacc.bas file is this:
#If Win32 Then
Declare Function wwHeap_Register Lib "wwheap.dll" (ByVal hWnd As Long, ByRef NotifyMessage As Integer) As Boolean
Declare Function wwHeap_Unregister Lib "wwheap.dll" () As Boolean
Declare Function PtAccInit Lib "ptacc.dll" (ByVal hWnd As Long, ByVal nExtra As Integer) As Long
Declare Function PtAccShutdown Lib "ptacc.dll" (ByVal accid As Long) As Long
Declare Function PtAccOK Lib "ptacc.dll" (ByVal accid As Long) As Long
Declare Function PtAccHandleCreate Lib "ptacc.dll" (ByVal accid As Long, ByVal nme As String) As Long
Declare Function PtAccHandleActivate Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long) As Long
Declare Function PtAccHandleDeactivate Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long) As Long
Declare Function PtAccHandleDelete Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long) As Long
Declare Function PtAccActivate Lib "ptacc.dll" (ByVal accid As Long, ByVal ptname As String) As Long
Declare Function PtAccType Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long) As Long
Declare Function PtAccDeactivate Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long) As Long
Declare Function PtAccDelete Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long) As Long
Declare Function PtAccSetExtraInt Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long, ByVal nOffset As Integer, ByVal nValue As Integer) As Long
Declare Function PtAccGetExtraInt Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long, ByVal nOffset As Integer) As Long
Declare Function PtAccSetExtraLong Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long, ByVal nOffset As Integer, ByVal lValue As Long) As Long
Declare Function PtAccGetExtraLong Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long, ByVal nOffset As Integer) As Long
Declare Function PtAccReadD Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long) As Long
Declare Function PtAccReadI Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long) As Long
Declare Function PtAccReadR Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long) As Single
Declare Function PtAccReadA Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long) As Double
Declare Function PtAccReadM Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long, ByVal nm As String, ByVal nMax As Long) As Long
Declare Function PtAccWriteD Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long, ByVal value As Integer) As Long
Declare Function PtAccWriteI Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long, ByVal value As Long) As Long
Declare Function PtAccWriteR Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long, ByVal value As Single) As Long
Declare Function PtAccWriteA Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long, ByVal value As Double) As Long
Declare Function PtAccWriteM Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long, ByVal value As String) As Long
#Else
Declare Function PtAccInit Lib "ptacc.dll" (ByVal hWnd As Integer, ByVal nExtra As Integer) As Long
Declare Function PtAccShutdown Lib "ptacc.dll" (ByVal accid As Long) As Integer
Declare Function PtAccOK Lib "ptacc.dll" (ByVal accid As Long) As Integer
Declare Function PtAccHandleCreate Lib "ptacc.dll" (ByVal accid As Long, ByVal nme As String) As Long
Declare Function PtAccHandleActivate Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long) As Integer
Declare Function PtAccHandleDeactivate Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long) As Integer
Declare Function PtAccHandleDelete Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long) As Integer
Declare Function PtAccActivate Lib "ptacc.dll" (ByVal accid As Long, ByVal ptname As String) As Long
Declare Function PtAccDeactivate Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long) As Integer
Declare Function PtAccDelete Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long) As Integer
Declare Function PtAccSetExtraInt Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long, ByVal nOffset As Integer, ByVal nValue As Integer) As Integer
Declare Function PtAccGetExtraInt Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long, ByVal nOffset As Integer) As Integer
Declare Function PtAccSetExtraLong Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long, ByVal nOffset As Integer, ByVal lValue As Long) As Long
Declare Function PtAccGetExtraLong Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long, ByVal nOffset As Integer) As Long
Declare Function PtAccReadD Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long) As Integer
Declare Function PtAccReadI Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long) As Long
Declare Function PtAccReadR Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long) As Single
Declare Function PtAccReadA Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long) As Double
Declare Function PtAccReadM Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long, ByVal nm As String, ByVal nMax As Long) As Integer
Declare Function PtAccWriteD Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long, ByVal value As Integer) As Integer
Declare Function PtAccWriteI Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long, ByVal value As Long) As Integer
Declare Function PtAccWriteA Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long, ByVal value As Double) As Integer
Declare Function PtAccWriteM Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long, ByVal value As String) As Integer
#End If
The code for the test just makes use of the module above and is not important.
The questions are:
1) Does anyone know how to convert the code above to VB.Net?
2) Actually I'm not sure if converting the code would be the best approach. Is it possible to create a VB.Net wrapper that would do the job instead of converting the code above?
3) Am I right or wrong if I say that all I need to to is creating a .Net Interface that implements both InTouch dlls (ptacc.dll and wwheap.dll) used by the module above?
Any help would be very appreciated.
Thanks!
I have a VB6 app that communicates (reads and writes) with the InTouch Tag Database.
The app contains only to small files, the Ptacc.bas and a test form.
The code for the Ptacc.bas file is this:
#If Win32 Then
Declare Function wwHeap_Register Lib "wwheap.dll" (ByVal hWnd As Long, ByRef NotifyMessage As Integer) As Boolean
Declare Function wwHeap_Unregister Lib "wwheap.dll" () As Boolean
Declare Function PtAccInit Lib "ptacc.dll" (ByVal hWnd As Long, ByVal nExtra As Integer) As Long
Declare Function PtAccShutdown Lib "ptacc.dll" (ByVal accid As Long) As Long
Declare Function PtAccOK Lib "ptacc.dll" (ByVal accid As Long) As Long
Declare Function PtAccHandleCreate Lib "ptacc.dll" (ByVal accid As Long, ByVal nme As String) As Long
Declare Function PtAccHandleActivate Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long) As Long
Declare Function PtAccHandleDeactivate Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long) As Long
Declare Function PtAccHandleDelete Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long) As Long
Declare Function PtAccActivate Lib "ptacc.dll" (ByVal accid As Long, ByVal ptname As String) As Long
Declare Function PtAccType Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long) As Long
Declare Function PtAccDeactivate Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long) As Long
Declare Function PtAccDelete Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long) As Long
Declare Function PtAccSetExtraInt Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long, ByVal nOffset As Integer, ByVal nValue As Integer) As Long
Declare Function PtAccGetExtraInt Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long, ByVal nOffset As Integer) As Long
Declare Function PtAccSetExtraLong Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long, ByVal nOffset As Integer, ByVal lValue As Long) As Long
Declare Function PtAccGetExtraLong Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long, ByVal nOffset As Integer) As Long
Declare Function PtAccReadD Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long) As Long
Declare Function PtAccReadI Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long) As Long
Declare Function PtAccReadR Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long) As Single
Declare Function PtAccReadA Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long) As Double
Declare Function PtAccReadM Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long, ByVal nm As String, ByVal nMax As Long) As Long
Declare Function PtAccWriteD Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long, ByVal value As Integer) As Long
Declare Function PtAccWriteI Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long, ByVal value As Long) As Long
Declare Function PtAccWriteR Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long, ByVal value As Single) As Long
Declare Function PtAccWriteA Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long, ByVal value As Double) As Long
Declare Function PtAccWriteM Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long, ByVal value As String) As Long
#Else
Declare Function PtAccInit Lib "ptacc.dll" (ByVal hWnd As Integer, ByVal nExtra As Integer) As Long
Declare Function PtAccShutdown Lib "ptacc.dll" (ByVal accid As Long) As Integer
Declare Function PtAccOK Lib "ptacc.dll" (ByVal accid As Long) As Integer
Declare Function PtAccHandleCreate Lib "ptacc.dll" (ByVal accid As Long, ByVal nme As String) As Long
Declare Function PtAccHandleActivate Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long) As Integer
Declare Function PtAccHandleDeactivate Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long) As Integer
Declare Function PtAccHandleDelete Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long) As Integer
Declare Function PtAccActivate Lib "ptacc.dll" (ByVal accid As Long, ByVal ptname As String) As Long
Declare Function PtAccDeactivate Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long) As Integer
Declare Function PtAccDelete Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long) As Integer
Declare Function PtAccSetExtraInt Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long, ByVal nOffset As Integer, ByVal nValue As Integer) As Integer
Declare Function PtAccGetExtraInt Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long, ByVal nOffset As Integer) As Integer
Declare Function PtAccSetExtraLong Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long, ByVal nOffset As Integer, ByVal lValue As Long) As Long
Declare Function PtAccGetExtraLong Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long, ByVal nOffset As Integer) As Long
Declare Function PtAccReadD Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long) As Integer
Declare Function PtAccReadI Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long) As Long
Declare Function PtAccReadR Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long) As Single
Declare Function PtAccReadA Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long) As Double
Declare Function PtAccReadM Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long, ByVal nm As String, ByVal nMax As Long) As Integer
Declare Function PtAccWriteD Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long, ByVal value As Integer) As Integer
Declare Function PtAccWriteI Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long, ByVal value As Long) As Integer
Declare Function PtAccWriteA Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long, ByVal value As Double) As Integer
Declare Function PtAccWriteM Lib "ptacc.dll" (ByVal accid As Long, ByVal hPt As Long, ByVal value As String) As Integer
#End If
The code for the test just makes use of the module above and is not important.
The questions are:
1) Does anyone know how to convert the code above to VB.Net?
2) Actually I'm not sure if converting the code would be the best approach. Is it possible to create a VB.Net wrapper that would do the job instead of converting the code above?
3) Am I right or wrong if I say that all I need to to is creating a .Net Interface that implements both InTouch dlls (ptacc.dll and wwheap.dll) used by the module above?
Any help would be very appreciated.
Thanks!