استدعاء open dialog,save dialog,printer dialog

[الزهيري]

ارجوا ان اجد اجابة لديكم


كيف يتم استدعاء open dialog,save dialog,printer dialog

[N_MEAILY]

السلام عليكم الأخ الكريم
سوف اقدم لكم كود يمكنك من خلاله فتح شاشه (لفتح ملف ) ووضع المسار الخاص بها داخل variable

Syntax :-

[code]FUNCTION 
GET_FILE_NAME
 (directory_name   VARCHAR2, 
  file_name        VARCHAR2, 
  file_filter      VARCHAR2, 
  message          VARCHAR2, 
  dialog_type      NUMBER,  /*Specifies the intended dialog to OPEN_FILE or SAVE_FILE.  The default value is OPEN_FILE.*/
  select_file      BOOLEAN;  


Exemple

--('PATHAND FILE NAME.TYPE','TYPE', 'BLOCK.ITEM');
----READ_IMAGE_FILE('C:\Oracle_Project\MM.JPG','JPG','CONTROL.IMAGE');
declare

filename  VARCHAR2(30); 
BEGIN 
:System.Message_Level := '25'; 
----  DIALOG_TYPE=> 2 ='SAVE DIALOGE'
----  DIALOG_TYPE=> 1 ='OPEN DIALOGE'
  filename:=GET_FILE_NAME(File_Filter=>'all(*.bmp)|*.bmp|',DIALOG_TYPE=> 2); 
   
  read_image_file(filename,'any','control.image');
IF NOT FORM_SUCCESS THEN 
  MESSAGE('This Item does not have a photo on file.'); 
END IF; 
  :SYSTEM.MESSAGE_LEVEL := '0'; 
END;

[-=|mOOdY|=-]

THANX MAN

[amino1]

السلام عليكم ورحمة الله وبركاته

جزاك الله خير

[moh]

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

[freedoas]

مرحبا للأخ N_MEAILY
انا جربت الكود تبعك ولكن لم يظهر عندي اي dialoge
ارجو منك ان تقوم بعمل مثال عن كيفية فتح مربع الحار فتح ملف او حفظ ملف
الرجاء المساعدة
وان تقوم بارفاقه هنا او ترسله علي الاميل التالي : [email protected]
الكود ضروري جدا

[king3bd]

how to call dialog from oracle in the same system without hiding the previous screen
i meant like LOV dialog...

[أسامة موسى]

مشكور

[الخرباش]

الف شكر N_meaily

[GoldenOracleMaster]

شكراااااااا