请问如何做客户端和服务端的连接 如何做多线程 delphi7

Question

现在我有一个服务端，一个客户端程序，delphi71请问如何从服务端发信息给客户端
  1假设我要发送文件
  2发送信息 temp2客户端怎么发信息给服务端 
  发送信息 temp3如果有多个客户端，怎么做多线程，请问用什么控件？希望能提供代码（分不够再加）

Answer 1

服务器：
 
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPServer, ExtCtrls, StdCtrls,
  Buttons, jpeg;
type
  TForm1 = class(TForm)
    IdTCPServer1: TIdTCPServer;
    Image1: TImage;
    procedure IdTCPServer1Execute(AThread: TIdPeerThread);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
const
  tempimagefile='c:/test.jpg';
var
  t:tmemorystream;
begin
  t:=tmemorystream.Create;
  athread.Connection.ReadStream(t,-1,true);
  t.SaveToFile(tempimagefile);
  self.Image1.Picture.LoadFromFile(tempimagefile);
  t.Free;
end;end.

Answer 2

客户端： unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, StdCtrls, Buttons;type
  TForm1 = class(TForm)
    Button1: TButton;
    IdTCPClient1: TIdTCPClient;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
  temp:tmemorystream;
begin
  temp:=tmemorystream.Create;
  self.Image1.Picture.Graphic.SaveToStream(temp);
  self.IdTCPClient1.Connect();
  self.IdTCPClient1.WriteStream(temp);
  self.IdTCPClient1.Disconnect;
  temp.Free;
end;end.

Answer 3

使用internet下的ClientSocket和Serversocket实现
create it

Answer 4

“kampan”的代码已经给了啊，不错啊，参考一下吧！