Delphi - IClassFactory = interface(IUnknown) ['{00000001-0000-0000-C000-000000000046}']

最新推荐文章于 2017-07-24 14:30:30 发布
最新推荐文章于 2017-07-24 14:30:30 发布
阅读量838 收藏
点赞数
分类专栏： Delphi 文章标签： delphi 
{ IClassFactory interface }  

  {$EXTERNALSYM IClassFactory}  
  IClassFactory = interface(IUnknown)  
    ['{00000001-0000-0000-C000-000000000046}']  
    function CreateInstance(const unkOuter: IUnknown; const iid: TIID;  
      out obj): HResult; stdcall;  
    function LockServer(fLock: BOOL): HResult; stdcall;  
  end;  

{ IMarshal interface }  

  {$EXTERNALSYM IMarshal}  
  IMarshal = interface(IUnknown)  
    ['{00000003-0000-0000-C000-000000000046}']  
    function GetUnmarshalClass(const iid: TIID; pv: Pointer;  
      dwDestContext: Longint; pvDestContext: Pointer; mshlflags: Longint;  
      out cid: TCLSID): HResult; stdcall;  
    function GetMarshalSizeMax(const iid: TIID; pv: Pointer;  
      dwDestContext: Longint; pvDestContext: Pointer; mshlflags: Longint;  
      out size: Longint): HResult; stdcall;  
    function MarshalInterface(const stm: IStream; const iid: TIID; pv: Pointer;  
      dwDestContext: Longint; pvDestContext: Pointer;  
      mshlflags: Longint): HResult; stdcall;  
    function UnmarshalInterface(const stm: IStream; const iid: TIID;  
      out pv): HResult; stdcall;  
    function ReleaseMarshalData(const stm: IStream): HResult;  
      stdcall;  
    function DisconnectObject(dwReserved: Longint): HResult;  
      stdcall;  
  end;  

{ IMalloc interface }  

  {$EXTERNALSYM IMalloc}  
  IMalloc = interface(IUnknown)  
    ['{00000002-0000-0000-C000-000000000046}']  
    function Alloc(cb: Longint): Pointer; stdcall;  
    function Realloc(pv: Pointer; cb: Longint): Pointer; stdcall;  
    procedure Free(pv: Pointer); stdcall;  
    function GetSize(pv: Pointer): Longint; stdcall;  
    function DidAlloc(pv: Pointer): Integer; stdcall;  
    procedure HeapMinimize; stdcall;  
  end;  

{ IMallocSpy interface }  

  {$EXTERNALSYM IMallocSpy}  
  IMallocSpy = interface(IUnknown)  
    ['{0000001D-0000-0000-C000-000000000046}']  
    function PreAlloc(cbRequest: Longint): Longint; stdcall;  
    function PostAlloc(pActual: Pointer): Pointer; stdcall;  
    function PreFree(pRequest: Pointer; fSpyed: BOOL): Pointer; stdcall;  
    procedure PostFree(fSpyed: BOOL); stdcall;  
    function PreRealloc(pRequest: Pointer; cbRequest: Longint;  
      out ppNewRequest: Pointer; fSpyed: BOOL): Longint; stdcall;  
    function PostRealloc(pActual: Pointer; fSpyed: BOOL): Pointer; stdcall;  
    function PreGetSize(pRequest: Pointer; fSpyed: BOOL): Pointer; stdcall;  
    function PostGetSize(pActual: Longint; fSpyed: BOOL): Longint; stdcall;  
    function PreDidAlloc(pRequest: Pointer; fSpyed: BOOL): Pointer; stdcall;  
    function PostDidAlloc(pRequest: Pointer; fSpyed: BOOL; fActual: Integer): Integer; stdcall;  
    procedure PreHeapMinimize; stdcall;  
    procedure PostHeapMinimize; stdcall;  
  end;  

{ IStdMarshalInfo interface }  

  {$EXTERNALSYM IStdMarshalInfo}  
  IStdMarshalInfo = interface(IUnknown)  
    ['{00000018-0000-0000-C000-000000000046}']  
    function GetClassForHandler(dwDestContext: Longint; pvDestContext: Pointer;  
      out clsid: TCLSID): HResult; stdcall;  
  end;  

{ IExternalConnection interface }  

  {$EXTERNALSYM IExternalConnection}  
  IExternalConnection = interface(IUnknown)  
    ['{00000019-0000-0000-C000-000000000046}']  
    function AddConnection(extconn: Longint; reserved: Longint): Longint;  
      stdcall;  
    function ReleaseConnection(extconn: Longint; reserved: Longint;  
      fLastReleaseCloses: BOOL): Longint; stdcall;  
  end;  

{ IWeakRef interface }  

  {$EXTERNALSYM IWeakRef}  
  IWeakRef = interface(IUnknown)  
    ['{A35E20C2-837D-11D0-9E9F-00A02457621F}']  
    function ChangeWeakCount(delta: Longint): Longint; stdcall;  
    function ReleaseKeepAlive(const unkReleased: IUnknown;  
      reserved: Longint): Longint; stdcall;  
  end;  

