现在我实现的就只能从客户端往服务器端发数据
下面是发送 WSocket2.Proto := 'udp';
WSocket2.Addr := 'localhost';
WSocket2.Port := '22222';
if WSocket2.HSocket = -1 then
WSocket2.Connect;
WSocket2.Send(BytesOf('人人人人人'), 10);
下面是服务器接收procedure TForm4.WSocket1DataAvailable(Sender: TObject; ErrCode: Word);
var
Buffer: TBytes;
Len: Integer;
Src: TSockAddr;
SrcLen: Integer;
begin
SetLength(Buffer, WSocket1.BufSize);
SrcLen := SizeOf(Src);
Len := WSocket1.ReceiveFrom(@Buffer[0], Length(Buffer), Src, SrcLen);
Memo1.Lines.Add(StringOf(Buffer));
WSocket1.SendTo(Src, SrcLen, BytesOf('回发'), 4); //这里这两个“回发”,客户端无法收到
end;请问该如何才能实现服务器主动下发数据到UDP客户?
下面是发送 WSocket2.Proto := 'udp';
WSocket2.Addr := 'localhost';
WSocket2.Port := '22222';
if WSocket2.HSocket = -1 then
WSocket2.Connect;
WSocket2.Send(BytesOf('人人人人人'), 10);
下面是服务器接收procedure TForm4.WSocket1DataAvailable(Sender: TObject; ErrCode: Word);
var
Buffer: TBytes;
Len: Integer;
Src: TSockAddr;
SrcLen: Integer;
begin
SetLength(Buffer, WSocket1.BufSize);
SrcLen := SizeOf(Src);
Len := WSocket1.ReceiveFrom(@Buffer[0], Length(Buffer), Src, SrcLen);
Memo1.Lines.Add(StringOf(Buffer));
WSocket1.SendTo(Src, SrcLen, BytesOf('回发'), 4); //这里这两个“回发”,客户端无法收到
end;请问该如何才能实现服务器主动下发数据到UDP客户?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货