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

Question

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

Answer 1

用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;

Answer 2

btnRead的Click事件，这里演示了TFileStream的用法。 var 
MS: TFileStream; 
begin 
if OpenDialog1.Execute then 
begin 
MS:=TFileStream.Create 
(OpenDialog1.FileName, fmOpenRead); 
 
end; 
end;
这时利用打开文件对话框来浏览到你要的文件，然后打开的效果。ms就是经文件读入到内存