用Delphi编写点对点传文件程序(1)

原创 2001年10月22日 10:29:00
用Delphi编写点对点传文件程序(1)

文章摘要:
 Delphi功能强大,用Delphi写软件,可以大大缩短软件的开发周期。本文介绍怎样用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???

用Delphi编写点对点传文件程序

2001年08月19日 18:49:00 文章摘要:   Delphi功能强大,用Delphi写软件,可以大大缩短软件的开发周期。本文介绍怎样用Delphi编写点对点传文件程序。 ...
  • softart
  • softart
  • 2007年10月27日 08:05
  • 288

用Delphi编写点对点传文件程序

文章摘要:   Delphi功能强大,用Delphi写软件,可以大大缩短软件的开发周期。本文介绍怎样用Delphi编写点对点传文件程序。        正文: 用Delphi编写点对点传文件程序  ...
  • ghj1976
  • ghj1976
  • 2001年08月19日 18:49
  • 1782

用Delphi编写点对点传文件程序(2)

用Delphi编写点对点传文件程序(2) end; end;cs.OnRead(Sender: TObject;Socket: TCustomWinSocket);varsTemp:string;bu...
  • zou5655
  • zou5655
  • 2001年10月22日 10:30
  • 838

(死去活来)Delphi IdTCPClient IdTCPServer 点对点传送文件

Delphi     IdTCPClient 点对点传送文件 客户端向另一个客户端传送文件,不通过服务端中转 那一个很重要的点是,这个客户端也要放一个IdTCPServer,也就是说这个客户端既是...
  • luojianfeng
  • luojianfeng
  • 2016年12月31日 23:40
  • 1727

用Delphi编写CGI程序(一)

用Delphi编写CGI程序(一)   1.0 、 CGI 程 序 的 功 能:     首 先, 什 么 是 公 共 网 关 接 口( CGI ) 呢? CGI 是 一 个 用 于 定 义 WEB ...
  • zou5655
  • zou5655
  • 2001年07月30日 19:29
  • 750

Delphi 编写DLL动态链接库文件的知识和样例

一、DLL动态链接库文件的知识简介:                   Windows的发展要求允许同时运行的几个程序共享一组函数的单一拷贝。动态链接库就是在这种情况下出现的。动态链接库不用重...
  • zang141588761
  • zang141588761
  • 2016年04月26日 10:10
  • 5068

怎么用C++实现点对点通信

怎么用C++实现点对点通信 1、使用c++TCP /IP 编程 ,socket 或者 RemoteFuncationsCall 远程方法调用 (RPC)。  2、服务器端: ...
  • DDFFR
  • DDFFR
  • 2016年10月22日 22:29
  • 1526

用VC编写点对点视频会议程序

该程序可以用于两个人在LAN/Intranet(或者 Internet)上进行视频会议。现在有许多视频会议程序,每个都有各自的性能提升技术。主要的问题是视频会议视频帧的尺寸对于传输来说太大。因此,性能...
  • CNCbird
  • CNCbird
  • 2009年11月15日 12:42
  • 388

Delphi实现程序自销毁(自杀)

unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialo...
  • sibang
  • sibang
  • 2014年08月21日 16:37
  • 646

通过创建无线点对点网络,让Mac和Windows7互相访问对方的共享文件夹

家里有两台笔记本电脑,一台Mac,另一台Windows7。现在需要能够让两台电脑都能访问对方的文件,因此打算创建一个点对点的无线局域网。1. 在Mac系统中创建无线网络。首先打开AirPort,也就是...
  • pucker
  • pucker
  • 2011年05月26日 01:16
  • 11681
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:用Delphi编写点对点传文件程序(1)
举报原因:
原因补充:

(最多只允许输入30个字)