关于在局域网中文件的传输!UP有分! 利用delphi自带的TClientSocket和TServerSocket就可以了。或者直接用socket api 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 用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=RecordsSendType=(ST_QUERY,ST_REFUSE,ST_DATA,ST_ABORT,...);iLength:integer;bufSend:Buffer;End; 我曾试过这个办法,但失败了,而且我一直认为我的方法是正确的,但程序一直编译通不过,估计是Delphi有问题:) 所以我在下列的范例程序中利用另外一种办法。Socket 类中有两属性ReceiveText和ReceiveBuf,在一个OnRead事件中,只能使用一次该两属性,所以我们可以利用一个全程变量来保存是该读Text还是Buf,也就是说读一次Text,再都一次Buf,这就模拟了TMyFileProtocol。开始程序:写一个最简单的,主要用于讲解方法。定义协议:ConstMP_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);beginss.Port:=2000;ss.Open;end;ss.OnClientRead(Sender: TObject;Socket: TCustomWinSocket);varsTemp:string;bufRecv:Pointer;iRecvLength:integer;beginif bReadText thenbeginsTemp:=Socket.ReceiveText;case sTemp[1] ofMP_QUERY:begin//在这里拒绝 SaveDialog1.FileName:=Copy(sTemp,2,Length(STemp));if SaveDialog1.Execute thenbegin Socket.SendText(MP_ACCEPT);fsRecv:=TFileStream.Create(SaveDialog1.FileName,fmCreate);endelse Socket.SendText(MP_REFUSE+’去死’);end;MP_FILEPROPERTY:begin//要发送StrToInt(Copy(sTemp,2,Length(sTemp))) 次//时间进度显示Socket.SendText(MP_NEXTWILLBEDATA);end;MP_NEXTWILLBEDATA:beginSocket.SendText(MP_DATA);bReadText:=false;end;MP_END:beginfsRecv.FreebReadText:=true;end;MP_ABORT:beginfsRecv.Free; bReadText:=true; end;MP_CHAT:begin//Chat Msgend;end;{of case}endelse begintryGetMem(bufRecv,2000);//2000 must >iBYTESENDSocket.ReceiveBuf(bufRecv^,iRecvLength);fsRecv.WriteBuffer(bufRecv^,iRecvLength);finallyFreeMem(bufRecv,2000);end;{of try}bReadText:=true;Socket.SendText(MP_NEXTWILLBEDATA);end;end;Client程序:放上以下控件:edtIPAddress,OpenDialog1,btnConnect,btnSendFile,cs. (TClientSocket)btnConnect.OnClick(Sender:TObject);begincs.Address:=edtIPAddress.Text;cs.Port:=2000;cs.Connect;end;btnSendFile.OnClick(Sender:TObject);beginif OpenDialog1.Execute thenBegincs.Socket.SendText(MP_QUERY+OpenDialog1.FileName);//FileSize???end; end;cs.OnRead(Sender: TObject;Socket: TCustomWinSocket);varsTemp:string;bufSend:pointer;beginsRecv:=Socket.ReceiveText;Case sRecv[1] ofMP_REFUSE:ShowMessage(’Faint,be refused!’);MP_ACCEPT:beginfsSend:=TFileStream.Create(OpenDialog1.FileName,fmOpen);//iBYTEPERSEND是个常量,每次发送包的大小。Socket.SendText(MP_FILEPROPERTY+Trunc(fsSend.Size/iBYTEPERSEND)+1);end;MP_NEXTWILLBEDATA:beginSocket.SendText(MP_NEXTWILLBEDATA);end;MP_DATA:begintryGetMem(bufSend,iBYTEPERSEND+1);if (fsSend.Position+1+iBYTEPERSEND) < fsSend.Size thenbeginfsSend.Read(bufSend^,iBYTEPERSEND);Socket.SendBuf(bufSend^,iBYTEPERSEND);fsSend.Free;end//普通的发送,大小为iBYTEPERSENDelse beginfsSend.Read(bufSend^,fsSend.Size-fsSend.Position-1);Socket.SendBuf(bufSend^,fsSend.Size-fsSend.Position-1);end;//最后一次发送,发送剩余的数据finallyFreeMem(bufSend,iBYTEPERSEND+1);end;{of try}end;MP_ABORT:begin//被取消了:(fsSend.Free;end;end;{of case}end; 用Indy的Stream方式在网络中间传递文件 Indy的使用TCP协议的控件都是基于TIdConnection的,而TIdConnection有一个方法就是使用stream来发送和接收数据,下面的例子我们建立了一个服务器程序和一个客户端程序,当客户端程序连接到服务器之后,服务器把预选选择的文件的名字发送给客户程序,然后把文件的内容发送给客户端,客户端程序收到数据之后按照开始收到的文件名保存为一个文件。 我们新建一个Application,在窗体上放入一个Memo,三个按钮,分别是"Select File"、"Start Server"和"Clear",再放入一个OpenFileDialog组件,这就是服务器端的窗体设计。我们再新建一个Application,放入一个ListView,一个Edit和一个按钮"Connect",这就是客户端的窗体设计。 下面是服务器端的代码: *************************************************************** * * Project : Server * Unit Name: ServerMain * Purpose : Demonstrates basic use of IdTCPServer * Date : 16/01/2001 - 03:19:36 * History : * ****************************************************************} unit ServerMain; interface uses SysUtils, Classes, graphics, controls, FORMs, dialogs, IdBaseComponent, IdComponent, IdTCPServer, StdCtrls, ExtCtrls, IdAntiFreezeBase, IdAntiFreeze, Buttons; type TfrmServer = class(TFORM) TCPServer: TIdTCPServer; Panel1: TPanel; Memo1: TMemo; IdAntiFreeze1: TIdAntiFreeze; SpeedButton1: TSpeedButton; SpeedButton2: TSpeedButton; OpenDialog: TOpenDialog; SpeedButton3: TSpeedButton; procedure TCPServerExecute(AThread: TIdPeerThread); procedure SpeedButton1Click(Sender: TObject); procedure SpeedButton2Click(Sender: TObject); procedure SpeedButton3Click(Sender: TObject); private public end; var frmServer: TfrmServer; SendFileName: string; implementation {$R *.DFM} procedure TfrmServer.TCPServerExecute(AThread: TIdPeerThread); var SendFile: TFileStream; begin with AThread.Connection do begin Memo1.Lines.Add('Sending file '+SendFileName);//在Memo里添加要发送的文件名称 WriteLn(SendFileName);//把文件名发送给客户端 SendFile := TFileStream.Create(SendFileName, fmOpenRead);//创建一个TFileStream,打开我们要发送的文件 WriteStream(SendFile);//使用流模式把文件发送到客户端 Memo1.Lines.Add('Total ' + IntToStr(SendFile.Size) + ' Bytes sent');//显示总共发送的字节数 Disconnect;//断开连接 SendFile.Free;//释放流对象 end; end; procedure TfrmServer.SpeedButton1Click(Sender: TObject); begin Memo1.Lines.Clear; end; procedure TfrmServer.SpeedButton2Click(Sender: TObject); begin if OpenDialog.Execute then//执行文件选择标准对话框,选择要发送的文件 begin SendFileName := OpenDialog.Filename;//文件名赋值给SendFileName变量 end; end; procedure TfrmServer.SpeedButton3Click(Sender: TObject); begin TCPServer.Active := True;//启动服务器 SpeedButton3.Enabled := False; end; end. 整个流程是先点击"Select File"选择一个文件,然后点击"Start Server"启动服务器,等待客户端的连接,当有客户端程序连接,就先发送文件名称,然后发送文件内容,以后如果要发送新的文件,只需要重新选择文件即可。下面是客户端实现的代码: {*************************************************************** * * Project : Client * Unit Name: ClientMain * Purpose : Demonstrates basic interaction of IdTCPClient with server * Date : 16/01/2001 - 03:21:02 * History : * ****************************************************************} unit ClientMain; interface uses {$IFDEF Linux} QFORMs, QGraphics, QControls, QDialogs, QStdCtrls, QExtCtrls, {$ELSE} windows, messages, graphics, controls, FORMs, dialogs, stdctrls, extctrls, {$ENDIF} SysUtils, Classes, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, ComCtrls, IdAntiFreezeBase, IdAntiFreeze, Buttons; type TFORM2 = class(TFORM) TCPClient: TIdTCPClient; pnlTop: TPanel; btnGo: TButton; lstMain: TListBox; Edit1: TEdit; UpDown1: TUpDown; Edit2: TEdit; IdAntiFreeze1: TIdAntiFreeze; SpeedButton1: TSpeedButton; procedure btnGoClick(Sender: TObject); procedure SpeedButton1Click(Sender: TObject); private public end; var FORM2: TFORM2; implementation {$IFDEF Linux}{$R *.xfm}{$ELSE}{$R *.DFM}{$ENDIF} // Any data received from the client is added as a text line in the ListBox procedure TFORM2.btnGoClick(Sender: TObject);//点击了Go按钮,连接到服务器 var ReadFile: TMemoryStream; RecevFileName: string; begin TCPClient.Host := Edit2.Text;//服务器的地址为Edit2的内容(端口我们已经指定为8090,这个是在属性面板里面设置的 ) with TCPClient do begin Connect;//连接到服务器 while Connected do begin ReadFile := TMemoryStream.Create;//创建一个TMemoryStram对象 try RecevFileName := ReadLn;//从服务器端获得文件名 lstMain.Items.Add('Receving file ' + RecevFileName);//显示到ListView中 ReadStream(ReadFile, -1, True);//以流模式从服务器端获得文件内容,参数分别是ReadFile表示流对象,-1表示一直读取直到对方断开,True表示在NT操作系统下提高性能,对9x无效 lstMain.items.Add('Total ' + IntToStr(ReadFile.Size) + ' Bytes recevied');//显示总共接收到多少数据 ReadFile.Seek(0, soFromBeginning);//定位流指针到开始 ReadFile.SaveToFile(ExtractFileName(RecevFileName));//把流中的内容保存到文件中去 finally Disconnect;//断开连接 ReadFile.Free;//释放流对象 end; end; end; end; procedure TFORM2.SpeedButton1Click(Sender: TObject); begin lstMain.Items.Clear; end; end. 注释已经写得很清楚了,大家自己看吧。 请教简单的多线程问题 制作升级包的一般思路 怎样把含有数字和汉字的,十六进制字符串,转化为汉字 dbcombobox的问题? 计算字段值问题? 求救!!如何在delphi中控制windows的有关操作!!急!在线等!100份!! 关于adoquery的filter的用法。 消息HOOK!谁帮我写一个!? 有两个问题向请教各位高手,谢谢! 关于Case Of 如何用DELPHI实现类似PowerBuilder的下拉数据窗口是多字段显示的那种 给分
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) < fsSend.Size then
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;
Indy的使用TCP协议的控件都是基于TIdConnection的,而TIdConnection有一个方法就是使用stream来发送和接收数据,下面的例子我们建立了一个服务器程序和一个客户端程序,当客户端程序连接到服务器之后,服务器把预选选择的文件的名字发送给客户程序,然后把文件的内容发送给客户端,客户端程序收到数据之后按照开始收到的文件名保存为一个文件。
我们新建一个Application,在窗体上放入一个Memo,三个按钮,分别是"Select File"、"Start Server"和"Clear",再放入一个OpenFileDialog组件,这就是服务器端的窗体设计。我们再新建一个Application,放入一个ListView,一个Edit和一个按钮"Connect",这就是客户端的窗体设计。
下面是服务器端的代码:
***************************************************************
*
* Project : Server
* Unit Name: ServerMain
* Purpose : Demonstrates basic use of IdTCPServer
* Date : 16/01/2001 - 03:19:36
* History :
*
****************************************************************} unit ServerMain; interface uses
SysUtils, Classes, graphics, controls, FORMs, dialogs,
IdBaseComponent, IdComponent, IdTCPServer, StdCtrls, ExtCtrls,
IdAntiFreezeBase, IdAntiFreeze, Buttons; type
TfrmServer = class(TFORM)
TCPServer: TIdTCPServer;
Panel1: TPanel;
Memo1: TMemo;
IdAntiFreeze1: TIdAntiFreeze;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
OpenDialog: TOpenDialog;
SpeedButton3: TSpeedButton;
procedure TCPServerExecute(AThread: TIdPeerThread);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
private
public
end; var
frmServer: TfrmServer;
SendFileName: string; implementation
{$R *.DFM} procedure TfrmServer.TCPServerExecute(AThread: TIdPeerThread);
var
SendFile: TFileStream; begin
with AThread.Connection do
begin
Memo1.Lines.Add('Sending file '+SendFileName);//在Memo里添加要发送的文件名称 WriteLn(SendFileName);//把文件名发送给客户端 SendFile := TFileStream.Create(SendFileName, fmOpenRead);//创建一个TFileStream,打开我们要发送的文件 WriteStream(SendFile);//使用流模式把文件发送到客户端 Memo1.Lines.Add('Total ' + IntToStr(SendFile.Size) + ' Bytes sent');//显示总共发送的字节数
Disconnect;//断开连接 SendFile.Free;//释放流对象 end;
end; procedure TfrmServer.SpeedButton1Click(Sender: TObject);
begin
Memo1.Lines.Clear;
end; procedure TfrmServer.SpeedButton2Click(Sender: TObject);
begin
if OpenDialog.Execute then//执行文件选择标准对话框,选择要发送的文件 begin
SendFileName := OpenDialog.Filename;//文件名赋值给SendFileName变量 end;
end; procedure TfrmServer.SpeedButton3Click(Sender: TObject);
begin
TCPServer.Active := True;//启动服务器 SpeedButton3.Enabled := False;
end; end.
整个流程是先点击"Select File"选择一个文件,然后点击"Start Server"启动服务器,等待客户端的连接,当有客户端程序连接,就先发送文件名称,然后发送文件内容,以后如果要发送新的文件,只需要重新选择文件即可。下面是客户端实现的代码:
{***************************************************************
*
* Project : Client
* Unit Name: ClientMain
* Purpose : Demonstrates basic interaction of IdTCPClient with server
* Date : 16/01/2001 - 03:21:02
* History :
*
****************************************************************} unit ClientMain; interface uses
{$IFDEF Linux}
QFORMs, QGraphics, QControls, QDialogs, QStdCtrls, QExtCtrls,
{$ELSE}
windows, messages, graphics, controls, FORMs, dialogs, stdctrls, extctrls,
{$ENDIF}
SysUtils, Classes,
IdBaseComponent,
IdComponent, IdTCPConnection, IdTCPClient, ComCtrls, IdAntiFreezeBase,
IdAntiFreeze, Buttons; type
TFORM2 = class(TFORM)
TCPClient: TIdTCPClient;
pnlTop: TPanel;
btnGo: TButton;
lstMain: TListBox;
Edit1: TEdit;
UpDown1: TUpDown;
Edit2: TEdit;
IdAntiFreeze1: TIdAntiFreeze;
SpeedButton1: TSpeedButton;
procedure btnGoClick(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
private
public
end; var
FORM2: TFORM2;
implementation
{$IFDEF Linux}{$R *.xfm}{$ELSE}{$R *.DFM}{$ENDIF}
// Any data received from the client is added as a text line in the ListBox
procedure TFORM2.btnGoClick(Sender: TObject);//点击了Go按钮,连接到服务器 var
ReadFile: TMemoryStream;
RecevFileName: string;
begin
TCPClient.Host := Edit2.Text;//服务器的地址为Edit2的内容(端口我们已经指定为8090,这个是在属性面板里面设置的 ) with TCPClient do
begin
Connect;//连接到服务器 while Connected do
begin
ReadFile := TMemoryStream.Create;//创建一个TMemoryStram对象 try
RecevFileName := ReadLn;//从服务器端获得文件名 lstMain.Items.Add('Receving file ' + RecevFileName);//显示到ListView中 ReadStream(ReadFile, -1, True);//以流模式从服务器端获得文件内容,参数分别是ReadFile表示流对象,-1表示一直读取直到对方断开,True表示在NT操作系统下提高性能,对9x无效 lstMain.items.Add('Total ' + IntToStr(ReadFile.Size) + ' Bytes recevied');//显示总共接收到多少数据 ReadFile.Seek(0, soFromBeginning);//定位流指针到开始 ReadFile.SaveToFile(ExtractFileName(RecevFileName));//把流中的内容保存到文件中去 finally
Disconnect;//断开连接 ReadFile.Free;//释放流对象 end;
end;
end;
end; procedure TFORM2.SpeedButton1Click(Sender: TObject);
begin
lstMain.Items.Clear;
end; end.
注释已经写得很清楚了,大家自己看吧。