将流写入RCDATA资源

Question

在delphi中，如何将MemoryStream写入数据资源？

procedure StringtoRes (filename:string; Inputstream: TMemoryStream);
var
 hUpdate: THandle;
begin
 hUpdate := BeginUpdateResource(PChar(filename), True);
 UpdateResource(hUpdate, RT_RCDATA, 'ID', LANG_NEUTRAL,InputStream,InputStream.Size);
 EndUpdateResource(hUpdate,False);
end;

这段代码给了我一个访问冲突和强烈的不适感，因为我甚至不知道从哪里开始修复它。有人吗？

Answer 1

在lpData的{​​{1}}参数中，您需要传递UpdateResource()属性的值而不是TMemoryStream.Memory对象指针，例如：

TMemoryStream