OBS/Kostenpflichtige Module/RESTServer/Beispiel3 - Versionsgeschichte

Rademacker am 18. August 2026 um 06:03 Uhr

2026-08-18T06:03:46Z

← Nächstältere Version		Version vom 18. August 2026, 07:03 Uhr
Zeile 51:		Zeile 51:
	if (Assigned(oVal)) then begin		if (Assigned(oVal)) then begin
	result := oVal.Value;		result := oVal.Value;
			end;
			end;

			//------------------------------------------------------------------------------
			// Hilfsfunktion: Fehlerantwort im einheitlichen Format aufbauen.
			// Fachliche Ablehnungen als 4xx melden, nicht als 200 mit Fehlertext.
			//------------------------------------------------------------------------------

			function _Fehler(oParams: TStrings; nStatus: integer; const cCode, cMsg: string): string;
			var oRes: TJSONObject;
			oErr: TJSONObject;
			begin
			oErr := TJSONObject.Create();
			oErr.AddPair('code' , cCode);
			oErr.AddPair('message', cMsg);
			oErr.AddPair('traceId', oParams.Values['_OBS_TRACE_ID']);

			oRes := TJSONObject.Create();
			try
			oRes.AddPair('_OBS_HTTP_STATUS', nStatus);
			oRes.AddPair('error', oErr);
			result := oRes.ToJSON();
			finally
			MyFreeAndNil(oRes);
	end;		end;
	end;		end;
Zeile 72:		Zeile 96:
	result := _TicketAsJSON(qData).ToJSON();		result := _TicketAsJSON(qData).ToJSON();
	end else begin		end else begin
	result := '~~{"error":"not found"}~~';		result := _Fehler(oParams, 404, 'NOT_FOUND', 'Ticket nicht gefunden');
	end;		end;
	DB_Close(qData);		DB_Close(qData);
Zeile 107:		Zeile 131:
	begin		begin
	if (not Assigned(oBody)) then begin		if (not Assigned(oBody)) then begin
	result := '~~{"error":"~~JSON-Body erforderlich"}';		result := _Fehler(oParams, 400, 'BAD_REQUEST', 'JSON-Body erforderlich');
	exit;		exit;
	end;		end;
Zeile 115:		Zeile 139:

	if (Empty(cBetreff)) then begin		if (Empty(cBetreff)) then begin
	result := '~~{"error":"Feld~~ ''betreff'' fehlt"}';		result := _Fehler(oParams, 422, 'VALIDATION_FAILED', 'Feld "betreff" fehlt');
	exit;		exit;
	end;		end;
Zeile 158:		Zeile 182:
	begin		begin
	if (not Assigned(oBody)) then begin		if (not Assigned(oBody)) then begin
	result := '~~{"error":"~~JSON-Body erforderlich"}';		result := _Fehler(oParams, 400, 'BAD_REQUEST', 'JSON-Body erforderlich');
	exit;		exit;
	end;		end;
Zeile 167:		Zeile 191:

	if (Empty(cId)) then begin		if (Empty(cId)) then begin
	result := '~~{"error":"Feld~~ ''id'' fehlt"}';		result := _Fehler(oParams, 422, 'VALIDATION_FAILED', 'Feld "id" fehlt');
	exit;		exit;
	end;		end;

	if (not DB_LSeek(oDB, 'tickets', 'sys_uid = ' + DB_SQLVal(cId))) then begin		if (not DB_LSeek(oDB, 'tickets', 'sys_uid = ' + DB_SQLVal(cId))) then begin
	result := '~~{"error":"not found"}~~';		result := _Fehler(oParams, 404, 'NOT_FOUND', 'Ticket nicht gefunden');
	exit;		exit;
	end;		end;
