أريد عمل ATTACHMENT لملف وورد من خلال الفورمه ويتم حفظ المسار في الداتابيز لحين استراداد الملف
يعني ببساطه زي ATTACHMENT الأيميل

أرجوا المساعده من الساده الزملاء

الاخ العزيز ...

لو ممكن توضح ايش الهدف من عمل ذلك , حتي نستطيع المساعدة باذن الله تعالي.

دلوقتي في برامج الاتصالات الاداريه أو برامج المعاملات يتم تبادل الملفات بين الموظفين وأيضاً تحفظ هذه الملفات كأرشيف لحين البحث عنها وإستردادها

السلام عليكم
أخي راجع هذا الرابط:

http://www.araboug.org/ib/index.php?showtopic=32846&hl=

بالتوفيق

شكراً جزيلاً وجزاك الله كل خير

السلام عليكم و رحمة الله تعالى و بركاته: اخي في الله و الله قد نشر موضوع في هذا المنتدى الجميل و قدحملته و استفدت منه كثيرا.
استعمل اخي مميزات و خصائص DDE و قد عملت شاشة صغيرة و لكن لم اكملها لأن لدي برنامج ب DELPHI فيه ملفات وورد و اردت ان اغير الدالفي باوراكل لكن مع ضروف العمل لم استطع اكمال المشروع لكن سأضع الشاشة بعد قليل ان شاء الله هنا و ارجوا انت تحملها انت و كل من له اهتمام بالموضوع و ارجوا منكم ان تكملوا المشروع لأنني و ببساطة بحاجة ماسة الى هذا البرنامج.
لن ننساك يا قدس ما دام نبض الحياة فينا
يا رب ارزقنا صلاة في القدس الشريف آميـــن

هذا مثال مبسط عن كيفية استخدام الـbfile datatype لخزن رابط الملف ولذي سوف يتم عرضه عن طريق الدفلوبر .

الخطوات :
1- انشاء جدول يحوي BFILE Column

كود

create table my_doc (no number , my_doc bfile);

2- تعريف virtual directory للـ physical directory

كود

Create directory 'my_doc' as 'd:\temp';

لاحظ انك قمت بتعريف virtual directory باسم my_doc يشير الى الـphysical directory المسمى d:\temp
على اعتبار ان الملفات الي سوف يتم ربطها بالسجل موجوده في المسار d:\temp
3- الان نقوم بإضافة سجلين للجدول

كود

insert into my_doc values (1,bfilename('my_doc','w1.doc'));
insert into my_doc values (2,bfilename('my_doc','w2.doc'));

وفي المثالين السابقين قمنا بربط ملفي وورد
ملاحظة
سوف يتم خزن مسار واسم الملف فقط وليس الملف , وهذه طريقة افضل من عملية خزن الملف في الجدول لانه سوف يؤثر على اداء البرنامج .
4- الان نصمم function في الداتابيز لاسترجاع اسم الملف مع الـمسار

كود

create or replace function get_name_path(p_no number) return varchar2 
is
 Result varchar2(2000);
 Lob_loc		 BFILE;
 DirAlias_name   VARCHAR2(200);
 File_name	   VARCHAR2(200);
 P_d			 VARCHAR2(200);
BEGIN
 SELECT my_doc INTO Lob_loc 
 FROM my_doc 
 WHERE no = p_no;
 DBMS_LOB.FILEGETNAME(Lob_loc, DirAlias_name, File_name);
 Select directory_path into p_d
from all_directories
where upper(directory_name)=upper(DirAlias_name);
 result:=P_d ||'\'||file_name;
 return(Result);
exception 
	 when no_data_found then 
		  return null;   
end get_name_path;

5- الان انشاء block لهذا الجدول مع الاخذ بعين الاعتبار ان نوع الحقل للـcolumn BFILE هو text item
في الtrigger المسمى when-new-record-instance ضع الكود التالي

كود
:

my_doc.my_doc:=GET_NAME_PATH(:MY_DOC.NO);

6- في الـtrigger المسمى WHEN-MOUSE-DOUBLECLICK ضع الكود التالي

كود

DECLARE
ConvID  PLS_INTEGER;
BEGIN
 ConvID := DDE.App_Begin('D:\Program Files\Microsoft Office2000\Office\WINWORD.exe '|| Get_name_path(:my_doc.no),DDE.APP_MODE_MAXIMIZED	);
END;

ملاحظة
غير المسار التالي

كود

D:\Program Files\Microsoft Office2000\Office\WINWORD.exe

منقول .................

تم تعديل 12 أغسطس 200916 سنة بواسطة samdanger