死亡历险，DELPHI以TByteDynArray（Bytes）方式传递图片到JAVA的WEBSERVICE保存

DELPHI以TByteDynArray（Bytes）方式传递图片到JAVA的WEBSERVICE保存


procedure TForm1.btn17Click(Sender: TObject);
var
  strm : TMemoryStream;
  AFileData: TByteDynArray;
  fsize:Integer;
begin
    strm := TMemoryStream.Create;
    img1.Picture.Graphic.SaveToStream(strm);//把图片转化成内存流
    strm.Position:=0;//切记，操作图片前一定要这句，否则错误
    //把内存流转化成TByteDynArray
    fsize:=strm.Size;
    SetLength(AFileData,fsize);
    strm.Read(AFileData[0],fsize);


    addResult:=ServiceHello1.addUser_Byte(edt4.Text, AFileData);


  if (addResult='ok') then
  begin
    ShowMessage('添加成功');
  end;
end;


这是JAVA的WEBSERVICE接口
function  addUser_Byte(const arg0: WideString; const arg1: TByteDynArray): WideString; stdcall;


这是