Delphi NetHttpClient1 数据库查询

本文整理自网络，侵删。

 1）使用INDY 的HTTP控件进行查询：

procedure TForm1.查询1Click(Sender: TObject);begin  var url: TynUrl := TynUrl.Create;  var serial: TynSerial := TynSerial.Create;  var send: TMemoryStream := TMemoryStream.Create;  try    url.url := 'http://127.0.0.1:5566';    url.command := 'query8';    url.params.Add('accountno=1');    url.params.Add('sql=ｓｅｌｅｃｔ * from tunit');    serial.Text := IdHttpClient1.Post(url.text, send);    serial.ReadFDDataSet('dataset', FDMemTable1);  finally    serial.Free;    send.Free;    url.Free;  end;end;　2）使用DELPHI10.2新增的TNetHttpClient控件进行查询：

procedure TForm1.查询2Click(Sender: TObject);begin  var url: TynUrl := TynUrl.Create;  var serial: TynSerial := TynSerial.Create;  var send: TMemoryStream := TMemoryStream.Create;  try    url.url := 'http://127.0.0.1:5566';    url.command := 'query8';    url.params.Add('accountno=1');    url.params.Add('sql=ｓｅｌｅｃｔ * from tunit');    serial.Text := NetHttpClient1.Post(url.text, send).ContentAsString;    serial.ReadFDDataSet('dataset', FDMemTable1);  finally    serial.Free;    send.Free;    url.Free;  end;end; 

相关阅读 >>

Delphi xe5复制粘贴操作

Delphi 提取标签之间的字符串（重复标签）

Delphi idhttp控件的防止异常的处理

Delphi 递归获取文件夹大小

Delphi 压缩与修复access数据库

Delphi randomfrom 随机返回字符串数组avalues中的一个元素

Delphi enumwindows回调函数获取qq2009窗体句柄

Delphi fmx使用 timage 显示动画图片

Delphi窗口显示于parent控件上

Delphi'控件的相对坐标与屏幕坐标转换

更多相关阅读请进入《Delphi》频道 >>