OBS/Kostenpflichtige Module/RESTServer/Beispiel1: Unterschied zwischen den Versionen

Aus OBS Wiki
Zur Navigation springen Zur Suche springen
(Die Seite wurde neu angelegt: „{{Kostenpflichtige Module}} Bei diesem Beispiel werden Daten aus dem Steuerungs-Modul abgerufen und in einer Tabelle auf einer Webseite angezeigt. =Endpunkt-Script= procedure _AddVar(oArr: TJSONArray; cVar: string); var oWert : TJSONObject; cTitel : string; cData : string; cEinheit: string; lString : Boolean; lAlign : Boolean; begin if (ST_Variable(oDB, cVar, cTitel, cData, cEinheit, lString, lAlign)) then begin…“)
KKeine Bearbeitungszusammenfassung
 
Zeile 4: Zeile 4:


=Endpunkt-Script=
=Endpunkt-Script=
<syntaxhighlight lang="pascal" line="1">
procedure _AddVar(oArr: TJSONArray; cVar: string);
var oWert  : TJSONObject;
    cTitel  : string;
    cData  : string;
    cEinheit: string;
    lString : Boolean;
    lAlign  : Boolean;
begin
    if (ST_Variable(oDB, cVar, cTitel, cData, cEinheit, lString, lAlign)) then begin
        oWert := TJSONObject.Create();
       
        oWert.AddPair('Variable', cVar);
        oWert.AddPair('Titel'  , cTitel);
        oWert.AddPair('Wert'    , cData);
        oWert.AddPair('Einheit' , cEinheit);


procedure _AddVar(oArr: TJSONArray; cVar: string);
        oArr.Add(oWert);
var oWert  : TJSONObject;
    end;
    cTitel  : string;
end;
    cData  : string;
 
    cEinheit: string;
//------------------------------------------------------------------------------
    lString : Boolean;
 
    lAlign  : Boolean;
function Get(oParams: TStrings): string;
begin
var oArr: TJSONArray;
    if (ST_Variable(oDB, cVar, cTitel, cData, cEinheit, lString, lAlign)) then begin
begin
        oWert := TJSONObject.Create();
    result := '';
       
 
        oWert.AddPair('Variable', cVar);
    oArr := TJSONArray.Create();
        oWert.AddPair('Titel'  , cTitel);
 
        oWert.AddPair('Wert'    , cData);
    _AddVar(oArr, 'WERT_1');
        oWert.AddPair('Einheit' , cEinheit);
    _AddVar(oArr, 'WERT_2');
    _AddVar(oArr, 'WERT_3');
        oArr.Add(oWert);
    _AddVar(oArr, 'WERT_4');
    end;
 
end;
    result := oArr.ToJSON();
end;
//------------------------------------------------------------------------------
</syntaxhighlight>
function Get(oParams: TStrings): string;
var oArr: TJSONArray;
begin
    result := '';
    oArr := TJSONArray.Create();
    _AddVar(oArr, 'WERT_1');
    _AddVar(oArr, 'WERT_2');
    _AddVar(oArr, 'WERT_3');
    _AddVar(oArr, 'WERT_4');
    result := oArr.ToJSON();
end;


=PHP-Script=
=PHP-Script=
<syntaxhighlight lang="php" line="1">
<?php
    $data = [];              // hier könnten Parameter übergeben werden
    $curl = curl_init();
    $url  = '[HOSTADRESSE]:[PORT]/[ENDPUNKT]/v1';
    $url  = sprintf("%s?%s", $url, http_build_query($data));
    $headers = [
        'apikey: [API-KEY]'
    ];
    curl_setopt($curl, CURLOPT_URL, $url);
    curl_setopt($curl, CURLOPT_RETURNTRANSFER, 1);
    curl_setopt($curl, CURLOPT_HTTPHEADER, $headers);
    curl_setopt($curl, CURLOPT_TIMEOUT, 2);
    if( $result = curl_exec($curl)) {
        $data = json_decode($result);
        echo "<table><tr><td width='200'></td><td width='150'></td></tr>";
        foreach ($data as $value) {
            echo "<tr><td>".$value->Titel."</td><td>".$value->Wert." ".$value->Einheit."</td></tr>";
        }
        echo "</table>";
    }


<?php
    curl_close($curl);
    $data = [];              // hier könnten Parameter übergeben werden
?>
    $curl = curl_init();
