收录日期:2021/02/25 15:19:58 时间:2016/07/21 16:19:30 标签:茶馆
各位高手:小妹急需在局域网中进行大文件可靠传输的BCB代码,测试管用,支付现金。
以前做过一个,对文件分段读取,分段传输.这个不是太难.也不知是否有更好的方法,有人能介绍迅雷或快车是如何做的就好了

小妹?现金?现在还有人会在意这些字眼吗?
如果不要求速度可以对大文件分多次读如缓冲区然后发送到接收端,接收端多次写入文件即可。
现金??好假啊,帮我充点Q币吧,我给你代码:【假设传输一很大的图片2M】
关键代码:【BCB6.0】

void __fastcall TForm1::ServerSocket1ClientRead(TObject *Sender,
      TCustomWinSocket *Socket)
{
    t++;
    Label3->Caption=IntToStr(t);
    byte buf[10000];
    if(a==0)
    {

     a=StrToInt(ServerSocket1->Socket->Connections[0]->ReceiveText());
     Label1->Caption=IntToStr(a);
         Socket->SendText("Begin");
    }
    else
    {

    baglen=ServerSocket1->Socket->Connections[0]->ReceiveLength();
    Label2->Caption=IntToStr(baglen);
    ServerSocket1->Socket->Connections[0]->ReceiveBuf(buf,baglen);
    BMP->Write(buf,baglen);

    if(BMP->Size>=a)
    {
      try
      {
         BMP->Position=0;
         Label2->Caption="finished!!";
         BMP->SaveToFile("222\\1.bmp");
      }
      __finally
      {
        BMP->Free();
        a=0;
       }
    }
   }
}
//---------------------------------------------------------------------------

以上是接受代码:
下面是发送:
[code=C/C++]
void __fastcall TForm1::ClientSocket1Read(TObject *Sender,
      TCustomWinSocket *Socket)
{
AnsiString Str=Socket->ReceiveText();
if(Str=="Begin")
{
    bmp->Position=0;
     ClientSocket1->Socket->SendStream(bmp);
     bmp->Position=0;
     bmp->Clear();
    Label2->Caption="sent!!";
}
}
//-

[/code]
4楼真够朋友,我的邮箱agz6895@sina.com.cn,请把帐号发我邮箱,最好工行的,若测试稳定可靠,奖100元,算是交个朋友,绝不食言。
bcb做简单的传输控件很多.女士做开发的确不多啊。我公司有位女士(VS开发)
引用 2 楼 ccrun 的回复:
小妹?现金?现在还有人会在意这些字眼吗?


才发现,你有搞笑天份。
很多年以前做的,希望对你会有帮助
http://topic.csdn.net/t/20031219/18/2582771.html
相对于大文件  FTP 是比较理想的
可以下载飞鸽传书呀,开源的项目
jf.............
标记一下.
http://topic.csdn.net/t/20031219/18/2582771.html
里面讲的不错,值得学习
哇塞,好多钱
很大的图片2M


试试能否输 0x100000000 (4G) 的文件,就可以传输字节为 0xFFFFFFFFFFFFFFFF 的真正意义上的最大文件了。

一般情况下30G以内的文件会有很多人使用。
2m不算大
真正大的话 还是建议用FTP

请高手指教! 请推荐下相关书籍好吗? 如何实现Paypal支付系统与后台的联接,Paypal有支付后,后台(已有)有提示 有哪位大侠知道“信息论”教材的下载地址 在下先谢谢了 一个棘手的mysql数据连接问题(时断时连) 如何获得一个表格单元格的位置 我想 节点下的所有子节点做为数据源,该怎么做? 就五分了,求高手把这个读取xml操作的类改写成从数据库是取数据 winform 关于画面迁移的问题:要求在打开新窗体的同时,关闭当前窗体。 如何使用AJAX批量删除数据 做.net两年了,在新公司要转正了,对待遇不满意,大家来看看我目前的处境…… 请教读取文本信息生成数组的问题 请大家帮我看下这个小程序,谢谢. 用odbc访问oracle 插入记录时, 大字段插不进去 其它字段没有问题 高手帮我看下 在连接SQL时出错 一个棘手的mysql数据连接问题(时断时连) windows系统用户,密码组合登陆判断的问题! struts里如果有多个输入框的属性指向同一个,actionForm里是不是自动会给数组赋值? 建视图 有意者请进 vc和labview的 交互?? 这是64位操作系统问题吗? e.Item .FindControl (\"lblFlag12\")为什么抓不到绑定的值呢?请帮忙看看!!! 如何自动备份作业,注意,我不想备份整个库(太大了),只想备份作业 基于AO的VC++开发,在VIEW类中调用CTREECTRL类的方法,运行时出错,帮帮我啊 谁做过社区卫生服务管理软件 感觉活得稀里糊涂!!!!!!!!!!-_- UNIX、Linux究竟应该学习哪一个? 如何利用javascript动态添加表格列? ……做.net两年了,在新公司要转正了,对待遇不满意,大家来看看我目前的处境…… 谁做过社区卫生服务管理软件