*============================================================================== 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.>Hi Ronald,
>>*** 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())) >> >>>>