N
netkk
Unregistered / Unconfirmed
GUEST, unregistred user!
我在资源中加入了 RCDATA 类型的资源 RCDATA_1(来自一个文件)，<br>我怎样能把它再保存为一个新文件。<br>我已用 FindResource, LoadResource 得到这个资源，<br>但不知道怎样保存为一个文件？<br>请帮助！
K
kasly
Unregistered / Unconfirmed
GUEST, unregistred user!
好象编程工具的菜单里有这么一项，是saveresource的对话框<br>你只要打开对话框然后loadresource就可以了！
B
boy_zyz
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.Button1Click(Sender: TObject);<br>var<br> hand:HGLOBAL;<br> hr :HRSRC;<br> content 
char;<br>begin<br> SetLastError (0);<br> hand :=0;<br> hr :=FindResource(0,'RCDATA_1',RT_RCDATA);<br> hand :=LoadResource(0,hr);<br> if hand=0 then<br> showMessage(SysErrorMessage(GetLastError()))<br> else<br> begin<br> content :=LockResource(hand);<br> Memo1.Lines.Text :=content;<br> end;<br>end;<br>content就是你要的东西，至于存成其他文件，memo1.lines已经可以。也可以用流来保存。<br>
char;<br>begin<br> SetLastError (0);<br> hand :=0;<br> hr :=FindResource(0,'RCDATA_1',RT_RCDATA);<br> hand :=LoadResource(0,hr);<br> if hand=0 then<br> showMessage(SysErrorMessage(GetLastError()))<br> else<br> begin<br> content :=LockResource(hand);<br> Memo1.Lines.Text :=content;<br> end;<br>end;<br>content就是你要的东西，至于存成其他文件，memo1.lines已经可以。也可以用流来保存。<br>
S
Sachow
Unregistered / Unconfirmed
GUEST, unregistred user!
首先用一个TFileStream读出源文件，再创建一个TMemoryStream，<br>把这个内存流CopyFrom(源文件流, 长度)，再SaveToFile(文件名）
N
netkk
Unregistered / Unconfirmed
GUEST, unregistred user!
各位，<br>请看以下代码<br>var<br> res: TResourceStream;<br>begin<br> res:=TResourceStream.Create(HInstance, 'RCDATA_1', RT_RCDATA);<br> res.SaveToFile('MyResFile.dat');<br> res.Free;<br>end;<br><br>谢谢各位！
N
netkk
Unregistered / Unconfirmed
GUEST, unregistred user!
接受答案了.
