ส่ง SMS (บริการข้อความสั้นบนมือถือ) โดยใช้ Delphi
ตัวอย่างต่อไปนี้สาธิตวิธีการเรียกใช้บริการ 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
จากนั้นคุณสามารถส่ง SMS โดยใช้รหัสสั้นด้านล่าง
การใช้งาน
คอมโอบีเจ;
ขั้นตอน TForm1.Button1Click (ผู้ส่ง: TObject);
var
SoapClient: OleVariant;
v:OleVariant;
เริ่ม
SoapClient := CreateOleObject('MSSOAP.SoapClient');
SoapClient.mssoapinit ('http://sal006.salnetwork.com:83/lucin/smsmessaging/process.xml');
SoapClient.SendTextMessage('หมายเลข', 'MessageBody', 'ผู้ส่ง');
จบ;
โดยที่ Number คือรหัสประเทศ + หมายเลขโทรศัพท์ (ไม่ต้องขึ้นต้นด้วยศูนย์)
เช่น 06 12345678 ในเนเธอร์แลนด์: 31612345678