{ IEnumUnknown interface }  

  {$EXTERNALSYM IEnumUnknown}  
  IEnumUnknown = interface(IUnknown)  
    ['{00000100-0000-0000-C000-000000000046}']  
    function Next(celt: Longint; out elt;  
      pceltFetched: PLongint): HResult; stdcall;  
    function Skip(celt: Longint): HResult; stdcall;  
    function Reset: HResult; stdcall;  
    function Clone(out enm: IEnumUnknown): HResult; stdcall;  
  end;  

{ IBindCtx interface }  

  PBindOpts = ^TBindOpts;  
  {$EXTERNALSYM tagBIND_OPTS}  
  tagBIND_OPTS = record  
    cbStruct: Longint;  
    grfFlags: Longint;  
    grfMode: Longint;  
    dwTickCountDeadline: Longint;  
  end;  
  TBindOpts = tagBIND_OPTS;  
  {$EXTERNALSYM BIND_OPTS}  
  BIND_OPTS = TBindOpts;  


  {$EXTERNALSYM IBindCtx}  
  IBindCtx = interface(IUnknown)  
    ['{0000000E-0000-0000-C000-000000000046}']  
    function RegisterObjectBound(const unk: IUnknown): HResult; stdcall;  
    function RevokeObjectBound(const unk: IUnknown): HResult; stdcall;  
    function ReleaseBoundObjects: HResult; stdcall;  
    function SetBindOptions(const bindopts: TBindOpts): HResult; stdcall;  
    function GetBindOptions(var bindopts: TBindOpts): HResult; stdcall;  
    function GetRunningObjectTable(out rot: IRunningObjectTable): HResult;  
      stdcall;  
    function RegisterObjectParam(pszKey: POleStr; const unk: IUnknown): HResult;  
      stdcall;  
    function GetObjectParam(pszKey: POleStr; out unk: IUnknown): HResult;  
      stdcall;  
    function EnumObjectParam(out Enum: IEnumString): HResult; stdcall;  
    function RevokeObjectParam(pszKey: POleStr): HResult; stdcall;  
  end;  

{ IEnumMoniker interface }  

  {$EXTERNALSYM IEnumMoniker}  
  IEnumMoniker = interface(IUnknown)  
    ['{00000102-0000-0000-C000-000000000046}']  
    function Next(celt: Longint; out elt;  
      pceltFetched: PLongint): HResult; stdcall;  
    function Skip(celt: Longint): HResult; stdcall;  
    function Reset: HResult; stdcall;  
    function Clone(out enm: IEnumMoniker): HResult; stdcall;  
  end;  

{ IRunnableObject interface }  

  {$EXTERNALSYM IRunnableObject}  
  IRunnableObject = interface(IUnknown)  
    ['{00000126-0000-0000-C000-000000000046}']  
    function GetRunningClass(out clsid: TCLSID): HResult; stdcall;  
    function Run(const bc: IBindCtx): HResult; stdcall;  
    function IsRunning: BOOL; stdcall;  
    function LockRunning(fLock: BOOL; fLastUnlockCloses: BOOL): HResult;  
      stdcall;  
    function SetContainedObject(fContained: BOOL): HResult; stdcall;  
  end;  

{ IRunningObjectTable interface }  

  {$EXTERNALSYM IRunningObjectTable}  
  IRunningObjectTable = interface(IUnknown)  
    ['{00000010-0000-0000-C000-000000000046}']  
    function Register(grfFlags: Longint; const unkObject: IUnknown;  
      const mkObjectName: IMoniker; out dwRegister: Longint): HResult; stdcall;  
    function Revoke(dwRegister: Longint): HResult; stdcall;  
    function IsRunning(const mkObjectName: IMoniker): HResult; stdcall;  
    function GetObject(const mkObjectName: IMoniker;  
      out unkObject: IUnknown): HResult; stdcall;  
    function NoteChangeTime(dwRegister: Longint;  
      const filetime: TFileTime): HResult; stdcall;  
    function GetTimeOfLastChange(const mkObjectName: IMoniker;  
      out filetime: TFileTime): HResult; stdcall;  
    function EnumRunning(out enumMoniker: IEnumMoniker): HResult; stdcall;  
  end;  

{ IPersist interface }  

  {$EXTERNALSYM IPersist}  
  IPersist = interface(IUnknown)  
    ['{0000010C-0000-0000-C000-000000000046}']  
    function GetClassID(out classID: TCLSID): HResult; stdcall;  
  end;  

{ IPersistStream interface }  

  {$EXTERNALSYM IPersistStream}  
  IPersistStream = interface(IPersist)  
    ['{00000109-0000-0000-C000-000000000046}']  
    function IsDirty: HResult; stdcall;  
    function Load(const stm: IStream): HResult; stdcall;  
    function Save(const stm: IStream; fClearDirty: BOOL): HResult; stdcall;  
    function GetSizeMax(out cbSize: Largeint): HResult; stdcall;  
  end;  

