OBS/Kostenpflichtige Module/RESTServer/Beispiel1 - Versionsgeschichte

Rademacker am 9. September 2026 um 12:32 Uhr

2026-09-09T12:32:15Z

Rademacker: /* JWT-Authentifizierungs-Skript (Zugang) */

2026-08-19T10:18:04Z

JWT-Authentifizierungs-Skript (Zugang)

← Nächstältere Version		Version vom 19. August 2026, 11:18 Uhr
Zeile 61:		Zeile 61:
	oRes.AddPair('_OBS_JWT_AUDIENCE', 'dashboard');		oRes.AddPair('_OBS_JWT_AUDIENCE', 'dashboard');
	end;		end;


	end;		end;
	DB_Close(qUser);		DB_Close(qUser);

Rademacker am 19. August 2026 um 10:14 Uhr

2026-08-19T10:14:47Z

← Nächstältere Version		Version vom 19. August 2026, 11:14 Uhr
Zeile 22:		Zeile 22:
	function Authenticate(oParams: TStrings; oBody: TJSONObject): string;		function Authenticate(oParams: TStrings; oBody: TJSONObject): string;
	var oRes : TJSONObject;		var oRes : TJSONObject;
			oVal : TJSONValue;
	cUser : string;		cUser : string;
	cPass : string;		cPass : string;
	cSql : string;		cSql : string;
	qUser : TxFQuery;		qUser : TxFQuery;
			lOk : Boolean;
	begin		begin
	oRes := TJSONObject.Create();		oRes := TJSONObject.Create();
Zeile 41:		Zeile 43:
	end;		end;
	end;		end;

	cSql := 'SELECT u_nr, u_name FROM benutzer' +		cSql := 'SELECT u_nr, u_name FROM benutzer' +
	' WHERE u_login = ' + DB_SQLVal(cUser) +		' WHERE u_login = ' + DB_SQLVal(cUser) +
	' AND u_passwort_hash = ' + DB_SQLVal(HashPasswort(cPass)) +		' AND u_passwort_hash = ' + DB_SQLVal(HashPasswort(cPass)) +
	' AND u_aktiv = "1"';		' AND u_aktiv = ' + DB_SQLVal('1');

			// DB_SOpen liefert true, wenn die ABFRAGE lief - nicht, wenn ein
			// Datensatz gefunden wurde. Ohne die EoF-Pruefung wuerde jede
			// Anmeldung gelingen, sobald das SQL fehlerfrei ist.
			lOk := false;
	if (DB_SOpen(oDB, cSql, qUser)) then begin		if (DB_SOpen(oDB, cSql, qUser)) then begin
	oRes.AddPair('status' , 1);		if (not qUser.EoF) then begin
	oRes.AddPair('_OBS_JWT_ID' , qUser.A2C('u_nr'));		lOk := true;
	oRes.AddPair('_OBS_JWT_SUBJECT' , qUser.A2C('u_name'));		oRes.AddPair('status' , 1);
	oRes.AddPair('_OBS_JWT_AUDIENCE', 'dashboard');		oRes.AddPair('_OBS_JWT_ID' , qUser.A2C('u_nr'));
	end ~~else~~ begin		oRes.AddPair('_OBS_JWT_SUBJECT' , qUser.A2C('u_name'));
			oRes.AddPair('_OBS_JWT_AUDIENCE', 'dashboard');
			end;


			end;
			DB_Close(qUser);

			if (not lOk) then begin
	oRes.AddPair('status', 9);		oRes.AddPair('status', 9);
	oRes.AddPair('error' , '~~Login fehlgeschlagen~~');		oRes.AddPair('error' , 'Benutzer oder Passwort ist falsch');
	end;		end;
	~~DB_Close(qUser);~~

	result := oRes.ToJSON();		result := oRes.ToJSON();
Zeile 62:		Zeile 77:
	end;		end;
	</syntaxhighlight>		</syntaxhighlight>

			{{Hinweis\|Hier steht in ''_OBS_JWT_ID'' die Benutzernummer - derselbe Wert also bei
			jeder Anmeldung desselben Benutzers. Das ist zulässig: der Server führt seine
			Sitzungen über eigene Kennungen (''sid''/''rid''), nicht über das ''jti'' des
			Skripts. Mehrfache und parallele Anmeldungen eines Benutzers sind damit
			unproblematisch.}}

	==Endpunkt-Skript ''steuerung/v1''==		==Endpunkt-Skript ''steuerung/v1''==
Zeile 190:		Zeile 211:
	Antwort:		Antwort:

	{"token":"eyJhbGciOi..."}		{"token": "eyJhbGciOi...",
			"accessToken": "eyJhbGciOi...",
			"expiresIn": 3600,
			"serverTime": "2026-08-19T09:12:33+02:00"}

			Da das Skript kein ''_OBS_JWT_REFRESH_ID'' liefert, enthält die Antwort kein
			''refreshToken'' - der Client meldet sich nach Ablauf der 60 Minuten neu an.

	Daten abrufen:		Daten abrufen:
