AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Netzwerke Delphi Client-Units für JSON-REST-Services erzeugen
Thema durchsuchen
Ansicht
Themen-Optionen

Client-Units für JSON-REST-Services erzeugen

Ein Thema von Zwixx · begonnen am 28. Apr 2020 · letzter Beitrag vom 25. Aug 2020
Antwort Antwort
HolgerX

Registriert seit: 10. Apr 2006
Ort: Leverkusen
984 Beiträge
 
Delphi 6 Professional
 
#1

AW: Client-Units für JSON-REST-Services erzeugen

  Alt 14. Mai 2020, 06:53
Hmm..

Ich habe es heruasgefunden woran es liegt. Es wird im openapi.yaml mit folgenden response beschrieben:
Code:
        "responses": {
          "200": {
            "description": "Success",
            "content": {
              "application/json": {
                "schema": {
                  "$ref": "#/components/schemas/SalesTax"
                }
              }
            }
          },
          "204": {
            "description": "No content"
          },
Ich gehe davon aus, das man wenn keine response vorhanden ist, es eine procedure ist, wenn es einen Rückgabewert gibt, eine function ist. In diesem Falle wird sie aber als beides beschrieben. Sie kann einmal ein Objekt zurückgeben, einmal nicht.

Was macht das für einen Sinn?

Ich werde sehen, wie ich das behandeln kann.

Es gibt bei Vorhandensein (200) von Daten ein Object zurück, ansonsten (204) eben NIL.
Somit sollte es immer eine Funktion sein, es muss halt geprüft werden, ob NIL zurück gegeben wurde.
(Ja ich Verwende Delphi 6 Pro und will NICHT wechseln!)
  Mit Zitat antworten Zitat
Zwixx

Registriert seit: 2. Nov 2006
37 Beiträge
 
Delphi 10.3 Rio
 
#2

AW: Client-Units für JSON-REST-Services erzeugen

  Alt 14. Mai 2020, 12:00
Es gibt bei Vorhandensein (200) von Daten ein Object zurück, ansonsten (204) eben NIL.
Somit sollte es immer eine Funktion sein, es muss halt geprüft werden, ob NIL zurück gegeben wurde.
Stimmt. So war mir das gar nicht bewusst. Ich habe das jetzt auch so umgebaut, das er bei dem vorhandensein eines Rückgabewertes daraus dann eine Funktion macht, bei allem anderen wird es dann zu einer Procedure. Damit sollte das Problem zumindest schonmal erledigt sein.

Als nächstes steht dann an noch einige Methoden ein wenig aufzuräumen und in andere Methoden auszulagern. Dann aber kann ich an die ersten Tests gehen.
  Mit Zitat antworten Zitat
Zwixx

Registriert seit: 2. Nov 2006
37 Beiträge
 
Delphi 10.3 Rio
 
#3

AW: Client-Units für JSON-REST-Services erzeugen

  Alt 14. Mai 2020, 18:51
So, bisher ist die Syntax richtig, ich habe noch ein wenig aufgeräumt und es scheint zu funktionieren. Ich habe selbst kein ebay-developer-account und auch keine Möglichkeit das so einfach zu testen Ich werde mir aber mal was suchen, wo ich sehen kann ob das so geht wie ich möchte (und wenn ich mir selbst eben einen Service zusammenbaue).

Hier der erzeugte Quellcode aus dem Beispiel bisher:

https://pastebin.com/xKbv0XXd

Verbesserungen die ich noch nicht beachtet habe:
* Die Objekte sollten wieder automatisch freigegeben werden, die an den jeweiligen Objekten hängen. So ähnlich wie dies auch beispielsweise die WebService-Importer macht.
* Methoden für Basic Auth und Oauth2, die zumindest den Token fest setzen lassen das man diesen nicht immer manuell über die Events setzen muss.

Geändert von Zwixx (14. Mai 2020 um 18:58 Uhr)
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 23:49 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz