Delphi通过调用Http接口实现短信发送的功能

通过验证码短信http调用接口，您可以很快速的在网站或者app中集成手机号验证功能，该源码只是核心代码，具体可以根据您的实际需求进行扩展。

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,Unit2;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Text:=Unit2.GetMyWebServericeSoap(false,'http://106.ihuyi.com/webservice/sms.php').Submit('用户名','密码','手机号码','您的验证码是：2647。请不要把验证码泄露给其他人。');
end;
end.

原文：http://blog.csdn.net/guysgo/article/details/44101507