iisext_tlb.pas

SPServer.rar一个基于TCP/IP监听发送代码

  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 TIISExtServer.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps := TIISExtServerProperties.Create(Self);
{$ENDIF}
end;

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

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

function TIISExtServer.Get_Name: WideString;
begin
    Result := DefaultInterface.Name;
end;

function TIISExtServer.Get_Class_: WideString;
begin
    Result := DefaultInterface.Class_;
end;

function TIISExtServer.Get_GUID: WideString;
begin
    Result := DefaultInterface.GUID;
end;

function TIISExtServer.Get_ADsPath: WideString;
begin
    Result := DefaultInterface.ADsPath;
end;

function TIISExtServer.Get_Parent: WideString;
begin
    Result := DefaultInterface.Parent;
end;

function TIISExtServer.Get_Schema: WideString;
begin
    Result := DefaultInterface.Schema;
end;

function TIISExtServer.Get_Status: Integer;
begin
    Result := DefaultInterface.Status;
end;

procedure TIISExtServer.GetInfo;
begin
  DefaultInterface.GetInfo;
end;

procedure TIISExtServer.SetInfo;
begin
  DefaultInterface.SetInfo;
end;

function TIISExtServer.Get(const bstrName: WideString): OleVariant;
begin
  Result := DefaultInterface.Get(bstrName);
end;

procedure TIISExtServer.Put(const bstrName: WideString; vProp: OleVariant);
begin
  DefaultInterface.Put(bstrName, vProp);
end;

function TIISExtServer.GetEx(const bstrName: WideString): OleVariant;
begin
  Result := DefaultInterface.GetEx(bstrName);
end;

procedure TIISExtServer.PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant);
begin
  DefaultInterface.PutEx(lnControlCode, bstrName, vProp);
end;

procedure TIISExtServer.GetInfoEx(vProperties: OleVariant; lnReserved: Integer);
begin
  DefaultInterface.GetInfoEx(vProperties, lnReserved);
end;

procedure TIISExtServer.Start;
begin
  DefaultInterface.Start;
end;

procedure TIISExtServer.Stop;
begin
  DefaultInterface.Stop;
end;

procedure TIISExtServer.Pause;
begin
  DefaultInterface.Pause;
end;

procedure TIISExtServer.Continue;
begin
  DefaultInterface.Continue;
end;

procedure TIISExtServer.SetPassword(const bstrNewPassword: WideString);
begin
  DefaultInterface.SetPassword(bstrNewPassword);
end;

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

function TIISExtServerProperties.GetDefaultInterface: IADsServiceOperations;
begin
  Result := FServer.DefaultInterface;
end;

function TIISExtServerProperties.Get_Name: WideString;
begin
    Result := DefaultInterface.Name;
end;

function TIISExtServerProperties.Get_Class_: WideString;
begin
    Result := DefaultInterface.Class_;
end;

function TIISExtServerProperties.Get_GUID: WideString;
begin
    Result := DefaultInterface.GUID;
end;

function TIISExtServerProperties.Get_ADsPath: WideString;
begin
    Result := DefaultInterface.ADsPath;
end;

function TIISExtServerProperties.Get_Parent: WideString;
begin
    Result := DefaultInterface.Parent;
end;

function TIISExtServerProperties.Get_Schema: WideString;
begin
    Result := DefaultInterface.Schema;
end;

function TIISExtServerProperties.Get_Status: Integer;
begin
    Result := DefaultInterface.Status;
end;

{$ENDIF}

class function CoIISExtDsCrMap.Create: IISDsCrMap;
begin
  Result := CreateComObject(CLASS_IISExtDsCrMap) as IISDsCrMap;
end;

class function CoIISExtDsCrMap.CreateRemote(const MachineName: string): IISDsCrMap;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_IISExtDsCrMap) as IISDsCrMap;
end;

procedure TIISExtDsCrMap.InitServerData;
const
  CServerData: TServerData = (
    ClassID:   '{BC36CDE8-AFEB-11D1-9868-00A0C922E703}';
    IntfIID:   '{EDCD6A60-B053-11D0-A62F-00A0C922E752}';
    EventIID:  '';
    LicenseKey: nil;
    Version: 500);
begin
  ServerData := @CServerData;
end;

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

procedure TIISExtDsCrMap.ConnectTo(svrIntf: IISDsCrMap);
begin
  Disconnect;
  FIntf := svrIntf;
end;

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

function TIISExtDsCrMap.GetDefaultInterface: IISDsCrMap;
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 TIISExtDsCrMap.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps := TIISExtDsCrMapProperties.Create(Self);
{$ENDIF}
end;

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

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

function TIISExtDsCrMap.Get_Name: WideString;
begin
    Result := DefaultInterface.Name;
