ممكن شرح عن الباكيج dde

[أبو الروض]

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

ممكن بس تعطوني أمثلة عن كيفية التحكم بالويندوز عن طريق أوراكل

يعني شرح عن الباكيج dde

لو سمحتم يأبطال أوراكل

 

[أسامة موسى]

الاخ الكريم
DDE تعني Dynamic Data Exchange
وممكن ان تصفها بأنها الية يتم من خلالها التعامل مع النوافذ الموجودة بالويندوز و ال اس كيو ال او ديفلوبر
ومن مميزاتها
انك تقدر تعمل
importing data
exporting data
executing commands against the DDE Server
وكذلك تستخدم لتشغيل ملفات مثل الاكسل والورد وغيرها وحسب نتوع الملف
من الامثلة عليها

DDE.App_Begin example

تشغيل ملفات اكسل

/* 
** Start MS Excel with spreadsheet emp.xls loaded 
*/
DECLARE
 AppID  PLS_INTEGER;
BEGIN AppID := DDE.App_Begin('c:\excel\excel.exe emp.xls',
    DDE.App_Mode_Minimized);
END;

اغلاق ملفات اكسل

DDE.App_End example

/* 
** Start Excel, perform some operations on the
** spreadsheet, then close the application.
*/
DECLARE
 AppID  PLS_INTEGER;
BEGIN AppID := DDE.App_Begin('c:\excel\excel.exe emp.xls', 
   DDE.App_Mode_Normal);
 ...
  DDE.App_End(AppID);
END;

تفعيل نافذة الاكسل

DDE.App_Focus example

/*
** Start Excel, then activate the application window 
*/
DECLARE
  AppID  PLS_INTEGER;
BEGIN AppID := DDE.App_Begin('c:\excel\excel.exe', 
   DDE.App_Mode_Maximized);
 DDE.App_Focus(AppID);
END;

تطبيقق عملية حسابية من خلال الاكسل

DDE.Execute example

/* 
** Initiate Excel, then perform a recalculation
*/
DECLARE
 ConvID  PLS_INTEGER;
BEGIN ConvID := DDE.Initiate('EXCEL', 'abc.xls');
  DDE.Execute(ConvID, '[calculate.now()]', 1000);
END;

DDE.Getformatnum example

/* 
** Get predefined format number for "CF_TEXT" (should 
** return CF_TEXT=1) then register a user-defined
** data format called "MY_FORMAT"
*/
DECLARE
 FormatNum    PLS_INTEGER;
 MyFormatNum  PLS_INTEGER;
BEGIN FormatNum := DDE.Getformatnum('CF_TEXT');
 MyFormatNum := DDE.Getformatnum('MY_FORMAT');
END;

ويوجد ايضا

DDE.Getformatstr 

DDE.Initiate 

DDE.IsSupported 

DDE.Poke 

DDE.Request 

DDE.Terminate 

هذا من حيث التعامل معها مع الامثلة