Formatierten Text in PostgreSQL 9 speichern

[nahpets]

Das Einfügen in die Datenbank sollte dann eigentlich über Parameter funktionieren:

Delphi-Quellcode:

  ZQuery1.SQL.Text := 'insert into notes (notizfeld) values (%Value)';
  ZQuery1.ParamByName('Value').AsString := QuotedStr(DeineStringGetFunktion);
  ZQuery1.ExecSQL;

Per Stream müsste das auch gehen, ohne diesen Stringumweg:

Delphi-Quellcode:

var
  lTempStream: TMemoryStream;
begin
  lTempStream := TMemoryStream.Create;
  try
    edt1.Lines.SaveToStream(lTempStream);
    lTempStream.Position := 0;
    ZQuery1.SQL.Text := 'insert into notes (notizfeld) values (%Value)';
    ZQuery1.ParamByName('Value').LoadFromStream(lTempStream ,ftBlob);
    ZQuery1.ExecSQL;
  finally
    lTempStream.Free;
  end;
end;

(* Typ musst Du passend auswählen:
  TFieldType = (ftUnknown, ftString, ftSmallint, ftInteger, ftWord,
    ftBoolean, ftFloat, ftCurrency, ftBCD, ftDate, ftTime, ftDateTime,
    ftBytes, ftVarBytes, ftAutoInc, ftBlob, ftMemo, ftGraphic, ftFmtMemo,
    ftParadoxOle, ftDBaseOle, ftTypedBinary, ftCursor, ftFixedChar, ftWideString,
    ftLargeint, ftADT, ftArray, ftReference, ftDataSet, ftOraBlob, ftOraClob,
    ftVariant, ftInterface, ftIDispatch, ftGuid, ftTimeStamp, ftFMTBcd);
*)