Lazarus+RTC教程（从入门到入门）

bugxiong

好久没有和大家见面了，工作和家里的事情较多。为了生活不得已到处讨饭为生，还好暂时没有饿死。为了谢谢大家一直以来的关心，和群里兄弟们的支持，
从即日起，我将不知羞耻，在本贴写一个长篇。
从我下载到编写，手把手教大家写个RTC的18层（只是传说）的DEMO出来。。。


lazarus在世也有好多好多年了，现在不断的更新，能活到现在，就说明他真的有他活下来的原因，真的还不错。那个英巴卡迪什么的，真的是怕了他了，除了打电话，还会啥？
对于我这样平时工作用个d7都足够的人来说，XE真是慢。遇到跨平台的需求，lazarus出马真的是so easy！

bugxiong

1. procedure TForm1.Button1Click(Sender: TObject);
   
2. begin
   
3.   rtchttpserver1.ServerAddr := '127.0.0.1';
   
4.   rtchttpserver1.ServerPort:= '9090';
   
5.   rtchttpserver1.Listen();
   
6. end;
   
7. 
   
8. procedure TForm1.RtcDataProvider1CheckRequest(Sender: TRtcConnection);
   
9. begin
   
10.     with TRtcDataServer(Sender) do
    
11.     begin
    
12.          if (Request.Method = 'GET') then
    
13.          begin
    
14.       if Request.FileName = '/index.html' then
    
15.            Accept;
    
16.         end;
    
17.     end;
    
18. end;
    
19. 
    
20. procedure TForm1.RtcDataProvider1DataReceived(Sender: TRtcConnection);
    
21. begin
    
22.   with TRtcDataServer(Sender) do
    
23.   begin
    
24. 
    
25.        write('thank you');
    
26. 
    
27. 
    
28.   end;
    
29. end;
    
30. 
    
31. procedure TForm1.RtcHttpServer1ListenStart(Sender: TRtcConnection);
    
32. begin
    
33.   label1.Caption:= 'listen start';
    
34. end;

复制代码

bugxiong

lazarus安装和delphi一样，没什么好说的，下一步下一步就可以安装成功，不过安装组件那叫一个酸爽，安装一个组件lazarus就要重编译一次，我有好几个组件要安装，lazarus就要重编译几回，还好编译较快。不过有一些组件对于这个lazarus支持得不是很好，安装不是要改这个文件就是要改那个参数，总有人来问我，虽然社区里有专门的贴子，但我也觉得麻烦，谁要这是非主流呢。
还好有CodeTyphon，这个IDE完全就是个增强版的lazarus，安装好了他，所有的编译器有了，一般需要的组件也都有了，所有的安装都搞定。

bugxiong

我今天先来下载ct（codetyphon），百度codetyphon，到他的官网下载最新的，或直接这个地址：
http://www.pilotlogic.com/sitejo ... 3-codetyphonins-zip
我这网下载动都不动，等吧，看什么时候给下载好。我现在下载的版本是6.0

hijenny

ZHONGYU可以登录了

bugxiong

好吧，我服了，下载完全不动，用5.8版算了，这个我有，估计差不多。
1.解压安装包
2.运行install.bat
3.选择0> Install CodeTyphon Studio，回车。这个时间安装大概1-3分钟
4.又出来一个选择界面，1-9选项，你直接选8>Remove and Build All。。都安装。这个时间长，先去洗脚
这个全部安装时间真长长长啊，80分钟安装好。不好玩。
5.那个安装菜单又出来了，选1，运行。
6.这个时候IDE出来了，选择菜单Typhon-IDE，运行Run Typhon32/64 IDE。
7.这个时候IDE启动了，F9运行试一下，好了，没办法。

到现在Typhon-IDE安装好了，没一点技术吧，就是老有人问我怎么安装怎么运行。
好了，今天先到这里吧，改天我们继续。我真应该用lazarus直接安装的，这个ct安装真的慢。

bugxiong

失礼了，好久没用ct了，觉得这个庞然大物不好用，安装慢，等我等会再安装rtc估计又很慢。
对不起，还是不用ct了，换lazarus算哒。
官网下载，最新版1.64，一会儿就下载好了。就下载了64位版本。

我们再来介绍一下RTC。
RTC全称RealThinClient。是一个是用于开发标准的HTTP(S)服务器，ISAPI扩展以及客户端的VCL控件。
现在做三层，用他很方便，具体介绍自己百度。
在哪里下载？CSDN，盒子都有下载。
这我就不提供了。谁的
记得要下载有source的版本，我下载的是6.54版
下载好后，解压，复制到你的组件的目录。
打开Typhone IDE。菜单File-Open File，打开rtc目录下的sources目录，找到rtcsdk_fpc这个文件。
打开，选择open package方式。点击comile，编译完了，再点install（有时候会在use后面，需要把>>点一下才看得到）。然后就开始安装了，安装就是重编译lazarus，还好，一下就好了。半分钟。
IDE重启后，就可以看到控件栏中多出来RTC SERVER和Client了，拖一个到新建窗口上，运行，没有出错，OK，RTC和lazarus就这都安装成功了。

bugxiong

RTC官方的DEMO很多，建议先看看RTC/Demos和QuickStart目录下的，很重要。

bugxiong

我们先来做一个最简单在DEMO：HTTP的POST请求

新建项目，拖一个RtcHttpServer1和RtcDataProvider1上去
再拖一个button，好麻烦，直接上代码算了。

bugxiong

上面是代码，编译后运行启动监听。
再用浏览器打开
http://127.0.0.1:9090/index.html
就看到效果了。
so easy