RealThinClient SDK Pro教程:第一个Web服务器(第1课)

翻译|使用教程|编辑:况鱼杰|2019-06-19 16:23:33.313|阅读 114 次

概述:在本教程中,将会展示如何在Delphi中使用RealThinClient SDK构建一个Web服务器。

相关链接:

RealThinClient SDK是用于开发标准的HTTP(S)服务器,ISAPI扩展以及客户端的VCL控件。可用于Windows下的CodeGear Delphi 6-2010关于RealThinClient SDK的教程会持续更新,本节是RealThinClient SDK的第一课,如何构建一个Web服务器。

点击下载最新版RealThinClient SDK


构建一个Web服务器需要四个大步骤:

  1. 创建一个项目 

  2. 添加两个RealThinClient SDK组件(RtcHTTPServer和RtcDataProvider)

  3.  配置三个事件。

  4.  检查我们的Web服务器是否正常工作。

具体操作如下:

  1. 创建一个新的VCL Forms项目。在RAD Studio中,选择File -> New。

    01DEMO1NewProject-300x49.png

    创建之后如下所示:

    02DEMONewProjectCreated-300x167.png

  2. 在表单中添加RtcHttpServer组件。在RTCServer组中添加一个RtcHttpServer组件,(要创建一个EXE文件,使用RtcHttpServer组件,如果用ISAPI的DLL方式,将使用TRtcISAPIServer组件)。

    03DEMORtcHttpServerComponent-300x284.png

    然后将其拖到Form1区域。

    04DEMORtcHttpServerOnForm1-300x142.png

  3. 设置侦听请求的端口。选择端口80(通常,所有Web服务器默认在端口80上侦听)。

  4. 转到组件属性。单击RtcHttpServer1组件并转到属性部分。如果屏幕上未显示属性窗口,请按F11,在属性窗口中,查找名为ServerPort的属性并将其值设置为80。

    05DEMO1ServerPort-241x300.png
  5. 创建表单后,RtcHttpServer1组件开始监听。双击Form1或者选择Form1,转到属性窗口,点击Events>OnCreate,Delphi将为OnCreate()事件创建处理程序并将其显示在屏幕上。

    06DEMO1FormCreateEvent-300x130.png

  6. 注意:必须将代码添加到FormCreate事件中。要求RtcHttpServer在应用程序开始执行后立即开始侦听请求,因此不需要任何其他类型的控件来启动服务器。

    procedure TForm1.FormCreate(Sender: TObject);
    begin
      RtcHttpServer1.Listen();
    end;

    RtcHttpServer组件的Listen()方法可以接受一个参数:  Restarting,默认设置为False。此参数与RestartOn结合使用  。RestartOn允许定义三个属性:

    • ListenError:如果希望服务器在服务无法启动时重新启动,请将此参数设置为TRUE

    • ListenLost:如果希望服务器在服务停止侦听指定端口上的请求时重新启动,请将此参数设置为TRUE。 

    • Wait:定义服务器在尝试重新启动服务之前应等待的时间(以秒为单位)。

  7. 在表单中添加RtcDataProvider。现在已经准备好服务器侦听请求,在表单中添加一个RtcDataProvider组件。将RTCServer组件中的TRtcDataProvider拖动到Form1中。

    RtcDataProvider在调色板上

    现在表单中已有两个组件。

    08DEMO1RtcDataProviderOnForm-300x143.png

  8. 将RtcDataProvider Server属性设置为RtcHttpServer1。  

    09DEMO1RtcDataProvLink2Serv-300x145.png

    注意:哪个组件处理请求的服务器,就必须定义该组件处理那些请求。

  9. 为RtcDataProvider组件定义OnCheckRequest事件。

    12DEMO1RtcDataProvDataRcvdEvt-300x102.png

    窗口显示内容:

    11DEMO11RtcDataProvCheckReqEvtCode-300x54.png

    本节的代码有两种方式:

    使用with

    procedure TForm1.RtcDataProvider1CheckRequest(Sender: TRtcConnection);
    begin
      with Sender as TRtcDataServer do
        if UpperCase(Request.FileName) = '/TIME' then
          Accept;
    end;

    不使用with

    procedure TForm1.RtcDataProvider1CheckRequest(Sender: TRtcConnection);
      var
        rdsSever : TRtcDataServer absolute Sender;
    begin
      if UpperCase(rdsServer.Request.FileName) = '/TIME' then
        rdsServer.Accept;
    end;


  10.     Request.Filename是客户端请求的完整文件名。RtcDataServer组件的Request属性还可以获取其他数据,如主机名,内容长度和类型,查询参数,HTTP 头等。接下来需接受“/ TIME”的请求,在这种情况下,将处理以下任何内容:

     HTTP://本地主机/时间

     HTTP://本地主机/时间 

    http://127.0.0.1/TIME (FileName请求转换为大写)


  11. 为RtcDataProvider组件定义OnCheckReceived事件。

    RtcDataProvider OnDataReceived事件

    窗口显示内容:

    RtcDataProvider OnDataReceived事件代码

    本节代码如下:

    使用with

    procedure TForm1.RtcDataProvider1DataReceived(Sender: TRtcConnection);
    begin
      with Sender as TRtcDataServer do
        if Request.Complete then
          Write('Current Time is: ' + TimeToStr(Now));
    end;

    不使用with

    procedure TForm1.RtcDataProvider1DataReceived(Sender: TRtcConnection);
      var
        rdsServer: TRtcDataServer absolute Sender;
    begin
      if rdsServer.Request.Complete then
        rdsServer.Write('Current time is: ' + TimeToStr(Now));
    end;
  12. 编译且运行项目。按F9键,没有问题出现以下窗口:

    项目运行 

  13. 最后转到服务器检查响应。(80端口:http:// localhost / time)



标签:

本站文章除注明转载外,均为本站原创或翻译。欢迎任何形式的转载,但请务必注明出处,尊重他人劳动成果

文章转载自:RealThinClient https://rtc.teppi.net/realthinclient-sdk-demo-1-a-web-server-in-five-minutes/

登录 慧都网发表评论


暂无评论...

为你推荐

  • 推荐视频
  • 推荐活动
  • 推荐产品
  • 推荐文章
  • 慧都慧问
相关厂商
相关产品
RealThinClient SDK Pro

用于开发标准的HTTP(S)服务器、ISAPI扩展及客户端的VCL控件

在线
客服
在线
QQ
电话
咨询
400-700-1020
购物车 反馈 返回
顶部
在线客服系统
live chat