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;
这是
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;
这是