在Delphi中静态调用DLL top

　　调用一个DLL比写一个DLL要容易一些。首先给大家介绍的是静态调用方法，稍后将介绍动态调用方法，并就两种方法做一个比较。同样的，我们先举一个静态调用的例子。

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

//本行以下代码为我们真正动手写的代码

function TestDll(i:integer):integer;stdcall;
external ’Delphi.dll’;

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=IntToStr(TestDll(1));
end;

end.

　　上面的例子中我们在窗体上放置了一个编辑框（Edit）和一个按钮（Button），并且书写了很少的代码来测试我们刚刚编写的Delphi.dll。大家可以看到我们唯一做的工作是将TestDll函数的说明部分放在了implementation中，并且用external语句指定了Delphi.dll的位置。（本例中调用程序和Delphi.dll在同一个目录中。）让人兴奋的是，我们自己编写的TestDll函数很快被Delphi认出来了。您可做这样一个实验：输入“TestDll（”，很快Delphi就会用fly-by提示条提示您应该输入的参数是什么，就像我们使用Delphi中定义的其他函数一样简单。注意事项有以下一些：
一、调用参数用stdcall
　　和前面提到的一样，当引用DLL中的函数和过程时也要使用stdcall参数，原因和前面提到的一样。

二、用external语句指定被调用的DLL文件的路径和名称
　　正如大家看到的，我们在external语句中指定了所要调用的DLL文件的名称。没有写路径是因为该DLL文件和调用它的主程序在同一目录下。如果该DLL文件在C:，则我们可将上面的引用语句写为external ’C:Delphi.dll’。注意文件的后缀.dll必须写上。

三、不能从DLL中调用全局变量
　　如果我们在DLL中声明了某种全局变量，如：var s:byte 。这样在DLL中s这个全局变量是可以正常使用的，但s不能被调用程序使用，既s不能作为全局变量传递给调用程序。不过在调用程序中声明的变量可以作为参数传递给DLL。

四、被调用的DLL必须存在
　　这一点很重要，使用静态调用方法时要求所调用的DLL文件以及要调用的函数或过程等等必须存在。如果不存在或指定的路径和文件名不正确的话，运行主程序时系统会提示“启动程序时出错”或“找不到*.dll文件”等运行错误。

在Delphi中动态调用DLL top

　　动态调用DLL相对复杂很多，但非常灵活。为了全面的说明该问题，这次我们举一个调用由C++编写的DLL的例子。首先在C++中编译下面的DLL源程序。

#include

extern ”C” _declspec(dllexport)
int WINAPI TestC(int i)
{
return i;
}

编译后生成一个DLL文件，在这里我们称该文件为Cpp.dll，该DLL中只有一个返回整数类型的函数TestC。为了方便说明，我们仍然引用上面的调用程序，只是将原来的Button1Click过程中的语句用下面的代码替换掉了。
procedure TForm1.Button1Click(Sender: TObject);
type
TIntFunc=function(i:integer):integer;stdcall;
var
Th:Thandle;
Tf:TIntFunc;
Tp:TFarProc;
begin
Th:=LoadLibrary(’Cpp.dll’); {装载DLL}
if Th>0 then
try
Tp:=GetProcAddress(Th,PChar(’TestC’));
if Tp<>nil
then begin
Tf:=TIntFunc(Tp);
Edit1.Text:=IntToStr(Tf(1)); {调用TestC函数}
end
else
ShowMessage(’TestC函数没有找到’);
finally
FreeLibrary(Th); {释放DLL}
end
else
ShowMessage(’Cpp.dll没有找到’);
end;

　　大家已经看到了，这种动态调用技术很复杂，但只要修改参数，如修改LoadLibrary(’Cpp.dll’)中的DLL名称为’Delphi.dll’就可动态更改所调用的DLL。

一、定义所要调用的函数或过程的类型
　　在上面的代码中我们定义了一个TIntFunc类型，这是对应我们将要调用的函数TestC的。在其他调用情况下也要做同样的定义工作。并且也要加上stdcall调用参数。

二、释放所调用的DLL
　　我们用LoadLibrary动态的调用了一个DLL，但要记住必须在使用完后手动地用FreeLibrary将该DLL释放掉，否则该DLL将一直占用内存直到您退出Windows或关机为止。

