Wie anmelden an entfernten Webservice per Headerinfo?

[TiGü]

Hallo Gemeinde,

ich stehe gerade wie der Ochs vorm Berg und hoffe auf hilfreiche Inspirationen euerseits.

Gegeben ist der Versuch der Kommunikation mit einem Webservice.
Dieser Webservice gibt es zum einen als lokale Variante als Windows-Dienst.
Zu diesem Webservice gibt es auch eine WSDL-Datei, die importiert ein Interface anbietet plus die typische Factory-Funktion:

Delphi-Quellcode:

  IPOS = interface(IInvokable)
  ['{E2FA8424-460E-C4F7-2508-000E745AD493}']
    function  Sign(const data: ReceiptRequest2): ReceiptResponse2; stdcall;
    function  Journal(const ftJournalType: Int64; const from: Int64; const to_: Int64): StreamBody; stdcall;
    function  Echo(const message_: string): string; stdcall;
  end;

function GetIPOS(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): IPOS;

Für die lokale Variante muss man eine HTTP-Adresse angeben die sich aus der IP-Adresse und Port sowie einer spezifischen GUID zusammensetzt.
Die GUID wird in der Konfiguration des Dienstes übergeben.
Ein typischer Aufruf würde so aussehen:

Delphi-Quellcode:

var
  FiskalTrust: IPOS;
  address: string; 
begin
  address := 'http://localhost:1200/d89e2e41-55ae-40f5-97b9-7a8743411b50';
  FiskalTrust := GetIPOS(false, address);

if FiskalTrust.Echo('Hello') <> 'Hello' then
  raise EProgrammerNotFound.Create('Is nich!');

Soweit ist das für mich auch kein Problem.
Alles geht soweit, ich kann die drei Methoden des Interfaces aufrufen und erhalte Antworten.


Nun ist es so, dass es diesen Webservice auch als eine Art Cloud-Dienst gibt.
Man steuert also keinen im lokalen Netzwerk liegenden Dienst an, sondern geht ins böse Internet.
Zusätzlich muss man sich dabei laut Dokumentation mithilfe einer GUID und AccessToken (irgendwas-BASE64 kodiertes) anmelden.
Mein Problem ist jetzt...wie kriege ich das per GetIPOS-Funktion hin??
Die Dokumentation sagt darüber sowas wie:

Zitat:

Der Url für die Signaturecloud ist
https://signaturcloud-sandbox.fiskaltrust.at/ für die Sandbox
https://signaturcloud.fiskaltrust.at/ für das Echtsystem

Der Server reagiert nicht auf Ping. Um ihn anzusprechen müssen das Accesstoken und die CashboxID im Header der Anfrage mitgesendet werden. Als Methode POST, nicht GET.

Gültige AccessToken und die CashboxID in Form einer GUID liegen mir vor.

Dann gibt es noch den Verweis auf ein C#-Beispiel, wo aber - ich sag mal - low level REST-Anfragen per SOAP/JSON/XML getätigt werden und nicht die importierte WSDL-Datei oder das passende NuGet-Package genommen wird:
https://github.com/fiskaltrust/inter...EST/Program.cs

Daraus als Beispiel die Methode echoJSON:

Code:

 static void echoJson(string url, Guid cashboxid = default(Guid), string accesstoken = null)
        {

            var webreq = (HttpWebRequest)HttpWebRequest.Create(url + "/json/echo");
            webreq.Method = "POST";
            webreq.ContentType = "application/json;charset=utf-8";

            webreq.Headers.Add("cashboxid", cashboxid.ToString());
            webreq.Headers.Add("accesstoken", accesstoken);

            byte[] reqecho = Encoding.UTF8.GetBytes(JsonConvert.SerializeObject("Hello World"));
            webreq.ContentLength = reqecho.Length;
            using (var reqStream = webreq.GetRequestStream())
            {
                reqStream.Write(reqecho, 0, reqecho.Length);
            }

            var webresp = (HttpWebResponse)webreq.GetResponse();
            if (webresp.StatusCode == HttpStatusCode.OK)
            {
                using (var respReader = new System.IO.StreamReader(webresp.GetResponseStream(), Encoding.UTF8))
                {
                    var json = respReader.ReadToEnd();
                    var respecho = JsonConvert.DeserializeObject<string>(json);
                    Console.WriteLine("{0:G} Echo {1}", DateTime.Now, respecho);
                }
            }
            else
            {
                Console.WriteLine("{0:G} {1} {2}", DateTime.Now, webresp.StatusCode, webresp.StatusDescription);
            }
        }

FRAGE:Wie kann ich jetzt mithilfe meiner GetIPOS-Funktion per Angabe der Header-Parameter von CashboxID und AccessToken mit dem Cloud-Webservice kommunizieren?

Ich sehe, dass man als dritten Parameter selber eine Instanz von THTTPRIO reinreichen kann.
Wo und wie kann ich eine Instanz davon manipulieren, dass es die Header-Parameter übernimmt.
Ich sehe den Wald vor lauter Bäumen nicht.