FiredDAC Postgres Feldtyp JSON

[angos]

@Himitsu,

Besten Dank!
Nachdem ich zusätzlich gemerkt habe, dass ich so wie oben gar nicht mit den Parametern arbeiten kann (keine Datentypzuweisung nachdem ich einem Parameter einen Wert zugewiesen habe ), hat genau deine Antwort mein eigentliches Problem gelöst. Wieder was gelernt

so läufts:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Params: TFDParams;
  Guid: TGUID;
  Query: TFDQuery;
begin
  Query := TFDQuery.Create(nil);
  try
    CreateGUID(Guid);

    Query.Connection := FDConnection1;
    Query.SQL.Text := 'INSERT INTO events (guid, type, data, inserted, processed)'
      + ' VALUES (:guid, :type, :data::JSON, :inserted, :processed)';

    Query.Params.ParamByName('guid').AsGUID := Guid;
    Query.Params.ParamByName('data').AsString := '{"value": "123"}';
    Query.Params.ParamByName('type').AsString := '123';
    Query.Params.ParamByName('inserted').AsDateTime := Now;
    Query.Params.ParamByName('processed').AsBoolean := False;

    Query.ExecSQL;
  finally
    Query.Free;
  end;
end;