Zeile 199:		Zeile 223:
	cId := oParams.Values['id'];		cId := oParams.Values['id'];
	if (Empty(cId)) then begin		if (Empty(cId)) then begin
	result := '~~{"error":"Parameter~~ ''id'' fehlt"}';		result := _Fehler(oParams, 422, 'VALIDATION_FAILED', 'Parameter "id" fehlt');
	exit;		exit;
	end;		end;

	if (not DB_LSeek(oDB, 'tickets', 'sys_uid = ' + DB_SQLVal(cId))) then begin		if (not DB_LSeek(oDB, 'tickets', 'sys_uid = ' + DB_SQLVal(cId))) then begin
	result := '~~{"error":"not found"}~~';		result := _Fehler(oParams, 404, 'NOT_FOUND', 'Ticket nicht gefunden');
	exit;		exit;
	end;		end;

Rademacker am 17. August 2026 um 08:14 Uhr

2026-08-17T08:14:41Z

← Nächstältere Version		Version vom 17. August 2026, 09:14 Uhr
Zeile 33:		Zeile 33:
	result.AddPair('beschr' , qTicket.A2C('ti_beschr'));		result.AddPair('beschr' , qTicket.A2C('ti_beschr'));
	result.AddPair('aenderung' , DTToSQL(qTicket.A2D('ti_aend_dat')));		result.AddPair('aenderung' , DTToSQL(qTicket.A2D('ti_aend_dat')));
			end;

			//------------------------------------------------------------------------------
			// Hilfsfunktion: ein Feld aus dem JSON-Body als String lesen.
			// Generics gibt es im Skript nicht - oBody.TryGetValue<string>(...) laesst sich
			// nicht uebersetzen. GetValue liefert nil, wenn das Feld fehlt.
			//------------------------------------------------------------------------------

			function _BodyStr(oBody: TJSONObject; const cFeld: string): string;
			var oVal: TJSONValue;
			begin
			result := '';
			if (oBody = nil) then begin
			exit;
			end;
			oVal := oBody.GetValue(cFeld);
			if (Assigned(oVal)) then begin
			result := oVal.Value;
			end;
	end;		end;

Zeile 50:		Zeile 69:
	if (not Empty(cId)) then begin		if (not Empty(cId)) then begin
	cSql := 'SELECT * FROM tickets WHERE sys_uid = ' + DB_SQLVal(cId);		cSql := 'SELECT * FROM tickets WHERE sys_uid = ' + DB_SQLVal(cId);
	if (DB_SOpen(~~'Y00CXXXXBA',~~ oDB, cSql, qData)) then begin		if (DB_SOpen(oDB, cSql, qData)) then begin
	result := _TicketAsJSON(qData).ToJSON();		result := _TicketAsJSON(qData).ToJSON();
	end else begin		end else begin
Zeile 60:		Zeile 79:
	try		try
	cSql := 'SELECT * FROM tickets WHERE ti_status <> "9" ORDER BY ti_aend_dat DESC';		cSql := 'SELECT * FROM tickets WHERE ti_status <> "9" ORDER BY ti_aend_dat DESC';
	if (DB_SOpen(~~'Y00CXXXXBB',~~ oDB, cSql, qData)) then begin		if (DB_SOpen(oDB, cSql, qData)) then begin
	while (not qData.EoF) do begin		while (not qData.EoF) do begin
	oArr.Add(_TicketAsJSON(qData));		oArr.Add(_TicketAsJSON(qData));
Zeile 92:		Zeile 111:
	end;		end;

	cBetreff := '';		cBetreff := _BodyStr(oBody, 'betreff');
	cBeschr := ~~'';~~		cBeschr := _BodyStr(oBody, 'beschr');
	oBody~~.TryGetValue<string>('betreff'~~, ~~cBetreff);~~
	~~oBody.TryGetValue<string>(~~'beschr' ~~, cBeschr~~);

	if (Empty(cBetreff)) then begin		if (Empty(cBetreff)) then begin
Zeile 104:		Zeile 121:
	cId := GetNewId(oDB);		cId := GetNewId(oDB);

	xTicket := qSqlInit(~~'Y00CXXXXBC',~~ oDB, 'tickets');		xTicket := qSqlInit(oDB, 'tickets');
	xTicket.lNoSysUID := True;		xTicket.lNoSysUID := True;
	try		try
