RealThinClient SDK Pro教程：第一个Web服务器（第1课）

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

                                                                点击下载最新版RealThinClient SDK

---

构建一个Web服务器需要四个大步骤：

1. 创建一个项目 

2. 添加两个RealThinClient SDK组件（RtcHTTPServer和RtcDataProvider）

3.  配置三个事件。

4.  检查我们的Web服务器是否正常工作。

具体操作如下：

注意：必须将代码添加到FormCreate事件中。要求RtcHttpServer在应用程序开始执行后立即开始侦听请求，因此不需要任何其他类型的控件来启动服务器。

procedure TForm1.FormCreate(Sender: TObject);
begin
  RtcHttpServer1.Listen();
end;

RtcHttpServer组件的Listen（）方法可以接受一个参数：  Restarting，默认设置为False。此参数与RestartOn结合使用  。RestartOn允许定义三个属性：

    Request.Filename是客户端请求的完整文件名。RtcDataServer组件的Request属性还可以获取其他数据，如主机名，内容长度和类型，查询参数，HTTP 头等。接下来需接受“/ TIME”的请求，在这种情况下，将处理以下任何内容：

 HTTP：//本地主机/时间

 HTTP：//本地主机/时间 

http://127.0.0.1/TIME （FileName请求转换为大写）

1. 创建一个新的VCL Forms项目。在RAD Studio中，选择File -> New。

   

   创建之后如下所示：

   

2. 在表单中添加RtcHttpServer组件。在RTCServer组中添加一个RtcHttpServer组件，（要创建一个EXE文件，使用RtcHttpServer组件，如果用ISAPI的DLL方式，将使用TRtcISAPIServer组件）。

   

   然后将其拖到Form1区域。

   

3. 设置侦听请求的端口。选择端口80（通常，所有Web服务器默认在端口80上侦听）。

4. 转到组件属性。单击RtcHttpServer1组件并转到属性部分。如果屏幕上未显示属性窗口，请按F11，在属性窗口中，查找名为ServerPort的属性并将其值设置为80。

   

5. 创建表单后，RtcHttpServer1组件开始监听。双击Form1或者选择Form1，转到属性窗口，点击Events>OnCreate，Delphi将为OnCreate（）事件创建处理程序并将其显示在屏幕上。

   RtcHttpServer组件的Listen（）方法可以接受一个参数：  Restarting，默认设置为False。此参数与RestartOn结合使用  。RestartOn允许定义三个属性：

   • ListenError：如果希望服务器在服务无法启动时重新启动，请将此参数设置为TRUE

   • ListenLost：如果希望服务器在服务停止侦听指定端口上的请求时重新启动，请将此参数设置为TRUE。 

   • Wait：定义服务器在尝试重新启动服务之前应等待的时间（以秒为单位）。

6. 在表单中添加RtcDataProvider。现在已经准备好服务器侦听请求，在表单中添加一个RtcDataProvider组件。将RTCServer组件中的TRtcDataProvider拖动到Form1中。

   

   现在表单中已有两个组件。

   

7. 将RtcDataProvider Server属性设置为RtcHttpServer1。  

   

   注意：哪个组件处理请求的服务器，就必须定义该组件处理那些请求。

8. 为RtcDataProvider组件定义OnCheckRequest事件。

   

   窗口显示内容：

   

   本节的代码有两种方式：

   使用with

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

   不使用with

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

   Request.Filename是客户端请求的完整文件名。RtcDataServer组件的Request属性还可以获取其他数据，如主机名，内容长度和类型，查询参数，HTTP 头等。接下来需接受“/ TIME”的请求，在这种情况下，将处理以下任何内容：

    HTTP：//本地主机/时间

    HTTP：//本地主机/时间 

   http://127.0.0.1/TIME （FileName请求转换为大写）

9. 为RtcDataProvider组件定义OnCheckReceived事件。

   

   窗口显示内容：

   

   本节代码如下：

   使用with

   procedure TForm1.RtcDataProvider1DataReceived(Sender: TRtcConnection);
   begin
     with Sender as TRtcDataServer do
       if Request.Complete then
         Write('Current Time is: ' + TimeToStr(Now));
   end;
   

   不使用with

   procedure TForm1.RtcDataProvider1DataReceived(Sender: TRtcConnection);
     var
       rdsServer: TRtcDataServer absolute Sender;
   begin
     if rdsServer.Request.Complete then
       rdsServer.Write('Current time is: ' + TimeToStr(Now));
   end;
   

10. 编译且运行项目。按F9键，没有问题出现以下窗口：

    

11. 最后转到服务器检查响应。（80端口：http：// localhost / time）