Json Post mit Indy ?

[geskill]

Ich benutze dafür die LkJSON Klasse.

Delphi-Quellcode:

uses
  uLkJSON;


var
  _lkJSONobject: TlkJSONobject;
  _params, _result: TStringStream;
begin
  _lkJSONobject := TlkJSONobject.Create;
  _params := TStringStream.Create('', CP_UTF8);
  _result := TStringStream.Create('', CP_UTF8);
  try
    _lkJSONobject.Add('name', 'value');

    _params.WriteString('data=' + TlkJSON.GenerateText(_lkJSONobject));

    try
      Post('http://...', _params, _result);
    except
    end;

    // _result.DataString auswerten whatever
  finally
    _result.Free;
    _params.Free;
    _lkJSONobject.Free;
  end;

end;