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

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

点击下载最新版RealThinClient SDK

---

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

    接下来看看具体的操作步骤（文章中会使用到第三课的代码，点击获取）：

从第三课加载项目。

将RtcDataProvider组件添加到项目中。 

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

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

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

为RtcDataProvider组件设置CheckOrder属性。

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

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

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

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变量中的路径与我们的函数结果中的路径不同，那么我们发回一个空字符串。

为我们的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变量来保存请求者文件名。

为我们的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字节，那么我们发送请求的文件。
• 如果请求的文件不存在，那么我们发送一条消息，指示在我们的服务器中找不到所请求的文件。

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

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

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

编译并运行项目。

当没有要提供的文件时：

 

文件太大时：

正常时：

DEMO3代码—发送小文件

DEMO3代码—发送小文件.PDF