kbmMW--返回流到客户端

kbmMW--返回流到客户端

环境：delphi XE10.2.2+kbmMW5.02

在第一个简单的例子，服务器返回给客户端的是一个简单的变量，但是在日常的应用中，往往需要给客户端传输大量的数据，例如要返回流，在kbmMW 里面返回流也是比较方便的，下面我们就以给客户端返回一个照片为例，说明一下。

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

 

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

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

 

function TYRSrvSmSrvF.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 TYRSrvSmSrvF.Performgetimg(ClientIdent: TkbmMWClientIdentity;
  const Args: array of Variant): Variant;
var

   fs:Tfilestream;

   fileName:String;

begin

  // Enter code here to performfunction sumall

  try

    YRSrvAppF.sLabel1.Caption:='文件名：'+args[1];

 

    if notFileExists('D:\picture\'+args[1]) then

    begin

      kbmMWRaiseServerException('文件不存在!客户端参数:'+args[1]);

      exit;

end;

//注意：下面这句与洞主的不同，加了fmOpenRead这个参数

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

  finally

    fs.Free;

  end;

end;

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

 

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

并输入按钮点击事件：

procedure TForm2.Button2Click(Sender: TObject);
var

   //这句如果改成1..4一直没有成功

      args:array[0..4] of Variant;

ms:TMemoryStream;
begin
   args[1]:='1.JPG';
   kbmMWSimpleClient1.Request(' YRSrv','','getimg',args);
  kbmMWSimpleClient1.ResultStream.SaveToFile('c:\1.jpg');
  Image1.Picture.LoadFromFile('c:\1.jpg');

end;

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

如果不想将图片暂存要地后再显示出来，可以将程序改成：

procedure TForm1.sButton2Click(Sender:TObject);

var

   args:array[0..4] of Variant;

  NewG: TJPEGImage;

begin

 args[1]:='1.JPG';

 kbmMWSimpleClient1.Request('YRSrv','','getimg',args);

 newg:=TJPEGImage.Create;

 newg.LoadFromStream(kbmMWSimpleClient1.ResultStream);

 simage1.Picture.Graphic.Free;

 simage1.Picture.Graphic:=newg; 

end;

参考文档：（delphi窑洞洞主）http://www.cnblogs.com/xalion/tag/KBMMW/