Hi All,
The following code always produce the following runtime error in
GetActiveObject().
*---
Harbour Exception - C:\TRIAL\trial305.exe
Terminated at: 2008.06.16 11:03:11
Called from OLESETPROPERTY(0)
Called from TOLEAUTO:SET(153)
Called from TOLEAUTO:_VISIBLE(208)
Called from MAIN(5)
------------------------------------------------------------------------
This is the prg
*---
PROCEDURE main
local oOLE
BEGIN SEQUENCE WITH { |oErr| Break( oErr )}
oOLE := GetActiveObject( "InternetExplorer.Application" )
RECOVER
BEGIN SEQUENCE WITH { |oErr| Break( oErr )}
oOLE := CreateObject( "InternetExplorer.Application" )
RECOVER
Alert( "Error: IExplorer A not available. [" + Ole2TxtError()+ "]" )
END SEQUENCE
END SEQUENCE
oOLE:Visible := .T.
oOLE:Navigate("http://www.harbour-project.org";)
DO WHILE oOLE:ReadyState != 4
HB_IdleSleep(1)
ENDDO
RETURN
*---
Cheers,
Ed
--
View this message in context:
http://www.nabble.com/GetActiveObject%28%29-problem-tp17856438p17856438.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.
_______________________________________________
Harbour mailing list
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour
