关于NMUDP的使用?(50分)

  • 主题发起人 主题发起人 八神庵
  • 开始时间 开始时间

八神庵

Unregistered / Unconfirmed
GUEST, unregistred user!
服务端:
procedure TForm1.Button1Click(Sender: TObject);
var
MyStream: TMemoryStream;
MySendTxt: String;
Begin
NMUDP1.RemoteHost:=Edit2.Text;
MySendTxt := Edit1.Text;
MyStream := TMemoryStream.Create;
try
MyStream.Write(MySendTxt[1], Length(Edit1.Text));
NMUDP1.SendStream(MyStream);
finally
MyStream.Free;
end;
end;

客户端:
procedure TForm1.NMUDP1DataReceived(Sender: TComponent;
NumberBytes: Integer; FromIP: String; Port: Integer);
var
MyStream: TMemoryStream;
MyReciveTxt: String;
begin
MyStream := TMemoryStream.Create;
try
NMUDP1.ReadStream(MyStream);
SetLength(MyReciveTxt,NumberBytes);
MyStream.Read(MyReciveTxt[1],NumberBytes);
Memo1.Lines.Add('接收到来自主机'+FromIP+'的信息:'+MyReciveTxt);
finally
MyStream.Free;
end;
end;

为什么在本机客户端可以接收到服务端发送的数据,而把客户端放到局域网内另一台机上时,客户端却接收不到服务端发来的数据呢?
 
1、可以ping通吗?
2、防火墙有吗?运行这个协议通过吗?
 
谢谢各位,是因为自己改了IP地址,一时忘记地址是什么了,呵呵![:D]
 

Similar threads

后退
顶部