复制图片问题

[pilotage]

LPNGImage := TPNGImage.Create;
try
LPNGImage.LoadFromFile(AFileName);
ClipBoard.Assign(LPNGImage);
finally
LPNGImage.Free;
end;

复制的图片有的时候图片会是一个白图片，什么内容也没有，有时还会报错 out of system resources

[天行归来]

问题应该出在png对象销毁上。
LPNGImage.Free;
对象销毁，粘贴操作的时候，ClipBoard对象里的png对象也可能是空的，取决于操作系统什么时候真正释放。

[pilotage]

Assign 不是做了一个克隆吗？

[lyhoo163]

Assign，是分配或指派，它不是赋值。当Assign指派后，原内存Free，这个指定也就无意义了。
你的代码，指Assign，随后Free被指派的对象。它当然是空白了。

[pilotage]

感谢 感谢 ，明白了