Delphi를 사용하여 SMS(Mobile Short Message Service) 보내기
다음 예에서는 SOAP를 통해 SMS 웹 서비스를 호출하는 방법을 보여줍니다.
먼저 다음 주소에서 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;
PROcedure TForm1.Button1Click(Sender: 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는 국가 코드 + 전화번호(0으로 시작할 필요 없음)입니다.
예를 들어 06 12345678 네덜란드: 31612345678