知道“流”的come in！(200分)

idoudo · 2006-07-19

var Source:TFileStream; Target:TMemoryStream; MyFileSize:integer; begin try Target:=TMemoryStream.Create; Lastit:=TMemoryStream.Create; Source:=TFileStream.Create(SourceFile,fmOpenRead or fmShareDenyNone); try Source.Seek(-sizeof(MyFileSize),soFromEnd);//！！！ Source.ReadBuffer(MyFileSize,sizeof(MyFileSize));//！！！读出资源大小 Source.Seek(-MyFileSize,soFromEnd);//！！！定位到资源位置 Target.CopyFrom(Source,MyFileSize-sizeof(MyFileSize));//！！！取出资源 Target.SaveToFile(TargetFile);//存放到文件 finally Target.Free; Source.Free; end; except Result:=false; Exit; end; Result:=true; 谁能解释下！！！的地方  到底是怎么回事，网上找不到详细的意思。 比如 Source.Seek(-sizeof(MyFileSize),soFromEnd);//当soFromEnd时其中第一个参数奥0或负数的但什么时候是0，什么时候是负数呢~ 那个MyFileSize的作用是什么？ 有什么资料可以让像我这样从0开始学的~~

hityou · 2006-07-19

Source.Seek(-sizeof(MyFileSize),soFromEnd);//！！！ 从文件尾部开始,定位到文件的头,负数表示向前移动指针,整数表示向后移动. Source.ReadBuffer(MyFileSize,sizeof(MyFileSize));//！！！读出资源大小 读完了之后,指针自动到了文件尾部,所以还要在seek回来. 别的你写的挺明白的.

网中戏 · 2006-07-19

//这样写你应该明白了吧 Source.Seek(-sizeof(integer),soFromEnd);//！！！读尾巴的4个字节。 Source.ReadBuffer(MyFileSize,sizeof(integer));//！！！读出资源大小 // 这4个字节里保存着文件的大小信息 Source.Seek(-MyFileSize,soFromEnd);//！！！定位到资源位置 //读上（上面）字节 Target.CopyFrom(Source,MyFileSize-sizeof(integer));//！！！取出资源 //读数据。必须把尾巴的大小去除

木桩 · 2006-07-19

楼上已经说了，来晚了...

爱冉冉的哥哥 · 2006-07-19

不知道

dcs_dcs · 2006-07-19

Stream的问题delphi的help都讲的很详细的了

zhaokaien · 2006-07-19

hityou回答的正确

idoudo · 2006-07-20

Source.Seek(-sizeof(MyFileSize),soFromEnd);//！！！ 从文件尾部开始,定位到文件的头||负数表示向前移动指针,整数表示向后移动. -------------------------有点理解了…… 1.  负数表示向前(文件头部指向尾部的方向？)移动指针（也就是说不在文件的地址里，而是在它的后面？）,整数则反之。 2.  还有我把source指定到一个文件（899KB），然后我在 Source.ReadBuffer(MyFileSize,sizeof(MyFileSize));后面加了一句 showmessage('MyFileSize= '+inttostr(MyFileSize));//这个‘MyFileSize’应该是这个文件的大小了吧（网中戏说‘这4个字节里保存着文件的大小信息 ’），但为什么它显示出来的是“615940”呢？而不是899*1024（920576）呢？ 3.  Source.Seek(-sizeof(integer),soFromEnd);//是不是说 integer大小的地址就可以放的下文件的大小了？如果integer还放不下文件的大小那就会出错！！？ 4.  Target.CopyFrom(Source,MyFileSize-sizeof(MyFileSize));//！！！取出资源 这里的‘MyFileSize-sizeof(MyFileSize)’不就是0了吗？ 网中戏--‘//读数据。必须把尾巴的大小去除’你的意思是不是把source文件的后面东西去掉？但事实好象是把文件后面的拿（COPY）过来，放到Target里去的。 ---Sorry，又提出那么多的问题来了 ~~[

][

]

djrj · 2006-07-20

看看DELPHI的帮助,最多就把也一起金山词打开, 理解了就好的啊,关健的我想也就这几个Position,Seek,ReadBuf,WriteBuf,CopyFrom... 最主要的当是Position了,时刻都要很清楚当前的Position是什么

