RealThinClient SDK Pro教程：从服务器发送小文件（第4课）

本教程将会介绍如何从位于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组件的请求。

   
   

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

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

   

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

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

   

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;

   我们在做什么/strong>

• 我们声明一个变量来存储我们的文件将被提供的根目录。  

• 从Application的主可执行文件中提取Path。

• 检查Path中的最后一个字符是否不是”字符。

• 将 data添加到我们的路径中，以便我们仅从此文件夹提供文件。

• 将所有/字符替换为。请记住，在Windows系统中，路径的目录以字符分隔，但在URL地址中，/字符用作分隔符，因此我们必须更改它。

• 将文件名添加到路径中。

• 如果我们有 ..我们的vsDocRoot变量中的路径与我们的函数结果中的路径不同，那么我们发回一个空字符串。

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;

• 接受请求后，我们将文件名保存在Request.Info [‘FName’]对象属性中，以便我们稍后使用。

• 我们接受http：// localhost之后的任何内容。

• 现在我们使用在步骤5中创建的GetFullFileName函数。

• 正如我们一直在做的那样，出于兼容性原因，我们将对象用作TRtcDataServer（请记住，这与兼容性有关，因为您可以使用RealThinClient组件创建ISAPI模块）。

• 我们声明vsFileName变量来保存请求者文件名。

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字节，那么我们发送请求的文件。

• 如果请求的文件不存在，那么我们发送一条消息，指示在我们的服务器中找不到所请求的文件。

创建目录并添加几个文件。 

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

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

编译并运行项目。

当没有要提供的文件时：

文件太大时：

正常时：

DEMO3代码—发送小文件

DEMO3代码—发送小文件.PDF

---

   

标签：