动态数组转入内存流？

Question

TByteArr = array of byte;
function GetECGData(strFilePath: string;var dataLength: Integer): TByteArr;其中:dataLength返回的是数组的大小，
现在想把返回的数组赋予一个内存流，
m_ReadBuf := TMemoryStream.Create;这个代码该如何编写？熟悉的朋友请帮忙
谢谢！

Answer 1

var
bt:TByteArr;
m_readbuf:Tmemorystream; 
begin
m_readbuf:=Tmemorystream.create;
m_ReadBuf.seek(0,sofrombegin);//or m_ReadBuf.seek(0,0);
m_readbuf.writebuffer(bt,sizeof(bt));
end;
//注意动态数组是一维的。

Answer 2

var
bt:TByteArr;
m_readbuf:Tmemorystream; 
begin
m_readbuf:=Tmemorystream.create;
m_ReadBuf.seek(0,sofrombegin);//or m_ReadBuf.seek(0,0);
m_readbuf.writebuffer(bt,sizeof(bt));
end;
//注意动态数组是一维的。

Answer 3

var
  ba:TByteArr;
  len:Integer;
begin
  ba:=GetECGData('filename',len);
  MemoryStream.WriteBuffer(ba[0],len);
end;