</syntaxhighlight>
    $url  = '''[HOSTADRESSE]'':''[PORT]''/''[ENDPUNKT]''/v1';
    $url  = sprintf("%s?%s", $url, http_build_query($data));
    $headers = [
        'apikey: ''[API-KEY]'''
    ];
    curl_setopt($curl, CURLOPT_URL, $url);
    curl_setopt($curl, CURLOPT_RETURNTRANSFER, 1);
    curl_setopt($curl, CURLOPT_HTTPHEADER, $headers);
    curl_setopt($curl, CURLOPT_TIMEOUT, 2);
    if( $result = curl_exec($curl)) {
        $data = json_decode($result);
        echo "&lt;table&gt;&lt;tr&gt;&lt;td width='200'&gt;&lt;/td&gt;&lt;td width='150'&gt;&lt;/td&gt;&lt;/tr&gt;";
        foreach ($data as $value) {
            echo "&lt;tr&gt;&lt;td&gt;".$value-&gt;Titel."&lt;/td&gt;&lt;td&gt;".$value-&gt;Wert." ".$value-&gt;Einheit."&lt;/td&gt;&lt;/tr&gt;";
        }
        echo "&lt;/table&gt;";
    }
    curl_close($curl);
?>

Aktuelle Version vom 3. November 2023, 06:41 Uhr

Kostenpflichtige Module

Internet-Shop
Der modified ECommerce Shop
Shop-Menü
Automatische Vorgänge
modified eCommerce 2.0
Der Büroring-ShopV4
Einrichtung
Eigene Artikel
brShop24
Einstellungen und Automatiken
Funktionen
Preislisten
Preislistenverwaltung
F10 Weitere Funktionen
Automatiken Kommandos
ZUGFeRD
Factoring
UPS
DHL
IMS Professional
TAPI
SMS
Fleet Management
Mehrlager-Verwaltung
Mehrsprachen Modul
Multilanguage Modul
Einfache Produktionsnachverfolgung
DMS - Dokumenten Management System
DMS Dokumente
Tasten und Schaltflächen
F10 Weit.
E DMS Definitionen
QR Zeiterfassung
EVA Marketing Tool
Technikersteuerung
Termin-Projekte
Edifact-Schnittstelle
Backup Überwachung Email
Anlagenbuchhaltung
OBS Geo Daten
DeliSprint / DPD
Filialen
Auto-Waagen
Cashback
Moebelschnittstelle
Tourenplanung
Tourenplanung
Dokumenten Manager
DocuWare-Schnittstelle
OFML-Kalkulation
Pascom
Versicherungsschaden
Gutschriftsanzeigen
OCPP Ladestationen
Kameraverwaltung
DataInOut
REST-Schnittstelle
Beispiele
Sammelverträge


Bei diesem Beispiel werden Daten aus dem Steuerungs-Modul abgerufen und in einer Tabelle auf einer Webseite angezeigt.

Endpunkt-Script

procedure _AddVar(oArr: TJSONArray; cVar: string);
var oWert   : TJSONObject;
    cTitel  : string;
    cData   : string;
    cEinheit: string;
    lString : Boolean;
    lAlign  : Boolean;
begin
    if (ST_Variable(oDB, cVar, cTitel, cData, cEinheit, lString, lAlign)) then begin
        oWert := TJSONObject.Create();
        
        oWert.AddPair('Variable', cVar);
        oWert.AddPair('Titel'   , cTitel);
        oWert.AddPair('Wert'    , cData);
        oWert.AddPair('Einheit' , cEinheit);

        oArr.Add(oWert);
    end;
end;

//------------------------------------------------------------------------------

function Get(oParams: TStrings): string;
var oArr: TJSONArray;
begin
    result := '';

    oArr := TJSONArray.Create();

    _AddVar(oArr, 'WERT_1');
    _AddVar(oArr, 'WERT_2');
    _AddVar(oArr, 'WERT_3');
    _AddVar(oArr, 'WERT_4');

    result := oArr.ToJSON();
end;

PHP-Script

<?php
    $data = [];              // hier könnten Parameter übergeben werden
    $curl = curl_init();
    $url  = '[HOSTADRESSE]:[PORT]/[ENDPUNKT]/v1';
    $url  = sprintf("%s?%s", $url, http_build_query($data));

    $headers = [
        'apikey: [API-KEY]'
    ];

    curl_setopt($curl, CURLOPT_URL, $url);
    curl_setopt($curl, CURLOPT_RETURNTRANSFER, 1);
    curl_setopt($curl, CURLOPT_HTTPHEADER, $headers);
    curl_setopt($curl, CURLOPT_TIMEOUT, 2);

    if( $result = curl_exec($curl)) {
        $data = json_decode($result);

        echo "<table><tr><td width='200'></td><td width='150'></td></tr>";

        foreach ($data as $value) {
            echo "<tr><td>".$value->Titel."</td><td>".$value->Wert." ".$value->Einheit."</td></tr>";
        }

        echo "</table>";
    }

    curl_close($curl);
?>
Abgerufen von „http:///index.php?title=OBS/Kostenpflichtige_Module/RESTServer/Beispiel1&oldid=62645“