Zeile 203:		Zeile 230:
	* Eigenes Authentifizierungs-Skript pro Zugang.		* Eigenes Authentifizierungs-Skript pro Zugang.
	* Browser-Zugriff ueber CORS-erlaubtes Origin.		* Browser-Zugriff ueber CORS-erlaubtes Origin.
			* Anmeldung ohne Refresh-Token: einfachster Fall, der Token laeuft nach der Zeit aus ''JWT-Exp'' ab.

Rademacker am 18. August 2026 um 06:04 Uhr

2026-08-18T06:04:34Z

@@ Zeile 87: / Zeile 87: @@
 //------------------------------------------------------------------------------
 function Get(oParams: TStrings; oBody: TJSONObject): string;
@@ Zeile 93: / Zeile 117: @@
      // Audience-Pruefung: nur Dashboard-Tokens akzeptieren
      if (oParams.Values['_OBS_JWT_AUDIENCE'] <> 'dashboard') then begin
-         result := '{"error":"audience not allowed"}';
+         result := _Fehler(oParams, 403, 'FORBIDDEN_ROLE', 'Token nicht für diese Anwendung ausgestellt');
          exit;
      end;

Rademacker am 17. August 2026 um 08:14 Uhr

2026-08-17T08:14:08Z

← Nächstältere Version		Version vom 17. August 2026, 09:14 Uhr
Zeile 45:		Zeile 45:
	' AND u_passwort_hash = ' + DB_SQLVal(HashPasswort(cPass)) +		' AND u_passwort_hash = ' + DB_SQLVal(HashPasswort(cPass)) +
	' AND u_aktiv = "1"';		' AND u_aktiv = "1"';
	if (DB_SOpen(~~'Y00CXXXXAA',~~ oDB, cSql, qUser)) then begin		if (DB_SOpen(oDB, cSql, qUser)) then begin
	oRes.AddPair('status' , 1);		oRes.AddPair('status' , 1);
	oRes.AddPair('_OBS_JWT_ID' , qUser.A2C('u_nr'));		oRes.AddPair('_OBS_JWT_ID' , qUser.A2C('u_nr'));

Rademacker: /* JWT-Authentifizierungs-Skript (Zugang) */

2026-05-19T05:58:05Z

JWT-Authentifizierungs-Skript (Zugang)

← Nächstältere Version		Version vom 19. Mai 2026, 06:58 Uhr
Zeile 32:		Zeile 32:
	cPass := '';		cPass := '';
	if (Assigned(oBody)) then begin		if (Assigned(oBody)) then begin
	oBody.~~TryGetValue<string>~~('username', cUser);		oVal := oBody.GetValue('username');
	oBody.~~TryGetValue<string>~~('password', cPass);		if (Assigned(oVal)) then begin
			cUser := oVal.Value;
			end;
			oVal := oBody.GetValue('password');
			if (Assigned(oVal)) then begin
			cPass := oVal.Value;
			end;
	end;		end;

	cSql := 'SELECT u_nr, u_name FROM benutzer' +		cSql := 'SELECT u_nr, u_name FROM benutzer' +
	' WHERE u_login = ' + DB_SQLVal(cUser) +		' WHERE u_login = ' + DB_SQLVal(cUser) +

Rademacker am 19. Mai 2026 um 05:46 Uhr

2026-05-19T05:46:54Z

← Nächstältere Version		Version vom 19. Mai 2026, 06:46 Uhr
Zeile 20:		Zeile 20:

	<syntaxhighlight lang="pascal" line>		<syntaxhighlight lang="pascal" line>
	function Authenticate(oBody: TJSONObject~~; oParams: TStrings~~): string;		function Authenticate(oParams: TStrings; oBody: TJSONObject): string;
	var oRes : TJSONObject;		var oRes : TJSONObject;
	cUser : string;		cUser : string;
Zeile 83:		Zeile 83:
	//------------------------------------------------------------------------------		//------------------------------------------------------------------------------

	function Get(oBody: TJSONObject~~; oParams: TStrings~~): string;		function Get(oParams: TStrings; oBody: TJSONObject): string;
	var oArr: TJSONArray;		var oArr: TJSONArray;
	begin		begin

Rademacker am 19. Mai 2026 um 05:44 Uhr

2026-05-19T05:44:17Z

Änderungen zeigen

Rademacker am 3. November 2023 um 05:41 Uhr

2023-11-03T05:41:39Z

@@ Zeile 4: / Zeile 4: @@
 =Endpunkt-Script=
- 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>
 =PHP-Script=
- <?php
+    curl_close($curl);
-     $data = [];              // hier könnten Parameter übergeben werden
+?>
-     $curl = curl_init();
+</syntaxhighlight>

Rademacker: 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…“

2023-07-26T05:46:16Z

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…“

← Nächstältere Version		Version vom 26. Juli 2023, 06:46 Uhr
Zeile 1:		Zeile 1:
	~~Hello from Belgium~~. I'~~m glad to be here~~. ~~My first name is Brianna~~. ~~<br>I live in a small city called Geer in south Belgium~~.~~<br>I was also born in Geer 39 years ago~~. ~~Married in October year 2002~~. I'~~m working at the backery~~.<~~br><br>Stop by my page~~; [~~https~~://~~speakerdeck~~.~~com~~/~~sbgamehacker game hacker apk]~~		{{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
			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);
			?>