منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كيفية عمل تحميل ملف dll اثناء التشغيل - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : كيفية عمل تحميل ملف dll اثناء التشغيل (/showthread.php?tid=7984)

كيفية عمل تحميل ملف dll اثناء التشغيل - The Phantom - 15-03-13

احتاج طريقة لعمل load لملف dll اثناء تشغيل البرنامج حتي لا احتاج لأن يكون موجود اثناء بدء التشغيل
في ال vb.net استطيع فعل ذلك ب CreateObject
لاكن في ال vb6 لا اعرف اذا كانت هناك طريقة ارجوا المساعدة


كيفية عمل تحميل ملف dll اثناء التشغيل - AGASHE - 16-03-13

جرب اخي من قائمة project

و اختر references

ثم اختر الملف بالضغط على زر Browse

كيفية عمل تحميل ملف dll اثناء التشغيل - samehsayed2005 - 16-03-13

بنفس الطريقة
dim A as object

كيفية عمل تحميل ملف dll اثناء التشغيل - The Phantom - 16-03-13

AGASHE كتب :جرب اخي من قائمة project

و اختر references

ثم اختر الملف بالضغط على زر Browse


اخي هذه الطريقه تستجوب وجود الdll اثناء بدء التشغييل

samehsayed2005 كتب :بنفس الطريقة
dim A as object


ياريت مثال بسيك علي السريع

مثال في vb.net احتاج لشي يماثله في ال vb6
كود :
Function Plugin(ByVal ByteOfdll As Byte(), ByVal ClassName As String) As Object

        Dim J As Object = Reflection.Assembly.Load(ByteOfdll)
        Try
        Catch ex As Exception
        End Try
        Return J.CreateInstance(Split(J.FullName, ",")(0) & "." & ClassName)
    End Function


كيفية عمل تحميل ملف dll اثناء التشغيل - VB_Coder - 17-03-13

السلام عليكم

- تستطيع ذلك بنفس الطريقة . لنفترض أن ملف الـ DLL لديك بإسم MyDll وإسم الكلاس MyClass . فسيكون الكود كالتالي :

كود :
Private Declare Function LoadLibrary Lib "kernel32" Alias _
                "LoadLibraryA" (ByVal lpLibFileName As String) As Long


Private Declare Function FreeLibrary Lib "kernel32" _
                (ByVal hLibModule As Long) As Long

Private Sub Form_Load()

Dim H As Long

H = LoadLibrary("C:\MyDll.dll")
DoEvents

Set mClass = CreateObject("MyClass")
DoEvents

' هنا قم بإستدعاء الدالة الموجودة في الكلاس

Set mClass = Nothing

Call FreeLibrary(H)

End Sub

- تحياتي .

كيفية عمل تحميل ملف dll اثناء التشغيل - The Phantom - 23-03-13

اواجه خطأ في CreateObject

اخي ياريت مشروع صغير كمثال وبارك الله فيك

كيفية عمل تحميل ملف dll اثناء التشغيل - VB_Coder - 24-03-13

السلام عليكم

- يجب عليك أولاً تسجيل المكتبة أو ملف الـ dll . ثم بعد ذلك إستخدم الكود . هذا مثال لملف الـdll ومثال لكيفية التحميل والإستدعاء .

- تحياتي .