Wie anmelden an entfernten Webservice per Headerinfo?

[TiGü]

Delphi-Quellcode:

type
  THelper = class
  public
    procedure BeforePost(const HTTPReqResp: THTTPReqResp; Data: Pointer);
  end;

procedure THelper.BeforePost(const HTTPReqResp: THTTPReqResp; Data: Pointer);
var
  accesstoken: string;
  cashbox: string;
begin
  cashbox := '31ada64f-bafd-492e-ac92-867f82bb2e59';
  accesstoken := 'BJLC+VckWl36AhGwvH3sOC6bQcowHjWq7vx3wsDy42nnLcyB49vrgkxkeMvqodNtvtwaJ51HUaBs7eiX7PUyiOg=';

  HttpAddRequestHeaders(Data, PChar(cashbox), Length(cashbox), HTTP_ADDREQ_FLAG_ADD);
  HttpAddRequestHeaders(Data, PChar(accesstoken), Length(accesstoken), HTTP_ADDREQ_FLAG_ADD);
end;

procedure Main;
var
  baseaddress: string;
  address: string;
  FiskalTrust: IPOS;
  Call, Echo: string;
  Rio: THTTPRIO;
  helper: THelper;
begin
  helper := THelper.Create;
  // baseaddress := 'https://signaturecloud.fiskaltrust.at';
  baseaddress := 'https://signaturcloud-sandbox.fiskaltrust.at';

  address := baseaddress;

  Rio := THTTPRIO.Create(nil);
  Rio.HTTPWebNode.OnBeforePost := helper.BeforePost;

  FiskalTrust := GetIPOS(false, address, Rio);
  Call := 'Hello';
  Echo := FiskalTrust.Echo(Call);
  if Echo <> Call then
    raise EProgrammerNotFound.Create('Is nich!');

  Writeln(Echo + sLineBreak);
end;

Hm, also mein OnBeforePost wird zwar aufgerufen, aber weiter komme ich nicht.
Der Aufruf der Echo-Methode schlägt fehl und ich erhalte eine 404-Fehler.

Zitat:

Project BlaBlupp.exe raised exception class ESOAPHTTPException with message 'Not Found (404) - 'https://signaturcloud-sandbox.fiskaltrust.at''.

Ich werde wohl nochmal mit den Anbieter in Kontakt treten.
Nicht das ich ständig den Fehler bei mir suche und am Ende ist die Endstelle offline.

[jaenicke]

Zitat von TiGü:

// baseaddress := 'https://signaturecloud.fiskaltrust.at';
baseaddress := 'https://signaturcloud-sandbox.fiskaltrust.at';

Fehlt da vielleicht schlicht ein e? Mal mit mal ohne e?

Zitat:

signatur< >cloud-sandbox

Ich würde meinen das sollte so sein:

Zitat:

https://signaturecloud-sandbox.fiskaltrust.at

[TiGü]

Wenn es wirklich daran liegen sollte!!!

Ich werde gleich morgen früh testen! Danke für den Hinweis.

[jus]

Hallo TiGü,

mein Wissen zu Fiskaltrust ist nicht mehr auf den aktuellsten Stand, obwohl dies bei uns in der Firma bald wieder ansteht(spätestens am 1.April ). Seit letzten Frühjahr hat sich vermutlich einiges geändert. Damals gab es zwar eine Möglichkeit, und vermutlich jetzt immer noch, dass man statt den Weg übers Interface auch direkt über das Json-Format diesen Dienst anzusprechen kann. Ich hatte mal die Kommunikation mit Hilfe von diesem Forum in Beitrag " Kommunikation mit Windows WCF Dienst" gelöst.

Anbei das Ergebnis meiner Versuche von damals:

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var
  HTTP: TIdHTTP;
  RequestBody: TStream;
  ResponseBody: string;
  s: String;
begin
  HTTP := TIdHTTP.Create;
  try
    try
      s := '{"ftCashBoxID":"fiskaltrust-TEST","cbTerminalID":"1","cbReceiptReference":"9c856fa6-5e3c-4e2c-b275-82cf35363fdf","cbReceiptMoment":"\/Date(1452442695134+0100)\/",';
      s := s+'"cbChargeItems":[';
      s := s+'{"Quantity":1.0,"Description":"Artikel1","Amount":4.8,"VATRate":20.0,"ftChargeItemCase":4707387510509010944,"ftChargeItemCaseData":"","AccountNumber":"","CostCenter":"","ProductGroup":"","ProductNumber":"1","ProductBarcode":"","Unit":""},';
      s := s+'{"Quantity":1.0,"Description":"Artikel 2","Amount":3.6,"VATRate":20.0,"ftChargeItemCase":4707387510509010944,"ftChargeItemCaseData":"","AccountNumber":"","CostCenter":"","ProductGroup":"","ProductNumber":"2","ProductBarcode":"","Unit":""}],';
      s := s+'"cbPayItems": [{"Quantity":1.0,"Description":"Bar","Amount":8.4,"ftPayItemCase":4707387510509010944,"ftPayItemCaseData":"","AccountNumber":"","CostCenter":"","MoneyGroup":"","MoneyNumber":""}], "ftReceiptCase":4707387510509010944}';
      //s:=utf8encode(s);
      Memo1.Lines.Add(s);
      RequestBody := TStringStream.Create(s);
      try
        HTTP.Request.Accept := 'application/json';
        HTTP.Request.ContentType := 'application/json';
        HTTP.Request.ContentEncoding:= 'utf-8';

        ResponseBody := HTTP.Post('http://localhost:1201/fiskaltrust/POS/json/sign', RequestBody);

        Memo1.Lines.Add(ResponseBody);
        Memo1.Lines.Add(HTTP.ResponseText);
      finally
        RequestBody.Free;
      end;
    except
      on E: EIdHTTPProtocolException do
      begin
        Memo1.Lines.Add(E.Message);
        Memo1.Lines.Add(E.ErrorMessage);
      end;
      on E: Exception do
      begin
        Memo1.Lines.Add(E.Message);
      end;
    end;
  finally
    HTTP.Free;
  end;