Zeile 145:		Zeile 162:
	end;		end;

	cId := '';		cId := _BodyStr(oBody, 'id');
	cStat := '';		cStat := _BodyStr(oBody, 'status');
	cBeschr := ~~'';~~		cBeschr := _BodyStr(oBody, 'beschr');
	~~oBody.TryGetValue<string>~~(~~'id' , cId);~~
	oBody~~.TryGetValue<string>('status'~~, ~~cStat);~~
	~~oBody.TryGetValue<string>(~~'beschr'~~, cBeschr~~);

	if (Empty(cId)) then begin		if (Empty(cId)) then begin
Zeile 162:		Zeile 176:
	end;		end;

	xTicket := qSqlRead(~~'Y00CXXXXBD',~~ oDB, 'tickets', 'sys_uid = ' + DB_SQLVal(cId));		xTicket := qSqlRead(oDB, 'tickets', 'sys_uid = ' + DB_SQLVal(cId));
	try		try
	if (not Empty(cStat)) then xTicket.qSet('ti_status' , cStat);		if (not Empty(cStat)) then xTicket.qSet('ti_status' , cStat);
Zeile 194:		Zeile 208:
	end;		end;

	xTicket := qSqlRead(~~'Y00CXXXXBE',~~ oDB, 'tickets', 'sys_uid = ' + DB_SQLVal(cId));		xTicket := qSqlRead(oDB, 'tickets', 'sys_uid = ' + DB_SQLVal(cId));
	try		try
	xTicket.qSet('ti_status' , '9');		xTicket.qSet('ti_status' , '9');

Rademacker am 15. Juni 2026 um 07:30 Uhr

2026-06-15T07:30:33Z

← Nächstältere Version		Version vom 15. Juni 2026, 08:30 Uhr
Zeile 5:		Zeile 5:
	Dieses Beispiel zeigt einen Endpunkt mit allen vier CRUD-Methoden (GET, POST, PUT, DELETE). Es geht um Tickets eines externen Servicedesks, der Tickets ueber den OBS REST-Server in OBS einliefern, abrufen, aktualisieren und schliessen kann.		Dieses Beispiel zeigt einen Endpunkt mit allen vier CRUD-Methoden (GET, POST, PUT, DELETE). Es geht um Tickets eines externen Servicedesks, der Tickets ueber den OBS REST-Server in OBS einliefern, abrufen, aktualisieren und schliessen kann.

	{{Hinweis\|Dieses Beispiel adressiert ein einzelnes Ticket über einen Query-Parameter (''?id=...''). Alternativ lässt sich dieselbe Ressource über ein Pfad-Template wie ''/tickets/{id}'' ansprechen; die ID steht dann als ''oParams.Values['_OBS_PATH_id']'' bereit. Ein vollständiges Beispiel dazu zeigt [[OBS/Kostenpflichtige Module/RESTServer/Beispiel4\|Beispiel 4 - Pfad-Parameter]].}}		{{Hinweis\|Dieses Beispiel adressiert ein einzelnes Ticket über einen Query-Parameter (''?id...''). Alternativ lässt sich dieselbe Ressource über ein Pfad-Template wie ''/tickets/{id}'' ansprechen; die ID steht dann als ''oParams.Values['_OBS_PATH_id']'' bereit. Ein vollständiges Beispiel dazu zeigt [[OBS/Kostenpflichtige Module/RESTServer/Beispiel4\|Beispiel 4 - Pfad-Parameter]].}}

	==Einrichtung in OBS==		==Einrichtung in OBS==

Rademacker am 15. Juni 2026 um 07:25 Uhr

2026-06-15T07:25:24Z

