(PureBasic) Upload Files to a Web Server - Simplest TLS Example

This is the simplest example for uploading some files to a web server using SSL/TLS. the BlockingUpload call is synchronous and returns when the upload is finished (or failed).

A server-side C# example showing how to receive an upload is located at C# ASP.NET Code to Receive Upload

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkUpload.pb"

Procedure ChilkatExample()

    upload.i = CkUpload::ckCreate()
    If upload.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ; Specify the page (ASP, ASP.NET, Perl, Python, Ruby, CGI, etc)
    ; that will receive and process the HTTPS Upload.
    CkUpload::setCkHostname(upload, "www.mywebserver.com")
    CkUpload::setCkPath(upload, "/receiveUpload.aspx")

    ; Make sure to indicate that TLS is to be used, and the port should be
    ; 443 rather than 80.
    CkUpload::setCkSsl(upload, 1)
    CkUpload::setCkPort(upload, 443)

    ; Add one or more files to be uploaded.
    CkUpload::ckAddFileReference(upload,"file1","dude.gif")
    CkUpload::ckAddFileReference(upload,"file2","swordfish.xml")
    CkUpload::ckAddFileReference(upload,"file3","sample.doc")

    ; Do the upload.  The method returns when the upload
    ; is completed.
    ; This component also includes asynchronous upload capability,
    ; which is demonstrated in another example.
    success.i = CkUpload::ckBlockingUpload(upload)
    If success <> 1
        Debug CkUpload::ckLastErrorText(upload)
    Else
        Debug "Files uploaded!"
    EndIf



    CkUpload::ckDispose(upload)


    ProcedureReturn
EndProcedure