通过验证码短信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://www.ihuyi.com/product.php
完全接口文件地址：http://www.ihuyi.com/upload/file/cu-fa-jie-kou.rar