Imports System
Imports System.IO

Public Class Form1

    Public Shared goGoliathAPI As GoliathAPI.kaAPIWorker = 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.kaAPIWorker
        End If

        'Pfad zur INI-Datei, um mit der Datenbank eine Verbindung aufzubauen.
        goGoliathAPI.ConnectOpen("c:\MKS-Goliath\Mks_dbc.ini")

        If goGoliathAPI.PKApka_NCONNECTIONISOPENnConnectionIsOpen = 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

LOCAL lcJson AS STRING
LOCAL lcReturnJson AS STRING
LOCAL loGoliathAPI AS "GoliathAPI.kaAPIWorker"

lcJson = STRCONV(FILETOSTR("c:\Temp\__xxx\auftrag.json"), 11)	&& UTF8-> ANSI

loGoliathAPI = CREATEOBJECT("GoliathAPI.kaAPIWorker")
loGoliathAPI.ConnectOpen("c:\MKS-Goliath\Mks_dbc.ini")

IF loGoliathAPI.PKApka_NCONNECTIONISOPENnConnectionIsOpen = 1
	*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 = loGoliathAPI.ProcessJson(lcJson, .F.)
	STRTOFILE(STRCONV(lcReturnJson, 9), "c:\Temp\__xxx\response.json")	&& ANSI -> UTF8
ENDIF

*Auflistung aller aufgetretenen Validierungsfehler der JSON.
IF !EMPTY(loGoliathAPI.pkaExp_cErrorLog)
	= MESSAGEBOX(loGoliathAPI.pkaExp_cErrorLog)
	_CLIPTEXT = loGoliathAPI.pkaExp_cErrorLog
ENDIF