{ IMoniker interface }  

  {$EXTERNALSYM PIMoniker}  
  PIMoniker = ^IMoniker;  
  {$EXTERNALSYM IMoniker}  
  IMoniker = interface(IPersistStream)  
    ['{0000000F-0000-0000-C000-000000000046}']  
    function BindToObject(const bc: IBindCtx; const mkToLeft: IMoniker;  
      const iidResult: TIID; out vResult): HResult; stdcall;  
    function BindToStorage(const bc: IBindCtx; const mkToLeft: IMoniker;  
      const iid: TIID; out vObj): HResult; stdcall;  
    function Reduce(const bc: IBindCtx; dwReduceHowFar: Longint;  
      mkToLeft: PIMoniker; out mkReduced: IMoniker): HResult; stdcall;  
    function ComposeWith(const mkRight: IMoniker; fOnlyIfNotGeneric: BOOL;  
      out mkComposite: IMoniker): HResult; stdcall;  
    function Enum(fForward: BOOL; out enumMoniker: IEnumMoniker): HResult;  
      stdcall;  
    function IsEqual(const mkOtherMoniker: IMoniker): HResult; stdcall;  
    function Hash(out dwHash: Longint): HResult; stdcall;  
    function IsRunning(const bc: IBindCtx; const mkToLeft: IMoniker;  
      const mkNewlyRunning: IMoniker): HResult; stdcall;  
    function GetTimeOfLastChange(const bc: IBindCtx; const mkToLeft: IMoniker;  
      out filetime: TFileTime): HResult; stdcall;  
    function Inverse(out mk: IMoniker): HResult; stdcall;  
    function CommonPrefixWith(const mkOther: IMoniker;  
      out mkPrefix: IMoniker): HResult; stdcall;  
    function RelativePathTo(const mkOther: IMoniker;  
      out mkRelPath: IMoniker): HResult; stdcall;  
    function GetDisplayName(const bc: IBindCtx; const mkToLeft: IMoniker;  
      out pszDisplayName: POleStr): HResult; stdcall;  
    function ParseDisplayName(const bc: IBindCtx; const mkToLeft: IMoniker;  
      pszDisplayName: POleStr; out chEaten: Longint;  
      out mkOut: IMoniker): HResult; stdcall;  
    function IsSystemMoniker(out dwMksys: Longint): HResult; stdcall;  
  end;  

{ IEnumString interface }  

  {$EXTERNALSYM IEnumString}  
  IEnumString = interface(IUnknown)  
    ['{00000101-0000-0000-C000-000000000046}']  
    function Next(celt: Longint; out elt;  
      pceltFetched: PLongint): HResult; stdcall;  
    function Skip(celt: Longint): HResult; stdcall;  
    function Reset: HResult; stdcall;  
    function Clone(out enm: IEnumString): HResult; stdcall;  
  end;  

{ IStream interface }  

{$IFDEF MSWINDOWS}  
  PStatStg = ^TStatStg;  
  {$EXTERNALSYM tagSTATSTG}  
  tagSTATSTG = record  
    pwcsName: POleStr;  
    dwType: Longint;  
    cbSize: Largeint;  
    mtime: TFileTime;  
    ctime: TFileTime;  
    atime: TFileTime;  
    grfMode: Longint;  
    grfLocksSupported: Longint;  
    clsid: TCLSID;  
    grfStateBits: Longint;  
    reserved: Longint;  
  end;  
  TStatStg = tagSTATSTG;  
  {$EXTERNALSYM STATSTG}  
  STATSTG = TStatStg;  

  {$EXTERNALSYM ISequentialStream}  
  ISequentialStream = interface(IUnknown)  
    ['{0c733a30-2a1c-11ce-ade5-00aa0044773d}']  
    function Read(pv: Pointer; cb: Longint; pcbRead: PLongint): HResult;  
      stdcall;  
    function Write(pv: Pointer; cb: Longint; pcbWritten: PLongint): HResult;  
      stdcall;  
  end;  

  {$EXTERNALSYM IStream}  
  IStream = interface(ISequentialStream)  
    ['{0000000C-0000-0000-C000-000000000046}']  
    function Seek(dlibMove: Largeint; dwOrigin: Longint;  
      out libNewPosition: Largeint): HResult; stdcall;  
    function SetSize(libNewSize: Largeint): HResult; stdcall;  
    function CopyTo(stm: IStream; cb: Largeint; out cbRead: Largeint;  
      out cbWritten: Largeint): HResult; stdcall;  
    function Commit(grfCommitFlags: Longint): HResult; stdcall;  
    function Revert: HResult; stdcall;  
    function LockRegion(libOffset: Largeint; cb: Largeint;  
      dwLockType: Longint): HResult; stdcall;  
    function UnlockRegion(libOffset: Largeint; cb: Largeint;  
      dwLockType: Longint): HResult; stdcall;  
    function Stat(out statstg: TStatStg; grfStatFlag: Longint): HResult;  
      stdcall;  
    function Clone(out stm: IStream): HResult; stdcall;  
  end;  
{$ELSE}  
  PStatStg = Types.PStatStg;  
  TStatStg = Types.TStatStg;  
  ISequentialStream = Types.ISequentialStream;  
  IStream = Types.IStream;  
{$ENDIF}  

{ IEnumStatStg interface }  

  {$EXTERNALSYM IEnumStatStg}  
  IEnumStatStg = interface(IUnknown)  
    ['{0000000D-0000-0000-C000-000000000046}']  
    function Next(celt: Longint; out elt;  
      pceltFetched: PLongint): HResult; stdcall;  
    function Skip(celt: Longint): HResult; stdcall;  
    function Reset: HResult; stdcall;  
    function Clone(out enm: IEnumStatStg): HResult; stdcall;  
  end;  

