Hi Hector,
To read the portnumber from an inifile:
In WebServer Procedure
! Start of "NetTalk Object Before Init Section"
PortNum# = getini('KundeProg', 'Port', '88', clip(path()) & '\KundeProg.ini' )
do CheckOmittedWeb
If Net:ShortInit
s_web &= pServer
Else
s_web &= ThisWebServer
s_web.SuppressErrorMsg = 1 ! No Object Generated Error Messages ! Generated by NetTalk Extension
s_web.init()
s_web.Port = PortNum#
0{prop:text} = clip(0{prop:text}) & ' | Port:' & s_web.Port & ' |Inifil: ' & clip(GLO:Inifil) & ' | '
s_web.Open()
Get(s_web._SitesQueue,1)
End
OMIT('***HERTIL***')
And
! Start of "NetTalk Object After s_web assigned"
***HERTIL***
Cheers,
/Poul