HbOleAut

[oliveiros]

Olá pessoal, boa noite! 

Preciso compilar um programa antigo e estou precisando da lib HbOleAut, queria saber se tem alguém que possa compartilhar. A que tenho é de 15.07.2007. Estou tentando abrir um página da internet, e para isso estou usando a seguinte rotina:

Function AbrirURL()
   Local oOle, cURL
   
   cURL := "https://receita.fazenda.df.gov.br.com.br"
      
   oOle:= TOleAuto():NEW( "InternetExplorer.Application" )

   oOle:Visible    := .T.
   oOle:ToolBar    := .F.
   oOle:StatusBar  := .F.
   oOle:MenuBar    := .F.
 
   oOle:Navigate2( cURL ) 
   
   //While oOle:ReadyState <> 4
   //      SysWait( .5 )
   //Enddo
   
   SysRefresh()
Return .t.
*----------------------------------------------------------------------------------------*

O programa compila, porém diz que a propriedade Navigate2, no momento da execução, é "tipo de variante não implementado"

Desde já agradeço.

Se quiser mandar direto, pode mandar para oliveiros.jr@uol.com.br

Att.,

Oliveiros Junior

 

 

 

[kapiaba]

Enquanto eu altero a sua rotina, USE ESTA:

// C:\FWH..\SAMPLES\FBM1994.PRG
	#include "FiveWin.ch"
#include "hbcompat.ch"
	FUNCTION Oliveiros() // GOTOPA()
	   LOCAL cRet
	   MsgRun( "AGUARDE... VERIFICANDO RECEITA FEDERAL DO DF.",                  ;
           "Por Favor, Espere Abertura. Pode Demorar.    ",                  ;
           { || WinExec( PegaSefaz() ), 3 } )
	RETURN NIL
	FUNCTION PegaSefaz()
	   LOCAL OOLE, CDIA, CMES, CANO, CDATA, CHORA
   LOCAL cRet := "", cPagina
   LOCAL cTexto := "Local time in Brasilia"
	   IF ( oOle := Cria_OLE( "InternetExplorer.Application", , .T. ) ) == NIL
	      RETURN( .F. )
	   ENDIF
	   cPagina := "https://receita.fazenda.df.gov.br/"
	   oOle:Visible    := .T.
   oOle:ToolBar    := .F.
   oOle:StatusBar  := .F.
   oOle:MenuBar    := .F.
	   oOle:Navigate( cPagina )
	   WHILE oOle:ReadyState() != 4  // Aguarda página ser carregada, mesmo q não seja visualizado no Navegador (opão Visible := F ou T)
	      SysWait( .5 )
	   ENDDO
	Return( cRet )
	FUNCTION Cria_OLE( cObj_OLE, cMsg, lGetActiveObj )
	   /* Cria objeto Ole */
   LOCAL oObj_OLE := NIL
	   cMsg := 'Erro ao Tentar Carregar Pagina...Tente Novamente'
	   lGetActiveObj := .F.
	   IF lGetActiveObj
	      TRY
	         oObj_OLE := GetActiveObject( cObj_OLE )
	      CATCH
	         TRY
            oObj_OLE := CREATEOBJECT(cObj_OLE)
	         CATCH
	            Alert(cMsg)
	            RETURN oObj_OLE
	         END
	       END
	    ELSE
	       TRY
          oObj_OLE := CREATEOBJECT(cObj_OLE)
	       CATCH
	          Alert( cMsg )
	          RETURN oObj_OLE
	       END
	    ENDIF
	RETURN( oObj_OLE )
	// FIM

Regards, saludos.
 

[kapiaba]

Pronto. Veja como é simples:

// C:\FWH..\SAMPLES\OLIVEIRO.PRG
	#include "FiveWin.ch"
#include "hbcompat.ch"
	FUNCTION Main()
	   LOCAL cRet
	   MsgRun( "AGUARDE... VERIFICANDO RECEITA FEDERAL DO DF.",                  ;
           "Por Favor, Espere Abertura. Pode Demorar.    ",                  ;
           { || WinExec( AbrirURL() ), 3 } )
	RETURN NIL
	Function AbrirURL()
	   Local oOle, cURL
	   // cURL := "https://receita.fazenda.df.gov.br.com.br" //ERRADO
   // //https://receita.fazenda.df.gov.br/
   cURL := "https://receita.fazenda.df.gov.br/"
      
   oOle:= TOleAuto():NEW( "InternetExplorer.Application" )
	   oOle:Visible    := .T.
   oOle:ToolBar    := .F.
   oOle:StatusBar  := .F.
   oOle:MenuBar    := .F.
   oOle:FullScreen := .F.
	   oOle:Invoke( "Navigate", cURL )
	   // OU:
   // oOle:Navigate( cURL )
	   // OU:
   // oOle:Navigate2( cURL )
   
   While oOle:ReadyState <> 4
	      SysRefresh()
	      SysWait( .5 )
	   Enddo
	RETURN( .T. )
	// FIN / END

Regards, saludos.

Edited June 6, 2023 by kapiaba

[oliveiros]

Olá Kapiaba, boa tarde!

Em primeiro lugar, obrigado pela resposta. Coloquei seu exemplo para compilar na versão "FiveWin for Harbour 2.4 - July 2003" e agora ele não passa o URL.

Abre o IE e no browser mostra "http:///". 

Att.,

Oliveiros Junior.

 

 

 

 

[kapiaba]

2003? Esse é o FIVEWIN que você usa atualmente? ai meu amigo, não tem como te ajudar, eu não tenho esse FiveWin e muito menso o HARBOUR, meu PRIMEIRO FIVEWIN, foi a versão 2.7(2007) que ganhei do master Gilmer.

 

Regards, saludos.

[oliveiros]

Oi, não João, atualmente uso o 20.07. Esse é um sistema que está funcionando bem só preciso implementar essa rotina.

 

[kapiaba]

ZIP esse fivewin, o Harbour/xHarbour e o BCC dessa versão, hospede no:

	https://mega.nz/
	

E me envie os links para download que eu baixo e testo aqui. E você pode usar a Versão 6.12 do Fivewin que é grátis para compilar no lugar dessa "relíquia" ai. 

Regards, saludos.

[oliveiros]

Olá Kapiaba, boa noite!

Consegui usar a HBOle. O problema é que ela tinha que vir no inicio do bat de compilação.

Obrigado pela ajuda

Oliveiros Junior