delphi idhttpsever+idhttp 实现简单的JSON API服务

最新推荐文章于 2025-09-14 11:06:04 发布

原创

最新推荐文章于 2025-09-14 11:06:04 发布 · 2.9k 阅读

10 ·

CC 4.0 BY-SA版权

文章标签：

#delphi

本文介绍了如何利用Delphi的IDHTTPServer和IDHTTP组件搭建一个简单的JSON API服务，提供了相应的服务器测试代码和客户端DEMO，帮助开发者了解实现过程。

http服务器测试代码

procedure TForm1.FormShow(Sender: TObject);
begin
IdHTTPServer1.Bindings.Clear;
IdHTTPServer1.DefaultPort:= 6600;
IdHTTPServer1.Bindings.Add.IP := '127.0.0.1';
//启动服务器
IdHTTPServer1.Active := True;

end;

procedure TForm1.IdHTTPServer1CommandGet(AContext: TIdContext;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
var
  I: Integer;
begin
  if SameText(ARequestInfo.Command, 'get') then
  begin
    if ARequestInfo.Document = '/api_v1/get_token' then
    begin
      Memo1.Lines.Add('-------------');
      Memo1.Lines.Add(ARequestInfo.Params.Count.ToString);
      Memo1.Lines.Add('-------------');
      for I := 0 to ARequestInfo.Params.Count - 1 do
      begin
        Memo1.Lines.Add(ARequestInfo.Params.ValueFromIndex[I]);
      end;
      Memo1.Lines.Add('-------------');
      AResponseInfo.CharSet := 'UTF-8';
      AResponseInfo.ContentType := 'application/json';
      AResponseInfo.ContentText := '{a:"001"