erro internet explore

syspel · September 17, 2019

ola pessoal bom dia estou com esse erro no internet explorer 11.0

win 7 utimate

obrigado carlos

Path and name: C:\Rh\FPM.EXE (32 bits)

Size: ********* bytes

Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20180715)

FiveWin version: FWH 18.05

C compiler version: Borland/Embarcadero C++ 7.3 (32-bit)

Windows version: 6.1, Build 7601 Service Pack 1

Time from start: 0 hours 0 mins 41 secs

Error occurred at: 17/09/2019, 10:59:04

Error description: Error TOleAuto/65535 : TOLEAUTO:NEW

Args:

[ 1] = C InternetExplorer.Application

[ 2] = U

[ 3] = U

Stack Calls

===========

Called from: => THROW( 0 )

Called from: source\rtl\win32ole.prg => TOLEAUTO:NEW( 0 )

Called from: source\rtl\win32ole.prg => CREATEOBJECT( 0 )

Called from: xbrowgrd.prg => ERZE( 496 )

Called from: xbrowgrd.prg => (b)ESOCMAIN( 77 )

Called from: .\source\classes\BUTTON.PRG => TBUTTON:CLICK( 179 )

Called from: .\source\classes\CONTROL.PRG => TBUTTON:HANDLEEVENT( 1686 )

Called from: window.prg => _FWH( 3368 )

Called from: => SENDMESSAGE( 0 )

Called from: dialog.prg => TDIALOG:COMMAND( 426 )

Called from: => TWINDOW:HANDLEEVENT( 0 )

Called from: dialog.prg => TDIALOG:HANDLEEVENT( 929 )

Called from: => DIALOGBOXINDIRECT( 0 )

Called from: dialog.prg => TDIALOG:ACTIVATE( 298 )

Called from: xbrowgrd.prg => ESOCMAIN( 82 )

Called from: esocial.prg => (b)ESOCIALMENU( 82 )

Called from: btnbmp.prg => TBTNBMP:CLICK( 464 )

Called from: btnbmp.prg => TBTNBMP:LBUTTONUP( 660 )

Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1722 )

Called from: btnbmp.prg => TBTNBMP:HANDLEEVENT( 1417 )

Called from: window.prg => _FWH( 3368 )

Called from: => WINRUN( 0 )

Called from: window.prg => TWINDOW:ACTIVATE( 1043 )

Called from: fpmenu.prg => FPM02( 230 )

System

======

CPU type: AMD Athlon(tm) II X2 250 Processor 3013 Mhz

Hardware memory: 3071 megs

Free System resources: 90 %

GDI resources: 90 %

User resources: 90 %

Windows total applications running: 11

1 ,

2 , C:\Rh\FPM.EXE

3 , C:\Windows\WinSxS\x86_microsoft.windows.common-controls_6595b64144ccf1df_6.0.7601.17514_none_41e697

4 , C:\Windows\system32\SHLWAPI.dll

5 , C:\Windows\system32\explorerframe.dll

6 , C:\Windows\system32\ieframe.DLL

7 DDE Server Window, C:\Windows\system32\OLE32.DLL

8 GDI+ Window, C:\Windows\WinSxS\x86_microsoft.windows.gdiplus_6595b64144ccf1df_1.1.7601.17514_none_72d18a4386696c

9 MCI command handling window, C:\Windows\system32\WINMM.DLL

10 MS_WebcheckMonitor, C:\Windows\system32\SHDOCVW.dll

11 Program Manager, C:\Windows\system32\SHELL32.dll

Variables in use

================

Procedure Type Value

==========================

THROW

Param 1: O Class: ERROR

Local 1: U

Local 2: U

TOLEAUTO:NEW

Param 1: C "InternetExplorer.Application"

Param 2: U

Param 3: U

Local 1: O Class: TOLEAUTO

Local 2: O Class: ERROR

Local 3: C "C"

CREATEOBJECT

Param 1: C "InternetExplorer.Application"

Local 1: U

ERZE

Local 1: A Len: 2

Local 2: C "C:\esocialsyspel\54026992000821\retorno\ID154026992000821201908281427320002039evtTabLotacao-S1020-ret-esocial-consloteevt.xml"

(b)ESOCMAIN

Param 1: O Class: TBUTTON

TBUTTON:CLICK

Local 1: O Class: TBUTTON

TBUTTON:HANDLEEVENT

Param 1: N 2048

Param 2: N 0

Param 3: N 0

Local 1: O Class: TBUTTON

Local 2: U

_FWH

Param 1: N 0

Param 2: N 2048

Param 3: N 0

Param 4: N 0

Param 5: N 23

Local 1: O Class: TBUTTON

SENDMESSAGE

Param 1: N 590336

Param 2: N 2048

Param 3: N 0

Param 4: N 0

TDIALOG:COMMAND

Param 1: N 217

Param 2: N 590336

Local 1: O Class: TDIALOG

Local 2: O Class: TBUTTON

Local 3: N 0

Local 4: N 217

Local 5: N 590336

Local 6: U

TWINDOW:HANDLEEVENT

Param 1: N 273

Param 2: N 217

Param 3: N 590336

TDIALOG:HANDLEEVENT

Param 1: N 273

Param 2: N 217

Param 3: N 590336

Local 1: O Class: TDIALOG

DIALOGBOXINDIRECT

Param 1: N 4194304

     Param   2:    C    "€ È€     3 ) YÏ     B r o w s e     ±P      H Ó T W B R O W S E         P    « $
Ô B U T T O N   E x c l u i   X m l       P    < « 5
Õ B U T T O N   V e r i f i c a r   P r o t o c o l o         P    x « 9
Ö B U T T O N   E n v i o C o n s / P r o t o c o l o         P    º « $
× B U T T O N   R e l a t o r i o         P    ä « $
Ø B U T T O N   L i m p a   T u d o       P
«
Ù B U T T O N   C h e c k         P    2«
Ú B U T T O N   C a n c e l a       "

Param 3: N 721514

Param 4: O Class: TDIALOG

Local 1: N 1

Local 2: N 1

Local 3: N 1

Local 4: N 1

Local 5: N 1

Local 6: N 1

Local 7: N 1

Local 8: U

Local 9: U

Local 10: U

Local 11: U

Local 12: U

Local 13: U

Local 14: U

Local 15: U

Local 16: U

Local 17: U

Local 18: U

Local 19: U

Local 20: U

Local 21: U

Local 22: U

Local 23: N 1

Local 24: U

Local 25: U

Local 26: U

Local 27: U

Local 28: U

Local 29: U

Local 30: U

Local 31: U

Local 32: U

Local 33: U

Local 34: U

Local 35: U

Local 36: U

Local 37: U

Local 38: U

Local 39: U

Local 40: U

Local 41: U

Local 42: U

Local 43: U

TDIALOG:ACTIVATE

Param 1: U

Param 2: U

Param 3: U

Param 4: L .F.

Param 5: U

Param 6: L .T.

Param 7: U

Param 8: U

Param 9: U

Param 10: U

Param 11: U

Local 1: O Class: TDIALOG

Local 2: N 721514

Local 3: U

Local 4: U

Local 5: U

Local 6: O Class: TDIALOG

ESOCMAIN

Local 1: O Class: TFONT

Local 2: U

(b)ESOCIALMENU

Param 1: O Class: TBTNBMP

TBTNBMP:CLICK

Local 1: O Class: TBTNBMP

TBTNBMP:LBUTTONUP

Param 1: N 31

Param 2: N 29

Param 3: O Class: TBTNBMP

Local 1: U

Local 2: L .T.

TCONTROL:HANDLEEVENT

Param 1: N 514

Param 2: N 0

Param 3: N 2031645

Local 1: O Class: TBTNBMP

Local 2: U

TBTNBMP:HANDLEEVENT

Param 1: N 514

Param 2: N 0

Param 3: N 2031645

Local 1: O Class: TBTNBMP

_FWH

Param 1: N 2031645

Param 2: N 514

Param 3: N 0

Param 4: N 2031645

Param 5: N 78

Local 1: O Class: TBTNBMP

WINRUN

Param 1: N 1311356

TWINDOW:ACTIVATE

Param 1: C "MAXIMIZED"

Param 2: U

Param 3: U

Param 4: U

Param 5: U

Param 6: U

Param 7: U

Param 8: B {|| ... }

Param 9: U

Param 10: U

Param 11: U

Param 12: U

Param 13: U

Param 14: U

Param 15: U

Param 16: U

Param 17: U

Param 18: U

Param 19: U

Param 20: L .F.

Local 1: O Class: TWINDOW

Local 2: U

