using System;
using System.Runtime.InteropServices;
using System.Reflection;
using System.Runtime.CompilerServices;
using System.Net;
using System.Net.Sockets;
using System.Text;

[assembly: AssemblyTitle("Shining Res Msg Server")]
[assembly: AssemblyDescription("Msg Server")]
[assembly: AssemblyVersion("1.0.0.1")]
[assembly: AssemblyDelaySign(false)]
[assembly: AssemblyKeyFile("MsgSendKey.snk")]
namespace SQLInterop
{
    public interface IResMsg
    {
        string SendMsgToClient();
    }

    [ClassInterface(ClassInterfaceType.AutoDual)]
    public class RMSMessageSendCOM : IResMsg
    {
        public string MsgContext = "";
        public string SendMsgToClient()
        {
            //初始化一个Scoket实习,采用UDP传输
            Socket sock = new Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp);
            //初始化一个发送广播和指定端口的网络端口实例
            IPEndPoint iep = new IPEndPoint(IPAddress.Broadcast, 6888);
            //设置该scoket实例的发送形式
            sock.SetSocketOption(SocketOptionLevel.Socket, SocketOptionName.Broadcast, 1);
            IPHostEntry ipHost = Dns.Resolve(Dns.GetHostName());
            IPAddress ipAddr = ipHost.AddressList[0];
            //string msg = Encoding.GetEncoding("GBK").GetString(buffer,0,buffer.Length);
            byte[] buffer = Encoding.GetEncoding("GBK").GetBytes(MsgContext);
            sock.SendTo(buffer, iep);
            sock.Close();
            return "Send Msg OK!";
        }
    }
}

USE [rmsdb]
GO
/****** Object:  StoredProcedure [dbo].[proc_SendMsgToClient]    Script Date: 04/27/2013 08:57:39 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO



ALTER   proc [dbo].[proc_SendMsgToClient](@MsgContext varchar(4000))
/*
使用COM+发送局域网广播消息
@MsgContext varchar(4000) 消息内容
返回值: Send Message OK.表示发送成功
 */
as

DECLARE @object int 
DECLARE @hr int 
DECLARE @property varchar(255) 
DECLARE @return varchar(255) 
DECLARE @src varchar(255), @desc varchar(255) 

EXEC @hr = sp_OACreate 'SQLInterop.RMSMessageSendCOM', @object OUT 
IF @hr <> 0 
BEGIN 
EXEC sp_OAGetErrorInfo @object, @src OUT, @desc OUT 
SELECT hr=convert(varbinary(4),@hr), Source=@src, Description=@desc 
RETURN 
END 

EXEC @hr = sp_OASetProperty @Object, 'MsgContext', @MsgContext
IF @hr <> 0 
BEGIN 
EXEC sp_OAGetErrorInfo @object, @src OUT, @desc OUT 
SELECT hr=convert(varbinary(4),@hr), Source=@src, Description=@desc 
RETURN 
END 


EXEC @hr = sp_OAMethod @object, 'SendMsgToClient', @return OUT 
IF @hr <> 0 
BEGIN 
EXEC sp_OAGetErrorInfo @object, @src OUT, @desc OUT 
SELECT hr=convert(varbinary(4),@hr), Source=@src, Description=@desc 
RETURN 
END 
PRINT @return

EXEC @hr = sp_OADestroy @object 
IF @hr <> 0 
BEGIN 
EXEC sp_OAGetErrorInfo @object, @src OUT, @desc OUT 
SELECT hr=convert(varbinary(4),@hr), Source=@src, Description=@desc 
RETURN 
END