الكتابة والقراءة بملف word

[لؤي]

أو

للقراءة

PHP كود :

procedure TfrmMain.tblPersonneAfterScroll(DataSet: TDataSet);
var BlobStream : TStream;
begin
     BlobStream := tbl.CreateBlobStream(tblPersonne.FieldByName('إسم الحقل'),bmRead);
     try
      ReCommentaire.Lines.LoadFromStream(BlobStream);
     finally
      BlobStream.Free;
     end;
end; 


للكتابة

PHP كود :

procedure TfrmMain.tblPersonneBeforePost(DataSet: TDataSet);
var BlobStream : TStream;
begin
     BlobStream := tbl.CreateBlobStream(tblPersonne.FieldByName('إسم الحقل'),bmWrite);
     try
      ReCommentaire.Lines.SaveToStream(BlobStream);
     finally
      BlobStream.Free;
     end;
end;