delphi网络疑难（500分相送）

我做的东西是一个局域网中：
  第一个程序要实现的功能是：先去查找局域网里面一个具体的IP号电脑，如果找到
就得到那个电脑的共享文件夹，点击就将这个文件夹保存起来，如果觉得这个文件很重要，你可以拷贝到自己的电脑里面。

  第二个程序要实现的功能是：要给局域网里的某一台电脑发送一个消息，问是否接受我
发送的一个文件给他，就像QICQ里面的那个传送文件的功能，就此一个功能而已。

谁有代码或者提供参考者，给我发信
E-mail:  [e-mail]

我在线等待，完毕给分。

4 个解决方案

#1

第一个问题，请看这个帖子
http://www.csdn.net/expert/topic/778/778435.xml?temp=.6028253
第二个问题：
你必须在对方建立一个服务段程序，在指定端口侦听，然后你的客户端程序
连接到对方的这个端口，先发出传送请求，如果对方接受，就把文件名、文件大小等等数据传过去，然后把文件内容传送过去。你可以使用Indy来完成很方便的。

#2

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

#3

debussy(debussy) 的方法不错。

#4

又是socket??老兄杀了我吧，我刚把socket的东西结了