HTTP POST an localhost

[kagi3624]

hallo, ich habe einen Server local auf den ich einen POST machen möchte. Die anfrage über curl funktioniert:

Code:

curl --location --request POST 'localhost:8080/myService' --header --data-raw '.'

Das Problem ist, dass Clever Components, was ich bisher benutzt habe, mit so einer URL nicht klar kommt, und Indy kann man gleich wegkloppen. Kennt jemand eine Bibliothek oder weiß sonst wie man eine localhost Anfrage machen kann. Vielen dank

[Uwe Raabe]

Hast du schon mal THTTPClient probiert? Oder wenn es um REST geht gleich einen TRESTClient?

[kagi3624]

Zitat von Uwe Raabe:

Hast du schon mal THTTPClient probiert? Oder wenn es um REST geht gleich einen TRESTClient?

Geht das denn mit Delphi 6? Leider ist zu "upgraden" keine Option.

[Uwe Raabe]

Zitat von kagi3624:

Geht das denn mit Delphi 6?

Nein, das wird wohl nichts. Ich glaube auch kaum, dass du eine aktuelle Bibliothek findest, die noch Delphi 6 unterstützt.

[kagi3624]

Zitat von Uwe Raabe:

Zitat von kagi3624:

Geht das denn mit Delphi 6?

Nein, das wird wohl nichts. Ich glaube auch kaum, dass du eine aktuelle Bibliothek findest, die noch Delphi 6 unterstützt.

not

[Neutral General]

Zeig doch mal deinen Code. Also jede HTTP-Komponente (egal ob Indy oder deine Clever Dinger) sollten das was du da willst hinkriegen.
Das sieht mir jetzt nicht nach irgendwas super speziellem aus.

[mjustin]

Zitat von kagi3624:

Das Problem ist, dass Clever Components, was ich bisher benutzt habe, mit so einer URL nicht klar kommt, und Indy kann man gleich wegkloppen.

Die aktuelle Indy Version 10.6.2 unterstützt noch Delphi 5 bis 2007 Erst ab Indy 11 werden nur noch die Unicode-Versionen ab 2009 unterstützt.

[kagi3624]

Zitat von Neutral General:

Zeig doch mal deinen Code. Also jede HTTP-Komponente (egal ob Indy oder deine Clever Dinger) sollten das was du da willst hinkriegen.
Das sieht mir jetzt nicht nach irgendwas super speziellem aus.

Hier ist der code:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
  Http : TclHttp;
  clHttpRequest : TclHttpRequest;
  response : TStringList;
  Data : TclJSONObject;
begin
  Http := TclHttp.Create(nil);
  clHttpRequest := TclHttpRequest.Create(nil);
  response := TStringList.Create() ;
  Data := GetJasonBody('a', 'b', 'v', 'sdfd');
  try
    Http.TLSFlags := [tfUseSSL2, tfUseSSL3, tfUseTLS, tfUseTLS11, tfUseTLS12];
    Http.Port := 8080;
    clHttpRequest.Header.Clear;
    clHttpRequest.Header.Accept := 'application/json';
    clHttpRequest.Header.ContentType := 'text/plain';
    clHttpRequest.Header.ExtraFields.Add('token:2124124');


    clHttpRequest.BuildJSONRequest(Data);

    Http.Post('localhost:8080/startTransaction', clHttpRequest, response);

  finally
    Data.Free;
    Http.Free;
    clHttpRequest.Free;
    response.Free;
  end;
end;

Mit einer normalen URL funktioniert es ja (ich habe den Postman Echo Server benutzt) und an dem Server selbst liegt es auch nicht (da funktioniert Postman auch), ich hab bis zu der stelle durchdebuggt wo aus der url dann was komisches gemacht wird (als Bild).

[mjustin]

Warum setzt Du TLS / SSL Flags? Mach die weg, wenn der Server ohne Verschlüsselung arbeitet. Und warum setzt Du den Port auf 8080 wenn in der Url dann :8000 benutzt wird?

Verwende mal die URL mit Protokoll: 'http://localhost:8080/startTransaction' oder verwende '127.0.0.1' anstelle von 'localhost'

[samso]

zu langsam...

Zitat von kagi3624:

bis zu der stelle durchdebuggt wo aus der url dann was komisches gemacht wird (als Bild):

Mir scheint da interpretiert der Parser "localhost" als Protokoll. Hast Du schon mal "https://localhost.." versucht?