T
tmnet
Unregistered / Unconfirmed
GUEST, unregistred user!
因为程序需要,我在程序里需要把数据和图象放在一起,<br>放在一起很简单,但是要正确读取却很难了。我设计了下面的<br>代码,但可惜是错误的。希望各位大侠不吝赐教。<br> 写入:<br>fs:=tfilestream.create('d:/m.dat',fmcreate);<br>fs.write('kkllkkll',8);<br>fp:=fileopen('d:/temp.bmp',0);<br>dwsize:=getfilesize(fp,nil);<br>getmem(p,dwsize);<br>fileread(fp,p^,dwsize);<br>fs.write(p^,dwsize);<br>freemem(p);<br>fs.free;<br> 读出:<br>fs:=tfilestream.create('d:/m.dat',fmfileopen);<br>fs.read(s,8);<br>bmp:=tbitmap.create;<br>bmp.loadfromstream(fs);<br>form1.canvas.draw(0,0,bmp);<br>bmp.free;<br>fs.free;<br>