在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;
解决方法
在UpdateResource()的lpData参数中,您需要传递TMemoryStream.Memory属性的值而不是TMemoryStream对象指针的值,例如:
procedure StringtoRes (const FileName: string; Inputstream: TMemoryStream); var hUpdate: THandle; begin hUpdate := BeginUpdateResource(PChar(FileName),True); try UpdateResource(hUpdate,InputStream.Memory,InputStream.Size); finally EndUpdateResource(hUpdate,False); end; end;
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。