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 的知识了。