八
八神庵
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;
为什么在本机客户端可以接收到服务端发送的数据,而把客户端放到局域网内另一台机上时,客户端却接收不到服务端发来的数据呢?
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;
为什么在本机客户端可以接收到服务端发送的数据,而把客户端放到局域网内另一台机上时,客户端却接收不到服务端发来的数据呢?