在delphi中如何读取二进制文件？

[werewolf1012]

我现在要读取二进制文件不知道怎么读
请教，谢谢！！！

[chl_ccssddnn]

btnRead的Click事件，这里演示了TFileStream的用法。

var
MS: TFileStream;
begin
if OpenDialog1.Execute then
begin
MS:=TFileStream.Create
(OpenDialog1.FileName, fmOpenRead);

end;
end;
这时利用打开文件对话框来浏览到你要的文件，然后打开的效果。ms就是经文件读入到内存

[flyinwuhan]

用TFileStream
例：
var
f : TFileStream;
p : PBYTE;
size : DWORD;
begin

f := TFileStream.Create( 'c:\command.com', fmOpenRead );
p := AllocMem( f.size );
f.read( p^, f.Size );//读到p申请的内存中

f.free;
FreeMem( p );

end;