Page 4 of 7

Re: HMG 3.0.41

Posted: Wed May 02, 2012 12:36 pm
by gvaronas
Amarante wrote:Daniel,
I know the command _EXECUTE just was curious because the RUN command does not work in version 3.41.
I tested it on 3.1.0 and works Harbour.
Thanks for the reply


Daniel,
Sé que el _EXECUTE comando era sólo curiosidad, porque el comando RUN no funciona en la versión 3.41.
Lo he comprobado en Harbour 3.1.0 y funciona.
Gracias por la respuesta
[SPA]
Al parecer es producto del ultimo gran cambio que se ha hecho en harbour.
Por ejemplo a mi no me funciona este codigo:

[ENG Google]
Apparently is the result of the last great change that has been done in harbor.
For example I do not work this code:

Code: Select all

file: tst.prg:
------------------------------------------------------
PROCEDURE main
    LOCAL cFile := "tstprn.prg"
    LOCAL cPuerto := "\\deyp05\fx2180"
    ? Version()
    ? HB_COMPILER()
    HB_RUN( "TYPE " + cFile + " > " + cPuerto )
    wait
------------------------------------------------------

Re: HMG 3.0.41

Posted: Wed May 02, 2012 9:49 pm
by danielmaximiliano
[SPA]
Al parecer es producto del ultimo gran cambio que se ha hecho en harbour.
Por ejemplo a mi no me funciona este codigo:

[ENG Google]
Apparently is the result of the last great change that has been done in harbor.
For example I do not work this code:

Code: Select all

file: tst.prg:
------------------------------------------------------
PROCEDURE main
    LOCAL cFile := "tstprn.prg"
    LOCAL cPuerto := "\\deyp05\fx2180"
    ? Version()
    ? HB_COMPILER()
    HB_RUN( "TYPE " + cFile + " > " + cPuerto )
    wait
------------------------------------------------------
[/quote]

Tst.prg se compila y ejecuta correctamente en HMG.3.0.41

Windows 7 Home Premiun 64
HP4530 i3 4gb

Code: Select all


#include 'hmg.ch'
PROCEDURE main
    LOCAL cFile := "tstprn.prg"
    LOCAL cPuerto := "\\deyp05\fx2180"
    ? Version()
    ? HB_COMPILER()
    HB_RUN( "TYPE " + cFile + " > " + cPuerto )
    wait
    Return
HBrun.jpg
HBrun.jpg (71.6 KiB) Viewed 6996 times

Re: HMG 3.0.41

Posted: Thu May 03, 2012 9:19 pm
by Amarante
[Português]
Testei com build.bat e com ide.exe e não funciona o comando RUN.
[Español]
Probado con Build.bat y ide.exe y lo RUN no funciona.
[English]
Tested with Build.bat and ide.exe and the run command does not work.
:cry:

Code: Select all

#include 'hmg.ch'
PROCEDURE main()
local	cStr := "DIR /B *.* > listfiles.txt"
HB_RUN( cStr )
Return

Re: HMG 3.0.41

Posted: Thu May 03, 2012 9:41 pm
by gvaronas
[SPA]
Hola Daniel, a mi tambien me compila sin errores, el problema es que no hace lo que se espera, en el ejemplo, debería imprimir un archivo texto en una impresora remota, compilando con una versión anterior de harbour si trabaja bien.

[ENG Google]
Hi Daniel, I also I compiled without errors, the problem is that it does what is expected, in the example, you should print a text file to a remote printer, compiled with an earlier version of harbor if it works well.

BestRegars GVS


danielmaximiliano wrote:[SPA]
Al parecer es producto del ultimo gran cambio que se ha hecho en harbour.
Por ejemplo a mi no me funciona este codigo:

[ENG Google]
Apparently is the result of the last great change that has been done in harbor.
For example I do not work this code:

Code: Select all

file: tst.prg:
------------------------------------------------------
PROCEDURE main
    LOCAL cFile := "tstprn.prg"
    LOCAL cPuerto := "\\deyp05\fx2180"
    ? Version()
    ? HB_COMPILER()
    HB_RUN( "TYPE " + cFile + " > " + cPuerto )
    wait
