type
TServerDSSM = class(TDSServerModule)
DataSetProvider1: TDataSetProvider;
SQLDataSet1: TSQLDataSet;
SQLConnection1: TSQLConnection;
private
{ Private declarations }
public
{ Public declarations }
function GetClient(): OleVariant; //如何知道这个方法是被哪个客户端调用呢?
end;



procedure TServerMainForm.DSServer1Connect(
DSConnectEventObject: TDSConnectEventObject);
begin
DSConnectEventObject.ChannelInfo.Id //如何在上面的方法中取得类似这里的TCP连接的id
end;

編輯記錄