　　现在我们来评价一下两种调用DLL的方法的优缺点。静态方法实现简单，易于掌握并且一般来说稍微快一点，也更加安全可靠一些；但是静态方法不能灵活地在运行时装卸所需的DLL，而是在主程序开始运行时就装载指定的DLL直到程序结束时才释放该DLL，另外只有基于编译器和链接器的系统（如Delphi）才可以使用该方法。动态方法较好地解决了静态方法中存在的不足，可以方便地访问DLL中的函数和过程，甚至一些老版本DLL中新添加的函数或过程；但动态方法难以完全掌握，使用时因为不同的函数或过程要定义很多很复杂的类型和调用方法。对于初学者，笔者建议您使用静态方法，待熟练后再使用动态调用方法。

使用DLL的实用技巧 top

一、编写技巧
　　1 、为了保证DLL的正确性，可先编写成普通的应用程序的一部分，调试无误后再从主程序中分离出来，编译成DLL。

　　2 、为了保证DLL的通用性，应该在自己编写的DLL中杜绝出现可视化控件的名称，如：Edit1.Text中的Edit1名称；或者自定义非Windows定义的类型，如某种记录。

　　3 、为便于调试，每个函数和过程应该尽可能短小精悍，并配合具体详细的注释。

　　4 、应多利用try-finally来处理可能出现的错误和异常，注意这时要引用SysUtils单元。

　　5 、尽可能少引用单元以减小DLL的大小，特别是不要引用可视化单元，如Dialogs单元。例如一般情况下，我们可以不引用Classes单元，这样可使编译后的DLL减小大约16Kb。

二、调用技巧
　　1 、在用静态方法时，可以给被调用的函数或过程更名。在前面提到的C++编写的DLL例子中，如果去掉extern ”C”语句，C++会编译出一些奇怪的函数名，原来的TestC函数会被命名为@TestC$s等等可笑的怪名字，这是由于C++采用了C++ name mangling技术。这个函数名在Delphi中是非法的，我们可以这样解决这个问题：
改写引用函数为

function TestC(i:integer):integer;stdcall;
external ’Cpp.dll’;name ’@TestC$s’;

其中name的作用就是重命名。

　　2 、可把我们编写的DLL放到Windows目录下或者Windowssystem目录下。这样做可以在external语句中或LoadLibrary语句中不写路径而只写DLL的名称。但这样做有些不妥，这两个目录下有大量重要的系统DLL，如果您编的DLL与它们重名的话其后果简直不堪设想，况且您的编程技术还不至于达到将自己编写的DLL放到系统目录中的地步吧！

三、调试技巧
　　1 、我们知道DLL在编写时是不能运行和单步调试的。有一个办法可以，那就是在Run|parameters菜单中设置一个宿主程序。在Local页的Host Application栏中添上宿主程序的名字就可进行单步调试、断点观察和运行了。

　　2 、添加DLL的版本信息。开场白中提到了版本信息对于DLL是很重要的，如果包含了版本信息，DLL的大小会增加2Kb。增加这么一点空间是值得的。很不幸我们如果直接使用Project|options菜单中Version选项是不行的，这一点Delphi的帮助文件中没有提到，经笔者研究发现，只要加一行代码就可以了。如下例：
library Delphi;

uses
SysUtils,
Classes;

{$R *.RES}
//注意，上面这行代码必须加在这个位置

function TestDll(i:integer):integer;stdcall;
begin
Result:=i;
end;

exports
TestDll;

begin
end.=

　　3 、为了避免与别的DLL重名，在给自己编写的DLL起名字的时候最好采用字符数字和下划线混合的方式。如：jl_try16.dll。

　　4 、如果您原来在Delphi 1或Delphi 2中已经编译了某些DLL的话，您原来编译的DLL是16位的。只要将源代码在新的Delphi 3或Delphi 4环境下重新编译，就可以得到32位的DLL了。

用Delphi编写Socket通信程序 
 
　　笔者在工作中遇到对局域网中各工作站与服务器之间进行Socket通信的问题。现在将本人总结出来的TServerSocket和TClientSocket两个组件的基本用法写出来，希望与您分享。

