📄 activeds_tlb.pas
字号:
function GetPropertyItem(const bstrName: WideString; lnADsType: Integer): OleVariant; dispid 6;
procedure PutPropertyItem(varData: OleVariant); dispid 7;
procedure ResetPropertyItem(varEntry: OleVariant); dispid 8;
procedure PurgePropertyList; dispid 9;
end;
// *********************************************************************//
// Interface: IADsPropertyEntry
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {05792C8E-941F-11D0-8529-00C04FD8D503}
// *********************************************************************//
IADsPropertyEntry = interface(IDispatch)
['{05792C8E-941F-11D0-8529-00C04FD8D503}']
procedure Clear; safecall;
function Get_Name: WideString; safecall;
procedure Set_Name(const retval: WideString); safecall;
function Get_ADsType: Integer; safecall;
procedure Set_ADsType(retval: Integer); safecall;
function Get_ControlCode: Integer; safecall;
procedure Set_ControlCode(retval: Integer); safecall;
function Get_Values: OleVariant; safecall;
procedure Set_Values(retval: OleVariant); safecall;
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;
property Values: OleVariant read Get_Values write Set_Values;
end;
// *********************************************************************//
// DispIntf: IADsPropertyEntryDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {05792C8E-941F-11D0-8529-00C04FD8D503}
// *********************************************************************//
IADsPropertyEntryDisp = dispinterface
['{05792C8E-941F-11D0-8529-00C04FD8D503}']
procedure Clear; dispid 1;
property Name: WideString dispid 2;
property ADsType: Integer dispid 3;
property ControlCode: Integer dispid 4;
property Values: OleVariant dispid 5;
end;
// *********************************************************************//
// Interface: IADsPropertyValue
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {79FA9AD0-A97C-11D0-8534-00C04FD8D503}
// *********************************************************************//
IADsPropertyValue = interface(IDispatch)
['{79FA9AD0-A97C-11D0-8534-00C04FD8D503}']
procedure Clear; safecall;
function Get_ADsType: Integer; safecall;
procedure Set_ADsType(retval: Integer); safecall;
function Get_DNString: WideString; safecall;
procedure Set_DNString(const retval: WideString); safecall;
function Get_CaseExactString: WideString; safecall;
procedure Set_CaseExactString(const retval: WideString); safecall;
function Get_CaseIgnoreString: WideString; safecall;
procedure Set_CaseIgnoreString(const retval: WideString); safecall;
function Get_PrintableString: WideString; safecall;
procedure Set_PrintableString(const retval: WideString); safecall;
function Get_NumericString: WideString; safecall;
procedure Set_NumericString(const retval: WideString); safecall;
function Get_Boolean: Integer; safecall;
procedure Set_Boolean(retval: Integer); safecall;
function Get_Integer: Integer; safecall;
procedure Set_Integer(retval: Integer); safecall;
function Get_OctetString: OleVariant; safecall;
procedure Set_OctetString(retval: OleVariant); safecall;
function Get_SecurityDescriptor: IDispatch; safecall;
procedure Set_SecurityDescriptor(const retval: IDispatch); safecall;
function Get_LargeInteger: IDispatch; safecall;
procedure Set_LargeInteger(const retval: IDispatch); safecall;
function Get_UTCTime: TDateTime; safecall;
procedure Set_UTCTime(retval: TDateTime); safecall;
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 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 UTCTime: TDateTime read Get_UTCTime write Set_UTCTime;
end;
// *********************************************************************//
// DispIntf: IADsPropertyValueDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {79FA9AD0-A97C-11D0-8534-00C04FD8D503}
// *********************************************************************//
IADsPropertyValueDisp = dispinterface
['{79FA9AD0-A97C-11D0-8534-00C04FD8D503}']
procedure Clear; dispid 1;
property ADsType: Integer dispid 2;
property DNString: WideString dispid 3;
property CaseExactString: WideString dispid 4;
property CaseIgnoreString: WideString dispid 5;
property PrintableString: WideString dispid 6;
property NumericString: WideString dispid 7;
property Boolean: Integer dispid 8;
property Integer: Integer dispid 9;
property OctetString: OleVariant dispid 10;
property SecurityDescriptor: IDispatch dispid 11;
property LargeInteger: IDispatch dispid 12;
property UTCTime: TDateTime dispid 13;
end;
// *********************************************************************//
// Interface: IADsPropertyValue2
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {306E831C-5BC7-11D1-A3B8-00C04FB950DC}
// *********************************************************************//
IADsPropertyValue2 = interface(IDispatch)
['{306E831C-5BC7-11D1-A3B8-00C04FB950DC}']
function GetObjectProperty(var lnADsType: Integer): OleVariant; safecall;
procedure PutObjectProperty(lnADsType: Integer; vProp: OleVariant); safecall;
end;
// *********************************************************************//
// DispIntf: IADsPropertyValue2Disp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {306E831C-5BC7-11D1-A3B8-00C04FB950DC}
// *********************************************************************//
IADsPropertyValue2Disp = dispinterface
['{306E831C-5BC7-11D1-A3B8-00C04FB950DC}']
function GetObjectProperty(var lnADsType: Integer): OleVariant; dispid 1;
procedure PutObjectProperty(lnADsType: Integer; vProp: OleVariant); dispid 2;
end;
// *********************************************************************//
// Interface: IPrivateDispatch
// Flags: (0)
// GUID: {86AB4BBE-65F6-11D1-8C13-00C04FD8D503}
// *********************************************************************//
IPrivateDispatch = interface(IUnknown)
['{86AB4BBE-65F6-11D1-8C13-00C04FD8D503}']
function ADSIInitializeDispatchManager(dwExtensionId: Integer): HResult; stdcall;
function ADSIGetTypeInfoCount(out pctinfo: SYSUINT): HResult; stdcall;
function ADSIGetTypeInfo(itinfo: SYSUINT; lcid: LongWord; out ppTInfo: ITypeInfo): HResult; stdcall;
function ADSIGetIDsOfNames(var riid: TGUID; rgszNames: PPSmallint1; cNames: SYSUINT;
lcid: LongWord; out rgdispid: Integer): HResult; stdcall;
function ADSIInvoke(dispidMember: Integer; var riid: TGUID; lcid: LongWord; wFlags: Word;
var pDispParams: TGUID; out pVarResult: OleVariant; out pExcepInfo: TGUID;
out puArgErr: SYSUINT): HResult; stdcall;
end;
// *********************************************************************//
// Interface: ITypeInfo
// Flags: (0)
// GUID: {00020401-0000-0000-C000-000000000046}
// *********************************************************************//
ITypeInfo = interface(IUnknown)
['{00020401-0000-0000-C000-000000000046}']
function RemoteGetTypeAttr(out ppTypeAttr: PUserType5; out pDummy: DWORD): HResult; stdcall;
function GetTypeComp(out ppTComp: ITypeComp): HResult; stdcall;
function RemoteGetFuncDesc(index: SYSUINT; out ppFuncDesc: PUserType6; out pDummy: DWORD): HResult; stdcall;
function RemoteGetVarDesc(index: SYSUINT; out ppVarDesc: PUserType7; out pDummy: DWORD): HResult; stdcall;
function GetNames(memid: Integer; out rgBstrNames: WideString; cMaxNames: SYSUINT;
out pcNames: SYSUINT): HResult; stdcall;
function GetRefTypeOfImplType(index: SYSUINT; out pRefType: LongWord): HResult; stdcall;
function GetImplTypeFlags(index: SYSUINT; out pImplTypeFlags: SYSINT): HResult; stdcall;
function GetIDsOfNames(var rgszNames: PWideChar; cNames: SYSUINT; out pMemId: Integer): HResult; stdcall;
function RemoteInvoke(const pIUnk: IUnknown; memid: Integer; dwFlags: LongWord;
var pDispParams: TGUID; out rgVtRef: OleVariant; cVtRef: SYSUINT;
out pVarResult: OleVariant; out pExcepInfo: TGUID; out pArgErr: SYSUINT): HResult; stdcall;
function RemoteGetDocumentation(memid: Integer; refPtrFlags: LongWord;
out pBstrName: WideString; out pBstrDocString: WideString;
out pdwHelpContext: LongWord; out pBstrHelpFile: WideString): HResult; stdcall;
function RemoteGetDllEntry(memid: Integer; invkind: tagINVOKEKIND; refPtrFlags: LongWord;
out pBstrDllName: WideString; out pBstrName: WideString;
out pwOrdinal: Word): HResult; stdcall;
function GetRefTypeInfo(hreftype: LongWord; out ppTInfo: ITypeInfo): HResult; stdcall;
function LocalAddressOfMember: HResult; stdcall;
function RemoteCreateInstance(var riid: TGUID; out ppvObj: IUnknown): HResult; stdcall;
function GetMops(memid: Integer; out pBstrMops: WideString): HResult; stdcall;
function GetContainingTypeLib(out ppTLib: ITypeLib; out pIndex: SYSUINT): HResult; stdcall;
function LocalReleaseTypeAttr: HResult; stdcall;
function LocalReleaseFuncDesc: HResult; stdcall;
function LocalReleaseVarDesc: HResult; stdcall;
end;
// *********************************************************************//
// Interface: ITypeComp
// Flags: (0)
// GUID: {00020403-0000-0000-C000-000000000046}
// *********************************************************************//
ITypeComp = interface(IUnknown)
['{00020403-0000-0000-C000-000000000046}']
function RemoteBind(szName: PWideChar; lHashVal: LongWord; wFlags: Word;
out ppTInfo: ITypeInfo; out pDescKind: tagDESCKIND;
out ppFuncDesc: PUserType6; out ppVarDesc: PUserType7;
out ppTypeComp: ITypeComp; out pDummy: DWORD): HResult; stdcall;
function RemoteBindType(szName: PWideChar; lHashVal: LongWord; out ppTInfo: ITypeInfo): HResult; stdcall;
end;
// *********************************************************************//
// Interface: ITypeLib
// Flags: (0)
// GUID: {00020402-0000-0000-C000-000000000046}
// *********************************************************************//
ITypeLib = interface(IUnknown)
['{00020402-0000-0000-C000-000000000046}']
function RemoteGetTypeInfoCount(out pctinfo: SYSUINT): HResult; stdcall;
function GetTypeInfo(index: SYSUINT; out ppTInfo: ITypeInfo): HResult; stdcall;
function GetTypeInfoType(index: SYSUINT; out pTKind: tagTYPEKIND): HResult; stdcall;
function GetTypeInfoOfGuid(var GUID: TGUID; out ppTInfo: ITypeInfo): HResult; stdcall;
function RemoteGetLibAttr(out ppTLibAttr: PUserType11; out pDummy: DWORD): HResult; stdcall;
function GetTypeComp(out ppTComp: ITypeComp): HResult; stdcall;
function RemoteGetDocumentation(index: SYSINT; refPtrFlags: LongWord;
out pBstrName: WideString; out pBstrDocString: WideString;
out pdwHelpContext: LongWord; out pBstrHelpFile: WideString): HResult; stdcall;
function RemoteIsName(szNameBuf: PWideChar; lHashVal: LongWord; out pfName: Integer;
out pBstrLibName: WideString): HResult; stdcall;
function RemoteFindName(szNameBuf: PWideChar; lHashVal: LongWord; out ppTInfo: ITypeInfo;
out rgMemId: Integer; var pcFound: Word; out pBstrLibName: WideString): HResult; stdcall;
function LocalReleaseTLibAttr: HResult; stdcall;
end;
// *********************************************************************//
// Interface: IPrivateUnknown
// Flags: (0)
// GUID: {89126BAB-6EAD-11D1-8C18-00C04FD8D503}
// *********************************************************************//
IPrivateUnknown = interface(IUnknown)
['{89126BAB-6EAD-11D1-8C18-00C04FD8D503}']
function ADSIInitializeObject(const lpszUserName: WideString; const lpszPassword: WideString;
lnReserved: Integer): HResult; stdcall;
function ADSIReleaseObject: HResult; stdcall;
end;
// *********************************************************************//
// Interface: IADsExtension
// Flags: (0)
// GUID: {3D35553C-D2B0-11D1-B17B-0000F87593A0}
// *********************************************************************//
IADsExtension = interface(IUnknown)
['{3D35553C-D2B0-11D1-B17B-0000F87593A0}']
function Operate(dwCode: LongWord; varData1: OleVariant; varData2: OleVariant;
varData3: OleVariant): HResult; stdcall;
function PrivateGetIDsOfNames(var riid: TGUID; rgszNames: PPSmallint1; cNames: SYSUINT;
lcid: LongWord; out rgdispid: Integer): HResult; stdcall;
function PrivateInvoke(dispidMember: Integer; var riid: TGUID; lcid: LongWord; wFlags: Word;
var pDispParams: TGUID; out pVarResult: OleVariant;
out pExcepInfo: TGUID; out puArgErr: SYSUINT): HResult; stdcall;
end;
// *********************************************************************//
// Interface: IADsDeleteOps
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {B2BD0902-8878-11D1-8C21-00C04FD8D503}
// *********************************************************************//
IADsDeleteOps = interface(IDispatch)
['{B2BD0902-8878-11D1-8C21-00C04FD8D503}']
procedure DeleteObject(lnFlags: Integer); safecall;
end;
// *********************************************************************//
// DispIntf: IADsDeleteOpsDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {B2BD0902-8878-11D1-8C21-00C04FD8D503}
// *********************************************************************//
IADsDeleteOpsDisp = dispinterface
['{B2BD0902-8878-11D1-8C21-00C04FD8D503}']
procedure DeleteObject(lnFlags: Integer); dispid 2;
end;
// *********************************************************************//
// Interface: IADsNamespaces
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {28B96BA0-B330-11CF-A9AD-00AA006BC149}
// *********************************************************************//
IADsNamespaces = interface(IADs)
['{28B96BA0-B330-11CF-A9AD-00AA006BC149}']
function Get_DefaultContainer: WideString; safecall;
procedure Set_DefaultContainer(const retval: WideString); safecall;
property DefaultContainer: WideString read Get_DefaultContainer write Set_DefaultContainer;
end;
// *********************************************************************//
// DispIntf: IADsNamespacesDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {28B96BA0-B330-11CF-A9AD-00AA006BC149}
// *********************************************************************//
IADsNamespacesDisp = dispinterface
['{28B96BA0-B330-11CF-A9AD-00AA006BC149}']
property DefaultContainer: WideString dispid 1;
property Name: WideString readonly dispid 2;
property Class_: WideString readonly dispid 3;
property GUID: WideString readonly dispid 4;
property ADsPath: WideString readonly dispid 5;
property Parent: WideString readonly dispid 6;
property Schema: WideString readonly dispid 7;
procedure GetInfo; dispid 8;
procedure SetInfo; dispid 9;
function Get(const bstrName: WideString): OleVariant; dispid 10;
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
end;
// *********************************************************************//
// Interface: IADsClass
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {C8F93DD0-4AE0-11CF-9E73-00AA004A5691}
// *********************************************************************//
IADsClass = interface(IADs)
['{C8F93DD0-4AE0-11CF-9E73-00AA004A5691}']
function Get_PrimaryInterface: WideString; safecall;
function Get_CLSID: WideString; safecall;
procedure Set_CLSID(const retval: WideString); safecall;
function Get_OID: WideString; safecall;
procedure Set_OID(const retval: WideString); safecall;
function Get_Abstract: WordBool; safecall;
procedure Set_Abstract(retval: WordBool); safecall;
function Get_Auxiliary: WordBool; safecall;
procedure Set_Auxiliary(r⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -