procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
ABinding: TIdSocketHandle);
var
DataStream: TStream;
s: String;
begin
DataStream := TStream.Create('');
Image.Canvas.Lock;
try
DataStream.CopyFrom(AData, AData.Size);
//......这里应该怎么样写呢? finally
Image.Canvas.Unlock;
DataStream.Free;
end;
end;
ABinding: TIdSocketHandle);
var
DataStream: TStream;
s: String;
begin
DataStream := TStream.Create('');
Image.Canvas.Lock;
try
DataStream.CopyFrom(AData, AData.Size);
//......这里应该怎么样写呢? finally
Image.Canvas.Unlock;
DataStream.Free;
end;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货