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

原创

于 2020-08-04 16:11:18 发布 · 2.8k 阅读

10 ·

CC 4.0 BY-SA版权

文章标签：

#delphi

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

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

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';
      AResponseInf

最低0.47元/天解锁文章