Delphi indy TIdHTTP TIdHTTPServer Post Get

最新推荐文章于 2022-09-22 14:52:40 发布
最新推荐文章于 2022-09-22 14:52:40 发布
阅读量4.5k 收藏 4
点赞数
分类专栏： 程序 程序Delphi
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/gjtao1130/article/details/78613903
版权

TIdHTTPServer ：

  try
    IdHTTPServer1.Bindings.Clear;
    //要绑定的端口，一定设置此项，这是真正要绑定的端口;
    IdHTTPServer1.DefaultPort:=8099;
    IdHTTPServer1.Bindings.Add.IP := '127.0.0.1';
    //启动服务器
    IdHTTPServer1.Active := True;
    Memo1.Lines.Add('启动');
  except
     showmessage('启动失败！');
  end;

procedure TForm1.IdHTTPServer1CommandGet(AContext: TIdContext;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
begin
  Memo1.Lines.Add(ARequestInfo.Document);
  Memo1.Lines.Add(ARequestInfo.QueryParams);
  Memo1.Lines.Add(ARequestInfo.Params.Values['Par1'] );
  Memo1.Lines.Add(ARequestInfo.Params.Values['Par2'] );
  Memo1.Lines.Add(ARequestInfo.Command);
  Memo1.Lines.Add(ARequestInfo.URI);

  AResponseInfo.ContentEncoding:='utf-8';
  AResponseInfo.ContentType :='text/html';
  AResponseInfo.ContentText:='<html><body>好</body></html>';

  //发html文件
   {AResponseInfo.ContentEncoding:='utf-8';
   AResponseInfo.ContentType :='text/html';
   AResponseInfo.ContentText:='<html><body>好</body></html>'; }
   //发xml文件
   {AResponseInfo.ContentType :='text/xml';
   AResponseInfo.ContentText:='<?xml version="1.0" encoding="utf-8"?>'
   +'<students>'
   +'<student sex = "male"><name>'+AnsiToUtf8('陈')+'</name><age>14</age></student>'
   +'<student sex = "female"><name>bb</name><age>16</age></student>'
   +'</students>';}

end;


TIdHTTP ：

procedure TForm1.Button2Click(Sender: TObject);
var
  URL: string;
  StrR: string;
  RequestStream : TStringStream;
begin
  URL := 'http://172.23.4.120:8099/test';
  IdHttp1.Request.ContentType :='application/x-www-form-urlencoded';
  RequestStream := TStringStream.Create('Par1=1&Par2=2', TEncoding.UTF8);
  RequestStream.Position := 0;

  StrR := IdHTTP1.Post(URL, RequestStream);
  Memo2.Lines.Add(StrR);

  FreeAndNil(RequestStream);
end;

苍穹帝
关注
  • 0
    点赞
  • 踩
  • 4
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
【Delphi 爬虫库 1】GET和POST方法
记录日常技术经验
04-13 953
在上面的示例中展示了最基本的 GET 请求，但在许多情况下，我们需要自定义请求头，因为有时对方服务器会对请求头进行检测。通常，我们会先进行抓包，然后将抓取到的请求头发送出去。重新修改代码，让其支持自定义请求头varbeginbeginendelsebegintryfinallyhttp.Free;end;end;end;还有一个注意的地方，我们有时候需要在自定义请求头中自定义Cookies，可以添加代码来设置，否则程序会自己维护Cookies。
delphi 2010 indy TIdHTTP 访问 https url post get
05-20
解决 https post 会报scoket error #0 问题 上次开发访问https出错了，post 一直出错在网络上找的很，下载了好多个都没有解决问题，后面才找到问题，跟大家...包含delphi 源码和libeay32.dll ssleay32.dll 两个ssl文件.
用TIdHTTPServer实现web服务的功能
06-20
delphi7有个组件是TIdHTTPServer，它可以实现web服务的功能，在以前一个项目中，为了对数据进行查询，我们通过TIdHTTPServer来实现了web服务，但是实现的功能比较简单，这样做开发速度也很快，不需要其他中间件来部署，直接运行这个服务程序即可。
delphi idhttpsever（S）+idhttp（C） 实现简单的JSON API服务
重楼的博客
09-09 1514
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.IdHTTPServer1Comma
解决Delphi的Indy10组件包TIdHttpServer控件解码HTTP请求时参数乱码的问题
weixin_33828101的博客
03-10 848
Delphi6下使用Indy10组件包，其中的TIdHttpServer控件在处理HTTP请求的时候 不能正确解码含有汉字的参数，如： http://127.0.0.1/test?cmd=open&areaname=测试&areadir=D:\test 对于这个Url，Chrome默认按UTF-8编码发送，IE默认按GBK编码发送，而这两种情况，TIdHttpServe...
delphi idhttpserver 服务器
weixin_30449239的博客
05-05 974
【冒泡】lazarus(964489899)10:01:27 哥能复制成字符串吗？ 【冒泡】lazarus(964489899)10:01:44 我想快速输入一下 【传说】CHINY(19730622)10:01:52 LocalDoc:=HtmlDirectory+ARequestInf...
IdHTTPServer1 收到POST 文件和参数
热门推荐
gj333的专栏
05-14 1万+
使用INDY 10 ，不然有些单元可能无法找到编译。 目前发现的问题有：对于#$0A 会自动转变成 #$0D#$0A，在传输文件时最好是进行编码传输。网上搜索这类信息很少，好像是Decoder.ReadBody 问题，传文本文件之类的一切正常。留着以前再改进吧。 uses   Winapi.Windows, Winapi.Messages, System.SysUtils, System.V
delphi2010使用Indy组件实现http/https
03-11
根据delphi2010中的indy组件的TIdHTTP类制作封装了类：THttpModule/THttpsModule，实现了方法get和post。https访问需要的2个动态链接库文件（libeay32.dll、ssleay32.dll）也打在包中了。代码文件已经在delphi2010中...
Delphi 7.0 、 indy10（TidHTTP）、 json 、token获取用户信息
04-03
最近在网上查找了不少TidHTTP 相关的post,Get方法，但是都没有详细提及如何处理Http请求自定义Header再获取相关token,再根据token信息用TidHttp的get方法获取主机资料。详细资料请在资源里下载。
delphi indy10 for delphi7
07-25
标题"delphi indy10 for delphi7"指的是Indy 10版本针对Delphi 7开发环境的集成。描述中的"indy 10.2.5 for delphi7"进一步明确了这是Indy库的10.2.5版，专为Delphi 7设计。 在Delphi 7中，Indy 10是一个强大的工具...
Delphi7 indy组件 已编译的indy组件 Internet组件
01-13
3. HTTP通信：使用TIdHTTP组件，开发者可以轻松实现HTTP请求，包括GET、POST等方法，同时支持代理服务器、Cookie管理和URL编码解码。 4. FTP功能：TIdFTP组件提供了FTP客户端功能，可以进行文件上传、下载、列表...
delphi idhttpserver ajax 跨域
无名大白
03-20 883
解决方案 TIdHTTPServer的onCommandGet方法有三个参数，分别是上下文，请求体，响应体。 我们只需要在响应体中加上Access-Control-Allow-Origin、Access-Control-Allow-Headers、Access-Control-Allow-Method三个配置即可 procedure TMain.idHttpServerCommandGet(AC...
idhttpserver接收数据
nextop88的专栏
12-27 2051
idhttpserver的commandget方法是这样写的：      －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－          if   requestinfo.command   =   post   then                try              coinitialize(nil);              post_d
idhttpserver的使用方法
weixin_30932215的博客
11-08 738
idhttpserver的使用方法 1）CommandGet(AContext: TIdContext; ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);事件 该事件和IDTCPSERVER的EXECUTE()事件一样，都是“线程方法”，即事件是在子线程里面执行的，在其内书写代码要注意“线程保护”。 ...
Delphi 实现http请求
weixin_43487532的博客
09-22 5151
在把idhttp改成nethttpclient过程中，碰到一些参数了解不全面，故此来整理下请求头包含哪些，进行深入了解和熟悉。2. nethttpclient可以支持https无需带dll，idhttp需要openssl的几个dll才可以实现。旧项目维护时发现使用的是TIdHttp，查阅资料发现目前都是使用TNetHTTPClient。这是一个登陆接口，账户account是一个中文字符的传输，使用idhttp的时候涉及转码。HTTP Request Header 请求头，这里以百度的请求头为例进行分析。
httpserver简单处理请求和应答
azsxdc111111的博客
04-15 192
http响应格式由3部分组成： 1.http协议版本，状态代码，描述 2.响应头信息（Response Head） 3.响应正文（或者说给客户端的请求返回信息） import java.io.BufferedWriter; import java.io.IOException; import java.io.OutputStreamWriter; import java...
Delphi IdHttpServer解决 Http请求跨域问题
重楼的博客
09-09 1277
//Response 增加允许跨域请求头属性，即可允许跨域访问 procedure TMain.idHttpServerCommandGet(AContext: TIdContext; ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo); begin AResponseInfo.CustomHeaders.Add('Access-Control-Allow-Origin:*'); ARespo.
Delphi 的Websocket Server 控件实现（四、WebSocket Demo程序使用说明）（含源码）
sensor_WU 博客
05-07 5156
Delphi 的Websocket Server 控件实现（四、WebSocket Demo程序使用说明）（含源码）
delphi tidhttp
最新发布
06-08
Delphi中的TIdHTTP是一个非常强大的组件，它可以用于在客户端与...除了Get方法外，TIdHTTP还提供了许多其他方法，例如Post、Put和Delete等，可以用于执行不同类型的HTTP请求。您可以查阅Indy的文档以获取更多详细信息。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值