أين الجميع..هل من مجيب لحل هذه المشكلة

#12 أكتوبر 2004 في 22:19 صاحب الموضوع

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

أرجو مساعدة مشرفي المنتدي الكرام وأرجو إضافة أي فكرة ولو بسيطة فلعلها تفيد بشئ..

عندي قاعدة بيانات من النوع Access وبها جداول تحتوي علي بيانات من النوع Media Clip والتي تدرج ككائن OLE.. لتحمل ملفات صوت MP3 أو WAV.. ولإدراج ملف صوت بالسجل يتم عمل Open ثم التجول عبر الهارد ديسك لإختيار ملف الصوت المطلوب ثم يتم إدراجه بنجاح داخل الجدول.. والمشكلة.. هي أن الملف الآن أصبح يحمل مسار وليكن.. "C:\My Documents\FileName.MP3" , ولعمل ربط للقاعدة بداخل Visual Basic يتم التشغيل بأداة OLE مربوطة بـ Data Control عادي جدا ويتم التشغيل بنجاح.. ولكني أريد تغيير مسار ملف الصوت من داخل VB بكود يجعل مسار الملف كما أريده أنا.. ليتم تشغيله تبعا لمكان تنزيل البرنامج النهائي على جهاز المستخدم.. (ولكن المشكلة هي أنني حتي عند تغيير المسار بنجاح يتم تغيير الكلاس "وهو برنامج التشغيل لملف الصوت داخل السجل" والحل هو اني أريد تغيير المسار مع المحافظة على الكلاس الحالي) أرجو أن أكون أوضحت السؤال وآسف على الإطالة.. وأرجو الإفادة لأن حل هذه المشكلة ضروري جدا جدا جدا بالنسبة لي ومتوقف العمل في البرنامج بسبب هذه المشكلة.. أرجو المساعدة ..

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

وَلَوْلا دَفْعُ اللَّهِ النَّاسَ بَعْضَهُم بِبَعْضٍ لَّفَسَدَتِ الأَرْضُ وَلَكِنَّ اللَّهَ ذُو فَضْلٍ عَلَى العَالَمِينَ

موقع رائع للقرآن الكريم والتدريب على الحفظ

#22 أكتوبر 2004 في 22:51

Here are a few examples: (I'm sure there are more.)

System.Windows.Forms.Application.ExecutablePath

System.Windows.Forms.Application.StartupPath

System.AppDomain.CurrentDomain.BaseDirectory()

System.GetEntryAssembly().Location

فمثلاً

Dim x As String = Application.StartupPath()

msgbox(x)

وإن شاء الله أكون اني فهمت قصدك ويطلع هذا هو المطلوب

#32 أكتوبر 2004 في 23:56

يا اخ mohcool كودك مكتوب بالدوت نيت و لن تعمل مع الفيجوال بيسك 6

اما للاخ صاحب السؤال فلتحديد مسار ملفك

app.path or app.exename

تم تعديل هذه المشاركة بواسطة طارق إبراهيم في 3 أكتوبر 2004 في 00:09

Technical Lead Developer

My LinkedIn Profile

اللهم قنى شر الجهل و الجهلاء

( اقْتَرَبَ لِلنَّاسِ حِسَابُهُمْ وَهُمْ فِي غَفْلَةٍ مَّعْرِضُونَ ) {الأنبياء:1}

#43 أكتوبر 2004 في 02:12

السلام عليكم

الحل ان شاء الله

بعمل مجلد بجانب قاعدة البيانات ووضع ملفات الصوت به جميعها وحذفها من قاعدة البيانات وتسجيل أسماء الملفات فقط بالإمتداد فى حقل نصى..

ثم ربطها بالVB عن طريق MediaControl أو الأداة التى تقوم بالربط بها ..

ومن الVB قم بكتابة كود الأخ طارق .. واعطيه لمتغير

ثم اكتب متغير أخر واضف له قيمه متغر الأمر السابق بالإضافة لمسار المجلد والملفات.

ليصبح الكود مشابه للكود التالى:

A= app.path
c= متغير يتم وضع اسم الملف به من قاعدة البيانات
b= a $ & b

والمتغير B يمكنك تغيير بخاصية اسم الملف بالإداة MediaControl مثلا..

والسلام عليكم

" وما توفيقى إلا بالله عليه توكلت وإليه أنيب "
-------------------------------------------------
قل : " لا حول ولا قوة إلا بالله "
-------------------------------------------------

#57 أكتوبر 2004 في 03:35

السلام عليكم..

أود تذكير الجميع بأني ذكرت في مشاركتي أنني استطعت تغيير المسار كما أريد.. ولكن المشكلة الان تحولت واصبحت في الكلاس الخاص بملف الأداة داخل القاعدة..

فإني وبعد أن استخدمت الكود التالي..

OLE1.CreatEmbed (App.path) & "\SoundFileName.MP3"

وتم حل مشكلة المسار.. ولكن عند تشغيل الملف من داخل VB او حتي من داخل القعاعدة فان الملف يتولى تشغيلة WinAmp أو البرنامج الحالي الذي يشغل هذا النوع من الملفات بنظام التشغيل.. والمفروض انه كان يشغله رابط الـ OSX أو DLL الذي تم ضبطه من قبل بواسطتي.. وعند وضع TextBox لقراءة الكلاس السابق للكود ثم قرائته بعد تنفيذ الكود علي سجل مثلا للتجريب.. يعطيني الآتي..

' قبل الكود كان الوضع كالآتي
Text1 = OLE1.Class
' الناتج هو mplayer

' أما بعد كتابة الكود وتنفيذه فإن الناتج هو package

أي ان الكلاس خرج خارج نطاق الملف السابق الضبط له .. وأصبح يشغله برنامج أو Package آخر والذي عادة ما يكون WinAmp كما ذكرت أو أي برنامج آخر يتولى هذه المهمة..

والمطلوب الآن.. حلا لتغيير المسار للملف دون اللعب بالكلاس الحالي وتركه وشأنه وعدم التعديل السخيف به..

أرجو ان تكون صورة السؤال وضحت للسادة الزملاء.. وآسف للإطالة.. ولكن السؤال يتطلب ذلك..

منتظر ردا منكم.. وشكرا لاهتمامكم وصبركم .. وجزاكم الله خيرا كثيرا..

تحياتي لكم :-)