　　ClientSocket组件为客户端组件。它是通信的请求方，也就是说，它是主动地与服务器端建立连接。

　　ServerSocket组件为服务器端组件。它是通信的响应方，也就是说，它的动作是监听以及被动接受客户端的连接请求，并对请求进行回复。

　　ServerSocket组件可以同时接受一个或多个ClientSocket组件的连接请求，并与每个ClientSocket组件建立单独的连接，进行单独的通信。因此，一个服务器端可以为多个客户端服务。

　　设计思路

　　本例包括一个服务器端程序和一个客户端程序。客户端程序可以放到多个计算机上运行，同时与服务器端进行连接通信。

　　本例的重点，一是演示客户端与服务器端如何通信；二是当有多个客户端同时连接到服务器端时，服务器端如何识别每个客户端，并对请求给出相应的回复。为了保证一个客户端断开连接时不影响其它客户端与服务器端的通信，同时保证服务器端能够正确回复客户端的请求，在本例中声明了一个记录类型：

　　type
　 client_record=record
　 CHandle: integer; //客户端套接字句柄
　 CSocket:TCustomWinSocket; //客户端套接字
　 CName:string; //客户端计算机名称
　 CAddress:string; //客户端计算机IP地址
　 CUsed: boolean; //客户端联机标志
end;

　　利用这个记录类型数据保存客户端的信息，同时保存当前客户端的连接状态。其中，CHandle保存客户端套接字句柄，以便准确定位每个与服务器端保持连接的客户端；Csocket保存客户端套接字，通过它可以对客户端进行回复。Cused记录当前客户端是否与服务器端保持连接。

　　下面对组件ServerSocket和ClientSocket的属性设置简单说明。

ServerSocket的属性：

　　· Port，是通信的端口，必须设置。在本例中设置为1025；

　　· ServerTypt，服务器端读写信息类型，设置为stNonBlocking表示异步读写信息，本例中采用这种方式。

　　· ThreadCacheSize，客户端的最大连接数，就是服务器端最多允许多少客户端同时连接。本例采用默认值10。

　　其它属性采用默认设置即可。

　　ClientSocket的属性：

　　· Port，是通信的端口，必须与服务器端的设置相同。在本例中设置为1025；

　　· ClientType，客户端读写信息类型，应该与服务器端的设置相同，为stNonBlocking表示异步读写信息。

　　· Host，客户端要连接的服务器的IP地址。必须设置，当然也可以在代码中动态设置。

　　其它属性采用默认设置即可。

　　程序源代码:

　　· 服务器端源码（uServerMain.pas）：

