Formatierten Text in DB speichern

[Fellmer Lloyd]

Morgen!

Ich will den Inhalt eines Richedit mit formatierung in eine Datenbank speichern.
Ich habe bereits eine Lese/Speicherprozedur geschrieben, bin mir jedoch nicht sicher ob das die optimale Lösung ist.

Über Kritik würde ich mich freuen :coder:

Zur Datenbank
--------------
DB-Typ: Access.
Feldtyp: Memo.

Speicherprozedur:

Delphi-Quellcode:

TmpMemoryStream:= TMemoryStream.Create;
TmpStringList:= TStringList.Create;
try
  RichEditData.Lines.SaveToStream(TmpMemoryStream); //Speichert den Text mit formatierung in ein Stream
  TmpMemoryStream.Position:= 0; //Position auf 0 setzen
  TmpStringList.LoadFromStream(TmpMemoryStream); //Text Mit Formatierung aus dem Stream lesen
TableData.FieldByName('RichText').AsString:= TmpStringList.Text;
finally
  TmpMemoryStream.Free;
  TmpStringList.Free;
end;

Leseprozedur:

Delphi-Quellcode:

    
TmpMemoryStream:= TMemoryStream.Create;
TmpStringList:= TStringList.Create;
try
  TmpStringList.Text:= TableData.FieldByName('RichText').AsString;
  TmpStringList.SaveToStream(TmpMemoryStream); //Speichert den Text mit formatierung in ein Stream
  TmpMemoryStream.Position:= 0; //Position auf 0 setzen
  RichEditData.Lines.LoadFromStream(TmpMemoryStream);//Text Mit Formatierung aus dem Stream lesen
finally
  TmpMemoryStream.Free;
  TmpStringList.Free;
end;

Gruss Fellmer

[CenBells]

Hallo,

ich verwende für solche operationen ein Feld vom Typ Blob.
Da brauchst du nicht den Umweg über ein TStringList-Objekt machen. Und ich bin mir nicht so sicher, ob die Steuercodes in ein normales Stringfield übernommen werden.
Das sieht dann so aus

Delphi-Quellcode:

TBlobfield(TableData.FieldByName('RichText')).LoadFromStream(DeinStream);

Gruß
Ken

[Fellmer Lloyd]

Hi!

Danke für die Antwort.
Ich werde mein Datenbank-Feld ändern (vom Typ "Memo" in "OLE-Objekt" bzw. Blob).

Jetzt habe ich eine weitere Frage:
Wie kann ich in den bereits mit Daten gefüllten Access-Datenbanken den Feldtyp ändern? (Von meinem Programm aus).
Das sollte doch im Prinzip mit einer SQL-Anwesung möglich sein (Query), oder liege ich falsch?
Was passiert mit den Daten im vorhandenen "Memo"-Feld, wenn es umgewandelt wird?
Sie sollen ja schliesslich nicht verloren gehen.

Gruss Fellmer

[Fellmer Lloyd]

Die SQL Anweisung sollte etwa so aussehen denke ich

SQL-Code:

ALTER TABLE TableData CHANGE 'RichText' 'RichText' BLOB NOT NULL;

-->Funktioniert aber noch nicht :wiejetzt:
Gibt es den Parameter CHANGE überhaupt? Kenne sonst nur Add/Delete, aber dann gehen ja die Daten verloren :?

[EDIT]
Habe den Parameter "Modify" enddeckt... kann die Anweisung aber immer noch nicht ausführen

[Tyrael Y.]

Wenn der alte Typ der Daten dem neuen Typ nicht mehr entspricht gehen die Daten natürlich verloren.

Tip: Speichere die alten Daten in eine neue Tabelle, ändere deinen Typ in der alten Tabelle und übertrage dann die Daten typgerecht