RealThinClient SDK Pro教程:使用服务器发送动态生成的内容(第2课))

翻译|使用教程|编辑:况鱼杰|2019-06-26 17:48:31.660|阅读 61 次

概述:本教程介绍两个数据提供程序如何协同工作以及如何使用多个Write调用来发送复杂内容。

相关链接:

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

点击下载最新版RealThinClient SDK


    在本教程中,您会了解两个数据提供程序如何协同工作以及如何使用多个Write调用来发送复杂内容。

    下面是具体的操作步骤:

  1. 打开Web Server的项目。 

  2. 将一个RtcDataProvider组件添加到我们的项目中。

    当添加一个新的RtcDataProvider时,它将生成一个页面,其中的方形值从1到100。我们已经有另一个  RtcDataProvider组件在该项目中运行,并为/ TIME请求提供内容。现在我们添加另一个  RtcDataProvider组件,它将为/ SQUARE请求提供内容。

    01DEMO2RtcDataProvider-300x147 (1).png          

    从RTC Server组件组中获取TRtcDataProvider组件并将其放在Form1中。

    02DEMO2FormWithComponent-300x142.png              

  3. 为提高项目的可读性,此示例中RtcDataProvider组件已重命名为 rdpSquare。

  4. 将RtcDataProvider连接 到我们的服务器。 

  5.  因为可以同时在多个端口中监听多个服务器组件,所以需要知道RtcDataProvider将使用哪个服务器(RtcHttpServer组件)

    03DEMO2SeverProperty-300x128.png

  6. 配置RtcDataProvider  事件以查看特定请求并添加要发送的内容。 

  7. 连接RtcDataProvider到服务器后,还需要定义服务器侦听的请求类型。在这种情况下,RtcDataProvider组件将侦听/ SQUARE请求。

    使用with

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

    不使用with

    procedure TForm1.rdpSquareCheckRequest(Sender: TRtcConnection);
     var
     rdsServer : TRtcDataServer absolute Sender;
    begin
     if UpperCase(rdsServer.Request.FileName) = '/SQUARE' then
     rdsServer.Accept;
    end;
  8. 定义OnDataReceived事件以发送响应。

    对于可以安全地安装在服务器内存中的小文件或文件(例如,最高32K)或准备网站输出,不需要拆分传输。您可以直接从RtcDataProvider组件的OnDataReceived事件中输出文件。也可以连续使用Write方法。

    我们必须对RtcDataProvider组件的请求到达时将发送的内容进行定义。

    05DEMO2OnDataReceivedEvent-300x147.png

    所以必须编写RtcDataProvider组件的  OnDataReceived事件。注意:必须等到请求完成后才能将响应发送回请求数据的客户端。

    使用with

    procedure TForm1.rdpSquareDataReceived(Sender: TRtcConnection);
      var
      viLine : integer;
    begin
      with TRtcDataServer(Sender) do
      begin
        if Request.Complete then
        begin
          Write('');
          Write('Square Values');
          Write('NumberSquare');
          for viLine := 1 to 100 do
          begin
            Write('' + IntToStr(viLine) + '');
            Write('' + IntToStr(viLine * viLine) + '');
          end;
          Write('');
        end;
      end;
    end;

    不使用with

    procedure TForm1.rdpSquareDataReceived(Sender: TRtcConnection);
      var
        viLine : integer;
        rdsServer : TRtcDataServer absolute Sender;
    begin
      if rdsServer.Request.Complete then
      begin
        rdsServer.Write('');
        rdsServer.Write('Square Values');
        rdsServer.Write('NumberSquare');
        for viLine := 1 to 100 do
        begin
          rdsServer.Write('' + IntToStr(viLine) + '');
          rdsServer.Write('' + IntToStr(viLine * viLine) + '');
        end;
        rdsServer.Write('');
      end;
    end;
  9. 保存并运行我们的项目以检查服务器的响应

    最后就是运行服务器,如果一切正常,我们应该在屏幕上看到我们的Form1。

    06DEMO2ProjectRunning-300x142.png


    如果我们打开一个Web浏览器并转到  http:// localhost / square,我们应该得到一个表格,其中包含从1到100的数字的平方值。

07DEMO2BrowserOutput-265x300.png

    还可以在请求/ TIME时检查之前的RtcDataProvider组件是否正在发送内容。 转到http:// localhost / time,显示如下:

15DEMO1Browser-300x145.png

    年中活动倒计时中,还不赶紧下手,点击就可领取 MyEclipse 、.NET ReactorFastReport .NetVMProtect等超多在线订购产品优惠券!



标签:

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

文章转载自:RealThinClient https://rtc.teppi.net/realthinclient-sdk-sending-dynamically-generated-content/

登录 慧都网发表评论


暂无评论...

为你推荐

  • 推荐视频
  • 推荐活动
  • 推荐产品
  • 推荐文章
  • 慧都慧问
在线
客服
在线
QQ
电话
咨询
400-700-1020
购物车 反馈 返回
顶部
在线客服系统
live chat