{ IStorage interface }  

  TSNB = ^POleStr;  

  {$EXTERNALSYM IStorage}  
  IStorage = interface(IUnknown)  
    ['{0000000B-0000-0000-C000-000000000046}']  
    function CreateStream(pwcsName: POleStr; grfMode: Longint; reserved1: Longint;  
      reserved2: Longint; out stm: IStream): HResult; stdcall;  
    function OpenStream(pwcsName: POleStr; reserved1: Pointer; grfMode: Longint;  
      reserved2: Longint; out stm: IStream): HResult; stdcall;  
    function CreateStorage(pwcsName: POleStr; grfMode: Longint;  
      dwStgFmt: Longint; reserved2: Longint; out stg: IStorage): HResult;  
      stdcall;  
    function OpenStorage(pwcsName: POleStr; const stgPriority: IStorage;  
      grfMode: Longint; snbExclude: TSNB; reserved: Longint;  
      out stg: IStorage): HResult; stdcall;  
    function CopyTo(ciidExclude: Longint; rgiidExclude: PIID;  
      snbExclude: TSNB; const stgDest: IStorage): HResult; stdcall;  
    function MoveElementTo(pwcsName: POleStr; const stgDest: IStorage;  
      pwcsNewName: POleStr; grfFlags: Longint): HResult; stdcall;  
    function Commit(grfCommitFlags: Longint): HResult; stdcall;  
    function Revert: HResult; stdcall;  
    function EnumElements(reserved1: Longint; reserved2: Pointer; reserved3: Longint;  
      out enm: IEnumStatStg): HResult; stdcall;  
    function DestroyElement(pwcsName: POleStr): HResult; stdcall;  
    function RenameElement(pwcsOldName: POleStr;  
      pwcsNewName: POleStr): HResult; stdcall;  
    function SetElementTimes(pwcsName: POleStr; const ctime: TFileTime;  
      const atime: TFileTime; const mtime: TFileTime): HResult;  
      stdcall;  
    function SetClass(const clsid: TCLSID): HResult; stdcall;  
    function SetStateBits(grfStateBits: Longint; grfMask: Longint): HResult;  
      stdcall;  
    function Stat(out statstg: TStatStg; grfStatFlag: Longint): HResult;  
      stdcall;  
  end;  

{ IPersistFile interface }  

  {$EXTERNALSYM IPersistFile}  
  IPersistFile = interface(IPersist)  
    ['{0000010B-0000-0000-C000-000000000046}']  
    function IsDirty: HResult; stdcall;  
    function Load(pszFileName: POleStr; dwMode: Longint): HResult;  
      stdcall;  
    function Save(pszFileName: POleStr; fRemember: BOOL): HResult;  
      stdcall;  
    function SaveCompleted(pszFileName: POleStr): HResult;  
      stdcall;  
    function GetCurFile(out pszFileName: POleStr): HResult;  
      stdcall;  
  end;  

{ IPersistStorage interface }  

  {$EXTERNALSYM IPersistStorage}  
  IPersistStorage = interface(IPersist)  
    ['{0000010A-0000-0000-C000-000000000046}']  
    function IsDirty: HResult; stdcall;  
    function InitNew(const stg: IStorage): HResult; stdcall;  
    function Load(const stg: IStorage): HResult; stdcall;  
    function Save(const stgSave: IStorage; fSameAsLoad: BOOL): HResult;  
      stdcall;  
    function SaveCompleted(const stgNew: IStorage): HResult; stdcall;  
    function HandsOffStorage: HResult; stdcall;  
  end;  

{ ILockBytes interface }  

  {$EXTERNALSYM ILockBytes}  
  ILockBytes = interface(IUnknown)  
    ['{0000000A-0000-0000-C000-000000000046}']  
    function ReadAt(ulOffset: Largeint; pv: Pointer; cb: Longint;  
      pcbRead: PLongint): HResult; stdcall;  
    function WriteAt(ulOffset: Largeint; pv: Pointer; cb: Longint;  
      pcbWritten: PLongint): HResult; stdcall;  
    function Flush: HResult; stdcall;  
    function SetSize(cb: Largeint): HResult; stdcall;  
    function LockRegion(libOffset: Largeint; cb: Largeint;  
      dwLockType: Longint): HResult; stdcall;  
    function UnlockRegion(libOffset: Largeint; cb: Largeint;  
      dwLockType: Longint): HResult; stdcall;  
    function Stat(out statstg: TStatStg; grfStatFlag: Longint): HResult;  
      stdcall;  
  end;  

