Discord "message": "Cannot send an empty message", "code": 50006

[ScharfeMietze]

Hey Leute,
ich scheitre gerade an Discord. Ich habe einen Webhook erstellt.
Ich schaffe es aber nicht eine einfache Message zu senden.
Weder mit net noch mit Indy
Json String ist valide und der Content type ist auf 'application/json'
Weder mit einem Stream noch mit einer TStringlist. funktioniert es.

Der Code

Delphi-Quellcode:

procedure TForm5.btn1Click(Sender: TObject);
var
  LsList: TStringList;
  LResponse:string;
  LSStream: TStringStream;
const
  LContent = '{"content": "Test"}';
begin
LsList := TStringList.Create;
LSStream:= TStringStream.Create(LContent, TEncoding.UTF8);
  try
  LResponse:= nthtpclnt1.get(FUrl).ContentAsString();
  mmo1.Lines.Add('0 ' + LResponse);

  LsList.DefaultEncoding.UTF8;
  LsList.Add(LContent);
  nthtpclnt1.ContentType:= 'application/json';


  LResponse:= nthtpclnt1.Post(FUrl,LSStream).ContentAsString();
  mmo1.Lines.Add('1 ' + LResponse);
  LResponse:= nthtpclnt1.Post(FUrl,LsList).ContentAsString();
  mmo1.Lines.Add('2 ' + LResponse);
  finally
    LsList.Free;
    LSStream.Free;
  end;  // try
end;

btn2

Delphi-Quellcode:

procedure TForm5.btn2Click(Sender: TObject);
var
  params: TStringStream;
  LIndy: TIdHTTP;
  LResponse:string;
const
  LContent = '{"content": "Test"}';
begin
  LIndy:= TIdHTTP.Create();
  params := TStringStream.Create(LContent, TEncoding.UTF8);
  try
    LIndy.Request.ContentType := 'application/json';
    LIndy.Request.UserAgent := 'Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/66.0.3359.139 Safari/537.36';
    LResponse:= LIndy.Post(FUrl, params);
  finally
    LIndy.Free;
    params.Free;
  end;
  mmo1.Lines.Add('3 ' + LResponse);
end;

Die Antworten

Delphi-Quellcode:

0 {"type": 1, "id": "67713562xxxxx", "name": "Test", "avatar": null, "channel_id": "677135529xxxx", "guild_id": "640861371927xxxxx", "token": "JlWiT1BTTWBmMxzbjoyEdeuIBv8A8Vj3bPBJxxxxxxxx"}
1 
2 {"message": "Cannot send an empty message", "code": 50006}
3

Wahrscheinlich ist irgendwo ein simpler Fehler den ich gerade übersehe.
Sieht wer meinen Fehler?
Dank die SM

[Moombas]

Bei deinem btn1 zumindest sollten die ' weg, wenn ihc mich nicht irre:

LSStream:= TStringStream.Create('LContent', TEncoding.UTF8);

[ScharfeMietze]

Ja, hatte ich gerade schon berichtigt. Dann bekomme ich ein leeres Ergebnis.

[DieDolly]

LResponse:= LIndy.Post(FUrl, params); Wo wird params denn befüllt?

[ScharfeMietze]

Zitat von DieDolly:

LResponse:= LIndy.Post(FUrl, params); Wo wird params denn befüllt?

Delphi-Quellcode:

const
  LContent = '{"content": "Test"}';

params := TStringStream.Create(LContent, TEncoding.UTF8);

[DieDolly]

Aber die kompletten Daten fehlen doch oder nicht?

Ignorier das. Ich sehe jetzt erst LContent = '{"content": "Test"}';

[ScharfeMietze]

:-d:-d:-d

Zitat von diedolly:

aber die kompletten daten fehlen doch oder nicht?

ignorier das. Ich sehe jetzt erst lcontent = '{"content": "test"}';

:-d:-d

[Klaus01]

mag vielleicht etwas abwegig sein.
Aber setze den Positionszeiger von LStream mal auf die Nullte Position.
LStream.seek(0); Grüße
Klaus

[ScharfeMietze]

Zitat von Klaus01:

mag vielleicht etwas abwegig sein.
Aber setze den Positionszeiger von LStream mal auf die Nullte Position.
LStream.seek(0); Grüße
Klaus

[dcc32 Fehler] Unit5.pas(54): E2250 Es gibt keine überladene Version von 'Seek', die man mit diesen Argumenten aufrufen kann
leider nicht ..
mit Position := 0 bekomme ich ein leeres Ergebnis als Antwort

[Klaus01]

soory mein Fehler:

LStream.seek(soBeginning); aber wenn Position schon nicht hilft...

Grüße
Klaus