ich glaube ich habe das Problem gefunden.
Es liegt daran das ich Strings genommen habe gebe. Aus irgendeinem Grund löst das folgene funktion in der Komponente aus:
Delphi-Quellcode:
procedure TIdCustomHTTP.EncodeRequestParams(AStrings: TStrings);
var
i: Integer;
LPos: integer;
LStr: string;
begin
Assert(AStrings<>nil);
for i := 0 to AStrings.Count - 1 do begin
//AStrings[i] := AStrings.Names[i] + AStrings.NameValueSeparator + TIdURI.ParamsEncode(AStrings.ValueFromIndex[i]);
LStr := AStrings[i];
LPos := IndyPos('=', LStr);
if LPos > 0 then begin
AStrings[i] := Copy(LStr, 1, LPos-1) + '=' + TIdURI.ParamsEncode(Copy(LStr, LPos+1, MAXINT));
end;
end;
end;
..und zerstört damit mein Post.
Nimmt mann ein Stream (die Post funktion ist überladen) geht es:
request.lines.SaveToStream(poststream);
result.lines := IdHTTP.Post(api_url,poststream);
Danke trotzdem für deinen Tipp...