IdHTTPServer(indy10)开发REST中间件

最新推荐文章于 2025-05-25 16:02:44 发布

weixin_30411819

最新推荐文章于 2025-05-25 16:02:44 发布

阅读量311

点赞数

CC 4.0 BY-SA版权

文章标签： json

原文链接：http://www.cnblogs.com/hnxxcxg/p/7497146.html

本文介绍如何使用IdHTTPServer(indy10)开发RESTful服务中间件，通过GET请求实现数据库查询功能。示例展示了从浏览器发送GET请求到服务器端处理请求并返回查询结果的具体实现。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

IdHTTPServer(indy10)开发REST中间件

浏览器通过“get”方式查询数据URL样例：http://127.0.0.1:7777/query?sql=select * from t1

/query 表示是“查询”命令字

?后面是SQL参数

服务端代码：

procedure TForm1.IdHTTPServer1CommandGet(AContext: TIdContext; ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
var
method, sql: string;
{$IFDEF ado}
dm: TfrmDMado;
{$ENDIF}
{$IFDEF odac}
dm: TfrmDModac;
{$ENDIF}
begin
method := ARequestInfo.Document; // 获取命令字
if method = '' then
Exit;
{$ifdef ado}
CoInitialize(nil);
{$endif}
try
if method = '/query' then // 查询数据
begin
sql := ARequestInfo.Params.Values['sql']; // 取SQL参数
if sql = '' then
Exit;
AResponseInfo.ResponseNo := 0;
AResponseInfo.ContentType := 'text/html';
{$IFDEF ado}
dm := TfrmDMado.Create(nil);
{$ENDIF}
{$IFDEF odac}
dm := TfrmDModac.Create(nil);
{$ENDIF}
try
AResponseInfo.ContentText := dm.Query(sql); // 返回数据引擎查询到的JSON格式的数据
AResponseInfo.WriteContent; // 给申请者回复
finally
dm.Free;
end;
end;
except
on E: Exception do
begin