end;

function TIISExtDsCrMap.Get_Class_: WideString;
begin
    Result := DefaultInterface.Class_;
end;

function TIISExtDsCrMap.Get_GUID: WideString;
begin
    Result := DefaultInterface.GUID;
end;

function TIISExtDsCrMap.Get_ADsPath: WideString;
begin
    Result := DefaultInterface.ADsPath;
end;

function TIISExtDsCrMap.Get_Parent: WideString;
begin
    Result := DefaultInterface.Parent;
end;

function TIISExtDsCrMap.Get_Schema: WideString;
begin
    Result := DefaultInterface.Schema;
end;

procedure TIISExtDsCrMap.GetInfo;
begin
  DefaultInterface.GetInfo;
end;

procedure TIISExtDsCrMap.SetInfo;
begin
  DefaultInterface.SetInfo;
end;

function TIISExtDsCrMap.Get(const bstrName: WideString): OleVariant;
begin
  Result := DefaultInterface.Get(bstrName);
end;

procedure TIISExtDsCrMap.Put(const bstrName: WideString; vProp: OleVariant);
begin
  DefaultInterface.Put(bstrName, vProp);
end;

function TIISExtDsCrMap.GetEx(const bstrName: WideString): OleVariant;
begin
  Result := DefaultInterface.GetEx(bstrName);
end;

procedure TIISExtDsCrMap.PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant);
begin
  DefaultInterface.PutEx(lnControlCode, bstrName, vProp);
end;

procedure TIISExtDsCrMap.GetInfoEx(vProperties: OleVariant; lnReserved: Integer);
begin
  DefaultInterface.GetInfoEx(vProperties, lnReserved);
end;

procedure TIISExtDsCrMap.CreateMapping(vCert: OleVariant; const bstrNtAcct: WideString; 
                                       const bstrNtPwd: WideString; const bstrName: WideString; 
                                       lEnabled: Integer);
begin
  DefaultInterface.CreateMapping(vCert, bstrNtAcct, bstrNtPwd, bstrName, lEnabled);
end;

procedure TIISExtDsCrMap.GetMapping(lMethod: Integer; vKey: OleVariant; out pvCert: OleVariant; 
                                    out pbstrNtAcct: OleVariant; out pbstrNtPwd: OleVariant; 
                                    out pbstrName: OleVariant; out plEnabled: OleVariant);
begin
  DefaultInterface.GetMapping(lMethod, vKey, pvCert, pbstrNtAcct, pbstrNtPwd, pbstrName, plEnabled);
end;

procedure TIISExtDsCrMap.DeleteMapping(lMethod: Integer; vKey: OleVariant);
begin
  DefaultInterface.DeleteMapping(lMethod, vKey);
end;

procedure TIISExtDsCrMap.SetEnabled(lMethod: Integer; vKey: OleVariant; lEnabled: Integer);
begin
  DefaultInterface.SetEnabled(lMethod, vKey, lEnabled);
end;

procedure TIISExtDsCrMap.SetName(lMethod: Integer; vKey: OleVariant; const bstrName: WideString);
begin
  DefaultInterface.SetName(lMethod, vKey, bstrName);
end;

procedure TIISExtDsCrMap.SetPwd(lMethod: Integer; vKey: OleVariant; const bstrPwd: WideString);
begin
  DefaultInterface.SetPwd(lMethod, vKey, bstrPwd);
end;

procedure TIISExtDsCrMap.SetAcct(lMethod: Integer; vKey: OleVariant; const bstrAcct: WideString);
begin
  DefaultInterface.SetAcct(lMethod, vKey, bstrAcct);
end;

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

function TIISExtDsCrMapProperties.GetDefaultInterface: IISDsCrMap;
begin
  Result := FServer.DefaultInterface;
end;

function TIISExtDsCrMapProperties.Get_Name: WideString;
begin
    Result := DefaultInterface.Name;
end;

function TIISExtDsCrMapProperties.Get_Class_: WideString;
begin
    Result := DefaultInterface.Class_;
end;

function TIISExtDsCrMapProperties.Get_GUID: WideString;
begin
    Result := DefaultInterface.GUID;
end;

function TIISExtDsCrMapProperties.Get_ADsPath: WideString;
begin
    Result := DefaultInterface.ADsPath;
end;

function TIISExtDsCrMapProperties.Get_Parent: WideString;
begin
    Result := DefaultInterface.Parent;
end;

function TIISExtDsCrMapProperties.Get_Schema: WideString;
begin
    Result := DefaultInterface.Schema;
end;

{$ENDIF}

procedure Register;
begin
  RegisterComponents(dtlServerPage, [TIISExtComputer, TIISExtApp, TIISExtServer, TIISExtDsCrMap]);
end;

end.