Emmanuele Sassi
81 lines
3.8 KiB
VB.net
81 lines
3.8 KiB
VB.net
Imports System.Runtime.InteropServices
|
|
Imports System.Security
|
|
|
|
Public Module EgtInterface
|
|
|
|
#If DEBUG Then
|
|
Const EgtIntDll32 As String = "EgtBasisD32.dll"
|
|
#Else
|
|
Const EgtIntDll32 As String = "EgtBasisR32.dll"
|
|
#End If
|
|
|
|
<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtSetKey"), SuppressUnmanagedCodeSecurity()>
|
|
Public Function EgtSetKey(sKey As String) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetKeyLevel"), SuppressUnmanagedCodeSecurity()>
|
|
Public Function EgtGetKeyLevel(nProd As Integer, nVer As Integer, nLev As Integer, ByRef nKLev As Integer) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetKeyOptions"), SuppressUnmanagedCodeSecurity()>
|
|
Public Function EgtGetKeyOptions(nProd As Integer, nVer As Integer, nLev As Integer,
|
|
ByRef nOpt1 As UInteger, ByRef nOpt2 As UInteger) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetKeyLeftDays"), SuppressUnmanagedCodeSecurity()>
|
|
Public Function EgtGetKeyLeftDays(ByRef nLeftDays As Integer) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetKeyAssLeftDays"), SuppressUnmanagedCodeSecurity()>
|
|
Public Function EgtGetKeyAssLeftDays(ByRef nAssLeftDays As Integer) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetKeyOptLeftDays"), SuppressUnmanagedCodeSecurity()>
|
|
Public Function EgtGetKeyOptLeftDays(ByRef nOptLeftDays As Integer) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtFreeMemory"), SuppressUnmanagedCodeSecurity()>
|
|
Public Function EgtFreeMemory(sB As IntPtr) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtLoadMessages"), SuppressUnmanagedCodeSecurity()>
|
|
Public Function EgtLoadMessages(sMsgFilePath As String) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetMsg"), SuppressUnmanagedCodeSecurity()>
|
|
Private Function EgtGetMsg_32(nId As Integer) As IntPtr
|
|
End Function
|
|
Public Function EgtMsg(nId As Integer) As String
|
|
Return Marshal.PtrToStringUni(EgtGetMsg_32(nId))
|
|
' Non è necessario liberare la memoria nativa perchè usa un buffer statico
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtInitLogger"), SuppressUnmanagedCodeSecurity()>
|
|
Public Function EgtInitLogger(nDebug As Integer, sLogFilePath As String) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtOutLog"), SuppressUnmanagedCodeSecurity()>
|
|
Private Function EgtOutLog(sMsg As String, nDebugLevel As Integer) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetStringUtf8FromIni"), SuppressUnmanagedCodeSecurity()>
|
|
Private Function EgtGetStringUtf8FromIni_32(sSec As String, sKey As String, sDef As String, ByRef sVal As IntPtr, sIniFile As String) As Boolean
|
|
End Function
|
|
Public Function EgtGetStringUtf8FromIni(sSec As String, sKey As String, sDef As String, ByRef sVal As String, sIniFile As String) As Boolean
|
|
Dim psVal As IntPtr
|
|
Dim bOk As Boolean = EgtGetStringUtf8FromIni_32(sSec, sKey, sDef, psVal, sIniFile)
|
|
If bOk Then
|
|
sVal = Marshal.PtrToStringUni(psVal)
|
|
EgtFreeMemory(psVal)
|
|
Else
|
|
sVal = String.Empty
|
|
End If
|
|
Return bOk
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtWriteStringUtf8ToIni"), SuppressUnmanagedCodeSecurity()>
|
|
Public Function EgtWriteStringUtf8toIni(sSec As String, sKey As String, sVal As String, sIniFile As String) As Boolean
|
|
End Function
|
|
|
|
End Module
|