delphi4arab منتديات دلفي للعرب

نسخة كاملة : الكتابة والقراءة بملف word
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم
لدي ملف word مخزن بقاعدة بيانات oracle بحقل من نوع blob كيف يمكن الكتابة والقراءة مع هذا الملف وشكراً
و عليكم السلام

جرب هذه:

للحفط

PHP كود :
olecontainer.SaveAsDocument(tmpdoc);
  
// T.edit
  
T.BlobField.LoadFromFile(tmpdoc);
  
// T.Post
  
Deletefile(tmpdoc) 

لتحديث
PHP كود :
T.BlobField.SaveToFile(tmpdoc);
  
OleContainer.CreateObjectFromFile(tmpdoc, false);
  
OleContainer.DoVerb(ovPrimary); 
أو

للقراءة
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; 
السلام عليكم
أولاً شكراً على الاجابة
هنا لاحظت عبارة عن تحميل ملف إلى قاعدة البيانات وتخزين ملف من قاعدة البيانات ولكن كيف الكتابة ضمن ملف word بقيم من قاعدة البيانات تتم ضمن البرنامج
وأنا أستخدم دلفي 7 ولكم الشكر