netlibrary_tlb.pas

delphi7从入门到精通源代码

  Result := FServer.DefaultInterface;
end;

{$ENDIF}

class function Co_TClass.Create: __TClass;
begin
  Result := CreateComObject(CLASS__TClass) as __TClass;
end;

class function Co_TClass.CreateRemote(const MachineName: string): __TClass;
begin
  Result := CreateRemoteComObject(MachineName, CLASS__TClass) as __TClass;
end;

class function CoTNumber.Create: _TNumber1;
begin
  Result := CreateComObject(CLASS_TNumber) as _TNumber1;
end;

class function CoTNumber.CreateRemote(const MachineName: string): _TNumber1;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_TNumber) as _TNumber1;
end;

procedure TTNumber.InitServerData;
const
  CServerData: TServerData = (
    ClassID:   '{0FF4FB93-DEB6-39A8-B769-3D3B85D1AB10}';
    IntfIID:   '{64992554-80BA-3D9F-BFBC-2306D2B10191}';
    EventIID:  '';
    LicenseKey: nil;
    Version: 500);
begin
  ServerData := @CServerData;
end;

procedure TTNumber.Connect;
var
  punk: IUnknown;
begin
  if FIntf = nil then
  begin
    punk := GetServer;
    Fintf:= punk as _TNumber1;
  end;
end;

procedure TTNumber.ConnectTo(svrIntf: _TNumber1);
begin
  Disconnect;
  FIntf := svrIntf;
end;

procedure TTNumber.DisConnect;
begin
  if Fintf <> nil then
  begin
    FIntf := nil;
  end;
end;

function TTNumber.GetDefaultInterface: _TNumber1;
begin
  if FIntf = nil then
    Connect;
  Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  Result := FIntf;
end;

constructor TTNumber.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps := TTNumberProperties.Create(Self);
{$ENDIF}
end;

destructor TTNumber.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps.Free;
{$ENDIF}
  inherited Destroy;
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TTNumber.GetServerProperties: TTNumberProperties;
begin
  Result := FProps;
end;
{$ENDIF}

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TTNumberProperties.Create(AServer: TTNumber);
begin
  inherited Create;
  FServer := AServer;
end;

function TTNumberProperties.GetDefaultInterface: _TNumber1;
begin
  Result := FServer.DefaultInterface;
end;

{$ENDIF}

class function Co_Text.Create: __Text;
begin
  Result := CreateComObject(CLASS__Text) as __Text;
end;

class function Co_Text.CreateRemote(const MachineName: string): __Text;
begin
  Result := CreateRemoteComObject(MachineName, CLASS__Text) as __Text;
end;

class function Co_TNumber.Create: __TNumber;
begin
  Result := CreateComObject(CLASS__TNumber) as __TNumber;
end;

class function Co_TNumber.CreateRemote(const MachineName: string): __TNumber;
begin
  Result := CreateRemoteComObject(MachineName, CLASS__TNumber) as __TNumber;
end;

class function Co_FinalizeHandler.Create: __FinalizeHandler;
begin
  Result := CreateComObject(CLASS__FinalizeHandler) as __FinalizeHandler;
end;

class function Co_FinalizeHandler.CreateRemote(const MachineName: string): __FinalizeHandler;
begin
  Result := CreateRemoteComObject(MachineName, CLASS__FinalizeHandler) as __FinalizeHandler;
end;

class function CoBorland_Delphi_System_Unit.Create: _Borland_Delphi_System_Unit;
begin
  Result := CreateComObject(CLASS_Borland_Delphi_System_Unit) as _Borland_Delphi_System_Unit;
end;

class function CoBorland_Delphi_System_Unit.CreateRemote(const MachineName: string): _Borland_Delphi_System_Unit;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_Borland_Delphi_System_Unit) as _Borland_Delphi_System_Unit;
end;

procedure TBorland_Delphi_System_Unit.InitServerData;
const
  CServerData: TServerData = (
    ClassID:   '{44EE1E8B-A1ED-3B95-8C2A-D658E84E15AB}';
    IntfIID:   '{C8AA32E8-2F5C-3DBD-A82A-73B073D4174A}';
    EventIID:  '';
    LicenseKey: nil;
    Version: 500);
begin
  ServerData := @CServerData;
end;

procedure TBorland_Delphi_System_Unit.Connect;
var
  punk: IUnknown;
begin
  if FIntf = nil then
  begin
    punk := GetServer;
    Fintf:= punk as _Borland_Delphi_System_Unit;
  end;
end;

procedure TBorland_Delphi_System_Unit.ConnectTo(svrIntf: _Borland_Delphi_System_Unit);
begin
  Disconnect;
  FIntf := svrIntf;
end;

procedure TBorland_Delphi_System_Unit.DisConnect;
begin
  if Fintf <> nil then
  begin
    FIntf := nil;
  end;
end;

function TBorland_Delphi_System_Unit.GetDefaultInterface: _Borland_Delphi_System_Unit;
begin
  if FIntf = nil then
    Connect;
  Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  Result := FIntf;
end;

constructor TBorland_Delphi_System_Unit.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps := TBorland_Delphi_System_UnitProperties.Create(Self);
{$ENDIF}
end;

