1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
| //Copie le contenu du champ Blob dans le RichEdit
//Ce code est utilisé pour avoir les informations du Blob lorsqu'on défile entre les champs de la table
procedure TfrmMain.tblPersonneAfterScroll(DataSet: TDataSet);
var BlobStream : TStream;
begin
BlobStream := tblPersonne.CreateBlobStream(tblPersonne.FieldByName('Commentaire'),bmRead);
try
ReCommentaire.Lines.LoadFromStream(BlobStream);
finally
BlobStream.Free;
end;
end;
//Poste le contenu du RichEdit dans le champ blob
//Ce code est utilisé pour envoyer le flux du RichEdit vers le champ Blob
procedure TfrmMain.tblPersonneBeforePost(DataSet: TDataSet);
var BlobStream : TStream;
begin
BlobStream := tblPersonne.CreateBlobStream(tblPersonne.FieldByName('Commentaire'),bmWrite);
try
ReCommentaire.Lines.SaveToStream(BlobStream);
finally
BlobStream.Free;
end;
end; |
Partager