------------------------------------------------------
Tst.prg se compila y ejecuta correctamente en HMG.3.0.41

Windows 7 Home Premiun 64
HP4530 i3 4gb

Code: Select all


#include 'hmg.ch'
PROCEDURE main
    LOCAL cFile := "tstprn.prg"
    LOCAL cPuerto := "\\deyp05\fx2180"
    ? Version()
    ? HB_COMPILER()
    HB_RUN( "TYPE " + cFile + " > " + cPuerto )
    wait
    Return
HBrun.jpg
[/quote]

Re: HMG 3.0.41

Posted: Thu May 03, 2012 10:29 pm
by Amarante
Apparently it is not an error Harbour, it may be a bug with the version that is HMG, see below:

HMG 3.0.41
Harbour 3.1.0dev (17406 2012-04-20)
The RUN command NOT work.

Harbour MiniGUI Extended Edition 2.1.0
Harbour 3.1.0dev (Last ChangeLog entry: 2012-04-20 08:14 UTC+0200 Przemyslaw Czerpak)
The RUN command WORK!!!

Re: HMG 3.0.41

Posted: Fri May 25, 2012 5:18 am
by Roberto Lopez
Thanks for this new version!

Re: HMG 3.0.41

Posted: Fri May 25, 2012 11:58 am
by Pablo César
Amarante wrote:[English]
Tested with Build.bat and ide.exe and the run command does not work.
:cry:

Code: Select all

#include 'hmg.ch'
PROCEDURE main()
local	cStr := "DIR /B *.* > listfiles.txt"
HB_RUN( cStr )
Return
Amarante, I changed to execute DIR command inside batch file and it os working. I have created a Test.bat file with:

Code: Select all

DIR /B *.* > lstfiles.txt
pause
I put pause, just to see what OS makes before ">" (add a "1"). And then in source code I called as: HB_RUN( "Test.bat" )

Re: HMG 3.0.41

Posted: Fri May 25, 2012 12:07 pm
by Pablo César
gvaronas wrote:[ENG Google]
Apparently is the result of the last great change that has been done in harbor.
For example I do not work this code:[/color]

Code: Select all

file: tst.prg:
------------------------------------------------------
PROCEDURE main
    LOCAL cFile := "tstprn.prg"
    LOCAL cPuerto := "\\deyp05\fx2180"
    ? Version()
    ? HB_COMPILER()
    HB_RUN( "TYPE " + cFile + " > " + cPuerto )
    wait
------------------------------------------------------
Same for Amarante indication could apply for you too. Please try to create batch file and you will see that is working. I have created a test.bat with this:

Code: Select all

TYPE tstprn.prg > \\deyp05\fx2180
pause
But display an OS error: Access denied.

But if you make test.bat with this:

Code: Select all

TYPE tstprn.prg > \\deyp05\fx2180\tstprn.prg
pause
It´s works fine !

Re: HMG 3.0.41

Posted: Tue May 29, 2012 3:09 pm
by Amarante
Portuguese
Pablo, obrigado por responder, eu consegui solucionar o problema, mas eu estou é curioso por ver que o erro ocorre na versão Harbour que está na 3.0.41, pois isso não ocorre no MiniGui que contem a mesma versão do Harbour (veja alguns posts acima). :roll:
Google Translator
Pablo, thanks for replying, I managed to solve the problem, but I'm curious to see is that the bug in version 3.0.41 which is in the Harbour, as this does not occur in MiniGUI which contains the same version of the Harbour (see some posts above). :roll:

HMG 3.0.41 + Harbour 3.2.0dev (Rev. 17513) + msvc + [ /w1 ]

Posted: Thu May 31, 2012 5:54 pm
by IMATECH
Hello Friends...

I'm trying to compile HMG 3.0.41 with Harbor SVN and MSVC
And I update warnigs to w1 (default w0)...

Then I have discovered that will need many changes in source to have succes on this build...

Basically need some work to declare variables and assign Memvar in some cases ( m-> )...

Below a partial compile screen...

