Speichern in BlobField zerschießt MemorySTream

[himitsu]

Zitat von dataspider:

Ich dachte immer, TMemoryStream kümmert sich nicht um EnCoding.

Das ist Richtig, aber vielleicht LNewText oder GetNewText?

AnsiString ??
RawByteString
oder besser noch TBytes bzw. TArray<Byte>

[dataspider]

Zitat von himitsu:

Zitat von dataspider:

Ich dachte immer, TMemoryStream kümmert sich nicht um EnCoding.

Das ist Richtig, aber vielleicht LNewText oder GetNewText?

AnsiString ??
RawByteString
oder besser noch TBytes bzw. TArray<Byte>

Ja, ich habe jetzt LNewText als TBytes definiert und weise den string aus GetNewText über LNewText := BytesOf(LMergeField.GetNewText); zu.
Das sollte jetzt wohl, wenn ich euch richtig verstanden habe, die richtige Herangehensweise sein.

Ich habe mir den Feldinhalt des Blobs jetzt vor und nach dem Post in eine Datei schreiben lassen.

Delphi-Quellcode:

  LStream.Clear;
  TBlobField(DM.qryMain.FieldByName('DOKUMENT')).SaveToStream(LStream);
  LStream.SaveToFile('1.rtf');
  DM.qryMain.Post;
  LStream.Clear;
  TBlobField(DM.qryMain.FieldByName('DOKUMENT')).SaveToStream(LStream);
  LStream.SaveToFile('2.rtf');

Das Post ist also die Ursache. Und man sieht am Screenshot, dass das RTF scheinbar "verbessert" wird.
Nach dem Post fehlt schon das "ansi" (im Screenshot markiert).
Ich habe keine Ahnung, was IBObjects da macht.

Ich lade den konvertierten Stream nicht mehr ins BlobField
sondern Stream -> RichEditControl -> Stream -> BlobField.

Damit funktioniert es und das RichEditControl wandelt gleich das Bild in nicht binär um.

Ich hätte gern verstanden, was da schief läuft, aber - was solls...

Danke Happy coding
Danke himitsu

[himitsu]

Es gibt auch ein TBytesStream

Vielleicht erkennt die Komponente, wenn ANSI aussreicht und speichert damm im kleinst möglichen Format?


So lange kein Unicode/Umlaute/Sonderzeichen vorkommen, dann reicht es ja aus und wäre auch grundsätzlich egal.

[dataspider]

Wenn man der falschen Fährte folgt und einen Tunnelblick bekommt, sollte man erst mal abschalten.
Das habe ich jetzt gemacht. War eine Stunde laufen...

Und dann war mir klar, dass das Post nicht derartige Änderungen erzeugen kann.
Also musste irgendwie etwas Anderes in das Feld geschrieben werden.
Schön versteckt im Code gab es noch ein Ereignis ausgelöst vom BeforePost des DataSet,
welches den Inhalt des RichTextEditors ins Feld geschrieben hat.

Damit war immer ein leerer RTF - "Rumpf" in der Datenbank.


So, jetzt keine Depression bekommen, kann passieren...

Frank