如何把一个二进制文件读入byte数组中

Question

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
  sm:tmemorystream;
  byt:array of byte;
  icount:integer;begin
  sm := TMemorystream.Create;
  sm.LoadFromFile('c:\1.bmp');
  iCount := sm.size;
  setlength(byt,icount);
  //  copymemory(bye,sm.
  //move(sm.memory^,byt,icount);
  //sm.Clear;
  sm.Read(byt[0],icount);
  sm.SetSize(0);
  //move(byt,sm.memory^,icount);
  sm.Write(byt[0],icount);
  sm.SaveToFile('c:\2.bmp');
end;

Answer 1

procedure TForm1.Button5Click(Sender: TObject);
var
  MyFile : TFileStream;
  Buf : Byte;
  Buffer:array of byte;
  i:integer;
begin
    MyFile := TFileStream.Create('e:\11.sav',fmOpenRead);
    SetLength(Buffer,MyFile.Size-1);
    try
      MyFile.Position := 0;
      MyFile.Seek(0,0);
    for i:=0 to MyFile.Size-1 do
    begin
      MyFile.Read(Buf,sizeof(buf));
      Buffer[i]:=Buf;
    end;
    finally
      MyFile.Free;
    end;
end;