Help me!如何在局域网里进行文件传输？

用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. 
      
      
     注释已经写得很清楚了，大家自己看吧。