请选择 进入手机版 | 继续访问电脑版

Lazarus中文社区

 找回密码
 立即注册

QQ登录

只需一步,快速开始

便捷登录,只需一步

Lazarus IDE and 组件 下载地址版权申明
查看: 1126|回复: 14

Lazarus+RTC教程(从入门到入门)

[复制链接]

该用户从未签到

发表于 2017-3-20 21:35:05 | 显示全部楼层 |阅读模式
好久没有和大家见面了,工作和家里的事情较多。为了生活不得已到处讨饭为生,还好暂时没有饿死。为了谢谢大家一直以来的关心,和群里兄弟们的支持,
从即日起,我将不知羞耻,在本贴写一个长篇。
从我下载到编写,手把手教大家写个RTC的18层(只是传说)的DEMO出来。。。


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





回复

使用道具 举报

该用户从未签到

 楼主 发表于 2017-3-21 21:34:20 | 显示全部楼层

RE: Lazarus+RTC教程(从入门到入门)

  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. procedure TForm1.RtcDataProvider1CheckRequest(Sender: TRtcConnection);
  8. begin
  9.     with TRtcDataServer(Sender) do
  10.     begin
  11.          if (Request.Method = 'GET') then
  12.          begin
  13.       if Request.FileName = '/index.html' then
  14.            Accept;
  15.         end;
  16.     end;
  17. end;

  18. procedure TForm1.RtcDataProvider1DataReceived(Sender: TRtcConnection);
  19. begin
  20.   with TRtcDataServer(Sender) do
  21.   begin

  22.        write('thank you');


  23.   end;
  24. end;

  25. procedure TForm1.RtcHttpServer1ListenStart(Sender: TRtcConnection);
  26. begin
  27.   label1.Caption:= 'listen start';
  28. end;
复制代码
回复 支持 1 反对 0

使用道具 举报

该用户从未签到

 楼主 发表于 2017-3-20 21:42:22 | 显示全部楼层

RE: CodeTyphon+RTC教程(从入门到入门)

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

使用道具 举报

该用户从未签到

 楼主 发表于 2017-3-20 21:44:27 | 显示全部楼层

RE: CodeTyphon+RTC教程(从入门到入门)

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

使用道具 举报

  • TA的每日心情
    开心
    2017-4-20 15:12
  • 签到天数: 5 天

    [LV.2]偶尔看看I

    发表于 2017-3-20 21:56:48 | 显示全部楼层

    RE: Lazarus+RTC教程(从入门到入门)

    ZHONGYU可以登录了
    回复 支持 反对

    使用道具 举报

    该用户从未签到

     楼主 发表于 2017-3-20 23:31:04 | 显示全部楼层

    RE: Lazarus+RTC教程(从入门到入门)

    好吧,我服了,下载完全不动,用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安装真的慢。
    回复 支持 反对

    使用道具 举报

    该用户从未签到

     楼主 发表于 2017-3-21 21:01:51 | 显示全部楼层

    RE: Lazarus+RTC教程(从入门到入门)

    失礼了,好久没用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就这都安装成功了。
    回复 支持 反对

    使用道具 举报

    该用户从未签到

     楼主 发表于 2017-3-21 21:03:29 | 显示全部楼层

    RE: Lazarus+RTC教程(从入门到入门)

    RTC官方的DEMO很多,建议先看看RTC/Demos和QuickStart目录下的,很重要。
    回复 支持 反对

    使用道具 举报

    该用户从未签到

     楼主 发表于 2017-3-21 21:29:08 | 显示全部楼层

    RE: Lazarus+RTC教程(从入门到入门)

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

    新建项目,拖一个RtcHttpServer1和RtcDataProvider1上去
    再拖一个button,好麻烦,直接上代码算了。
    回复 支持 反对

    使用道具 举报

    该用户从未签到

     楼主 发表于 2017-3-21 21:35:13 | 显示全部楼层

    RE: Lazarus+RTC教程(从入门到入门)



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

    使用道具 举报

    QQ|手机版|小黑屋|Lazarus中国|Lazarus中文社区 ( 鄂ICP备16006501号-1

    GMT+8, 2017-7-21 04:33 , Processed in 0.045489 second(s), 11 queries , Redis On.

    Powered by Discuz! F1.0 Build 20160930

    © 2001-2017 Comsenz Inc. & Discuz! Fans

    快速回复 返回顶部 返回列表