Theotokos Posted January 6, 2012 Author Report Share Posted January 6, 2012 citação: citação:desabilite a opcao dentro do seu exemplo: * oWord:TitleBar(.f.) pois ele tira o titulo do topo... esse objeto: oWord esta definido ,, tem que registrar tambem o officeviewer.ocx.... id=quote>id=quote>o objeto oWord esta declarada como PRIVATE e mesmo tirando o oWord:TitleBar(.f.) continua o erro só que na proxima chamada oWord:ToolBar() id=quote>id=quote> Quote Link to comment Share on other sites More sharing options...
LUIS1361303120 Posted January 7, 2012 Report Share Posted January 7, 2012 eu nao sei o ocorrido,, vc ja tentou compilar ele separado e rodar ele separado do seu sistema... criando .bat separado.. vc inserire so os 2 .prgs... eu uso aqui e nao apresenta esse erro... Quote Link to comment Share on other sites More sharing options...
Theotokos Posted January 7, 2012 Author Report Share Posted January 7, 2012 vou tentar compilar separado para ver então... obgdo... desculpa a amolar... citação:eu nao sei o ocorrido,, vc ja tentou compilar ele separado e rodar ele separado do seu sistema... criando .bat separado.. vc inserire so os 2 .prgs... eu uso aqui e nao apresenta esse erro... id=quote>id=quote> Quote Link to comment Share on other sites More sharing options...
Theotokos Posted January 7, 2012 Author Report Share Posted January 7, 2012 mesmo compilando separado, da o mesmo erro, esta estranho.. cria o objeto mas as funções do objeto nao.. o que sera que é? esta classe que vc passou é o que vc usa ou vou adpatada? pode haver problema com a versão do Fivewin e/ou xharbour... Desculpa a insistir mas é que realmente gostei da ideia e me vai ser util... Conto Contigo... Fk com Deus por hora muito obgdo... Quote Link to comment Share on other sites More sharing options...
Theotokos Posted January 8, 2012 Author Report Share Posted January 8, 2012 citação:mesmo compilando separado, da o mesmo erro, esta estranho.. cria o objeto mas as funções do objeto nao.. o que sera que é? esta classe que vc passou é o que vc usa ou vou adpatada? pode haver problema com a versão do Fivewin e/ou xharbour... Desculpa a insistir mas é que realmente gostei da ideia e me vai ser util... Conto Contigo... Fk com Deus por hora muito obgdo... . id=quote>id=quote> Quote Link to comment Share on other sites More sharing options...
Theotokos Posted January 11, 2012 Author Report Share Posted January 11, 2012 Como faço para saber os paramentros para usar com o activex oActiveX:Do( "Navigate", cDoc ) Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted January 12, 2012 Report Share Posted January 12, 2012 Putz!!.. desculpe esqueci do seu DEMO.EXE Vou fazer agorinha mesmo e te mandar.. Abraços.. Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc Editado por - ico on 12/01/2012 10:56:48 Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted January 12, 2012 Report Share Posted January 12, 2012 Foi um DEMO.EXE/PRG para "rone@rl-informatica.net " Exeute o demo.exe e diga o que aconteceu.. Abraços.. Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc Quote Link to comment Share on other sites More sharing options...
Theotokos Posted January 13, 2012 Author Report Share Posted January 13, 2012 Luiz Arruda! Executei o teu demo, mas acontece a mesma coisa aqui, abre o programa do word fora da dialog... Eu uso windows7 e office 2010! Quote Link to comment Share on other sites More sharing options...
kapiaba Posted June 2, 2017 Report Share Posted June 2, 2017 JmSilva, neste teu exemplo, se eu quiser invocar o BROffice, como eu faço? Obg. abs. /* ** autor: JOSÉ MARIA DA SILVA (JMSILVA) ** xHarbour 1.2.1 com FIVEWIN ** DATA: 29/12/2011 ** CIDADE: CARAGUATATUBA/SP ** OBS: PRECISA TER BROFFICE INSTALADO */ #INCLUDE "FIVEWIN.CH" #include "FGet.ch" Function Main () Local oService, oDesktop, oDocument, oTexto Local oDlg, oGet, cVarTxt, cFile, aProp:={} cFile := cGetFile( "Arquivo (doc,odt)|*.doc;*.odt|",; "Selecione o Arquivo (Doc/Odt)", 4 ) IF EMPTY(cFILE) ; RETURN nil ; ENDIF cFile := "file:///"+StrTran(cFile,"\","/") TRY oService := TOleAuto():New("com.sun.star.ServiceManager") CATCH MSGSTOP("Desculpe, precisa ter o BrOffice instalado.","Alerta") RETURN NIL END oDesktop := oService:createInstance("com.sun.star.frame.Desktop") AAdd(aProp,MakePropertyValue(oService,"Hidden",.T.)) //seta prop para ocultar oDocument := oDesktop:loadComponentFromURL(cFile, "_blank", 0, aProp) // {}) //abre o doc //OBTÉM O TEXTO oTexto = oDocument:getText() cVarTxt := oTexto:getString() oDocument:Close(.T.) //fechao doumento DEFINE DIALOG oDlg TITLE "Visualiza documentos doc/odt" size 640,480 @ 0.5, 01 FORMAT GET oGet VAR cVarTXT OF oDlg SIZE 310,220 UPDATE ACTIVATE DIALOG oDlg CENTERED Return Nil **============================================================================== STATIC FUNCTION MakePropertyValue(oService,cName,nValue) **============================================================================== LOCAL oStruct := oService:Bridge_GetStruct("com.sun.star.beans.PropertyValue") oStruct:Name := cName oStruct:Value := nValue RETURN(oStruct) 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.