OpenEuphoria

eucom help

• Posted by Tone Škoda <tskoda at email.si> Sep 22, 2005
• 539 views

i'm trying to use IMediaDet which is in qedit.dll.

eucom displays these errors:
80004002: No such interface supported
could not get interface 2: 80004002

when running this code:

without warning
with trace
include IMediaDet.ew
with warning

com_err_out(1)

atom Det
Det = create_com_object (MediaDet_clsid_ix)

if wait_key () then end if



qedit.dll is in windows system32 directory. i did run "regsvr32 qedit.dll".
IMediaDet.ew file is:


-- Wrapper for qedit.dll for EuCOM
-- generated by Tbrowse.exw by Matt Lewis

without warning
include eucom.ew
include w32support.e as mem

global constant
MediaDet_clsid = "65BD0711-24D2-4FF7-9324-ED2E5D3ABAFA",
MediaDet_clsid_ix = add_clsid( MediaDet_clsid) ,
MediaDet_disp = add_iid( MediaDet_clsid_ix, IDispatch)

--methods
--  vtbl for MediaDet
global constant
MediaDet_EnterBitmapGrabMode = 18,
MediaDet_GetBitmapBits = 13,
MediaDet_GetSampleGrabber = 16,
MediaDet_WriteBitmapBits = 14

-- disp methods for MediaDet
global constant
MediaDet_m_EnterBitmapGrabMode = 13,
    -- method EnterBitmapGrabMode
    -- Returns:  VT_HRESULT
    -- SeekTime VT_R8 
MediaDet_m_GetBitmapBits = 8,
    -- method GetBitmapBits
    -- Returns:  VT_HRESULT
    -- streamTime VT_R8 
    -- pBufferSize VT_I4 
    -- pBuffer VT_UI1 
    -- Width VT_I4 
    -- Height VT_I4 
MediaDet_m_GetSampleGrabber = 11,
    -- method GetSampleGrabber
    -- Returns:  VT_HRESULT
    -- ppVal ISampleGrabber [OUT]
MediaDet_m_WriteBitmapBits = 9
    -- method WriteBitmapBits
    -- Returns:  VT_HRESULT
    -- streamTime VT_R8 
    -- Width VT_I4 
    -- Height VT_I4 
    -- Filename VT_BSTR 

--properties
--  vtbl for MediaDet
global constant
MediaDet_CurrentStream = 6,
MediaDet_Filename = 11,
MediaDet_Filter = 3,
MediaDet_FrameRate = 17,
MediaDet_OutputStreams = 5,
MediaDet_StreamLength = 10,
MediaDet_StreamMediaType = 15,
MediaDet_StreamType = 8,
MediaDet_StreamTypeB = 9

-- disp properties for MediaDet
global constant
MediaDet_p_CurrentStream = 3,
    -- property CurrentStream
    -- Property:  VT_I4
MediaDet_p_Filename = 7,
    -- property Filename
    -- Property:  VT_BSTR
MediaDet_p_Filter = 1,
    -- property Filter
    -- Property:  VT_UNKNOWN
MediaDet_p_FrameRate = 12,
    -- property FrameRate
    -- Property:  VT_R8
MediaDet_p_OutputStreams = 2,
    -- property OutputStreams
    -- Property:  VT_I4
MediaDet_p_StreamLength = 6,
    -- property StreamLength
    -- Property:  VT_R8
MediaDet_p_StreamMediaType = 10,
    -- property StreamMediaType
    -- Property:  _AMMediaType
MediaDet_p_StreamType = 4,
    -- property StreamType
    -- Property:  GUID
MediaDet_p_StreamTypeB = 5
    -- property StreamTypeB
    -- Property:  VT_BSTR