Indy的IdTCPServer和IdTCPClient的性能和可靠性怎么样? 谁有较为复杂点的例子?最好有跟IdThreadMgrPool等一起配合使用的例子!(DELPHI6自带的例子太简单)另:如果不使用IdTCPClient,但是想使用IdTCPServer,那该怎么办? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 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. 注释已经写得很清楚了,大家自己看吧。 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. 注释已经写得很清楚了,大家自己看吧。 没有规定必须同时用TIdTCPClient和TIdTCPServer啊,如果你做的是服务器程序,就可以只用TIdTCPServer. 非常感谢debussy,这么快就回复。我就是只做服务器程序。主要是如果客户端不使用Indy系列控件时怎么实现?因为系统数据量比较大,可靠性要求高,所以我也比较关注这些。 Indy如果可靠性不高,Delphi6不会他把作为标准内置网络控件,Borland也不是傻瓜。因为都遵循的是TCP协议所以不必客户端也要用Indy啊,没有谁规定写网络程序必须用同一种控件,假设Netant用了Indy,那么对于其他服务器不是用Indy的站点(至少Apache,IIS就不是,而这两种WebServer占了80%以上),那岂不是蚂蚁都不能用了?呵呵,想想看吧。 我知道客户端可以不用Indy,但关键是怎么实现,因为Indy组应件毕竟是有了一套机制,与之通信肯定要遵循某些机制如阻塞、多线程等,相应的采取什么模式或方法。另外请教如何跟IdThreadMgrPool等一起配合使用? 强烈关注!tellmenow2001() 兄:有结果了吗?假如客户端是非阻塞模式,怎样和Indy服务器组件配合编程?还有那个IdThreadMgrPool,说的很好,怎么用?强烈关注! 很像详细了解Indy的TCPServer的工作原理,比如OnExcute事件到底是同一个线程中运行的还是在多个PeerThread中分别运行的? WideString 类型怎么会多出两个零零 是否可以实现.. 使用printer打印,16位色的图片全黑 如何提取网页中的背景图和FLASH图 字符串的问题? 请教一个简单的问题 数据库更新表的问题 我完全迷惑了?叫我如何抉择? 在用form2的button1调用form1中的button1事件时,一定要先create form1吗?(form1和form2都是MDI的fsMDIChild) 如何把通过摄像头取下的照片来保存?? 如何使DBCOMBOBOX在窗体创建时为空,用鼠标单击时显示出库中表的数据 成都的同行请进来报到
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.
注释已经写得很清楚了,大家自己看吧。
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.
注释已经写得很清楚了,大家自己看吧。
我就是只做服务器程序。
主要是如果客户端不使用Indy系列控件时怎么实现?
因为系统数据量比较大,可靠性要求高,所以我也比较关注这些。
另外请教如何跟IdThreadMgrPool等一起配合使用?
假如客户端是非阻塞模式,怎样和Indy服务器组件配合编程?还有那个IdThreadMgrPool,说的很好,怎么用?强烈关注!