当前位置: 首页> 教育> 幼教 > 泉州app制作_中国网购网站十大排名_seo课堂_深圳门户网站

泉州app制作_中国网购网站十大排名_seo课堂_深圳门户网站

时间:2025/7/11 11:01:50来源:https://blog.csdn.net/tjsoft/article/details/144188371 浏览次数:0次
泉州app制作_中国网购网站十大排名_seo课堂_深圳门户网站

这篇博客展示了如何使用Delphi创建一个简单的HTTP服务器,并处理GET和POST请求。服务器监听6600端口,响应JSON格式的数据。客户端通过IdHttp组件进行GET和POST请求,获取并显示服务器响应的内容。

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", b:"002", c:[ a:"003", b:"004"]}';
 
    end;
  end;
  if SameText(ARequestInfo.Command, 'post') then
  begin
    if ARequestInfo.Document = '/api_v2/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:"0011", b:"0022", c:[ a:"0033", b:"0044"]}';
    end;
  end;
 
end;
客户端DEMO

客户端DEMO

procedure TForm2.Button1Click(Sender: TObject);
var
  ttt: String;
begin
  ttt := IdHttp1.Get('http://127.0.0.1:6600/api_v1/get_token?a=1&b=2');
  memo1.Text := ttt;
end;
 
procedure TForm2.Button2Click(Sender: TObject);
var
  Sendmessage:TStringList;//发送内容
  Receivemessage:TStringStream;//返回内容
  ttt: String;
begin
 Sendmessage:=TStringList.Create;
  Receivemessage:=TStringStream.Create('');
 
  Sendmessage.Add('ID=1001');//必须要有Add('字段=值')这种模式,否则传递过去服务端接收的是空值
  Sendmessage.Add('name=jack');//还可以用Param.Add(head+middle+Edit1.text)的方式连接成有效的数组
  Sendmessage.Add('sex=male');
  IdHTTP1.ReadTimeout:=10000;//设置十秒后超时
  IdHttp1.Post('http://127.0.0.1:6600/api_v2/get_token',Sendmessage, Receivemessage);
  memo1.Text:=Receivemessage.DataString;//显示返回的值
  Sendmessage.Free;
  Receivemessage.Free;
end;

关键字:泉州app制作_中国网购网站十大排名_seo课堂_深圳门户网站

版权声明:

本网仅为发布的内容提供存储空间,不对发表、转载的内容提供任何形式的保证。凡本网注明“来源:XXX网络”的作品,均转载自其它媒体,著作权归作者所有,商业转载请联系作者获得授权,非商业转载请注明出处。

我们尊重并感谢每一位作者,均已注明文章来源和作者。如因作品内容、版权或其它问题,请及时与我们联系,联系邮箱:809451989@qq.com,投稿邮箱:809451989@qq.com

责任编辑: