>*============================================================================== >PROCEDURE Create_Internet_Object >LPARAMETER lcObjectName, lcCreateName >LOCAL lcProxyName, lcProxyPort, lnProxyType, lcProxyUser, lcProxyPW >IF !"WWIPSTUFF"$UPPER(SET("CLASSLIB")) > SET CLASSLIB TO .\ww\wwIPStuff ADDITIVE >ENDIF > >IF ! "wwUtils"$SET("PROCEDURE") > SET PROCEDURE TO .\ww\wwUtils ADDITIVE >ENDIF > >IF ! "WWTTP"$UPPER(SET("PROCEDURE")) > SET PROCEDURE TO .\ww\WWHTTP ADDITIVE >ENDIF > >IF !EMPTY(lcObjectName) AND EMPTY(lcCreateName) > MESSAGEBOX("Error passing parameters to Create_Internet_Object in Procfile call support.", 16) > RETURN .F. >ENDIF > >IF EMPTY(lcObjectName) > lcObjectName = "oInternet" > lcCreateName = "wwIPStuff" >ENDIF > >RELEASE &lcObjectName. >PUBLIC &lcObjectName. > >&lcObjectName. = CREATE(lcCreateName) >IF VARTYPE(&lcObjectName.) <> "O" OR ISNULL(&lcObjectName.) > RETURN .F. >ENDIF > >USE INFO ALIAS ProxyInfo IN 0 AGAIN > >lnConnectionTimeout = INT(VAL(ALLT(LOOKUP(ProxyInfo.Value, "connection_timeout", ProxyInfo.Field)))) >IF !EMPTY(lnConnectionTimeout) > &lcObjectName..nConnectTimeout = lnConnectionTimeout >ENDIF > >lnProxyType = INT(VAL(LOOKUP(ProxyInfo.Value, "proxy_type", ProxyInfo.Field))) >*!* RLT Added to auto detect the proxy settings >&lcObjectName..nhttpconnecttype = lnProxyType > >IF lnProxyType = 3 && Manual Setting > *!* Get the Proxy name and Port > lcProxyName = ALLT(LOOKUP(ProxyInfo.Value, "proxy_name", ProxyInfo.Field)) > > *!* Get the port number to use. > lcProxyPort = ALLT(LOOKUP(ProxyInfo.Value, "proxy_port", ProxyInfo.Field)) > IF !EMPTY(lcProxyPort) > lcProxyName = lcProxyName + ":"+ lcProxyPort > ENDIF > &lcObjectName..cHttpProxyName = ALLT(lcProxyName) > > *!* Check for username and password. > lcProxyUser = ALLT(LOOKUP(ProxyInfo.Value, "proxy_username", ProxyInfo.Field)) > IF !EMPTY(lcProxyUser) > &lcObjectName..cHttpProxyUserName = lcProxyUser > ENDIF > > lcProxyPW = ALLT(LOOKUP(ProxyInfo.Value, "proxy_password", ProxyInfo.Field)) > IF !EMPTY(lcProxyPW) > &lcObjectName..cHttpProxyPassword = lcProxyPW > ENDIF > >ENDIF > >USE IN SELECT("ProxyInfo") > >RETURN .T. >>
>>>*** Set mode to multi-part form >>>oHttp.nHttpPostMode = 2 >>> >>>*** Post a file and a regular form variable >>>*!* Who is sending the message >>>oHttp.AddPostKey("snetid", lcSnetID) >>>oHttp.AddPostKey("attach", "1") >>>oHttp.AddPostKey("fileupload", lcUploadFile, .T.) >>> >>>lcHTML = oHttp.HTTPGet(SS_HSS_DIVISIONS_SITE + "?nocache=" + TTOC(DATETIME())) >>> >>>>>>