{ IEnumFormatEtc interface }  

  PDVTargetDevice = ^TDVTargetDevice;  
  {$EXTERNALSYM tagDVTARGETDEVICE}  
  tagDVTARGETDEVICE = record  
    tdSize: Longint;  
    tdDriverNameOffset: Word;  
    tdDeviceNameOffset: Word;  
    tdPortNameOffset: Word;  
    tdExtDevmodeOffset: Word;  
    tdData: record end;  
  end;  
  TDVTargetDevice = tagDVTARGETDEVICE;  
  {$EXTERNALSYM DVTARGETDEVICE}  
  DVTARGETDEVICE = TDVTargetDevice;  


  {$EXTERNALSYM PClipFormat}  
  PClipFormat = ^TClipFormat;  
  {$EXTERNALSYM TClipFormat}  
  TClipFormat = Word;  

  PFormatEtc = ^TFormatEtc;  
  {$EXTERNALSYM tagFORMATETC}  
  tagFORMATETC = record  
    cfFormat: TClipFormat;  
    ptd: PDVTargetDevice;  
    dwAspect: Longint;  
    lindex: Longint;  
    tymed: Longint;  
  end;  
  TFormatEtc = tagFORMATETC;  
  {$EXTERNALSYM FORMATETC}  
  FORMATETC = TFormatEtc;  


  {$EXTERNALSYM IEnumFORMATETC}  
  IEnumFORMATETC = interface(IUnknown)  
    ['{00000103-0000-0000-C000-000000000046}']  
    function Next(celt: Longint; out elt;  
      pceltFetched: PLongint): HResult; stdcall;  
    function Skip(celt: Longint): HResult; stdcall;  
    function Reset: HResult; stdcall;  
    function Clone(out Enum: IEnumFormatEtc): HResult; stdcall;  
  end;  

{ IEnumStatData interface }  

  PStatData = ^TStatData;  
  {$EXTERNALSYM tagSTATDATA}  
  tagSTATDATA = record  
    formatetc: TFormatEtc;  
    advf: Longint;  
    advSink: IAdviseSink;  
    dwConnection: Longint;  
  end;  
  TStatData = tagSTATDATA;  
  {$EXTERNALSYM STATDATA}  
  STATDATA = TStatData;  


  {$EXTERNALSYM IEnumSTATDATA}  
  IEnumSTATDATA = interface(IUnknown)  
    ['{00000105-0000-0000-C000-000000000046}']  
    function Next(celt: Longint; out elt;  
      pceltFetched: PLongint): HResult; stdcall;  
    function Skip(celt: Longint): HResult; stdcall;  
    function Reset: HResult; stdcall;  
    function Clone(out Enum: IEnumStatData): HResult; stdcall;  
  end;  

{ IRootStorage interface }  

  {$EXTERNALSYM IRootStorage}  
  IRootStorage = interface(IUnknown)  
    ['{00000012-0000-0000-C000-000000000046}']  
    function SwitchToFile(pszFile: POleStr): HResult; stdcall;  
  end;  

{ IAdviseSink interface }  

  PRemStgMedium = ^TRemStgMedium;  
  {$EXTERNALSYM tagRemSTGMEDIUM}  
  tagRemSTGMEDIUM = record  
    tymed: Longint;  
    dwHandleType: Longint;  
    pData: Longint;  
    pUnkForRelease: Longint;  
    cbData: Longint;  
    data: record end;  
  end;  
  TRemStgMedium = tagRemSTGMEDIUM;  
  {$EXTERNALSYM RemSTGMEDIUM}  
  RemSTGMEDIUM = TRemStgMedium;  


  PStgMedium = ^TStgMedium;  
  {$EXTERNALSYM tagSTGMEDIUM}  
  tagSTGMEDIUM = record  
    tymed: Longint;  
    case Integer of  
      0: (hBitmap: HBitmap; unkForRelease: Pointer{IUnknown});  
      1: (hMetaFilePict: THandle);  
      2: (hEnhMetaFile: THandle);  
      3: (hGlobal: HGlobal);  
      4: (lpszFileName: POleStr);  
      5: (stm: Pointer{IStream});  
      6: (stg: Pointer{IStorage});  
  end;  
  TStgMedium = tagSTGMEDIUM;  
  {$EXTERNALSYM STGMEDIUM}  
  STGMEDIUM = TStgMedium;  


  {$EXTERNALSYM IAdviseSink}  
  IAdviseSink = interface(IUnknown)  
    ['{0000010F-0000-0000-C000-000000000046}']  
    procedure OnDataChange(const formatetc: TFormatEtc; const stgmed: TStgMedium);  
      stdcall;  
    procedure OnViewChange(dwAspect: Longint; lindex: Longint);  
      stdcall;  
    procedure OnRename(const mk: IMoniker); stdcall;  
    procedure OnSave; stdcall;  
    procedure OnClose; stdcall;  
  end;  

{ IAdviseSink2 interface }  

  {$EXTERNALSYM IAdviseSink2}  
  IAdviseSink2 = interface(IAdviseSink)  
    ['{00000125-0000-0000-C000-000000000046}']  
    procedure OnLinkSrcChange(const mk: IMoniker); stdcall;  
  end;  

