الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مشكلة مع OLE من نوع Media Clip

مغلق
بدأه ahmedx44 في 22 سبتمبر 2004 · 3 رد · 524 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

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

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

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

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

#2

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

دائما في كل أداة توجد لها خصائص من ضمنها المسار

حاول تختار الأداة وإختر خصائص لتجد المسار C:\My Documents وهو دائما المسار الإفتراضي - قم بتغييرة

ولكن إذا لم تجد تحديد المسار في خصائص الأداة ( مع إنة لازم يكون موجود)

الحل :

إنقل أي ملف من المسار الذي تحددة الأداة إلى المسار الذي تريدة عن طريق دالة

CopyFile

تعريف الدالة

Public Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long

إستخدام الدالة

CopyFile ("C:\My Documents\FileName.MP3" ,"D:\MyFile\F1.MP3",FALSE)

--

http://www.jaascois.com

*************************************************

مجموعة مواضيع - إحتراف البرمجة -

ّ~~~~~~~~~~~~~~~~~~~~~~

البرمجة المتقدمة & الهندسة العكسية & برمجة وأمن الأنظمة

/index.php?showtopic=45002

آخر المواضيع :

+- تحليل جرائم الكمبيوتر -+

أنظمة اليونكس(Solaris,HP, AIX,SCO)وانواع المعالجات

ثغرة SMS لأجهزة الجوال Siemens 3568i !

أخطاء وثغرات البرامج العربية !!!

سلسلة مواضيع - أمن وحماية مواقع الويب -

E البرمجة المتقدمة X للملفات التنفيذية E

سلسلة مواضيع ثغرات الأنظمة وإختراق الأجهزة

**************************************************

<span style='font-size:14pt;line-height:100%'>الإرادة تحـــقق السيـــادة</span>

**************************************************

#3

متشكر جدا أخي gaas

ولكني أريد أن اوضح لك ان مسار الملف يقرؤه ويتعرف عليه Access وليس VB.. أما بالنسبة لخصائص الأداة فانها خصائص OLE وليست الملف الذي تحمله الاداة.. وقد جربت دالة (App.Path) وأشياء أخرى كثيرة.. ولكني ساجرب هذا الاعلان وهذه الدالة وارد عليك..

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

متشكر جدا أخي gaas سأجرب فورا ثم أرد عليك.. وأرجو منك متابعتي حتي اجرب هذه الفكرة وارد عليك..

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

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

#4

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

جربت الدالة أخي الكريم gaas ولكنها غير صحيحة.. أي تعطيني Error عند الجزء ByVal bFailIfExists As Long فهو لا يقبل False ولا يقبل أشياء أخرى جربتها..

وأوضح لك أني نجحت والحمد لله في تغيير المسار باستخدام الكود OLE1.CreatEmbed (App.Path) & "\FileName.MP3" .. ولكن المشكلة أنه يستدعي الملف ويشغله على برنامج WinAmp وهذا ليس ما اريد.. فإني كنت اضبطه من داخل Access على Media Player وهي الكلاس التابعة لهذا الملف داخل OLE وداخل Access .. واسم الكلاس هذه داخل VB هو "mplayer" .. وقد حاولت تغييره بعد تغيير المسار باستخدام الخاصية CreatEmbed ووضع الكلاس مع الكود ليصبح هكذا.. OLE1.CreatEmbed (App.Path) & "\FileName.MP3", "mplayer" ولكنه يتجاهل الكلاس ويشغله ايضا على WinAmp والتي اسم الكلاس لها Package ..

على العموم الحل الاكيد لهذا ان ارفق لك (في المرة القادمة) نسخة من المثال ليتوضح سؤالي اكثر ولتستطيع الرد عليه..

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

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

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

هذا الموضوع مغلق.

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