السلام عليكم.......... اخواني الكرام ........... الافاضل :

1 - التعامل مع الملفات الصوتية :
لقد سأل سائل منذ فترة بسيطة عن كيفية التعامل مع ملفات الصوت (تخزينها و استرجاعها من قاعدة البيانات) : -

* انشاء حقل في الجدول (المراد تخزين الملف الصوتي به ) من نوع LONG RAW ليكن اسمه SOUND_FI
* عند عمل بلك بيانات لهذا الجدول يظهر هذا الحقل في هيئة صورة IMAGE نحوله الي SOUND من خاصية ITEM TYPE
* نكتب الكود التالي في حدث WHEN MOUSE CLICK علي بند الصوت

DECLARE
 SOU_NAME	VARCHAR2(1000); 

BEGIN
SOU_NAME:=GET_FILE_NAME('d:\music',NULL,'ALLFILES','soundfile',OPEN_FILE,TRUE);  
READ_SOUND_FILE(SOU_NAME,'wav','sount_fi');

IF NOT FORM_SUCCESS THEN  
:SYSTEM.MESSAGE_LEVEL:=25;			  
 MESSAGE('Sound Not Loaded . . . .');
:SYSTEM.MESSAGE_LEVEL:=0;	
END IF;
END;

ملاحظة : اذا لم يظهر لك شريط ادوات الصوت (بدء , ايقاف , تسجيل,...) اذهب لخصائص الصوت للخصائص التالية :

SHOW PALY BUTTON
SHOW RECORD BUTTON
.
.
. الخ وضعها YES


2 - كود اخر لتشغيل ملفات الصوت والفيديو :

host('c:\Program Files\Windows Media Player\wmplayer.exe d:\music\ali.mp3');

3 - يمكنك الان ان تصمم TREE جميلة جدا باستخدام LIST

4 - للمبتدئين مثالين لتوضيح الية استقبال بيانات من فورم اخر باستخدام GLOBAL & PARAMETER

5 - كيفية وضع لمسة جمالية للفورم باستخدام ACTIVE X (رغم انني لا انصح به) الشرح بسيط جدا لرفعه منتظر ردودكم...

بالتوفيق اخواني الكرام ..........................

ex_parameter.rar

exam_global.rar

sound_table.rar

tree_list.rar

مجهود رااائع جعله الله من موازين أعمالك

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

الحمد لله والصلاه والسلام علي رسول الله صلي الله عليه وسلم
اللهم ربنا يا اله كل شئ وخالق كل شئ لا تسالنا عن شئ واغفر لنا كل شئ
انا واخي الكريم واخواننا وجميع المسلمين والمسلمات والمؤمنين والمؤمنات من اول الخلق الي يوم الدين وكل من له علينا حق واغتبناه او بهتناه او نلنا منه بما لا يرضيك واجعله له نورا يوم القيامه
اللهم ربنا ما بيينا وبين جلالتك فاغفره لنا فانت الغفور الرحيم لا غفور غيرك وما بيننا وبين عبادك فتحمله عنا فانت الله الواحد القهار الديان الله امين وصلي اللهم علي سيدنا محمد وعلي اله وصحبه اجميعن ومن بتعه باحسان الي يوم الدين
امين امين امين امين امين

جزاك الله خير...
والى الامام...

السلام عليكم اخواني الكرام...........

شرح استخدام اداة ACTIVE X CONTROL في DEVELOPER 6I بالتفصيل الممل:


في حال كنت تستخدم Developer 6i فأنت لا تحتاج للاداة Laf حيث انك تستطيع استخدام Skin مباشرة

طريقة استخدامها كالتالي :-

* اضف اداة ACTIVE X CONTROL الي الفورم
* كلك يمين عليها ىثم اختار INSERT OBJECT
* اختار ACTIVE SKIN CONTROL ثم OK
* كلك يمين عليها ثم اختار ACTIVE SKIN CONTROL OBJECT ثم LOAD SKIN

ملاحظة :- يجب ان يكون عندك ملفات SKIN نسخة نهائية وليس تجريبية (حتي تعمل بشكل صحيح)

* نحدد ملف ال SKIN المطلوب (الشكل الذي ترغب به مثلا GREEN.SKIN)
* نذهب لشاشة OBJECT NAVIGATOR ثم نذهب لخصائص ال active x object
* نذهب لخاصية ole class ثم نختار activeskin4.skin
* في زناد when new form instance نكتب الكود التالي:

كود

declare
MY_WIN_HANDLE VARCHAR2(100);
BEGIN
	SET_WINDOW_PROPERTY(FORMS_MDI_WINDOW,WINDOW_STATE,MAXIMIZE);
MY_WIN_HANDLE := GET_WINDOW_PROPERTY('WINDOW1' , WINDOW_HANDLE);	 
ActiveSkin4_ISkin.LoadSkin(:item('block3.ACTIVEX_CONTROL4').interface,'c:\Media.skn');
activeskin4_Iskin.applyskin(:item('block3.activex_control4').interface,MY_WIN_HANDLE);

END;

اذا لم يعمل البرنامج بشكل صحيح , يجب تسجيل اداة actskin4.ocx في الريجستري

بالتوفيق ..........

السلام عليكم اخواني الكرام...........

شرح استخدام اداة ACTIVE X CONTROL في DEVELOPER 6I بالتفصيل الممل:


في حال كنت تستخدم Developer 6i فأنت لا تحتاج للاداة Laf حيث انك تستطيع استخدام Skin مباشرة

طريقة استخدامها كالتالي :-

* اضف اداة ACTIVE X CONTROL الي الفورم
* كلك يمين عليها ىثم اختار INSERT OBJECT
* اختار ACTIVE SKIN CONTROL ثم OK
* كلك يمين عليها ثم اختار ACTIVE SKIN CONTROL OBJECT ثم LOAD SKIN

ملاحظة :- يجب ان يكون عندك ملفات SKIN نسخة نهائية وليس تجريبية (حتي تعمل بشكل صحيح)

* نحدد ملف ال SKIN المطلوب (الشكل الذي ترغب به مثلا GREEN.SKIN)
* نذهب لشاشة OBJECT NAVIGATOR ثم نذهب لخصائص ال active x object
* نذهب لخاصية ole class ثم نختار activeskin4.skin
* في زناد when new form instance نكتب الكود التالي:

كود

declare
MY_WIN_HANDLE VARCHAR2(100);
BEGIN
	SET_WINDOW_PROPERTY(FORMS_MDI_WINDOW,WINDOW_STATE,MAXIMIZE);
MY_WIN_HANDLE := GET_WINDOW_PROPERTY('WINDOW1' , WINDOW_HANDLE);	 
ActiveSkin4_ISkin.LoadSkin(:item('block3.ACTIVEX_CONTROL4').interface,'c:\Media.skn');
activeskin4_Iskin.applyskin(:item('block3.activex_control4').interface,MY_WIN_HANDLE);

END;

اذا لم يعمل البرنامج بشكل صحيح , يجب تسجيل اداة actskin4.ocx في الريجستري

بالتوفيق ..........

الله يعطيك العافية اخي محمود..
بالتوفيق...

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

من اين نحصل على ملفات skin 

للديفيلوبر 6i

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