Formatierten Text in PostgreSQL 9 speichern

[FBrust]

Hallo,

ich bin schon mal einen Schritt weiter, mit der Umstellung auf AnsiString kommt der Testtext bei der obigen Methode unverändert im zweiten Richedit an.

Jetzt muss ich das Ganze nur noch in die Datenbank bringen.


Gruß
Frank

[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);
*)