أنا مبرمج فيجوال بيزيك 6 ، قمت بصناعة برنامج ذات إمتداد (DLL)

المطلوب :
كيف يتم التعامل مع هذا الملف أو أي ملفات أخري DLL من داخل لغة
SQL أو PL/SQL.



رجاء المساعدة للضرورة

إخواني الأعزاء ، لماذا لم أحد يستجيب إلي

طيب ايه رايك لو بصيت بس في منتدي الفورمز في المواضيع المثبته
من غير سيرش و الله كنت هتلاقي الموضوع
http://www.araboug.org/ib/index.php?showtopic=14046
بالتوفيق

أخي عبدالله ندا

أشكرك كثيراً علي الرد

ولكن أنا إستخدمت هذا الكود أكثر من مرة ، ولكنة لن يعطي لي ناتج


أخي الكريم
أحب أولاً أن أوضح لك من أنا :
أنا مبرمج حديث ، أقوم بتصميم شاشات العمل من خلال VB 6.0 ، أما عن قاعدة البيانات فهي أوراكل ، ولكن الكود المعطي مهيأ كي يستخدم بداخل شاشات أوراكل.

أنا أرغب في كيفية ربط مكتبات DLL قمت بتصميمها بنفسي مع PL/SQL ، فكيف ذلك

رجاء شرح كيفية العمل



وشكراً

أخواني



أنا منتظر

علي فكرة ، أنا أحب الصبر


وعلي العموم أنا منتظر





وشكراً

طالما وانت منتظر ممكن تدخل على التاليتفضل هنا:


اذا زلت منظر خذ هذا المثال:

في البدارية نعمل تحميل لملفا الdll

FUNCTION Fn_Load_Function (p_func_name IN VARCHAR2)
RETURN ORA_FFI.FuncHandleType IS
 l_lib  ORA_FFI.LibHandleType;
 l_func ORA_FFI.FuncHandleType;
BEGIN
 BEGIN
l_lib := ORA_FFI.Find_Library('MYDLL.dll');
 EXCEPTION
WHEN OTHERS
THEN
  l_lib := ORA_FFI.Load_Library('.\','MYDLL.dll');
 END;
--
 l_func := ORA_FFI.Register_Function(l_lib,p_func_name,ORA_FFI.C_STD);
--
 Return l_func;
EXCEPTION
 WHEN OTHERS
 THEN
FOR c IN 1..Tool_Err.NErrors
LOOP
  Message(Tool_Err.Message); 
  Tool_Err.Pop; 
END LOOP;
END Fn_Load_Function;



والان منادة ملفات الdll



[/color]

FUNCTION Fn_Split (p_text  IN OUT VARCHAR2,
			   p_wid   IN	 BINARY_INTEGER,
			   p_att   IN	 VARCHAR2,
			   p_start IN	 BINARY_INTEGER)
RETURN NUMBER IS
 l_fn   ORA_FFI.FuncHandleType;
--
 FUNCTION dll_split(pFh  IN	 ORA_FFI.funcHandleType,
				 str  IN OUT VARCHAR2,
				 wid  IN	 BINARY_INTEGER,
				 bld  IN	 BINARY_INTEGER,
				 strt IN	 BINARY_INTEGER)
 RETURN pls_integer; 
--
 PRAGMA interface( c, dll_split, 11265);
BEGIN
 IF  p_text IS NULL
 THEN
Return NULL;
 END IF;
--
 l_fn := Fn_Load_Function('splitstr');
--
 ORA_FFI.register_parameter(l_fn,ORA_FFI.C_CHAR_PTR );
 ORA_FFI.register_parameter(l_fn,ORA_FFI.C_INT );
 ORA_FFI.register_parameter(l_fn,ORA_FFI.C_INT );
 ORA_FFI.register_parameter(l_fn,ORA_FFI.C_INT );
 ORA_FFI.register_return(l_fn,ORA_FFI.C_INT );
--
 Return dll_split(l_fn,p_text,p_wid,p_att,p_start);
END Fn_Split;

يااااااااااااااااااة

هوا أنتوا لسا فاكرين سؤالي !!!!

السؤال دة أنا سألتة من يناير الماضي !!!!!

سبعة شهور حتي تستجيبوا وتتعطفي علي حتي تنحل مشكلتي !!!!

أمال موضوعي الجديد عن مشكلتي في الشبكات هتحتاجوا كام سنة !!!!




علي العموم أنا أصلاً مطور تطبيقات النظم بلغة الفيجوال بيزيك ، وهذه المشكلة وجدت لها حل أريح من داخل الفيجوال بيزيك !!!!!!

أما الأخ الغالي ( خالد الجعفري ) فله لي تحياتي وأشواقي !!!!

لازم تعرف أخي أنني مش مبرمج قواعد بيانات محترف ، بل أنا عبد فقير في الأوراكل !!!!







علي العموم أشكركم جميعاً

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