[Urgent]: Tcom question...
- From: Georgios Petasis <petasis@xxxxxxxxxxxxxxxxx>
- Date: Sat, 31 Mar 2007 15:57:36 +0300
Hi all,
I am trying to use tcom in order to analyse a web page with the VIPS algorithm. The VIPS ActiveX dll can be found at:
http://www.ews.uiuc.edu/~dengcai2/VIPS/VIPS.html
http://www.ews.uiuc.edu/~dengcai2/VIPS/VIPSdll_2006-01-16.zip
This ActiveX dll has the following interface (as returned by
set interface [::tcom::info interface handle]; $interface methods)
1 DISPATCH FOMPage {}
2 VOID Initialize {{in I4 dwPara}}
3 VOID Analyze4 {{in DISPATCH pHtmlDoc} {in VARIANT nGranularity}}
4 VOID AnalyzeOutputAll_Text {{in DISPATCH pHtmlDoc} {in VARIANT nGranularity}}
5 BSTR getResult {}
6 VOID AnalyzeNews {{in DISPATCH pHtmlDoc} {in VARIANT nGranularity}}
7 VOID AnalyzeImg {{in DISPATCH pHtmlDoc}}
I can succesfully create an instance of this dll:
set analyzer [::tcom::ref createobject PageAnalyzer.LayoutAnalyzer2]
$analyzer Initialize 0
Now, I want to use the Analyze4 method. From an example C++ code that uses the DLL, I have:
MSHTML::IHTMLDocument2Ptr pHTMLDoc = m_webBrowser.GetDocument();
m_pLayoutAnalyzer->Analyze4(pHTMLDoc,_variant_t((long)m_iPDOC));
MSXML2::IXMLDOMDocumentPtr pFOMPage = m_pLayoutAnalyzer->GetFOMPage();
What I am trying to do, is to pass a document from internet explorer:
set ie [::tcom::ref createobject InternetExplorer.Application]
$ie Navigate2 <some_url>
set document [$ie Document]
$analyzer -method Analyze4 $document 5
The last call returns an error:
0x80004002 {No such interface supported}
Any ideas?
George
.
- Prev by Date: Re: TCL and IPv6
- Next by Date: Re: %W in the clock command
- Previous by thread: using swig/tcl for 3rd party packages
- Index(es):