如何将数据流转化成TByteDynArray(100分)

procedure TForm1.Button2Click(Sender: TObject);
var jpegimg: TJPEGImage;
ms: TMemoryStream;
//bBytes:array of Byte ;
bBytes:TByteDynArray;
a:UploadSoap;
str:widestring;
b:widestring;
begin
b:='dd';
jpegimg := TJPEGImage.Create;
jpegimg.LoadFromFile(ledtImage.Text);
ms := TMemoryStream.Create;
SetLength(bBytes, ms.size);
Move(ms.Memory, bBytes, ms.Size);



//a:=HTTPRIO1 as UploadSoap;
// str:=a.UploadFile(bBytes,b);
// memo1.Text:=str;
end;

UploadFile（）函数：
function UploadFile(const fs: TByteDynArray; const FileName: WideString): WideString; stdcall;
如何将数据流转化成TByteDynArray

function BlobContentToString(constFileName:string):string;
begin
with TFileStream.create(FileName,fmOpenRead)do
try
SetLength(Result,Size);
Read(Pointer(Result)^,Size);
finally
Free;
end;
给你个思路吧。。。。