RealThinClient SDK Pro教程：使用服务器发送动态生成的内容（第2课））

本教程介绍两个数据提供程序如何协同工作以及如何使用多个Write调用来发送复杂内容。

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

最新版RealThinClient SDK

    在本教程中，您会了解两个数据提供程序如何协同工作以及如何使用多个Write调用来发送复杂内容。

    下面是具体的操作步骤：

1. 打开Web Server的项目。 

2. 将一个RtcDataProvider组件添加到我们的项目中。

   当添加一个新的RtcDataProvider时，它将生成一个页面，其中的方形值从1到100。我们已经有另一个  RtcDataProvider组件在该项目中运行，并为/ TIME请求提供内容。现在我们添加另一个  RtcDataProvider组件，它将为/ SQUARE请求提供内容。

            

   从RTC Server组件组中获取TRtcDataProvider组件并将其放在Form1中。

                

为提高项目的可读性，此示例中RtcDataProvider组件已重命名为 rdpSquare。

3. 将RtcDataProvider连接 到我们的服务器。 

 因为可以同时在多个端口中监听多个服务器组件，所以需要知道RtcDataProvider将使用哪个服务器（RtcHttpServer组件）



4. 配置RtcDataProvider  事件以查看特定请求并添加要发送的内容。 

连接RtcDataProvider到服务器后，还需要定义服务器侦听的请求类型。在这种情况下，RtcDataProvider组件将侦听/ SQUARE请求。

使用with

procedure TForm1.rdpSquareCheckRequest(Sender: TRtcConnection);
begin
 with TRtcDataServer(Sender) do
 if UpperCase(Request.FileName) = '/SQUARE' then
 Accept;
end;

不使用with

procedure TForm1.rdpSquareCheckRequest(Sender: TRtcConnection);
 var
 rdsServer : TRtcDataServer absolute Sender;
begin
 if UpperCase(rdsServer.Request.FileName) = '/SQUARE' then
 rdsServer.Accept;
end;

5. 定义OnDataReceived事件以发送响应。

   对于可以安全地安装在服务器内存中的小文件或文件（例如，最高32K）或准备 站输出，不需要拆分传输。您可以直接从RtcDataProvider组件的OnDataReceived事件中输出文件。也可以连续使用Write方法。

   我们必须对RtcDataProvider组件的请求到达时将发送的内容进行定义。

   

   所以必须编写RtcDataProvider组件的  OnDataReceived事件。注意：必须等到请求完成后才能将响应发送回请求数据的客户端。
   

   使用with

   procedure TForm1.rdpSquareDataReceived(Sender: TRtcConnection);
     var
     viLine : integer;
   begin
     with TRtcDataServer(Sender) do
     begin
       if Request.Complete then
       begin
         Write('');
         Write('Square Values');
         Write('NumberSquare');
         for viLine := 1 to 100 do
         begin
           Write('' + IntToStr(viLine) + '');
           Write('' + IntToStr(viLine * viLine) + '');
         end;
         Write('');
       end;
     end;
   end;
   

   不使用with

   procedure TForm1.rdpSquareDataReceived(Sender: TRtcConnection);
     var
       viLine : integer;
       rdsServer : TRtcDataServer absolute Sender;
   begin
     if rdsServer.Request.Complete then
     begin
       rdsServer.Write('');
       rdsServer.Write('Square Values');
       rdsServer.Write('NumberSquare');
       for viLine := 1 to 100 do
       begin
         rdsServer.Write('' + IntToStr(viLine) + '');
         rdsServer.Write('' + IntToStr(viLine * viLine) + '');
       end;
       rdsServer.Write('');
     end;
   end;
   

6. 保存并运行我们的项目以检查服务器的响应

   最后就是运行服务器，如果一切正常，我们应该在屏幕上看到我们的Form1。

   

    如果我们打开一个Web浏览器并转到  http：// localhost / square，我们应该得到一个表格，其中包含从1到100的数字的平方值。

    还可以在请求/ TIME时检查之前的RtcDataProvider组件是否正在发送内容。 转到http：// localhost / time，显示如下：

    年中活动倒计时中，还不赶紧下手，点击就可领取 MyEclipse 、.NET Reactor、FastReport .Net、VMProtect等超多在线订购产品优惠券！

标签：