teste com HBHPDF

[ssflavio]

Sou novato no Harbour e estou fazendo uns testes para gerar um arquivo pdf a partir do console.
tudo funcionou perfeitamente, só não consegui mostrar o pdf gerado no navegador.
NAO ACONTECE NADA!!!
como eu não sei colocar o codigo fonte naquela telinha azul, colei a função main(), onde fiz as alterações, o resto esta intacto (harupdf.prg)

Function Main( cFileToSave )

local cCaminhoePDF, oWebBrowser

set console on
SET COLOR TO 'W+/N'
*SETMODE( 44, 112 )
CLS

if empty( cFileToSave )
cFileToSave := 'myharu.pdf'
endif

if DesignHaruPDF( cFileToSave )
hb_alert( 'PDF File <'+cFileToSave+'> is Created!' )

else
hb_alert( 'Some problems in creating the PDF!' )

endif

cCaminhoePDF := "file://K:/hb32/contrib/hbhpdf/tests/myharu.pdf"
cCaminhoePDF := "http://www.google.com.br/"
oWebBrowser := CreateObject("InternetExplorer.Application")
*oWebBrowser := win_oleCreateObject("InternetExplorer.Application")
oWebBrowser:Visible := .F. // Apresenta o Browser
oWebBrowser:ToolBar := .F. // Desativa a barra de ferramentas
oWebBrowser:StatusBar := .F. // Desativa a barra de status
oWebBrowser:MenuBar := .F. // desativa a barra de menu

oWebBrowser:Navigate( cCaminhoePDF ) // Abre o Navegador e apresenta o arquivo PDF.

WHILE oWebBrowser:Busy .OR. oWebBrowser:ReadyState() != 4
inkey(.5)
END
inkey(.2)

Return nil

[ssflavio]

utilizei o comando HB_RUN e funcionou.

Código: Selecionar todos

Function Main( cFileToSave )

local cCaminhoePDF, oWebBrowser

set console on
SET COLOR TO 'W+/N'
*SETMODE( 44, 112 )
CLS

if empty( cFileToSave )
	cFileToSave := 'myharu.pdf'
endif

if DesignHaruPDF( cFileToSave )
	hb_alert( 'PDF File <'+cFileToSave+'> is Created!' )
	
	else
	hb_alert( 'Some problems in creating the PDF!' )
	
endif

hb_run('start myharu.pdf')

Return nil