← Nächstältere Version		Version vom 15. Juni 2026, 08:25 Uhr
Zeile 4:		Zeile 4:

	Dieses Beispiel zeigt einen Endpunkt mit allen vier CRUD-Methoden (GET, POST, PUT, DELETE). Es geht um Tickets eines externen Servicedesks, der Tickets ueber den OBS REST-Server in OBS einliefern, abrufen, aktualisieren und schliessen kann.		Dieses Beispiel zeigt einen Endpunkt mit allen vier CRUD-Methoden (GET, POST, PUT, DELETE). Es geht um Tickets eines externen Servicedesks, der Tickets ueber den OBS REST-Server in OBS einliefern, abrufen, aktualisieren und schliessen kann.

			{{Hinweis\|Dieses Beispiel adressiert ein einzelnes Ticket über einen Query-Parameter (''?id=...''). Alternativ lässt sich dieselbe Ressource über ein Pfad-Template wie ''/tickets/{id}'' ansprechen; die ID steht dann als ''oParams.Values['_OBS_PATH_id']'' bereit. Ein vollständiges Beispiel dazu zeigt [[OBS/Kostenpflichtige Module/RESTServer/Beispiel4\|Beispiel 4 - Pfad-Parameter]].}}

	==Einrichtung in OBS==		==Einrichtung in OBS==
Zeile 280:		Zeile 282:
	* Eindeutige Audit-UIDs (''Y00CXXXXxx'') fuer jeden DB-Zugriff zur Nachvollziehbarkeit.		* Eindeutige Audit-UIDs (''Y00CXXXXxx'') fuer jeden DB-Zugriff zur Nachvollziehbarkeit.
	* Host-gebundener Zugang als zweite Sicherheitsebene neben dem API-Key.		* Host-gebundener Zugang als zweite Sicherheitsebene neben dem API-Key.
			* Alternativ: ID per Pfad-Parameter statt Query-Parameter (siehe [[OBS/Kostenpflichtige Module/RESTServer/Beispiel4\|Beispiel 4]]).

Rademacker am 15. Juni 2026 um 07:07 Uhr

2026-06-15T07:07:43Z

← Nächstältere Version		Version vom 15. Juni 2026, 08:07 Uhr
Zeile 1:		Zeile 1:
	{{Kostenpflichtige Module}}		{{Kostenpflichtige Module}}

	=Beispiel 2: Datensatz anlegen mit JSON-Body=		=Beispiel 3: Datensatz anlegen mit JSON-Body=

	Dieses Beispiel zeigt einen Endpunkt mit allen vier CRUD-Methoden (GET, POST, PUT, DELETE). Es geht um Tickets eines externen Servicedesks, der Tickets ueber den OBS REST-Server in OBS einliefern, abrufen, aktualisieren und schliessen kann.		Dieses Beispiel zeigt einen Endpunkt mit allen vier CRUD-Methoden (GET, POST, PUT, DELETE). Es geht um Tickets eines externen Servicedesks, der Tickets ueber den OBS REST-Server in OBS einliefern, abrufen, aktualisieren und schliessen kann.

Rademacker am 19. Mai 2026 um 05:49 Uhr

2026-05-19T05:49:07Z

← Nächstältere Version		Version vom 19. Mai 2026, 06:49 Uhr
Zeile 38:		Zeile 38:
	//------------------------------------------------------------------------------		//------------------------------------------------------------------------------

	function Get(oBody: TJSONObject~~; oParams: TStrings~~): string;		function Get(oParams: TStrings; oBody: TJSONObject): string;
	var cSql : string;		var cSql : string;
	qData : TxFQuery;		qData : TxFQuery;
Zeile 78:		Zeile 78:
	//------------------------------------------------------------------------------		//------------------------------------------------------------------------------

	function Post(oBody: TJSONObject~~; oParams: TStrings~~): string;		function Post(oParams: TStrings; oBody: TJSONObject): string;
	var xTicket : TqSQL;		var xTicket : TqSQL;
	cId : string;		cId : string;