{ IDataObject interface }  

  {$EXTERNALSYM IDataObject}  
  IDataObject = interface(IUnknown)  
    ['{0000010E-0000-0000-C000-000000000046}']  
    function GetData(const formatetcIn: TFormatEtc; out medium: TStgMedium):  
      HResult; stdcall;  
    function GetDataHere(const formatetc: TFormatEtc; out medium: TStgMedium):  
      HResult; stdcall;  
    function QueryGetData(const formatetc: TFormatEtc): HResult;  
      stdcall;  
    function GetCanonicalFormatEtc(const formatetc: TFormatEtc;  
      out formatetcOut: TFormatEtc): HResult; stdcall;  
    function SetData(const formatetc: TFormatEtc; var medium: TStgMedium;  
      fRelease: BOOL): HResult; stdcall;  
    function EnumFormatEtc(dwDirection: Longint; out enumFormatEtc:  
      IEnumFormatEtc): HResult; stdcall;  
    function DAdvise(const formatetc: TFormatEtc; advf: Longint;  
      const advSink: IAdviseSink; out dwConnection: Longint): HResult; stdcall;  
    function DUnadvise(dwConnection: Longint): HResult; stdcall;  
    function EnumDAdvise(out enumAdvise: IEnumStatData): HResult;  
      stdcall;  
  end;  

{ IDataAdviseHolder interface }  

  {$EXTERNALSYM IDataAdviseHolder}  
  IDataAdviseHolder = interface(IUnknown)  
    ['{00000110-0000-0000-C000-000000000046}']  
    function Advise(const dataObject: IDataObject; const fetc: TFormatEtc;  
      advf: Longint; const advise: IAdviseSink; out pdwConnection: Longint): HResult;  
      stdcall;  
    function Unadvise(dwConnection: Longint): HResult; stdcall;  
    function EnumAdvise(out enumAdvise: IEnumStatData): HResult; stdcall;  
    function SendOnDataChange(const dataObject: IDataObject; dwReserved: Longint;  
      advf: Longint): HResult; stdcall;  
  end;  

{ IMessageFilter interface }  

  PInterfaceInfo = ^TInterfaceInfo;  
  {$EXTERNALSYM tagINTERFACEINFO}  
  tagINTERFACEINFO = record  
    unk: IUnknown;  
    iid: TIID;  
    wMethod: Word;  
  end;  
  TInterfaceInfo = tagINTERFACEINFO;  
  {$EXTERNALSYM INTERFACEINFO}  
  INTERFACEINFO = TInterfaceInfo;  


  {$EXTERNALSYM IMessageFilter}  
  IMessageFilter = interface(IUnknown)  
    ['{00000016-0000-0000-C000-000000000046}']  
    function HandleInComingCall(dwCallType: Longint; htaskCaller: HTask;  
      dwTickCount: Longint; lpInterfaceInfo: PInterfaceInfo): Longint;  
      stdcall;  
    function RetryRejectedCall(htaskCallee: HTask; dwTickCount: Longint;  
      dwRejectType: Longint): Longint; stdcall;  
    function MessagePending(htaskCallee: HTask; dwTickCount: Longint;  
      dwPendingType: Longint): Longint; stdcall;  
  end;  

{ IRpcChannelBuffer interface }  

  TRpcOleDataRep = DWORD;  

  PRpcOleMessage = ^TRpcOleMessage;  
  {$EXTERNALSYM tagRPCOLEMESSAGE}  
  tagRPCOLEMESSAGE = record  
    reserved1: Pointer;  
    dataRepresentation: TRpcOleDataRep;  
    Buffer: Pointer;  
    cbBuffer: Longint;  
    iMethod: Longint;  
    reserved2: array[0..4] of Pointer;  
    rpcFlags: Longint;  
  end;  
  TRpcOleMessage = tagRPCOLEMESSAGE;  
  {$EXTERNALSYM RPCOLEMESSAGE}  
  RPCOLEMESSAGE = TRpcOleMessage;  


  {$EXTERNALSYM IRpcChannelBuffer}  
  IRpcChannelBuffer = interface(IUnknown)  
    ['{D5F56B60-593B-101A-B569-08002B2DBF7A}']  
    function GetBuffer(var message: TRpcOleMessage; iid: TIID): HResult;  
      stdcall;  
    function SendReceive(var message: TRpcOleMessage;  
      var status: Longint): HResult; stdcall;  
    function FreeBuffer(var message: TRpcOleMessage): HResult;  
      stdcall;  
    function GetDestCtx(out dwDestContext: Longint;  
      out pvDestContext): HResult; stdcall;  
    function IsConnected: HResult; stdcall;  
  end;  

{ IRpcProxyBuffer interface }  

  {$EXTERNALSYM IRpcProxyBuffer}  
  IRpcProxyBuffer = interface(IUnknown)  
    ['{D5F56A34-593B-101A-B569-08002B2DBF7A}']  
    function Connect(const rpcChannelBuffer: IRpcChannelBuffer): HResult;  
      stdcall;  
    procedure Disconnect; stdcall;  
  end;  

{ IRpcStubBuffer interface }  

  {$EXTERNALSYM IRpcStubBuffer}  
  IRpcStubBuffer = interface(IUnknown)  
    ['{D5F56AFC-593B-101A-B569-08002B2DBF7A}']  
    function Connect(const unkServer: IUnknown): HResult; stdcall;  
    procedure Disconnect; stdcall;  
    function Invoke(var rpcmsg: TRpcOleMessage; rpcChannelBuffer:  
      IRpcChannelBuffer): HResult; stdcall;  
    function IsIIDSupported(const iid: TIID): Pointer{IRpcStubBuffer};  
      stdcall;  
    function CountRefs: Longint; stdcall;  
    function DebugServerQueryInterface(var pv): HResult;  
      stdcall;  
    procedure DebugServerRelease(pv: Pointer); stdcall;  
  end;  

