This commit is contained in:
Gerhard Hoffmann 2024-03-19 13:30:24 +01:00
parent ba15fa7969
commit e997fa32be

View File

@ -0,0 +1,48 @@
{
"File-Menue": [
{
"Name": "Tarif Zone 1",
"File-ID": "customer_999:zg1/zone1"
},
{
"Name": "Tarif Zone 2",
"File-ID": "customer_999:zg1/zone2"
},
{
"Name": "Tarif Zone 3",
"File-ID": "customer_999:zg1/zone3"
},
{
"Name": "Tarif Zone 4",
"File-ID": "customer_999:zg1/zone4"
},
{
"Name": "Tarif Zone 5",
"File-ID": "customer_999:zg1/zone5"
},
{
"Name": "Tarif Zone 6",
"File-ID": "customer_999:zg1/zone6"
},
{
"Name": "Basic Configuration",
"File-ID": "customer_999:master"
}
]
}
Was wir dann noch brauchen um Json zureuckgeben zu koennen:
der Speicher muss gross genug sein. Oder man hat eine weitere
Funktion mit der man die Groesse des Jsons abfragen kann, damit
Du in Pascal den Speicher passend bereitstellen kannst.
function GetFile(var FileId; var buffer, size) : cint32; stdcall -> size=0: gibt die Dateigroesse zurueck
function GetFile(var FileId; var buffer, size) : cbool; stdcall -> ize> 0: datei wird vom C-Code in den uebergebenen Speicher kopiert
function SetFile(var FileId; var buffer) : cbool; stdcall
function GetFileMenue(var buffer, size): cint32; stdcall -> size=0: gibt Dateigroesse zurueck
function GetFileMenue(var buffer, size): cbool; stdcall -> size>0: kopiert Datei nach buffer