Estou tendo um problema não sei bem se da win_OleCreateObject(). A mesma rotina compilo com harbour e funcionar beleza, quando compilo com a Minigui não funciona.
chega a carregar a win_OleCreateObject() mas quando entra no segundo Try que tem o oShell:Run() não funciona. Pula essa parte do Try entrando no Catch.
Alguem sabe se não funciona com a Minigui, ou estou fazendo algo errado?
Compilado em harbour funciona
#include 'hbcompat.ch'
#include "hbgtinfo.ch"
#include "hbwin.ch"
REQUEST HB_GT_WVT_DEFAULT
Function Main (cPdfFile, lEspera)
LOCAL oShell, lOk:=.T., nStyle
Local cPath := hb_dirbase()
HB_Default(@lEspera,.T.)
TRY
oShell:=win_OleCreateObject( "WScript.Shell" )
CATCH
TRY
oShell:=win_OleCreateObject( "WScript.Shell" )
CATCH
lOk:=.F.
END
END
IF lOk
TRY
nStyle:=0
oShell:Run( cPATH+'sumatra\sumatrapdf.exe -print-to-default '+cPdfFile , nStyle, lEspera)
CATCH
lOk:=.F.
END
oShell:=Nil
ENDIF
RETURN lOk
Compilado na minigui como funcao não funciona, retorna .f.
Function ImpPdf(cFilePdf, lEspera)
LOCAL oShell, lOk:=.T., nStyle
HB_Default(@lEspera,.T.)
TRY
oShell:=win_OleCreateObject( "WScript.Shell" )
CATCH
TRY
oShell:=win_OleCreateObject( "WScript.Shell" )
CATCH
lOk:=.F.
END
END
IF lOk
TRY
nStyle:=0
oShell:Run( cPATH+'sumatra\sumatrapdf.exe -print-to-default '+cPdfFile , nStyle, lEspera)
MsgBox( 'Dentro do Run')
CATCH
lOk:=.F.
END
oShell:=Nil
ENDIF
RETURN lOk
Obrigado
Rubens