>*** Sending Files via HTTP from a VFP client >#INCLUDE WCONNECT.h >SET PROCEDURE TO wwUtils ADDITIVE >SET CLASSLIB TO wwIPStuff ADDITIVE > >CLEAR > >oHTTP = CREATEOBJECT("wwHTTP") > >*** Connect to the server >oHTTP.HTTPConnect("https://www.aesdirect.gov/aesdirect/system/entry.cgi?p_action=BU", "UserName", "PassWord", .T.) > >*** Initialize the variables that will be filled by HTTPGetEx >lcHTML="" && Data buffer >lnText=0 && Size of the output to return - 0 means autosize > >*** Send the POST data and retrieve HTTP result >oHTTP.nHTTPPostMode = 2 >oHTTP.AddPostKey("filename", "C:\EXPORTVSS\AES_OUT\UPTEST01.000", .T.) >lnResult = oHTTP.HTTPGetEx("/aesdirect/system/fup.cgi",@lcHTML,@lnText) >oHTTP.nHTTPPostMode = 1 >IF lnResult # 0 > WAIT WINDOW ALLTRIM(STR(lnResult)) + " - " + oHTTP.cErrorMsg NOWAIT > RETURN >ENDIF > >? TRIM(lcHTML) > >oHTTP.HTTPClose() && Close the connection > >RETURN >>