捐赠 | 广告 | 注册 | 发布精品源码 | 上传 | 关于我们    
  沪ICP备05001939号 DELPHI盒子 | 盒子论坛 | 盒子文章 | 盒子问答悬赏 | 最新更新 | 论坛检索 | 下载中心 | 高级搜索    
  精品专区 | 繁體中文 | 奖励公告栏 | 直通车账号登陆 | 关闭GOOGLE广告 | 临时留言    
盒子资源分类
全部展开 - 全部合拢
【精品源码】 rtc+easyui示例
关键字：rtc+easyui示例
来　自：精品
平　台：Win2K/2003/NT/XP 下载所需：1 火柴
深浅度：中级 完成时间：2015/5/26
发布者：142857 发布时间：2015/5/26
编辑器：DelphiXE 语　　种：简体中文
分　类：网络 下载浏览：203/26138
加入到我的收藏
下载错误报错
登陆以后才能下载
 用户名：
 密　码：
自动登陆(30天有效)
图片如果打不开，说明流量不够了，请稍候下载……
procedure TfrmRtcParseDemo.RtcDataProvider1CheckRequest(Sender: TRtcConnection);
begin
  // we want to respond to all root requests


  with Sender as TRtcDataServer do
  begin
    if (Request.FileName.EndsWith('.html'))
      or (Request.FileName.EndsWith('.js'))
      or (Request.FileName.EndsWith('.css'))
      or (Request.FileName.EndsWith('.png'))
      or (Request.FileName.EndsWith('.jpeg'))
      or (Request.FileName.EndsWith('.gif'))
    then
      Accept;
  end;
end;

访问：

http://127.0.0.1:801/basic.html

author:中国制造
Google
 
本站原创作品，未经作者许可，严禁任何方式转载；转载作品，如果侵犯了您的权益，请联系我们！
龙脉加密锁 15元起 Grid++Report 报表 申请支付@网
　相关文章
没有相关文章
相关评论
共有评论41条 当前显示最后6条评论
lovong_delphi 2015/6/4 10:16:41
没有火柴,下载不了..求下载地址
searoom 2015/8/25 14:59:09
好东西，可惜没火柴，哈哈
tekcare007 2015/9/2 6:55:42
好東西  可以學習
lissdd 2018/3/28 17:47:41
如果用Delphi7,修改代码如下:
  with Sender as TRtcDataServer do
  begin
    mmo1.Lines.Add('收到请求: '+ Request.FileName);
    ext := ExtractFileExt(Request.FileName);
    if ( ( ext='.html')
      or (ext='.js')
      or (ext='.css')
      or (ext='.png')
      or (ext='.jpeg')
      or (ext='.gif') )
    then
    begin
      Accept;
      mmo1.Lines.Add('接受请求');
    end
    else
      mmo1.Lines.Add('拒绝未知请求');
lissdd 2018/3/28 18:17:45
这种UI和逻辑分开的设计方式很符合MVC模式 ，你可以随便更换UI。
RTC服务端不必用臃肿的XE，只用闪电般的Delphi7就可以做个像样Web应用了。
qin_chao 2019/5/10 14:32:31
这个要在delphi的那个版本下运行哦，我下了在xe10.1上不行呢。
我要发表评论 查看全部评论
 
  DELPHI盒子版权所有 技术支持:深圳市麟瑞科技有限公司 1999-2024 V4.01 粤ICP备10103342号 更新RSS列表