>>*** 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 >>>>