syspel Posted September 17, 2019 Report Share Posted 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 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted September 17, 2019 Report Share Posted 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> ) ) Quote Link to comment Share on other sites More sharing options...
kapiaba Posted September 17, 2019 Report Share Posted September 17, 2019 Verifique se a URL está correta. Quote Link to comment Share on other sites More sharing options...
syspel Posted September 18, 2019 Author Report Share Posted 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. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted September 18, 2019 Report Share Posted 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 ) Quote Link to comment Share on other sites More sharing options...
syspel Posted September 19, 2019 Author Report Share Posted 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 Quote Link to comment Share on other sites More sharing options...
syspel Posted September 19, 2019 Author Report Share Posted 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 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted September 20, 2019 Report Share Posted 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. Quote Link to comment Share on other sites More sharing options...
syspel Posted September 20, 2019 Author Report Share Posted September 20, 2019 ok garoto obrigado carlos Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.