FiveTech Software tech support forums

Dear team, I kindly want to ask another question about "How does mod harbour work". On some occasions I get very useful error messages - like for example Error: LOCAL declaration follows executable statement operation: line:593 called from: HB_COMPILEFROMBUF, line: 0 called from: ..\sourc...

Dear team, I kindly want to ask another question about "How does mod harbour work". On some occasions I get very useful error messages - like for example Error: LOCAL declaration follows executable statement operation: line:593 called from: HB_COMPILEFROMBUF, line: 0 called from: ..\source...

Saludos y buen día, Necesito conocer la version del OS que esta en ejecución, actualmente utilizo GETENV("OS"), en la mayoría indica windows_nt estoy utilizando oHttp:=CreateObject("winhttp.winhttprequest.5.1") oHttp:Open("GET","https://www.bcv.org.ve",.f.) ...

Saludos y buen día, Necesito conocer la version del OS que esta en ejecución, actualmente utilizo GETENV("OS"), en la mayoría indica windows_nt estoy utilizando oHttp:=CreateObject("winhttp.winhttprequest.5.1") oHttp:Open("GET","https://www.bcv.org.ve",.f.) ...

Dear David, Please check these values remotely: MsgInfo( GetEnv( "TEMP" ) ) MsgInfo( GetEnv( "TMP" ) ) MsgInfo( GetWinDir() ) MsgInfo( oPrinter:cDir ) will tell you which one is in use as this is the code where the preview sets the ...

... Linux ( Ubuntu 20.04 ) . It seems not working correctly when running a simple prg because apache.prg probably has an error in this code: if Empty( GetEnv( "GATEWAY_INTERFACE" ) ) QOut( "Attention: This is modharbour CGI version and has to be executed" ) QOut( "from the ...

Dear Antonio, I have found the solution. ? 'AP_GetEnv( "DOCUMENT_ROOT" ) ' ? AP_GetEnv( "DOCUMENT_ROOT" ) We should rather take advantage of the generosity of FIVETECH that we can see the source code everywhere. I have found the functions here: https://github.com/FiveTech...

Dear Otto,

Please try checking AP_GetEnv( "HTTPS" )

best regards

Hola.. yo lo hago así: LOCAL cTempZip:=GETENV("TEMP")+"\foto.zip",uData *comprimo el archivo para que no ocupe tanto espacio Hb_ZipFile(cTempZip,"nombre del archivo, del formato que sea",9,,.T.,.T.,) *lo guardo ...

JF, Please run this: function Main()   ExecuteHrb( hb_HrbLoad( 1, hb_GetEnv( "PRGPATH" ) + "/testhrb.hrb" ) )   ? Time()return nil You can easily test it using mod_harbour modpro utility: (it is what I use for quick tests) https://www&#...

I continue to investigate and wrote this one ... function Test() ? ModBuildDate() ? "Hello world from a .prg file" ExecHrb( "TestHrb.hrb") return nil Function ExecHrb(cHrb, ...) Local oHrb, lResult:=.F., xResult if File( hb_GetEnv( "PRGPATH" ) + "/" + cHrb ) o...

... "WMIdiag" is missing ...so my Gadget Tool does not work any more http://www.hmgforum.com/download/file.php?id=10911 b.) GETENV("USERNAME") e.g. "a" on "PC11" will give you -> "a.PC11" http://www.hmgforum.com/download/file.php?id=10912 ...

...thanks a lot. this i perfect. Maybe you could explain to me what a "system environmental setting" and the "filename.prg" are? HB_GETENV( 'PRGPATH' ) // Obtains a system environmental setting AP_FileName() // returns the filename.prg provided to Apache by the client inclusive p...

Dear Reinaldo, mod_harbour provides "meta commands" which are instructions that will be executed before running the requested PRG In example: Your code ... at the bottom of it: // {% LoadPrg( "extra1.prg" ) %} // {% LoadPrg( "extra2.prg" ) %} Such code will be identifie...

Dear all,

this was the solution:

function main()
LOCAL CtMP := GETENV( "TMP" )

lMKDir(CtMP)

Kind regards and thank you for the answers!