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;