Imports System
Imports System.IO

Public Class Form1

    Public Shared goGoliathAPI As GoliathAPI.kaAPIWorkerOLE = Nothing

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim 

lcReturnJson As String 

= ""
        Dim loSwFromFileTrueUTF8 = New StreamWriter("c:\Temp\__xxx\auftrag_response.json", True, System.Text.Encoding.UTF8)

        If goGoliathAPI Is Nothing Then
            goGoliathAPI = New GoliathAPI.kaAPIWorkerOLE
        End If

        'Pfad zur 

INI-Datei, um mit der Datenbank eine Verbindung aufzubauen.
        

goGoliathAPI.ConnectOpen("c:\MKS-Goliath\Mks_dbc.ini")

        If goGoliathAPI.pka_nConnectionIsOpen = 1 Then
            'Mögliche Fehler, Hinweise und Informationen werden in das JSON eingefügt. Das JSON wird in 

seiner ursprünglichen Form + der Rückmeldung zurückgegeben.
            lcReturnJson = 

goGoliathAPI.ProcessJson("c:\Temp\__xxx\auftrag.json", True)
            With loSwFromFileTrueUTF8
                .Write(lcReturnJson)
                .Flush()
                .Close()
            End With
        End If

        'Auflistung aller aufgetretenen Validierungsfehler der JSON.
        If Not String.IsNullOrEmpty(goGoliathAPI.pkaExp_cErrorLog) Then
            MsgBox(

goGoliathAPI.

pkaExp_

cErrorLog)
            'My.Computer.Clipboard.SetText(

goGoliathAPI.PKAEXP_CERRORLOG)
        End If
    End Sub

End Class