捐赠 | 广告 | 注册 | 发布 | 上传 | 关于我们    
  粤ICP备10103342号-1 DELPHI盒子 | 盒子文章 | 盒子问答悬赏 | 最新更新 | 盒子检索 | 下载中心 | 高级搜索    
  精品专区 | 繁體中文 | 奖励公告栏 | 直通车账号登陆 | 关闭GOOGLE广告 | 临时留言    
盒子资源分类
全部展开 - 全部合拢
基于TidTCPServer/TidTCPClient组件多线程阻塞方式的局域网文件传输程序
关键字：多线程 阻塞 文件传输
来　自：原创
平　台：Win2k/XP/NT,Win2003 下载所需：0 火柴
深浅度：中级 完成时间：2009/4/9
发布者：skywings 发布时间：2009/4/9
编辑器：DELPHI7 语　　种：简体中文
分　类：网络 下载浏览：16708/18182
加入到我的收藏
下载错误报错
登陆以后才能下载
 用户名：
 密　码：
自动登陆(30天有效)
图片如果打不开，说明流量不够了，请稍候下载……
这是本标哥做的最初Demo
http://www.2ccc.com/article.asp?articleid=5139

本次纯粹是出于对Indy9的崇拜，做了个改进版。基于IOCP和UDT技术的版本，
本标哥正在敲打键盘。。。
敬请期待。欢迎来踩踩。

代码变化：请看压缩包内History.Txt
Google
 
本站原创作品，未经作者许可，严禁任何方式转载；转载作品，如果侵犯了您的权益，请联系我们！
龙脉加密锁 15元起 Grid++Report 报表 申请支付@网
　相关文章
没有相关文章
相关评论
共有评论7条 当前显示最后6条评论
skywings 2009/4/9 12:52:38

//-------如下就好。
      with idtcpsrvr1 do
      begin
       try
          Bindings.Clear;
          Bindings.Add;
          Bindings.Items[0].IP := '127.0.0.1';
          Bindings.Items[0].Port := ListenPort;

          if 0< lIpStr.Count then
          begin
          for I:= 0 to lIpStr.Count - 1 do
          begin
          if 0 <> CompareStr(Trim(lIpStr[I]),'127.0.0.1') then
          begin
          Bindings.Add;
          Bindings.Items[I+1].IP := lIpStr[I];
          Bindings.Items[I+1].Port := ListenPort;
          end;
          end;
          end;
       except
          lIpStr.Free;
          Result:= False;
          Exit;
        end;
      end;
smll8402 2009/4/10 10:59:17
。。。如果改进带下载文件所在目标目录就更好了。。
fffddd 2009/4/10 19:44:25
不知道是用是d几编译的？
jiangwang 2009/5/5 14:00:42
不能下载了？
wynney 2009/6/24 22:52:19
无法下载
tq0evqv 2012/5/15 16:30:44
http://download2.pudn.com/downloads188/sourcecode/windows/network/46158354AFC910.4.rar
我要发表评论 查看全部评论
 
  DELPHI盒子版权所有 技术支持:深圳市麟瑞科技有限公司 1999-2024 V4.01 粤ICP备10103342号-1 更新RSS列表