إرسال الرسائل القصيرة (خدمة الرسائل القصيرة المتنقلة) باستخدام دلفي

إرسال الرسائل القصيرة (خدمة الرسائل القصيرة المتنقلة) باستخدام دلفي

يوضح المثال التالي كيفية الاتصال بخدمة SMS WEB من خلال SOAP.

قم أولاً بتنزيل وتثبيت Microsoft SOAP Toolkit 2.0 من العنوان التالي:

http://msdn.microsoft.com/downloads/default.asp?URL=/code/sample.asp?url=/msdn-files/027/001/580/msdncompositedoc.xml

يمكنك بعد ذلك إرسال الرسائل القصيرة باستخدام الرمز القصير أدناه.

الاستخدامات

comObj;

الإجراء TForm1.Button1Click(Sender: TObject);

فار

SoapClient: OleVariant;

v:OleVariant;

يبدأ

SoapClient := CreateOleObject('MSSOAP.SoapClient');

SoapClient.mssoapinit('http://sal006.salnetwork.com:83/lucin/smsmessaging/process.xml');

SoapClient.SendTextMessage('Number', 'MessageBody', 'Sender');

نهاية؛

حيث الرقم هو رمز البلد + رقم الهاتف (لا حاجة للبدء بالصفر)،

مثل 0612345678 في هولندا: 31612345678