我正在尝试使用TSoapAttachment组件将图像从SOAP Web服务提取到Delphi XE7 Android应用程序。
procedure TTabbedwithNavigationForm.Button1Click(Sender: TObject);
Var img: TSOAPAttachment;
strm: TStream;
begin
img:= Service.GetImage('d:\pictures\pic.jpg'); <== Error on this line
if img <> nil then begin
strm:= TMemoryStream.Create;
img.SaveToStream(strm);
strm.Position:= 0;
Image1.Bitmap.LoadFromStream(strm);
strm.Free;
DeleteFile(img.CacheFile);
end;
end;
Web服务实现如下:
function TMyService.GetImage(const imgfile: AnsiString) : TSOAPAttachment; stdcall;
begin
Result:= TSOAPAttachment.Create;
Result.SetSourceFile(imgfile);
end;
这在Win32上运行良好,但在Android上出现错误&#34;目标多字节代码页中没有Unicode字符映射&#34;在 Service.GetImage 行。