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

最新推荐文章于 2024-10-10 08:41:26 发布

yuyuyuyo

最新推荐文章于 2024-10-10 08:41:26 发布

阅读量476

点赞数

文章标签：服务器动态代码

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

点击下载最新版RealThinClient SDK

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

下面是具体的操作步骤：

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

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

连接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;

打开Web Server的项目。
将一个RtcDataProvider组件添加到我们的项目中。

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

从RTC Server组件组中获取TRtcDataProvider组件并将其放在Form1中。
将RtcDataProvider连接到我们的服务器。
配置RtcDataProvider 事件以查看特定请求并添加要发送的内容。

定义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;