activeds_tlb.pas

delphi Adsi Memo delphi Adsi Memo delphi Adsi Memo

  IADsSecurityDescriptorDisp = dispinterface;
  IADsLargeInteger = interface;
  IADsLargeIntegerDisp = dispinterface;
  IADsNameTranslate = interface;
  IADsNameTranslateDisp = dispinterface;
  IADsCaseIgnoreList = interface;
  IADsCaseIgnoreListDisp = dispinterface;
  IADsFaxNumber = interface;
  IADsFaxNumberDisp = dispinterface;
  IADsNetAddress = interface;
  IADsNetAddressDisp = dispinterface;
  IADsOctetList = interface;
  IADsOctetListDisp = dispinterface;
  IADsEmail = interface;
  IADsEmailDisp = dispinterface;
  IADsPath = interface;
  IADsPathDisp = dispinterface;
  IADsReplicaPointer = interface;
  IADsReplicaPointerDisp = dispinterface;
  IADsAcl = interface;
  IADsAclDisp = dispinterface;
  IADsTimestamp = interface;
  IADsTimestampDisp = dispinterface;
  IADsPostalAddress = interface;
  IADsPostalAddressDisp = dispinterface;
  IADsBackLink = interface;
  IADsBackLinkDisp = dispinterface;
  IADsTypedName = interface;
  IADsTypedNameDisp = dispinterface;
  IADsHold = interface;
  IADsHoldDisp = dispinterface;
  IADsObjectOptions = interface;
  IADsObjectOptionsDisp = dispinterface;
  IADsPathname = interface;
  IADsPathnameDisp = dispinterface;

// *********************************************************************//
// Declaration of CoClasses defined in Type Library                       
// (NOTE: Here we map each CoClass to its Default Interface)              
// *********************************************************************//
  PropertyEntry = IADsPropertyEntry;
  PropertyValue = IADsPropertyValue;
  AccessControlEntry = IADsAccessControlEntry;
  AccessControlList = IADsAccessControlList;
  SecurityDescriptor = IADsSecurityDescriptor;
  LargeInteger = IADsLargeInteger;
  NameTranslate = IADsNameTranslate;
  CaseIgnoreList = IADsCaseIgnoreList;
  FaxNumber = IADsFaxNumber;
  NetAddress = IADsNetAddress;
  OctetList = IADsOctetList;
  Email = IADsEmail;
  Path = IADsPath;
  ReplicaPointer = IADsReplicaPointer;
  Acl = IADsAcl;
  Timestamp = IADsTimestamp;
  PostalAddress = IADsPostalAddress;
  BackLink = IADsBackLink;
  TypedName = IADsTypedName;
  Hold = IADsHold;
  Pathname = IADsPathname;


