用TTcpClient和TTcpServer进行文件的传输
发送数据时有Sendln,SendBuf,SendStream。接收数据时有Receiveln,ReceiveBuf,当时我很奇怪为什么没有ReceiveStream。因为很自然的想到是对应关系的。但当时我不知道,发数据时是一小段一小段地发的
看看SendStream代码:
- function TBaseSocket.SendStream(AStream: TStream): Integer;
- var
- BufLen: Integer;
- Buffer: array[0..511] of Byte;
- begin
- Result := 0;
- if Assigned(AStream) then
- begin
- repeat
- BufLen := AStream.Read(Buffer, SizeOf(Buffer));
- until (BufLen = 0) or (SendBuf(Buffer, BufLen) = SOCKET_ERROR);
- end;
- end;
从以上代码可看到,SendStream一次最多发送512字节的内容,所以,我们这接收端循环用ReceiveBuf接收就可以了。不用像以前那样写得又复杂乱。
发送端(Client)代码:
- unit Unit1;
- interface
- uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, StdCtrls, Sockets;
- type
- TForm1 = class(TForm)
- tcpclnt1: TTcpClient;
- btn1: TButton;
- procedure btn1Click(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
- var
- Form1: TForm1;
- implementation
- {$R *.dfm}
- procedure TForm1.btn1Click(Sender: TObject);
- var
- f : TFileStream;//文件流
- i : Integer;
- fn : string;//文件名
- begin
- {用for循环是实现发送多个文件,如果只是发送一个文件,不用循环}
- for i := 1 to 11 do
- begin
- tcpclnt1.Connect; //连接服务端,我把TTcpClient的BlockMode设为bmBlocking
- fn := 'a' + IntToStr(i) + '.rar';
- f := TFileStream.Create('d:/send/' + fn,fmOpenRead); //用文件流以读方式打开要发送的文件
- tcpclnt1.Sendln(fn); //给对方发送文件名
- tcpclnt1.Sendln(IntToStr(f.Size)); //给对方发送文件大小
- tcpclnt1.SendStream(f); //发送文件流
- f.Free;//释放文件流
- tcpclnt1.Disconnect;//关闭连接
- end;
- end;
- end.
接收端(Server)代码:
- unit Unit1;
- interface
- uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, Sockets;
- type
- TForm1 = class(TForm)
- tcpsrvr1: TTcpServer;
- procedure FormActivate(Sender: TObject);
- procedure tcpsrvr1Accept(Sender: TObject;
- ClientSocket: TCustomIpClient);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
- var
- Form1: TForm1;
- implementation
- {$R *.dfm}
- procedure TForm1.FormActivate(Sender: TObject);
- begin
- tcpsrvr1.Open; //在OnActive事件中启动TCPServer的监听
- end;
- procedure TForm1.tcpsrvr1Accept(Sender: TObject;
- ClientSocket: TCustomIpClient);
- var
- f : TFileStream; //文件流
- iFileSize : Integer; //文件大小
- iTotalRec : Integer; //总接收到的字节数,用来和文件大小比较,如果比文件大小的值要小,就还要继续接收
- iacRec : Integer; //每一次ReceiveBuf实际接收到的字节数
- pbuf : Pointer; //缓存指针
- i : Integer;
- fn : string; //文件名
- begin
- GetMem(pbuf,512); //我们一次最多也读取512字节
- try
- iTotalRec := 0; //先把总接收到的字节数置零
- fn := ClientSocket.Receiveln; //接收文件名
- iFileSize := StrToInt(ClientSocket.Receiveln); //接收文件大小,接收到的字符串,要转成integer
- f := TFileStream.Create('d:/rec/'+ fn,fmCreate);//创建文件
- try
- {如果接收到的总字节数小于文件总字节数且实际接收字节数不为-1就一直循环接收}
- while iTotalRec < iFileSize do
- begin
- iacRec := ClientSocket.ReceiveBuf(pbuf^,512);//一次接收512字节
- if iacRec = -1 then
- Break;//如果实际接收字节数是-1表示出错了,退出循环(应该写个log,或作出错处理什么的)
- f.Write(pbuf^,iacRec);//把接收到的数据写到文件流中
- Inc(iTotalRec,iacRec);//叠加接收到的总字节数
- end;
- finally
- f.Free; //释放流
- end;
- finally
- FreeMem(pbuf);//释放内存
- end;
- end;
- end.

用TTcpClient和TTcpServer进行文件的传输的更多相关文章
- windows与linux之间文件的传输方式总结(转)
当然,windows与linux之间文件的传输的两种方式有很多,这里就仅仅列出工作中遇到的,作为笔记: 方法一:安装SSH Secure Shell Client客户端 安装即可登录直接拖拉到linu ...
- Linux SSH远程文件/目录传输命令scp
转载地址:http://www.vpser.net/manage/scp.html 相信各位VPSer在使用VPS时会经常在不同VPS间互相备份数据或者转移数据,大部分情况下VPS上都已经安装了Ngi ...
- C# TCP实现多个客户端与服务端 数据 与 文件的传输
C#菜鸟做这个东东竟然花了快三天的时间了,真是菜,菜,菜--- 下面是我用C#写的 一个简单的TCP通信,主要的功能有: (1) 多个客户端与服务器间的数据交流 (2)可以实现群发的功能 (3)客户端 ...
- Linux scp 远程文件/目录传输
Linux scp远程文件/目录传输 1.获取远程服务器上的文件 scp -P 22 root@www.test.com:/root/test.tar.gz /home/test.tar.gz 上端口 ...
- DOS命令行使用pscp实现远程文件和文件夹传输(转)
转自 http://snailwarrior.blog.51cto.com/680306/141201 pscp是putty安装包所带的远程文件传输工具,使用和Linux下scp命令相似,具体的使 ...
- 简单实现TCP下的大文件高效传输
简单实现TCP下的大文件高效传输 在TCP下进行大文件传输不象小文件那样直接打包个BUFFER发送出去,因为文件比较大所以不可能把文件读到一个BUFFER发送出去.主要有些文件的大小可能是1G,2G或 ...
- windows与linux之间文件的传输
这边记录一下如何在windows与linux之间进行文件的传输,下面是具体的网址. 原文地址::http://blog.csdn.net/shufac/article/details/51966276 ...
- Windows与Linux之间海量文件的传输与Linux下大小写敏感问题
Windows与Linux之间海量文件的传输与Linux下大小写敏感问题 mount.cifs 支持通过网络文件系统挂载,不过需要安装cifs-utils,也可通过mount -t cifs挂载,详细 ...
- 使用linux的nc来进行文件的传输
NAME nc - arbitrary TCP and UDP connections and listensSYNOPSIS nc [-46DdhklnrStUuvz] [-i interv ...
随机推荐
- Redis管理及监控工具
Redis管理及监控工具 Redis做为现在web应用开发的黄金搭担组合,大量的被应用,广泛用于存储session信息,权限信息,交易作业等热数据.做为一名有10年以上JAVA开发经验的程序员,工作中 ...
- SQLite做为本地缓存的应用需要注意的地方
原文:SQLite做为本地缓存的应用需要注意的地方 今天看到了园友陆敏计的一篇文章<<C#数据本地存储方案之SQLite>>, 写到了SQLite的诸多优点,尤其适应于本地数据 ...
- 华为如何实现基于Git的跨地域协同开发
跨地域开发的需求其实由来已久,在IT/互联网发展的早期就已存在,只不过限于当时网络环境的因素,无法在线上有效的完成协同工作,所以没法实际开展.而随着近十年网络的快速发展,跨地域协同开发线变得可能而且越 ...
- jquery 源码学习(二)
在网上找到一篇广为流传的文章<常用正则表达式>,逐一分析,不足地方进行补充和纠正 作者:nuysoft/JS攻城师/高云 QQ:47214707 EMail:nuysoft@gmail ...
- sql 声明 将结果select 而混合值
String slctpsql="select id ,"+uid+","+ddd+","+score+",'"+mar ...
- 数据批量插入MSSQL
MSSQL数据批量插入优化详细 序言 现在有一个需求是将10w条数据插入到MSSQL数据库中,表结构如下,你会怎么做,你感觉插入10W条数据插入到MSSQL如下的表中需要多久呢? 或者你的批量数据 ...
- jQuery插件接口的实现,jquery.extend
http://www.imooc.com/code/3403 如果jQuery没有插件接口的设计,那么他就像个光杆司令没有兵,就是没有手下,只有自己一个封闭的城堡.因此jQuery城堡需要设计一个大门 ...
- TBB、OpenCV混合编程
TBB提供了Parallel_for.Parallel_do.Parallel_reduce等通用并行算法,可以应用在不同的并行算法场合,Parallel_for适合用在多个数据或请求之间彼此没有依赖 ...
- C# WPF 低仿网易云音乐(PC)Banner动画控件
原文:C# WPF 低仿网易云音乐(PC)Banner动画控件 由于技术有限没能做到一模一样的动画,只是粗略地做了一下.动画有点生硬,还有就是没做出网易云音乐的立体感.代码非常简单粗暴,而且我也写有很 ...
- VC实现程序重启的做法
作者:朱金灿 来源:http://blog.csdn.net/clever101 很多时候系统有很多配置项,修改了配置项之后能有一个按钮实现系统重启.所谓重启就是杀死系统的当前进程,然后重新开一个新进 ...