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(tmpdocfalse);
  
OleContainer.DoVerb(ovPrimary); 
أو

للقراءة
PHP كود :
procedure TfrmMain.tblPersonneAfterScroll(DataSetTDataSet);
var 
BlobStream TStream;
begin
     BlobStream 
:= tbl.CreateBlobStream(tblPersonne.FieldByName('إسم الحقل'),bmRead);
     try
      
ReCommentaire.Lines.LoadFromStream(BlobStream);
     finally
      
BlobStream.Free;
     
end;
end

للكتابة
PHP كود :
procedure TfrmMain.tblPersonneBeforePost(DataSetTDataSet);
var 
BlobStream TStream;
begin
     BlobStream 
:= tbl.CreateBlobStream(tblPersonne.FieldByName('إسم الحقل'),bmWrite);
     try
      
ReCommentaire.Lines.SaveToStream(BlobStream);
     finally
      
BlobStream.Free;
     
end;
end
السلام عليكم
أولاً شكراً على الاجابة
هنا لاحظت عبارة عن تحميل ملف إلى قاعدة البيانات وتخزين ملف من قاعدة البيانات ولكن كيف الكتابة ضمن ملف word بقيم من قاعدة البيانات تتم ضمن البرنامج
وأنا أستخدم دلفي 7 ولكم الشكر