ActiveX Library COM Object ÔÚVB¼°ASPÖе÷Óóö´í

ÔÚdelphiÖе÷ÓÃÕý³£,È«²¿´úÂëÈçÏÂ:

library Project1;

uses
  ComServ,
  Project1_TLB in 'Project1_TLB.pas',
  Unit1 in 'Unit1.pas' {Sample: CoClass};

exports
  DllGetClassObject,
  DllCanUnloadNow,
  DllRegisterServer,
  DllUnregisterServer;

{$R *.TLB}

{$R *.RES}

begin
end.


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, Account: WideString): WideString;
      stdcall;
    {Declare ISample methods here}
  end;

implementation

uses ComServ, SysUtils;

function TSample.GetRoomInfo(const RoomNo,
  Account: WideString): WideString;
begin
Result :=RoomNo+' '+Account;//
end;

initialization
  TTypedComObjectFactory.Create(ComServer, TSample, Class_Sample,
    ciMultiInstance, tmApartment);
end.

===================================================================
unit Unit2009;

i