invoker.int

来自「delphi 7开发指南delphi 开发指南」· INT 代码 · 共 27 行

{*******************************************************}
{                                                       }
{ Borland Delphi Visual Component Library               }
{       Pascal Invoker Support                          }
{                                                       }
{ Copyright (c) 2001 Borland Software Corporation       }
{                                                       }
{*******************************************************}

unit Invoker;

interface

uses
  SysUtils, Classes, Typinfo, IntfInfo, InvokeRegistry, WSDLIntf;

type

  TInterfaceInvoker = class
  public
    procedure Invoke(const Obj: TObject; IntfMD: TIntfMetaData;
      const MethNum: Integer; const Context: TInvContext);
    constructor Create;
  end;

implementation