end;

Ich vermute aber stark, dass sich die Json Schnittstelle geändert hat und du den obigen Code anpassen mußt. Mit der alten Version von Fiskaltrust war der obige Code lauffähig. Eigentlich habe ich mir das Json-Format von Excel-Beispiel abgeschaut. Damals war aber noch keine Rede von AccessToken und Cloud. Haben die dir ein PDF mit "Delphi Fiskaltrust Einbindung per WSDL Importer" mitgeschickt?

Gib bitte bescheid, falls du da was neues rausfindest, da es mich auch interessiert.

Lg,
jus

[TiGü]

Zitat von jus:

Hallo TiGü,

mein Wissen zu Fiskaltrust ist nicht mehr auf den aktuellsten Stand, obwohl dies bei uns in der Firma bald wieder ansteht(spätestens am 1.April ).

Hallo jus,

habt ihr denn keine österreichischen Bestandskunden?
Bis zum April muss das ja schon alles stehen und fertig sein!!!

Zitat von jus:

Seit letzten Frühjahr hat sich vermutlich einiges geändert.

Ich hab irgendwann letztes Jahr im Spätsommer/Herbst angefangen und seitdem hat sich einiges geändert.

Zitat von jus:

Damals gab es zwar eine Möglichkeit, und vermutlich jetzt immer noch, dass man statt den Weg übers Interface auch direkt über das Json-Format diesen Dienst anzusprechen kann.

Das würde ich gerne vermeiden, weil im lokalen Netzwerk ich ja keine Probleme habe.
Nur das anbinden an die Cloud (für Kunden die sich keine Hardware hinstellen wollen), funktioniert nicht so wie gewünscht.

Zitat von jus:

Haben die dir ein PDF mit "Delphi Fiskaltrust Einbindung per WSDL Importer" mitgeschickt?

Die aktuelle WSDL liegt im fiskaltrust-Portal, ich kann sie auch gerne auf Wunsch hier mit anhängen.
Außerdem findest du dort eine PDF mit der Schnittstellenbeschreibung.

[mjustin]

Auf Github liegt ein .Net Projekt unter https://github.com/fiskaltrust/interface, könnte man dieses nicht in Visual Studio zu Tests verwenden? Wenn man dann mit Fiddler2 die funktionierenden Requests aufzeichnet und mit denen aus Delphi kann man den Unterschied vermutlich schnell finden.

[TiGü]

Ich hab gerade die Bestätigung bekommen, dass es per IPOS-Interface aus der WSDL nicht funktioneren kann:

Zitat:

Nein. Unsere Cloud spricht nur REST, die WSDL erstellt ein SOAP Interface. Wobei sie sonst vom Aufbau ident sind, nur die Übertragungsart ist unterschiedlich.

Will mir zwar nicht einleuchten, weil man ja auch per XML statt JSON kommunizieren kann, aber soviel verstehe ich auch nicht von Webservices.

[mjustin]

Zitat von jaenicke:

Ich würde meinen das sollte so sein:

Zitat:

https://signaturecloud-sandbox.fiskaltrust.at

Im DNS ist dieser Server nicht eingetragen, der Server signaturcloud-sandbox.fiskaltrust.at dagegen schon.

[jaenicke]

Mit dem e im Domainnamen und den korrekten Headern mit Name und Doppelpunkt als Trennzeichen klappt es auch. Das haben wir heute Vormittag getestet, hab grad gesehen, dass er noch gar nichts dazu geschrieben hat.

[mjustin]

Zitat von TiGü:

Delphi-Quellcode:

var
  accesstoken: string;
  cashbox: string;
begin
  cashbox := '31ada64f-bafd-492e-ac92-867f82bb2e59';
  accesstoken := 'BJLC+VckWl36AhGwvH3sOC6bQcowHjWq7vx3wsDy42nnLcyB49vrgkxkeMvqodNtvtwaJ51HUaBs7eiX7PUyiOg=';

  HttpAddRequestHeaders(Data, PChar(cashbox), Length(cashbox), HTTP_ADDREQ_FLAG_ADD);
  HttpAddRequestHeaders(Data, PChar(accesstoken), Length(accesstoken), HTTP_ADDREQ_FLAG_ADD);
end;

Hm, also mein OnBeforePost wird zwar aufgerufen, aber weiter komme ich nicht.

Die Header haben die Form 'key: value', wie auch im verlinkten Beispiel zu sehen ist. Hier im Delphi Code fehlt der key (und der Doppelpunkt), der Server wird daher nicht den erwarteten Header im Request finden.