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/