? 捐赠 | 广告 | 注册 | 发布精品源码 | 上传 | 关于我们 ? ?
? 沪ICP备05001939号 ag游戏庄闲|官方网站 | 盒子论坛 | 盒子文章 | 盒子问答悬赏 | 最新更新 | 论坛检索 | ag游戏庄闲|官方网站 | ag在线开户 ? ?
? ag娱乐城|优惠 | 繁体中文 | 奖励公告栏 | 直通车账号登陆 | 关闭GOOGLE广告 | 临时留言 ? ?
盒子资源分类
全部展开 - 全部合拢
ag娱乐城|优惠【精品源码】 rtc+easyui示例
关键字:rtc+easyui示例
来 自:精品
平 台:Win2K/2003/NT/XP 下载所需:1 火柴
深浅度:中级 完成时间:2015/5/26
发布者:142857 发布时间:2015/5/26
编辑器:DelphiXE 语  种:简体中文
分 类:网络 下载浏览:190/16282
加入到我的收藏
下载错误报错
登陆以后才能下载
?用户名:
?密 码:
自动登陆(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上不行呢。
我要发表评论 查看全部评论
?
? ag游戏庄闲|官方网站版权所有 1999-2012 V3.01 沪ICP备05001939号 更新RSS列表 ?
?