关于文件流的操作(100分)

liuzongshun · 2006-08-28

我想把图片、文本加入到一个exe文件的后面，然后，当程序运行的时候，从自身读取出来，现实在窗体上。

单个文件的流操作我知道，多个文件加到exe文件后面我也能加上，关键是我不知道怎么样把这些文件取出来？

zbr · 2006-08-28

通过文件流的指针。 ReadBuffer 。

liuzongshun · 2006-08-28

to zbr,
我不知道怎样确定文件的位置，我只会用readbuffer读最后一个文件，能否给写一下。

冰力不足 · 2006-08-28

添加到资源文件我上次在论坛问过

任意的文件作为资源添加到可执行文件
http://www.delphibbs.com/keylife/iblog_show.asp?xid=5273

取出来好象也没有什么特别更详细google有

zbr · 2006-08-28

首先FileStream.Position:= 0;然后执行ReadBuffer(Buffer,Count),每执行一次ReadBuffer,指针就会向后移动Count个字节。你可以这样，在你往文件流里写文件时，可以这样：先把要装入的文件的大小存进流，然后再存此文件，挨个都这样。你读的时候也就好读了。就是把文件的大小赋值给Count.

liuzongshun · 2006-08-28

谢谢楼上两位，我也已经添加到资源文件了，现在关键是不知道怎么从文件流里根据文件实际大小和个数定义好偏移地址，并读出文件。

liuzongshun · 2006-08-28

zbr,谢谢
我试一下

冰力不足 · 2006-08-28

procedure TForm1.Button1Click(Sender: TObject);
var
//mymap:Hbitmap;
resStream:TResourceStream;
sl:TStringlist;
begin
{ mymap:=LoadBitmap(hinstance,'mypic');
Image1.picture.Bitmap.Handle:=mymap; }
//第一步骤要在前面 {$R myfirst.RES}
resStream:=TResourceStream.Create(HInstance,'mypic','txt');
//jpg.LoadFromStream(resStream);
sl:=TStringlist.Create;
sl.LoadFromStream(resStream);
Edit1.Text:=sl[1];

end;

网中戏 · 2006-08-28

楼上的正确、还可以把声音等家到程序里（别加木马呀[

]）

冰力不足 · 2006-08-28

借文感谢 Mike1234567890 没有他一句话启发我做成资源文件我的txt程序放不下

http://www.delphibbs.com/delphibbs/dispq.asp?lid=3542990

象Mike1234567890这种忽然露一句启迪的高人难能可贵衷心感谢!

刘宗顺 · 2006-08-28

还是没读出来

liuzongshun · 2006-08-28

谢谢各位了
问题解决了。原来是偏移地址没有设好，把存文件大小的buffer忽略了。

liuzongshun · 2006-08-28

关于文件流的操作(100分)

liuzongshun

Unregistered / Unconfirmed

zbr

Unregistered / Unconfirmed

liuzongshun

Unregistered / Unconfirmed

冰力不足

Unregistered / Unconfirmed

zbr

Unregistered / Unconfirmed

liuzongshun

Unregistered / Unconfirmed

liuzongshun

Unregistered / Unconfirmed

冰力不足

Unregistered / Unconfirmed

网中戏

Unregistered / Unconfirmed

冰力不足

Unregistered / Unconfirmed

刘宗顺

Unregistered / Unconfirmed

liuzongshun

Unregistered / Unconfirmed

liuzongshun

Unregistered / Unconfirmed

Similar threads