From e1066aa4888ada368099e3e0b24b0aeda0cef66e Mon Sep 17 00:00:00 2001
From: Dario Sassi <dario.s@egaltech.com>
Date: Mon, 24 Apr 2017 08:36:43 +0000
Subject: [PATCH] TestEIn 1.8d2 : - aggiornamento.

---
 EgtInterface.vb            | 75 +++++++++++++++++++++++++++++++++++---
 My Project/AssemblyInfo.vb |  4 +-
 2 files changed, 72 insertions(+), 7 deletions(-)

diff --git a/EgtInterface.vb b/EgtInterface.vb
index e25082e..23b7ab3 100644
--- a/EgtInterface.vb
+++ b/EgtInterface.vb
@@ -3682,6 +3682,34 @@ Public Function EgtGetPrevLayer(nLayerId As Integer, Optional bOnlyVisible As Bo
    End If
 End Function
 
+<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetFirstGhostPart"), SuppressUnmanagedCodeSecurity()>
+Private Function EgtGetFirstGhostPart_32() As Integer
+End Function
+<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetFirstGhostPart"), SuppressUnmanagedCodeSecurity()>
+Private Function EgtGetFirstGhostPart_64() As Integer
+End Function
+Public Function EgtGetFirstGhostPart() As Integer
+   If IntPtr.Size = 4 Then
+      Return EgtGetFirstGhostPart_32()
+   Else
+      Return EgtGetFirstGhostPart_64()
+   End If
+End Function
+
+<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetNextGhostPart"), SuppressUnmanagedCodeSecurity()>
+Private Function EgtGetNextGhostPart_32(nGhostId As Integer) As Integer
+End Function
+<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetNextGhostPart"), SuppressUnmanagedCodeSecurity()>
+Private Function EgtGetNextGhostPart_64(nGhostId As Integer) As Integer
+End Function
+Public Function EgtGetNextGhostPart(nGhostId As Integer) As Integer
+   If IntPtr.Size = 4 Then
+      Return EgtGetNextGhostPart_32(nGhostId)
+   Else
+      Return EgtGetNextGhostPart_64(nGhostId)
+   End If
+End Function
+
 <DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtEraseEmptyParts"), SuppressUnmanagedCodeSecurity()>
 Private Function EgtEraseEmptyParts_32() As Boolean
 End Function
@@ -7882,6 +7910,20 @@ End Function
       End If
    End Function
 
+   <DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtUpdateSetup"), SuppressUnmanagedCodeSecurity()>
+   Private Function EgtUpdateSetup_32() As Boolean
+   End Function
+   <DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtUpdateSetup"), SuppressUnmanagedCodeSecurity()>
+   Private Function EgtUpdateSetup_64() As Boolean
+   End Function
+   Public Function EgtUpdateSetup() As Boolean
+      If IntPtr.Size = 4 Then
+         Return EgtUpdateSetup_32()
+      Else
+         Return EgtUpdateSetup_64()
+      End If
+   End Function
+
    ' Machinings Database
    <DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtMdbGetMachiningNewName"), SuppressUnmanagedCodeSecurity()>
    Private Function EgtMdbGetMachiningNewName_32(sName As String, ByRef psNewName As IntPtr) As Boolean
@@ -8966,16 +9008,16 @@ End Function
 
    ' Simulation
    <DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtSimStart"), SuppressUnmanagedCodeSecurity()>
-   Private Function EgtSimStart_32() As Boolean
+   Private Function EgtSimStart_32(bFirst As Boolean) As Boolean
    End Function
    <DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtSimStart"), SuppressUnmanagedCodeSecurity()>
-   Private Function EgtSimStart_64() As Boolean
+   Private Function EgtSimStart_64(bFirst As Boolean) As Boolean
    End Function
-   Public Function EgtSimStart() As Boolean
+   Public Function EgtSimStart(Optional bFirst As Boolean = True) As Boolean
       If IntPtr.Size = 4 Then
-         Return EgtSimStart_32()
+         Return EgtSimStart_32(bFirst)
       Else
-         Return EgtSimStart_64()
+         Return EgtSimStart_64(bFirst)
       End If
    End Function
 
@@ -9211,6 +9253,29 @@ End Function
       Return bOk
    End Function
 
+   <DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetAllTablesNames"), SuppressUnmanagedCodeSecurity()>
+   Private Function EgtGetAllTablesNames_32(ByRef psNames As IntPtr) As Boolean
+   End Function
+   <DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetAllTablesNames"), SuppressUnmanagedCodeSecurity()>
+   Private Function EgtGetAllTablesNames_64(ByRef psNames As IntPtr) As Boolean
+   End Function
+   Public Function EgtGetAllTablesNames(ByRef sNames As String) As Boolean
+      Dim psNames As IntPtr
+      Dim bOk As Boolean
+      If IntPtr.Size = 4 Then
+         bOk = EgtGetAllTablesNames_32(psNames)
+      Else
+         bOk = EgtGetAllTablesNames_64(psNames)
+      End If
+      If bOk Then
+         sNames = Marshal.PtrToStringUni(psNames)
+         EgtFreeMemory(psNames)
+      Else
+         sNames = String.Empty
+      End If
+      Return bOk
+   End Function
+
    ' Machine Calc
    <DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtSetCalcTool"), SuppressUnmanagedCodeSecurity()>
    Private Function EgtSetCalcTool_32(sTool As String, sHead As String, nExit As Integer) As Boolean
diff --git a/My Project/AssemblyInfo.vb b/My Project/AssemblyInfo.vb
index cf4b01c..dfe40ea 100644
--- a/My Project/AssemblyInfo.vb	
+++ b/My Project/AssemblyInfo.vb	
@@ -46,5 +46,5 @@ Imports System.Runtime.InteropServices
 ' utilizzando l'asterisco (*) come descritto di seguito:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.8.2.6")> 
-<Assembly: AssemblyFileVersion("1.8.2.6")> 
+<Assembly: AssemblyVersion("1.8.4.2")> 
+<Assembly: AssemblyFileVersion("1.8.4.2")>