Formatierten Text in PostgreSQL 9 speichern

[HolgerX]

Wie Perlsau bereits schrieb, ist nun das Problem dein UniCode!

RichEdit -> AnsiStr...

Mach aus deinem

Delphi-Quellcode:

var
  FStream: TStringStream;
  strtest: widestring;

doch mal

Delphi-Quellcode:

var
  FStream: TStringStream;
  strtest: AnsiString;

und setze bei FStream := TStringStream.Create('',e); für e das Encoding für ANSI..

[Sir Rufo]

@Perlsau

Um das ganze ein wenig zu erhellen:

Delphi-Quellcode:

procedure StreamCopyStrings( Source, Destination: TStrings );
var
  lTempStream: TMemoryStream;
begin
  lTempStream := TMemoryStream.Create;
  try
    Source.SaveToStream( lTempStream );
    lTempStream.Position := 0;
    Destination.LoadFromStream( lTempStream );
  finally
    lTempStream.Free;
  end;
end;

procedure TForm1.Button1Click( Sender: TObject );
begin
  StreamCopyStrings( RichEdit1.Lines, Memo1.Lines );
  Label1.Caption := Memo1.Lines.Encoding.EncodingName;
end;

Sodele, und jetzt achauen wir uns einmal das Encoding an. Was fällt uns auf?

Und wenn wir das beim Einlesen in den StringStream nicht berücksichtigen, dann bekommen wir eben nur Grütze (wie man sehen kann).

Also entweder einfach in den (Binär)-Stream packen und wieder auslesen oder man weiß was man tut und kennt sich mit dem Encoding Geraffel aus

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