传送和接受的大小相同:
接受的代码:
procedure TServer.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
ABinding: TIdSocketHandle);
RsltStream.CopyFrom(AData,AData.Size);
if RsltStream.Size <= self.IdUDPServer1.BufferSize then
begin
RsltStream.Position:=0;
Image1.Picture.Bitmap.LoadFromStream(RsltStream);//出错,说图象无效!
RsltStream.Clear;
end
接受的代码:
procedure TServer.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
ABinding: TIdSocketHandle);
RsltStream.CopyFrom(AData,AData.Size);
if RsltStream.Size <= self.IdUDPServer1.BufferSize then
begin
RsltStream.Position:=0;
Image1.Picture.Bitmap.LoadFromStream(RsltStream);//出错,说图象无效!
RsltStream.Clear;
end
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货