Code: Select all

Version: Harbour 3.2.0dev (Rev. 17513)
Compiler: Microsoft Visual C++ 16.0.21003 (32-bit)
Platform: Windows 7 6.1.7601 Service Pack 1
PCode version: 0.3
ChangeLog last entry: 2012-05-25 00:12 UTC+0200 Francesco Perillo (fperillo at gmail.com)
ChangeLog ID: ChangeLog 17513 2012-05-24 22:17:23Z fperillo
Built on: May 24 2012 21:43:50
Build options: (C++ mode) (Clipper 5.3b) (Clipper 5.x undoc)
-------------------------------
hbmk2: Processando opções do ambiente: -compiler=msvc
hbmk2: Harbour: Compilando módulos...
Harbour 3.2.0dev (Rev. 17513)
Copyright (c) 1999-2012, http://harbour-project.org/
Compiling 'source\ErrorSys.prg'...
Lines 12672, Functions/Procedures 8
Generating C source output to 'C:\HMG\OBJ\ErrorSys.c'... Done.
...
source\h_grid.prg(2968) Warning W0001  Ambiguous reference 'NHANDLE'
source\h_grid.prg(2969) Warning W0001  Ambiguous reference 'NHANDLE'
source\h_grid.prg(2969) Warning W0001  Ambiguous reference 'NITEMCOUNT'
source\h_grid.prg(2973) Warning W0001  Ambiguous reference 'NRECNO'
source\h_grid.prg(2989) Warning W0001  Ambiguous reference 'ACOLUMNFIELDS'
source\h_grid.prg(3115) Warning W0001  Ambiguous reference 'NLOGICALROW'
source\h_grid.prg(3117) Warning W0001  Ambiguous reference 'NLOGICALCOL'
source\h_grid.prg(3119) Warning W0001  Ambiguous reference 'XVALUE'
source\h_grid.prg(3121) Warning W0001  Ambiguous reference 'NPHYSICALROW'
source\h_grid.prg(3126) Warning W0001  Ambiguous reference 'NPHYSICALROW'
source\h_grid.prg(3129) Warning W0001  Ambiguous reference 'NPHYSICALROW'
source\h_grid.prg(3136) Warning W0001  Ambiguous reference 'NRECNO'
source\h_grid.prg(3145) Warning W0001  Ambiguous reference 'NLOGICALCOL'
source\h_grid.prg(3147) Warning W0001  Ambiguous reference 'XVALUE'
source\h_grid.prg(3147) Warning W0001  Ambiguous reference 'ACOLUMNFIELDS'
source\h_grid.prg(3147) Warning W0001  Ambiguous reference 'NLOGICALCOL'
source\h_grid.prg(3151) Warning W0002  Ambiguous reference, assuming memvar 'ACOLUMNFIELDS'
source\h_grid.prg(3151) Warning W0001  Ambiguous reference 'XVALUE'
source\h_grid.prg(3151) Warning W0001  Ambiguous reference 'NLOGICALCOL'
source\h_grid.prg(3194) Warning W0001  Ambiguous reference 'NRECNO'
source\h_grid.prg(3205) Warning W0001  Ambiguous reference 'ACOLUMNFIELDS'
source\h_grid.prg(3242) Warning W0001  Ambiguous reference 'NPHYSICALROW'
source\h_grid.prg(3244) Warning W0001  Ambiguous reference 'CCOMMAND'
source\h_grid.prg(3249) Warning W0001  Ambiguous reference 'NPHYSICALROW'
source\h_grid.prg(3262) Warning W0001  Ambiguous reference 'CCOMMAND'
source\h_grid.prg(3266) Warning W0001  Ambiguous reference 'CCOMMAND'
source\h_grid.prg(3298) Warning W0001  Ambiguous reference 'NRECNO'
source\h_grid.prg(3351) Warning W0001  Ambiguous reference 'CCOMMAND'
source\h_grid.prg(3353) Warning W0001  Ambiguous reference 'CCOMMAND'
1 error

No code generated.


Question:

Somebody can see if this is really needed for improving HMG sources?