RealThinClient SDK Pro：使用服务器发送动态生成的内容（第2课）在本教程中，您会了解两个数据提供程序

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

下面是具体的操作步骤：

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

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

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

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

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

配置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;

定义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('<html><body>');      Write('<table border="1"><caption>Square Values</caption>');      Write('<tr><td>Number</td><td>Square</td></tr>');      for viLine := 1 to 100 do      begin        Write('<tr><td>' + IntToStr(viLine) + '</td>');        Write('<td>' + IntToStr(viLine * viLine) + '</td></tr>');      end;      Write('</table></body></html>');    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('<html><body>');    rdsServer.Write('<table border="1"><caption>Square Values</caption>');    rdsServer.Write('<tr><td>Number</td><td>Square</td></tr>');    for viLine := 1 to 100 do    begin      rdsServer.Write('<tr><td>' + IntToStr(viLine) + '</td>');      rdsServer.Write('<td>' + IntToStr(viLine * viLine) + '</td></tr>');    end;    rdsServer.Write('</table></body></html>');  end;end;

保存并运行我们的项目以检查服务器的响应
最后就是运行服务器，如果一切正常，我们应该在屏幕上看到我们的Form1。

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

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