السلام عليكم اخوانى
انا عامل حقل من نوع تيكست وهذا الحقل بحفظ فية امتداد ملف الورد فى الداتا بيز اريد عند الضغط على البوتون يفتح ملف الورد من هذا الامتداد

هل من مجيب

اليك هذا الكود

DECLARE
V_DIRE VARCHAR2(100);
V_DIRE1 VARCHAR2(100);
V_EXT VARCHAR2(100);
BFILE_LOC VARCHAR2(100);
BEGIN
SELECT FILE_EXTENTION,BFILE_LOC INTO  V_EXT ,BFILE_LOC FROM FILE_DATA WHERE ID=:ID;
IF UPPER(V_EXT)='PDF' THEN 
--V_DIRE1:='D:\PDF_files\'||:FILE_NAME;
HOST('C:\Program Files\Adobe\Acrobat 5.0\Reader\AcroRd32.exe '||' '||BFILE_LOC);
ELSIF UPPER(V_EXT)='DOC' THEN
--V_DIRE:='D:\do_files\'||:FILE_NAME;
HOST('C:\Program Files\Microsoft Office\OFFICE11\WINWORD.EXE '||' '||BFILE_LOC);
END IF;
END; 

اتبع الخطوات التالية :
1- أعمل -----------> ( TEXT_ITEM ) --------------> (T) وسمه .
2- أعمل زر
3- أكتب في الزر هذا الكود :

DECLARE
A VARCHAR2(100);
BEGIN
A:=:T;

host(A);

END;


4- ( TEXT_ITEM ) سجل المسار الذي تريده في الـ

5- مثال على مسار (D:\WORD.DOC)

6- في حالة وجود أي مشكلة راسلني على البريد [email protected]

مشكورا اخوانى على الردود بس انا عارف الامر
host الامر دة بيتعامل مع الملفات التى من نوع executable files
بمعنى اخر انة بيقدر يفتح الملفات التنفذية والتى على امتداد مثلا exe,bat
ولكن سؤالى هو اذاى افتح ملف على امتداد doc وذلك بعد حفظ مسارة فى الداتا بيز ياعنى انا مش عاوز افتح ملف برنامج الورد الى على امتداد exe ولكن عاوز افتح مستند معمول بالورد والذى هو على امتداد doc اعتقد انها ممكن تيجى عن طريق الاوبجيكت يريت لو حد يعرف الكود يساعدنى

فينكم ياجماعة

الموضوع بسيط
كل اللي عليك انك تكتب
host('D:\Program Files\Microsoft Office\Office\WINWORD.EXE c:\Auction.doc');
او حسب مسار الاوفيس عندك وبعدين اسم الملف اللي عايز تفتحة
يعني انا اسم الملف اللي بفتحة اسمة
c:\Auction.doc
والله أعلم

مشكورا اخى العزيز على اهتمامك بس بردة لا يعمل وبردة انا عاوز اوضح للمرة الثانية ان الامر host بيتعامل مع الملفات مثل exe,bat ولكن عاوز افتح ملف على امتداد doc

هل من مجيب

اخي / tmiy
السلام عليكم ورحمة الله وبركاته:-
اليك هذا الكود والذي وجدته في المنتدى منذ فتره
ونقلته ربما يفيدك مع العلم انه موجود مثيله في الهلب
DECLARE
-- Declare the OLE objects
MyApplication OLE2.OBJ_TYPE;
MyDocuments OLE2.OBJ_TYPE;
MyDocument OLE2.OBJ_TYPE;
MySelection OLE2.OBJ_TYPE;

-- Declare handle to the OLE argument list
args OLE2.LIST_TYPE;

BEGIN
-- Create the Word.Application object and make Word visible
-- by setting the 'Visible' property to true
MyApplication := OLE2.CREATE_OBJ('Word.Application');
OLE2.SET_PROPERTY(MyApplication, 'Visible', 1);

-- get a handle on Documents collection
MyDocuments:= OLE2.GET_OBJ_PROPERTY(MyApplication, 'Documents');

-- Add a new document to the Documents collection
Mydocument := OLE2.INVOKE_OBJ(MyDocuments, 'Add');

-- Get a handle on Selection object
MySelection:=OLE2.GET_OBJ_PROPERTY(MyApplication, 'Selection');

-- Insert the text 'Hello Word97!' into word document
OLE2.SET_PROPERTY(MySelection, 'Text', 'Hello Word97!');

-- Save the document to the filesystem as EXAMPLE.DOC
args := OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG(args, 'C:\DOCS\EXAMPLE.DOC');
OLE2.INVOKE(MyDocument, 'SaveAs', args);
OLE2.DESTROY_ARGLIST(args);

-- Close the document
OLE2.INVOKE(MyDocument, 'Close');

-- Release the OLE objects
OLE2.RELEASE_OBJ(MySelection);
OLE2.RELEASE_OBJ(MyDocument);
OLE2.RELEASE_OBJ(MyDocuments);
OLE2.RELEASE_OBJ(MyApplication);
END;
بالتوفيق والسداد،،،

مشكورا اخى محمد على بس معنى الكود دة ان هو يباسى كلمة(hello word) لبرنامج الورد ثم بعد ذلك يقوم باغلاق المستند ويعملة حفظ فى المسار اللى انت محددة فى السطر دة

مشكورا اخى محمد الحيلانى بس معنى الكودانة يقوم بانشاء مستند ورد ثم يكتب بداخل المستند كلمة
(hello word) ثم بعد ذلك يقوم باغلاق المستند ويعملة حفظ فى المسار اللى انت محددة فى السطر

OLE2.ADD_ARG(args, 'C:\DOCS\EXAMPLE.DOC');

بس بردة مش دة اللى انا عاوزة لان انا لو نفزت الكود دة على الملف اللى موجود عندى وكتبت المسار بتاعة فى السطر السابق سوف يقوم بمسح محتويات الملف الاصلى بعد ذلك يقوم بكتابة الكلمة السابقة ويعملة حفظ وبتالى هخسر كل محتويات الملفات

السلام عليكم
آسف أجبنك بسؤالك.
لأك الإجابة وانشاء الله خير
خزن الملف على المسار التالي :dossier_racine_oracle\j2ee\home\default-web-app\
هذا المسار يجب ان يكون المسار المخزن في القاعدة
عند الضغط على الزر WHEN_BOTTON_PRESSED اضف الكود التالي :
http://<nom_serveur>:<num_port>/<nom_fichier>.
علما ان المعطيات التي بين <> خاصة بتطبيقتك
حظا سعيدا

تم تعديل 24 أغسطس 200619 سنة بواسطة عماد الظاهري

ممكن توضح اكتر

السلام عليكم
الله يمسيكم بكل خير ويبارك فيكم جميعا ويبارك لادراة الموقع على هذا الانجاز الرائع واتمنى من الله ان يوفق الاداره الى نشر العلم في ارجاء الكره الارضيه.
اخي الفاضل هذا ملفين بامكانك ان ترجع لهم لقراءة ملفات مكتوبه بالمايكروسفت ورد.
اتمنى ان تجد طليك في هذين الملفين.



مع تحياتي الى الاداره والاعضاء

نضال رزق

February_5.doc

Example_1.doc

مشكورا اخى على مروروك وجارى التجربة

جزاك الله خيرا ..............

مشكور يا اخ نضال رزق على هذين المثالين وبالتوفيق اخوك نضال غيث

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