{ IPSFactoryBuffer interface }  

  {$EXTERNALSYM IPSFactoryBuffer}  
  IPSFactoryBuffer = interface(IUnknown)  
    ['{D5F569D0-593B-101A-B569-08002B2DBF7A}']  
    function CreateProxy(const unkOuter: IUnknown; const iid: TIID;  
      out proxy: IRpcProxyBuffer; out pv): HResult; stdcall;  
    function CreateStub(const iid: TIID; const unkServer: IUnknown;  
      out stub: IRpcStubBuffer): HResult; stdcall;  
  end;  

  {$EXTERNALSYM IChannelHook}  
  IChannelHook = interface(IUnknown)  
    ['{1008C4A0-7613-11CF-9AF1-0020AF6E72F4}']  
    procedure ClientGetSize(const uExtent: TGUID; const iid: TIID;  
      out DataSize: Longint); stdcall;  
    procedure ClientFillBuffer(const uExtent: TGUID; const iid: TIID;  
      var DataSize: Longint; var DataBuffer); stdcall;  
    procedure ClientNotify(const uExtent: TGUID; const iid: TIID;  
      DataSize: Longint; var DataBuffer; lDataRep: Longint;  
      hrFault: HResult); stdcall;  
    procedure ServerNotify(const uExtent: TGUID; const iid: TIID;  
      DataSize: Longint; var DataBuffer; lDataRep: Longint); stdcall;  
    procedure ServerGetSize(const uExtent: TGUID; const iid: TIID;  
      hrFault: HResult; out DataSize: Longint); stdcall;  
    procedure ServerFillBuffer(const uExtent: TGUID; const iid: TIID;  
      var DataSize: Longint; var DataBuffer; hrFault: HResult); stdcall;  
  end;