Local 3: U

FPM02

Local 1: U

Local 2: O Class: TICON

Local 3: U

Local 4: U

Local 5: O Class: TCURSOR

Local 6: U

Local 7: U

Local 8: O Class: TBRUSH

Linked RDDs

===========

DBF

DBFFPT

DBFBLOB

DBFCDX

DBFNTX

DataBases in use

================

1: ETMP RddName: DBFCDX

==============================

RecNo RecCount BOF EOF

1 0 .T. .T.

Indexes in use TagName

Relations in use

2: => PROTO017 RddName: DBFCDX

==============================

RecNo RecCount BOF EOF

1 98 .F. .F.

Indexes in use TagName

=> empresa+psocial+mesano+strzero(flegPROTO017

Relations in use

Classes in use:

===============

1 ERROR

2 HASHENTRY

3 HBCLASS

4 HBOBJECT

5 TBRUSH

6 TCURSOR

7 TWINDOW

8 TCONTROL

9 TICON

10 TFONT

11 TSKINBUTTON

12 TDIALOG

13 TBUTTON

14 TREG32

15 TMENU

16 TMENUITEM

17 TBAR

18 TRECT

19 TBTNBMP

20 TBITMAP

21 TIMAGE

22 TMSGBAR

23 TMSGITEM

24 TTIMER

25 TSTRUCT

26 TSAY

27 TGET

28 GET

29 TCLIPGET

30 TWBROWSE

31 TSCROLLBAR

32 TCOMBOBOX

33 TCHECKBOX

34 TOLEAUTO

Memory Analysis

===============

3172 Static variables

Dynamic memory consume:

Actual Value: 0 bytes

Highest Value: 0 bytes

kapiaba · September 17, 2019

Ponha isso no inicio do módulo, para vermos se retorna um erro mais amigável.
Ou, poste o código para testes dos demais membros. Pegue o hábito de postar o fonte.

#include "error.ch"
#include "fileio.ch"
	#define CRLF ( Chr( 13 ) + Chr( 10 ) )
#xtranslate Throw( <oErr> ) => ( Eval( ErrorBlock(), <oErr> ), Break( <oErr> ) )

kapiaba · September 17, 2019

Verifique se a URL está correta.

syspel · September 18, 2019

Eu fiz a alteração proposta, porém, continua dando erro:

function erze()
Local oOleDoc:=Array(2)
Local cFile:=""
s_ok:=""
oOle:=""
busy:=""
cFile:=cGetFile("*.xml", "Seleciona o Arquivo" )

if empty(cfile)
return .f.
endif

//if ! empty(cFile)
// waitRun("NotePad " + cfile)
//endif

oOle:=CreateObject("InternetExplorer.Application")
oOle:Visible := .T. // Apresenta o Browser
oOle:ToolBar := .F. // Desativa a barra de ferramentas
oOle:StatusBar:= .f. // Desativa a barra de status
oOle:MenuBar := .f. // desativa a barra de menu
oOle:Navigate2(cfile)

WHILE oOle:Busy
syswait(.5)
END

CursorArrow()
SysRefresh()

return .t.

kapiaba · September 18, 2019

Teste agora, e me diga de quem era o ERRO.

#Include "FiveWin.ch"
	FUNCTION Main()
	   LOCAL oOLE, cHTML, cTEXT, hWnd, cData, lIeAtivo := .F.
   LOCAL oOleDoc := Array( 2 )
   LOCAL cFile   := ""
   LOCAL cUrl:="https://www.receita.fazenda.gov.br/Aplicacoes/SSL/ATCTA/cpf/ImpressaoComprovante/ConsultaImpressao.asp"
	   IF .NOT. IsInternet()
	      MsgStop( OemToAnsi( "ATEN€ÇO USUµRIO: NÇO Hµ CONEXÇO COM A INTERNET " )+CRLF+;
               OemToAnsi( "SAIA DO PROGRAMA E VERIFIQUE SUAS CONEXåES     " )+CRLF+;
               OemToAnsi( "DE INTERNET. ENQUANTO PERMANECER ESTA MENSAGEM " )+CRLF+;
               OemToAnsi( "NÇO TENTE ENVIAR NADA VIA INTERNET.            " )+CRLF+;
               OemtoAnsi( "FALHA NO MODEM DE INTERNET, NÇO ESTµ ATIVO.    " )+CRLF+;
               OemToAnsi( "VERIFIQUE SUAS CONEXåES DE INTERNET.      ERRO!" ),     ;
               OemToAnsi( "ALERTA MµXIMO, COMPUTADOR SEM INTERNET ATIVA.  " ) )
	      RETURN( .F. )
	   ENDIF
	   cFile := cGetFile( "*.Xml", "Seleciona o Arquivo *.XML" )
	   IF EMPTY( cfile )
	      RETURN( .F. )
	   ENDIF
	   TRY
	      oOLE := GetActiveObject( "InternetExplorer.Application" )
	      lIeAtivo := .T.
	   CATCH  // Tenta de novo
	      TRY
         oOLE := CreateObject( "InternetExplorer.Application" )
	         lIeAtivo := .T.
	      CATCH
	         Alert( "ERROR! IE not avialable." )
	         lIeAtivo := .F.
	         RETURN( .F. )
	      END
	   END
	   // Internet Explorer abriu.
   oOle:Visible   := .T.
   oOle:ToolBar   := .F.
   oOle:StatusBar := .F.
   oOle:MenuBar   := .F.
	   // oOle:Navigate( cUrl )  // receita federal
   oOle:Navigate2( cfile )
	   hWnd := oOle:hWnd
   ShowWindow(hWnd, 1 )
   BringWindowToTop(hWnd)
	   oOle := Nil
	RETURN( lIeAtivo )

syspel · September 19, 2019

#Include "FiveWin.ch"
	FUNCTION Main()
	   LOCAL oOLE, cHTML, cTEXT, hWnd, cData, lIeAtivo := .F.
   LOCAL oOleDoc := Array( 2 )
   LOCAL cFile   := ""
   LOCAL cUrl:="https://www.receita.fazenda.gov.br/Aplicacoes/SSL/ATCTA/cpf/ImpressaoComprovante/ConsultaImpressao.asp"
	   IF .NOT. IsInternet()
	      MsgStop( OemToAnsi( "ATEN€ÇO USUµRIO: NÇO Hµ CONEXÇO COM A INTERNET " )+CRLF+;
               OemToAnsi( "SAIA DO PROGRAMA E VERIFIQUE SUAS CONEXåES     " )+CRLF+;
               OemToAnsi( "DE INTERNET. ENQUANTO PERMANECER ESTA MENSAGEM " )+CRLF+;
               OemToAnsi( "NÇO TENTE ENVIAR NADA VIA INTERNET.            " )+CRLF+;
               OemtoAnsi( "FALHA NO MODEM DE INTERNET, NÇO ESTµ ATIVO.    " )+CRLF+;
               OemToAnsi( "VERIFIQUE SUAS CONEXåES DE INTERNET.      ERRO!" ),     ;
               OemToAnsi( "ALERTA MµXIMO, COMPUTADOR SEM INTERNET ATIVA.  " ) )
	      RETURN( .F. )
	   ENDIF
	   cFile := cGetFile( "*.Xml", "Seleciona o Arquivo *.XML" )
	   IF EMPTY( cfile )
	      RETURN( .F. )
	   ENDIF
	   TRY
	      oOLE := GetActiveObject( "InternetExplorer.Application" )
	      lIeAtivo := .T.
	   CATCH  // Tenta de novo
	      TRY
         oOLE := CreateObject( "InternetExplorer.Application" )
	         lIeAtivo := .T.
	      CATCH
	         Alert( "ERROR! IE not avialable." )
	         lIeAtivo := .F.
	         RETURN( .F. )
	      END
	   END
	   // Internet Explorer abriu.
   oOle:Visible   := .T.
   oOle:ToolBar   := .F.
   oOle:StatusBar := .F.
   oOle:MenuBar   := .F.
	   // oOle:Navigate( cUrl )  // receita federal
   oOle:Navigate2( cfile )
	   hWnd := oOle:hWnd
   ShowWindow(hWnd, 1 )
   BringWindowToTop(hWnd)
	   oOle := Nil
	RETURN( lIeAtivo )

obrigado garoto

Curtir

Citar

Responder

ola amigo que osso

vc sabe como abrir no chomo

nao deu certo

ele abre 6 vezes depois da o erro

Moderação

IR PARA A LISTA DE TÓPICOSProgramação

syspel · September 19, 2019

Application
===========
Path and name: C:\Rh\FPM.EXE (32 bits)
Size: ********* bytes
Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20180715)
FiveWin version: FWH 18.05
C compiler version: Borland/Embarcadero C++ 7.3 (32-bit)
Windows version: 6.1, Build 7601 Service Pack 1

