<!-- #BeginEditable "topic" --> 用Delphi编写点对点传文件程序
Delphi功能强大,用Delphi写软件,可以大大缩短软件的开发周期。关于点对点传文件的基本思路,就是一个服务器软件,一个客户端软件,使用同一个端口,待连接上以后,客户端给服务器发送一个请求,包括待传的文件的文件名,大小等,如果服务器接受,就开始传文件。当然,文件传输的时候可以有两种模式,ASCII码和Bin,不过一般通用Bin 就可以了。基于上面的讨论,本来用Delphi4的NMStrm,NMStrmServ 控件就可以完成,但是我测试过了,NMStrm控件对于较小的文件还可以使用,而且很方便,但是如果文件一大(1M)就会出错。所以接下来我们利用Delphi中TServerSocket和TClientSocket写这个程序由于以太包大小的限制以及DelphiSocket的处理机制(Delphi中,当你用一个Socket发送一个较大的Stream,接受方会激发多次OnRead事件,Delphi她只保证多次OnRead事件中每次数据的完整,而不会自己收集数据并返回给用户。所以不要以为你把待传文件在一个Socket中Send一次,另一个中Recv一次就可以了。你必须自己收集数据或自己定义协议。),所以我们采用自定义协议的方法。定义协议的规范方法是利用Record End。如: TMyFileProtocol=Record sSendType=(ST_QUERY,ST_REFUSE,ST_DATA,ST_ABORT,...); iLength:integer; bufSend:Buffer; End; 我曾试过这个办法,但失败了,而且我一直认为我的方法是正确的,但程序一直编译通不过,估计是Delphi有问题:) 所以我在下列的范例程序中利用另外一种办法。Socket 类中有两属性ReceiveText和ReceiveBuf,在一个OnRead事件中,只能使用一次该两属性,所以我们可以利用一个全程变量来保存是该读Text还是Buf,也就是说读一次Text,再都一次Buf,这就模拟了TMyFileProtocol。
开始程序: 写一个最简单的,主要用于讲解方法。 定义协议: Const MP_QUERY ='1'; MP_REFUSE ='2'; MP_ACCEPT ='3'; MP_NEXTWILLBEDATA='4'; MP_DATA ='5'; MP_ABORT ='6'; MP_OVER ='7'; MP_CHAT ='8';
协议简介: 首先由Client发送MP_QUERY,Server接受到后发送MP_ACCEPT或MP_FEFUESE; Client接受到MP_ACCEPT发送MP_FILEPROPERTY,Server接受到后发送MP_NEXTWILLBEDATA; Client接受到发送MP_NEXTWILLBEDATA,Server接受到后发送MP_DATA; Client接受到MP_DATA,发送数据,Server接受数据,并发送MP_NEXTWILLBEDATA; 循环,直到Client发送MP_OVER; 中间可以互相发送MP_CHAT+String;
Server程序: 放上以下控件:SaveDialog1,btnStartServer, ss,(TServerSocket)
btnStartServer.OnClick(Sender:TObject); begin ss.Port:=2000; ss.Open; end;
ss.OnClientRead(Sender: TObject;Socket: TCustomWinSocket); var sTemp:string; bufRecv:Pointer; iRecvLength:integer; begin if bReadText then begin sTemp:=Socket.ReceiveText; case sTemp[1] of MP_QUERY:begin //在这里拒绝 SaveDialog1.FileName:=Copy(sTemp,2,Length(STemp)); if SaveDialog1.Execute then begin Socket.SendText(MP_ACCEPT); fsRecv:=TFileStream.Create(SaveDialog1.FileName,fmCreate); end else Socket.SendText(MP_REFUSE+'去死'); end; MP_FILEPROPERTY:begin //要发送StrToInt(Copy(sTemp,2,Length(sTemp))) 次 //时间进度显示。。。 Socket.SendText(MP_NEXTWILLBEDATA); end; MP_NEXTWILLBEDATA:begin Socket.SendText(MP_DATA); bReadText:=false; end; MP_END:begin fsRecv.Free bReadText:=true; end; MP_ABORT:begin fsRecv.Free; bReadText:=true; end; MP_CHAT:begin //Chat Msg end; end;{of case} end else begin try GetMem(bufRecv,2000);//2000 must >iBYTESEND Socket.ReceiveBuf(bufRecv^,iRecvLength); fsRecv.WriteBuffer(bufRecv^,iRecvLength); finally FreeMem(bufRecv,2000); end;{of try} bReadText:=true; Socket.SendText(MP_NEXTWILLBEDATA); end; end;
Client程序: 放上以下控件:edtIPAddress,OpenDialog1,btnConnect,btnSendFile, cs. (TClientSocket)
btnConnect.OnClick(Sender:TObject); begin cs.Address:=edtIPAddress.Text; cs.Port:=2000; cs.Connect; end;
btnSendFile.OnClick(Sender:TObject); begin if OpenDialog1.Execute then Begin cs.Socket.SendText(MP_QUERY+OpenDialog1.FileName);//FileSize??? end; end;
cs.OnRead(Sender: TObject;Socket: TCustomWinSocket); var sTemp:string; bufSend:pointer; begin sRecv:=Socket.ReceiveText; Case sRecv[1] of MP_REFUSE:ShowMessage('Faint,be refused!'); MP_ACCEPT:begin fsSend:=TFileStream.Create(OpenDialog1.FileName,fmOpen); //iBYTEPERSEND是个常量,每次发送包的大小。 Socket.SendText(MP_FILEPROPERTY+Trunc(fsSend.Size/iBYTEPERSEND)+1); end; MP_NEXTWILLBEDATA:begin Socket.SendText(MP_NEXTWILLBEDATA); end; MP_DATA:begin try GetMem(bufSend,iBYTEPERSEND+1); if (fsSend.Position+1+iBYTEPERSEND) begin fsSend.Read(bufSend^,iBYTEPERSEND); Socket.SendBuf(bufSend^,iBYTEPERSEND); fsSend.Free; end//普通的发送,大小为iBYTEPERSEND else begin fsSend.Read(bufSend^,fsSend.Size-fsSend.Position-1); Socket.SendBuf(bufSend^,fsSend.Size-fsSend.Position-1); end;//最后一次发送,发送剩余的数据 finally FreeMem(bufSend,iBYTEPERSEND+1); end;{of try} end; MP_ABORT:begin //被取消了:( fsSend.Free; end; end;{of case} end;
整理程序: 加入错误判断,优化程序,把Server和Client联合在一起,加入剩余时间进度显示,做成能一次传多个文件,加入聊天功能,就成了一个很好的点对点传文件的程序。
|
相关推荐
Delphi编写的虚拟硬盘文件浏览程序,这段代码只实现了很小的功能,对分区格式有限制,只能读取不能写入,只能读取C盘根目录下的文件.等等.代码里符带一份学习笔记,是Fat分区格式的,不是太详细,到数据恢复网可以找到详细...
一个用delphi写的安装程序. 经常在网上看到一些网友询问用什么工具来作安装程序,或是某某安装程序的用法.想了一下,其实也很好作. 主要原理是把要安装的文件作成资源文件,安装时再把资源文件从程序是释放出来....
11.1.2 在Delphi程序中使用多线程 304 11.1.3 关于线程的滥用 305 11.2 TThread对象 305 11.2.1 TThread基础 305 11.2.2 TThread实例 307 11.2.3 线程的终止 307 11.2.4 与VCL同步 308 11.2.5 一个演示程序 310 ...
启动Windows 95或Windows NT后,将Delphi的光盘放入光驱(CD-ROM)中,运行光盘上的\INSTALL\SETUP.EXE文件,它的安装程序会提示您正确地装入Delphi。如果您是在微软中文Windows环境中安装Delphi,请参照附录A来设置您...
0019 构成Delphi项目的主要文件 12 0020 如何在程序中调用帮助文件 12 第2章 语言基础 17 2.1 基础语言 18 0021 如何对代码进行注释 18 0022 Exit语句的使用 18 0023 有效地使用Self对象 19 0024 ...
要知道,在某些语言中,一些特殊的接口是无法识别和使用的, Visual Graph为此进行了精细设计,既照顾了方方面面不同的语言环境,同时编写程序还非常方便。 易用性: 程序员大都熟悉可视化编程,VB、Delphi、C#...
Windows虚拟化了显示硬件,使为Windows编写的程序可使用任何具有Windows设备驱动程序的视频卡或打印机,而程序无需确定系统相连的设备类型。 对Windows开发者来说,将与设备无关的图形接口输出到IBM PC上不是件轻松...
Java局域网通信——飞鸽传书源代码,大家都知道VB版、VC版还有Delphi版的飞鸽传书软件,但是Java版的确实不多,因此这个Java文件传输实例不可错过,Java网络编程技能的提升很有帮助。 Java聊天程序,包括服务端和...
Java局域网通信——飞鸽传书源代码,大家都知道VB版、VC版还有Delphi版的飞鸽传书软件,但是Java版的确实不多,因此这个Java文件传输实例不可错过,Java网络编程技能的提升很有帮助。 Java聊天程序,包括服务端和...
Java局域网通信——飞鸽传书源代码,大家都知道VB版、VC版还有Delphi版的飞鸽传书软件,但是Java版的确实不多,因此这个Java文件传输实例不可错过,Java网络编程技能的提升很有帮助。 Java聊天程序,包括服务端和...
Java局域网通信——飞鸽传书源代码,大家都知道VB版、VC版还有Delphi版的飞鸽传书软件,但是Java版的确实不多,因此这个Java文件传输实例不可错过,Java网络编程技能的提升很有帮助。 Java聊天程序,包括服务端和...
主程序实际上只是用Delphi开发的GUI界面的外壳程序,核心的解密功能部分来自互联网上的收集整理,我所做的外壳编程,仅是在原有的各个解密内核版本Dezender的功能上,开发基于windows的用户界面,以便于使用者对原有...
Java局域网通信——飞鸽传书源代码,大家都知道VB版、VC版还有Delphi版的飞鸽传书软件,但是Java版的确实不多,因此这个Java文件传输实例不可错过,Java网络编程技能的提升很有帮助。 Java聊天程序,包括服务端和...
Applet钢琴模拟程序java源码 2个目标文件,提供基本的音乐编辑功能。编辑音乐软件的朋友,这款实例会对你... //增加信息 …… Java实现的点对点短消息发送协议(smpp)开发包源码 70个目标文件,如题。 Java实现的放大...