Windows编程

开发平台：

Delphi

JwaAdsTLB.pas：源码内容

['{7B66B533-4680-11D1-A3B4-00C04FB950DC}']
function Get_CaseIgnoreList: OleVariant; safecall;
procedure Set_CaseIgnoreList(retval: OleVariant); safecall;
property CaseIgnoreList: OleVariant read Get_CaseIgnoreList write Set_CaseIgnoreList;
end;
// *********************************************************************//
// DispIntf: IADsCaseIgnoreListDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {7B66B533-4680-11D1-A3B4-00C04FB950DC}
// *********************************************************************//
IADsCaseIgnoreListDisp = dispinterface
['{7B66B533-4680-11D1-A3B4-00C04FB950DC}']
property CaseIgnoreList: OleVariant dispid 2;
end;
// *********************************************************************//
// Interface: IADsFaxNumber
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {A910DEA9-4680-11D1-A3B4-00C04FB950DC}
// *********************************************************************//
IADsFaxNumber = interface(IDispatch)
['{A910DEA9-4680-11D1-A3B4-00C04FB950DC}']
function Get_TelephoneNumber: WideString; safecall;
procedure Set_TelephoneNumber(const retval: WideString); safecall;
function Get_Parameters: OleVariant; safecall;
procedure Set_Parameters(retval: OleVariant); safecall;
property TelephoneNumber: WideString read Get_TelephoneNumber write Set_TelephoneNumber;
property Parameters: OleVariant read Get_Parameters write Set_Parameters;
end;
// *********************************************************************//
// DispIntf: IADsFaxNumberDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {A910DEA9-4680-11D1-A3B4-00C04FB950DC}
// *********************************************************************//
IADsFaxNumberDisp = dispinterface
['{A910DEA9-4680-11D1-A3B4-00C04FB950DC}']
property TelephoneNumber: WideString dispid 2;
property Parameters: OleVariant dispid 3;
end;
// *********************************************************************//
// Interface: IADsNetAddress
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {B21A50A9-4080-11D1-A3AC-00C04FB950DC}
// *********************************************************************//
IADsNetAddress = interface(IDispatch)
['{B21A50A9-4080-11D1-A3AC-00C04FB950DC}']
function Get_AddressType: Integer; safecall;
procedure Set_AddressType(retval: Integer); safecall;
function Get_Address: OleVariant; safecall;
procedure Set_Address(retval: OleVariant); safecall;
property AddressType: Integer read Get_AddressType write Set_AddressType;
property Address: OleVariant read Get_Address write Set_Address;
end;
// *********************************************************************//
// DispIntf: IADsNetAddressDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {B21A50A9-4080-11D1-A3AC-00C04FB950DC}
// *********************************************************************//
IADsNetAddressDisp = dispinterface
['{B21A50A9-4080-11D1-A3AC-00C04FB950DC}']
property AddressType: Integer dispid 2;
property Address: OleVariant dispid 3;
end;
// *********************************************************************//
// Interface: IADsOctetList
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {7B28B80F-4680-11D1-A3B4-00C04FB950DC}
// *********************************************************************//
IADsOctetList = interface(IDispatch)
['{7B28B80F-4680-11D1-A3B4-00C04FB950DC}']
function Get_OctetList: OleVariant; safecall;
procedure Set_OctetList(retval: OleVariant); safecall;
property OctetList: OleVariant read Get_OctetList write Set_OctetList;
end;
// *********************************************************************//
// DispIntf: IADsOctetListDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {7B28B80F-4680-11D1-A3B4-00C04FB950DC}
// *********************************************************************//
IADsOctetListDisp = dispinterface
['{7B28B80F-4680-11D1-A3B4-00C04FB950DC}']
property OctetList: OleVariant dispid 2;
end;
// *********************************************************************//
// Interface: IADsEmail
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {97AF011A-478E-11D1-A3B4-00C04FB950DC}
// *********************************************************************//
IADsEmail = interface(IDispatch)
['{97AF011A-478E-11D1-A3B4-00C04FB950DC}']
function Get_Type_: Integer; safecall;
procedure Set_Type_(retval: Integer); safecall;
function Get_Address: WideString; safecall;
procedure Set_Address(const retval: WideString); safecall;
property Type_: Integer read Get_Type_ write Set_Type_;
property Address: WideString read Get_Address write Set_Address;
end;
// *********************************************************************//
// DispIntf: IADsEmailDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {97AF011A-478E-11D1-A3B4-00C04FB950DC}
// *********************************************************************//
IADsEmailDisp = dispinterface
['{97AF011A-478E-11D1-A3B4-00C04FB950DC}']
property Type_: Integer dispid 2;
property Address: WideString dispid 3;
end;
// *********************************************************************//
// Interface: IADsPath
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {B287FCD5-4080-11D1-A3AC-00C04FB950DC}
// *********************************************************************//
IADsPath = interface(IDispatch)
['{B287FCD5-4080-11D1-A3AC-00C04FB950DC}']
function Get_Type_: Integer; safecall;
procedure Set_Type_(retval: Integer); safecall;
function Get_VolumeName: WideString; safecall;
procedure Set_VolumeName(const retval: WideString); safecall;
function Get_Path: WideString; safecall;
procedure Set_Path(const retval: WideString); safecall;
property Type_: Integer read Get_Type_ write Set_Type_;
property VolumeName: WideString read Get_VolumeName write Set_VolumeName;
property Path: WideString read Get_Path write Set_Path;
end;
// *********************************************************************//
// DispIntf: IADsPathDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {B287FCD5-4080-11D1-A3AC-00C04FB950DC}
// *********************************************************************//
IADsPathDisp = dispinterface
['{B287FCD5-4080-11D1-A3AC-00C04FB950DC}']
property Type_: Integer dispid 2;
property VolumeName: WideString dispid 3;
property Path: WideString dispid 4;
end;
// *********************************************************************//
// Interface: IADsReplicaPointer
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {F60FB803-4080-11D1-A3AC-00C04FB950DC}
// *********************************************************************//
IADsReplicaPointer = interface(IDispatch)
['{F60FB803-4080-11D1-A3AC-00C04FB950DC}']
function Get_ServerName: WideString; safecall;
procedure Set_ServerName(const retval: WideString); safecall;
function Get_ReplicaType: Integer; safecall;
procedure Set_ReplicaType(retval: Integer); safecall;
function Get_ReplicaNumber: Integer; safecall;
procedure Set_ReplicaNumber(retval: Integer); safecall;
function Get_Count: Integer; safecall;
procedure Set_Count(retval: Integer); safecall;
function Get_ReplicaAddressHints: OleVariant; safecall;
procedure Set_ReplicaAddressHints(retval: OleVariant); safecall;
property ServerName: WideString read Get_ServerName write Set_ServerName;
property ReplicaType: Integer read Get_ReplicaType write Set_ReplicaType;
property ReplicaNumber: Integer read Get_ReplicaNumber write Set_ReplicaNumber;
property Count: Integer read Get_Count write Set_Count;
property ReplicaAddressHints: OleVariant read Get_ReplicaAddressHints write Set_ReplicaAddressHints;
end;
// *********************************************************************//
// DispIntf: IADsReplicaPointerDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {F60FB803-4080-11D1-A3AC-00C04FB950DC}
// *********************************************************************//
IADsReplicaPointerDisp = dispinterface
['{F60FB803-4080-11D1-A3AC-00C04FB950DC}']
property ServerName: WideString dispid 2;
property ReplicaType: Integer dispid 3;
property ReplicaNumber: Integer dispid 4;
property Count: Integer dispid 5;
property ReplicaAddressHints: OleVariant dispid 6;
end;
// *********************************************************************//
// Interface: IADsAcl
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {8452D3AB-0869-11D1-A377-00C04FB950DC}
// *********************************************************************//
IADsAcl = interface(IDispatch)
['{8452D3AB-0869-11D1-A377-00C04FB950DC}']
function Get_ProtectedAttrName: WideString; safecall;
procedure Set_ProtectedAttrName(const retval: WideString); safecall;
function Get_SubjectName: WideString; safecall;
procedure Set_SubjectName(const retval: WideString); safecall;
function Get_Privileges: Integer; safecall;
procedure Set_Privileges(retval: Integer); safecall;
function CopyAcl: IDispatch; safecall;
property ProtectedAttrName: WideString read Get_ProtectedAttrName write Set_ProtectedAttrName;
property SubjectName: WideString read Get_SubjectName write Set_SubjectName;
property Privileges: Integer read Get_Privileges write Set_Privileges;
end;
// *********************************************************************//
// DispIntf: IADsAclDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {8452D3AB-0869-11D1-A377-00C04FB950DC}
// *********************************************************************//
IADsAclDisp = dispinterface
['{8452D3AB-0869-11D1-A377-00C04FB950DC}']
property ProtectedAttrName: WideString dispid 2;
property SubjectName: WideString dispid 3;
property Privileges: Integer dispid 4;
function CopyAcl: IDispatch; dispid 5;
end;
// *********************************************************************//
// Interface: IADsTimestamp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {B2F5A901-4080-11D1-A3AC-00C04FB950DC}
// *********************************************************************//
IADsTimestamp = interface(IDispatch)
['{B2F5A901-4080-11D1-A3AC-00C04FB950DC}']
function Get_WholeSeconds: Integer; safecall;
procedure Set_WholeSeconds(retval: Integer); safecall;
function Get_EventID: Integer; safecall;
procedure Set_EventID(retval: Integer); safecall;
property WholeSeconds: Integer read Get_WholeSeconds write Set_WholeSeconds;
property EventID: Integer read Get_EventID write Set_EventID;
end;
// *********************************************************************//
// DispIntf: IADsTimestampDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {B2F5A901-4080-11D1-A3AC-00C04FB950DC}
// *********************************************************************//
IADsTimestampDisp = dispinterface
['{B2F5A901-4080-11D1-A3AC-00C04FB950DC}']
property WholeSeconds: Integer dispid 2;
property EventID: Integer dispid 3;
end;
// *********************************************************************//
// Interface: IADsPostalAddress
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {7ADECF29-4680-11D1-A3B4-00C04FB950DC}
// *********************************************************************//
IADsPostalAddress = interface(IDispatch)
['{7ADECF29-4680-11D1-A3B4-00C04FB950DC}']
function Get_PostalAddress: OleVariant; safecall;
procedure Set_PostalAddress(retval: OleVariant); safecall;
property PostalAddress: OleVariant read Get_PostalAddress write Set_PostalAddress;
end;
// *********************************************************************//
// DispIntf: IADsPostalAddressDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {7ADECF29-4680-11D1-A3B4-00C04FB950DC}
// *********************************************************************//
IADsPostalAddressDisp = dispinterface
['{7ADECF29-4680-11D1-A3B4-00C04FB950DC}']
property PostalAddress: OleVariant dispid 2;
end;
// *********************************************************************//
// Interface: IADsBackLink
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {FD1302BD-4080-11D1-A3AC-00C04FB950DC}
// *********************************************************************//
IADsBackLink = interface(IDispatch)
['{FD1302BD-4080-11D1-A3AC-00C04FB950DC}']
function Get_RemoteID: Integer; safecall;
procedure Set_RemoteID(retval: Integer); safecall;
function Get_ObjectName: WideString; safecall;
procedure Set_ObjectName(const retval: WideString); safecall;
property RemoteID: Integer read Get_RemoteID write Set_RemoteID;
property ObjectName: WideString read Get_ObjectName write Set_ObjectName;
end;
// *********************************************************************//
// DispIntf: IADsBackLinkDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {FD1302BD-4080-11D1-A3AC-00C04FB950DC}
// *********************************************************************//
IADsBackLinkDisp = dispinterface
['{FD1302BD-4080-11D1-A3AC-00C04FB950DC}']
property RemoteID: Integer dispid 2;
property ObjectName: WideString dispid 3;
end;
// *********************************************************************//
// Interface: IADsTypedName
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {B371A349-4080-11D1-A3AC-00C04FB950DC}
// *********************************************************************//
IADsTypedName = interface(IDispatch)
['{B371A349-4080-11D1-A3AC-00C04FB950DC}']
function Get_ObjectName: WideString; safecall;
procedure Set_ObjectName(const retval: WideString); safecall;
function Get_Level: Integer; safecall;
procedure Set_Level(retval: Integer); safecall;
function Get_Interval: Integer; safecall;
procedure Set_Interval(retval: Integer); safecall;
property ObjectName: WideString read Get_ObjectName write Set_ObjectName;
property Level: Integer read Get_Level write Set_Level;
property Interval: Integer read Get_Interval write Set_Interval;
end;
// *********************************************************************//
// DispIntf: IADsTypedNameDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {B371A349-4080-11D1-A3AC-00C04FB950DC}
// *********************************************************************//
IADsTypedNameDisp = dispinterface
['{B371A349-4080-11D1-A3AC-00C04FB950DC}']
property ObjectName: WideString dispid 2;
property Level: Integer dispid 3;
property Interval: Integer dispid 4;
end;
// *********************************************************************//
// Interface: IADsHold
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {B3EB3B37-4080-11D1-A3AC-00C04FB950DC}
// *********************************************************************//
IADsHold = interface(IDispatch)
['{B3EB3B37-4080-11D1-A3AC-00C04FB950DC}']
function Get_ObjectName: WideString; safecall;
procedure Set_ObjectName(const retval: WideString); safecall;
function Get_Amount: Integer; safecall;
procedure Set_Amount(retval: Integer); safecall;
property ObjectName: WideString read Get_ObjectName write Set_ObjectName;
property Amount: Integer read Get_Amount write Set_Amount;
end;
// *********************************************************************//
// DispIntf: IADsHoldDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {B3EB3B37-4080-11D1-A3AC-00C04FB950DC}
// *********************************************************************//
IADsHoldDisp = dispinterface
['{B3EB3B37-4080-11D1-A3AC-00C04FB950DC}']
property ObjectName: WideString dispid 2;
property Amount: Integer dispid 3;
end;
// *********************************************************************//
// Interface: IADsObjectOptions
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {46F14FDA-232B-11D1-A808-00C04FD8D5A8}
// *********************************************************************//
IADsObjectOptions = interface(IDispatch)
['{46F14FDA-232B-11D1-A808-00C04FD8D5A8}']
function GetOption(lnOption: Integer): OleVariant; safecall;
procedure SetOption(lnOption: Integer; vValue: OleVariant); safecall;
end;
// *********************************************************************//
// DispIntf: IADsObjectOptionsDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {46F14FDA-232B-11D1-A808-00C04FD8D5A8}
// *********************************************************************//
IADsObjectOptionsDisp = dispinterface
['{46F14FDA-232B-11D1-A808-00C04FD8D5A8}']
function GetOption(lnOption: Integer): OleVariant; dispid 2;
procedure SetOption(lnOption: Integer; vValue: OleVariant); dispid 3;
end;
// *********************************************************************//
// Interface: IADsPathname
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {D592AED4-F420-11D0-A36E-00C04FB950DC}
// *********************************************************************//
IADsPathname = interface(IDispatch)
['{D592AED4-F420-11D0-A36E-00C04FB950DC}']
procedure Set_(const bstrADsPath: WideString; lnSetType: Integer); safecall;
procedure SetDisplayType(lnDisplayType: Integer); safecall;
function Retrieve(lnFormatType: Integer): WideString; safecall;
function GetNumElements: Integer; safecall;
function GetElement(lnElementIndex: Integer): WideString; safecall;
procedure AddLeafElement(const bstrLeafElement: WideString); safecall;
procedure RemoveLeafElement; safecall;
function CopyPath: IDispatch; safecall;
function GetEscapedElement(lnReserved: Integer; const bstrInStr: WideString): WideString; safecall;
function Get_EscapedMode: Integer; safecall;
procedure Set_EscapedMode(retval: Integer); safecall;
property EscapedMode: Integer read Get_EscapedMode write Set_EscapedMode;
end;
// *********************************************************************//
// DispIntf: IADsPathnameDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {D592AED4-F420-11D0-A36E-00C04FB950DC}
// *********************************************************************//
IADsPathnameDisp = dispinterface
['{D592AED4-F420-11D0-A36E-00C04FB950DC}']
procedure Set_(const bstrADsPath: WideString; lnSetType: Integer); dispid 2;
procedure SetDisplayType(lnDisplayType: Integer); dispid 3;
function Retrieve(lnFormatType: Integer): WideString; dispid 4;
function GetNumElements: Integer; dispid 5;
function GetElement(lnElementIndex: Integer): WideString; dispid 6;
procedure AddLeafElement(const bstrLeafElement: WideString); dispid 7;
procedure RemoveLeafElement; dispid 8;
function CopyPath: IDispatch; dispid 9;
function GetEscapedElement(lnReserved: Integer; const bstrInStr: WideString): WideString; dispid 10;
property EscapedMode: Integer dispid 11;
end;
// *********************************************************************//
// Interface: IADsADSystemInfo
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {5BB11929-AFD1-11D2-9CB9-0000F87A369E}
// *********************************************************************//
IADsADSystemInfo = interface(IDispatch)
['{5BB11929-AFD1-11D2-9CB9-0000F87A369E}']
function Get_UserName: WideString; safecall;
function Get_ComputerName: WideString; safecall;
function Get_SiteName: WideString; safecall;
function Get_DomainShortName: WideString; safecall;
function Get_DomainDNSName: WideString; safecall;
function Get_ForestDNSName: WideString; safecall;
function Get_PDCRoleOwner: WideString; safecall;
function Get_SchemaRoleOwner: WideString; safecall;
function Get_IsNativeMode: WordBool; safecall;
function GetAnyDCName: WideString; safecall;
function GetDCSiteName(const szServer: WideString): WideString; safecall;
procedure RefreshSchemaCache; safecall;
function GetTrees: OleVariant; safecall;
property UserName: WideString read Get_UserName;
property ComputerName: WideString read Get_ComputerName;
property SiteName: WideString read Get_SiteName;
property DomainShortName: WideString read Get_DomainShortName;
property DomainDNSName: WideString read Get_DomainDNSName;
property ForestDNSName: WideString read Get_ForestDNSName;
property PDCRoleOwner: WideString read Get_PDCRoleOwner;
property SchemaRoleOwner: WideString read Get_SchemaRoleOwner;
property IsNativeMode: WordBool read Get_IsNativeMode;
end;
// *********************************************************************//
// DispIntf: IADsADSystemInfoDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {5BB11929-AFD1-11D2-9CB9-0000F87A369E}
// *********************************************************************//
IADsADSystemInfoDisp = dispinterface
['{5BB11929-AFD1-11D2-9CB9-0000F87A369E}']
property UserName: WideString readonly dispid 2;
property ComputerName: WideString readonly dispid 3;
property SiteName: WideString readonly dispid 4;
property DomainShortName: WideString readonly dispid 5;
property DomainDNSName: WideString readonly dispid 6;
property ForestDNSName: WideString readonly dispid 7;
property PDCRoleOwner: WideString readonly dispid 8;
property SchemaRoleOwner: WideString readonly dispid 9;
property IsNativeMode: WordBool readonly dispid 10;
function GetAnyDCName: WideString; dispid 11;
function GetDCSiteName(const szServer: WideString): WideString; dispid 12;
procedure RefreshSchemaCache; dispid 13;
function GetTrees: OleVariant; dispid 14;
end;
// *********************************************************************//
// Interface: IADsWinNTSystemInfo
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {6C6D65DC-AFD1-11D2-9CB9-0000F87A369E}
// *********************************************************************//
IADsWinNTSystemInfo = interface(IDispatch)
['{6C6D65DC-AFD1-11D2-9CB9-0000F87A369E}']
function Get_UserName: WideString; safecall;
function Get_ComputerName: WideString; safecall;
function Get_DomainName: WideString; safecall;
function Get_PDC: WideString; safecall;
property UserName: WideString read Get_UserName;
property ComputerName: WideString read Get_ComputerName;
property DomainName: WideString read Get_DomainName;
property PDC: WideString read Get_PDC;
end;
// *********************************************************************//
// DispIntf: IADsWinNTSystemInfoDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {6C6D65DC-AFD1-11D2-9CB9-0000F87A369E}
// *********************************************************************//
IADsWinNTSystemInfoDisp = dispinterface
['{6C6D65DC-AFD1-11D2-9CB9-0000F87A369E}']
property UserName: WideString readonly dispid 2;
property ComputerName: WideString readonly dispid 3;
property DomainName: WideString readonly dispid 4;
property PDC: WideString readonly dispid 5;
end;
// *********************************************************************//
// Interface: IADsDNWithBinary
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {7E99C0A2-F935-11D2-BA96-00C04FB6D0D1}
// *********************************************************************//
IADsDNWithBinary = interface(IDispatch)
['{7E99C0A2-F935-11D2-BA96-00C04FB6D0D1}']
function Get_BinaryValue: OleVariant; safecall;
procedure Set_BinaryValue(retval: OleVariant); safecall;
function Get_DNString: WideString; safecall;
procedure Set_DNString(const retval: WideString); safecall;
property BinaryValue: OleVariant read Get_BinaryValue write Set_BinaryValue;
property DNString: WideString read Get_DNString write Set_DNString;
end;
// *********************************************************************//
// DispIntf: IADsDNWithBinaryDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {7E99C0A2-F935-11D2-BA96-00C04FB6D0D1}
// *********************************************************************//
IADsDNWithBinaryDisp = dispinterface
['{7E99C0A2-F935-11D2-BA96-00C04FB6D0D1}']
property BinaryValue: OleVariant dispid 2;
property DNString: WideString dispid 3;
end;
// *********************************************************************//
// Interface: IADsDNWithString
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {370DF02E-F934-11D2-BA96-00C04FB6D0D1}
// *********************************************************************//
IADsDNWithString = interface(IDispatch)
['{370DF02E-F934-11D2-BA96-00C04FB6D0D1}']
function Get_StringValue: WideString; safecall;
procedure Set_StringValue(const retval: WideString); safecall;
function Get_DNString: WideString; safecall;
procedure Set_DNString(const retval: WideString); safecall;
property StringValue: WideString read Get_StringValue write Set_StringValue;
property DNString: WideString read Get_DNString write Set_DNString;
end;
// *********************************************************************//
// DispIntf: IADsDNWithStringDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {370DF02E-F934-11D2-BA96-00C04FB6D0D1}
// *********************************************************************//
IADsDNWithStringDisp = dispinterface
['{370DF02E-F934-11D2-BA96-00C04FB6D0D1}']
property StringValue: WideString dispid 2;
property DNString: WideString dispid 3;
end;
// *********************************************************************//
// The Class CoPropertyEntry provides a Create and CreateRemote method to
// create instances of the default interface IADsPropertyEntry exposed by
// the CoClass PropertyEntry. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoPropertyEntry = class
class function Create: IADsPropertyEntry;
class function CreateRemote(const MachineName: string): IADsPropertyEntry;
end;
// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object : TPropertyEntry
// Help String :
// Default Interface: IADsPropertyEntry
// Def. Intf. DISP? : No
// Event Interface:
// TypeFlags : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
TPropertyEntryProperties= class;
{$ENDIF}
TPropertyEntry = class(TOleServer)
private
FIntf: IADsPropertyEntry;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps: TPropertyEntryProperties;
function GetServerProperties: TPropertyEntryProperties;
{$ENDIF}
function GetDefaultInterface: IADsPropertyEntry;
protected
procedure InitServerData; override;
function Get_Name: WideString;
procedure Set_Name(const retval: WideString);
function Get_ADsType: Integer;
procedure Set_ADsType(retval: Integer);
function Get_ControlCode: Integer;
procedure Set_ControlCode(retval: Integer);
function Get_Values: OleVariant;
procedure Set_Values(retval: OleVariant);
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Connect; override;
procedure ConnectTo(svrIntf: IADsPropertyEntry);
procedure Disconnect; override;
procedure Clear;
property DefaultInterface: IADsPropertyEntry read GetDefaultInterface;
property Values: OleVariant read Get_Values write Set_Values;
property Name: WideString read Get_Name write Set_Name;
property ADsType: Integer read Get_ADsType write Set_ADsType;
property ControlCode: Integer read Get_ControlCode write Set_ControlCode;
published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
property Server: TPropertyEntryProperties read GetServerProperties;
{$ENDIF}
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object : TPropertyEntry
// (This object is used by the IDE's Property Inspector to allow editing
// of the properties of this server)
// *********************************************************************//
TPropertyEntryProperties = class(TPersistent)
private
FServer: TPropertyEntry;
function GetDefaultInterface: IADsPropertyEntry;
constructor Create(AServer: TPropertyEntry);
protected
function Get_Name: WideString;
procedure Set_Name(const retval: WideString);
function Get_ADsType: Integer;
procedure Set_ADsType(retval: Integer);
function Get_ControlCode: Integer;
procedure Set_ControlCode(retval: Integer);
function Get_Values: OleVariant;
procedure Set_Values(retval: OleVariant);
public
property DefaultInterface: IADsPropertyEntry read GetDefaultInterface;
published
property Name: WideString read Get_Name write Set_Name;
property ADsType: Integer read Get_ADsType write Set_ADsType;
property ControlCode: Integer read Get_ControlCode write Set_ControlCode;
end;
{$ENDIF}
// *********************************************************************//
// The Class CoPropertyValue provides a Create and CreateRemote method to
// create instances of the default interface IADsPropertyValue exposed by
// the CoClass PropertyValue. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoPropertyValue = class
class function Create: IADsPropertyValue;
class function CreateRemote(const MachineName: string): IADsPropertyValue;
end;
// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object : TPropertyValue
// Help String :
// Default Interface: IADsPropertyValue
// Def. Intf. DISP? : No
// Event Interface:
// TypeFlags : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
TPropertyValueProperties= class;
{$ENDIF}
TPropertyValue = class(TOleServer)
private
FIntf: IADsPropertyValue;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps: TPropertyValueProperties;
function GetServerProperties: TPropertyValueProperties;
{$ENDIF}
function GetDefaultInterface: IADsPropertyValue;
protected
procedure InitServerData; override;
function Get_ADsType: Integer;
procedure Set_ADsType(retval: Integer);
function Get_DNString: WideString;
procedure Set_DNString(const retval: WideString);
function Get_CaseExactString: WideString;
procedure Set_CaseExactString(const retval: WideString);
function Get_CaseIgnoreString: WideString;
procedure Set_CaseIgnoreString(const retval: WideString);
function Get_PrintableString: WideString;
procedure Set_PrintableString(const retval: WideString);
function Get_NumericString: WideString;
procedure Set_NumericString(const retval: WideString);
function Get_Boolean: Integer;
procedure Set_Boolean(retval: Integer);
function Get_Integer: Integer;
procedure Set_Integer(retval: Integer);
function Get_OctetString: OleVariant;
procedure Set_OctetString(retval: OleVariant);
function Get_SecurityDescriptor: IDispatch;
procedure Set_SecurityDescriptor(const retval: IDispatch);
function Get_LargeInteger: IDispatch;
procedure Set_LargeInteger(const retval: IDispatch);
function Get_UTCTime: TDateTime;
procedure Set_UTCTime(retval: TDateTime);
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Connect; override;
procedure ConnectTo(svrIntf: IADsPropertyValue);
procedure Disconnect; override;
procedure Clear;
property DefaultInterface: IADsPropertyValue read GetDefaultInterface;
property OctetString: OleVariant read Get_OctetString write Set_OctetString;
property SecurityDescriptor: IDispatch read Get_SecurityDescriptor write Set_SecurityDescriptor;
property LargeInteger: IDispatch read Get_LargeInteger write Set_LargeInteger;
property ADsType: Integer read Get_ADsType write Set_ADsType;
property DNString: WideString read Get_DNString write Set_DNString;
property CaseExactString: WideString read Get_CaseExactString write Set_CaseExactString;
property CaseIgnoreString: WideString read Get_CaseIgnoreString write Set_CaseIgnoreString;
property PrintableString: WideString read Get_PrintableString write Set_PrintableString;
property NumericString: WideString read Get_NumericString write Set_NumericString;
property Boolean: Integer read Get_Boolean write Set_Boolean;
property Integer: Integer read Get_Integer write Set_Integer;
property UTCTime: TDateTime read Get_UTCTime write Set_UTCTime;
published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
property Server: TPropertyValueProperties read GetServerProperties;
{$ENDIF}
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object : TPropertyValue
// (This object is used by the IDE's Property Inspector to allow editing
// of the properties of this server)
// *********************************************************************//
TPropertyValueProperties = class(TPersistent)
private
FServer: TPropertyValue;
function GetDefaultInterface: IADsPropertyValue;
constructor Create(AServer: TPropertyValue);
protected
function Get_ADsType: Integer;
procedure Set_ADsType(retval: Integer);
function Get_DNString: WideString;
procedure Set_DNString(const retval: WideString);
function Get_CaseExactString: WideString;
procedure Set_CaseExactString(const retval: WideString);
function Get_CaseIgnoreString: WideString;
procedure Set_CaseIgnoreString(const retval: WideString);
function Get_PrintableString: WideString;
procedure Set_PrintableString(const retval: WideString);
function Get_NumericString: WideString;
procedure Set_NumericString(const retval: WideString);
function Get_Boolean: Integer;
procedure Set_Boolean(retval: Integer);
function Get_Integer: Integer;
procedure Set_Integer(retval: Integer);
function Get_OctetString: OleVariant;
procedure Set_OctetString(retval: OleVariant);
function Get_SecurityDescriptor: IDispatch;
procedure Set_SecurityDescriptor(const retval: IDispatch);
function Get_LargeInteger: IDispatch;
procedure Set_LargeInteger(const retval: IDispatch);
function Get_UTCTime: TDateTime;
procedure Set_UTCTime(retval: TDateTime);
public
property DefaultInterface: IADsPropertyValue read GetDefaultInterface;
published
property ADsType: Integer read Get_ADsType write Set_ADsType;
property DNString: WideString read Get_DNString write Set_DNString;
property CaseExactString: WideString read Get_CaseExactString write Set_CaseExactString;
property CaseIgnoreString: WideString read Get_CaseIgnoreString write Set_CaseIgnoreString;
property PrintableString: WideString read Get_PrintableString write Set_PrintableString;
property NumericString: WideString read Get_NumericString write Set_NumericString;
property Boolean: Integer read Get_Boolean write Set_Boolean;
property Integer: Integer read Get_Integer write Set_Integer;
property UTCTime: TDateTime read Get_UTCTime write Set_UTCTime;
end;
{$ENDIF}
// *********************************************************************//
// The Class CoAccessControlEntry provides a Create and CreateRemote method to
// create instances of the default interface IADsAccessControlEntry exposed by
// the CoClass AccessControlEntry. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoAccessControlEntry = class
class function Create: IADsAccessControlEntry;
class function CreateRemote(const MachineName: string): IADsAccessControlEntry;
end;
// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object : TAccessControlEntry
// Help String :
// Default Interface: IADsAccessControlEntry
// Def. Intf. DISP? : No
// Event Interface:
// TypeFlags : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
TAccessControlEntryProperties= class;
{$ENDIF}
TAccessControlEntry = class(TOleServer)
private
FIntf: IADsAccessControlEntry;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps: TAccessControlEntryProperties;
function GetServerProperties: TAccessControlEntryProperties;
{$ENDIF}
function GetDefaultInterface: IADsAccessControlEntry;
protected
procedure InitServerData; override;
function Get_AccessMask: Integer;
procedure Set_AccessMask(retval: Integer);
function Get_AceType: Integer;
procedure Set_AceType(retval: Integer);
function Get_AceFlags: Integer;
procedure Set_AceFlags(retval: Integer);
function Get_Flags: Integer;
procedure Set_Flags(retval: Integer);
function Get_ObjectType: WideString;
procedure Set_ObjectType(const retval: WideString);
function Get_InheritedObjectType: WideString;
procedure Set_InheritedObjectType(const retval: WideString);
function Get_Trustee: WideString;
procedure Set_Trustee(const retval: WideString);
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Connect; override;
procedure ConnectTo(svrIntf: IADsAccessControlEntry);
procedure Disconnect; override;
property DefaultInterface: IADsAccessControlEntry read GetDefaultInterface;
property AccessMask: Integer read Get_AccessMask write Set_AccessMask;
property AceType: Integer read Get_AceType write Set_AceType;
property AceFlags: Integer read Get_AceFlags write Set_AceFlags;
property Flags: Integer read Get_Flags write Set_Flags;
property ObjectType: WideString read Get_ObjectType write Set_ObjectType;
property InheritedObjectType: WideString read Get_InheritedObjectType write Set_InheritedObjectType;
property Trustee: WideString read Get_Trustee write Set_Trustee;
published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
property Server: TAccessControlEntryProperties read GetServerProperties;
{$ENDIF}
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object : TAccessControlEntry
// (This object is used by the IDE's Property Inspector to allow editing
// of the properties of this server)
// *********************************************************************//
TAccessControlEntryProperties = class(TPersistent)
private
FServer: TAccessControlEntry;
function GetDefaultInterface: IADsAccessControlEntry;
constructor Create(AServer: TAccessControlEntry);
protected
function Get_AccessMask: Integer;
procedure Set_AccessMask(retval: Integer);
function Get_AceType: Integer;
procedure Set_AceType(retval: Integer);
function Get_AceFlags: Integer;
procedure Set_AceFlags(retval: Integer);
function Get_Flags: Integer;
procedure Set_Flags(retval: Integer);
function Get_ObjectType: WideString;
procedure Set_ObjectType(const retval: WideString);
function Get_InheritedObjectType: WideString;
procedure Set_InheritedObjectType(const retval: WideString);
function Get_Trustee: WideString;
procedure Set_Trustee(const retval: WideString);
public
property DefaultInterface: IADsAccessControlEntry read GetDefaultInterface;
published
property AccessMask: Integer read Get_AccessMask write Set_AccessMask;
property AceType: Integer read Get_AceType write Set_AceType;
property AceFlags: Integer read Get_AceFlags write Set_AceFlags;
property Flags: Integer read Get_Flags write Set_Flags;
property ObjectType: WideString read Get_ObjectType write Set_ObjectType;
property InheritedObjectType: WideString read Get_InheritedObjectType write Set_InheritedObjectType;
property Trustee: WideString read Get_Trustee write Set_Trustee;
end;
{$ENDIF}
// *********************************************************************//
// The Class CoAccessControlList provides a Create and CreateRemote method to
// create instances of the default interface IADsAccessControlList exposed by
// the CoClass AccessControlList. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoAccessControlList = class
class function Create: IADsAccessControlList;
class function CreateRemote(const MachineName: string): IADsAccessControlList;
end;
// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object : TAccessControlList
// Help String :
// Default Interface: IADsAccessControlList
// Def. Intf. DISP? : No
// Event Interface:
// TypeFlags : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
TAccessControlListProperties= class;
{$ENDIF}
TAccessControlList = class(TOleServer)
private
FIntf: IADsAccessControlList;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps: TAccessControlListProperties;
function GetServerProperties: TAccessControlListProperties;
{$ENDIF}
function GetDefaultInterface: IADsAccessControlList;
protected
procedure InitServerData; override;
function Get_AclRevision: Integer;
procedure Set_AclRevision(retval: Integer);
function Get_AceCount: Integer;
procedure Set_AceCount(retval: Integer);
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Connect; override;
procedure ConnectTo(svrIntf: IADsAccessControlList);
procedure Disconnect; override;
procedure AddAce(const pAccessControlEntry: IDispatch);
procedure RemoveAce(const pAccessControlEntry: IDispatch);
function CopyAccessList: IDispatch;
property DefaultInterface: IADsAccessControlList read GetDefaultInterface;
property AclRevision: Integer read Get_AclRevision write Set_AclRevision;
property AceCount: Integer read Get_AceCount write Set_AceCount;
published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
property Server: TAccessControlListProperties read GetServerProperties;
{$ENDIF}
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object : TAccessControlList
// (This object is used by the IDE's Property Inspector to allow editing
// of the properties of this server)
// *********************************************************************//
TAccessControlListProperties = class(TPersistent)
private
FServer: TAccessControlList;
function GetDefaultInterface: IADsAccessControlList;
constructor Create(AServer: TAccessControlList);
protected
function Get_AclRevision: Integer;
procedure Set_AclRevision(retval: Integer);
function Get_AceCount: Integer;
procedure Set_AceCount(retval: Integer);
public
property DefaultInterface: IADsAccessControlList read GetDefaultInterface;
published
property AclRevision: Integer read Get_AclRevision write Set_AclRevision;
property AceCount: Integer read Get_AceCount write Set_AceCount;
end;
{$ENDIF}
// *********************************************************************//
// The Class CoSecurityDescriptor provides a Create and CreateRemote method to
// create instances of the default interface IADsSecurityDescriptor exposed by
// the CoClass SecurityDescriptor. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoSecurityDescriptor = class
class function Create: IADsSecurityDescriptor;
class function CreateRemote(const MachineName: string): IADsSecurityDescriptor;
end;
// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object : TSecurityDescriptor
// Help String :
// Default Interface: IADsSecurityDescriptor
// Def. Intf. DISP? : No
// Event Interface:
// TypeFlags : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
TSecurityDescriptorProperties= class;
{$ENDIF}
TSecurityDescriptor = class(TOleServer)
private
FIntf: IADsSecurityDescriptor;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps: TSecurityDescriptorProperties;
function GetServerProperties: TSecurityDescriptorProperties;
{$ENDIF}
function GetDefaultInterface: IADsSecurityDescriptor;
protected
procedure InitServerData; override;
function Get_Revision: Integer;
procedure Set_Revision(retval: Integer);
function Get_Control: Integer;
procedure Set_Control(retval: Integer);
function Get_Owner: WideString;
procedure Set_Owner(const retval: WideString);
function Get_OwnerDefaulted: WordBool;
procedure Set_OwnerDefaulted(retval: WordBool);
function Get_Group: WideString;
procedure Set_Group(const retval: WideString);
function Get_GroupDefaulted: WordBool;
procedure Set_GroupDefaulted(retval: WordBool);
function Get_DiscretionaryAcl: IDispatch;
procedure Set_DiscretionaryAcl(const retval: IDispatch);
function Get_DaclDefaulted: WordBool;
procedure Set_DaclDefaulted(retval: WordBool);
function Get_SystemAcl: IDispatch;
procedure Set_SystemAcl(const retval: IDispatch);
function Get_SaclDefaulted: WordBool;
procedure Set_SaclDefaulted(retval: WordBool);
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Connect; override;
procedure ConnectTo(svrIntf: IADsSecurityDescriptor);
procedure Disconnect; override;
function CopySecurityDescriptor: IDispatch;
property DefaultInterface: IADsSecurityDescriptor read GetDefaultInterface;
property DiscretionaryAcl: IDispatch read Get_DiscretionaryAcl write Set_DiscretionaryAcl;
property SystemAcl: IDispatch read Get_SystemAcl write Set_SystemAcl;
property Revision: Integer read Get_Revision write Set_Revision;
property Control: Integer read Get_Control write Set_Control;
property Owner: WideString read Get_Owner write Set_Owner;
property OwnerDefaulted: WordBool read Get_OwnerDefaulted write Set_OwnerDefaulted;
property Group: WideString read Get_Group write Set_Group;
property GroupDefaulted: WordBool read Get_GroupDefaulted write Set_GroupDefaulted;
property DaclDefaulted: WordBool read Get_DaclDefaulted write Set_DaclDefaulted;
property SaclDefaulted: WordBool read Get_SaclDefaulted write Set_SaclDefaulted;
published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
property Server: TSecurityDescriptorProperties read GetServerProperties;
{$ENDIF}
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object : TSecurityDescriptor
// (This object is used by the IDE's Property Inspector to allow editing
// of the properties of this server)
// *********************************************************************//
TSecurityDescriptorProperties = class(TPersistent)
private
FServer: TSecurityDescriptor;
function GetDefaultInterface: IADsSecurityDescriptor;
constructor Create(AServer: TSecurityDescriptor);
protected
function Get_Revision: Integer;
procedure Set_Revision(retval: Integer);
function Get_Control: Integer;
procedure Set_Control(retval: Integer);
function Get_Owner: WideString;
procedure Set_Owner(const retval: WideString);
function Get_OwnerDefaulted: WordBool;
procedure Set_OwnerDefaulted(retval: WordBool);
function Get_Group: WideString;
procedure Set_Group(const retval: WideString);
function Get_GroupDefaulted: WordBool;
procedure Set_GroupDefaulted(retval: WordBool);
function Get_DiscretionaryAcl: IDispatch;
procedure Set_DiscretionaryAcl(const retval: IDispatch);
function Get_DaclDefaulted: WordBool;
procedure Set_DaclDefaulted(retval: WordBool);
function Get_SystemAcl: IDispatch;
procedure Set_SystemAcl(const retval: IDispatch);
function Get_SaclDefaulted: WordBool;
procedure Set_SaclDefaulted(retval: WordBool);
public
property DefaultInterface: IADsSecurityDescriptor read GetDefaultInterface;
published
property Revision: Integer read Get_Revision write Set_Revision;
property Control: Integer read Get_Control write Set_Control;
property Owner: WideString read Get_Owner write Set_Owner;
property OwnerDefaulted: WordBool read Get_OwnerDefaulted write Set_OwnerDefaulted;
property Group: WideString read Get_Group write Set_Group;
property GroupDefaulted: WordBool read Get_GroupDefaulted write Set_GroupDefaulted;
property DaclDefaulted: WordBool read Get_DaclDefaulted write Set_DaclDefaulted;
property SaclDefaulted: WordBool read Get_SaclDefaulted write Set_SaclDefaulted;
end;
{$ENDIF}
// *********************************************************************//
// The Class CoLargeInteger provides a Create and CreateRemote method to
// create instances of the default interface IADsLargeInteger exposed by
// the CoClass LargeInteger. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoLargeInteger = class
class function Create: IADsLargeInteger;
class function CreateRemote(const MachineName: string): IADsLargeInteger;
end;
// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object : TLargeInteger
// Help String :
// Default Interface: IADsLargeInteger
// Def. Intf. DISP? : No
// Event Interface:
// TypeFlags : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
TLargeIntegerProperties= class;
{$ENDIF}
TLargeInteger = class(TOleServer)
private
FIntf: IADsLargeInteger;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps: TLargeIntegerProperties;
function GetServerProperties: TLargeIntegerProperties;
{$ENDIF}
function GetDefaultInterface: IADsLargeInteger;
protected
procedure InitServerData; override;
function Get_HighPart: Integer;
procedure Set_HighPart(retval: Integer);
function Get_LowPart: Integer;
procedure Set_LowPart(retval: Integer);
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Connect; override;
procedure ConnectTo(svrIntf: IADsLargeInteger);
procedure Disconnect; override;
property DefaultInterface: IADsLargeInteger read GetDefaultInterface;
property HighPart: Integer read Get_HighPart write Set_HighPart;
property LowPart: Integer read Get_LowPart write Set_LowPart;
published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
property Server: TLargeIntegerProperties read GetServerProperties;
{$ENDIF}
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object : TLargeInteger
// (This object is used by the IDE's Property Inspector to allow editing
// of the properties of this server)
// *********************************************************************//
TLargeIntegerProperties = class(TPersistent)
private
FServer: TLargeInteger;
function GetDefaultInterface: IADsLargeInteger;
constructor Create(AServer: TLargeInteger);
protected
function Get_HighPart: Integer;
procedure Set_HighPart(retval: Integer);
function Get_LowPart: Integer;
procedure Set_LowPart(retval: Integer);
public
property DefaultInterface: IADsLargeInteger read GetDefaultInterface;
published
property HighPart: Integer read Get_HighPart write Set_HighPart;
property LowPart: Integer read Get_LowPart write Set_LowPart;
end;
{$ENDIF}
// *********************************************************************//
// The Class CoNameTranslate provides a Create and CreateRemote method to
// create instances of the default interface IADsNameTranslate exposed by
// the CoClass NameTranslate. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoNameTranslate = class
class function Create: IADsNameTranslate;
class function CreateRemote(const MachineName: string): IADsNameTranslate;
end;
// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object : TNameTranslate
// Help String :
// Default Interface: IADsNameTranslate
// Def. Intf. DISP? : No
// Event Interface:
// TypeFlags : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
TNameTranslateProperties= class;
{$ENDIF}
TNameTranslate = class(TOleServer)
private
FIntf: IADsNameTranslate;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps: TNameTranslateProperties;
function GetServerProperties: TNameTranslateProperties;
{$ENDIF}
function GetDefaultInterface: IADsNameTranslate;
protected
procedure InitServerData; override;
procedure Set_ChaseReferral(Param1: Integer);
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Connect; override;
procedure ConnectTo(svrIntf: IADsNameTranslate);
procedure Disconnect; override;
procedure Init(lnSetType: Integer; const bstrADsPath: WideString);
procedure InitEx(lnSetType: Integer; const bstrADsPath: WideString;
const bstrUserID: WideString; const bstrDomain: WideString;
const bstrPassword: WideString);
procedure Set_(lnSetType: Integer; const bstrADsPath: WideString);
function Get(lnFormatType: Integer): WideString;
procedure SetEx(lnFormatType: Integer; pVar: OleVariant);
function GetEx(lnFormatType: Integer): OleVariant;
property DefaultInterface: IADsNameTranslate read GetDefaultInterface;
property ChaseReferral: Integer write Set_ChaseReferral;
published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
property Server: TNameTranslateProperties read GetServerProperties;
{$ENDIF}
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object : TNameTranslate
// (This object is used by the IDE's Property Inspector to allow editing
// of the properties of this server)
// *********************************************************************//
TNameTranslateProperties = class(TPersistent)
private
FServer: TNameTranslate;
function GetDefaultInterface: IADsNameTranslate;
constructor Create(AServer: TNameTranslate);
protected
procedure Set_ChaseReferral(Param1: Integer);
public
property DefaultInterface: IADsNameTranslate read GetDefaultInterface;
published
end;
{$ENDIF}
// *********************************************************************//
// The Class CoCaseIgnoreList provides a Create and CreateRemote method to
// create instances of the default interface IADsCaseIgnoreList exposed by
// the CoClass CaseIgnoreList. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoCaseIgnoreList = class
class function Create: IADsCaseIgnoreList;
class function CreateRemote(const MachineName: string): IADsCaseIgnoreList;
end;
// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object : TCaseIgnoreList
// Help String :
// Default Interface: IADsCaseIgnoreList
// Def. Intf. DISP? : No
// Event Interface:
// TypeFlags : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
TCaseIgnoreListProperties= class;
{$ENDIF}
TCaseIgnoreList = class(TOleServer)
private
FIntf: IADsCaseIgnoreList;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps: TCaseIgnoreListProperties;
function GetServerProperties: TCaseIgnoreListProperties;
{$ENDIF}
function GetDefaultInterface: IADsCaseIgnoreList;
protected
procedure InitServerData; override;
function Get_CaseIgnoreList: OleVariant;
procedure Set_CaseIgnoreList(retval: OleVariant);
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Connect; override;
procedure ConnectTo(svrIntf: IADsCaseIgnoreList);
procedure Disconnect; override;
property DefaultInterface: IADsCaseIgnoreList read GetDefaultInterface;
property CaseIgnoreList: OleVariant read Get_CaseIgnoreList write Set_CaseIgnoreList;
published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
property Server: TCaseIgnoreListProperties read GetServerProperties;
{$ENDIF}
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object : TCaseIgnoreList
// (This object is used by the IDE's Property Inspector to allow editing
// of the properties of this server)
// *********************************************************************//
TCaseIgnoreListProperties = class(TPersistent)
private
FServer: TCaseIgnoreList;
function GetDefaultInterface: IADsCaseIgnoreList;
constructor Create(AServer: TCaseIgnoreList);
protected
function Get_CaseIgnoreList: OleVariant;
procedure Set_CaseIgnoreList(retval: OleVariant);
public
property DefaultInterface: IADsCaseIgnoreList read GetDefaultInterface;
published
end;
{$ENDIF}
// *********************************************************************//
// The Class CoFaxNumber provides a Create and CreateRemote method to
// create instances of the default interface IADsFaxNumber exposed by
// the CoClass FaxNumber. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoFaxNumber = class
class function Create: IADsFaxNumber;
class function CreateRemote(const MachineName: string): IADsFaxNumber;
end;
// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object : TFaxNumber
// Help String :
// Default Interface: IADsFaxNumber
// Def. Intf. DISP? : No
// Event Interface:
// TypeFlags : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
TFaxNumberProperties= class;
{$ENDIF}
TFaxNumber = class(TOleServer)
private
FIntf: IADsFaxNumber;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps: TFaxNumberProperties;
function GetServerProperties: TFaxNumberProperties;
{$ENDIF}
function GetDefaultInterface: IADsFaxNumber;
protected
procedure InitServerData; override;
function Get_TelephoneNumber: WideString;
procedure Set_TelephoneNumber(const retval: WideString);
function Get_Parameters: OleVariant;
procedure Set_Parameters(retval: OleVariant);
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Connect; override;
procedure ConnectTo(svrIntf: IADsFaxNumber);
procedure Disconnect; override;
property DefaultInterface: IADsFaxNumber read GetDefaultInterface;
property Parameters: OleVariant read Get_Parameters write Set_Parameters;
property TelephoneNumber: WideString read Get_TelephoneNumber write Set_TelephoneNumber;
published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
property Server: TFaxNumberProperties read GetServerProperties;
{$ENDIF}
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object : TFaxNumber
// (This object is used by the IDE's Property Inspector to allow editing
// of the properties of this server)
// *********************************************************************//
TFaxNumberProperties = class(TPersistent)
private
FServer: TFaxNumber;
function GetDefaultInterface: IADsFaxNumber;
constructor Create(AServer: TFaxNumber);
protected
function Get_TelephoneNumber: WideString;
procedure Set_TelephoneNumber(const retval: WideString);
function Get_Parameters: OleVariant;
procedure Set_Parameters(retval: OleVariant);
public
property DefaultInterface: IADsFaxNumber read GetDefaultInterface;
published
property TelephoneNumber: WideString read Get_TelephoneNumber write Set_TelephoneNumber;
end;
{$ENDIF}
// *********************************************************************//
// The Class CoNetAddress provides a Create and CreateRemote method to
// create instances of the default interface IADsNetAddress exposed by
// the CoClass NetAddress. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoNetAddress = class
class function Create: IADsNetAddress;
class function CreateRemote(const MachineName: string): IADsNetAddress;
end;
// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object : TNetAddress
// Help String :
// Default Interface: IADsNetAddress
// Def. Intf. DISP? : No
// Event Interface:
// TypeFlags : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
TNetAddressProperties= class;
{$ENDIF}
TNetAddress = class(TOleServer)
private
FIntf: IADsNetAddress;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps: TNetAddressProperties;
function GetServerProperties: TNetAddressProperties;
{$ENDIF}
function GetDefaultInterface: IADsNetAddress;
protected
procedure InitServerData; override;
function Get_AddressType: Integer;
procedure Set_AddressType(retval: Integer);
function Get_Address: OleVariant;
procedure Set_Address(retval: OleVariant);
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Connect; override;
procedure ConnectTo(svrIntf: IADsNetAddress);
procedure Disconnect; override;
property DefaultInterface: IADsNetAddress read GetDefaultInterface;
property Address: OleVariant read Get_Address write Set_Address;
property AddressType: Integer read Get_AddressType write Set_AddressType;
published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
property Server: TNetAddressProperties read GetServerProperties;
{$ENDIF}
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object : TNetAddress
// (This object is used by the IDE's Property Inspector to allow editing
// of the properties of this server)
// *********************************************************************//
TNetAddressProperties = class(TPersistent)
private
FServer: TNetAddress;
function GetDefaultInterface: IADsNetAddress;
constructor Create(AServer: TNetAddress);
protected
function Get_AddressType: Integer;
procedure Set_AddressType(retval: Integer);
function Get_Address: OleVariant;
procedure Set_Address(retval: OleVariant);
public
property DefaultInterface: IADsNetAddress read GetDefaultInterface;
published
property AddressType: Integer read Get_AddressType write Set_AddressType;
end;
{$ENDIF}
// *********************************************************************//
// The Class CoOctetList provides a Create and CreateRemote method to
// create instances of the default interface IADsOctetList exposed by
// the CoClass OctetList. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoOctetList = class
class function Create: IADsOctetList;
class function CreateRemote(const MachineName: string): IADsOctetList;
end;
// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object : TOctetList
// Help String :
// Default Interface: IADsOctetList
// Def. Intf. DISP? : No
// Event Interface:
// TypeFlags : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
TOctetListProperties= class;
{$ENDIF}
TOctetList = class(TOleServer)
private
FIntf: IADsOctetList;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps: TOctetListProperties;
function GetServerProperties: TOctetListProperties;
{$ENDIF}
function GetDefaultInterface: IADsOctetList;
protected
procedure InitServerData; override;
function Get_OctetList: OleVariant;
procedure Set_OctetList(retval: OleVariant);
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Connect; override;
procedure ConnectTo(svrIntf: IADsOctetList);
procedure Disconnect; override;
property DefaultInterface: IADsOctetList read GetDefaultInterface;
property OctetList: OleVariant read Get_OctetList write Set_OctetList;
published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
property Server: TOctetListProperties read GetServerProperties;
{$ENDIF}
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object : TOctetList
// (This object is used by the IDE's Property Inspector to allow editing
// of the properties of this server)
// *********************************************************************//
TOctetListProperties = class(TPersistent)
private
FServer: TOctetList;
function GetDefaultInterface: IADsOctetList;
constructor Create(AServer: TOctetList);
protected
function Get_OctetList: OleVariant;
procedure Set_OctetList(retval: OleVariant);
public
property DefaultInterface: IADsOctetList read GetDefaultInterface;
published
end;
{$ENDIF}
// *********************************************************************//
// The Class CoEmail provides a Create and CreateRemote method to
// create instances of the default interface IADsEmail exposed by
// the CoClass Email. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoEmail = class
class function Create: IADsEmail;
class function CreateRemote(const MachineName: string): IADsEmail;
end;
// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object : TEmail
// Help String :
// Default Interface: IADsEmail
// Def. Intf. DISP? : No
// Event Interface:
// TypeFlags : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
TEmailProperties= class;
{$ENDIF}
TEmail = class(TOleServer)
private
FIntf: IADsEmail;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps: TEmailProperties;
function GetServerProperties: TEmailProperties;
{$ENDIF}
function GetDefaultInterface: IADsEmail;
protected
procedure InitServerData; override;
function Get_Type_: Integer;
procedure Set_Type_(retval: Integer);
function Get_Address: WideString;
procedure Set_Address(const retval: WideString);
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Connect; override;
procedure ConnectTo(svrIntf: IADsEmail);
procedure Disconnect; override;
property DefaultInterface: IADsEmail read GetDefaultInterface;
property Type_: Integer read Get_Type_ write Set_Type_;
property Address: WideString read Get_Address write Set_Address;
published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
property Server: TEmailProperties read GetServerProperties;
{$ENDIF}
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object : TEmail
// (This object is used by the IDE's Property Inspector to allow editing
// of the properties of this server)
// *********************************************************************//
TEmailProperties = class(TPersistent)
private
FServer: TEmail;
function GetDefaultInterface: IADsEmail;
constructor Create(AServer: TEmail);
protected
function Get_Type_: Integer;
procedure Set_Type_(retval: Integer);
function Get_Address: WideString;
procedure Set_Address(const retval: WideString);
public
property DefaultInterface: IADsEmail read GetDefaultInterface;
published
property Type_: Integer read Get_Type_ write Set_Type_;
property Address: WideString read Get_Address write Set_Address;
end;
{$ENDIF}
// *********************************************************************//
// The Class CoPath provides a Create and CreateRemote method to
// create instances of the default interface IADsPath exposed by
// the CoClass Path. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoPath = class
class function Create: IADsPath;
class function CreateRemote(const MachineName: string): IADsPath;
end;
// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object : TPath
// Help String :
// Default Interface: IADsPath
// Def. Intf. DISP? : No
// Event Interface:
// TypeFlags : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
TPathProperties= class;
{$ENDIF}
TPath = class(TOleServer)
private
FIntf: IADsPath;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps: TPathProperties;
function GetServerProperties: TPathProperties;
{$ENDIF}
function GetDefaultInterface: IADsPath;
protected
procedure InitServerData; override;
function Get_Type_: Integer;
procedure Set_Type_(retval: Integer);
function Get_VolumeName: WideString;
procedure Set_VolumeName(const retval: WideString);
function Get_Path: WideString;
procedure Set_Path(const retval: WideString);
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Connect; override;
procedure ConnectTo(svrIntf: IADsPath);
procedure Disconnect; override;
property DefaultInterface: IADsPath read GetDefaultInterface;
property Type_: Integer read Get_Type_ write Set_Type_;
property VolumeName: WideString read Get_VolumeName write Set_VolumeName;
property Path: WideString read Get_Path write Set_Path;
published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
property Server: TPathProperties read GetServerProperties;
{$ENDIF}
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object : TPath
// (This object is used by the IDE's Property Inspector to allow editing
// of the properties of this server)
// *********************************************************************//
TPathProperties = class(TPersistent)
private
FServer: TPath;
function GetDefaultInterface: IADsPath;
constructor Create(AServer: TPath);
protected
function Get_Type_: Integer;
procedure Set_Type_(retval: Integer);
function Get_VolumeName: WideString;
procedure Set_VolumeName(const retval: WideString);
function Get_Path: WideString;
procedure Set_Path(const retval: WideString);
public
property DefaultInterface: IADsPath read GetDefaultInterface;
published
property Type_: Integer read Get_Type_ write Set_Type_;
property VolumeName: WideString read Get_VolumeName write Set_VolumeName;
property Path: WideString read Get_Path write Set_Path;
end;
{$ENDIF}
// *********************************************************************//
// The Class CoReplicaPointer provides a Create and CreateRemote method to
// create instances of the default interface IADsReplicaPointer exposed by
// the CoClass ReplicaPointer. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoReplicaPointer = class
class function Create: IADsReplicaPointer;
class function CreateRemote(const MachineName: string): IADsReplicaPointer;
end;
// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object : TReplicaPointer
// Help String :
// Default Interface: IADsReplicaPointer
// Def. Intf. DISP? : No
// Event Interface:
// TypeFlags : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
TReplicaPointerProperties= class;
{$ENDIF}
TReplicaPointer = class(TOleServer)
private
FIntf: IADsReplicaPointer;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps: TReplicaPointerProperties;
function GetServerProperties: TReplicaPointerProperties;
{$ENDIF}
function GetDefaultInterface: IADsReplicaPointer;
protected
procedure InitServerData; override;
function Get_ServerName: WideString;
procedure Set_ServerName(const retval: WideString);
function Get_ReplicaType: Integer;
procedure Set_ReplicaType(retval: Integer);
function Get_ReplicaNumber: Integer;
procedure Set_ReplicaNumber(retval: Integer);
function Get_Count: Integer;
procedure Set_Count(retval: Integer);
function Get_ReplicaAddressHints: OleVariant;
procedure Set_ReplicaAddressHints(retval: OleVariant);
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Connect; override;
procedure ConnectTo(svrIntf: IADsReplicaPointer);
procedure Disconnect; override;
property DefaultInterface: IADsReplicaPointer read GetDefaultInterface;
property ReplicaAddressHints: OleVariant read Get_ReplicaAddressHints write Set_ReplicaAddressHints;
property ServerName: WideString read Get_ServerName write Set_ServerName;
property ReplicaType: Integer read Get_ReplicaType write Set_ReplicaType;
property ReplicaNumber: Integer read Get_ReplicaNumber write Set_ReplicaNumber;
property Count: Integer read Get_Count write Set_Count;
published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
property Server: TReplicaPointerProperties read GetServerProperties;
{$ENDIF}
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object : TReplicaPointer
// (This object is used by the IDE's Property Inspector to allow editing
// of the properties of this server)
// *********************************************************************//
TReplicaPointerProperties = class(TPersistent)
private
FServer: TReplicaPointer;
function GetDefaultInterface: IADsReplicaPointer;
constructor Create(AServer: TReplicaPointer);
protected
function Get_ServerName: WideString;
procedure Set_ServerName(const retval: WideString);
function Get_ReplicaType: Integer;
procedure Set_ReplicaType(retval: Integer);
function Get_ReplicaNumber: Integer;
procedure Set_ReplicaNumber(retval: Integer);
function Get_Count: Integer;
procedure Set_Count(retval: Integer);
function Get_ReplicaAddressHints: OleVariant;
procedure Set_ReplicaAddressHints(retval: OleVariant);
public
property DefaultInterface: IADsReplicaPointer read GetDefaultInterface;
published
property ServerName: WideString read Get_ServerName write Set_ServerName;
property ReplicaType: Integer read Get_ReplicaType write Set_ReplicaType;
property ReplicaNumber: Integer read Get_ReplicaNumber write Set_ReplicaNumber;
property Count: Integer read Get_Count write Set_Count;
end;
{$ENDIF}
// *********************************************************************//
// The Class CoAcl provides a Create and CreateRemote method to
// create instances of the default interface IADsAcl exposed by
// the CoClass Acl. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoAcl = class
class function Create: IADsAcl;
class function CreateRemote(const MachineName: string): IADsAcl;
end;
// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object : TAcl
// Help String :
// Default Interface: IADsAcl
// Def. Intf. DISP? : No
// Event Interface:
// TypeFlags : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
TAclProperties= class;
{$ENDIF}
TAcl = class(TOleServer)
private
FIntf: IADsAcl;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps: TAclProperties;
function GetServerProperties: TAclProperties;
{$ENDIF}
function GetDefaultInterface: IADsAcl;
protected
procedure InitServerData; override;
function Get_ProtectedAttrName: WideString;
procedure Set_ProtectedAttrName(const retval: WideString);
function Get_SubjectName: WideString;
procedure Set_SubjectName(const retval: WideString);
function Get_Privileges: Integer;
procedure Set_Privileges(retval: Integer);
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Connect; override;
procedure ConnectTo(svrIntf: IADsAcl);
procedure Disconnect; override;
function CopyAcl: IDispatch;
property DefaultInterface: IADsAcl read GetDefaultInterface;
property ProtectedAttrName: WideString read Get_ProtectedAttrName write Set_ProtectedAttrName;
property SubjectName: WideString read Get_SubjectName write Set_SubjectName;
property Privileges: Integer read Get_Privileges write Set_Privileges;
published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
property Server: TAclProperties read GetServerProperties;
{$ENDIF}
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object : TAcl
// (This object is used by the IDE's Property Inspector to allow editing
// of the properties of this server)
// *********************************************************************//
TAclProperties = class(TPersistent)
private
FServer: TAcl;
function GetDefaultInterface: IADsAcl;
constructor Create(AServer: TAcl);
protected
function Get_ProtectedAttrName: WideString;
procedure Set_ProtectedAttrName(const retval: WideString);
function Get_SubjectName: WideString;
procedure Set_SubjectName(const retval: WideString);
function Get_Privileges: Integer;
procedure Set_Privileges(retval: Integer);
public
property DefaultInterface: IADsAcl read GetDefaultInterface;
published
property ProtectedAttrName: WideString read Get_ProtectedAttrName write Set_ProtectedAttrName;
property SubjectName: WideString read Get_SubjectName write Set_SubjectName;
property Privileges: Integer read Get_Privileges write Set_Privileges;
end;
{$ENDIF}
// *********************************************************************//
// The Class CoTimestamp provides a Create and CreateRemote method to
// create instances of the default interface IADsTimestamp exposed by
// the CoClass Timestamp. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoTimestamp = class
class function Create: IADsTimestamp;
class function CreateRemote(const MachineName: string): IADsTimestamp;
end;
// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object : TTimestamp
// Help String :
// Default Interface: IADsTimestamp
// Def. Intf. DISP? : No
// Event Interface:
// TypeFlags : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
TTimestampProperties= class;
{$ENDIF}
TTimestamp = class(TOleServer)
private
FIntf: IADsTimestamp;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps: TTimestampProperties;
function GetServerProperties: TTimestampProperties;
{$ENDIF}
function GetDefaultInterface: IADsTimestamp;
protected
procedure InitServerData; override;
function Get_WholeSeconds: Integer;
procedure Set_WholeSeconds(retval: Integer);
function Get_EventID: Integer;
procedure Set_EventID(retval: Integer);
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Connect; override;
procedure ConnectTo(svrIntf: IADsTimestamp);
procedure Disconnect; override;
property DefaultInterface: IADsTimestamp read GetDefaultInterface;
property WholeSeconds: Integer read Get_WholeSeconds write Set_WholeSeconds;
property EventID: Integer read Get_EventID write Set_EventID;
published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
property Server: TTimestampProperties read GetServerProperties;
{$ENDIF}
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object : TTimestamp
// (This object is used by the IDE's Property Inspector to allow editing
// of the properties of this server)
// *********************************************************************//
TTimestampProperties = class(TPersistent)
private
FServer: TTimestamp;
function GetDefaultInterface: IADsTimestamp;
constructor Create(AServer: TTimestamp);
protected
function Get_WholeSeconds: Integer;
procedure Set_WholeSeconds(retval: Integer);
function Get_EventID: Integer;
procedure Set_EventID(retval: Integer);
public
property DefaultInterface: IADsTimestamp read GetDefaultInterface;
published
property WholeSeconds: Integer read Get_WholeSeconds write Set_WholeSeconds;
property EventID: Integer read Get_EventID write Set_EventID;
end;
{$ENDIF}
// *********************************************************************//
// The Class CoPostalAddress provides a Create and CreateRemote method to
// create instances of the default interface IADsPostalAddress exposed by
// the CoClass PostalAddress. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoPostalAddress = class
class function Create: IADsPostalAddress;
class function CreateRemote(const MachineName: string): IADsPostalAddress;
end;
// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object : TPostalAddress
// Help String :
// Default Interface: IADsPostalAddress
// Def. Intf. DISP? : No
// Event Interface:
// TypeFlags : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
TPostalAddressProperties= class;
{$ENDIF}
TPostalAddress = class(TOleServer)
private
FIntf: IADsPostalAddress;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps: TPostalAddressProperties;
function GetServerProperties: TPostalAddressProperties;
{$ENDIF}
function GetDefaultInterface: IADsPostalAddress;
protected
procedure InitServerData; override;
function Get_PostalAddress: OleVariant;
procedure Set_PostalAddress(retval: OleVariant);
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Connect; override;
procedure ConnectTo(svrIntf: IADsPostalAddress);
procedure Disconnect; override;
property DefaultInterface: IADsPostalAddress read GetDefaultInterface;
property PostalAddress: OleVariant read Get_PostalAddress write Set_PostalAddress;
published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
property Server: TPostalAddressProperties read GetServerProperties;
{$ENDIF}
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object : TPostalAddress
// (This object is used by the IDE's Property Inspector to allow editing
// of the properties of this server)
// *********************************************************************//
TPostalAddressProperties = class(TPersistent)
private
FServer: TPostalAddress;
function GetDefaultInterface: IADsPostalAddress;
constructor Create(AServer: TPostalAddress);
protected
function Get_PostalAddress: OleVariant;
procedure Set_PostalAddress(retval: OleVariant);
public
property DefaultInterface: IADsPostalAddress read GetDefaultInterface;
published
end;
{$ENDIF}
// *********************************************************************//
// The Class CoBackLink provides a Create and CreateRemote method to
// create instances of the default interface IADsBackLink exposed by
// the CoClass BackLink. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoBackLink = class
class function Create: IADsBackLink;
class function CreateRemote(const MachineName: string): IADsBackLink;
end;
// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object : TBackLink
// Help String :
// Default Interface: IADsBackLink
// Def. Intf. DISP? : No
// Event Interface:
// TypeFlags : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
TBackLinkProperties= class;
{$ENDIF}
TBackLink = class(TOleServer)
private
FIntf: IADsBackLink;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps: TBackLinkProperties;
function GetServerProperties: TBackLinkProperties;
{$ENDIF}
function GetDefaultInterface: IADsBackLink;
protected
procedure InitServerData; override;
function Get_RemoteID: Integer;
procedure Set_RemoteID(retval: Integer);
function Get_ObjectName: WideString;
procedure Set_ObjectName(const retval: WideString);
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Connect; override;
procedure ConnectTo(svrIntf: IADsBackLink);
procedure Disconnect; override;
property DefaultInterface: IADsBackLink read GetDefaultInterface;
property RemoteID: Integer read Get_RemoteID write Set_RemoteID;
property ObjectName: WideString read Get_ObjectName write Set_ObjectName;
published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
property Server: TBackLinkProperties read GetServerProperties;
{$ENDIF}
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object : TBackLink
// (This object is used by the IDE's Property Inspector to allow editing
// of the properties of this server)
// *********************************************************************//
TBackLinkProperties = class(TPersistent)
private
FServer: TBackLink;
function GetDefaultInterface: IADsBackLink;
constructor Create(AServer: TBackLink);
protected
function Get_RemoteID: Integer;
procedure Set_RemoteID(retval: Integer);
function Get_ObjectName: WideString;
procedure Set_ObjectName(const retval: WideString);
public
property DefaultInterface: IADsBackLink read GetDefaultInterface;
published
property RemoteID: Integer read Get_RemoteID write Set_RemoteID;
property ObjectName: WideString read Get_ObjectName write Set_ObjectName;
end;
{$ENDIF}
// *********************************************************************//
// The Class CoTypedName provides a Create and CreateRemote method to
// create instances of the default interface IADsTypedName exposed by
// the CoClass TypedName. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoTypedName = class
class function Create: IADsTypedName;
class function CreateRemote(const MachineName: string): IADsTypedName;
end;
// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object : TTypedName
// Help String :
// Default Interface: IADsTypedName
// Def. Intf. DISP? : No
// Event Interface:
// TypeFlags : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
TTypedNameProperties= class;
{$ENDIF}
TTypedName = class(TOleServer)
private
FIntf: IADsTypedName;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps: TTypedNameProperties;
function GetServerProperties: TTypedNameProperties;
{$ENDIF}
function GetDefaultInterface: IADsTypedName;
protected
procedure InitServerData; override;
function Get_ObjectName: WideString;
procedure Set_ObjectName(const retval: WideString);
function Get_Level: Integer;
procedure Set_Level(retval: Integer);
function Get_Interval: Integer;
procedure Set_Interval(retval: Integer);
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Connect; override;
procedure ConnectTo(svrIntf: IADsTypedName);
procedure Disconnect; override;
property DefaultInterface: IADsTypedName read GetDefaultInterface;
property ObjectName: WideString read Get_ObjectName write Set_ObjectName;
property Level: Integer read Get_Level write Set_Level;
property Interval: Integer read Get_Interval write Set_Interval;
published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
property Server: TTypedNameProperties read GetServerProperties;
{$ENDIF}
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object : TTypedName
// (This object is used by the IDE's Property Inspector to allow editing
// of the properties of this server)
// *********************************************************************//
TTypedNameProperties = class(TPersistent)
private
FServer: TTypedName;
function GetDefaultInterface: IADsTypedName;
constructor Create(AServer: TTypedName);
protected
function Get_ObjectName: WideString;
procedure Set_ObjectName(const retval: WideString);
function Get_Level: Integer;
procedure Set_Level(retval: Integer);
function Get_Interval: Integer;
procedure Set_Interval(retval: Integer);
public
property DefaultInterface: IADsTypedName read GetDefaultInterface;
published
property ObjectName: WideString read Get_ObjectName write Set_ObjectName;
property Level: Integer read Get_Level write Set_Level;
property Interval: Integer read Get_Interval write Set_Interval;
end;
{$ENDIF}
// *********************************************************************//
// The Class CoHold provides a Create and CreateRemote method to
// create instances of the default interface IADsHold exposed by
// the CoClass Hold. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoHold = class
class function Create: IADsHold;
class function CreateRemote(const MachineName: string): IADsHold;
end;
// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object : THold
// Help String :
// Default Interface: IADsHold
// Def. Intf. DISP? : No
// Event Interface:
// TypeFlags : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
THoldProperties= class;
{$ENDIF}
THold = class(TOleServer)
private
FIntf: IADsHold;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps: THoldProperties;
function GetServerProperties: THoldProperties;
{$ENDIF}
function GetDefaultInterface: IADsHold;
protected
procedure InitServerData; override;
function Get_ObjectName: WideString;
procedure Set_ObjectName(const retval: WideString);
function Get_Amount: Integer;
procedure Set_Amount(retval: Integer);
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Connect; override;
procedure ConnectTo(svrIntf: IADsHold);
procedure Disconnect; override;
property DefaultInterface: IADsHold read GetDefaultInterface;
property ObjectName: WideString read Get_ObjectName write Set_ObjectName;
property Amount: Integer read Get_Amount write Set_Amount;
published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
property Server: THoldProperties read GetServerProperties;
{$ENDIF}
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object : THold
// (This object is used by the IDE's Property Inspector to allow editing
// of the properties of this server)
// *********************************************************************//
THoldProperties = class(TPersistent)
private
FServer: THold;
function GetDefaultInterface: IADsHold;
constructor Create(AServer: THold);
protected
function Get_ObjectName: WideString;
procedure Set_ObjectName(const retval: WideString);
function Get_Amount: Integer;
procedure Set_Amount(retval: Integer);
public
property DefaultInterface: IADsHold read GetDefaultInterface;
published
property ObjectName: WideString read Get_ObjectName write Set_ObjectName;
property Amount: Integer read Get_Amount write Set_Amount;
end;
{$ENDIF}
// *********************************************************************//
// The Class CoPathname provides a Create and CreateRemote method to
// create instances of the default interface IADsPathname exposed by
// the CoClass Pathname. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoPathname = class
class function Create: IADsPathname;
class function CreateRemote(const MachineName: string): IADsPathname;
end;
// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object : TPathname
// Help String :
// Default Interface: IADsPathname
// Def. Intf. DISP? : No
// Event Interface:
// TypeFlags : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
TPathnameProperties= class;
{$ENDIF}
TPathname = class(TOleServer)
private
FIntf: IADsPathname;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps: TPathnameProperties;
function GetServerProperties: TPathnameProperties;
{$ENDIF}
function GetDefaultInterface: IADsPathname;
protected
procedure InitServerData; override;
function Get_EscapedMode: Integer;
procedure Set_EscapedMode(retval: Integer);
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Connect; override;
procedure ConnectTo(svrIntf: IADsPathname);
procedure Disconnect; override;
procedure Set_(const bstrADsPath: WideString; lnSetType: Integer);
procedure SetDisplayType(lnDisplayType: Integer);
function Retrieve(lnFormatType: Integer): WideString;
function GetNumElements: Integer;
function GetElement(lnElementIndex: Integer): WideString;
procedure AddLeafElement(const bstrLeafElement: WideString);
procedure RemoveLeafElement;
function CopyPath: IDispatch;
function GetEscapedElement(lnReserved: Integer; const bstrInStr: WideString): WideString;
property DefaultInterface: IADsPathname read GetDefaultInterface;
property EscapedMode: Integer read Get_EscapedMode write Set_EscapedMode;
published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
property Server: TPathnameProperties read GetServerProperties;
{$ENDIF}
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object : TPathname
// (This object is used by the IDE's Property Inspector to allow editing
// of the properties of this server)
// *********************************************************************//
TPathnameProperties = class(TPersistent)
private
FServer: TPathname;
function GetDefaultInterface: IADsPathname;
constructor Create(AServer: TPathname);
protected
function Get_EscapedMode: Integer;
procedure Set_EscapedMode(retval: Integer);
public
property DefaultInterface: IADsPathname read GetDefaultInterface;
published
property EscapedMode: Integer read Get_EscapedMode write Set_EscapedMode;
end;
{$ENDIF}
// *********************************************************************//
// The Class CoADSystemInfo provides a Create and CreateRemote method to
// create instances of the default interface IADsADSystemInfo exposed by
// the CoClass ADSystemInfo. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoADSystemInfo = class
class function Create: IADsADSystemInfo;
class function CreateRemote(const MachineName: string): IADsADSystemInfo;
end;
// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object : TADSystemInfo
// Help String :
// Default Interface: IADsADSystemInfo
// Def. Intf. DISP? : No
// Event Interface:
// TypeFlags : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
TADSystemInfoProperties= class;
{$ENDIF}
TADSystemInfo = class(TOleServer)
private
FIntf: IADsADSystemInfo;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps: TADSystemInfoProperties;
function GetServerProperties: TADSystemInfoProperties;
{$ENDIF}
function GetDefaultInterface: IADsADSystemInfo;
protected
procedure InitServerData; override;
function Get_UserName: WideString;
function Get_ComputerName: WideString;
function Get_SiteName: WideString;
function Get_DomainShortName: WideString;
function Get_DomainDNSName: WideString;
function Get_ForestDNSName: WideString;
function Get_PDCRoleOwner: WideString;
function Get_SchemaRoleOwner: WideString;
function Get_IsNativeMode: WordBool;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Connect; override;
procedure ConnectTo(svrIntf: IADsADSystemInfo);
procedure Disconnect; override;
function GetAnyDCName: WideString;
function GetDCSiteName(const szServer: WideString): WideString;
procedure RefreshSchemaCache;
function GetTrees: OleVariant;
property DefaultInterface: IADsADSystemInfo read GetDefaultInterface;
property UserName: WideString read Get_UserName;
property ComputerName: WideString read Get_ComputerName;
property SiteName: WideString read Get_SiteName;
property DomainShortName: WideString read Get_DomainShortName;
property DomainDNSName: WideString read Get_DomainDNSName;
property ForestDNSName: WideString read Get_ForestDNSName;
property PDCRoleOwner: WideString read Get_PDCRoleOwner;
property SchemaRoleOwner: WideString read Get_SchemaRoleOwner;
property IsNativeMode: WordBool read Get_IsNativeMode;
published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
property Server: TADSystemInfoProperties read GetServerProperties;
{$ENDIF}
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object : TADSystemInfo
// (This object is used by the IDE's Property Inspector to allow editing
// of the properties of this server)
// *********************************************************************//
TADSystemInfoProperties = class(TPersistent)
private
FServer: TADSystemInfo;
function GetDefaultInterface: IADsADSystemInfo;
constructor Create(AServer: TADSystemInfo);
protected
function Get_UserName: WideString;
function Get_ComputerName: WideString;
function Get_SiteName: WideString;
function Get_DomainShortName: WideString;
function Get_DomainDNSName: WideString;
function Get_ForestDNSName: WideString;
function Get_PDCRoleOwner: WideString;
function Get_SchemaRoleOwner: WideString;
function Get_IsNativeMode: WordBool;
public
property DefaultInterface: IADsADSystemInfo read GetDefaultInterface;
published
end;
{$ENDIF}
// *********************************************************************//
// The Class CoWinNTSystemInfo provides a Create and CreateRemote method to
// create instances of the default interface IADsWinNTSystemInfo exposed by
// the CoClass WinNTSystemInfo. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoWinNTSystemInfo = class
class function Create: IADsWinNTSystemInfo;
class function CreateRemote(const MachineName: string): IADsWinNTSystemInfo;
end;
// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object : TWinNTSystemInfo
// Help String :
// Default Interface: IADsWinNTSystemInfo
// Def. Intf. DISP? : No
// Event Interface:
// TypeFlags : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
TWinNTSystemInfoProperties= class;
{$ENDIF}
TWinNTSystemInfo = class(TOleServer)
private
FIntf: IADsWinNTSystemInfo;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps: TWinNTSystemInfoProperties;
function GetServerProperties: TWinNTSystemInfoProperties;
{$ENDIF}
function GetDefaultInterface: IADsWinNTSystemInfo;
protected
procedure InitServerData; override;
function Get_UserName: WideString;
function Get_ComputerName: WideString;
function Get_DomainName: WideString;
function Get_PDC: WideString;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Connect; override;
procedure ConnectTo(svrIntf: IADsWinNTSystemInfo);
procedure Disconnect; override;
property DefaultInterface: IADsWinNTSystemInfo read GetDefaultInterface;
property UserName: WideString read Get_UserName;
property ComputerName: WideString read Get_ComputerName;
property DomainName: WideString read Get_DomainName;
property PDC: WideString read Get_PDC;
published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
property Server: TWinNTSystemInfoProperties read GetServerProperties;
{$ENDIF}
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object : TWinNTSystemInfo
// (This object is used by the IDE's Property Inspector to allow editing
// of the properties of this server)
// *********************************************************************//
TWinNTSystemInfoProperties = class(TPersistent)
private
FServer: TWinNTSystemInfo;
function GetDefaultInterface: IADsWinNTSystemInfo;
constructor Create(AServer: TWinNTSystemInfo);
protected
function Get_UserName: WideString;
function Get_ComputerName: WideString;
function Get_DomainName: WideString;
function Get_PDC: WideString;
public
property DefaultInterface: IADsWinNTSystemInfo read GetDefaultInterface;
published
end;
{$ENDIF}
// *********************************************************************//
// The Class CoDNWithBinary provides a Create and CreateRemote method to
// create instances of the default interface IADsDNWithBinary exposed by
// the CoClass DNWithBinary. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoDNWithBinary = class
class function Create: IADsDNWithBinary;
class function CreateRemote(const MachineName: string): IADsDNWithBinary;
end;
// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object : TDNWithBinary
// Help String :
// Default Interface: IADsDNWithBinary
// Def. Intf. DISP? : No
// Event Interface:
// TypeFlags : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
TDNWithBinaryProperties= class;
{$ENDIF}
TDNWithBinary = class(TOleServer)
private
FIntf: IADsDNWithBinary;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps: TDNWithBinaryProperties;
function GetServerProperties: TDNWithBinaryProperties;
{$ENDIF}
function GetDefaultInterface: IADsDNWithBinary;
protected
procedure InitServerData; override;
function Get_BinaryValue: OleVariant;
procedure Set_BinaryValue(retval: OleVariant);
function Get_DNString: WideString;
procedure Set_DNString(const retval: WideString);
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Connect; override;
procedure ConnectTo(svrIntf: IADsDNWithBinary);
procedure Disconnect; override;
property DefaultInterface: IADsDNWithBinary read GetDefaultInterface;
property BinaryValue: OleVariant read Get_BinaryValue write Set_BinaryValue;
property DNString: WideString read Get_DNString write Set_DNString;
published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
property Server: TDNWithBinaryProperties read GetServerProperties;
{$ENDIF}
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object : TDNWithBinary
// (This object is used by the IDE's Property Inspector to allow editing
// of the properties of this server)
// *********************************************************************//
TDNWithBinaryProperties = class(TPersistent)
private
FServer: TDNWithBinary;
function GetDefaultInterface: IADsDNWithBinary;
constructor Create(AServer: TDNWithBinary);
protected
function Get_BinaryValue: OleVariant;
procedure Set_BinaryValue(retval: OleVariant);
function Get_DNString: WideString;
procedure Set_DNString(const retval: WideString);
public
property DefaultInterface: IADsDNWithBinary read GetDefaultInterface;
published
property DNString: WideString read Get_DNString write Set_DNString;
end;
{$ENDIF}
// *********************************************************************//
// The Class CoDNWithString provides a Create and CreateRemote method to
// create instances of the default interface IADsDNWithString exposed by
// the CoClass DNWithString. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoDNWithString = class
class function Create: IADsDNWithString;
class function CreateRemote(const MachineName: string): IADsDNWithString;
end;
// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object : TDNWithString
// Help String :
// Default Interface: IADsDNWithString
// Def. Intf. DISP? : No
// Event Interface:
// TypeFlags : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
TDNWithStringProperties= class;
{$ENDIF}
TDNWithString = class(TOleServer)
private
FIntf: IADsDNWithString;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps: TDNWithStringProperties;
function GetServerProperties: TDNWithStringProperties;
{$ENDIF}
function GetDefaultInterface: IADsDNWithString;
protected
procedure InitServerData; override;
function Get_StringValue: WideString;
procedure Set_StringValue(const retval: WideString);
function Get_DNString: WideString;
procedure Set_DNString(const retval: WideString);
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Connect; override;
procedure ConnectTo(svrIntf: IADsDNWithString);
procedure Disconnect; override;
property DefaultInterface: IADsDNWithString read GetDefaultInterface;
property StringValue: WideString read Get_StringValue write Set_StringValue;
property DNString: WideString read Get_DNString write Set_DNString;
published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
property Server: TDNWithStringProperties read GetServerProperties;
{$ENDIF}
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object : TDNWithString
// (This object is used by the IDE's Property Inspector to allow editing
// of the properties of this server)
// *********************************************************************//
TDNWithStringProperties = class(TPersistent)
private
FServer: TDNWithString;
function GetDefaultInterface: IADsDNWithString;
constructor Create(AServer: TDNWithString);
protected
function Get_StringValue: WideString;
procedure Set_StringValue(const retval: WideString);
function Get_DNString: WideString;
procedure Set_DNString(const retval: WideString);
public
property DefaultInterface: IADsDNWithString read GetDefaultInterface;
published
property StringValue: WideString read Get_StringValue write Set_StringValue;
property DNString: WideString read Get_DNString write Set_DNString;
end;
{$ENDIF}
procedure Register;
implementation
uses ComObj;
class function CoPropertyEntry.Create: IADsPropertyEntry;
begin
Result := CreateComObject(CLASS_PropertyEntry) as IADsPropertyEntry;
end;
class function CoPropertyEntry.CreateRemote(const MachineName: string): IADsPropertyEntry;
begin
Result := CreateRemoteComObject(MachineName, CLASS_PropertyEntry) as IADsPropertyEntry;
end;
procedure TPropertyEntry.InitServerData;
const
CServerData: TServerData = (
ClassID: '{72D3EDC2-A4C4-11D0-8533-00C04FD8D503}';
IntfIID: '{05792C8E-941F-11D0-8529-00C04FD8D503}';
EventIID: '';
LicenseKey: nil;
Version: 500);
begin
ServerData := @CServerData;
end;
procedure TPropertyEntry.Connect;
var
punk: IUnknown;
begin
if FIntf = nil then
begin
punk := GetServer;
Fintf:= punk as IADsPropertyEntry;
end;
end;
procedure TPropertyEntry.ConnectTo(svrIntf: IADsPropertyEntry);
begin
Disconnect;
FIntf := svrIntf;
end;
procedure TPropertyEntry.DisConnect;
begin
if Fintf <> nil then
begin
FIntf := nil;
end;
end;
function TPropertyEntry.GetDefaultInterface: IADsPropertyEntry;
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 TPropertyEntry.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps := TPropertyEntryProperties.Create(Self);
{$ENDIF}
end;
destructor TPropertyEntry.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps.Free;
{$ENDIF}
inherited Destroy;
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TPropertyEntry.GetServerProperties: TPropertyEntryProperties;
begin
Result := FProps;
end;
{$ENDIF}
function TPropertyEntry.Get_Name: WideString;
begin
Result := DefaultInterface.Get_Name;
end;
procedure TPropertyEntry.Set_Name(const retval: WideString);
begin
DefaultInterface.Set_Name(retval);
end;
function TPropertyEntry.Get_ADsType: Integer;
begin
Result := DefaultInterface.Get_ADsType;
end;
procedure TPropertyEntry.Set_ADsType(retval: Integer);
begin
DefaultInterface.Set_ADsType(retval);
end;
function TPropertyEntry.Get_ControlCode: Integer;
begin
Result := DefaultInterface.Get_ControlCode;
end;
procedure TPropertyEntry.Set_ControlCode(retval: Integer);
begin
DefaultInterface.Set_ControlCode(retval);
end;
function TPropertyEntry.Get_Values: OleVariant;
begin
Result := DefaultInterface.Get_Values;
end;
procedure TPropertyEntry.Set_Values(retval: OleVariant);
begin
DefaultInterface.Set_Values(retval);
end;
procedure TPropertyEntry.Clear;
begin
DefaultInterface.Clear;
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TPropertyEntryProperties.Create(AServer: TPropertyEntry);
begin
inherited Create;
FServer := AServer;
end;
function TPropertyEntryProperties.GetDefaultInterface: IADsPropertyEntry;
begin
Result := FServer.DefaultInterface;
end;
function TPropertyEntryProperties.Get_Name: WideString;
begin
Result := DefaultInterface.Get_Name;
end;
procedure TPropertyEntryProperties.Set_Name(const retval: WideString);
begin
DefaultInterface.Set_Name(retval);
end;
function TPropertyEntryProperties.Get_ADsType: Integer;
begin
Result := DefaultInterface.Get_ADsType;
end;
procedure TPropertyEntryProperties.Set_ADsType(retval: Integer);
begin
DefaultInterface.Set_ADsType(retval);
end;
function TPropertyEntryProperties.Get_ControlCode: Integer;
begin
Result := DefaultInterface.Get_ControlCode;
end;
procedure TPropertyEntryProperties.Set_ControlCode(retval: Integer);
begin
DefaultInterface.Set_ControlCode(retval);
end;
function TPropertyEntryProperties.Get_Values: OleVariant;
begin
Result := DefaultInterface.Get_Values;
end;
procedure TPropertyEntryProperties.Set_Values(retval: OleVariant);
begin
DefaultInterface.Set_Values(retval);
end;
{$ENDIF}
class function CoPropertyValue.Create: IADsPropertyValue;
begin
Result := CreateComObject(CLASS_PropertyValue) as IADsPropertyValue;
end;
class function CoPropertyValue.CreateRemote(const MachineName: string): IADsPropertyValue;
begin
Result := CreateRemoteComObject(MachineName, CLASS_PropertyValue) as IADsPropertyValue;
end;
procedure TPropertyValue.InitServerData;
const
CServerData: TServerData = (
ClassID: '{7B9E38B0-A97C-11D0-8534-00C04FD8D503}';
IntfIID: '{79FA9AD0-A97C-11D0-8534-00C04FD8D503}';
EventIID: '';
LicenseKey: nil;
Version: 500);
begin
ServerData := @CServerData;
end;
procedure TPropertyValue.Connect;
var
punk: IUnknown;
begin
if FIntf = nil then
begin
punk := GetServer;
Fintf:= punk as IADsPropertyValue;
end;
end;
procedure TPropertyValue.ConnectTo(svrIntf: IADsPropertyValue);
begin
Disconnect;
FIntf := svrIntf;
end;
procedure TPropertyValue.DisConnect;
begin
if Fintf <> nil then
begin
FIntf := nil;
end;
end;
function TPropertyValue.GetDefaultInterface: IADsPropertyValue;
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 TPropertyValue.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps := TPropertyValueProperties.Create(Self);
{$ENDIF}
end;
destructor TPropertyValue.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps.Free;
{$ENDIF}
inherited Destroy;
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TPropertyValue.GetServerProperties: TPropertyValueProperties;
begin
Result := FProps;
end;
{$ENDIF}
function TPropertyValue.Get_ADsType: Integer;
begin
Result := DefaultInterface.Get_ADsType;
end;
procedure TPropertyValue.Set_ADsType(retval: Integer);
begin
DefaultInterface.Set_ADsType(retval);
end;
function TPropertyValue.Get_DNString: WideString;
begin
Result := DefaultInterface.Get_DNString;
end;
procedure TPropertyValue.Set_DNString(const retval: WideString);
begin
DefaultInterface.Set_DNString(retval);
end;
function TPropertyValue.Get_CaseExactString: WideString;
begin
Result := DefaultInterface.Get_CaseExactString;
end;
procedure TPropertyValue.Set_CaseExactString(const retval: WideString);
begin
DefaultInterface.Set_CaseExactString(retval);
end;
function TPropertyValue.Get_CaseIgnoreString: WideString;
begin
Result := DefaultInterface.Get_CaseIgnoreString;
end;
procedure TPropertyValue.Set_CaseIgnoreString(const retval: WideString);
begin
DefaultInterface.Set_CaseIgnoreString(retval);
end;
function TPropertyValue.Get_PrintableString: WideString;
begin
Result := DefaultInterface.Get_PrintableString;
end;
procedure TPropertyValue.Set_PrintableString(const retval: WideString);
begin
DefaultInterface.Set_PrintableString(retval);
end;
function TPropertyValue.Get_NumericString: WideString;
begin
Result := DefaultInterface.Get_NumericString;
end;
procedure TPropertyValue.Set_NumericString(const retval: WideString);
begin
DefaultInterface.Set_NumericString(retval);
end;
function TPropertyValue.Get_Boolean: Integer;
begin
Result := DefaultInterface.Get_Boolean;
end;
procedure TPropertyValue.Set_Boolean(retval: Integer);
begin
DefaultInterface.Set_Boolean(retval);
end;
function TPropertyValue.Get_Integer: Integer;
begin
Result := DefaultInterface.Get_Integer;
end;
procedure TPropertyValue.Set_Integer(retval: Integer);
begin
DefaultInterface.Set_Integer(retval);
end;
function TPropertyValue.Get_OctetString: OleVariant;
begin
Result := DefaultInterface.Get_OctetString;
end;
procedure TPropertyValue.Set_OctetString(retval: OleVariant);
begin
DefaultInterface.Set_OctetString(retval);
end;
function TPropertyValue.Get_SecurityDescriptor: IDispatch;
begin
Result := DefaultInterface.Get_SecurityDescriptor;
end;
procedure TPropertyValue.Set_SecurityDescriptor(const retval: IDispatch);
begin
DefaultInterface.Set_SecurityDescriptor(retval);
end;
function TPropertyValue.Get_LargeInteger: IDispatch;
begin
Result := DefaultInterface.Get_LargeInteger;
end;
procedure TPropertyValue.Set_LargeInteger(const retval: IDispatch);
begin
DefaultInterface.Set_LargeInteger(retval);
end;
function TPropertyValue.Get_UTCTime: TDateTime;
begin
Result := DefaultInterface.Get_UTCTime;
end;
procedure TPropertyValue.Set_UTCTime(retval: TDateTime);
begin
DefaultInterface.Set_UTCTime(retval);
end;
procedure TPropertyValue.Clear;
begin
DefaultInterface.Clear;
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TPropertyValueProperties.Create(AServer: TPropertyValue);
begin
inherited Create;
FServer := AServer;
end;
function TPropertyValueProperties.GetDefaultInterface: IADsPropertyValue;
begin
Result := FServer.DefaultInterface;
end;
function TPropertyValueProperties.Get_ADsType: Integer;
begin
Result := DefaultInterface.Get_ADsType;
end;
procedure TPropertyValueProperties.Set_ADsType(retval: Integer);
begin
DefaultInterface.Set_ADsType(retval);
end;
function TPropertyValueProperties.Get_DNString: WideString;
begin
Result := DefaultInterface.Get_DNString;
end;
procedure TPropertyValueProperties.Set_DNString(const retval: WideString);
begin
DefaultInterface.Set_DNString(retval);
end;
function TPropertyValueProperties.Get_CaseExactString: WideString;
begin
Result := DefaultInterface.Get_CaseExactString;
end;
procedure TPropertyValueProperties.Set_CaseExactString(const retval: WideString);
begin
DefaultInterface.Set_CaseExactString(retval);
end;
function TPropertyValueProperties.Get_CaseIgnoreString: WideString;
begin
Result := DefaultInterface.Get_CaseIgnoreString;
end;
procedure TPropertyValueProperties.Set_CaseIgnoreString(const retval: WideString);
begin
DefaultInterface.Set_CaseIgnoreString(retval);
end;
function TPropertyValueProperties.Get_PrintableString: WideString;
begin
Result := DefaultInterface.Get_PrintableString;
end;
procedure TPropertyValueProperties.Set_PrintableString(const retval: WideString);
begin
DefaultInterface.Set_PrintableString(retval);
end;
function TPropertyValueProperties.Get_NumericString: WideString;
begin
Result := DefaultInterface.Get_NumericString;
end;
procedure TPropertyValueProperties.Set_NumericString(const retval: WideString);
begin
DefaultInterface.Set_NumericString(retval);
end;
function TPropertyValueProperties.Get_Boolean: Integer;
begin
Result := DefaultInterface.Get_Boolean;
end;
procedure TPropertyValueProperties.Set_Boolean(retval: Integer);
begin
DefaultInterface.Set_Boolean(retval);
end;
function TPropertyValueProperties.Get_Integer: Integer;
begin
Result := DefaultInterface.Get_Integer;
end;
procedure TPropertyValueProperties.Set_Integer(retval: Integer);
begin
DefaultInterface.Set_Integer(retval);
end;
function TPropertyValueProperties.Get_OctetString: OleVariant;
begin
Result := DefaultInterface.Get_OctetString;
end;
procedure TPropertyValueProperties.Set_OctetString(retval: OleVariant);
begin
DefaultInterface.Set_OctetString(retval);
end;
function TPropertyValueProperties.Get_SecurityDescriptor: IDispatch;
begin
Result := DefaultInterface.Get_SecurityDescriptor;
end;
procedure TPropertyValueProperties.Set_SecurityDescriptor(const retval: IDispatch);
begin
DefaultInterface.Set_SecurityDescriptor(retval);
end;
function TPropertyValueProperties.Get_LargeInteger: IDispatch;
begin
Result := DefaultInterface.Get_LargeInteger;
end;
procedure TPropertyValueProperties.Set_LargeInteger(const retval: IDispatch);
begin
DefaultInterface.Set_LargeInteger(retval);
end;
function TPropertyValueProperties.Get_UTCTime: TDateTime;
begin
Result := DefaultInterface.Get_UTCTime;
end;
procedure TPropertyValueProperties.Set_UTCTime(retval: TDateTime);
begin
DefaultInterface.Set_UTCTime(retval);
end;
{$ENDIF}
class function CoAccessControlEntry.Create: IADsAccessControlEntry;
begin
Result := CreateComObject(CLASS_AccessControlEntry) as IADsAccessControlEntry;
end;
class function CoAccessControlEntry.CreateRemote(const MachineName: string): IADsAccessControlEntry;
begin
Result := CreateRemoteComObject(MachineName, CLASS_AccessControlEntry) as IADsAccessControlEntry;
end;
procedure TAccessControlEntry.InitServerData;
const
CServerData: TServerData = (
ClassID: '{B75AC000-9BDD-11D0-852C-00C04FD8D503}';
IntfIID: '{B4F3A14C-9BDD-11D0-852C-00C04FD8D503}';
EventIID: '';
LicenseKey: nil;
Version: 500);
begin
ServerData := @CServerData;
end;
procedure TAccessControlEntry.Connect;
var
punk: IUnknown;
begin
if FIntf = nil then
begin
punk := GetServer;
Fintf:= punk as IADsAccessControlEntry;
end;
end;
procedure TAccessControlEntry.ConnectTo(svrIntf: IADsAccessControlEntry);
begin
Disconnect;
FIntf := svrIntf;
end;
procedure TAccessControlEntry.DisConnect;
begin
if Fintf <> nil then
begin
FIntf := nil;
end;
end;
function TAccessControlEntry.GetDefaultInterface: IADsAccessControlEntry;
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 TAccessControlEntry.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps := TAccessControlEntryProperties.Create(Self);
{$ENDIF}
end;
destructor TAccessControlEntry.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps.Free;
{$ENDIF}
inherited Destroy;
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TAccessControlEntry.GetServerProperties: TAccessControlEntryProperties;
begin
Result := FProps;
end;
{$ENDIF}
function TAccessControlEntry.Get_AccessMask: Integer;
begin
Result := DefaultInterface.Get_AccessMask;
end;
procedure TAccessControlEntry.Set_AccessMask(retval: Integer);
begin
DefaultInterface.Set_AccessMask(retval);
end;
function TAccessControlEntry.Get_AceType: Integer;
begin
Result := DefaultInterface.Get_AceType;
end;
procedure TAccessControlEntry.Set_AceType(retval: Integer);
begin
DefaultInterface.Set_AceType(retval);
end;
function TAccessControlEntry.Get_AceFlags: Integer;
begin
Result := DefaultInterface.Get_AceFlags;
end;
procedure TAccessControlEntry.Set_AceFlags(retval: Integer);
begin
DefaultInterface.Set_AceFlags(retval);
end;
function TAccessControlEntry.Get_Flags: Integer;
begin
Result := DefaultInterface.Get_Flags;
end;
procedure TAccessControlEntry.Set_Flags(retval: Integer);
begin
DefaultInterface.Set_Flags(retval);
end;
function TAccessControlEntry.Get_ObjectType: WideString;
begin
Result := DefaultInterface.Get_ObjectType;
end;