Time from start: 0 hours 2 mins 9 secs
Error occurred at: 19/09/2019, 09:40:05
Error description: Error InternetExplorer.Application/0 S_OK: HWND
Args:

Stack Calls
===========
Called from: => TOLEAUTO:HWND( 0 )
Called from: xbrowgrd.prg => ERZE( 528 )
Called from: xbrowgrd.prg => (b)ESOCMAIN( 82 )
Called from: .\source\internal\SKINS.PRG => FWSKINBTNLBUTTONDOWN( 237 )
Called from: => DIALOGBOXINDIRECT( 0 )
Called from: dialog.prg => TDIALOG:ACTIVATE( 298 )
Called from: xbrowgrd.prg => ESOCMAIN( 87 )
Called from: esocial.prg => (b)ESOCIALMENU( 82 )
Called from: btnbmp.prg => TBTNBMP:CLICK( 464 )
Called from: btnbmp.prg => TBTNBMP:LBUTTONUP( 660 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1722 )
Called from: btnbmp.prg => TBTNBMP:HANDLEEVENT( 1417 )
Called from: window.prg => _FWH( 3368 )
Called from: => WINRUN( 0 )
Called from: window.prg => TWINDOW:ACTIVATE( 1043 )
Called from: fpmenu.prg => FPM02( 230 )

