Delphi を使用して SMS (モバイル ショート メッセージ サービス) を送信する
次の例は、SOAP を通じて SMS WEB サービスを呼び出す方法を示しています。
まず、次のアドレスから 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 を送信できます。
用途
ComObj;
手順 TForm1.Button1Click(送信者: TObject);
変数
SoapClient: OleVariant;
v:OleVariant;
始める
SoapClient := CreateOleObject('MSSOAP.SoapClient');
SoapClient.mssoapinit('http://sal006.salnetwork.com:83/lucin/smsmessaging/process.xml');
SoapClient.SendTextMessage('番号', 'メッセージ本文', '送信者');
終わり;
ここで、Number は国番号 + 電話番号 (ゼロで始める必要はありません)、
例: 06 12345678 オランダ: 31612345678