　　unit uServerMain;
interface
　 uses
　　 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
　　 ScktComp, ToolWin, ComCtrls, ExtCtrls, StdCtrls, Buttons;
　 const
　　 CMax=10; //客户端最大连接数
　 type
　　 client_record=record
　　 CHandle: integer; //客户端套接字句柄
　　 CSocket:TCustomWinSocket; //客户端套接字
　　 CName:string; //客户端计算机名称
　　 CAddress:string; //客户端计算机IP地址
　　 CUsed: boolean; //客户端联机标志
　 end;
　 type
　　 TfrmServerMain = class(TForm)
　　 ServerSocket: TServerSocket;
　　 ControlBar1: TControlBar;
　　 ToolBar1: TToolBar;
　　 tbConnect: TToolButton;
　　 tbClose: TToolButton;
　　 tbDisconnected: TToolButton;
　　 Edit1: TEdit;
　　 Memo1: TMemo;
　　 StatusBar: TStatusBar;
　　 procedure tbConnectClick(Sender: TObject);
　　 procedure tbDisconnectedClick(Sender: TObject);
　　 procedure ServerSocketClientRead(Sender: TObject;Socket: TCustomWinSocket);
　　 procedure ServerSocketListen(Sender: TObject;Socket: TCustomWinSocket);
　　 procedure ServerSocketClientConnect(Sender: TObject;Socket: TCustomWinSocket);
　　 procedure ServerSocketClientDisconnect(Sender: TObject;Socket: TCustomWinSocket);
　　 procedure tbCloseClick(Sender: TObject);
　　 procedure FormCreate(Sender: TObject);
　　 procedure FormClose(Sender: TObject; var Action: TCloseAction);
　　 procedure ServerSocketGetSocket(Sender: TObject; Socket: Integer;
　　 var ClientSocket: TServerClientWinSocket);
　　 procedure ServerSocketClientError(Sender: TObject;
　　 Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
　　 var ErrorCode: Integer);
　　 private
　　 {
　　　 Private declarations
　　 }
　　 public
　　 {
　　　 Public declarations
　　 }
　　 session: array[0..CMax] of client_record; //客户端连接数组
　　 Sessions: integer; //客户端连接数
　 end;
　 var
　　 frmServerMain: TfrmServerMain;
　　 implementation
　　 {$R *.DFM}
　　 //打开套接字连接，并使套接字进入监听状态
　　 procedure TfrmServerMain.tbConnectClick(Sender: TObject);
　 begin
　　 ServerSocket.Open ;
　 end;
　 //关闭套接字连接，不再监听客户端的请求
　 procedure TfrmServerMain.tbDisconnectedClick(Sender: TObject);
　 begin
　　 ServerSocket.Close;
　　 StatusBar.Panels[0].Text :='服务器套接字连接已经关闭，无法接受客户端的连接请求.';
　 end;
　 //从客户端读取信息
　 procedure TfrmServerMain.ServerSocketClientRead(Sender: TObject;Socket: TCustomWinSocket);
　 var
　　 i:integer;
　 begin
　　 //将从客户端读取的信息添加到Memo1中
　　 Memo1.Lines.Add(Socket.ReceiveText);
　　 for i:=0 to sessions do
　　 begin
　　　 //取得匹配的客户端
　　　 if session[i].CHandle = Socket.SocketHandle then
　　　 begin
　　　　 session[i].CSocket.SendText('回复客户端'+session[i].CAddress+' ==> '+Edit1.Text);
　　　 end;
　　 end;
　 end;
　 //服务器端套接字进入监听状态，以便监听客户端的连接
　 procedure TfrmServerMain.ServerSocketListen(Sender: TObject;Socket: TCustomWinSocket);
　 begin
　　 StatusBar.Panels[0].Text :='等待客户端连接...';
　 end;
　 //当客户端连接到服务器端以后
　 procedure TfrmServerMain.ServerSocketClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
　 var
　　 i,j:integer;
　 begin
　　 j:=-1;
　　 for i:=0 to sessions do
　　 begin
　　　 //在原有的客户端连接数组中有中断的客户端连接
　　　 if not session[i].CUsed then
　　　 begin
　　　　 session[i].CHandle := Socket.SocketHandle ;//客户端套接字句柄
　　　　 session[i].CSocket := Socket; //客户端套接字
　　　　 session[i].CName := Socket.RemoteHost ; //客户端计算机名称
　　　　 session[i].CAddress := Socket.RemoteAddress ;//客户端计算机IP
　　　　 session[i].CUsed := True; //连接数组当前位置已经占用
　　　　 Break;
　　　 end;
　　 j:=i;
　 end;
　 if j=sessions then
　 begin
　　 inc(sessions);
　　 session[j].CHandle := Socket.SocketHandle ;
　　 session[j].CSocket := Socket;
　　 session[j].CName := Socket.RemoteHost ;
　　 session[j].CAddress := Socket.RemoteAddress ;
　　 session[j].CUsed := True;
　 end;
　 StatusBar.Panels[0].Text := '客户端 '+Socket.RemoteHost + ' 已经连接';
end;
//当客户端断开连接时
procedure TfrmServerMain.ServerSocketClientDisconnect(Sender: TObject;
Socket: TCustomWinSocket);
var
　 i:integer;
begin
　 for i:=0 to sessions do
　 begin
　　 if session[i].CHandle =Socket.SocketHandle then
　　 begin
　　　 session[i].CHandle :=0;
　　　 session[i].CUsed := False;
　　　 Break;
　　 end;
　 end;
　 StatusBar.Panels[0].Text :='客户端 '+Socket.RemoteHost + ' 已经断开';
end;
//关闭窗口
procedure TfrmServerMain.tbCloseClick(Sender: TObject);
begin
　 Close;
end;
procedure TfrmServerMain.FormCreate(Sender: TObject);
begin
　 sessions := 0;
end;
procedure TfrmServerMain.FormClose(Sender: TObject;var Action: TCloseAction);
begin
　 ServerSocket.Close ;
end;
//当客户端正在与服务器端连接时
procedure TfrmServerMain.ServerSocketGetSocket(Sender: TObject;
Socket: Integer; var ClientSocket: TServerClientWinSocket);
begin
　 StatusBar.Panels[0].Text :='客户端正在连接...';
end;
//客户端发生错误
procedure TfrmServerMain.ServerSocketClientError(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
　 StatusBar.Panels[0].Text :='客户端'+Socket.RemoteHost +'发生错误！';
　 ErrorCode := 0;
end;
end.

· 客户端源码(uClientMain.pas)：

　　unit uClientMain;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ScktComp, ComCtrls, ToolWin, ExtCtrls, StdCtrls, Buttons;
const
　 SocketHost = '172.16.1.6'; //服务器端地址
type
　 TfrmClientMain = class(TForm)
　 ControlBar1: TControlBar;
　 ToolBar1: TToolBar;
　 tbConnected: TToolButton;
　 tbSend: TToolButton;
　 tbClose: TToolButton;
　 tbDisconnected: TToolButton;
　 ClientSocket: TClientSocket;
　 Edit1: TEdit;
　 Memo1: TMemo;
　 StatusBar: TStatusBar;
　 btnSend: TBitBtn;
　 procedure tbConnectedClick(Sender: TObject);
　 procedure tbDisconnectedClick(Sender: TObject);
　 procedure ClientSocketRead(Sender: TObject; Socket: TCustomWinSocket);
　 procedure tbSendClick(Sender: TObject);
　 procedure tbCloseClick(Sender: TObject);
　 procedure FormShow(Sender: TObject);
　 procedure ClientSocketConnect(Sender: TObject;
　 Socket: TCustomWinSocket);
　 procedure ClientSocketConnecting(Sender: TObject;
　 Socket: TCustomWinSocket);
　 procedure ClientSocketDisconnect(Sender: TObject;
　 Socket: TCustomWinSocket);
　 procedure FormClose(Sender: TObject; var Action: TCloseAction);
　 procedure ClientSocketError(Sender: TObject; Socket: TCustomWinSocket;
　 ErrorEvent: TErrorEvent; var ErrorCode: Integer);
　 private
　 { Private declarations }
　 public
　 { Public declarations }
　 end;
　 var
　　 frmClientMain: TfrmClientMain;
　　 implementation
　　 {$R *.DFM}
　　 //打开套接字连接
　　 procedure TfrmClientMain.tbConnectedClick(Sender: TObject);
　　 begin
　　　 ClientSocket.Open ;
　　 end;
　　 //关闭套接字连接
　　 procedure TfrmClientMain.tbDisconnectedClick(Sender: TObject);
　　 begin
　　　 ClientSocket.Close;
　　 end;
　　 //接受服务器端的回复
　　 procedure TfrmClientMain.ClientSocketRead(Sender: TObject;Socket: TCustomWinSocket);
　　 begin
　　　 Memo1.Lines.Add(Socket.ReceiveText);
　　 end;
　　 //发送信息到服务器端
　　 procedure TfrmClientMain.tbSendClick(Sender: TObject);
　　 begin
　　　 ClientSocket.Socket.SendText(Edit1.Text);
　　 end;
　　 procedure TfrmClientMain.tbCloseClick(Sender: TObject);
　　 begin
　　　 Close;
　　 end;
　　 //设置要连接的服务器端地址
　　 procedure TfrmClientMain.FormShow(Sender: TObject);
　　 begin
　　　 ClientSocket.Host := SocketHost;
　　 end;
　　 //已经连接到服务器端
　　 procedure TfrmClientMain.ClientSocketConnect(Sender: TObject;Socket: TCustomWinSocket);
　　 begin
　　　 tbSend.Enabled := True;
　　　 tbDisconnected.Enabled :=True;
　　　 btnSend.Enabled := True;
　　　 StatusBar.Panels[0].Text := '已经连接到 '+ Socket.RemoteHost ;
　　 end;
　　 //正在连接到服务器端
　　 procedure TfrmClientMain.ClientSocketConnecting(Sender: TObject;Socket: TCustomWinSocket);
　　 begin
　　　 StatusBar.Panels[0].Text := '正在连接到服务器... ' ;
　　 end;
　　 //当断开与服务器端的连接时发生
　　 procedure TfrmClientMain.ClientSocketDisconnect(Sender: TObject;
Socket: TCustomWinSocket);
　　 begin
　　　 tbSend.Enabled := False;
　　　 btnSend.Enabled := False;
　　　 tbDisconnected.Enabled := False;
　　　 StatusBar.Panels[0].Text := '已经断开与 '+ Socket.RemoteHost +' 的连接';
　　 end;
　　 procedure TfrmClientMain.FormClose(Sender: TObject;
var Action: TCloseAction);
　　 begin
　　　 ClientSocket.Close ;
　　 end;
　　 //当与服务器端的连接发生错误时
　　 procedure TfrmClientMain.ClientSocketError(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;var ErrorCode: Integer);
　　 begin
　　　 StatusBar.Panels[0].Text := '与服务器端的连接发生错误';
　　　 ErrorCode := 0;
　　 end;
　 end.

笔者在工作中遇到对局域网中各工作站与服务器之间进行Socket通信的问题。现在将本人总结出来的TServerSocket和TClientSocket两个组件的基本用法写出来，希望与您分享。

　　ClientSocket组件为客户端组件。它是通信的请求方，也就是说，它是主动地与服务器端建立连接。

　　ServerSocket组件为服务器端组件。它是通信的响应方，也就是说，它的动作是监听以及被动接受客户端的连接请求，并对请求进行回复。

　　ServerSocket组件可以同时接受一个或多个ClientSocket组件的连接请求，并与每个ClientSocket组件建立单独的连接，进行单独的通信。因此，一个服务器端可以为多个客户端服务。

一、设计思路

　　本例包括一个服务器端程序和一个客户端程序。客户端程序可以放到多个计算机上运行，同时与服务器端进行连接通信。

　　本例的重点，一是演示客户端与服务器端如何通信；二是当有多个客户端同时连接到服务器端时，服务器端如何识别每个客户端，并对请求给出相应的回复。为了保证一个客户端断开连接时不影响其它客户端与服务器端的通信，同时保证服务器端能够正确回复客户端的请求，在本例中声明了一个记录类型：

type
client_record=record
CHandle: integer; //客户端套接字句柄
CSocket:TCustomWinSocket; //客户端套接字
CName:string; //客户端计算机名称
CAddress:string; //客户端计算机IP地址
CUsed: boolean; //客户端联机标志
end;

　　利用这个记录类型数据保存客户端的信息，同时保存当前客户端的连接状态。其中，CHandle保存客户端套接字句柄，以便准确定位每个与服务器端保持连接的客户端；Csocket保存客户端套接字，通过它可以对客户端进行回复。Cused记录当前客户端是否与服务器端保持连接
。

二、属性设置

　　下面对组件ServerSocket和ClientSocket的属性设置简单说明。

１、ServerSocket的属性：

· Port，是通信的端口，必须设置。在本例中设置为1025；

· ServerTypt，服务器端读写信息类型，设置为stNonBlocking表示异步读写信息，本例中采用这种方式。

· ThreadCacheSize，客户端的最大连接数，就是服务器端最多允许多少客户端同时连接。本例采用默认值10。

　　其它属性采用默认设置即可。

２、ClientSocket的属性：

· Port，是通信的端口，必须与服务器端的设置相同。在本例中设置为1025；

· ClientType，客户端读写信息类型，应该与服务器端的设置相同，为stNonBlocking表示异步读写信息。

· Host，客户端要连接的服务器的IP地址。必须设置，当然也可以在代码中动态设置。

　　其它属性采用默认设置即可。

三、程序源代码

１、服务器端源码（uServerMain.pas）：

unit uServerMain;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ScktComp, ToolWin, ComCtrls, ExtCtrls, StdCtrls, Buttons;
const
CMax=10; //客户端最大连接数
type
client_record=record
CHandle: integer; //客户端套接字句柄
CSocket:TCustomWinSocket; //客户端套接字
CName:string; //客户端计算机名称
CAddress:string; //客户端计算机IP地址
CUsed: boolean; //客户端联机标志
end;
type
TfrmServerMain = class(TForm)
ServerSocket: TServerSocket;
ControlBar1: TControlBar;
ToolBar1: TToolBar;
tbConnect: TToolButton;
tbClose: TToolButton;
tbDisconnected: TToolButton;
Edit1: TEdit;
Memo1: TMemo;
StatusBar: TStatusBar;
procedure tbConnectClick(Sender: TObject);
procedure tbDisconnectedClick(Sender: TObject);
procedure ServerSocketClientRead(Sender: TObject;
Socket: TCustomWinSocket);
procedure ServerSocketListen(Sender: TObject;
Socket: TCustomWinSocket);
procedure ServerSocketClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
procedure ServerSocketClientDisconnect(Sender: TObject;
Socket: TCustomWinSocket);
procedure tbCloseClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure ServerSocketGetSocket(Sender: TObject; Socket: Integer;
var ClientSocket: TServerClientWinSocket);
procedure ServerSocketClientError(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
private
{ Private declarations }
public
{ Public declarations }
session: array[0..CMax] of client_record; //客户端连接数组
Sessions: integer; //客户端连接数
end;
var
frmServerMain: TfrmServerMain;
implementation
{$R *.DFM}
//打开套接字连接，并使套接字进入监听状态
procedure TfrmServerMain.tbConnectClick(Sender: TObject);
begin
ServerSocket.Open ;
end;
//关闭套接字连接，不再监听客户端的请求
procedure TfrmServerMain.tbDisconnectedClick(Sender: TObject);
begin
ServerSocket.Close;
StatusBar.Panels[0].Text :='服务器套接字连接已经关闭，无法接受客户端的连接请求.';
end;
//从客户端读取信息
procedure TfrmServerMain.ServerSocketClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
i:integer;
begin
//将从客户端读取的信息添加到Memo1中
Memo1.Lines.Add(Socket.ReceiveText);
for i:=0 to sessions do
begin
//取得匹配的客户端
if session[i].CHandle = Socket.SocketHandle then
begin
session[i].CSocket.SendText('回复客户端'+session[i].CAddress+' ==> '+Edit1.Text);
end;
end;
end;
//服务器端套接字进入监听状态，以便监听客户端的连接
procedure TfrmServerMain.ServerSocketListen(Sender: TObject;
Socket: TCustomWinSocket);
begin
StatusBar.Panels[0].Text :='等待客户端连接...';
end;
//当客户端连接到服务器端以后
procedure TfrmServerMain.ServerSocketClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
var
i,j:integer;
begin
j:=-1;
for i:=0 to sessions do
begin
//在原有的客户端连接数组中有中断的客户端连接
if not session[i].CUsed then
begin
session[i].CHandle := Socket.SocketHandle ;//客户端套接字句柄
session[i].CSocket := Socket; //客户端套接字
session[i].CName := Socket.RemoteHost ; //客户端计算机名称
session[i].CAddress := Socket.RemoteAddress ;//客户端计算机IP
session[i].CUsed := True; //连接数组当前位置已经占用
Break;
end;
j:=i;
end;
if j=sessions then
begin
inc(sessions);
session[j].CHandle := Socket.SocketHandle ;
session[j].CSocket := Socket;
session[j].CName := Socket.RemoteHost ;
session[j].CAddress := Socket.RemoteAddress ;
session[j].CUsed := True;
end;
StatusBar.Panels[0].Text := '客户端 '+Socket.RemoteHost + ' 已经连接';
end;

//当客户端断开连接时
procedure TfrmServerMain.ServerSocketClientDisconnect(Sender: TObject;
Socket: TCustomWinSocket);
var
i:integer;
begin
for i:=0 to sessions do
begin
if session[i].CHandle =Socket.SocketHandle then
begin
session[i].CHandle :=0;
session[i].CUsed := False;
Break;
end;
end;
StatusBar.Panels[0].Text :='客户端 '+Socket.RemoteHost + ' 已经断开';
end;
//关闭窗口
procedure TfrmServerMain.tbCloseClick(Sender: TObject);
begin
Close;
end;
procedure TfrmServerMain.FormCreate(Sender: TObject);
begin
sessions := 0;
end;
procedure TfrmServerMain.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
ServerSocket.Close ;
end;
//当客户端正在与服务器端连接时
procedure TfrmServerMain.ServerSocketGetSocket(Sender: TObject;
Socket: Integer; var ClientSocket: TServerClientWinSocket);
begin
StatusBar.Panels[0].Text :='客户端正在连接...';
end;
//客户端发生错误
procedure TfrmServerMain.ServerSocketClientError(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
StatusBar.Panels[0].Text :='客户端'+Socket.RemoteHost +'发生错误！';
ErrorCode := 0;
end;
end.

２、客户端源码(uClientMain.pas)：

unit uClientMain;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ScktComp, ComCtrls, ToolWin, ExtCtrls, StdCtrls, Buttons;
const
SocketHost = '172.16.1.6'; //服务器端地址
type
TfrmClientMain = class(TForm)
ControlBar1: TControlBar;
ToolBar1: TToolBar;
tbConnected: TToolButton;
tbSend: TToolButton;
tbClose: TToolButton;
tbDisconnected: TToolButton;
ClientSocket: TClientSocket;
Edit1: TEdit;
Memo1: TMemo;
StatusBar: TStatusBar;
btnSend: TBitBtn;
procedure tbConnectedClick(Sender: TObject);
procedure tbDisconnectedClick(Sender: TObject);
procedure ClientSocketRead(Sender: TObject; Socket: TCustomWinSocket);
procedure tbSendClick(Sender: TObject);
procedure tbCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure ClientSocketConnect(Sender: TObject;
Socket: TCustomWinSocket);
procedure ClientSocketConnecting(Sender: TObject;
Socket: TCustomWinSocket);
procedure ClientSocketDisconnect(Sender: TObject;
Socket: TCustomWinSocket);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure ClientSocketError(Sender: TObject; Socket: TCustomWinSocket;
ErrorEvent: TErrorEvent; var ErrorCode: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmClientMain: TfrmClientMain;
implementation
{$R *.DFM}
//打开套接字连接
procedure TfrmClientMain.tbConnectedClick(Sender: TObject);
begin
ClientSocket.Open ;
end;
//关闭套接字连接
procedure TfrmClientMain.tbDisconnectedClick(Sender: TObject);
begin
ClientSocket.Close;
end;
//接受服务器端的回复
procedure TfrmClientMain.ClientSocketRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
Memo1.Lines.Add(Socket.ReceiveText);
end;
//发送信息到服务器端
procedure TfrmClientMain.tbSendClick(Sender: TObject);
begin
ClientSocket.Socket.SendText(Edit1.Text);
end;
procedure TfrmClientMain.tbCloseClick(Sender: TObject);
begin
Close;
end;
//设置要连接的服务器端地址
procedure TfrmClientMain.FormShow(Sender: TObject);
begin
ClientSocket.Host := SocketHost;
end;
//已经连接到服务器端
procedure TfrmClientMain.ClientSocketConnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
tbSend.Enabled := True;
tbDisconnected.Enabled :=True;
btnSend.Enabled := True;
StatusBar.Panels[0].Text := '已经连接到 '+ Socket.RemoteHost ;
end;
//正在连接到服务器端
procedure TfrmClientMain.ClientSocketConnecting(Sender: TObject;
Socket: TCustomWinSocket);
begin
StatusBar.Panels[0].Text := '正在连接到服务器... ' ;
end;
//当断开与服务器端的连接时发生
procedure TfrmClientMain.ClientSocketDisconnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
tbSend.Enabled := False;
btnSend.Enabled := False;
tbDisconnected.Enabled := False;
StatusBar.Panels[0].Text := '已经断开与 '+ Socket.RemoteHost +' 的连接';
end;
procedure TfrmClientMain.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
ClientSocket.Close ;
end;
//当与服务器端的连接发生错误时
procedure TfrmClientMain.ClientSocketError(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
StatusBar.Panels[0].Text := '与服务器端的连接发生错误';
ErrorCode := 0;
end;
end.

四、小结

　　上述方法是比较简单的实现方法，同时也是相对较容易理解的方法。通过这个方法，笔者成功实现了局域网内多个客户端与服务器端进行Socket通信的功能，同时可以保证一个客户端的连接、通信或是断开都不影响其它客户端的正常通信。