تحويل التطبيق إلى خدمة من خدمات النظام

[الصمت المتحدث]

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

وأنا أتجول في أحد المواقع الاجنبية وجدت موضوعا عن كيفية تحويل التطبيق المصمم على الأكسس إلى خذمة من خذمات نظام الويندوز

قد يتساءل البعض ويقول ما الغاية من تحويل التطبيق الى خذمة؟..

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

يستخدم هذا المثال الدالة API Windows لتحويل التطبيق الى الخدمة خلال تنفيذه ..

 

Const RSP_SIMPLE_SERVICE = 1
Const RSP_UNREGISTER_SERVICE = 0
Private Declare Function GetCurrentProcessId Lib _
 "kernel32" () As Long
Private Declare Function RegisterServiceProcess Lib _
 "kernel32" (ByVal dwProcessID As Long, ByVal dwType As Long) As Long

Public Sub ServiceOn()
    Dim pid As Long, reserv As Long
    pid = GetCurrentProcessId()
    reserv = RegisterServiceProcess _
       (pid, RSP_SIMPLE_SERVICE)
End Sub

Public Sub ServiceOff()
    Dim pid As Long, reserv As Long
    pid = GetCurrentProcessId()
    reserv = RegisterServiceProcess _
       (pid, RSP_UNREGISTER_SERVICE)
End Sub

عند أول نموذج يتم فتحه في قاعدتك بيانتك، ضع في حدث عند التحميل

 

Private Sub Form_Load()
    ServiceOn
End Sub

وعند آخر نموذج يغلق ..

Private Sub Form_Unload(Cancel As Integer)
ServiceOff
End Sub 

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

[أبو آدم]

_{فكرة طيبة وجديرة بالتجربة}

_{وربما لا تتضح فوائدها الا بتكرار التجربة ، ومراقبة وملاحظة فروقات الاستخدام}

 

_....

[الصمت المتحدث]

الشكر موصول لشخصكم الطيب أخي نارت أبو آدم

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

فنتمنى أن نجد تفاعلا أكثر حتى يتبين من خلال تجارب بعضنا البعض طبيعة التأثير .. سلبي كان أم ايجابي