الفلاش و VB

اقترح عليك طرح السؤال ايضا في قسم قواعد البيانات اكسس.

ألسلام عليكم

لقد أرفقت الكود مدمج معه الشرح الخاص به

و الفكرة هى ان البرنامج يسجل البيانات من قاعدة البيانات فى ملف ثم يعرض الملف و يحمله على الفورم ثم يقوم بمسحه .....

Option Explicit

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

Private Sub Form_Load()
' متغير يحمل بيانات الاتصال بقاعدة البيانات
Dim dbConnectionString As String
' عنوان مسار ملف قاعدى البيانات
Dim myPath As String
' اسم و مسار الملف الاحتياطى
Dim tempFile As String
' انشاء سجل للقراءة من قاعدة البيانات
Dim rsObj As New ADODB.Recordset
' متغير سوف يحمل ما يحتويه ملف الفلاش الذى سيعرض
Dim f_Data As String
' متغير سيحمل طول ملف الفلاش الذى سيعرض
Dim f_Len As Long

    ' تسجيل عنوان قاعدة البيانات فى المتغير
    myPath = App.Path & IIf(Right(App.Path, 1) <> "\", "\", "") & "mydata.mdb"
    ' نسجيل بيانات الاتصال بقاعدة البيانات فى المتغير
    dbConnectionString = "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & myPath & ";DefaultDir=" & App.Path & ";"
    ' تسجيل اسم و مسار الملف الاحتياطى فى المتغير
    tempFile = App.Path & IIf(Right(App.Path, 1) <> "\", "\", "") & App.Title & ".swf"
    ' امر الاتصال بقاعدة البيانات و تحميل الجزأ المطلوب على السجل
Call rsObj.Open("SELECT * FROM [flash];", dbConnectionString)
            
' الان مؤشر السجل مضبوط على أول صف فى الجدول

' هنا نأخذ طول البيانات الموجودة فى الحقل الذى يحتوى على ملف الفلاش ونضعها فى المتغير
f_Len = rsObj.Fields("myfile").ActualSize
' هنا نضع البيانات الموجودة فى الحقل فى المتغير وذلك حسب طول البيانات المطلوب
' وفى هذه الحالة وضعنا الطول كاملا اى سنأحذا كل ما يحتويه الحقل من بيانات
f_Data = rsObj.Fields("myfile").GetChunk(f_Len)
' الان ننشأ الملف الاحتياطى
Open tempFile For Binary As #1
            Put #1, , f_Data ' نضع جميع البيانات فى الملف
Close #1 ' نغلق العملية انشاء الملف
    
' الان أصبح لدينا ملف الفلاش فى نفس دليل البرنامج و كأننا نسخناه من مكان الى اخر
' ولكننا اخذناه من قاعدة البيانات ووضعناه فى ملف حتى نستطيع تشغيله كأى ملف فلاش عادى
    ShockwaveFlash1.Movie = tempFile
    
' بعد تحميل الملف على الكنترول الخاص بتشغيله نحذف الملف الاحتياطى
    Kill tempFile
End Sub

' مع خالص تحياتى
' ابراهيم

السلام عليكم

هذه هى طريقة تسجيل ملف ثنائى binary فى قاعدة البيانات

حيث يأخذ ملف من دريف :c اسمه falsh1.swf ويحفظه فى قاعدة البيانات

أرجو ان أكون وفقت فى الشرح

و من يجد طريقة أخرى أرجو الا يبخل بها

Private Sub Command1_Click()
' متغير يحمل بيانات الاتصال بقاعدة البيانات
Dim dbConnectionString As String
' عنوان مسار ملف قاعدى البيانات
Dim myPath As String
' اسم و مسار الملف الفلاش المراد وضعه فى قاعدة البيانات
Dim FlashFile As String
' انشاء سجل للكتابة فى قاعدة البيانات
Dim rsObj As New ADODB.Recordset
' متغير سوف يحمل ما يحتويه ملف الفلاش الذى سيحفظ
Dim f_Data As String
' متغير سيحمل طول ملف الفلاش الذى سيعرض
Dim f_Len As Long
' الاعلان عن مصفوفة من البايت لقراءة ملف الفلاش
Dim ByteArray() As Byte

' تسجيل عنوان قاعدة البيانات فى المتغير
myPath = App.Path & IIf(Right(App.Path, 1) <> "\", "\", "") & "mydata.mdb"
' نسجيل بيانات الاتصال بقاعدة البيانات فى المتغير
dbConnectionString = "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & myPath & ";DefaultDir=" & App.Path & ";"
' تسجيل اسم و مسار الملف الفلاش فى المتغير
FlashFile = "C:\flash1.swf"
' الحصول على حجم ملف الفلاش
f_Len = FileLen(FlashFile)
' إعادة الاعلان عن المصفوفة و عدد عناصرها = طول ملف الفلاش
' حيث يوضع كل بايت من الملف فى عنصر من عناصر المصفوفة بالترتيب
ReDim ByteArray(f_Len)
' فتح ملف الفلاش للقراءة منه
Open FlashFile For Binary As #1
Get #1, , ByteArray() ' وصع جميع البايتس الخاصة بالمبف فى المصفوفة
Close #1 ' اغلاق قراءة الملف

' يتم تحويل جميع عناصر المصفوفة التى تحمل البايبس الخاصة بالملف الى متغير نصى
For i = 0 To f_Len - 1
f_Data = f_Data + Chr(ByteArray(i))
Next i

' امر الاتصال بقاعدة البيانات و تحميل الجزأ المطلوب على السجل
Call rsObj.Open("SELECT * FROM [flash];", dbConnectionString, adOpenStatic, adLockOptimistic)
            
' انشاء سجل جديد
rsObj.AddNew
' الامر الذي يسجل البيانات الى قاعدة البيانات
rsObj.Fields(0).AppendChunk f_Data
' أمرين لتحديث قاعدة البيانات
rsObj.Update
rsObj.Requery
MsgBox "تم الحفظ بنجاح"
End Sub

مع خالص تحياتى

ابراهيم

بارك الله فيك أخي الفاضل VB6-Rocket

شرح جميل جدا

بارك الله فيك

وأنار الله طريقك للخير

بارك الله فيك أخي الفاضل VB6-Rocket

شرح جميل جدا

بارك الله فيك

وأنار الله طريقك للخير

شكرا يا رزان على تشجيعك و اطرائك الجميل

و اتمنى الخير لكم جميعا

و ارجو من الله ان يوفقنا جميعا

بارك الله فيك أخي VB6-Rocket ووفقك لكل خير وصلاح وفرج عنك كل هم وغم انه على كل شيء قدير وبالايجابة جدير

آمين رب العالمين

على العموم أنا راح اقرا الكود زين وافهمه واذا صار عندي أي سؤال راح يكون لي عودة إن شاء الله

السلام عليكم

شكرا جزيلا يا قمرا

و اتمنى ان يقدرنى الله على اجابة اى اسئلة فى حدود معرفتى

و انا بالانتظار دائما

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

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

معليش يمكن كثرت من الآسئلة لكن أحتملوني وانتمأصحاب نفوس عظيمة

بس عندي كم استفسار

' تسجيل عنوان قاعدة البيانات فى المتغير
myPath = App.Path & IIf(Right(App.Path, 1) <> "\", "\", "") & "mydata.mdb"

ما الفائدة من

 IIf(Right(App.Path, 1) <> "\", "\", "")

في الكود يعني وش وظيفة IIf ?

كذالك أنا لم أفهم جيدا طريقة التخزين الثنائي .. :blink: :blink: :blink: ...في الحقيقة أنا عندي 20 ملف فلاشي ...وابي اخزنهم في قاعدة البيانات بحيث أن قاعدة البيانات تكون عندي جاهزة قبل الRUN TIME وانا ابغي طريقة

أسهل من كذا وعملية أكثر من كذا :unsure: :unsure: :unsure: يعني مثل تخزين البيانات النصية مثلا ...طريقة سهلة وبسيطة=====> :rolleyes: اذا ممكن .

:rolleyes:

:( :( :( :(

لا يوجد رد :(

هل الأسئلة صعبة ؟! :unsure:

أرجوكم أنا في أمس الحاجة للإجابة بأسرع وقت ممكن :(

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

وقد فهمت السؤال الذي سبق أن سألته عن الدالة IIf

حيث تكون تركيبتها كالتالي

IIf(expr, truepart, falsepart)

حيث

exp: هي العبارة المطلوب حسابها

truepart : يرجع لنا بعذه القيمة اذا رجعت المقارنة ب True

falsepart: يرجع لنا بهذه القيمة اذا رجعت عملية المقارنة ب False

أي ان هذا الامر iif هو هب مبسط مكون من

if...then...else

وفي الكود الذي كتبه الاخ الكريمshearer يقصد هل آخر الامتدادلا يوجد \ اذا كان الجواب نعم إذن أضف ال \ في الموضع المكتوب فيه هذا الامر البرمجي . واذا كان لا (أي انه يوجد \ في نهاية الامتداد إذن لا حاجة لوجودة \ آخر

>>>>>>>>>>>>>>>>>>>>>>أرجو أن أكون قد وفقت لإيصال المعلومة لكل من يحتاجها

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

لكن المشكلة :angry: :angry: :angry: أن زمن تحويل الملف الفلاشي الى ملف ثنائي يستغرق وقت طويل والكمبيوتر يتوقف قليلا عن العمل ....اي ان الجهاز يجيم :rolleyes:

ما ادري وش المشكلة هل قاعدة البيانات لا تستحمل هذا الكم الهائل من البيانات أو ما هي المشكلة بالضبط :(

ارجو كل من يستطيع الرد عدم التأخر علي فان الامر ضروري وبات يؤرقني

أختكم قمرا

السلام عليكم

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

1 - بالنسبة لطريقة ادخال الملفات الى قاعدة البيانات :

من الممكن ان تعيدى تسمية الملفات كالتالى : wsf.1 , wsf.2 , 3.wsf .... وهكذا وتضعى فى البرنامج for loop حسب عدد الملفات من 1 الى 20 و فى كل مرة بتم تغير اسم الملف وذلك برقم ال for loop الحالى وبذلك يتم تغير اسم الملف فى كل لفة و تتم العملية أوتوماتيك .

2- يأخذ الكود وقتا طويلا فى التسجيل و ذلك لوجود جزأ فى البرنامج يعمل على تحويل بيانات الملف من النظام الثنائى binary الى متغير نصى عادى

' يتم تحويل جميع عناصر المصفوفة التى تحمل البايتس الخاصة بالملف الى متغير نصى
For i = 0 To f_Len - 1
f_Data = f_Data + Chr(ByteArray(i))
Next i

و بذلك كلما زاد حجم ملف الفلاش كلما زاد الوقت

و سوف أحاول تعديل الكود بحيث يأخذ وقت أقل

والله المستعان

مشكووور أخوي VB6-Rocket على الكود ...شغال 100% لكن مثل ما قلت لك أنه يأخذ وقت طويل ...

بالنسبة لادخال الفلاش الى قاعدة البيانات مثل ما قلت لك صار بالنسبة لي مو مشكلة لكن المشكلة الوقت وأحس الكمبيوتر يتعطل ...]أخذ بعض الاحيان الملف أكثر من 15 دقيقة ...ما أدري هل الغلط من ال RAM او من قاعدة البيانات

...حسب علمي أن قاعدة البيانات تستوعب لحد 2GB والله أعلم

في النهاية أنا أنتظر تعديل الكود بحيث يأخذ وقت أقل ...

ومشكووور والله ما تقصر

أختك قمرا

السلام عليكم

اختى قمرا

لقد عدلت لكى الكود بحيث ضاعفت سرعته مرتين على الاقل

و ارجو ان تستفيدى منه

ولا تنسينى من الدعاء

و اليك الكود

' متغير يحمل بيانات الاتصال بقاعدة البيانات
Dim dbConnectionString As String
' عنوان مسار ملف قاعدى البيانات
Dim myPath As String
' اسم و مسار الملف الفلاش المراد وضعه فى قاعدة البيانات
Dim FlashFile As String
' انشاء سجل للكتابة فى قاعدة البيانات
Dim rsObj As New ADODB.Recordset
' متغير سيحمل طول ملف الفلاش الذى سيعرض
Dim f_Len As Long
' الاعلان عن مصفوفة من البايت لقراءة ملف الفلاش
Dim ByteArray() As Byte

' تسجيل عنوان قاعدة البيانات فى المتغير
myPath = App.Path & IIf(Right(App.Path, 1) <> "\", "\", "") & "mydata.mdb"
' نسجيل بيانات الاتصال بقاعدة البيانات فى المتغير
dbConnectionString = "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & myPath & ";DefaultDir=" & App.Path & ";"
' تسجيل اسم و مسار الملف الفلاش فى المتغير
FlashFile = "C:\flash1.swf"
' الحصول على حجم ملف الفلاش
f_Len = FileLen(FlashFile)
' إعادة الاعلان عن المصفوفة و عدد عناصرها = طول ملف الفلاش
' حيث يوضع كل بايت من الملف فى عنصر من عناصر المصفوفة بالترتيب
ReDim ByteArray(f_Len)
' فتح ملف الفلاش للقراءة منه
Open FlashFile For Binary As #1
Get #1, , ByteArray() ' وصع جميع البايتس الخاصة بالمبف فى المصفوفة
Close #1 ' اغلاق قراءة الملف

' امر الاتصال بقاعدة البيانات و تحميل الجزأ المطلوب على السجل
Call rsObj.Open("SELECT * FROM [flash];", dbConnectionString, adOpenStatic, adLockOptimistic)
            
' انشاء سجل جديد
rsObj.AddNew

For i = 0 To f_Len - 1
' يتم تحويل جميع عناصر المصفوفة التى تحمل البايتس الخاصة بالملف الى قاعدة البيانات مباشرة
rsObj.Fields(0).AppendChunk Chr(ByteArray(i))
Next i

' أمرين لتحديث قاعدة البيانات
rsObj.Update
rsObj.Requery
MsgBox "تمت العملية بنجاح"

مع خالص تحياتى

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

أخي العزيز : VB6-Rocket أشكرك كثيرا على الكود ... بارك الله فيك وفرج عنك كل هم وكرب

أدعو من الله العلي القدير أن يقدرني لأن أساعد كل من مد يد العون والمساعدة لي ...

والله يجزيك ألف خير

الكود واضح وشغال وجميل جدا

أختكم قمرا

انتم على الرحب و السعة دائما

و اتمنى لكى التوفيق B)

السلام عليكم

أحب ان اطرح سؤال آخر بخصوص الفلاش مع VB

كيف يمكنني ازالة قائمة التي تظهر بالضغط على الزر الأيمن للفأرة (Mouse) على عنصر الفلاش داخل النموذج Form ، علماً أنني أريد ازلتها نهائياً.

ابحث في المنتدى و سوف تجد ما تطلبه يا عامر.