SQLserver通过CLR调用TCP接口

一、SQLserver启用CLR

• 查看是否开启CRL，如果run_value=1，则表示开启

EXEC sp_configure 'clr enabled';
GO
RECONFIGURE;
GO

• 如果未启用，则执行如下命令启用CLR

sp_configure 'clr enabled', 1;
GO
RECONFIGURE;
GO

二、创建 CLR 程序集

• 创建新项目
  打开 Visual Studio，创建一个新的类库项目，命名为TcpClientWrapper，目标框架选择 .NET Framework 3.5。
  
  

• 编写 TCP 通信代码
  在Class1.cs文件中添加如下代码

using System;
using System.Data.SqlTypes;
using System.IO;
using System.Net.Sockets;
using Microsoft.SqlServer.Server;

public class TcpClientWrapper
{

    private static TcpClient client;

    [SqlFunction]
    public static SqlString CallTcpService(SqlString host, SqlInt32 port, SqlString message)
    {
        try
        {
            if (client == null || !client.Connected)
            {
                client = new TcpClient(host.Value, port.Value);
            }
            using (NetworkStream stream = client.GetStream())
            {
                using (var writer = new StreamWriter(stream))
                using (var reader = new StreamReader(stream))
                {
                    // Send the message to the TCP server.
                    writer.Write(message.Value);
                    writer.Flush();

                    // Read the response from the TCP server.
                    int response = reader.Read();
                    char character = Convert.ToChar(response);
                    //string response = reader.ReadToEnd();

                    return new SqlString(response + "_" + character);
                }
            }
        }
        catch (Exception ex)
        {
            return new SqlString("Error: " + ex.Message);
        }
    }
}

• 编译项目
  会在 {项目路径}/bin/debug 下生成DLL文件，
  
  

三、部署程序集到SQLserver

• 将生成的dll文件上传到SQLserver服务器上，记录文件路径
• 执行以下命令将程序集加载到 SQL Server

-- 因为程序中使用了静态成员变量，所以需要UNSAFE模式，否则会报错，建议使用SAFE、EXTERNAL_ACCESS模式
CREATE ASSEMBLY TcpClientWrapper FROM 'C:\test\TcpClientWrapper.dll' WITH PERMISSION_SET = UNSAFE;

-- 删除 ASSEMBLY 
DROP ASSEMBLY TcpClientWrapper;

• 创建函数以调用程序集中的方法

CREATE FUNCTION dbo.CallTcpService(@host NVARCHAR(255), @port INT, @message NVARCHAR(MAX))
RETURNS NVARCHAR(MAX)
AS EXTERNAL NAME TcpClientWrapper.[TcpClientWrapper].CallTcpService;

四、调用TCP接口

DECLARE @response NVARCHAR(MAX);
SET @response = dbo.CallTcpService('127.0.0.1', 8899, '好');
PRINT @response;

数据库端：

服务端：