Delphi：如何將TStream中的數據放入TStgMedium進行OLE處理？

Question

我需要使用Delphi管理OLE拖放操作。現在我遇到了問題 - 我需要將TStream中的一些數據放入全局TStgMedium中（通過使用IDataObject的OLE方法發送它）。

我想應該有一些常用的模式來做到這一點？你能提供一些示例代碼嗎？

Answer 1

這可能是最容易使用TStreamAdapter到TStream實例改編成IStream。

另一種突破方法是將HGLOBAL傳遞給IDataObject.SetData，但對於大型數據流來說效率會有些低下。