SQL Server

Socket Send and Receive BinData

Demonstrates the Chilkat Socket ReceiveBdN and SendBd methods. SQL Server

-- 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)
    DECLARE @success int
    SELECT @success = 0

    -- This example requires the Chilkat API to have been previously unlocked.
    -- See Global Unlock Sample for sample code.

    DECLARE @sock int
    EXEC @hr = sp_OACreate 'Chilkat.Socket', @sock OUT
    IF @hr <> 0
    BEGIN
        PRINT 'Failed to create ActiveX component'
        RETURN
    END

    -- --------------------------------------------------------------------
    -- This example uses the public TCP echo service at https://tcpbin.com/
    -- --------------------------------------------------------------------

    DECLARE @useTls int
    SELECT @useTls = 0
    DECLARE @port int
    SELECT @port = 4242
    DECLARE @maxWaitMs int
    SELECT @maxWaitMs = 5000
    EXEC sp_OAMethod @sock, 'Connect', @success OUT, 'tcpbin.com', @port, @useTls, @maxWaitMs
    IF @success = 0
      BEGIN
        EXEC sp_OAGetProperty @sock, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @sock
        RETURN
      END

    -- Wait a max of 2 seconds for a response..
    EXEC sp_OASetProperty @sock, 'MaxReadIdleMs', 2000

    -- Send 26 bytes contained in a Chilkat BinData
    DECLARE @bdToSend int
    EXEC @hr = sp_OACreate 'Chilkat.BinData', @bdToSend OUT

    DECLARE @i int
    SELECT @i = 0
    DECLARE @byteVal int
    SELECT @byteVal = 65
    WHILE @i < 26
      BEGIN
        EXEC sp_OAMethod @bdToSend, 'AppendByte', @success OUT, @byteVal
        SELECT @byteVal = @byteVal + 1
        SELECT @i = @i + 1
      END
    -- Send the contents of the BinData
    -- Pass zero's in the 2nd and 3rd arguments to send the entire contents of the BinData.
    EXEC sp_OAMethod @sock, 'SendBd', @success OUT, @bdToSend, 0, 0

    -- The tcpbin.com echo server only echoes after receiving an LF (linefeed char)
    EXEC sp_OAMethod @sock, 'SendByte', @success OUT, 10

    -- The echo server will echo back whatever is sent to it.
    -- We should be able to read the same bytes back..
    DECLARE @bdRecv int
    EXEC @hr = sp_OACreate 'Chilkat.BinData', @bdRecv OUT

    -- Receive the 26 bytes previously sent, plus the LF char.
    EXEC sp_OAMethod @sock, 'ReceiveBdN', @success OUT, 27, @bdRecv
    IF @success = 0
      BEGIN
        EXEC sp_OAGetProperty @sock, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @sock
        EXEC @hr = sp_OADestroy @bdToSend
        EXEC @hr = sp_OADestroy @bdRecv
        RETURN
      END

    -- Show the contents of bdRecv in hex format
    EXEC sp_OAMethod @bdRecv, 'GetEncoded', @sTmp0 OUT, 'hex'
    PRINT @sTmp0

    -- Output:  4142434445464748494A4B4C4D4E4F505152535455565758595A0A

    EXEC @hr = sp_OADestroy @sock
    EXEC @hr = sp_OADestroy @bdToSend
    EXEC @hr = sp_OADestroy @bdRecv


END
GO