捐贈 | 廣告 | 注冊 | 發布精品源碼 | 上傳 | 關于我們    
  滬ICP備05001939號 DELPHI盒子 | 盒子論壇 | 盒子文章 | 盒子問答懸賞 | 最新更新 | 論壇檢索 | 下載中心 | 高級搜索    
  精品專區 | 繁體中文 | 獎勵公告欄 | 直通車賬號登陸 | 關閉GOOGLE廣告 | 臨時留言    
盒子資源分類
全部展開 - 全部合攏
【精品源碼】 rtc+easyui示例
關鍵字:rtc+easyui示例
來 自:精品
平 臺:Win2K/2003/NT/XP 下載所需:1 火柴
深淺度:中級 完成時間:2015/5/26
發布者:142857 發布時間:2015/5/26
編輯器:DelphiXE 語  種:簡體中文
分 類:網絡 下載瀏覽:190/16881
加入到我的收藏
下載錯誤報錯
登陸以后才能下載
 用戶名:
 密 碼:
自動登陸(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-2012 V3.01 滬ICP備05001939號 更新RSS列表  
 
快乐10分助手官网