...
Die GoliathAPI ist eine COM Komponente und wird als DLL (Dynamic Link Library) bereitgestellt.
Es handelt sich dabei um eine Multi-Instanz DLL, welche also mehrfach als Objekt instanziiert werden kann.
Empfohlen wird allerdings das COM-Objekt einmalig zu initialisieren und immer auf diese Objektinstanz zuzugreifen. Es handelt sich hierbei nicht um eine Multi-Processing DLL.
Code Beispiele
VB.NET
| Confluence prism macro |
|---|
| lineNumbers | true |
|---|
| downloadFilename | |
|---|
| showPreviews | true |
|---|
| showInvisibles | |
|---|
| lineHighlight | |
|---|
| lineNumbersStart | |
|---|
| dialogTitle | |
|---|
| language | VB.Net |
|---|
| limitHeight | |
|---|
| height | |
|---|
| clickableLinks | |
|---|
|
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 loGoliathAPI As New goliathapi.kaAPIWorkerlcReturnJson 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 Dimmit lcReturnJsonder AsDatenbank Stringeine Verbindung aufzubauen.
loGoliathAPI goGoliathAPI.ConnectOpen("c:\MKS-Goliath\Mks_dbc.ini")
loGoliathAPI.DoSomeCPUWork() 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 = loGoliathAPIgoGoliathAPI.ProcessJson("c:\Temp\__xxx\auftrag.json", True)
With loSwFromFileTrueUTF8
MsgBox(loGoliathAPI.PKA_CERRORLOG) .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(lcReturnJson)goGoliathAPI.PKAEXP_CERRORLOG)
End If
End Sub
End Class |
VFP
| Confluence prism macro |
|---|
| lineNumbers | true |
|---|
| downloadFilename | |
|---|
| showPreviews | true |
|---|
| showInvisibles | |
|---|
| lineHighlight | |
|---|
| lineNumbersStart | |
|---|
| dialogTitle | |
|---|
| language | Visual FoxPro |
|---|
| limitHeight | |
|---|
| height | |
|---|
| clickableLinks | |
|---|
|
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.PKA_NCONNECTIONISOPEN = 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 |