彩票走势图

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

点击下载最新版RealThinClient SDK

客户端

    这是有关调用远程功能的第一个客户端课程。您将在本课程中学习如何使用RtcClientModule和RtcResult组件来调用RTC服务器提供的远程功能。

步骤：

1. 在您的IDE中创建一个新项目

   在IDE中创建一个新项目，并将主窗体重命名为fmMain

   
   

2. 在客户的主窗体中放置一些控件

   对于客户的应用程序，我们将需要三个组件来进行用户交互：

将其重命名为lbUserName


将其标题属性设置为用户名：

• 一个标签

• 文字编辑

• 备忘录




将这三个组件拖到您的主窗体，然后

使用Label1




使用Edit1

• 将其重命名为edUserName

• 将其文本属性设置为用户名




备忘录1

• 将其重命名为mmMemo
  

• 将其ScrollBars属性设置为ssBoth

• 清理它的Strings属性

3. 使用RtcHttpClient组件

   我们正在创建一个Client，已经有了Server应用程序，因此现在我们需要一个RtcHttpClient组件来与我们的服务器通信。将一个RtcHttpClient组件拖到主窗体。

   
   

   使用RtcHttpClient1组件

   
   

   RtcHttpClient组件用于使用HTTP请求的TCP / IP通信。

   接收到的数据将由RtcHttpClient处理，以收集请求信息，并使其可以通过Request属性轻松访问。同样，您的响应将打包到HTTP结果标头中，并作为有效的HTTP结果发送出去，任何Web浏览器均可读取。

   即使客户端一次发送所有请求（作为一个大的请求列表），RtcHttpClient也会确保您一个接一个地接收请求，并有机会一对一地答复它们，因此您可以放宽并处理所有请求。传入的请求，而不必担心您对不同请求的响应会重叠。
   

• 将其重命名为RtcHttpClient
  

• 将其自动连接属性设置为True

• 将其MultiThreaded属性设置为True

• 将其ReconnectOn.ConnectLost属性设置为True

• 将其ServerAddr属性设置为localhost

• 将其ServerPort属性设置为80

• 将其UseProxy属性设置为True

4. 使用RtcClientModule组件
   

   将一个RtcClientModule组件拖到主窗体。

   
   

   RtcClientModule用于准备远程函数调用，将其发布到服务器，接受服务器的响应以及调用本地事件处理程序以及每次调用收到的结果。

• 将其重命名为RtcClientModule
  

• 将其客户端属性设置为RtcHttpClient

• 将其自动转发属性设置为2

• 将其AutoSyncEvents设置为True

• 将其ModuleFileName设置为/ mytest

5. 使用RtcResult组件
   

   将一个RtcResult组件拖到主窗体。

   
   

• 将其重命名为RtcResult

该组件将用于处理从远程函数调用返回的结果，为此，我们必须实现它的OnReturn事件。

我们的表格应该像这样：




6. 为我们的RtcResult组件定义OnReturn事件

procedure TfmMain.RtcResultReturn(Sender: TRtcConnection; Data,
  Result: TRtcValue);
begin
  mmMemo.Lines.Add(Result.asString);
end;

7. 为我们的edUserName组件定义OnKeyPress事件

   procedure TfmMain.edUserNameKeyPress(Sender: TObject; var Key: Char);
   begin
     if Key=#13 then
     begin
       edUserName.SelectAll;
       with RtcClientModule do
       begin
         // (1)
         with Data.newFunction('Hello') do
         begin
           // (2)
           asString['name'] := edUserName.Text;
         end;
         // (3)
         Call(RtcResult);
       end;
     end;
     Key := #0;
   end;

   该输入键将触发我们的远程函数调用。为此，我们捕获了Enter键代码（＃13），然后：

• 准备一个新的函数调用。
  

• 设置函数的调用参数和

• 调用远程功能。

 ;   下一节我们将会接着介绍本课程的第二节-启动，如果您有任何的建议和疑惑都可以在评论区留言，也希望感兴趣的朋友可以持续关注本教程。

 如果您对想要购买正版授权RealThinClient SDK Pro，可以联系咨询相关问题。

    关注慧聚IT微信公众号 ☟☟☟，了解产品的最新动态及最新资讯。