会者不难－－关于按指定格式读写二进制文件中的指定位置(20分)

S

SuperJS

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-17

• #1

我想按指定的数据类型格式，读取一个二进制文件中指定的位置。
我用了TFileStream，设置Postion但是没有效果，
比如说我想读取一个四个字节的integer型数据Buffer到底该怎么写呢？
万分感谢！

 

S

SuperJS

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-17

• #2

没人来看看吗？？？

 

K

kindly

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-17

• #3

var
i:Integer;
s:TFileStream;
begin
s:=TFileStream.Create('data.bin',fmOpenRead);
s.Seek(200,soFromBeginning);
s.Read(i,4);
ShowMessage(Format('%x',));
s.Free;
end;

 

S

SuperJS

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-17

• #4

但是如果我要读的是2个字节的ｉｎｔｅｇｅｒ数据的话好像不可以唉，
前面会有莫名其妙的值，我把Ｒｅａｄ改成2了，还是不行！

 

T

timerri

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-17

• #5

我昏
integer本身就占4个字节
定义的时候定义i:smallint;
这个时候才是16位的

 

C

creation-zy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-17

• #6

>>前面会有莫名其妙的值
你应该在读取之前将i清零——因为Integer有4Bytes，你的读取过程仅仅修改了其中的2Bytes，
另外的2Bytes是无法预测的。

s.Seek(200,soFromBeginning);
i:=0; //清空
s.Read(i,2); //读取2Bytes

 

K

kindly

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-17

• #7

一会没来看，都被别人说去啦～～
他们说的都是对的，结帖子吧

 

S

SuperJS

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-17

• #8

不好意思，各位，这个我知道了，但是又有一个问题了，
比如说我测试的时候先ｗｒｉｔｅ一个数值进去，然后马
上ｒｅａｄ，但是问题出来了，这个时候ｒｅａｄ出来的值都为０，
ｒｅａｄ和ｗｒｉｔｅ用的Ｂｕｆｆｅｒ是同一个！
这样有什么问题吗？

 

S

SuperJS

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-17

• #9

可惜这里不可以象ｃｓｄｎ一样加分，不过大家都很热情啊，我再问个问题！
我想判断一个对象是不是已经创建该怎么写呢？
在我的程序中
begin
if mObj<>nil then FreeAndNil(mObj);　//防止另外的过程没有执行
mObj:=TObject.Create(...);

end　　　


在另外的过程中有　FreeAndNil(mObj);


但是我这样写是不对的，机器会死掉啊！各位再帮帮忙吧！

 

S

SuperJS

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-17

• #10

对了，我补充一点，我打开文件方式是：fmShareDenyNone+fmOpenReadWrite！
谢谢先！

 

K

kindly

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-17

• #11

废话，write之后，指针就跳了，要seek到你刚才写的地方在读
机器死掉还不至于吧， if Assigned(mObj) then xxxx就行了

 

S

SuperJS

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-17

• #12

特别感谢kindly对我的帮助，
小弟用ｖｂ时间比较长，刚开始学Delphi6，
不太习惯还请各位多多帮忙！
小弟这里先谢过各位了！