FiveTech Support Forums

Dear all:

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