Delphi COM接口編程(ActiveX Library)(二)

左邊樹狀結構中,ISample 是根據我們填寫的類名得到的接口名稱.選中 ISample,點擊右鍵, 選擇 New Methord(或者上方工具欄中的綠色按鈕,上圖是灰色的.),可以創建一個方法,并給方法設置參數(在右邊的Paramters選項卡中).這里,方法名為 GetRoomInfo,并建立2個參數: RoomNo, Account,返回值 BSTR.如圖:

◎設置參數時, 双击Modifier列弹出窗口，可以选择参数的方式：in、out分别对应const、out定义，选择Has Default Value可设置参数缺省值。

◎參數類型的不同:

接口定义中缺省的字符参数或返回值将不再是String而是WideString。WideString 是Delphi中符合OLE 32-bit版本的Unicode类型，当是字符时，WideString与String几乎等同，当处理Unicode字符时，则会有很大差别。联想到COM本身是为了跨平台使用，可以很容易的理解为什么数据通信时需要使用WideString类型。

同样的道理，integer类型将变成SYSINT或者Int64、SmallInt或者Shortint，这些细微的变化都是为了符合规范。

設置完成后,點擊上方的 刷新 按鈕, 類型庫編輯器自動生成delphi 代碼:

注: 此時如果需要返回類型庫編輯器的設置,可以選擇 View- Type Library,修改設置后,點擊 刷新 按鈕. (我把原來的參數類型改了)…

unit Unit1;

{$WARN SYMBOL_PLATFORM OFF}

interface

uses

Windows, ActiveX, Classes, ComObj, Project1_TLB, StdVcl;

type

TSample = class(TTypedComObject, ISample)

protected

function GetRoomInfo(const RoomNo: WideString;

Account: SYSINT): WideString; stdcall;

{Declare ISample methods here}

end;

implementation

uses ComServ;

function TSample.GetRoomInfo(const RoomNo: WideString;

Account: SYSINT): WideString;

begin

end;

initialization

TTypedComObjectFactory.Create(ComServer, TSample, Class_Sample,

ciMultiInstance, tmApartment);

end.

二. 接口類的具體實現.

1.給接口類中的方法添加具體的代碼.這里為了能讓某人能看懂,寫的很簡單:

function TSample.GetRoomInfo(const RoomNo: WideString;

Account: SYSINT): WideString;

begin

if Account > 0 then

Result := '這是單賬戶客人,房間號為: ' + RoomNo

else

Result := '這是多賬戶客人.房間號為: ' + RoomNo ;

Result := RoomNo;//這個只是為了讓某人看懂,代碼大家可以自己寫.

end;

2.注冊創建COM對象

◎选择菜单“Run – Register ActiveX Server”，或者通过Windows下system/system32目录中的regsvr32.exe程序注册编译好的DLL文件。regsvr32的具体参数可以通过regsvr32/？来获得。对于进程外（EXE型）的COM对象，执行一次应用程序就注册了。

提示DLL注册成功.

三.COM對象的調用

新建一個Application,在窗體中放置兩個Edit,分別是用來傳遞 RoomNo,和Account的. 代碼如下:

implementation

uses ComObj,Project1_TLB;//這里的引用需要注意.

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

COMSvr : ISample;

begin

COMSvr := CreateComObject(CLASS_Sample) as ISample;

//也可以使用Guid 实例化

//COMSvr:=CreateComObject(StringToGuid('{330B6DA3-F7F6-49DD-B552-68769A916D66}')) as ISample;

if COMSvr <> nil then

begin

try

ShowMessage(COMSvr.GetRoomInfo(Edit1.Text,StrToInt(Edit2.Text)));

finally

COMSvr := nil;

end;

end;

end;

end.

運行就可以看到效果了.