Delphi用Webservice传输二进制对象

以前感兴趣做的小程序，当时就想用来传图片，李维的书上也有提及的，有两种方法，一种是把二进制对象转成base64码，返回字符串，应该是最简单的方法，另外一种就是返回二进制数组TByteDynArray
服务器：
function
TFileSoap.getPic(out size:integer):
TByteDynArray;
var
buf:TMemoryStream;
begin
try
if not
FileExists('c:\1.bmp') then
raise Exception.Create('file not
found.');

buf:=TMemoryStream.create;
buf.LoadFromFile('c:\1.bmp');

size:=buf.Size;
setlength(result,size);

move(buf.Memory^,result[0],size);
finally

buf.free;
end;
end;
客户端
procedure TForm1.Button1Click(Sender:
TObject);
var
size:integer;
buf:TMemoryStream;
ary:TByteDynArray;
begin
buf:=TMemoryStream.create;
try

ary:=GetIFileSoap.getPic(size);
buf.SetSize(size);

move(ary[0],buf.memory^,size);

Image1.Picture.Bitmap.LoadFromStream(buf);
finally

buf.free;
end;
end;