给我你的email 我发例子给你

解决方案 »

  1.   

    来一个,谢了,[email protected]
      

  2.   

    能给我一个吗?[email protected],谢了
      

  3.   

    要硬件支持吧
    两台机子用MODEN连接对导数据
      

  4.   

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