RealThinClient SDK Pro教程:从服务器发送小文件(第4课)

翻译|使用教程|编辑:况鱼杰|2019-07-18 17:03:41.623|阅读 62 次

概述:本教程将会介绍如何从位于Server运行目录中的文件夹中发送小文件,通过这种方法,就可以控制从服务器访问文件的类型。

相关链接:

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

点击下载最新版RealThinClient SDK


    本教程将会介绍如何从位于Server运行目录中的文件夹中发送小文件,通过这种方法,就可以控制从服务器访问文件的类型,我们将使用一些函数来保护我们的服务器并检查内容(在这种情况下的文件大小)是否足够小以便发送。在下一课中,我们将会了解如何处理更大一些的文件。

    接下来看看具体的操作步骤(文章中会使用到第三课的代码,点击获取):

  1. 第三课加载项目。

    打开项目

  2. 将RtcDataProvider组件添加到项目中。 

        我们必须在Form1中添加一个新的RtcDataProvider组件,以便获得任何不是我们之前在项目中放入的rdpTime或rdpSquare组件的请求。

    02DEMODragRtcDataProvider-300x129.png

    Form1上的RtcDataServer组件

  3. 为我们的RtcDataProvider组件设置服务器属性。

        与我们之前的组件一样,我们必须告诉我们的新组件服务器组件将使用哪个来检查请求。

    rdpFiles组件的服务器属性

  4. 为RtcDataProvider组件设置CheckOrder属性。

        我们必须为rdpFiles组件设置CheckOrder属性,以使其成为来自RtcHttpServer1组件的Request(OnCheckRequest事件)的最后一个属性。如果我们查看以前的组件,它们的CheckOrder属性中的值都为0(零),为了确保我们的新RtcDataProvider组件是检查请求的最后一个组件,我们将它的CheckOrder设置为900。CheckOrder属性是订单,其中将要求组件处理请求,与连接到同一服务器的其他组件相比,此订单号越小,组件将被要求处理请求越快。

    05DEMO3CheckOrder-178x300.png

  5. 添加一个功能以检查文件位置。 

    我们将创建一个函数来检查文件位置以及文件是否存在。

    function TForm1.GetFullFileName(psFileName: string): string;
      var
        vsDocRoot : string; //(1)
    begin
      vsDocRoot := ExtractFilePath(ParamStr(0)); //(2)
     
      if Copy(vsDocRoot, Length(vsDocRoot), 1) = '\' then
        Delete(vsDocRoot, Length(vsDocRoot), 1); //(3)
     
      vsDocRoot := vsDocRoot + '\data'; //(4)
      psFileName := StringReplace(psFileName, '/', '\', [rfreplaceall]); //(5)
      psFileName := StringReplace(psFileName, '%20', ' ', [rfreplaceall]);
      Result := ExpandFileName(Trim(vsDocRoot) + Trim(psFileName)); //(6)
     
      if (AnsiPos('\..', Result) > 0) or //(7)
        (UpperCase(Copy(Result, 1, Length(vsDocRoot))) <> UpperCase(vsDocRoot)) then
        Result := '';
    end;

    我们在做什么?

    • 我们声明一个变量来存储我们的文件将被提供的根目录。  
    • 从Application的主可执行文件中提取Path。
    • 检查Path中的最后一个字符是否不是”字符。
    • 将\ data添加到我们的路径中,以便我们仅从此文件夹提供文件。
    • 将所有/字符替换为\。请记住,在Windows系统中,路径的目录以\字符分隔,但在URL地址中,/字符用作分隔符,因此我们必须更改它。
    • 将文件名添加到路径中。
    • 如果我们有\ ..我们的vsDocRoot变量中的路径与我们的函数结果中的路径不同,那么我们发回一个空字符串。
  6. 为我们的RtcDataProvider组件配置OnCheckRequest事件。

    procedure TForm1.rdpFilesCheckRequest(Sender: TRtcConnection);
      var
        vsFileName : string; //(1)
    begin
      with TRtcDataServer(Sender) do //(2)
      begin
        vsFileName := GetFullFileName(Request.FileName); //(3)
        Accept;
        Request.Info['FName'] := vsFileName; //(4)
      end;
    end;

    我们在做什么?

        请记住,在步骤4中,我们将RtcDataProvider组件的CheckOrder属性设置为900,那么,现在发生的是其他两个RtcDataProvider组件将其CheckOrder属性设置为0,因此这两个组件将首先检查Request,在检查Request之后,我们的rdpFiles组件将检查Request并发送任何除/ TIME和/ SQUARE的文件。

    • 接受请求后,我们将文件名保存在Request.Info ['FName']对象属性中,以便我们稍后使用。
    • 我们接受http:// localhost之后的任何内容。
    • 现在我们使用在步骤5中创建的GetFullFileName函数。
    • 正如我们一直在做的那样,出于兼容性原因,我们将对象用作TRtcDataServer(请记住,这与兼容性有关,因为您可以使用RealThinClient组件创建ISAPI模块)。
    • 我们声明vsFileName变量来保存请求者文件名。
  7. 为我们的RtcDataProvider组件配置OnDataReceived事件。

    一旦我们的RtcDataProvider组件接受了Request,我们就会看看是否会发回消息文件。

    procedure TForm1.rdpFilesDataReceived(Sender: TRtcConnection);
      var
        vsFileName : string; //(1)
        viFileSize : integer;
    begin
      with TRtcDataServer(Sender) do //(2)
        if Request.Complete then
        begin
          vsFileName := Request.Info['FName']; //(3)
     
          if File_Exists(vsFileName) then //(4)
          begin
            viFileSize := File_Size(vsFileName); //(5)
            if (viFileSize <= 2048) then
              Write(Read_File(vsFileName)) //(6)
            else
              Write('File Too Long to be served: ' + IntToStr(viFileSize) + ' bytes'); //(7)
          end
          else
            Write('File not found on server: ' + Request.Info['FName']); //(8)
        end;
    end;

    我们在做什么?

    • 将我们的文件名存储在vsFileName变量中。请记住,在步骤7中,我们为Request.Info ['FName']对象属性设置值。现在,我们使用它。
    • 我们将Sender用作RtcDataServer。
    • 我们声明两个变量vsFileName和viFileSize,以获取我们的文件名和文件大小。
    • 我们使用rtcInfo单元中的File_Exists方法检查文件是否存在。
    • 我们使用RTC的SDK  File_Size函数来获取所请求文件的大小(检查rtcInfo单元以获取更多信息)。
    • 如果Size大于2048字节,我们会发送一个错误,指示所请求文件的大小。
    • 如果请求的文件大小小于或等于2048字节,那么我们发送请求的文件。
    • 如果请求的文件不存在,那么我们发送一条消息,指示在我们的服务器中找不到所请求的文件。
  8. 创建目录并添加几个文件。 

    我们必须创建一个目录来保存我们将为请求发送的文件,该目录必须称为/ data(参见步骤5)。

    Application的Exe Directory中的数据目录

           接下来,我们可以在要提供的“/ data”目录中复制或创建一些文件。出于这个例子的目的,我在这个目录中放了两个文件,一个TXT和一个EXE文件。EXE文件大于2048字节,因此我们可以看到文件大小错误。

    11DEMO3FileInDataDirectory-272x300.png

  9. 编译并运行项目。

    当没有要提供的文件时:


    找不到文件时出错

    文件太大时:

    文件太大时出错

    正常时:

    文件已发送

    DEMO3代码—发送小文件

    DEMO3代码—发送小文件.PDF


    慧都.jpg   

        关注慧聚IT微信公众号 ☟☟☟,了解产品的最新动态及最新资讯。

    dd2629f30d553d56ccaf7164fdcb784e-sz_28327.webp.jpg



标签:

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

文章转载自:RealThinClient https://rtc.teppi.net/realthinclient-sdk-lesson-3-sending-small-files-from-a-folder/

登录 慧都网发表评论


暂无评论...

为你推荐

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

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

在线客服 在线QQ 电话咨询
400-700-1020
反馈
在线客服系统
live chat