sqlserver扩展存储过程用clientsocket实现数据传输

我用delphi写了一个dll做为sqlserver的扩展存储过程，在这个dll中我添加了一个数据模块，并在上面放置了一个clientsocket组件，并设置为异步传输类型，然后编写了两个函数接口：一个传入服务端ip和端口，并设置active为true；第二个传入要发送的消息，然后用ClientSocket1.Socket.SendText(‘消息’)进行发送。写好之后放入sqlser安装目录的binn目录下，然后执行sql语句：Use Master
IF object_id('SocketIni') IS NOT NULL EXEC sp_dropextendedproc 'SocketIni'
IF object_id('SendMsgToCA') IS NOT NULL EXEC sp_dropextendedproc 'SendMsgToCA'
EXEC sp_addextendedproc 'SocketIni', 'SMSServerDll.dll'
EXEC sp_addextendedproc 'SendMsgToCA', 'SMSServerDll.dll'
EXEC master..SocketIni '192.168.1.189','3008'
EXEC master..SendMsgToCA '测试消息'
EXEC sp_dropextendedproc 'SocketIni'
EXEC sp_dropextendedproc 'SendMsgToCA'
DBCC SPEncrypt(FREE)
执行成功后，服务端没有任何反应，找了好久，不知道问题出在哪里？故特此向各位前辈、同行请教！