有关文件的读写！急……(100分)

D

daileking

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-05

• #1

我要读出一个二进制的字库文件，72字节表示一个汉字的点阵，
三个字节一竖（3*8=24点），共24竖 。在Delphi中怎么读到
没一位的0.1（0代表没有点，1代表有点）。还有一个字库文件
有2M多，怎么样才能做到读取速度比较快？（有可能从半当中读）
在Delphi中怎么样打开二进制文件读写。？
最好详细一点！

 

刘

刘李子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-05

• #2

请弄懂TFileStream

 

B

bigroute

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-05

• #3

详细点。

 

D

daileking

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-05

• #4

就是说文件中回车是0x0d,0x0a
啊字是0xB0,0xA1等等
用文本打开看到是“啊”
用二进制打开是0xb0,0xa1
我现在就是要得到二进制的数据。
在c中是这样写的
fp=open(OpenDialog1->FileName.c_str(),O_BINARY | O_RDWR,S_IREAD | S_IWRITE);
在delphi中是否有类似O_BINARY这样的参数
我这样说应该很明白了吧、
我要的是二进制的数。怎么样打开一个文件用二进制的形式？

 

H

howasoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-05

• #5

procedure TForm1.Button1Click(Sender: TObject);
var
f1 : file of byte;
buf : array [1..72] of byte;
begin
AssignFile(F1,'cclib24');
Reset(F1);
seek(f1,10*72);//读第10个字
blockread(f1,buf,72);
CloseFile(F1);
//然后对每一位进行比较就可以知道了。
//你要的这种方法早在DOS时代我们就玩过了，从字库中读出内容然后自己画出字来。
//不过还是挺好玩的。
//当时我们用的还是TURBO PASSCAL 4

end;

 

D

daileking

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-05

• #6

我用Cb做了一个读字库的程序
出现读出很慢，
怎么样才能让读写速度加快？