添加指向 TIdTCPServer 和 TIdCustomTCPServer 的数据指针

Question

我想添加一个指向TIdTCPServer 的数据指针，并且我想在TIdCustomTCPServer 中也有它。我不擅长覆盖等，所以这就是我到目前为止所拥有的：

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, IdContext, IdBaseComponent, IdComponent,
  IdCustomTCPServer, IdTCPServer, Vcl.StdCtrls;

type
  TIdTcpServer = class(IdTcpServer.TIdTcpServer)
  public
    Data : Pointer;
end;

type
  TForm1 = class(TForm)
    IdTCPServer1: TIdTCPServer;
    Button1: TButton;
    procedure IdTCPServer1Connect(AContext: TIdContext);
    procedure IdTCPServer1Disconnect(AContext: TIdContext);
    procedure IdTCPServer1Execute(AContext: TIdContext);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  IdTCPServer1.Data := TObject (12345); // Just a test to fill the Data Pointer;
end;

procedure TForm1.IdTCPServer1Connect(AContext: TIdContext);
var
  ParentServer  : TIdCustomTCPServer;
  MyData        : Integer;
begin
 //
 ParentServer   := TIdServerContext(AContext).Server;
 // MyData      := Integer(ParentServer.Data);
end;

procedure TForm1.IdTCPServer1Disconnect(AContext: TIdContext);
begin
 //
end;

procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
begin
 //
end;

end.

我怎样才能让数据指针回到任何 OnConnect/OnDisconnect/etc ？

Answer 1

http://www.indyproject.org/docsite/html/!!MEMBEROVERVIEW_TIdTCPServer.html 中没有 Data 属性 - 您确定您的代码可以编译并工作吗？

好吧，如果有这样的属性，那么只需将变量强制转换回来。

procedure TForm1.IdTCPServer1Connect(AContext: TIdContext);
var
  ParentServer  : TIdCustomTCPServer;
  MyData        : Integer;
begin
 //
 ParentServer   := TIdServerContext(AContext).Server;
 MyData      := Integer( (ParentServer as TIdTcpServer).Data);
end;

如果没有 - 那么您有两个选择。一是子类化——在你的类中添加属性，二是添加一些外部数据存储。

Unit IDWithData;
interface uses IdTCPServer;

type TIdTcpServer = class( IdTCPServer.TIdTcpServer )
      public
        var Data: Integer;
     end;
implementation
end.

将此单元添加到TForm1 的单元接口/使用列表中的最后一个位置，瞧！服务器现在 - 对 IDE 不可见 - 被您的子类替换，它具有新的 Data 字段，因此上面的类型转换将使用这个新的但有意同名的类型。

当然，如果您愿意，您可以全力以赴：为新类添加您自己的名称，创建新的运行时和设计时包，添加然后将您的新服务器安装到 IDE VCL Palette 并替换它们你的表格。另一个“正确”的解决方案是分叉 INDY 源，将 DATA 变量添加到非常普通的 TIdCustomTCPServer 类型，然后继续维护您自己的 INDY 分叉分支。

更保守的方法是创建一个 TDictionary< TIdCustomTCPServer,Integer > - http://docwiki.embarcadero.com/CodeExamples/XE4/en/Generics_Collections_TDictionary_(Delphi) 类型的全局变量

然后会变成这样：

procedure TForm1.Button1Click(Sender: TObject);
begin
  GlobalServerDictionary.AddOrSetValue( IdTCPServer1, 12345 ); 
end;

procedure TForm1.IdTCPServer1Connect(AContext: TIdContext);
var
  ParentServer  : TIdCustomTCPServer;
  MyData        : Integer;
begin
 ParentServer   := TIdServerContext(AContext).Server;
 MyData         := GlobalServerDictionary.Items[ ParentServer ];
end;