topic-40684

Posts: 866

Joined: Tue Oct 16, 2007 08:57 AM

Win10 IE problem?
Posted: Wed Jul 28, 2021 11:07 AM

Hi,

I use this codes in Win10 IE and appear error message below:

oIE:Document:GetElementsByClassName("title")

DOCUMENT: No exported method

in Windows7 IE no problem.

Anyone can help it

Best Regards,

Richard

Harbour 3.2.0dev (r2503251254) => Borland C++ v7.7 32bit

MySQL v8.0

Harbour 3.2.0dev (r2503251254) => Borland C++ v7.7 64bit

Otto

Posts: 6984

Joined: Fri Oct 07, 2005 07:07 PM

Re: Win10 IE problem?
Posted: Wed Jul 28, 2021 12:13 PM

Richard,
Is Internet Explorer installed?
Are the security settings the same?
Best regards,
Otto

Natter

Posts: 1392

Joined: Mon May 14, 2007 09:49 AM

Re: Win10 IE problem?
Posted: Wed Jul 28, 2021 03:56 PM

oDk:=oWnd:aControls[nn]:GetProp("Document")

It works perfectly with W10

richard-service

Posts: 866

Joined: Tue Oct 16, 2007 08:57 AM

Re: Win10 IE problem?
Posted: Thu Jul 29, 2021 06:41 AM

Otto wrote:Richard,
Is Internet Explorer installed?
Are the security settings the same?
Best regards,
Otto

Yes, I installed IE 11 and setting.

Best Regards,

Richard

Harbour 3.2.0dev (r2503251254) => Borland C++ v7.7 32bit

MySQL v8.0

Harbour 3.2.0dev (r2503251254) => Borland C++ v7.7 64bit

richard-service

Posts: 866

Joined: Tue Oct 16, 2007 08:57 AM

Re: Win10 IE problem?
Posted: Thu Jul 29, 2021 09:27 AM

Hi
Call IE function code below:

Code (fw): Select all Collapse

DEFINE WINDOW oWnd FROM 0,0 TO 0,0 TITLE "特定地區旅遊及接觸史查詢"

            oIE:=CreateObject("InternetExplorer.Application")             
             
            IF oIE<>Nil
                oIE:Visible :=.T.
                oIE:TheaterMode:=.T.
                oIE:AddressBar:=.T.
                oIE:ToolBar   :=.T.
                oIE:FullScreen=.F.
                oIE:Silent    =.T.
                oIE:Navigate2(cHOSTIP)
                Do While oIE:Busy
                   SysWait(1)
                   SysRefresh()
                   Loop
                Enddo
                hWnd:=oIE:hWnd
                ShowWindow(hWnd, SW_MAXIMIZE )
                BringWindowToTop(hWnd)
             ENDIF
      ACTIVATE WINDOW oWnd ICONIZED ON INIT BuildTimer()

Best Regards,

Richard

Harbour 3.2.0dev (r2503251254) => Borland C++ v7.7 32bit

MySQL v8.0

Harbour 3.2.0dev (r2503251254) => Borland C++ v7.7 64bit

Otto

Posts: 6984

Joined: Fri Oct 07, 2005 07:07 PM

Re: Win10 IE problem?
Posted: Thu Jul 29, 2021 10:33 AM

Richard,
I am not certain, but is InternetExplorer the same as Shell.Explorer?

I use it like this:

oActiveX = TActiveX():New( oDlg, "Shell.Explorer.2",10,10,400,200 )

Best regards,
Otto

richard-service

Posts: 866

Joined: Tue Oct 16, 2007 08:57 AM

Re: Win10 IE problem?
Posted: Fri Jul 30, 2021 02:35 AM

Otto wrote:Richard,
I am not certain, but is InternetExplorer the same as Shell.Explorer?

I use it like this:

oActiveX = TActiveX():New( oDlg, "Shell.Explorer.2",10,10,400,200 )

Best regards,
Otto

Hi, Otto,

Thanks for your help. But it's not work and appear message below:

DOCUMENT: No exported method

Best Regards,

Richard

Harbour 3.2.0dev (r2503251254) => Borland C++ v7.7 32bit

MySQL v8.0

Harbour 3.2.0dev (r2503251254) => Borland C++ v7.7 64bit

Otto

Posts: 6984

Joined: Fri Oct 07, 2005 07:07 PM

Re: Win10 IE problem?
Posted: Fri Jul 30, 2021 10:06 AM

Hello Richard,

I tested with the attached code on my brand-new Surface.
I have to check allow and then all is working.

Interesting:
I also tested with
oIE := TActiveX():New( NIL, "Shell.Explorer.2",10,10,600,400 )

In this case, it seems that scripts are blocked. I see the web page but CSS and JS do not work.

Code (fw): Select all Collapse

#include "FiveWin.ch"

function main()
local oDlg
local   oIE
local cHOSTIP := "https://www.modharbour.club"
 
  
  DEFINE WINDOW oWnd FROM 0,0 TO 0,0 TITLE "????????????"

  //     oIE := TActiveX():New( NIL, "Shell.Explorer.2",10,10,600,400 ) 
          
          
     oIE:=CreateObject("InternetExplorer.Application")              // OK
             
            IF oIE<>Nil
                oIE:Visible :=.T.
                oIE:TheaterMode:=.T.
                oIE:AddressBar:=.T.
                oIE:ToolBar   :=.T.
                oIE:FullScreen=.F.
                oIE:Silent    =.T.
                oIE:Navigate2(cHOSTIP)
                Do While oIE:Busy
                   SysWait(1)
                   SysRefresh()
                   Loop
                Enddo
                hWnd:=oIE:hWnd
               // ShowWindow(hWnd, SW_MAXIMIZE )
                BringWindowToTop(hWnd)
             ENDIF
      ACTIVATE WINDOW oWnd ICONIZED ON INIT msginfo("timer")
return(.T.)

Otto

Posts: 6984

Joined: Fri Oct 07, 2005 07:07 PM

Re: Win10 IE problem?
Posted: Fri Jul 30, 2021 10:17 AM

...

CreateObject function for “Shell.Application” vs “InternetExplorer.Application”

https://stackoverflow.com/questions/305 ... pplication

richard-service

Posts: 866

Joined: Tue Oct 16, 2007 08:57 AM

Re: Win10 IE problem?
Posted: Fri Jul 30, 2021 11:51 AM

Otto wrote:...

CreateObject function for “Shell.Application” vs “InternetExplorer.Application”
https://stackoverflow.com/questions/305 ... pplication

Hi, Otto

I will check web data for it.

Best Regards,

Richard

Harbour 3.2.0dev (r2503251254) => Borland C++ v7.7 32bit

MySQL v8.0

Harbour 3.2.0dev (r2503251254) => Borland C++ v7.7 64bit

FiveTech Support Forums

Continue the discussion