System
======
CPU type: AMD Athlon(tm) II X2 250 Processor 3013 Mhz
Hardware memory: 3071 megs

Free System resources: 90 %
GDI resources: 90 %
User resources: 90 %

Windows total applications running: 11
1 ,
2 , C:\Rh\FPM.EXE
3 , C:\Windows\WinSxS\x86_microsoft.windows.common-controls_6595b64144ccf1df_6.0.7601.17514_none_41e697
4 , C:\Windows\system32\SHLWAPI.dll
5 , C:\Windows\system32\explorerframe.dll
6 DDE Server Window, C:\Windows\system32\OLE32.DLL
7 Exibir Downloads - Internet Explorer, C:\Windows\system32\ieframe.DLL
8 GDI+ Window, C:\Windows\WinSxS\x86_microsoft.windows.gdiplus_6595b64144ccf1df_1.1.7601.17514_none_72d18a4386696c
9 MCI command handling window, C:\Windows\system32\WINMM.DLL
10 MS_WebcheckMonitor, C:\Windows\system32\SHDOCVW.dll
11 Program Manager, C:\Windows\system32\SHELL32.dll

Variables in use
================
Procedure Type Value
==========================
TOLEAUTO:HWND
Local 1: U
Local 2: C "InternetExplorer.Application"
ERZE
Local 1: O Class: TOLEAUTO
Local 2: U
Local 3: U
Local 4: U
Local 5: U
Local 6: L .T.
Local 7: A Len: 2
Local 8: C "C:\esocialsyspel\54026992000821\retorno\ID154026992000821201909131704100200361evtAdmissao-S2200-ret-esocial-loteevt.err"
Local 9: C "https://www.receita.fazenda.gov.br/Aplicacoes/SSL/ATCTA/cpf/ImpressaoComprovante/ConsultaImpressao.asp"
Local 10: U
(b)ESOCMAIN
Param 1: O Class: TBUTTON
FWSKINBTNLBUTTONDOWN
Param 1: N 1573490

kapiaba · September 20, 2019

Preste atenção:

Error description: Error InternetExplorer.Application/0 S_OK: HWND

Veja que não tem isso na minha versão. Faça igual ao que postei.

Normal: Pode ser a versão do seu Fivewin for xHarbour.

syspel · September 20, 2019

ok garoto obrigado

carlos

Sign In

erro internet explore

Recommended Posts

syspel

Link to comment

Share on other sites

kapiaba

Link to comment

Share on other sites

kapiaba

Link to comment

Share on other sites

syspel

Link to comment

Share on other sites

kapiaba

Link to comment

Share on other sites

syspel

Link to comment

Share on other sites

syspel

Link to comment

Share on other sites

kapiaba

Link to comment

Share on other sites

syspel

Link to comment

Share on other sites

Join the conversation

Browse

Activity