FiveTech Software tech support forums

Hi, Thought I sucesed linked samples in Dolphin\samples , can't to create own project . Diff. here that dolphin use win-make utility , I'm using hbmk2 and .hbp . Sorry , but I'm not a good expert of hbmk2 or win-make . What I must to do for that project ? .hbp ( 1-st version ) -inc-incpath=\a\fwh\in...

Tim, It seems as Ole2TxtError() is not returning the right value. If you comment out this code, then your example is working fine:       /*   IF Ole2TxtError() != "S_OK"      ...

... , cuando ocurría algún tipo de error, el try/catch daba un error, usando OLE2TxtError(), y aparecían cosas como que el atributo no existía. Por ejemplo, un cosa que me ha estado sucediendo y que me ha llegado loco toda la ...

... ) CATCH TRY oWord := CreateObject( "Word.Application" ) CATCH Alert( "ERROR! Word not avialable. [" + Ole2TxtError()+ "]" ) RETURN END END oWord:Documents:Add() oText := oWord:Selection() oText:Font:Size := 16 oText:Invoke( "TypeText", ...

... 2 ) ) } )  that way Roberto will be able to get a better feedback about the error In xharbour, the equivalent function name is OLE2TXTERROR()

... ) CATCH TRY oWord := CreateObject( "Word.Application" ) CATCH Alert( "Blad! MS Word nie dostepny. [" + Ole2TxtError()+ "]" ) break END END // create a new, empty Word document oDocument := oWord:documents:add() // get the text selection object ...

What error do you get now ? this link error ? FiveHcm.lib(CURSORS.obj) : warning LNK4006: _HB_FUN_CURSORNO already defined in Fivehm.lib(CONTROL.obj); second definition ignored gtgui.lib(gtgui.obj) : warning LNK4006: _HB_FUN_HB_GT_GUI_DEFAULT already defined in Fivehm.lib(ERRSYSW.obj); second defin...

Hi Antonio link add hbwin32.lib -> this link error ? FiveHcm.lib(CURSORS.obj) : warning LNK4006: _HB_FUN_CURSORNO already defined in Fivehm.lib(CONTROL.obj); second definition ignored gtgui.lib(gtgui.obj) : warning LNK4006: _HB_FUN_HB_GT_GUI_DEFAULT already defined in Fivehm.lib(ERRSYSW.obj); sec...

Muy buenas, estoy intentando compilar el oleauto.prg para usarlo en Harbour, pero no me reconoce las siguientes funciones:

- GetOleObject
- Ole2TxtError
- OleShorWxception
- OleError

¿Sabeis donde puedo encontrar estas funciones?

Un Saludo.

... oSkype := GetActiveObject("Skype4COM.Skype") Catch Try oSkype := CreateObject("Skype4COM.Skype") Catch alert("Skype4Com não está instalado!"+; ";"+ole2txterror()) return 0 End End If .not. oSkype:Client:IsRunning() MsgRun("Informação","Activando o Skipe",{||oSkype:Client:Start()}) Endif //not online ...

... "Excel.Application" ) CATCH TRY oExcel := CreateObject( "Excel.Application" ) CATCH MsgAlert( "ERROR! Excel no esta disponible. ", Ole2TxtError() ) RETURN END END CursorWait() SysRefresh() oDlg:SetText( "Importando datos a excel!" ) oPBar:SetRange(1,nContador) nRow:=0 oExcel:WorkBooks:Add() ...

... := GetActiveObject( "Outlook.Application" ) CATCH TRY oOutlook := CreateObject( "Outlook.Application" ) CATCH ? "Outlook no disponible. [" + Ole2TxtError()+ "]" RETURN nil END END oMail := oOutlook:CreateItem( 0 ) FOR EACH el IN aDir oMail:Recipients:Add( el ) NEXT IF !EMPTY(cAsunto) oMail:Subject ...

... "Excel.Application" ) CATCH TRY oExcel := CreateObject( "Excel.Application" ) CATCH Mensagem( "ERRO! MS-Excel nao encontrado. [" + Ole2TxtError()+ "]" ) RETURN END END oExcel:WorkBooks:Add() Ps: Se alguem tiver sugestão, de uma maneira mais simples de fazer isso, eu agradeço... ...

... "Word.Application" ) CATCH TRY ::oWord := CreateObject( "Word.Application" ) CATCH Alert( "ERROR! Word no está instaldo en esta PC. [" + Ole2TxtError()+ "]" ) ::lWord := .F. END END RETURN( Self ) MAIS MESMO ASSIM, CONTINUA A ME DAR O ERRO: Application =========== Path and name: C:\XCARCERE\INQ\INQUERITO.EXE ...

... "Word.Application" ) CATCH TRY ::oWord := CreateObject( "Word.Application" ) CATCH Alert( "ERROR! Word no está instaldo en esta PC. [" + Ole2TxtError()+ "]" ) ::lWord := .F. END END RETURN( Self ) MAIS MESMO ASSIM, CONTINUA A ME DAR O ERRO: Application =========== Path and name: C:\XCARCERE\INQ\INQUERITO.EXE ...