捐赠 | 广告 | 注册 | 发布精品源码 | 上传 | 关于我们    
  沪ICP备05001939号 DELPHI盒子 | 盒子论坛 | 盒子文章 | 盒子问答悬赏 | 最新更新 | 论坛检索 | 下载中心 | 高级搜索    
  精品专区 | 繁體中文 | 奖励公告栏 | 直通车账号登陆 | 关闭GOOGLE广告 | 临时留言    
盒子资源分类
全部展开 - 全部合拢
【精品源码】 rtc+easyui示例
关键字:rtc+easyui示例
来 自:精品
平 台:Win2K/2003/NT/XP 下载所需:1 火柴
深浅度:中级 完成时间:2015/5/26
发布者:142857 发布时间:2015/5/26
编辑器:DelphiXE 语  种:简体中文
分 类:网络 下载浏览:179/13630
加入到我的收藏
下载错误报错
登陆以后才能下载
 用户名:
 密 码:
自动登陆(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 报表 申请支付@网
 相关文章
没有相关文章
相关评论
共有评论8条 当前显示最后6条评论
star1010 2015/5/28 11:16:30
 好像不错的样子
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应用了。
我要发表评论 查看全部评论
 
  DELPHI盒子版权所有 1999-2012 V3.01 沪ICP备05001939号 更新RSS列表