Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Class not registered
#1
I'm trying to use a typelib but it keeps giving me the error "Class not registered" any tips on what can be?
 
Code:
Copy      Help
typelib clInetSuiteX9 {B74F475D-F382-4924-8F1A-92661CD1229D} 9.0

IntGetFile("https://www.quickmacros.com/" str'html)

clInetSuiteX9.clHtmlParser h._create
clInetSuiteX9.IclHtmlTagList t._create("{3A888882-CFEF-4B25-B287-8929F18D4ADD}")

h.Parse(html)

t = h.Links

int i
for i 0 t.Count
,out t.Item(i)
The typelib:
https://pixeldrain.com/u/MmYayBWU
#2
It maybe not the right answer but should help you some more.

Function Function2
Code:
Copy      Help
;
RegisterComComponent "$user profile$\Downloads\clinetsuitex9.ocx"
typelib clInetSuiteX9 "$user profile$\Downloads\clinetsuitex9.ocx"

IntGetFile("https://www.quickmacros.com/" str'html)
clInetSuiteX9.clHtmlParser h._create
clInetSuiteX9.IclHtmlTagList
h._setevents("sub.h")
h.Parse(html)



#sub h_OnParseForm
function clInetSuiteX9.IclHtmlForm'AForm clInetSuiteX9.IclHtmlParserControl'h



#sub h_OnParseLink
function clInetSuiteX9.IclHtmlLink'ALink ;;clInetSuiteX9.IclHtmlParserControl'h

out "___________________"
out ALink.Href
out ALink.InnerTextPos
out ALink.IsClosingTag
out ALink.IsText
out ALink.LinkText
out ALink.name
out ALink.TagSource
out ALink.Target
out ALink.Text

#sub h_OnParseTag
function clInetSuiteX9.IclHtmlTag'ATag ;;clInetSuiteX9.IclHtmlParserControl'h
out ATag.name
out ATag.InnerTextPos
out ATag.IsClosingTag
out ATag.IsText
out ATag.name
out ATag.TagSource
out ATag.Text
#3
Have you tried The Qm class HtmlDoc?  example to get links
Code:
Copy      Help
HtmlDoc doc
doc.InitFromWeb("https://www.quickmacros.com")
ARRAY(MSHTML.IHTMLElement) a; int i
doc.GetLinks(a)
for i 0 a.len
,out a[i].innerText
,out a[i].outerHTML
,out "-------"
#4
Thanks for the help guys.


Forum Jump:


Users browsing this thread: 1 Guest(s)