fmmain.pas

来自「多数代码可以直接在Delphi6和Delphi7环境下运行。部分涉及.NET技术」· PAS 代码 · 共 49 行

unit fmMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, PAFXDemoD7_TLB, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    afxDemo: TActiveFormXD7;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  anIntf : IActiveFormXD7;
  aDisp : IDispatch;
  iCount, iAddRef, iReleaseRef : Integer;
  IID_DISPATCH : TGUID;
begin
  IID_DISPATCH := StringToGUID('{00020400-0000-0000-C000-000000000046}');
  anIntf := afxDemo.DefaultInterface;
  anIntf.QueryInterface(IID_DISPATCH, aDisp);
  iAddRef := aDisp._AddRef;
  iReleaseRef := aDisp._Release;
  Self.Edit1.Text := IntToStr(iAddRef);
  Self.Edit2.Text := IntToStr(iReleaseRef);

  aDisp.GetTypeInfoCount(iCount);
  Self.Caption := IntToStr(iCount);
end;

end.