(SQL Server) Wasabi FTP Upload

See more Wasabi Examples

Demonstrates how to upload a file to Wasabi using FTP.

Note: Because of problems specific to Wasabi's FTP server, Chilkat v9.5.0.89 or later is needed for FTP access to Wasabi.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

-- Important: See this note about string length limitations for strings returned by sp_OAMethod calls.
--
CREATE PROCEDURE ChilkatSample
AS
BEGIN
    DECLARE @hr int
    -- Important: Do not use nvarchar(max).  See the warning about using nvarchar(max).
    DECLARE @sTmp0 nvarchar(4000)
    -- This example assumes the Chilkat HTTP API to have been previously unlocked.
    -- See Global Unlock Sample for sample code.

    DECLARE @ftp int
    -- Use "Chilkat_9_5_0.Ftp2" for versions of Chilkat < 10.0.0
    EXEC @hr = sp_OACreate 'Chilkat.Ftp2', @ftp OUT
    IF @hr <> 0
    BEGIN
        PRINT 'Failed to create ActiveX component'
        RETURN
    END

    -- Use the domain for the bucket you'll be managing.
    EXEC sp_OASetProperty @ftp, 'Hostname', 's3.s3.us-west-1.wasabisys.com'

    -- Use your root account username (email address) and root account password
    EXEC sp_OASetProperty @ftp, 'Username', 'root_account_username'
    EXEC sp_OASetProperty @ftp, 'Password', 'root_account_password'
    EXEC sp_OASetProperty @ftp, 'Ssl', 1
    EXEC sp_OASetProperty @ftp, 'Port', 990

    -- Note: Because of problems specific to Wasabi's FTP server, Chilkat v9.5.0.89 or later is needed for FTP access to Wasabi.
    DECLARE @success int
    EXEC sp_OAMethod @ftp, 'Connect', @success OUT
    IF @success = 0
      BEGIN
        EXEC sp_OAGetProperty @ftp, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @ftp
        RETURN
      END

    -- Upload a file (starfish.jpg) to the bucket named "chilkat"
    DECLARE @localFilePath nvarchar(4000)
    SELECT @localFilePath = 'qa_data/jpg/starfish.jpg'
    DECLARE @remoteBucketPath nvarchar(4000)
    SELECT @remoteBucketPath = '/chilkat/starfish.jpg'
    EXEC sp_OAMethod @ftp, 'PutFile', @success OUT, @localFilePath, @remoteBucketPath
    IF @success = 0
      BEGIN
        EXEC sp_OAGetProperty @ftp, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @ftp
        RETURN
      END


    PRINT 'File uploaded.'

    EXEC @hr = sp_OADestroy @ftp


END
GO