// *********************************************************************//
// Declaration of structures, unions and aliases.                         
// *********************************************************************//
  PUserType1 = ^TGUID; {*}
  PUserType2 = ^TGUID; {*}
  PPWideChar1 = ^PWideChar; {*}
  PUserType9 = ^TGUID; {*}
  PUserType10 = ^TGUID; {*}
  PUserType3 = ^TGUID; {*}
  PSmallint1 = ^Smallint; {*}
  PPSmallint1 = ^PSmallint1; {*}
  PUserType4 = ^TGUID; {*}
  PUserType5 = ^TGUID; {*}
  PUserType6 = ^TGUID; {*}
  PUserType7 = ^TGUID; {*}
  PUserType8 = ^TGUID; {*}
  PUserType11 = ^TGUID; {*}
  PUserType12 = ^TGUID; {*}
  PUserType13 = ^TGUID; {*}
  PUserType14 = ^TGUID; {*}
  PUserType15 = ^TGUID; {*}
  PUserType16 = ^TGUID; {*}
  PPUserType1 = ^PUserType16; {*}
  PUINT1 = ^LongWord; {*}
  PUserType17 = ^TGUID; {*}
  PPUserType2 = ^PUserType17; {*}

  ADSTYPEENUM = __MIDL___MIDL__intf_0000_0001; 

  __MIDL___MIDL__intf_0000_0002 = packed record
    dwLength: LongWord;
    lpValue: ^Byte;
  end;

  ADS_OCTET_STRING = __MIDL___MIDL__intf_0000_0002; 

  __MIDL___MIDL__intf_0000_0003 = packed record
    dwLength: LongWord;
    lpValue: ^Byte;
  end;

  ADS_NT_SECURITY_DESCRIPTOR = TGUID; 

  _SYSTEMTIME = packed record
    wYear: Word;
    wMonth: Word;
    wDayOfWeek: Word;
    wDay: Word;
    wHour: Word;
    wMinute: Word;
    wSecond: Word;
    wMilliseconds: Word;
  end;

  _LARGE_INTEGER = packed record
    QuadPart: Int64;
  end;

  __MIDL___MIDL__intf_0000_0004 = packed record
    dwLength: LongWord;
    lpValue: ^Byte;
  end;

  ADS_PROV_SPECIFIC = __MIDL___MIDL__intf_0000_0003; 

  __MIDL___MIDL__intf_0000_0005 = packed record
    Type_: LongWord;
    VolumeName: PWideChar;
    Path: PWideChar;
  end;

  ADS_PATH = TGUID; 

  __MIDL___MIDL__intf_0000_0006 = packed record
    PostalAddress: array[0..5] of PWideChar;
  end;

  ADS_POSTALADDRESS = TGUID; 

  __MIDL___MIDL__intf_0000_0007 = packed record
    WholeSeconds: LongWord;
    EventID: LongWord;
  end;

  ADS_TIMESTAMP = TGUID; 

  __MIDL___MIDL__intf_0000_0008 = packed record
    RemoteID: LongWord;
    ObjectName: PWideChar;
  end;

  ADS_BACKLINK = TGUID; 

  __MIDL___MIDL__intf_0000_0009 = packed record
    ObjectName: PWideChar;
    Level: LongWord;
    Interval: LongWord;
  end;

  ADS_TYPEDNAME = TGUID; 

  __MIDL___MIDL__intf_0000_0010 = packed record
    ObjectName: PWideChar;
    Amount: LongWord;
  end;

  ADS_HOLD = TGUID; 

  __MIDL___MIDL__intf_0000_0011 = packed record
    AddressType: LongWord;
    AddressLength: LongWord;
    Address: ^Byte;
  end;

  ADS_NETADDRESS = TGUID; 

  __MIDL___MIDL__intf_0000_0012 = packed record
    ServerName: PWideChar;
    ReplicaType: LongWord;
    ReplicaNumber: LongWord;
    Count: LongWord;
    ReplicaAddressHints: ^TGUID;
  end;

  ADS_REPLICAPOINTER = TGUID; 

  __MIDL___MIDL__intf_0000_0013 = packed record
    TelephoneNumber: PWideChar;
    NumberOfBits: LongWord;
    Parameters: ^Byte;
  end;

  ADS_FAXNUMBER = TGUID; 

  __MIDL___MIDL__intf_0000_0014 = packed record
    Address: PWideChar;
    Type_: LongWord;
  end;

  ADS_EMAIL = TGUID; 

  _ADS_CASEIGNORE_LIST = packed record
    Next: PUserType1;
    String_: PWideChar;
  end;

  _ADS_OCTET_LIST = packed record
    Next: PUserType2;
    Length: LongWord;
    Data: ^Byte;
  end;

  __MIDL___MIDL__intf_0000_0015 = record
    case Integer of
      0: (DNString: PWideChar);
      1: (CaseExactString: PWideChar);
      2: (CaseIgnoreString: PWideChar);
      3: (PrintableString: PWideChar);
      4: (NumericString: PWideChar);
      5: (Boolean: LongWord);
      6: (Integer: LongWord);
      7: (OctetString: ADS_OCTET_STRING);
      8: (UTCTime: TDateTime);
      9: (LargeInteger: TGUID);
      10: (ClassName: PWideChar);
      11: (ProviderSpecific: ADS_PROV_SPECIFIC);
{      12: (pCaseIgnoreList: ^TGUID);
      13: (pOctetList: ^TGUID);
      14: (pPath: ^TGUID);
      15: (pPostalAddress: ^TGUID);
      16: (Timestamp: ADS_TIMESTAMP);
      17: (BackLink: ADS_BACKLINK);
      18: (pTypedName: ^TGUID);
      19: (Hold: ADS_HOLD);
      20: (pNetAddress: ^TGUID);
      21: (pReplicaPointer: ^TGUID);
      22: (pFaxNumber: ^TGUID);
      23: (Email: ADS_EMAIL);
      24: (SecurityDescriptor: ADS_NT_SECURITY_DESCRIPTOR);}
  end;

  ADS_AUTHENTICATION_ENUM = __MIDL___MIDL__intf_0000_0016;

  _ads_object_info = packed record
    pszRDN: PWideChar;
    pszObjectDN: PWideChar;
    pszParentDN: PWideChar;
    pszSchemaDN: PWideChar;
    pszClassName: PWideChar;
  end;

  ADS_STATUSENUM = __MIDL___MIDL__intf_0000_0017; 
  ADS_DEREFENUM = __MIDL___MIDL__intf_0000_0018; 
  ADS_SCOPEENUM = __MIDL___MIDL__intf_0000_0019; 
  ADS_PREFERENCES_ENUM = __MIDL___MIDL__intf_0000_0020; 
  ADSI_DIALECT_ENUM = __MIDL___MIDL__intf_0000_0021; 
  ADS_CHASE_REFERRALS_ENUM = __MIDL___MIDL__intf_0000_0022; 
  ADS_SEARCHPREF_ENUM = __MIDL___MIDL__intf_0000_0023; 

  pAdsValue = ^_adsValue;
  _adsvalue = packed record
    dwType: Int64;
    //__MIDL_0015: __MIDL___MIDL__intf_0000_0015;
    case Integer of
      0: (DNString: PWideChar);
      1: (CaseExactString: PWideChar);
      2: (CaseIgnoreString: PWideChar);
      3: (PrintableString: PWideChar);
      4: (NumericString: PWideChar);
      5: (Boolean: WordBool);
      6: (Integer: LongWord);
      7: (OctetString: ADS_OCTET_STRING);
      8: (UTCTime: _SYSTEMTIME);
      9: (LargeInteger: _LARGE_INTEGER);
      10: (ClassName: PWideChar);
      11: (ProviderSpecific: ADS_PROV_SPECIFIC);
  end;

  ads_search_column = packed record
    pszAttrName: PWideChar;
    dwADsType: ADSTYPEENUM;
    pADsValues: padsvalue;
    dwNumValues: LongWord;
    hReserved: Pointer;
  end;

  _ads_attr_def = packed record
    pszAttrName: PWideChar;
    dwADsType: ADSTYPEENUM;
    dwMinRange: LongWord;
    dwMaxRange: LongWord;
    fMultiValued: Integer;
  end;


  _ads_sortkey = packed record
    pszAttrType: PWideChar;
    pszReserved: PWideChar;
    fReverseorder: Shortint;
  end;

  ADS_PROPERTY_OPERATION_ENUM = __MIDL___MIDL__intf_0000_0024; 

  _GUID = packed record
    Data1: LongWord;
    Data2: Word;
    Data3: Word;
    Data4: array[0..7] of Byte;
  end;


  __MIDL_IOleAutomationTypes_0005 = record
    case Integer of
      0: (lptdesc: PUserType9);
      1: (lpadesc: PUserType10);
      2: (hreftype: LongWord);
  end;

  tagTYPEDESC = packed record