RealThinClient SDK是用于開(kāi)發(fā)標(biāo)準(zhǔn)的HTTP(S)服務(wù)器，ISAPI擴(kuò)展以及客戶(hù)端的VCL控件。可用于Windows下的CodeGear Delphi 6-2010。關(guān)于RealThinClient SDK的教程會(huì)持續(xù)更新，本節(jié)是RealThinClient SDK的第四課，如何從服務(wù)器發(fā)送小文件。

點(diǎn)擊下載最新版RealThinClient SDK

    本教程將會(huì)介紹如何從位于Server運(yùn)行目錄中的文件夾中發(fā)送小文件，通過(guò)這種方法，就可以控制從服務(wù)器訪(fǎng)問(wèn)文件的類(lèi)型，我們將使用一些函數(shù)來(lái)保護(hù)我們的服務(wù)器并檢查內(nèi)容（在這種情況下的文件大小）是否足夠小以便發(fā)送。在下一課中，我們將會(huì)了解如何處理更大一些的文件。

    接下來(lái)看看具體的操作步驟（文章中會(huì)使用到第三課的代碼，點(diǎn)擊獲取）：

1. 從第三課加載項(xiàng)目。

   

2. 將RtcDataProvider組件添加到項(xiàng)目中。 

       我們必須在Form1中添加一個(gè)新的RtcDataProvider組件，以便獲得任何不是我們之前在項(xiàng)目中放入的rdpTime或rdpSquare組件的請(qǐng)求。

   

   

3. 為我們的RtcDataProvider組件設(shè)置服務(wù)器屬性。

       與我們之前的組件一樣，我們必須告訴我們的新組件服務(wù)器組件將使用哪個(gè)來(lái)檢查請(qǐng)求。

   

4. 為RtcDataProvider組件設(shè)置CheckOrder屬性。

       我們必須為rdpFiles組件設(shè)置CheckOrder屬性，以使其成為來(lái)自RtcHttpServer1組件的Request（OnCheckRequest事件）的最后一個(gè)屬性。如果我們查看以前的組件，它們的CheckOrder屬性中的值都為0（零），為了確保我們的新RtcDataProvider組件是檢查請(qǐng)求的最后一個(gè)組件，我們將它的CheckOrder設(shè)置為900。CheckOrder屬性是訂單，其中將要求組件處理請(qǐng)求，與連接到同一服務(wù)器的其他組件相比，此訂單號(hào)越小，組件將被要求處理請(qǐng)求越快。

   

5. 添加一個(gè)功能以檢查文件位置。 

   我們將創(chuàng)建一個(gè)函數(shù)來(lái)檢查文件位置以及文件是否存在。

   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;

   我們?cè)谧鍪裁矗?/strong>

• 我們聲明一個(gè)變量來(lái)存儲(chǔ)我們的文件將被提供的根目錄。  
• 從Application的主可執(zhí)行文件中提取Path。
• 檢查Path中的最后一個(gè)字符是否不是”字符。
• 將\ data添加到我們的路徑中，以便我們僅從此文件夾提供文件。
• 將所有/字符替換為\。請(qǐng)記住，在Windows系統(tǒng)中，路徑的目錄以\字符分隔，但在URL地址中，/字符用作分隔符，因此我們必須更改它。
• 將文件名添加到路徑中。
• 如果我們有\(zhòng) ..我們的vsDocRoot變量中的路徑與我們的函數(shù)結(jié)果中的路徑不同，那么我們發(fā)回一個(gè)空字符串。

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;

   我們?cè)谧鍪裁矗?/strong>

       請(qǐng)記住，在步驟4中，我們將RtcDataProvider組件的CheckOrder屬性設(shè)置為900，那么，現(xiàn)在發(fā)生的是其他兩個(gè)RtcDataProvider組件將其CheckOrder屬性設(shè)置為0，因此這兩個(gè)組件將首先檢查Request，在檢查Request之后，我們的rdpFiles組件將檢查Request并發(fā)送任何除/ TIME和/ SQUARE的文件。

• 接受請(qǐng)求后，我們將文件名保存在Request.Info ['FName']對(duì)象屬性中，以便我們稍后使用。
• 我們接受http：// localhost之后的任何內(nèi)容。
• 現(xiàn)在我們使用在步驟5中創(chuàng)建的GetFullFileName函數(shù)。
• 正如我們一直在做的那樣，出于兼容性原因，我們將對(duì)象用作TRtcDataServer（請(qǐng)記住，這與兼容性有關(guān)，因?yàn)槟梢允褂肦ealThinClient組件創(chuàng)建ISAPI模塊）。
• 我們聲明vsFileName變量來(lái)保存請(qǐng)求者文件名。

7. 為我們的RtcDataProvider組件配置OnDataReceived事件。

   一旦我們的RtcDataProvider組件接受了Request，我們就會(huì)看看是否會(huì)發(fā)回消息文件。
   

   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;

   我們?cè)谧鍪裁矗?/strong>

• 將我們的文件名存儲(chǔ)在vsFileName變量中。請(qǐng)記住，在步驟7中，我們?yōu)镽equest.Info ['FName']對(duì)象屬性設(shè)置值。現(xiàn)在，我們使用它。
• 我們將Sender用作RtcDataServer。
• 我們聲明兩個(gè)變量vsFileName和viFileSize，以獲取我們的文件名和文件大小。
• 我們使用rtcInfo單元中的File_Exists方法檢查文件是否存在。
• 我們使用RTC的SDK  File_Size函數(shù)來(lái)獲取所請(qǐng)求文件的大小（檢查rtcInfo單元以獲取更多信息）。
• 如果Size大于2048字節(jié)，我們會(huì)發(fā)送一個(gè)錯(cuò)誤，指示所請(qǐng)求文件的大小。
• 如果請(qǐng)求的文件大小小于或等于2048字節(jié)，那么我們發(fā)送請(qǐng)求的文件。
• 如果請(qǐng)求的文件不存在，那么我們發(fā)送一條消息，指示在我們的服務(wù)器中找不到所請(qǐng)求的文件。

8. 創(chuàng)建目錄并添加幾個(gè)文件。 

   我們必須創(chuàng)建一個(gè)目錄來(lái)保存我們將為請(qǐng)求發(fā)送的文件，該目錄必須稱(chēng)為/ data（參見(jiàn)步驟5）。

   
   

          接下來(lái)，我們可以在要提供的“/ data”目錄中復(fù)制或創(chuàng)建一些文件。出于這個(gè)例子的目的，我在這個(gè)目錄中放了兩個(gè)文件，一個(gè)TXT和一個(gè)EXE文件。EXE文件大于2048字節(jié)，因此我們可以看到文件大小錯(cuò)誤。

   

9. 編譯并運(yùn)行項(xiàng)目。

   當(dāng)沒(méi)有要提供的文件時(shí)：

   
   

   

   文件太大時(shí)：

   

   正常時(shí)：
   

   

   DEMO3代碼—發(fā)送小文件

   DEMO3代碼—發(fā)送小文件.PDF

   ---

      
   

       關(guān)注慧聚IT微信公眾號(hào) ???，了解產(chǎn)品的最新動(dòng)態(tài)及最新資訊。