很简单的问题 ！！ 如何 asp.net 使用 socket 发送信息到 应用程序 哪里!!!!! 急。。。。。。。。

Question

很简单的问题 ！！ 如何 asp.net 使用 socket 发送信息到 应用程序 哪里!!!!! 要求使用 VB.NET  急。。就是在 asp.net 用 tcp 发信息到  一个 用delphi 开发的程序， 用delphi 开发的程序 已经 打开 522 端口侦听, 地址是 本机 就是 127.0.0.1
现在只需要 asp.net 用 tcp 发信息到 127.0.0.1:522 就可以了 , 信息是  英文或中文 ，字符的数量不是很多。
要求使用 VB.NET 语句，谢谢！！！请给出详细的代码！！！！！

Answer 1

public static bool SendMsg(string strMsg)
{
if (strMsg.Trim() != "")
{

Socket skt = new Socket(AddressFamily.InterNetwork,SocketType.Stream,ProtocolType.IP);
IPAddress myIp = IPAddress.Parse(_IpAddr);
EndPoint ipe = new IPEndPoint(myIp,_Port); //连接业务层接口
try
{
skt.Connect(ipe);
}
catch (ArgumentNullException ae)
{
Console.WriteLine("连接Socekt参数为空：{0}",ae.ToString());
return false;
}
catch (SocketException se)
{
Console.WriteLine("访问Socket进操作系统出错：{0}",se.ToString());
return false;
}
catch (Exception e)
{
Console.WriteLine("Socket连接业务层接口失败：{0}",e.ToString());
return false;
}

//发送Socket消息
try
{
byte[] byteSend = new byte[1024];
byteSend = Encoding.Default.GetBytes(strMsg.Trim());
skt.Send(byteSend,byteSend.Length,0);
skt.Close();
return true;
}
catch (ObjectDisposedException oe)
{
Console.WriteLine("Socket已经关闭：{0}",oe.ToString());
return false;
}
catch (Exception e)
{
Console.WriteLine("Socket消息发送失败：{0}",e.ToString());
return false;
}

}
else
{
return false;
}
}

Answer 2

_IpAddr,_Port分别设置为127.0.0.1,port设置为522

Answer 3

不知道你在DELPHI里的接收是怎么写的，如果是用的indy组件的话，你正好可以使Indy的VS版，这样程序就简单化了。

Answer 4

在 delphi 我用的是 socketServer 接收