Programalama > DELPHI

Bir Com objesini (IContinuousCrawl)  bir dll içinden type library ile tanımlayarak alıyorum. Aldığım bu objenin kontrol edilmesi gereken waiting diye bir event inin olması gerekiyor ama tabiki bunu bir bileşen gibi ekleyemediğim için böyle bir event e ulaşamıyorum. Ama aynı kod için VB de Dim WithEvent As ContinuousCrawl tanımı bana tüm olayları getirmekte. Bunu delphide nasıl yapabilirim.

// *********************************************************************//
// DispIntf:  _IContinuousCrawlEvents
// Flags:     (4096) Dispatchable
// GUID:      {002CE885-5BF4-4D8F-B970-DBD2E96F2BF4}
// *********************************************************************//
  _IContinuousCrawlEvents = dispinterface
    ['{002CE885-5BF4-4D8F-B970-DBD2E96F2BF4}']
    procedure Waiting; dispid 1;
    procedure Setup; dispid 2;
    procedure Done; dispid 3;
    procedure ItemOnScreen(var Notification: OleVariant); dispid 4;
    procedure ItemOffScreen(var Notification: OleVariant); dispid 5;
  end;

// *********************************************************************//
// Interface: IContinuousCrawl
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {768C407A-7E40-49BB-BDFC-BF4B2DCD342E}
// *********************************************************************//
  IContinuousCrawl = interface(IEffect)
    ['{768C407A-7E40-49BB-BDFC-BF4B2DCD342E}']
    function Get_CrawlOff: WordBool; safecall;
    procedure Set_CrawlOff(pVal: WordBool); safecall;
    function Get_CrawlOn: WordBool; safecall;
    procedure Set_CrawlOn(pVal: WordBool); safecall;
    function Get_Speed: Double; safecall;
    procedure Set_Speed(pVal: Double); safecall;
    function Get_FrameBuffer: IFrameBuffer; safecall;
    procedure Set_FrameBuffer(const pVal: IFrameBuffer); safecall;
    function Get_SoftPositionLeft: Double; safecall;
    procedure Set_SoftPositionLeft(pVal: Double); safecall;
    function Get_SoftPositionRight: Double; safecall;
    procedure Set_SoftPositionRight(pVal: Double); safecall;
    function Get_SoftWidthLeft: Double; safecall;
    procedure Set_SoftWidthLeft(pVal: Double); safecall;
    function Get_SoftWidthRight: Double; safecall;
    procedure Set_SoftWidthRight(pVal: Double); safecall;
    function Get_EaseOn: Integer; safecall;
    procedure Set_EaseOn(pVal: Integer); safecall;
    function Get_EaseOff: Integer; safecall;
    procedure Set_EaseOff(pVal: Integer); safecall;
    function Get_UseLegacyDataFeed: WordBool; safecall;
    procedure Set_UseLegacyDataFeed(pVal: WordBool); safecall;
    procedure QueueItem(Item: OleVariant; Notification: OleVariant); safecall;
    procedure Clone(const TargetContinuousCrawl: IContinuousCrawl); safecall;
    procedure Reset; safecall;
    procedure Pause; safecall;
    procedure Resume; safecall;
    property CrawlOff: WordBool read Get_CrawlOff write Set_CrawlOff;
    property CrawlOn: WordBool read Get_CrawlOn write Set_CrawlOn;
    property Speed: Double read Get_Speed write Set_Speed;
    property FrameBuffer: IFrameBuffer read Get_FrameBuffer write Set_FrameBuffer;
    property SoftPositionLeft: Double read Get_SoftPositionLeft write Set_SoftPositionLeft;
    property SoftPositionRight: Double read Get_SoftPositionRight write Set_SoftPositionRight;
    property SoftWidthLeft: Double read Get_SoftWidthLeft write Set_SoftWidthLeft;
    property SoftWidthRight: Double read Get_SoftWidthRight write Set_SoftWidthRight;
    property EaseOn: Integer read Get_EaseOn write Set_EaseOn;
    property EaseOff: Integer read Get_EaseOff write Set_EaseOff;
    property UseLegacyDataFeed: WordBool read Get_UseLegacyDataFeed write Set_UseLegacyDataFeed;
  end;

// *********************************************************************//
// DispIntf:  IContinuousCrawlDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {768C407A-7E40-49BB-BDFC-BF4B2DCD342E}
// *********************************************************************//
  IContinuousCrawlDisp = dispinterface
    ['{768C407A-7E40-49BB-BDFC-BF4B2DCD342E}']
    property CrawlOff: WordBool dispid 1610809344;
    property CrawlOn: WordBool dispid 1610809346;
    property Speed: Double dispid 1610809348;
    property FrameBuffer: IFrameBuffer dispid 1610809350;
    property SoftPositionLeft: Double dispid 1610809352;
    property SoftPositionRight: Double dispid 1610809354;
    property SoftWidthLeft: Double dispid 1610809356;
    property SoftWidthRight: Double dispid 1610809358;
    property EaseOn: Integer dispid 1610809360;
    property EaseOff: Integer dispid 1610809362;
    property UseLegacyDataFeed: WordBool dispid 1610809364;
    procedure QueueItem(Item: OleVariant; Notification: OleVariant); dispid 1610809366;
    procedure Clone(const TargetContinuousCrawl: IContinuousCrawl); dispid 1610809367;
    procedure Reset; dispid 1610809368;
    procedure Pause; dispid 1610809369;
    procedure Resume; dispid 1610809370;
    property EffectType: EffectType readonly dispid 1610743808;
    property Status: EffectStatus readonly dispid 1610743809;
    procedure Setup(const Context: IRTXContext); dispid 1610743810;
    procedure Stop(Method: StopType); dispid 1610743811;
    procedure StopAt(const TimeCode: ITimeCode; Method: StopType); dispid 1610743812;
    procedure Take; dispid 1610743813;
    procedure TakeAt(const TimeCode: ITimeCode); dispid 1610743814;
    procedure Wait; dispid 1610743815;
    property dict: WideString readonly dispid 1610743816;
    property Name: WideString dispid 1610743817;
  end;