iseek · 2006-07-20

建议实际做个例子,在例子中多showmessage几次position,想看清楚点的话,还可以随时ms.saveToFile('c:/test.txt');就明白了. 我最初也是对流非常困惑,弄不清是人流还是物流,是上流还是下流

动手写个test,将seek,copyfrom,setSize,read,write等几个函数统统都用上,十分钟后,你会觉得：不过尔尔.

idoudo · 2006-07-20

iseek  挺幽默的~~[

]  我原来在一个别人的例子上看的~~改起来特麻烦； ‘十分钟后,你会觉得：不过尔尔. ’ 试试~呵呵

idoudo · 2006-07-25

http://www.delphibbs.com/keylife/iblog_show.asp?xid=23218 这个  例题  我有几个不明白的地方。 加密中：Target.WriteBuffer(MyFileSize,sizeof(MyFileSize)); 为什么要用“sizeof(MyFileSize）”直接 “4” 不就一样了啊！~ 同理的问题就在解密函数中：Source.Seek(-sizeof(MyFileSize),soFromEnd); Source.ReadBuffer(MyFileSize,sizeof(MyFileSize));//读出资源大小 直接“Source.ReadBuffer(MyFileSize,4);”  不也一样吗？   因为 “sizeof(MyFileSize）”就是4 嘛~~~~~~~ 这个问题捆饶我好长了~~~~~~~~~~

hityou · 2006-07-25

在程序中通常都是要避免直接使用常数的，那样对于以后的升级维护很麻烦。 比如你的结构提改了，哪4期不是也要改。有可能就忽略了导致错误。

idoudo · 2006-07-26

Position,Seek,ReadBuf,WriteBuf,CopyFrom...中 Position,Seek,CopyFrom  这三个我已经明白了~~现在就是 ReadBuf,WriteBuf 这2函数用法含义不懂~

tswhq · 2006-07-26

ReadBuffer(变量,sizeof(变量)) 从流中当前位置读取sizeof(变量)个数据到变量中 WriteBuffer(变量,sizeof(变量)) 将变量中的sizeof(变量)个数据写入流中当前位置 注意Position,Seek与上两个函数配合使用

idoudo · 2006-07-28

我本来也是这么理解的,可是 Read(integervar,sizeof(integervar));读出来的数据大小却不一样/? show出来的integervar 有33232132那么位数大小的数文件的postion也没有在最后啊~~为什么会出现这个情况呢. 哎,还是要自己都加练习了

zqw0117 · 2006-07-28

SizeOf是算变量占用的实际内存字节大小。Integer占用4个字节，所以你的Read只不过读了4个字节而已。 ShowMessage(IntToStr(SizeOf(Intergervar))); 自己看

zqw0117 · 2006-07-28

而你那个33232132是integervar这个变量的值。

老大，救我！ · 2006-07-30

Read(ir,4); //这个是4是存放ir大小的地址大小；就是说ir要小于2^（4*8）大小

idoudo · 2006-08-03

多人接受答案了。

知道“流”的come in！(200分)

idoudo

Unregistered / Unconfirmed

hityou

Unregistered / Unconfirmed

网中戏

Unregistered / Unconfirmed

木桩

Unregistered / Unconfirmed

爱冉冉的哥哥

Unregistered / Unconfirmed

dcs_dcs

Unregistered / Unconfirmed

zhaokaien

Unregistered / Unconfirmed

idoudo

Unregistered / Unconfirmed

djrj

Unregistered / Unconfirmed

iseek

Unregistered / Unconfirmed

idoudo

Unregistered / Unconfirmed

idoudo

Unregistered / Unconfirmed

hityou

Unregistered / Unconfirmed

idoudo

Unregistered / Unconfirmed

tswhq

Unregistered / Unconfirmed

idoudo

Unregistered / Unconfirmed

zqw0117

Unregistered / Unconfirmed

zqw0117

Unregistered / Unconfirmed

老大，救我！

Unregistered / Unconfirmed

idoudo

Unregistered / Unconfirmed

Similar threads