Discussion :

[sbeu]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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!

[alexmorel]

Tiens essai ça !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

[sbeu]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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