delphi httpserver 跨域

最新推荐文章于 2025-05-25 13:59:49 发布
原创 最新推荐文章于 2025-05-25 13:59:49 发布 · 1.5k 阅读 · 3 ·
本内容遵循CC 4.0 BY-SA版权协议
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
标签
#delphi #httpserver  #跨域
本文介绍了一个简单的跨域请求处理方法，通过设置HTTP响应头来允许跨域访问。具体包括设置字符集为UTF-8，内容类型为application/json，并通过自定义头部信息允许所有源进行跨域访问。

uses

IdBaseComponent,
  IdComponent, IdCustomTCPServer, IdCustomHTTPServer, IdHTTPServer, IdContext,
  IdHTTPHeaderInfo,
  IdHeaderList, IdGlobalProtocols

 

procedure TForm1.IdHTTPServer1CommandGet(AContext: TIdContext;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
var
  CustomHeadersStringList: TIdHeaderList;
begin
  AResponseInfo.CharSet := 'UTF-8';
  AResponseInfo.ContentType := 'application/json';

  CustomHeadersStringList := TIdHeaderList.Create(QuoteHTTP);
  CustomHeadersStringList.Add('Access-Control-Allow-Origin:*');

  AResponseInfo.CustomHeaders := CustomHeadersStringList;

  AResponseInfo.ContentText := '跨域';

  CustomHeadersStringList.Free;
end;

qqww155
关注
Delphi XE开发HTTPSERVER服务+源码+测试可用
03-20
//功能描述：线上订货系统订单提交时检查ERP系统库存 //项目背景：因线上订货系统不支持PTO模式（商品有BOM），ERP系统支持，订单提交时需要检查ERP系统中子件库存是否够 //关键字：Delphi XE8、HTTPSERVER、application/json //服务程序运行了几个月，基本正常，偶尔会出现异步操作异常（因所有连接都是共享同一个ado连接的原因） //以下部分关键代码供参考; TMainForm = class(TForm) IdHTTPServer: TIdHTTPServer; StartServerBtn: TSpeedButton; StopServerBtn: TSpeedButton; Label1: TLabel; IPED: TEdit; Label2: TLabel; PortED: TEdit; Timer1: TTimer; HintLabel: TLabel;
Delphi中idHttp和HttpServer当客户端与服务器作数据传输的实例
11-21
idHttpServer不作Web容器使用，而是当服务器监听来自idHttp的数据，运行两个实例中的程序，就可以相互发送文字信息或文件了，希望对新手有帮助！
delphi idhttpsever+idhttp 实现简单的JSON API服务
vrix的专栏
08-04 3054
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.IdHTTPServer1Command
delphi idhttpsever（S）+idhttp（C） 实现简单的JSON API服务
重楼的博客
09-09 2243
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 TIDHTTPserver post数据与对应的接收方式
yygyyygy1233的博客
06-10 6415
首先说客户端post数据，采用idhttp，有两种方式，一种是字符串，一种是流如下： 1.psot字符串的方式 var   s: string;   stm: TStringStream; //接收返回内容   send:TStringList;   //post的内容 begin   send:=TStringList.Create; send.Text:=‘要post的内容’;   //send.add(‘name=张三’); //也
Delphi HttpServer跨域配置方法
gitblog_06731的博客
04-22 585
Delphi HttpServer跨域配置方法 去发现同类优质开源项目:https://gitcode.com/ 此资源文件提供了一种在Delphi HttpServer中实现跨域请求的方法。通过CustomHeadersStringList添加特定的HTTP头部信息，可以允许跨域请求。 文件说明 在Delphi HttpServer中，通过以下代码可以实现跨域请求： CustomHeadersS...
Ajax学习日记（二）
03-25 1000
先学习一下xmlHttp，这个是Ajax一个重要对象，放在Javascript中于服务器通讯。看了很多概念，先从简单的找手，写个Hello World程序。1.服务器用delphi画了个form，放了个HttpServer控件，ip地址为192.168.0.209，port使用5678，编写代码如下procedure TForm1.IdHTTPServer1CommandGet(AThread
Restful api 基础实现(Delphi+C#+Java)
qq_37265818的博客
07-13 1292
webapi 各语言restful api相关简单举例实现
DelphiHttpServer跨域配置方法：实现HttpServer的跨域请求
最新发布
gitblog_06793的博客
05-25 454
DelphiHttpServer跨域配置方法：实现HttpServer的跨域请求 去发现同类优质开源项目:https://gitcode.com/ 在Web开发中，跨域请求是一个常见需求，DelphiHttpServer作为一款功能强大的Http服务器框架，如何实现跨域请求呢？本文将为您详细介绍DelphiHttpServer跨域配置方法，帮助您轻松实现HttpServer的跨域请求。 项目介绍 ...
delphi中idhttp完成restserver
DELPHI 各种代码
06-20 1210
为什么要使用IDHTTP代替restserver呢？个人感觉还是IDHTTP更底层一点，而且还支持XML，并且接收值可以是JSON，也可以不是，返回值也是一样。可以任意返回内容，包括返回类似于HTML的内容。
Delphi HttpServer跨域
04-03
Delphi HttpServer跨域 CustomHeadersStringList.Add('Access-Control-Allow-Origin:*'); AResponseInfo.CustomHeaders := CustomHeadersStringList;
delphi7实现微型http服务器
02-18
DELPHI 7采用Indy 10组件实现的轻型WEB服务器的案例代码！可实现基础的网页服务功能，用来与B/S系统交互的不二之选！
Delphi IdHttp组件 IdHttpServer组件实现文件下载服务，HTTP上传文件
qq_18932003的博客
10-18 1837
Delphi IdHttp组件+IdHttpServer组件实现文件下载服务 https://blog.csdn.net/xxkku521/article/details/16864759 关于HTTP上传文件报文代码片记录 https://blog.csdn.net/xxkku521/article/details/61197565 IDHTTP用法详解（六种用法）朝闻道 https...
netty4 收不到服务器响应的数据_Netty模拟redis服务器
weixin_39904612的博客
11-29 687
前言Redis的客户端与服务端采用叫做 RESP(Redis Serialization Protocol)的网络通信协议交换数据，客户端和服务器通过 TCP 连接来进行数据交互， 服务器默认的端口号为 6379 。客户端和服务器发送的命令或数据一律以 (CRLF)结尾。RESP支持五种数据类型状态回复(status reply)：以“+”开头，表示正确的状态信息，”+”后就是具体信息​，比如：...
delphi idhttpsever
chelen_jak的专栏
12-07 4386
转自：http://3699119.blog.163.com/blog/static/167075351201373024054586/ unit main; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IdBaseComponen
delphi web idhttpserver 的参数获取
yygyyygy1233的博客
06-06 2602
idhttpserver的使用方法 1）CommandGet(AContext: TIdContext; ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);事件 该事件和IDTCPSERVER的EXECUTE()事件一样，都是“线程方法”，即事件是在子线程里面执行的，在其内书写代码要注意“线程保护”。 该事件可以接受客户端HTTP GET、POST或其他HTTP方法请求。 if SameText(ARequestInf
Delphi IdHttpServer解决 Http请求跨域问题
重楼的博客
09-09 1712
//Response 增加允许跨域请求头属性，即可允许跨域访问 procedure TMain.idHttpServerCommandGet(AContext: TIdContext; ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo); begin AResponseInfo.CustomHeaders.Add('Access-Control-Allow-Origin:*'); ARespo.
Delphi 12.2.1 idhttpserver的使用方法
12-02 1053
该事件和IDTCPSERVER的EXECUTE()事件一样，都是“线程方法”，即事件是在子线程里面执行的，在其内书写代码要注意“线程保护”。4）回复客户端中文字符串不乱码。
Delphi indy TIdHTTP TIdHTTPServer Post Get
gjtao1130的专栏
11-23 4947
TIdHTTPServer ：   try     IdHTTPServer1.Bindings.Clear;     //要绑定的端口，一定设置此项，这是真正要绑定的端口;     IdHTTPServer1.DefaultPort:=8099;     IdHTTPServer1.Bindings.Add.IP := '127.0.0.1';     //启动服务器    
Delphi IdHttp组件+IdHttpServer组件实现文件下载服务
热门推荐
11-21 1万+
uses idhttp,IdHTTPServer;  //idhttp组件提交下载请求 procedure TVodService.Button3Click(Sender: TObject); var h:TIdhttp; MyStream:TMemoryStream; url:string; begin MyStream:=TMemoryStream.C
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值