读取2进制文件(0分)

C

cmen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-27

• #1

我是新手，现有一个问题请教：
要从一个二进制文件读取内容（该二进制文件内容中包含有#0的字符），并赋值给一个变量,再经过运算后与另一个字符串进行比较。现在是怎么才可以读取二进制文件的内容而不被#0字符影响

 

Y

YANGWEI0308

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-28

• #2

用FileStream
f:=FileStream.Create(文件路径);

 

C

cmen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-28

• #3

编译时提示：
Undeclared identifier: 'FileStream'
Missing operator or semicolon

 

F

fftou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-01

• #4

TFileStream

 

C

cmen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-02

• #5

能给出详细代码吗？

 

J

jackchin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-02

• #6

var
S: TFileStream;
Buf: array[0..1023] of Char;
begin
S := TFileStream.Create(FileName, fmOpenRead);
S.Read(Buf, 1024);
S.Free;
end

 

C

cmen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-02

• #7

var
S: TFileStream;
Buf: array[0..1023] of Char;
cc: string;
nn: integer;
begin
S := TFileStream.Create(FileName, fmOpenRead);
S.Read(Buf, 1024);
S.Free;
cc:=Buf;
nn:=length(cc);
end

nn返回的并不是1024，而是只到#0字符的地方

 

J

jackchin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-04

• #8

Buf本来就不是string, 为什么要cc:=Buf呢?

 

C

cmen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-04

• #9

那么，我怎样把读出来的内容进行必要的运算后与另一个字符串进行比较？

 

G

guifuli

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-09

• #10

var
MS: TMemoryStream;
begin
MS := TMemoryStream.Create;
try
MS.LoadFromFile(FileName);
//do something with MS
finally
MS.Free;
end;
end;

 

X

xuhao1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-09

• #11

procedure TForm1.Button1Click(Sender: TObject);
var iFileHandle, FileSize:integer;
Buf:string;
begin
iFileHandle := FileOpen('c:/1.gif', fmOpenRead);
if iFileHandle = -1 then
ShowMessage('Open Error')
else begin
FileSize := FileSeek(iFileHandle, 0, 2);
FileSeek(iFileHandle, 0, 0);
SetLength(Buf, FileSize);
FileRead(iFileHandle, Buf[1], FileSize)
//[1]必需有
FileClose(iFileHandle);
end;
end;

与另一个字符串比较
if Buf = str then

 

C

cmen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-11

• #12

接受答案了.