destructor TBorland_Delphi_System_Unit.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps.Free;
{$ENDIF}
  inherited Destroy;
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TBorland_Delphi_System_Unit.GetServerProperties: TBorland_Delphi_System_UnitProperties;
begin
  Result := FProps;
end;
{$ENDIF}

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TBorland_Delphi_System_UnitProperties.Create(AServer: TBorland_Delphi_System_Unit);
begin
  inherited Create;
  FServer := AServer;
end;

function TBorland_Delphi_System_UnitProperties.GetDefaultInterface: _Borland_Delphi_System_Unit;
begin
  Result := FServer.DefaultInterface;
end;

{$ENDIF}

class function CoNetNumberClass_Unit.Create: _NetNumberClass_Unit;
begin
  Result := CreateComObject(CLASS_NetNumberClass_Unit) as _NetNumberClass_Unit;
end;

class function CoNetNumberClass_Unit.CreateRemote(const MachineName: string): _NetNumberClass_Unit;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_NetNumberClass_Unit) as _NetNumberClass_Unit;
end;

procedure TNetNumberClass_Unit.InitServerData;
const
  CServerData: TServerData = (
    ClassID:   '{A1C737F4-5EF5-3D96-8BC7-F70523A29248}';
    IntfIID:   '{5B4B17F8-9512-361A-98B3-835C9270EA4D}';
    EventIID:  '';
    LicenseKey: nil;
    Version: 500);
begin
  ServerData := @CServerData;
end;

procedure TNetNumberClass_Unit.Connect;
var
  punk: IUnknown;
begin
  if FIntf = nil then
  begin
    punk := GetServer;
    Fintf:= punk as _NetNumberClass_Unit;
  end;
end;

procedure TNetNumberClass_Unit.ConnectTo(svrIntf: _NetNumberClass_Unit);
begin
  Disconnect;
  FIntf := svrIntf;
end;

procedure TNetNumberClass_Unit.DisConnect;
begin
  if Fintf <> nil then
  begin
    FIntf := nil;
  end;
end;

function TNetNumberClass_Unit.GetDefaultInterface: _NetNumberClass_Unit;
begin
  if FIntf = nil then
    Connect;
  Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  Result := FIntf;
end;

constructor TNetNumberClass_Unit.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps := TNetNumberClass_UnitProperties.Create(Self);
{$ENDIF}
end;

destructor TNetNumberClass_Unit.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps.Free;
{$ENDIF}
  inherited Destroy;
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TNetNumberClass_Unit.GetServerProperties: TNetNumberClass_UnitProperties;
begin
  Result := FProps;
end;
{$ENDIF}

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TNetNumberClass_UnitProperties.Create(AServer: TNetNumberClass_Unit);
begin
  inherited Create;
  FServer := AServer;
end;

function TNetNumberClass_UnitProperties.GetDefaultInterface: _NetNumberClass_Unit;
begin
  Result := FServer.DefaultInterface;
end;

{$ENDIF}

class function CoNetLibrary_Unit.Create: _NetLibrary_Unit;
begin
  Result := CreateComObject(CLASS_NetLibrary_Unit) as _NetLibrary_Unit;
end;

class function CoNetLibrary_Unit.CreateRemote(const MachineName: string): _NetLibrary_Unit;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_NetLibrary_Unit) as _NetLibrary_Unit;
end;

procedure TNetLibrary_Unit.InitServerData;
const
  CServerData: TServerData = (
    ClassID:   '{6958E056-B6A0-31BA-9021-3A567E025203}';
    IntfIID:   '{12A93F11-F0E7-3D30-BC32-9322A989C319}';
    EventIID:  '';
    LicenseKey: nil;
    Version: 500);
begin
  ServerData := @CServerData;
end;

procedure TNetLibrary_Unit.Connect;
var
  punk: IUnknown;
begin
  if FIntf = nil then
  begin
    punk := GetServer;
    Fintf:= punk as _NetLibrary_Unit;
  end;
end;

procedure TNetLibrary_Unit.ConnectTo(svrIntf: _NetLibrary_Unit);
begin
  Disconnect;
  FIntf := svrIntf;
end;

procedure TNetLibrary_Unit.DisConnect;
begin
  if Fintf <> nil then
  begin
    FIntf := nil;
  end;
end;

function TNetLibrary_Unit.GetDefaultInterface: _NetLibrary_Unit;
begin
  if FIntf = nil then
    Connect;
  Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  Result := FIntf;
end;

constructor TNetLibrary_Unit.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps := TNetLibrary_UnitProperties.Create(Self);
{$ENDIF}
end;

destructor TNetLibrary_Unit.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps.Free;
{$ENDIF}
  inherited Destroy;
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TNetLibrary_Unit.GetServerProperties: TNetLibrary_UnitProperties;
begin
  Result := FProps;
end;
{$ENDIF}

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TNetLibrary_UnitProperties.Create(AServer: TNetLibrary_Unit);
begin
  inherited Create;
  FServer := AServer;
end;

function TNetLibrary_UnitProperties.GetDefaultInterface: _NetLibrary_Unit;
begin
  Result := FServer.DefaultInterface;
end;

{$ENDIF}

procedure Register;
begin
  RegisterComponents(dtlServerPage, [TText, TTNumber, TBorland_Delphi_System_Unit, TNetNumberClass_Unit, 
    TNetLibrary_Unit]);
end;

end.