彩票走势图

    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;

   我们在做什么？

• 我们声明一个变量来存储我们的文件将被提供的根目录。  
• 从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）。

   
   

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

   

9. 编译并运行项目。

   当没有要提供的文件时：

   
   

   

   文件太大时：

   

   正常时：
   

   

   DEMO3代码—发送小文件

   DEMO3代码—发送小文件.PDF

   ---

      
   

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