通过ClientSocket 与 ServerSocket实现简单的聊天功能.

代码清单:

以下程序同时扮演了客户端与服务端.

添加一个button,两个Edit,一个ClientSocket,一个ServerSocket.

-------------------------------------------------------------------------------------------------------------------------------------------------------

unit Unit1;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, System.Win.ScktComp,Winapi.WinSock,
Vcl.OleCtrls, SHDocVw, Vcl.StdCtrls;

type
TForm1 = class(TForm)
    ClientSocket1: TClientSocket;
    Edit1: TEdit;
    Button1: TButton;
    ServerSocket1: TServerSocket;
    Edit2: TEdit;
    Button2: TButton;
    procedure ClientSocket1Connect(Sender: TObject; Socket: TCustomWinSocket);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure ServerSocket1ClientRead(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure Button2Click(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;

implementation

procedure TForm1.Button1Click(Sender: TObject); //OnClick事件

begin
ClientSocket1.Open; //打开ClientSocket,并连接服务端.
end;

procedure TForm1.ClientSocket1Connect(Sender: TObject;Socket: TCustomWinSocket); //OnConnect事件
begin
ClientSocket1.Socket.SendText(Edit1.Text); //把Edit1中的消息发送给服务端.
ShowMessage('成功连接.');
ClientSocket1.Close; //完成后关闭连接.
end;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;Socket: TCustomWinSocket); //OnClientRead事件
begin
Edit2.Text := Socket.ReceiveText; //服务端接收到由客户端发来的消息,并且显示在Edit2上.
end;

end.

---------------------------------------------------------------------------------------------------------------------------------------------------------------

现在说说ClientSocket和ServerSocket的几个重要属性.

ClientSocket :

1. Active Boolean型属性,为真时便是打开端口与服务器连接(等同于ClientSocket.Open),为假时就断开与服务器的连接(等同于ClientSocket.Close).

2.Address String型属性,你要连接的IP地址.

3.ClientType 连接方式, ctNonBlocking表示无阻断方式.ctBlocking表示以阻断方式连接.

4.Host String型属性,你要连接的域名,如果Host与Address同时设置了,那么默认选择Host的参数.

5.Prot 整型属性, 你要使用的端口号,不能使用已经被占用的端口号.

6.SerVice String类型属性,设置常用的端口号,例如http ftp 等等. 如果同时设置了Prot属性,那么默认选择Service的参数.

ServerSocket :

1. Active 等于ClientSocket的属性意思.

2. Prot 等于ClientSocket的属性意思.

3. ServerType 等于ClientSocket的属性意思.

4. Prot 等于ClientSocket的属性意思.

5. Service 等于ClientSocket的属性意思.