NetHTTPClient post body

[delphicim]

(26-11-2020, Saat: 11:35)mrmarman Adlı Kullanıcıdan Alıntı: @Fesih ARSLAN  katılarak bir de aşağıda verdiğim şekilde bir deneme yapar mısınız...

Function TForm1.VeriEkle(VeriTipi, EklenecekJson:String):String;
var
  slParam : TStringList;
  Url     : String;
begin
  Result:='';

  If Trim(VeriAutHorization.Caption)='' Then
  If VeriAuthentication=False Then
  Exit;

  Url      := 'http://tp18366.eticaret.in/rest1/'+VeriTipi;
  slParam  :=  TStringList.Create;
  try
    slParam.Values['token'] :=  Trim(VeriAutHorization.Caption);
    slParam.Values['data']  :=  EklenecekJson;

    NetHTTPClient1.Accept           :=  'application/json';
    NetHTTPClient1.ContentType      :=  'application/x-www-form-urlencoded;  charset=utf-8;';
    NetHTTPClient1.UserAgent        :=  'Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/84.0.4147.135 Safari/537.36';
    NetHTTPClient1.AcceptCharSet    :=  'utf-8';
    NetHTTPClient1.AcceptEncoding   :=  '65001';
    NetHTTPClient1.AcceptLanguage   :=  'tr-TR';

    Result := NetHTTPClient1.Post( Url, slParam ).ContentAsString;
    Memo1.Text:= 'Gelen : '+ Result;

  finally
    slParam.Free;
  end;
end;

EK olarak :

Eğer Authorization için bir Auth Key gerekiyorsa header'a aşağıdaki benzeri şekilde de eklemeniz lazım gerekecektir.

          NetHTTPClient1.Customheaders['Authorization'] := 'key=' + FAPIKey;

Allah razı olsun Muharrem Hocam. Bu aynen çalıştı..  Stream yerine list yapmak gerekiyormuş.

teşekkürler.