使用Delphi语言调用短信接口发送验证码短信教程
Delphi语言对接验证码短信接口DEMO示例
<p><img title="使用Delphi语言调用短信接口发送验证码短信教程(图1)" alt="使用Delphi语言调用短信接口发送验证码短信教程(图1)" src="/uploads/allimg/20240525/1-2405251U5414a.jpeg" /></p>
<p>注册、登录、交易这些场景里，短信验证码是常用的验证手段。这篇文章讲怎么用 Delphi 调用短信接口，实现验证码短信的发送。</p>
<h2>准备工作</h2>
<p>开始之前，先确认已经注册短信服务商（本例用的是 3yit.com），并在开发者文档里查看相关接口信息，包括 <code>sp_id</code>、<code>password</code>（或 <code>signature</code>）、API 地址等。</p>
<h2>获取接口参数</h2>
<p>登录智慧云信官网，选择对应的产品（如【验证码】），在上方选项卡中点击【开发者】→【HTTP开发文档】，就能看到具体的 API 方法名称，以及各参数的 key 和对应值，通常包括 <code>sp_id</code>、<code>mobile</code>、<code>content</code>、<code>password</code> 等。各参数含义如下：</p>
<ul><li><code>sp_id</code>：产品编号，全局唯一，一般由 6 位数字组成。</li><li><code>mobile</code>：接收短信的手机号码。</li><li><code>content</code>：短信内容，包含签名和正文。例如“【智慧云信】您的验证码是456790，请妥善保管”，其中【智慧云信】是签名，需在签名报备中申请；后面的提示语是短信模板，需在模板报备中申请，审核通过后才能发送。</li><li><code>password</code>：用 SP_ID 密码经 MD5 加密后生成的接口密码（非登录密码），由 32 位随机字符串组成。</li></ul>
<h2>创建 Delphi 项目</h2>
<p>新建一个 VCL Forms Application 项目，界面上放一个发送短信的按钮和一个显示发送结果的文本框。</p>
<h2>添加 HTTP 请求组件</h2>
<p>Delphi 的 HTTP 请求组件不少，比如 Indy 的 <code>TIdHTTP</code>，以及 Windows 10 及以上版本内置的 <code>TNetHTTPClient</code>。本教程以 <code>TIdHTTP</code> 为例。先在 IDE 的 “Component Palette” 面板里，右键点击 “Additional” 或 “Indy Projects” 区域，选 “Add Indy Components to Palette”，在弹出的对话框中勾选 <code>TIdHTTP</code>，点 “OK”。</p>
<h2>编写发送短信代码</h2>
<p>在按钮的点击事件里写发送逻辑：</p>
<pre><code>procedure TForm1.ButtonSendClick(Sender: TObject);
var
idHTTP: TIdHTTP;
params: TStringList;
response: string;
jsonResult: TJSONObject;
// ... 其他变量
begin
// 初始化IdHTTP组件
idHTTP := TIdHTTP.Create(nil);
try
// 构造请求参数
params := TStringList.Create;
try
params.Add('sp_id=' + spIdEdit.Text); // sp_id文本框中的值
params.Add('mobile=' + mobileEdit.Text); // 手机号文本框中的值
params.Add('content=' + '【签名】验证码' + IntToStr(Random(1000000))); // 生成随机验证码
// 根据需要选择使用password或signature
if UsePasswordCheckBox.Checked then
params.Add('password=' + md5Hash(passwordEdit.Text)); // 假设md5Hash函数用于计算MD5值
else
params.Add('signature=' + signatureEdit.Text); // 签名文本框中的值
// 如果有扩展号，则添加
if Trim(extEdit.Text) &lt;&gt; '' then
params.Add('ext=' + extEdit.Text);
// 发送POST请求
response := idHTTP.Post('https://api.3yit.com/api/send-sms-single', params.DelimitedText, nil);
// 解析JSON响应
jsonResult := TJSONObject.ParseJSONValue(response) as TJSONObject;
try
if jsonResult.GetValue&lt;Integer&gt;('code') = 0 then
ResultText.Text := '短信发送成功，msg_id: ' + jsonResult.GetValue&lt;string&gt;('msg_id');
else
ResultText.Text := '短信发送失败：' + jsonResult.GetValue&lt;string&gt;('msg');
finally
jsonResult.Free;
end;
finally
params.Free;
end;
finally
idHTTP.Free;
end;
end;
// 假设的MD5计算函数（需要您自己实现或使用第三方库）
function md5Hash(const input: string): string;
begin
// 实现MD5计算逻辑...
Result := '...'; // 返回计算后的MD5值
end;</code></pre>
<p>注意：代码里的 <code>md5Hash</code> 是演示用的假设函数，实际项目要用 Delphi 的加密库或第三方库实现 MD5 计算。</p>
<h2>测试与调试</h2>
<p>代码写完就可以运行测试。测试前确认 <code>sp_id</code>、<code>mobile</code>、<code>password</code>（或 <code>signature</code>）等参数已填对。发送成功的话，文本框里会显示“短信发送成功”和返回的 <code>msg_id</code>；失败则显示错误信息。</p>
<h2>总结</h2>
<p>用 Delphi 调短信接口发验证码，流程就是建项目、加 HTTP 组件、写点击事件里的发送逻辑、跑起来测一遍。实际项目里按自己的界面和业务需求调整即可。</p>
<p><strong>其他语言教程：</strong><a href="https://www.3yit.com/smsapi/262.html" title="PHP短信接口教程">PHP</a> · <a href="https://www.3yit.com/smsapi/282.html" title="Java短信接口教程">Java</a> · <a href="https://www.3yit.com/smsapi/283.html" title="ASP短信接口教程">ASP</a> · <a href="https://www.3yit.com/smsapi/284.html" title="ASP.NET(C#)短信接口教程">ASP.NET(C#)</a> · <a href="https://www.3yit.com/smsapi/285.html" title="JSP短信接口教程">JSP</a> · <a href="https://www.3yit.com/smsapi/286.html" title="Node.js短信接口教程">Node.js</a> · <a href="https://www.3yit.com/smsapi/300.html" title="Go短信接口教程">Go</a> · <a href="https://www.3yit.com/smsapi/301.html" title="Python短信接口教程">Python</a> · <a href="https://www.3yit.com/smsapi/302.html" title="Ruby短信接口教程">Ruby</a> · <a href="https://www.3yit.com/smsapi/303.html" title="Shell短信接口教程">Shell</a> · <a href="https://www.3yit.com/smsapi/304.html" title="VB短信接口教程">VB</a> · <a href="https://www.3yit.com/smsapi/305.html" title="C++短信接口教程">C++</a> · <a href="https://www.3yit.com/smsapi/306.html" title="C短信接口教程">C</a>。更多信息见<a href="https://www.3yit.com/smsapi/613.html" title="短信API接入指南">短信API接入指南</a>。</p>
<p>代码里的 API 地址、账号和密码替换成你自己的就能跑通。如果还没有账号，去智慧云信官网注册一个，注册就能免费测试，验证码、通知、营销短信都支持。</p>
内容可信度说明
作者：智慧云信通信技术团队
技术审核：国际短信与号码检测产品组
最后更新：2026-08-13
本文主题：使用Delphi语言调用短信接口发送验证码短信教程
本文围绕「使用Delphi语言调用短信接口发送验证码短信教程」展开，结合智慧云信平台在短信接口API场景下的产品能力与客户接入经验整理。不同国家/地区的 Sender ID、模板审核、计费方式和合规要求可能变化，实际发送前建议以当前通道审核与项目沟通结果为准。
