[BLOB]Enreg Stream dans Field

Version imprimable

Salut.
Je réussis à enregistrer un composant dans un flux de fichier(TFileStream)
Mais j'aimerais le stocker dans une bdd. Voici mon code actuellement:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 procedure TForm1.SaveObjet; var Data : TFileStream; begin Query1:=TQuery.Create(Self); With TQuery1 Do Begin ....... Data:= TFileStream.Create('MonFichier.dat', fmCreate); Data.WriteComponent(RichEdit1); ParamByName('commentaire').LoadFromStream(Data,ftFmtMemo); ExecSql Data.Free; end;
Ca marche trés bien. J'arrive à recharger le flux à partir de la base. Mais mon problème vient du fait que je passe par un TFileStream, et que le fichier 'MonFichier.Dat' ne sert à mon avis à rien. Je voudrais éviter de passer par un fichier. Mais quand je fais:
Code:

1 2 3 4 5 6 7 8 9 var MonBlobField:TBlobField; Data:TBlobStream; Begin MonBlobField:=TBlobField.Create(Self); MonBlobfield.SetFieldType(ftFmtMemo); Data:=TBlobStream.Create(MonBlobField,bmWrite); End;
J'ai une erreur sur : Data:=TBlobStream.Create(MonBlobField,bmWrite);
POURQUOI???
Merci

De plus, je n'arrive pas à conserver les infos de mise en forme du RichEdit!

test comme ça

Tiens essai ça !

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
procedure TForm1.SaveObjet; 
var 
  Data : TMemoryStream; 
begin 
   Query1:=TQuery.Create(Self); 
     With TQuery1 Do 
        Begin
            Active:=false;
            SQl.Clear;
            SQl.Add('Select ton_fichier from ta_table where id_ta_table=ton choix');
            ExecSQL;
            Active:=True;
        End;
 
  Data:= TMemoryStream.Create
  Try
      TBlobField(Query1.FieldByName('ton_fichier')).saveToStream(Data);
      DATA.Position:=0;
      Data.WriteComponent(RichEdit1);
  Finally
    Data.Free; 
  End;
end;

Demande si ça va toujours pas :

OK Mais...

Merci.
Apparamment, ça enregistre bien dans la base de données (pas d'erreur...)
Mais je n'arrive pas à recharger le composant. J'ai un msg d'erreur qui dit:
Erreur de lecture de flux
A la ligne:
Obj:=Data.ReadComponent(RichCommentaire);

Voici mon code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
var
Obj:TObject;
Data : TblobStream;
If Fieldbyname('Commentaire_general').Value<>Null Then
             Begin
                  Data:= TBlobStream.Create(TBlobField(Fieldbyname('Commentaire_general')),bmRead);
                  try
                     Obj := Data.ReadComponent(RichCommentaire);
                     RichCommentaire := Obj As TRichEdit;
                  EXcept
                        //Si ça ne marche pas, signifie que l'objet n'a jamais été enregistré dans cet enreg.(=null) OU que le format de flux n'est pas bon...
                        on e:exception do showmessage(e.Message);
 
                  end;
             End;

Comment dois-je faire pour recharger le composant correctement?
MErci