高分求TServerSocket/TClientSocket程序实例

Question

As tITLE!
能提供一个实例让我看看啊！
高分求这个实例。

Answer 1

网上找嘛,盒子里有,我前几天才下了几个.
不过TServerSocket/TClientSocket 在delphi7里面找不到要自己另外添加

Answer 2

serversocket1.Active=true;当执行这一句的时候
出错了：没有找到请求的类型数据，这是什么意思啊？

Answer 3

先导入TServerSocket/TClientSocket组件客户端：
unit UnitClient;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ScktComp, StdCtrls, ComCtrls,adocom;type
  TForm1 = class(TForm)
    ClientSocket1: TClientSocket;
    Edit1: TEdit;
    Button1: TButton;
    StatusBar1: TStatusBar;
    Button2: TButton;
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure ClientSocket1Connect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure ClientSocket1Connecting(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormShow(Sender: TObject);
begin
ClientSocket1.Address:='(local)';
end;procedure TForm1.Button1Click(Sender: TObject);
begin
clientsocket1.Socket.SendText(edit1.Text);
msgbox('!');
end;procedure TForm1.ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
statusbar1.SimpleText:='连接到 '+ clientsocket1.Address;
end;procedure TForm1.ClientSocket1Connecting(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  statusbar1.SimpleText:='正在连接... '+  clientsocket1.Address;end;procedure TForm1.Button2Click(Sender: TObject);
begin
clientsocket1.Address:='127.0.0.1';
 clientsocket1.Active:=true;
end;end.服务端：
unit UnitServer;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBClient,adocom, MConnect, SConnect, Sockets, StdCtrls, ScktComp,
  ComCtrls;type
  TForm1 = class(TForm)
    ServerSocket1: TServerSocket;
    Button1: TButton;
    Button2: TButton;
    ListBox1: TListBox;
    Memo1: TMemo;
    Edit1: TEdit;
    Button3: TButton;
    StatusBar1: TStatusBar;
    Label1: TLabel;
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure ServerSocket1Accept(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure ServerSocket1ClientConnect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure ServerSocket1ClientDisconnect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure ServerSocket1ClientError(Sender: TObject;
      Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
      var ErrorCode: Integer);
    procedure ServerSocket1ClientRead(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure ServerSocket1Listen(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
  counter : integer;
  clientip: string;
implementation{$R *.dfm}procedure TForm1.FormShow(Sender: TObject);
begin
Button1.Click;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
 if not serversocket1.Active then
  begin
  serversocket1.Active:=true;
  memo1.Lines.Add('服务器连接！['+Datetimetostr(now)+']');
  end else
    showmessage('已经在监听状态');;
end;procedure TForm1.ServerSocket1Accept(Sender: TObject;
  Socket: TCustomWinSocket);
begin
   clientip:=Socket.RemoteAddress;
end;procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
statusbar1.SimpleText:=socket.RemoteAddress+'已连接';
end;procedure TForm1.ServerSocket1ClientDisconnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
statusbar1.SimpleText:='！！连接到 '+ socket.RemoteAddress;
end;procedure TForm1.ServerSocket1ClientError(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
 if errorcode=10054 then
    errorcode:=0;
end;procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);begin
listbox1.Items.add( socket.ReceiveText);
end;procedure TForm1.ServerSocket1Listen(Sender: TObject;
  Socket: TCustomWinSocket);
begin
   //msgbox('a');
   Label1.Caption:='aaaa';
  statusbar1.SimpleText :='监听fghfgh状态...';
  counter:=0;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  serversocket1.Active:=false;
  serversocket1.Close;
  statusbar1.SimpleText:='服务器已经关闭';
  memo1.Lines.Add('服务器关闭！['+Datetimetostr(now)+']');
end;end.