Exclusive forum for HMG, a Free / Open Source xBase WIN32/64 Bits / GUI Development System
http://hmgforum.com/
Code: Select all
#include "minigui.ch"
PROCEDURE Main
DEFINE WINDOW Win_Main ;
AT 0,0 ;
WIDTH 600 ;
HEIGHT 400 ;
TITLE 'Test program' ;
MAIN
DEFINE STATUSBAR ;
FONT 'Times New Roman' SIZE 12
STATUSITEM ''
END STATUSBAR
@10,10 BUTTON Btn_1 ;
CAPTION 'Run Script' ;
WIDTH 200 ;
HEIGHT 25 ;
ONCLICK RunScript()
END WINDOW
Win_Main.StatusBar.Item(1) := 'HMG Power Ready'
CENTER WINDOW Win_Main
ACTIVATE WINDOW Win_Main
RETURN
PROCEDURE RunScript
local CONTENT, HANDLE_HRB, PRG, HRBCODE
PRG := ;
"proc p()" + hb_eol() + ;
" SetProperty ( 'Win_Main', 'StatusBar' , 'Item' , 1 , 'Hello World' ) "+ hb_eol() + ;
" MsgInfo( 'Hello World' )" + hb_eol() + ;
"return"
HRBCODE := hb_compileFromBuf( PRG, "harbour", "-n", "-w3", "-es2", "-q0" )
memowrit( "myhrb.hrb", sx_encrypt( HRBCODE, "myPaswdKey" ) )
CONTENT := sx_decrypt( memoread( "myhrb.hrb" ), "myPaswdKey" )
HANDLE_HRB := hb_hrbload( CONTENT )
hb_hrbDo( HANDLE_HRB )
hb_hrbunload( HANDLE_HRB )
RETURN
Is working fine for me with FireFox 12.0.rathinagiri wrote:Roberto,
demo.server.html is working fine (only) in Chrome.
wssocket.exe should be run as an administrator and firewall should be opened up.
R1: I guess yes, but I'm not tested. I've tweaked the command line, but you can look at the application and you'll find option to make it run as a daemon instead as a normal app.rathinagiri wrote:Now, my basic doubts:
1. Can wssocket server be started in a Linux machine.
2. Can we make it run in a leased web space provider's system? (for example, can I someway start wssocket server in our forum's server providers system?)
I have uploaded hmgscript in hmgscript. So, we can test the behavior immediately.
Thanks!Rossine wrote:Hi Roberto,
Wow
Thank you for being expanding our horizons
I work for many years with HRB. What do you need ?
Below an example of how to put generate it and run it.
Code: Select all
#include "hbcompat.ch"
function MAIN
local CONTEUDO, nHandle
cls
CREATES_NEWHRB()
CONTEUDO := HRB_LoadFromFileEncrypted( "myhrb.hrb", "mypassword" )
try
nHandle := hb_hrbload( CONTEUDO )
catch oErr
? "Error load in hrb"
quit
end
if empty( nHandle )
? "Error call hrb"
quit
endif
? call_func( nHandle, "p1", "1" )
? call_func( nHandle, "p2", "2" )
hb_hrbunload( nHandle )
return NIL
*************************
static function call_func( nHandle, cFunc, xPar )
*************************
local xRet := HB_HRBGETFUNSYM( nHandle, cFunc )
if empty( xRet )
? "Error load in function " + cFunc
quit
endif
return eval( xRet, xPar )
********************************
function HRB_SaveToFileEncrypted( cEncFileName, cKey, cHrbBody )
********************************
local cFile
if !empty( cHrbBody )
cHrbBody := hb_zcompress( cHrbBody )
cHrbBody := sx_encrypt( cHrbBody, cKey )
hb_memowrit( cEncFileName, cHrbBody )
endif
return NIL
**********************************
function HRB_LoadFromFileEncrypted( cFile, cKey )
**********************************
local cHrbBody
cHrbBody := hb_memoread( cFile )
cHrbBody := sx_decrypt( cHrbBody, cKey )
cHrbBody := hb_zuncompress( cHrbBody )
return cHrbBody
***********************
function CREATES_NEWHRB
***********************
local CONTENT, HANDLE_HRB, PRG, HRBCODE
PRG := ;
"function p1( cPar )" + hb_eol() + ;
"? 'Hello World One ' + cPar" + hb_eol() + ;
"return 'One'" + hb_eol() + ;
"function p2( cPar )" + hb_eol() + ;
"? 'Hello World Two ' + cPar" + hb_eol() + ;
"return 'Two'"
HRBCODE := hb_compileFromBuf( PRG, "harbour", "-n", "-w3", "-es2", "-q0" )
HRB_SaveToFileEncrypted( "myhrb.hrb", "mypassword", HRBCODE )
RETURN