+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : الكتابة والقراءة بملف word (/showthread.php?tid=3418)
الكتابة والقراءة بملف word - هاوي دلفي - 14-09-2011
السلام عليكم
لدي ملف word مخزن بقاعدة بيانات oracle بحقل من نوع blob كيف يمكن الكتابة والقراءة مع هذا الملف وشكراً
الكتابة والقراءة بملف word - لؤي - 14-09-2011
و عليكم السلام
جرب هذه:
للحفط
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);
الكتابة والقراءة بملف word - لؤي - 14-09-2011
أو
للقراءة
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 - هاوي دلفي - 15-09-2011
السلام عليكم
أولاً شكراً على الاجابة
هنا لاحظت عبارة عن تحميل ملف إلى قاعدة البيانات وتخزين ملف من قاعدة البيانات ولكن كيف الكتابة ضمن ملف word بقيم من قاعدة البيانات تتم ضمن البرنامج
وأنا أستخدم دلفي 7 ولكم الشكر