11061104
关注
专栏目录
检索 COM 类工厂中 CLSID 为 {000209FF-0000-0000-C000-000000000046} 的组件时失败解决方法
高级项目经理、专注于技术架构、分享项目管理及职场心得
04-25 3030
最近在处理一个项目时使用到了在word中写入信息的功能，由于系统原来就支持在线打印功能，使用了PageOffice，于是就研究了一下PageOffice，发现Pageoffice不能满足自己的功能(或许是自己没有仔细研究吧，欢迎大家留言），要实现的功能时，依据查询到的信息，每条记录生产一个word文档，同时在单独生产一个word的目录；思考一下： 如果系统要支持在线打印或者预览以后保存：使用Pag
检索 COM 类工厂中 CLSID 为 {000209FF-0000-0000-C000-000000000046} 的组件时失败
Reka's blog ^_^
01-31 6950
背景：ITOO项目如火如荼的进行着，各种问题“应运而生”。之前遇到的，现在刚刚接触的，都蹦出来了，再加上项目中有许多“新面孔”——WCF、MVC、EF等等，当时都不知道是干啥用的，一个多月的学习，确实让我增长了不少见识。ITOO这个庞大的云平台系统中有五个小系统——基础、权限、新生、考评、成绩。成绩系统是这五个系统中最小的一个，业务逻辑简单，子模块少。但是里面的问题一点都不少，前辈们为我们留下宝贵
IClassFactory = interface(IUnknown) ['{00000001-0000-0000-C000-000000000046}']
autumn20080101的专栏
03-30 1454
{ IClassFactory interface } {$EXTERNALSYM IClassFactory} IClassFactory = interface(IUnknown) ['{00000001-0000-0000-C000-000000000046}'] function CreateInstance(const unkOuter: IUnknown; c
Interface\{00000001-0000-0000-C000-000000000046}] @="IClassFactory"
autumn20080101的专栏
03-30 1779
[HKEY_CLASSES_ROOT\Interface\{00000000-0000-0000-C000-000000000046}] @="IUnknown" [HKEY_CLASSES_ROOT\Interface\{00000000-0000-0000-C000-000000000046}\BaseInterface] @="" [HKEY_CLASSES_ROOT
MIDL_INTERFACE("00000001-0000-0000-C000-000000000046") IClassFactory : public IUnknown
autumn20080101的专栏
03-30 1697
EXTERN_C const IID IID_IClassFactory; #if defined(__cplusplus) && !defined(CINTERFACE) MIDL_INTERFACE("00000001-0000-0000-C000-000000000046") IClassFactory : public IUnknown { pu
COM三大接口:IUnknown、IClassFactory、IDispatch。
weixin_30662011的博客
03-18 191
COM组件有三个最基本的接口类，分别是IUnknown、IClassFactory、IDispatch。 COM规范规定任何组件、任何接口都必须从IUnknown继承，IUnknown包含三个函数，分别是 QueryInterface、AddRef、Release。这三个函数是无比重要的，而且它们的排列顺序也是不可改变的。QueryInterface用于查询组件实现的其它接口，说白了也就...
类工厂模式
xxhh07的专栏
04-12 1469
<br /><br />面向对象设计的一个目标就是将各种功能封装到不同的对象.这种思想很好,鼓励使用封装和委托. <br />有些应用程序或框架无法预料必须被创建的对象的类型.通常先接收一些信息指示如何执行. <br />这种情形在RO服务端接收到客户端请求是经常要面对:服务端需要知道请求需要什么对象,需要创建一个实例,最终调用完成, 又需要决定如何处理这个创建的实例. <br />我们使用类工厂模式来解决这中变异. <br />注意:本文适合RemObjects SDK的 Delphi和.NET版本. 对
检索 COM 类工厂中 CLSID 为 {000209FF-0000-0000-C000-000000000046} 的组件问题整理
06-30
COM 组件工厂中的 CLSID 为 {000209FF-0000-0000-C000-000000000046} 的组件问题整理 COM（Component Object Model）是 Microsoft 公司开发的一种软件组件架构，允许不同的应用程序和语言之间进行交互和通信。其中...
检索 COM 类工厂中 CLSID 为 {000209FF-0000-0000-C000-000000000046} 的组件时失败，原因是出现以下错误: 8000401a
我笔记
07-24 905
前一阵子做开发需要用到Excel和Word编程，本人用的是Vista系统，开发环境是VS2005和Office2007，测试无任何问题，可是到部署的时候出现了一些令人很头痛的问题，老是会出现例如： 检索 COM 类工厂中 CLSID 为 {000209FF-0000-0000-C000-000000000046} 的组件时失败，原因是出现以下错误: 8000401a。 的错误，在网上查询了许多资...
MFC程序员的WTL，第X部分-实现拖放源
04-11
在本文中，我们将深入探讨如何在使用MFC（Microsoft Foundation Classes）编程的背景下，通过WTL（Windows Template Library）实现拖放源的功能。WTL是一个轻量级的库，为C++开发人员提供了构建Windows应用程序的...
delphi的interface编程注意问题
capboy的专栏
10-28 2026
1.不支持继承2.不能从接口获得实现类，如:ITest = interface...end;TTest = class(TObject, ITest)...end;...var  tmpITest: ITest;  tmpTTest: TTest;  tmpTTest2: TTest;...  tmpITest := tmpTTest;//正确...  TTest(tmpITest).xx
Delphi中Interface接口的使用方法
weixin_33806509的博客
08-18 454
示例注释(现在应该知道的): {   1、接口命名约定 I 起头, 就像类从 T 打头一样.   2、接口都是从 IInterface 继承而来; 若是从根接口继承, 可省略.   3、接口成员只能是方法、属性, 没有字段.   4、接口成员都是公开的, 不需要 private、protected、public、published 等任何访问限制.   5、因为接口只声明、无实现, 也用不到...
Delphi COM编程技术二（COM接口和COM组件）
xiongmao000738
10-17 4979
一、类厂（Class Factory） 1、类厂的含义： 　　　　类厂是一种组件或者对象，它就是用于创建其他对象的。COM对象不是由程序直接实例的，COM使用类厂来创建对象。每一个COM都有一个相关的类厂，负责创建在服务器中实现的COM对象；类厂把COM从实际构造一个对象的过
Delphi剖析
romandion的专栏
01-23 2217
一、前言       关于你所提到VCL framework/Object pascal/windows SDK/Com，这些在Delphi的帮助都有提到，我想你之所以提到这些，是希望了解我对Delphi理解的深度和广度，基于这个认识，我在这里阐述一 下我对Delphi的认识。
[反射]利用Activator.CreateInstance(type)实例化表单
数据库天地
07-06 567
通常我们在做BS项目树形菜单的，判断好权限后点击节点URL跳转到指定的页面 最近好玩写写WINFORM，点击节点从数据库中读取类型 进行实例化，不认识！！！ 上网查查看到这个方法Activator.CreateInstance(type) 就改改代码了： try { Type type = Type.Get...
VC下这样创建实例m_pRecordset.CreateInstance(_uuidof(Connection))不一定成功!...
weixin_34072458的博客
11-17 296
//昨天在打开数据库的记录集时，出现了一个错误，错误提示为无效的指针类型，上网查了一下，原来是我的 //的程序在创建实例时，出现了错误，呵呵，以前我都是这样创建实例的:m_pRecordset.CreateInstance(_uuidof(Connection)) //我调试程序错误时的代码如下: //创建实例 HRESULT hr=adoConn.m_pRecordset.Create...
[转帖]接口的真相
weixin_30821731的博客
04-15 225
接口的真相 接口（interface）在Delphi中是一个很有意思的东西。Delphi 3开始支持接口，从而形成了COM编程的基础；然而，Delphi中的接口也可用在非COM开发中，实现类似抽象类（含有抽象方法的类）的功能，从而弥补了Delphi中不能多继承（子类有多个同级父类）的不足。这里所讲的interface和一个单元中的interface部分是完全不同的概念，不要混淆。 说了半...
ATL对象聚合实现深入解析-COM组件开发
例如，`DECLARE_INTERFACE_(IClassFactory, IUnknown)`宏声明了一个名为`IClassFactory`的接口，它继承自`IUnknown`。其他宏如`DECLARE_INTERFACE`用于声明不继承任何接口的接口，`STDMETHOD`用于定义接口方法，`...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值