التعامل مع دالة موجودة في ملف Dll

بدأه أبو محمـد في 12 نوفمبر 2009 · 2 رد · 823 مشاهدة · في لغة Delphi

#112 نوفمبر 2009 في 16:50 صاحب الموضوع

السلام عليكم

اخواني اريد استخدام احد المواقع لارسال رسائل . وقاموا باعطائي ملف dll يحتوي على الدوال التي احتاجها للاتصال .

لم استطع النجاح لعمل ذلك .

جربت مثل هذه الأكواد .

طريقة Static Loading

function GetUserBalance(S1:string;s2:string):string; external 'MobilySendSMS.dll';

طريقة Dynamic Loading

var DLLhandle: THandle; GetUserBalance : function(s1:string;s2:string) :string;
begin
  DLLhandle := LoadLibrary('MobilySendSMS.dll');
  @GetUserBalance := GetProcAddress(DLLhandle, 'GetUserBalance');
  edit1.Text := GetUserBalance('9665123456789','aaaa1111');

مرفق ملف يحتوي على المكتبة وعلى شرح لاستخدام الدوال

ملاحظة استخدمت ويندوز 7 وويندوز فيستا . لا يوجد لدي حاليا xp

MobilySendSMS.zip

ثانوية خالد بن الوليد

#213 نوفمبر 2009 في 10:25

اخي ابو محمد : اولا هذه dll تستعمل ال Com Methode وهذا واضح من وجوب تسجيلها في النظام باستعمال ال Regsrv32 يعني لايمكنك استراد او استعمال الدوال المستعملة كما في Native

الحل هو توريدها الى دلفي في شكل ActiveX .

انظر المرفق .

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

محمد