Quote and SendCommand

Demonstrate the Quote and SendCommand methods.

CREATE PROCEDURE ChilkatSample
AS
BEGIN
    DECLARE @hr int
    DECLARE @sTmp0 nvarchar(4000)
    DECLARE @ftp int
    EXEC @hr = sp_OACreate 'Chilkat.Ftp2', @ftp OUT
    IF @hr <> 0
    BEGIN
        PRINT 'Failed to create ActiveX component'
        RETURN
    END

    DECLARE @success int

    --  Any string unlocks the component for the 1st 30-days.
    EXEC sp_OAMethod @ftp, 'UnlockComponent', @success OUT, 'Anything for 30-day trial'
    IF @success <> 1
      BEGIN
        EXEC sp_OAGetProperty @ftp, 'LastErrorText', @sTmp0 OUT

        PRINT @sTmp0
        RETURN
      END

    EXEC sp_OASetProperty @ftp, 'Hostname', 'www.myftpserver.com'
    EXEC sp_OASetProperty @ftp, 'Username', '****'
    EXEC sp_OASetProperty @ftp, 'Password', '****'

    --  Connect and login to the FTP server.
    EXEC sp_OAMethod @ftp, 'Connect', @success OUT
    IF @success <> 1
      BEGIN
        EXEC sp_OAGetProperty @ftp, 'LastErrorText', @sTmp0 OUT

        PRINT @sTmp0
        RETURN
      END

    --  Tell the FTP object to keep an in-memory session log
    --  so we can see the commands sent to the server,
    --  and the responses received back.
    EXEC sp_OASetProperty @ftp, 'KeepSessionLog', 1

    --  Change the current remote directory via the Quote method:
    EXEC sp_OAMethod @ftp, 'Quote', @success OUT, 'CWD junk'
    IF @success <> 1
      BEGIN
        EXEC sp_OAGetProperty @ftp, 'LastErrorText', @sTmp0 OUT

        PRINT @sTmp0
        RETURN
      END

    --  Move back up
    --  In this case, ChangeRemoteDir sends "CWD .." to the FTP server.
    EXEC sp_OAMethod @ftp, 'ChangeRemoteDir', @success OUT, '..'
    IF @success <> 1
      BEGIN
        EXEC sp_OAGetProperty @ftp, 'LastErrorText', @sTmp0 OUT

        PRINT @sTmp0
        RETURN
      END

    --  Do the same via the SendCommand method where the
    --  raw FTP server response is returned:
    DECLARE @serverResponse nvarchar(4000)

    EXEC sp_OAMethod @ftp, 'SendCommand', @serverResponse OUT, 'CWD junk'
    IF @serverResponse Is NULL 
      BEGIN
        EXEC sp_OAGetProperty @ftp, 'LastErrorText', @sTmp0 OUT

        PRINT @sTmp0
      END
    ELSE
      BEGIN

        PRINT @serverResponse
      END

    EXEC sp_OAMethod @ftp, 'Disconnect', NULL


    PRINT 'Session Log:'
    EXEC sp_OAGetProperty @ftp, 'SessionLog', @sTmp0 OUT

    PRINT @sTmp0

END
GO