组件的事件问题
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ScktComp;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
procedure ClientRead (Sender: TObject; Socket: TCustomWinSocket);
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
var
ServerSocket1: TServerSocket;
procedure TForm1.Button1Click(Sender: TObject);
begin
ServerSocket1.OnClientRead := ClientRead;
end;
procedure TForm1.ClientRead(Sender: TObject; Socket: TCustomWinSocket);
begin
end;
end.
上面的代码是可行的，而且没有错误的
\\-------------------------------------
下面的代码是不可行的，而且有错误，但我不清楚为什么会出错
library ClientDll;
uses
SysUtils,
Classes,
ScktComp,
Command in 'Command.pas ';
{$R *.res}
var
ServerSocket1: TServerSocket;
procedure ClientRead (Sender: TObject; Socket: TCustomWinSocket);
var
S: string;
begin
S := Socket.ReceiveText;
end;
procedure StartTcpServer;
begin
ServerSocket1 := TServerSocket.Create(nil);
with ServerSocket1 do
begin
Port := 503;
ServerType := stThreadBlocking;
OnClientRead := ClientRead;
Active := True;
end;
end;
procedure CloseTcpServer;
begin
with ServerSocket1 do
begin
Active := False;
Free;
end;
end;
begin
end.
\\--------------------------
上面的二段代码同样是OnClientRead := ClientRead;但下面的一个就有问题，是错误的。我不知道是那里出了问题，是不是DLL里面不能这样写。
[解决办法]
非成员函数也用过，这样转一下吧，新建一个Unit
unit Unit1;
interface
uses
ScktComp;
type
TProcess=class
public
class procedure ClientRead (Sender: TObject; Socket: TCustomWinSocket);
end;
implementation
{ TProcess }
class procedure TProcess.ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
S: string;
begin
S := Socket.ReceiveText;
end;
end.
然后到Dll library中改
OnClientRead := TProcess.ClientRead; //TProcess不用创建，ClientRead只是一个类方法
