delphi httpserver 使用方法

最新推荐文章于 2024-06-25 01:15:39 发布
最新推荐文章于 2024-06-25 01:15:39 发布
阅读量1.7w 收藏 8
点赞数 2
分类专栏： delphi菜鸟成长之道
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/peixiaobin_blog/article/details/50894089
版权
unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent,IdContext ,IdComponent, IdCustomTCPServer, IdCustomHTTPServer,
  IdHTTPServer, StdCtrls;

type
  TForm_main = class(TForm)
    IdHTTPServer1: TIdHTTPServer;
    Button_StartServer: TButton;
    Edit_Port: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Edit_Ip: TEdit;
    Button_stop: TButton;
    Label3: TLabel;
    Edit_RootDir: TEdit;
    Edit_index: TEdit;
    Label4: TLabel;
    procedure Button_StartServerClick(Sender: TObject);
    procedure Button_stopClick(Sender: TObject);
    procedure IdHTTPServer1CommandGet(AContext: TIdContext;
      ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_main: TForm_main;

implementation
var
RootDir:string;
URL:string;
{$R *.dfm}

procedure TForm_main.Button_StartServerClick(Sender: TObject);
begin
  try
    IdHTTPServer1.Bindings.Clear;
  //要绑定的端口，一定设置此项，这是真正要绑定的端口;
    IdHTTPServer1.DefaultPort:=strtoint(trim(edit_port.Text));
    IdHTTPServer1.Bindings.Add.IP := trim(edit_Ip.Text);
        //启动服务器
    IdHTTPServer1.Active := True;
  except
     showmessage('启动失败！');
  end;
  RootDir:=trim(edit_rootDir.Text);
  URL:='http://'+trim(edit_Ip.Text)+trim(edit_port.Text)+'/';
end;

procedure TForm_main.Button_stopClick(Sender: TObject);
begin
  IdHTTPServer1.Active := false;
end;

procedure TForm_main.IdHTTPServer1CommandGet(AContext: TIdContext;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
var
  LFilename: string;
  LPathname: string;
  zhongwen:string;
begin
//浏览器请求http://127.0.0.1:8008/index.html?a=1&b=2
  //ARequestInfo.Document  返回    /index.html
  //ARequestInfo.QueryParams 返回  a=1b=2
  //ARequestInfo.Params.Values['name']   接收get,post过来的数据
  webserver发文件
  {LFilename := ARequestInfo.Document;
  if LFilename = '/' then
  begin
    LFilename := '/'+trim(edit_index.Text);
  end;
  LPathname := RootDir + LFilename;
  if FileExists(LPathname) then begin
      AResponseInfo.ContentStream := TFileStream.Create(LPathname, fmOpenRead + fmShareDenyWrite);//发文件

  end
  else
  begin
      AResponseInfo.ResponseNo := 404;
      AResponseInfo.ContentText := '找不到' + ARequestInfo.Document;
  end; }

   //发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>';}

   //下载文件时，直接从网页打开而没有弹出保存对话框的问题解决
//AResponseInfo.CustomHeaders.Values['Content-Disposition'] :='attachment; filename="'+文件名+'"';
//替换 IIS
  {AResponseInfo.Server:='IIS/6.0';
  AResponseInfo.CacheControl:='no-cache';
  AResponseInfo.Pragma:='no-cache';
  AResponseInfo.Date:=Now;}
end;
end.
云中雁012345
关注
专栏目录
delphi 采用http上传文件Server端写法
u013339622的博客
05-30 971
网上找的资源零零散散不全面说得不透彻以下给出样例代码 !!特别不注意一定要usesWeb.ReqMulti 否则转过来的文件取不到!!! procedure UploadFiles(Sender: TObject; Request: TWebRequest; Response: TWebResponse; var Handled: Boolean); var i, k: Integer; AFilePath, ADateStr, AFileName, HeadJs, TENANT_ID...
一个Delphi实现的HttpServer，支持RESTful风格路由
01-09
一个Delphi实现的HttpServer，支持RESTful风格路由
delphi indy写的httpserver
04-02
delphi indy写的httpserver 帮助大家了解 indy控件的使用
密码学进阶（一）：浅谈常见的七种加密算法及实现_常用加密算法
最新发布
2401_85124192的博客
06-25 1035
无论是多长的输入，
delphi7实现微型http服务器
02-18
DELPHI 7采用Indy 10组件实现的轻型WEB服务器的案例代码！可实现基础的网页服务功能，用来与B/S系统交互的不二之选！
delphi HTTP服务器代码
06-11
delphi 架设简单的HTTP 服务器代码
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 XE8开发HttpServer服务程序
05-11
本服务程序为Delphi XE8开发的httpserver服务器程序，为线上订货系统提供ERP系统库存检查服务。
Delphi使用server组件控制excel的一点经验
黄灯桥的专栏
06-03 3351
近来的项目报表全部做成excel文件，方便很多。可惜的是delphi中的server组件没有帮助，只能靠网上的资料和自己的摸索。经过一段时间，积累了一点经验，写出来希望对大家有所帮助。近来在网上搜索到TXLSRead and TXLSWrite两个组件操作excel更加方便，但是还没研究过，大家有兴趣可以研究一下。   1、  Connect问题对微软真实又爱又恨，爱的是很多东西很方便易用，恨的是
delphi idhttpserver 服务器
weixin_30449239的博客
05-05 1013
【冒泡】lazarus(964489899)10:01:27 哥能复制成字符串吗？ 【冒泡】lazarus(964489899)10:01:44 我想快速输入一下 【传说】CHINY(19730622)10:01:52 LocalDoc:=HtmlDirectory+ARequestInf...
HTTP网络文件服务器（Delphi版）
03-25
Http File Server。HFS网络文件服务器是专为个人用户所设计的HTTP档案文件传输系统，整套程序只有一个exe，运行方便。附件：源码。
delphi 实现的 Http 服务器
02-17
1. Delphi 实现的 Http 服务控件源代码 2. 使用 Indy 的 TIdHTTPServer 控件 3. 在 PC 和 移动端测试通过 4. 使用非常简单，只需设置好本地文件根目录，默认已经包含
DelphiXE + idHttp和HttpServer + 当客户端与服务器作数据传输的实例+（源码+测试可用）
03-20
服务器监听来自idHttp的数据，运行两个实例中的程序，可以相互发送文字信息或文件了，
[delphi]简单HTTP服务器架设源码
02-03
[delphi]简单HTTP服务器架设DEMO ，D7源码。
delphi http Post
01-21
http协议，post方法演示delphi 实现，演示例子分别列出6种不通的post方法
通过Json数据格式进行Http服务交互（Delphi）
10-29
利用IdHTTP进行Http服务的数据交互，交互数据格式采用目前流行的Json，实现Get和Post方式的交互
Delphi HttpServer跨域
04-03
Delphi HttpServer跨域 CustomHeadersStringList.Add('Access-Control-Allow-Origin:*'); AResponseInfo.CustomHeaders := CustomHeadersStringList;
netty4 收不到服务器响应的数据_Netty模拟redis服务器
weixin_39904612的博客
11-29 568
前言Redis的客户端与服务端采用叫做 RESP(Redis Serialization Protocol)的网络通信协议交换数据，客户端和服务器通过 TCP 连接来进行数据交互， 服务器默认的端口号为 6379 。客户端和服务器发送的命令或数据一律以 (CRLF)结尾。RESP支持五种数据类型状态回复(status reply)：以“+”开头，表示正确的状态信息，”+”后就是具体信息​，比如：...
Delphi 实现http请求
weixin_43487532的博客
09-22 5897
在把idhttp改成nethttpclient过程中，碰到一些参数了解不全面，故此来整理下请求头包含哪些，进行深入了解和熟悉。2. nethttpclient可以支持https无需带dll，idhttp需要openssl的几个dll才可以实现。旧项目维护时发现使用的是TIdHttp，查阅资料发现目前都是使用TNetHTTPClient。这是一个登陆接口，账户account是一个中文字符的传输，使用idhttp的时候涉及转码。HTTP Request Header 请求头，这里以百度的请求头为例进行分析。
delphi httpserver restful
07-07
### 回答1： Delphi是一种面向对象的编程语言，它可以使用Delphi HTTP Server来构建RESTful应用程序。REST（Representational State Transfer）是一种软件架构风格，用于构建分布式系统和Web服务。 Delphi HTTP Server是一个完全用Delphi编写的开源组件，它允许开发人员创建基于HTTP协议的应用程序。它提供了处理客户端请求和发送响应的功能，可以与任意HTTP客户端进行通信。 RESTful是一种设计风格，它使用HTTP协议的不同方法（GET、POST、PUT、DELETE等）来对资源进行操作。Delphi HTTP Server可以轻松地实现这些方法，并根据请求路径以及传递的参数进行相应的处理。 使用Delphi HTTP Server构建RESTful应用程序时，可以实现将URL映射到具体的资源操作上。通过解析URL路径和查询参数，开发人员可以确定客户端请求的操作类型、要操作的资源以及相关的参数。 Delphi HTTP Server还提供了处理请求头、响应状态码和消息体等功能，开发人员可以根据需要进行自定义。同时，它也支持处理静态文件、会话管理、路由等功能，使开发人员能够更轻松地构建复杂的RESTful应用程序。 总之，使用Delphi HTTP Server可以方便地构建RESTful应用程序。开发人员可以使用Delphi的面向对象编程语言和Delphi HTTP Server提供的功能来处理客户端请求，实现资源的增删改查等操作。同时，它还提供了许多其他功能，如静态文件处理、会话管理等，使开发过程更加简单和高效。 ### 回答2： Delphi是一种编程语言，HTTPServer是Delphi中一个用于创建HTTP服务器的类。RESTful（Representational State Transfer）是一种软件架构风格，用于构建分布式网络应用。 Delphi HTTPServer可以通过使用RESTful架构风格来创建RESTful API。RESTful API是一种使用HTTP协议进行通信的API，它遵循一组规则和约定。这些规则和约定包括使用HTTP方法（如GET、POST、PUT和DELETE）来对资源进行操作，使用URL来定位资源，使用HTTP状态码来表示操作结果等。 在Delphi中，我们可以使用HTTPServer来创建一个支持RESTful API的服务器。我们需要定义不同的URL路由和处理程序来处理特定的HTTP请求。例如，我们可以定义一个路由用于处理GET请求，并返回一个特定资源的数据。我们还可以定义一个路由用于处理POST请求，并在数据库中创建一个新资源。 使用Delphi的HTTPServer，我们可以轻松地实现RESTful API，并为客户端提供与服务器交互的方法。我们可以使用Delphi提供的工具和类来处理HTTP请求和响应，包括解析URL参数、读取请求体、设置响应状态码和头部等。 总结来说，Delphi的HTTPServer可以在Delphi编程语言中用于创建RESTful API。通过定义不同的URL路由和处理程序，我们可以使用HTTPServer来处理不同的HTTP请求，并根据请求的类型及参数来执行相应的操作。这样可以方便地实现与客户端的交互和数据传输，使得应用程序具有更好的可扩展性和灵活性。 ### 回答3： Delphi是一种集成开发环境(IDE)，用于创建Windows平台上的应用程序。在Delphi中，可以使用Delphi HTTPServer来创建RESTful API。RESTful代表"表述性状态传输"，是一种基于HTTP协议的设计风格，用于构建可扩展、可维护的网络服务。 Delphi HTTPServer是Delphi内置的HTTP服务器组件，它允许您创建和管理基于HTTP协议的Web应用程序和服务。通过使用Delphi的HTTPServer组件，开发人员可以创建符合RESTful设计原则的API。 RESTful API的关键特性之一是使用HTTP动词对资源进行操作。通过Delphi的HTTPServer，您可以轻松地定义和处理不同的HTTP请求方法，如GET、POST、PUT和DELETE。这些方法可以映射到具体的资源处理方法，以实现对资源的操作。 另一个重要的RESTful原则是使用URI来标识和访问资源。Delphi HTTPServer允许您定义URI路由，以将特定的URL映射到相应的资源处理方法上。例如，您可以定义"/users"路由来处理与用户相关的请求。在处理请求时，您可以获取URL参数、请求主体和其他相关信息，以执行相应的操作。 Delphi的HTTPServer组件还提供了对请求和响应的控制。您可以设置响应的内容类型、状态码和头信息，以便向客户端提供正确的响应。您还可以处理请求的验证、授权和身份验证，以确保只有经过授权的用户才能访问资源。 总之，通过Delphi HTTPServer，您可以轻松地创建和管理符合RESTful设计原则的API。它提供了处理HTTP请求和响应的统一接口，使开发人员能够构建可扩展、易于维护的Web应用程序和服务。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值