Solve the problem Today , Thanks Otto .
Paste the testget.prg and testsay.prg Reference from otto.prg.
// testget.prg
#include "FiveWeb.ch"
function Main()
LOCAL oDlg, oGET1
local cGet1:=SPACE(20)
local aParams
/*
if pcount() > 0
aParams := hb_aTokens( cParams, ":" )
MSGINFO(aParams[2])
Go(aParams)
return nil
endif
*/
DEFINE DIALOG oDlg TITLE "Hello FiveWeb" SIZE 600, 400
@ 12, 10 SAY "Hola:" OF oDlg TITLE "TEST:"
@ 12, 70 GET oGET1 VAR cGet1 OF oDlg SIZE 300, 40 PASSWORD
@ 120, 370 BUTTON "ok" SIZE 120, 50 OF oDlg ;
ACTION ('document.location = "testsay.exe?oGET1:"+' + ;
'document.getElementById( "oGET1" ).value.trim()' )
ACTIVATE DIALOG oDlg NOWAIT
return nil
// testsay.prg
#include "FiveWeb.ch"
function Main( cParams )
local oDlg, oSay,oGet1
local cName,aParams
if pcount() > 0
aParams := hb_aTokens( cParams, ":" )
cName := aParams[2]
endif
DEFINE DIALOG oDlg TITLE "Hello FiveWeb" SIZE 600, 400
@ 20, 20 SAY oSay PROMPT "test:" OF oDlg SIZE 300, 40
@ 20, 70 GET oGet1 VAR cName OF oDlg SIZE 300, 40
@ 120, 370 BUTTON "ok" SIZE 120, 50 OF oDlg
ACTIVATE DIALOG oDlg
return nil