使用delphi 开发多层应用（六）kbmMW返回流到客户端

   在第一个简单的例子，服务器返回给客户端的是一个简单的变量，但是在日常的应用中，往往需要给客户端传输大量的数据，例如要

返回流，在kbmMW 里面返回流也是比较方便的，下面我们就以给客户端返回一个照片为例，说明一下。

  还是在上次的例子服务里面，我们添加一下这个功能，首先要定义服务函数处理：

  function Performgetimg(ClientIdent:TkbmMWClientIdentity; const Args:array of Variant):Variant; virtual;

 然后把函数名与处理过程在服务里面对应起来：

function Txalionsrv.ProcessRequest(const Func: string;const ClientIdent: TkbmMWClientIdentity;const Args: array of Variant): Variant;

var   AFunc:string;begin     AFunc:=UpperCase(Func);if AFunc='SUMALL' then        Result:=Performsumall(ClientIdent,Args)else if AFunc='GETIMG' then        Result:=Performgetimg(ClientIdent,Args)end;

最后就是函数处理的具体实现：

function Txalionsrv.Performgetimg(ClientIdent: TkbmMWClientIdentity;const Args: array of Variant): Variant;var    fs:Tfilestream;begintryif not FileExists('D:\picture\'+args[1]) thenbegin       kbmMWRaiseServerException('文件不存在!');       exit;end;

fs:=Tfilestream.Create('D:\picture\'+args[1]);

ResultStream.LoadFromStream(fs);finally    fs.Free;end;

end;

好了，服务器端就完成了，可以编译运行了。

现在来处理客户端，在客户端form 上放一个button 和image 控件，如图：

并输入按钮点击事件：

procedure TForm2.Button2Click(Sender: TObject);var   args:array[1..4] of Variant;   ms:TMemoryStream;begin   args[1]:='1.JPG';   kbmMWSimpleClient1.Request('xalion_srv','','getimg',args);

kbmMWSimpleClient1.ResultStream.SaveToFile('c:\1.jpg');

Image1.Picture.LoadFromFile('c:\1.jpg');

end;

ok 同时运行服务器和客户端程序，我们就可以从服务器上下载照片流，并在客户端显示了。

存补:2013.12.09

如果不想在客户端机器上使用临时文件，可以直接用流，但是需要知道图片格式

procedure TForm1.Button1Click(Sender: TObject);
 begin
  var
   args:array[1..4] of Variant;
   NewG: TJPEGImage;

begin
   args[1]:='1.JPG';
   kbmMWSimpleClient1.Request('xalion_srv','','getimg',args);

   newg:=TJPEGImage.Create;
  newg.LoadFromStream(kbmMWSimpleClient1.ResultStream);
  image1.Picture.Graphic.Free;
  image1.Picture.Graphic:=newg;

end;