IdHTTPost funktioniert nicht

[horstmeyer]

Hallo Leute,

ich bin neu hier und hoffe mir kann jemand weiterhelfen. Für TSE(https://de.wikipedia.org/wiki/Techni...itseinrichtung) muss ich eine idHTTP-Funktion schreiben. idhttp.get funktioniert auch, aber bei http.post bekomme ich immer die Fehlermeldung 400. In einer Batch-Datei mit curl funktioniert der Aufruf aber. Hier der Aufruf mit curl:

Code:

curl -X POST "http://localhost:20001/transaction" -H "Content-Type: application/json" -H "Authorization: Bearer %accesstoken%" -d "{\"clientId\": \"TestEAS002\",\"processType\": \"Bestellung-V1\",\"processData\": \"1^%ware%^999 Euro\",\"externalTransactionId\": \"%extaid%\"}"

Und hier der Aufruf mit Delphi, der leider nicht funktioniert, obwohl ich mir die Syntax hier abgeschaut habe:

Code:

procedure TForm1.FCCStart;
var
  ware,
  data,
  Answer : String;
  DataToSend : TStringList;
  lHTTP: TIdHTTP;
begin
  lblStatus.Caption:='Request gestartet...';
  lHTTP := TIdHTTP.Create;
  try
    try
      lHTTP.HandleRedirects := True;
      lHTTP.ReadTimeout := 5000;
      ware := 'Testware';
      data := '{"clientId": "TestEAS002","processType": "Bestellung-V1","processData": "1^'+ware+'^999 Euro","externalTransactionId": "'+extaid+'"}';
      DataToSend := TStringList.create;
      DataToSend.Add(data);
      try
        lHTTP.Request.Accept := 'application/json';
        lHTTP.Request.ContentType := 'application/json';
        lHTTP.Request.CustomHeaders.FoldLines := False;
        lHTTP.Request.CustomHeaders.Add('Authorization:Bearer '+accesstoken);
        Answer := lHTTP.Post('http://localhost:20001/transaction', DataToSend);
      finally
        DataToSend.Destroy;
      end;
      Memo1.Lines.Clear;
      Memo1.Lines[0]:=Answer;
    except
      on E: Exception do
        lblStatus.Caption:=E.ToString;
    end;
  finally
    lHTTP.Destroy;
  end;
end;

Viele Grüße
Horst

[CCRDude]

Ohne jetzt direkt den Fehler zu sehen (weiß gerade nicht wie die Custom Header mit Indy funktionieren) habe ich bei sowas eine immer gleiche Vorgehensweise: beide Aufrufe über einen Proxy wie Charles oder Fiddler laufen lassen und vergleichen, dann herausfinden, warum sie unterschiedlich sind.

[horstmeyer]

Hallo CCRDude,

danke für den Tipp. Leider kenne ich beide Proxies nicht. Werde mich aber schlau machen und berichten.

Viele Grüße
Horst

[Redeemer]

Weil das Leerzeichen hinterm Doppelpunkt fehlt?

[horstmeyer]

wie ist das gemeint "Leerzeichen hinterm Doppelpunkt fehlt"? Gib bitte ein Beispiel.

[Union]

 lHTTP.Request.CustomHeaders.Add('Authorization:Bearer '+accesstoken); Hier fehlt das Leerzeichen hinter dem Doppelpunkt nach Accesstoken. Generell wäre es für REST besser, auch das entsprechende Delphi Framework zu verwenden. Für diesen Fall den TRestClient, und dann wie folgt vorzugehen:
RestClient.AddParameter('authorization', 'Bearer '+ accessToken, pkHTTPHEADER, [poDoNotEncode]);

[Klaus01]

.. bist Du Dir sicher das  lHTTP.Post('http://localhost:20001/transaction', DataToSend); als zweiten Parameter einen Pointer haben will.
DataToSend ist bei Dir eine TStringList, wenn Du den Inhalt der StringList übergeben möchtest
dann dataToSend.Text.

Grüße
Klaus

[TiGü]

Zitat von Klaus01:

.. bist Du Dir sicher das  lHTTP.Post('http://localhost:20001/transaction', DataToSend); als zweiten Parameter einen Pointer haben will.
DataToSend ist bei Dir eine TStringList, wenn Du den Inhalt der StringList übergeben möchtest
dann dataToSend.Text.

Grüße
Klaus

Es gibt eine Überladung, die TStrings-Nachfahren entgegennimmt.

Delphi-Quellcode:

procedure TIdCustomHTTP.Post(AURL: string; ASource: TStrings; AResponseContent: TStream;
  AByteEncoding: IIdTextEncoding = nil
  {$IFDEF STRING_IS_ANSI}; ASrcEncoding: IIdTextEncoding = nil{$ENDIF}
  );
var
  LParams: TMemoryStream;
begin
  // Usual posting request have default ContentType is application/x-www-form-urlencoded
  if (Request.ContentType = '') or IsContentTypeHtml(Request) then begin
    Request.ContentType := 'application/x-www-form-urlencoded'; {do not localize}
  end;

  if ASource <> nil then
  begin
    LParams := TMemoryStream.Create;
    try
      WriteStringToStream(LParams, SetRequestParams(ASource, AByteEncoding{$IFDEF STRING_IS_ANSI}, ASrcEncoding{$ENDIF}));
      LParams.Position := 0;
      Post(AURL, LParams, AResponseContent);
    finally
      FreeAndNil(LParams);
    end;
  end else begin
    Post(AURL, TStream(nil), AResponseContent);
  end;
end;

[Klaus01]

Zitat von TiGü:

Es gibt eine Überladung, die TStrings-Nachfahren entgegennimmt.

Ah, ok hatte ich übersehen, Danke

[horstmeyer]

Hallo Leute,

leider bin ich mit meinem Problem noch nicht richtig weitergekommen. Daher wollte ich es mit einem Proxy wie der User CCRDude es vorgeschlagen hat versuchen. Allerdings beide Proxies sind proprietäre Software, die ich in der Firma nicht installieren darf. Daher habe ich mal nach einem Open-Source-Tool gesucht und habe OWASP ZAP gefunden. Allerdings weiß ich auch hier nicht wie man ihn benutzt um HTTP-Request über localhost abzufragen um zu vergleichen was curl macht und welchen Unterschied es zum http.post-Aufruf aus Delphi gibt. Da ein einfacher post mittlerweile funktioniert habe ich den Verdacht, dass es an der Passage "-H "Authorization: Bearer %accesstoken%"" in curl liegt. In Delphi habe ich versucht es wie folgt umzusetzen:

Code:

lHTTP.Request.CustomHeaders.FoldLines := False;
lHTTP.Request.CustomHeaders.Add('Authorization: Bearer '+accesstoken);

Das funktioniert aber leider nicht. Wenn hier einer einen hilfreichen Tipp hat, wäre ich dankbar.


viele Grüße
Horst