div. Änderungen

2024-09-19 13:14:44 +02:00
parent add7ac39a9
commit 3789fdec0e
44 changed files with 1181 additions and 878 deletions
--- a/RKSV_DE/RKSV_DE.vbproj
+++ b/RKSV_DE/RKSV_DE.vbproj
@@ -48,8 +48,8 @@
    <OptionInfer>On</OptionInfer>
  </PropertyGroup>
  <ItemGroup>
-    <Reference Include="KsVCom">
-      <HintPath>..\..\..\..\RKSV DE\KsVCom.dll</HintPath>
+    <Reference Include="ITGRKSVCom">
+      <HintPath>F:\PROGRAMMIERUNG\dll\ITGRKSVCom.dll</HintPath>
    </Reference>
    <Reference Include="System" />
    <Reference Include="System.Data" />
--- a/RKSV_DE/cRKSV_DE.vb
+++ b/RKSV_DE/cRKSV_DE.vb
@@ -1,4 +1,6 @@
-Imports ItgKsV
+Imports ITGRKSVCom
+Imports RKSVComComplete
+
 Public Class cRKSV_DE

    Private Function SurroundingSub()
@@ -7,7 +9,9 @@ Public Class cRKSV_DE
        ' COM-Objekt anlegen

        Dim licenseKey As String = "MEUCIQDg2GSwFrgOMHLzKBO7Sac+D3xBh9Ct+QRBXarDFPtdNgIgQyvotBil11sRfqQgdY+spD3aUve/HZS9cF7MS0D720w="
+
        Dim m_ksv As ItgKsV.KsVCom = New ItgKsV.KsVCom()
+
        Dim result As Integer = m_ksv.InitialiseLibrary("F:", "SwissbitDemo", "12345", licenseKey)

        If result <> &H0 Then