SQL Server

Socket Send and Receive BinData

Demonstrates the Chilkat Socket ReceiveBdN and SendBd methods. SQL Server

--
CREATE PROCEDURE ChilkatSample
AS
BEGIN
    DECLARE @hr int
    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