Zeile 132:		Zeile 132:
	//------------------------------------------------------------------------------		//------------------------------------------------------------------------------

	function Put(oBody: TJSONObject~~; oParams: TStrings~~): string;		function Put(oParams: TStrings; oBody: TJSONObject): string;
	var xTicket: TqSQL;		var xTicket: TqSQL;
	cId : string;		cId : string;
Zeile 177:		Zeile 177:
	//------------------------------------------------------------------------------		//------------------------------------------------------------------------------

	function Delete(oBody: TJSONObject~~; oParams: TStrings~~): string;		function Delete(oParams: TStrings; oBody: TJSONObject): string;
	var xTicket: TqSQL;		var xTicket: TqSQL;
	cId : string;		cId : string;

Rademacker: Die Seite wurde neu angelegt: „{{Kostenpflichtige Module}} =Beispiel 2: Datensatz anlegen mit JSON-Body= Dieses Beispiel zeigt einen Endpunkt mit allen vier CRUD-Methoden (GET, POST, PUT, DELETE). Es geht um Tickets eines externen Servicedesks, der Tickets ueber den OBS REST-Server in OBS einliefern, abrufen, aktualisieren und schliessen kann. ==Einrichtung in OBS== * '''Server-Profil:''' Standard-TLS-Profil ''Public-API'', Bindung 0.0.0.0:443 * '''Zugang:''' ''Servicedesk-X'' ** A…“

2026-05-19T05:45:49Z

Die Seite wurde neu angelegt: „{{Kostenpflichtige Module}} =Beispiel 2: Datensatz anlegen mit JSON-Body= Dieses Beispiel zeigt einen Endpunkt mit allen vier CRUD-Methoden (GET, POST, PUT, DELETE). Es geht um Tickets eines externen Servicedesks, der Tickets ueber den OBS REST-Server in OBS einliefern, abrufen, aktualisieren und schliessen kann. ==Einrichtung in OBS== * '''Server-Profil:''' Standard-TLS-Profil ''Public-API'', Bindung 0.0.0.0:443 * '''Zugang:''' ''Servicedesk-X'' ** A…“

Änderungen zeigen

Böhrer: Die Seite wurde neu angelegt: „Monster Legends is an island builder that permits the player to gather monsters and practice them for battles in the wild or against players. The characters a…“

2017-05-26T06:37:18Z

Die Seite wurde neu angelegt: „Monster Legends is an island builder that permits the player to gather monsters and practice them for battles in the wild or against players. The characters a…“

Neue Seite

Monster Legends is an island builder that permits the player to gather monsters and practice them for battles in the wild or against players. The characters are each sturdy and quite a few, but whereas there are countless forged members, unlike many shows where there are giant amounts of characters which are completely [https://www.Change.org/search?q=useless useless] and contribute nothing to the plot, every character in Monster brings one thing to the mix. Rustic wood incorporates many natural traits including open and closed knots, pitch pockets, rasped edges, gouges, wormholes, small season checks, mineral streaks, dramatic shade [http://Www.europeana.eu/portal/search.html?query=distinction distinction] and different pure variations all reflecting the inherent beauty of the wooden. It can be tempting to get caught up in the fun of breeding and elevating monsters, with out paying enough attention to the talents that you have unlocked for each of them (or the talents that you still have not unlocked!) Every monster has a different [http://get-gems.postbit.com/emotions-around-the-monster-legends-hack.html cheat in monster legends gems] assortment of abilities, and if you wish to reach battles-rather than just sitting around raising monsters all day-then you definately'll need to know what they're capable of! To actually turn into the stuff of [http://mombao3.livejournal.com/620.html legends of tomorrow cast amaya], you will have to use the free BlueStacks Android Emulator to play Monster Legends on COMPUTER or Mac. The supporting solid is just as essential as a result of they are the means that help this anime arrive at a profitable end. What separates Rings from other puzzle video games is it appears to do an excellent job of giving you a way out when the board is almost full. The level meter on the prime of the sport display screen exhibits how many XP you've collected and the remaining XP it is advisable to stage up.