ActiveX IE

[Natter]

Hi, all !

oAct = TActiveX():New( oWnd, "Shell.Explorer.2" )

oDk:=oWnd:GetProp("Document")
OLEInvoke(oDk,"Write",buf) // buf - HTML-text variable

This design worked in earlier versions FWH, but in FWH9.3 I got window error ?

[Antonio Linares]

Try it this way:

Code: Select all  Expand view

oAct = TActiveX():New( oWnd, "Shell.Explorer.2" )

oDk:=oWnd:GetProp("Document")
oDk:Write( buf ) // buf - HTML-text variable
 

[Natter]

Thanks, Antonio !
It's work fine