谁有点对点文件传输的源码？？要求用clientSocket和serverSocke编写的

Question

收到源码，运行无误就给分。

Answer 1

我的电子邮件是:
[email protected]

Answer 2

to shadowfish(0℃) :
能给我发一份吗？
[email protected]
谢谢！

Answer 3

收到了shadowfish的，但编译有误。
错误是：uClient in 'uClient.pas' {frmMain};//这句话Out of Memory该怎么办呢？

Answer 4

Masteing Delphi 6的例子里有原码
打包发给楼上各位了

Answer 5

没辙：
[email protected] on Mon, 29 Sep 2003 13:37:55 +0800
    在域名服务(DNS)中找不到此收件人的目标服务器。

Answer 6

是不是：[email protected] 啊？！重发了！！！

Answer 7

to shadowship 
最近在用indy 可否给我也来份源码？

Answer 8

mail: [email protected]谢谢

Answer 9

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  ClientSocket1.Active := False;
  ServerSocket1.Active := False;
  close;
end;procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  ClientSocket1.Active := False;
  ServerSocket1.Active := True;
  Statusbar1.Panels[0].Text := 'Listening...';
end;procedure TForm1.BitBtn3Click(Sender: TObject);
begin
  if ClientSocket1.Active then
  begin
    ClientSocket1.Active := False;
  end;
  if InputQuery('计算机连接到', '要连接的计算机的IP地址或者计算机名:', Server) then
    if Length(Server) > 0 then
    begin
      ClientSocket1.Host := Server;
      ClientSocket1.Active := True;
   end;
end;procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_Return then
  begin
    if IsServer then
    begin
       ServerSocket1.Socket.Connections[0].SendText(Memo1.Lines.Text)
    end
    else
    begin
       ClientSocket1.Socket.SendText(Memo1.Lines.Text);
    end;
  end;
end;procedure TForm1.ServerSocket1Accept(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  IsServer := True;
  Statusbar1.Panels[0].Text := 'Connected to: ' + Socket.RemoteAddress;
end;procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  Memo2.Lines.Add(Socket.ReceiveText);
end;procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  Memo2.Lines.Add(Socket.ReceiveText);
end;
procedure TForm1.BitBtn4Click(Sender: TObject);
begin
  ClientSocket1.Active := False;
  ServerSocket1.Active := False;
end;end.