FiveTech Software tech support forums

Instead of using CreateObject(...), can you please try using FWGetOleObject( cApp ) // available in FWH olefuncs.prg or TOleAuto():New( cApp ) This is the code of FWGetOleObject( cApp ) //----------------------------------------------------------------------------//function ...

Good.
So I advise you to use FWGetOleObject( cApp ) instead of TOleAuto():New(...).

This function checks if the application is already active and if active uses the active object.
If not active opens the application.

... cName ) succeeds without error, it means the app is already running. So the logic should be TRY    oObj := GetActiveObject( cApp )    ? 'already running'CATCH    TRY       oObj := CreateObject( cApp )      ...

... METHOD End() CLASS TdWebService FreeLib32(xDll) return nil ***************************** DLL32 FUNCTION InternetOpen( cApp as LPSTR, n1 AS DWORD, n2 AS LPSTR, n3 AS LPSTR,; n4 AS DWORD ) AS LONG PASCAL ; FROM "InternetOpenA" LIB xdll DLL32 Function InternetReadFile(hFile ...

I modified this: no action nor error alert. Code: function FWGetOleObject( cApp ) local oObj TRY oObj :=WIN_OleAuto():New( cApp ) //from GetActiveObject( cApp ) , call harbour win_oleauto class (hbwin.lib) CATCH TRY oObj := WIN_OleAuto():New( cApp ) CATCH END ...

... The code to load Excel or other office applciation in olefuncs.prg is this:   TRY      oObj  := GetActiveObject( cApp )   CATCH      TRY         oObj  := CreateObject( cApp )      ...

... not for you. The problem is not because of the version of Office. Please open \fwh\source\function\olefuncs.prg. First function is GetOleObject( cApp ) function GetOleObject( cApp )   local oObj   TRY      oObj  := GetActiveObject( cApp )  ...

... now I am able to compile and link. Where do we get this xhb.obj and what is it? Coming to our issue: Please see the code of function GetOleObject( cApp ) in the OLEFUNCS.PRG. static function GetOleObject( cApp )   local oObj   TRY      oObj  := GetActiveObject( ...

... lpszHeaders As 8, dwHeadersLength As 7, dwFlags As 7, dwContext As 7) As 7 FROM "InternetOpenUrlA" PASCAL Lib xdllnet DLL32 FUNCTION InternetOpen( cApp as LPSTR, n1 AS DWORD, n2 AS LPSTR, n3 AS LPSTR,n4 AS DWORD ) AS LONG PASCAL FROM "InternetOpenA" LIB xDllNet DLL32 FUNCTION HttpSendRequest(hRequest ...

I tried using Alltrim instead of PADR on the mRepComm := ("["+PADR(cApp,len(REPDETS->REP_NAME))+".rpt]") line, which seemed to fix a few of the records. although some still had a large gasp before the .rpt extension, with some records not even showing ...

... ; [Monthly Account Invoice Proof .rpt] The above should be displayed as [Monthly Account Invoice Proof.rpt] Here is the code used; IF !Empty(cApp) IF mFile == 1 mReportID := Alltrim(cApp)+".rpt" mReportName := PADR(cApp,LEN(REPDETS->REP_NAME)) mRepComm := ("["+PADR(cApp,len(REPDETS->REP_NAME))+".rpt]") ...

... del "Sistema". El valor devuelto será IDNO si se cancela la operación. Parámetro: hWnd. Manejador del diálogo o de la ventana. SHAbout( hWnd, cApp, cText, hIcon ) Es el diálogo estandard "About". Parámetros: hWnd. Manejador del diálogo o de la ventana. cApp. Es el texto que la función mostrará ...

... if the user choose to perform the shutdown. It is IDNO if the operation was canceled. Parameter: hWnd. Dialog or window handle. SHAbout( hWnd, cApp, cText, hIcon ) It is the standard dialog "About". Parameters: hWnd. Dialog or window handle. cApp. Text that the function displays in the title ...

I think you should rewrite your function such a way that it returns not NIL but cApp. In your main code you will have the following LOCAL cApp ..... IF ( !EMPTY( cApp := FileName() ) ) mReportID := Alltrim(cApp)+".rpt" oReportID:Refresh() ENDIF ..... Or you can ...

So, should I have a different LOCAL cApp for each refresh?