![]() |
Chilkat HOME Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi DLL Go Java Node.js Objective-C PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Visual FoxPro) HTTPS multipart/form-data POSTDemonstrates how to send a multipart/form-data POST over HTTPS (using TLS). Note: This example requires Chilkat v11.0.0 or greater.
LOCAL lnSuccess LOCAL loReq LOCAL lcPathToFileOnDisk LOCAL lcFileContents LOCAL loHttp LOCAL loResp LOCAL lcHtmlStr lnSuccess = 0 * This example assumes the Chilkat HTTP API to have been previously unlocked. * See Global Unlock Sample for sample code. * This example demonstrates how to send a multipart/form-data POST that * looks like this: * POST /cgi/XXX.pl HTTP/1.0 * Accept: text/html * Connection: Keep-Alive * User-Agent: XXX/8.0.15 * Content-type: multipart/form-data, boundary=XXXxyxy * Content-Length: 682 * * --XXXxyxy * content-disposition: form-data; name="UploadAgent" * * InterfaceVersion1.5 * --XXXxyxy * content-disposition: form-data; name="user" * * userValue * --XXXxyxy * content-disposition: form-data; name="password" * * passwordValue * --XXXxyxy * content-disposition: form-data; name="file" * * fileValue * --XXXxyxy * content-disposition: form-data; name="data_version" * * dataVersion * --XXXxyxy * content-disposition: form-data; name="content2"; filename="XXX" * * THE FILE CONTENT GOES HERE... * --XXXxyxy-- * * First, let's build the HTTP request object loReq = CreateObject('Chilkat.HttpRequest') loReq.HttpVerb = "POST" loReq.Path = "/cgi/XXX.pl" * The boundary string is automatically generated and added by Chilkat. * The value for the boundary string doesn't matter. (As long as it's a unique string that doesn't occur elsewhere in the request.) loReq.ContentType = "multipart/form-data" * Adding the Connection: Keep-Alive is optional. It only makes sense if the intent is to send * additional requests to the same domain (your-namespace-sb.accesscontrol.windows.net) within a reasonable time period. loReq.AddHeader("Connection","Keep-Alive") * -------------------------------------------------- * IMPORTANT: Never set the Content-Length header. * Chilkat will automatically compute the correct Content-Length and will add it. * -------------------------------------------------- * If a specific User-Agent header field is needed, it can be added by calling AddHeader. loReq.AddHeader("User-Agent","XXX/8.0.15") * The "Accept" header, if present, tells the server what Content-Type responses will be accepted. * In this case, we're telling the server that we'll only accept "text/html" responses, and therefore * the server SHOULD only send a text/html response. Technically, the Accept header is not required. loReq.AddHeader("Accept","text/html") * Add the params to the request. Given that the Content-Type is set to "multipart/form-data", when * Chilkat composes the request, it will put each param in it's own MIME sub-part (i.e. in it's own * part delimited by the boundary string). loReq.AddParam("UploadAgent","InterfaceVersion1.5") loReq.AddParam("user","userValue") loReq.AddParam("password","passwordValue") loReq.AddParam("file","fileValue") loReq.AddParam("data_version","dataVersion") * The last param is the contents of a file. * If it's a file on disk, we can add it like this: lcPathToFileOnDisk = "c:/someDir/someFile.dat" lnSuccess = loReq.AddFileForUpload("content2",lcPathToFileOnDisk) IF (lnSuccess = 0) THEN ? loReq.LastErrorText RELEASE loReq CANCEL ENDIF * Alternatively, if the contents of the file are in memory, perhaps in a string * variable, the file can be added like this instead. lcFileContents = "This is the content of the file being uploaded." lnSuccess = loReq.AddStringForUpload("content2","XXX",lcFileContents,"utf-8") * ----------------------------------------------------------- * IMPORTANT: To duplicate the HTTP request shown above, you'll want to choose * either AddStringForUpload or AddFileForUpload, but not both. It's possible to upload * any number of files by calling AddStringForUpload and/or AddFileForUpload any number * of times, once per file to be uploaded. This of course assumes that the receiving * end is programmed to receive multiple files.. * ------------------------------------------------------------ loHttp = CreateObject('Chilkat.Http') * The request is ready... now send it using HTTPS (which is port 443 by default). loResp = CreateObject('Chilkat.HttpResponse') lnSuccess = loHttp.HttpSReq("www.myserver.com",443,1,loReq,loResp) IF (lnSuccess = 0) THEN ? loHttp.LastErrorText RELEASE loReq RELEASE loHttp RELEASE loResp CANCEL ENDIF ? "HTTP response status: " + STR(loResp.StatusCode) * In this case, the response would be HTML because our Accept header * told the server to only return HTML. The HTML is available on the BodyStr * property of the response object: lcHtmlStr = loResp.BodyStr ? "Received:" ? lcHtmlStr RELEASE loReq RELEASE loHttp RELEASE loResp |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.