在Delphi中动态创建ActiveX组件

以下类允许你在Delphi中动态的创建一个ActiveX组件，并在窗口上显示出来。

unit DynamicOleControl;

interface

uses Windows, Classes, ActiveX, OleCtrls, ComObj;

type

TDynamicOleControl = class(TOleControl)

private

FClassID: TGUID;

FIntf: IUnknown;

function GetControlInterface: IUnknown;

protected

procedure CreateControl;

procedure InitControlData; override;

public

constructor CreateFromClassID(AOwner: TComponent; AClassID: TGUID); overload;

constructor CreateFromClassID(AOwner: TComponent; AClassID: string); overload;

constructor CreateFromProgID(AOwner: TComponent; AProgID: string);

property ControlInterface: IUnknown read GetControlInterface;

property DefaultInterface: IUnknown read GetControlInterface;

published

property Anchors;

end;

implementation

constructor TDynamicOleControl.CreateFromClassID(AOwner: TComponent;

AClassID: TGUID);

begin

FClassID := AClassID;

inherited Create(AOwner);

end;

constructor TDynamicOleControl.CreateFromClassID(AOwner: TComponent; AClassID: string);

begin

FClassID := StringToGUID(AClassID);

inherited Create(AOwner);

end;

constructor TDynamicOleControl.CreateFromProgID(AOwner: TComponent;

AProgID: string);

begin

FClassID := ProgIDToClassID(AProgID);

inherited Create(AOwner);

end;

procedure TDynamicOleControl.InitControlData;

const

CControlData: TControlData2 = (

ClassID: '';

EventIID: '';

EventCount: 0;

LicenseKey: nil;

Flags: $00000000; //$0000001D

Version: 401

);

begin

CopyMemory(@CControlData.ClassID, @FClassID, SizeOf(TGUID));

ControlData := @CControlData;

end;

procedure TDynamicOleControl.CreateControl;

procedure DoCreate;

begin

FIntf := IUnknown(OleObject) as IUnknown;

end;

begin

if FIntf = nil then DoCreate;

end;

function TDynamicOleControl.GetControlInterface: IUnknown;

begin

CreateControl;

Result := FIntf;

end;

end.

源码和例子下载：DynamicOleSample.rar