使用 Binance 组件构建加密货币应用

2025年11月7日 · 组件

TsgcWSAPI_Binance 组件旨在帮助 Delphi 团队快速交付 Binance 集成体验：从推出面向客户的交易台，到在金融仪表板中嵌入市场数据组件。本指南介绍如何配置组件、重点说明具体的商业机会，并逐步解析缩短上线周期的关键技术模式。

为何选择 Delphi 的 Binance 组件？

更快商业化：直接从 VCL 或 FMX 应用提供交易所连接、账户管理和订单执行，无需维护底层 REST 或 WebSocket 代码。
机构级连接：统一访问 Binance 现货、Binance.US 和组合数据流，在保持单一 API 接口的同时扩大市场覆盖范围。
运营弹性：自动的 ListenKey 生命周期管理、HTTP/REST 日志记录和测试网切换简化了合规测试和生产监控。
产品差异化：将 Binance 流动性与 sgcWebSockets 套件其余模块（FIX、P2P、AI）结合，在商业解决方案中提供高级分析、告警和自动化功能。

前提条件

已安装 Delphi 7 至最新 Rad Studio 版本的 sgcWebSockets 组件许可证副本。
已在 Binance 用户门户或 Binance.US 门户创建 API Key 和 Secret 的 Binance 账户。
可选：访问 Binance 测试网端点用于预发布和 QA 测试。

在 Delphi 中配置组件

1. 放置网络基础组件

在数据模块或窗体中创建新的 TsgcWebSocketClient。该客户端管理 Binance 组件使用的底层 WebSocket 传输。

procedure TdmCrypto.DataModuleCreate(Sender: TObject);
begin
  WSClient := TsgcWebSocketClient.Create(Self);
end;

2. 附加 Binance 组件

实例化 TsgcWSAPI_Binance 并分配 WebSocket 客户端。在验证策略或运行演示时启用测试网。

procedure TdmCrypto.SetupBinance;
begin
  Binance := TsgcWSAPI_Binance.Create(Self);
  Binance.Client := WSClient;
  Binance.UserStream := True;            // stream account updates
  Binance.TestNet := chkUseTestNet.Checked;
  Binance.ListenKeyOnDisconnect := blkodDeleteListenKey;
end;

3. 保护凭据安全

在发送下单或提现等私有请求之前设置 REST 凭据。将密钥存储在加密配置保管库中可使生产系统随时满足审计要求。

procedure TdmCrypto.ConfigureCredentials(const AKey, ASecret: string);
begin
  Binance.Binance.ApiKey := AKey;
  Binance.Binance.ApiSecret := ASecret;
end;

使用场景

实时市场数据仪表板

使用 WebSocket 订阅驱动品牌仪表板，展示实时订单簿深度、行情变动和聚合交易数据。将 Binance 数据流与 sgcHTML 组件结合，可在桌面或自助服务终端应用中嵌入响应式面板。

procedure TfrmMarkets.SubscribeToSymbols(const ASymbols: TArray<string>);
var
  Symbol: string;
begin
  for Symbol in ASymbols do
    Binance.SubscribeTicker(Symbol.ToLower);
end;

客户入驻与合规自动化

在金融科技平台内暴露"连接您的 Binance 账户"工作流。用户提供 API 密钥后，立即激活 UserStream 并通过 REST 端点进行余额检查，为入驻评分或信用审核提供支持。

procedure TdmCrypto.LoadAccountSnapshot;
var
  Snapshot: string;
begin
  Snapshot := Binance.REST_API.GetAccountInformation;
  PersistSnapshotToCRM(Snapshot);
end;

集成交易台

将订单录入面板与自动化风险管理相结合。根据专有分析触发订单，同时通过 OnBinanceHTTPException 保持 REST 错误的可观测性。

procedure TdmTrading.PlaceMarketOrder(const ASymbol: string; AQty: Double);
var
  Response: string;
begin
  Response := Binance.REST_API.NewOrder(ASymbol, 'BUY', 'MARKET', '', AQty);
  LogExecution(Response);
end;
procedure TdmTrading.BinanceHTTPException(Sender: TObject; const AError: string);
begin
  AlertOpsTeam('Binance REST Error: ' + AError);
end;

为客户创造价值

将 Binance 实时数据和交易操作封装在 Delphi 应用中，将改变您的产品路线图：

加速上市：将集成时间从数周的协议对接缩短为几个组件属性的配置。
拓展收入渠道：追加销售依赖 Binance 数据流的高级分析、保证金监控或白标交易终端。
提高留存率：通过 sgcWebSockets 推送基础设施发送主动通知，保持交易者的参与度。

无论您是启动 SaaS 加密货币后台，还是增强现有经纪平台，Binance 组件都为 Delphi 团队提供了安全、实时交易所连接的完整技术栈。将其与 sgcWebSockets 自动化、报告和 AI 模块结合，更快实现差异化并抓住不断扩大的数字资产机遇。