socket初级问题

Question

我想做socket连接程序，看了很多文章都提到了
TcpClient1.Socket.SendText()
这个方法，可是我的delphi怎么没有TcpClient1.Socket.(*)这个项目呢，我非加上
TcpClient1.Socket.SendText，F9就会报错，这是怎么回事？
我的delphi里只有TcpClient1.SendText()

Answer 1

你说的TcpClient1.Socket.SendText()
应该是ClientSocket1.Socket.SendText()
你的是D7,D6才有ClientSocket1.Socket.SendText()

Answer 2

那请问d7里如何实现同样功能，我使用了TcpClient1.Sendln()函数，代码如下，点击按钮3的时候没有任何反应unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Sockets, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    TcpClient1: TTcpClient;
    TcpServer1: TTcpServer;
    Button3: TButton;
    procedure Button2Click(Sender: TObject);
    procedure TcpServer1Accept(Sender: TObject;
      ClientSocket: TCustomIpClient);
    procedure Button3Click(Sender: TObject);
    procedure TcpServer1Listening(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button2Click(Sender: TObject);
begin
TcpClient1.Active:=true;
end;procedure TForm1.TcpServer1Accept(Sender: TObject;
  ClientSocket: TCustomIpClient);
begin
showmessage('connected');
end;procedure TForm1.Button3Click(Sender: TObject);
begin
TcpClient1.Sendln('yes');
end;procedure TForm1.TcpServer1Listening(Sender: TObject);
begin
TcpClient1.Sendln('yes');
showmessage('ff');
showmessage(TcpServer1.Receiveln());
end;end.