把字节数组读入到流

var {模拟三种字节数组}
  staticArr: array[0..6] of Byte = (65, 66, 67, 68, 69, 70, 71);
  dyanmicArr1: TBytes;
  dyanmicArr2: array of Byte;

procedure TForm1.Button1Click(Sender: TObject);
var
  stream: TMemoryStream;
begin
  stream := TMemoryStream.Create;
  stream.SetSize(SizeOf(staticArr));
  CopyMemory(stream.Memory, @staticArr, SizeOf(staticArr));
  stream.SaveToFile('C:/Temp/001.txt');
  stream.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  stream: TMemoryStream;
  i: Integer;
begin
  SetLength(dyanmicArr1, 7);
  for i := 0 to High(dyanmicArr1) do dyanmicArr1[i] := 65 + i;
  stream := TBytesStream.Create(dyanmicArr1);
  stream.SaveToFile('C:/Temp/002.txt');
  stream.Free;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  stream: TMemoryStream;
  i: Integer;
begin
  SetLength(dyanmicArr2, 7);
  for i := 0 to High(dyanmicArr2) do dyanmicArr2[i] := 65 + i;
  stream := TBytesStream.Create(TBytes(dyanmicArr2));
  stream.SaveToFile('C:/Temp/003.txt');
  stream.Free;
end;

---

转自：http://www.cnblogs.com/del/archive/2011/01/17/1937547.html