标签:今天 index stream read extjs except ges charset oca
delphi 官网上开始也来越多的介绍delphi与extjs 结合的例子,今天我就把官方的例子翻版一下。
我使用kbmmw 来实现一下。
老规矩,先要实现服务器端,这个服务器端也很简单,就是把一个图片文件转换成base64,然后封装成json 输出到浏览器上。
直接代码:
function Twebsrv.getimg: string; var mybase64:TBase64Encoding; myfs:Tfilestream; myss:Tstringstream; begin mybase64:=TBase64Encoding.Create(0); myfs:=Tfilestream.Create(‘D:\picture\1.jpg‘,fmOpenRead ); myss:=Tstringstream.Create; try mybase64.Encode(myfs,myss ); result:=‘[{"img":"data:image/jpeg;base64,‘+myss.DataString+‘"}]‘; finally mybase64.Free; myfs.Free; myss.Free; end; end;
再处理一下对应的http get 操作
function Twebsrv.Performget(ClientIdent:TkbmMWClientIdentity; const AURL:string; const Args:array of Variant):Variant; var mystringstream:Tstringstream; MimeType,s,scallback:string; Charset,tablename:string; qv:TkbmMWHTTPQueryValues; dataurl,mysql,swhere:string; I: Integer; begin qv:=TkbmMWHTTPQueryValues.Create; dataurl:=args[0]; qv.AsString:=Args[2]; if length(Args)<1 then kbmMWRaiseException(KBMMW_ERR_SERVICE_HTTP_URLMISSING,‘Missing URL.‘); try if args[0]=‘/version‘ then begin result:=‘kbmmw 5.03‘; exit; end; if args[0]=‘/getimg‘ then begin s:=getimg; scallback:=qv.ValueByName[‘callback‘]; if scallback<>‘‘ then result:=scallback+‘(‘+s+‘)‘ else Result:=s; exit; end; ...... result:=inherited Performget(ClientIdent,aurl,Args) ; finally qv.Free; end; end;
编译运行,在浏览器里面输入http://localhost/getimg.
输出正常,服务器端搞定,下面设计extjs.
加一个datastore.
设置对应的属性。
在view 里面建立对应的控件
并建立按钮的点击事件
Ext.define(‘MyApp.view.MyFormViewController‘, { extend: ‘Ext.app.ViewController‘, alias: ‘controller.myform‘, onButtonClick: function(button, e, eOpts) { var me = this; var store = Ext.getStore(‘MyJsonPStore‘); store.load({ callback: function (records) { var img = me.lookup(‘xalionimg‘); img.setSrc(records[0].get(‘img‘)); } }); } });
ok,发布这个应用。
在浏览器里面输入http://localhost/index.html
点击按钮,就可以显示出来图像了
ok, 搞定了。
剩下的就是学习extjs 的知识了。
kbmmw 与extjs 通过JSON Base64 显示图片
标签:今天 index stream read extjs except ges charset oca
原文地址:http://www.cnblogs.com/xalion/p/7749876.html