使用delphi 开发多层应用（二十) ios通过soap 显示kbmmw服务器上的图片

    上一次通过soap,使IOS 访问了kbmmw服务器，今天顺便看能不能与android 共用服务器上的那个

下载图片的功能。首先说一下服务端的的程序，基本上就是前面的代码，没有变化，只是要indy 里面的

base64 编码功能，不再啰嗦，直接代码：

function Txalionsrv.Performgetimgm(ClientIdent: TkbmMWClientIdentity;
  const Args: array of Variant): Variant;
var
    fs:TMemoryStream;
    filename:string;
    base64:pansichar;
    i:integer;
    flen,bsize:int64;
    b64:TIdencoderMIME;
begin
 filename:='D:\picture\'+args[0];

  if not FileExists(filename) then
     begin
       kbmMWRaiseServerException('文件不存在!');
       exit;
     end;

  fs:=TMemoryStream.Create;
  b64:=TIdEncoderMIME.Create();
  try
   fs.LoadFromFile(filename);
   result:=b64.EncodeStream(fs)
 finally
    fs.Free;
    b64.Free;
  end;
end;

客户端为了显示图片，改变了一下界面

增加了一个Timage 控件，和一个显示按钮

把soap 调用整理成一个公共过程：

function remoterequest(ip,servicename,funcname:string;v:Variant;var StatusText:string;var vout:Variant):integer;

   var
   server:IProcessRequestSOAPPort;
   req:ProcessRequest;
   res:TkbmMWSOAPResponse;

begin
    result:=-1;
      server:=GetIProcessRequestSOAPPort(false,
            'http://'+ip+'/server1',nil);
            req:=ProcessRequest.Create;
         try
          // Setup request.
                  req.ServiceName:=servicename;//'XALION_SRV';
                  req.ServiceVersion:='';
                  req.StateID:=-1;
                  req.Func:=funcname;//'sumall';

                 // Setup identity.
                 //req.Ident:=TkbmMWSOAPClientIdentity.Create;
                 //req.Ident.Username:=’HANS’;
                 //req.Ident.Password:=’somepassword’;

                  req.Args:=v;

                  // Call app server.
                  res:=server.ProcessRequest(req);
              try
            // Check response.
                  StatusText:=res.StatusText;
                  if res.StatusCode=0 then // OK
                  begin
                    result:=0;
                    vout:=res.Result;
                  end;
                finally
               res.Free;
            end;
            finally
            req.Free;
          end;
end;

 然后在按钮点击里面使用下面代码：

procedure TForm1.Button2Click(Sender: TObject);
var
   args:array[1..4] of Variant;
   ms:TMemoryStream;

   v,vout:variant;
   s:String;
   len,mlen:integer;

   b64:TIdDecoderMIME;

   img:Tbitmap;

begin
   v:=VarArrayCreate([0,1],varVariant);

   v[0]:='1.JPG';

  if  remoterequest(servername.Text,'XALION_SRV', 'getimgm',v,s,vout)<>0 then
     begin
       edit1.Text:='bad' ;
       exit;
     end;
   Label1.Text:=s;
   s:=vout;
   b64:= TIdDecoderMIME.Create;

  try
    ms:=TMemoryStream.Create;
   b64.DecodeStream(s,ms);
   img:=Tbitmap.CreateFromStream(ms);
   image1.Bitmap:=img;
  finally
      ms.Free;
      b64.Free;
  end;

end;

 编译，然后在mac 上ios模拟器上运行，显示下面的效果：

整体感觉，ios 的模拟器比android 的速度快多了。