关于网络信使服务的问题，欢迎继续跟贴，300分相送，完了后继续另起贴字给分！！！！

1、我得信使服务，在局域网内可以发送自如，可是在广域网了就不行了，不知道该如何解决；
2、针对那些ip可以发送过去，QQ上显示的ip:219.145.72.212:3371,与机器本身的ip根本不一样，':'后的3371不知道又是做什么用的，这样的ip我也没有发送成功过，如何正确的发送信使。
3、看看源码：
function ToUnicode(str:string;dest:PWideChar):integer;
var
  len:integer;
begin
  StringToWideChar(str,dest,len);
  Result:=len;
end;function SendMsg(fromh,Toh,Msg:string):integer;
var
  ToName,fromname:array[0..64] of WideChar;
  WMsgText:array[0..1000] of WideChar;
  MsgLen,i:integer;
begin
  for i:=0 to 64 do ToName[i]:=#0;
  ToUnicode(Toh,ToName);
  for i:=0 to 1000 do WMsgText[i]:=#0;
  ToUnicode(Msg,WMsgText);
  for i:=0 to 64 do fromname[i]:=#0;
  ToUnicode(fromh,fromname);
  Result:=NetMessageBufferSend(nil,ToName,fromname,@WMsgText,MsgLen); //没有写我们的名称
end;