RealThinClient SDK Pro教程:编写您的第一个远程功能(第7课)


客户端

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

步骤:

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

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

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

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

  3. 将其重命名为lbUserName

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

  • 一个标签

  • 备忘录

添加TLabel和TEdit组件

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

使用Label1

TEdit属性

使用Edit1

  • 将其重命名为edUserName

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

添加TMemo控件

备忘录1

  • 将其重命名为mmMemo

  • 将其ScrollBars属性设置为ssBoth

  • 清理它的Strings属性

  • 使用RtcHttpClient组件

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

    添加RtcHttpClient控件

    使用RtcHttpClient1组件

    RtcHttpClient属性

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

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

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

    • 将其重命名为RtcHttpClient

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

    • 将其MultiThreaded属性设置为True

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

    • 将其ServerAddr属性设置为localhost

    • 将其ServerPort属性设置为80

    • 将其UseProxy属性设置为True

  • 使用RtcClientModule组件

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

    RtcClientModule属性

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

    • 将其重命名为RtcClientModule

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

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

    • 将其AutoSyncEvents设置为True

    • 将其ModuleFileName设置为/ mytest

  • 使用RtcResult组件

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

    RtcResult属性
    • 将其重命名为RtcResult

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

    我们的表格应该像这样:

    带有控件的表格
  • 为我们的RtcResult组件定义OnReturn事件

  • procedure TfmMain.RtcResultReturn(Sender: TRtcConnection; Data,  Result: TRtcValue);begin  mmMemo.Lines.Add(Result.asString);end;
  • 为我们的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,可以联系在线客服>>咨询相关问题。

    标签:

    声明:本站部分文章及图片源自用户投稿,如本站任何资料有侵权请您尽早请联系jinwei@zod.com.cn进行处理,非常感谢!

    上一篇 2019年9月6日
    下一篇 2019年9月7日

    相关推荐

    发表回复

    登录后才能评论