套接字(socket)编程的基本方法(供初学者参考).doc

套接字(Socket) 编程的基本方法( 供初学者参考) 套接字(Socket) 编程的基本方法(供初学者参考) 在 Delphi 中,套接字(Socket) 编程用到的基本类是 TServerSocket 与 TClientSocket 。这两个类全部位于 p 单元中。其类型定义如下: type TServerSocket = class (); TClientSocket = class () 。在编写程序时,首先要对 TServerSocket (在服务器端) 与 TClientSocket (在客户端)进行实例化。对于 TServerSocket 的对象,主要设置其服务类型( ServerType )与端口( Port )的属性,然后编写“ OnClientRead ”事件处理程序的代码, 处理来自客户机的请求。如要启动服务器,设置 TServerSocket 对象的 Active 属性为真(即 Active := True ) ,如要停止服务器,则设置 TServerSocket 对象的 Active 属性为假(即 Active := False )。对于 TClientSocket 的对象,主要设置对方服务器的服务类型( ServerType ) 、端口( Port )以及 IP 地址( Address )的属性,之后编写“ OnConnect 与 OnRead ”事件处理程序的代码“ OnConnect ”事件处理程序用来检查与服务器连接成功与否( 必须在这里进行检查才有效),“ OnRead ”事件处理程序用来读取服务器发来的信息。如要连接服务器,设置 TClientSocket 对象的 Active 属性为真( 即 Active := True ;注意:检查连接是否成功,必须在“ OnConnect ”事件处理程序中进行) ,如要断开与服务器的连接,则设置 TClientSocket 对象的 Active 属性为假(即 Active := False )。编程中需掌握的细节,见单元源码。附件: 1 、单元源码/////////////////////////////////////////////////////////// //////////////////////////////////////////////// unit MainUnit; interface uses p, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TSvrCltSocke = class(TForm) GroupBox1: TGroupBox; GroupBox2: TGroupBox; btnSvrStart: TButton; btnSvrStop: TButton; btnExit: TButton; Label11: TLabel; editSvrMsg: TEdit; Label12: TLabel; lbSvrLog: TListBox; Label21: TLabel; editCltMsg: TEdit; btnConnect: TButton; btnSend: TButton; btnDisconnect: TButton; Label22: TLabel; lbCltLog: TListBox; procedure FormCreate(Sender: TObject); //--------------------------------------------------------- ----------------- procedure btnSvrStartClick(Sender: TObject); procedure btnSvrStopClick(Sender: TObject); //--------------------------------------------------------- ----------------- procedure btnConnectClick(Sender: TObject); procedure btnSendClick(Sender: TObject); procedure btnDisconnectClick(Sender: TObject); //--------------------------------------------------------- -----------------