（死去活来）Delphi IdTCPClient IdTCPServer 点对点传送文件

Delphi     IdTCPClient 点对点传送文件


客户端向另一个客户端传送文件，不通过服务端中转
那一个很重要的点是，这个客户端也要放一个IdTCPServer，也就是说这个客户端既是客户端，当接收文件的时候也是服务端，必须相应其它客户


端对它的连接，这个时候客户端相当与服务端，好了，明白这个道理就好办了

A客户端（放一个IdTCPClient控件，发送文件）

procedure TFormFileSend.FormShow(Sender: TObject);//连接到服务端，同时自己变成服务端
begin

  //自己变成服务端
  IdTCPServer1.Bindings.Clear;
  IdTCPServer1.Bindings.Add.IP:='192.168.252.1';
  IdTCPServer1.Bindings.Add.Port:=8831;
  IdTCPServer1.Active:=true;
  if  IdTCPServer1.Active then
  begin
    Memo1.Lines.Add('服务器已启动');
  end
  else
  begin
    Memo1.Lines.Add('服务器已停止');
  end;

  //连接到服务端
  IdTCPClient1.Host:=FormMain.host;//'192.168.252.1';
  IdTCPClient1.Port:=StrToInt(FormMain.port);//8829;
  if IdTCPClient1.Connected then
    IdTCPClient1.Disconnect;
  Try
    IdTCPClient1.Connect;
    IdTCPClient1.WriteLn(FormMain.qm+'|'+FormMain.bh);
  except
    MessageBox(Handle,'服务器没有开启','提示',MB_OK);
    Exit;
  end;


  loading();//连接到服务端，显示上线的客户端
end;


procedure TFormFileSend.load