وَلَوْلا دَفْعُ اللَّهِ النَّاسَ بَعْضَهُم بِبَعْضٍ لَّفَسَدَتِ الأَرْضُ وَلَكِنَّ اللَّهَ ذُو فَضْلٍ عَلَى العَالَمِينَ

موقع رائع للقرآن الكريم والتدريب على الحفظ

#68 أكتوبر 2004 في 02:09

السلام عليكم

هل البرنامج يعمل معك بشكل سليم عند العمل على ملفات WAV .. ؟

ولقد ذكرت أنت :

**** وتم حل مشكلة المسار ****

ثم :

*** والمطلوب الآن.. حلا لتغيير المسار للملف ***

؟؟

" وما توفيقى إلا بالله عليه توكلت وإليه أنيب "
-------------------------------------------------
قل : " لا حول ولا قوة إلا بالله "
-------------------------------------------------

#78 أكتوبر 2004 في 17:55

السلام عليكم..

أخي الكريم الفاروق.. شكرا لمتابعتك واهتمامك..

أوضح المشكلة أكثر.. أقول.. أن المشكلة هي أن الكلاس يتم تغييره إلى Package بعد أن كان mplayer .. ذلك بعد كتابة الكود السابق الذكر وتنفيذه على المشكلة.. أي اني استطعت تغيير المسار إلى ما أريد وأصبحت المشكلة في الكلاس وهو برمجيا هو الخاصية OLE1.Class .. جرب أن تستدعيه وتقرؤه من خلال Label أو TextBox .. لترى بنفسك.. والحقيقة أنني لا استطيع الاتصال من المنزل فكنت أرفقت مثال جاهز للشرح الوافي.. ولكني قريبا جدا.. حتى ممكن اليوم.. سأرفق المثال لفصل الموضوع والشرح الكامل البائن..

ولكن لا تعتمد على ذلك واقرأ المشاركة السابقة لهذه لتعرف الكود وكيفية تنفيذه على أداة OLE..

وأريد المزيد من الزملاء.. أين المبرمجين العرب.. المشكلة لازالت قائمة والوقت ضيق حقا..

جزاكم الله خيرا عني..

ومنتظر ردا منك أخي الفاروق..

تحياتي.. :-)

وَلَوْلا دَفْعُ اللَّهِ النَّاسَ بَعْضَهُم بِبَعْضٍ لَّفَسَدَتِ الأَرْضُ وَلَكِنَّ اللَّهَ ذُو فَضْلٍ عَلَى العَالَمِينَ

موقع رائع للقرآن الكريم والتدريب على الحفظ

أين الجميع..هل من مجيب لحل هذه المشكلة

مواضيع مشابهة