Question

求教熟悉intraweb和Extjs大神！

网上都是Extjs访问jsp和asp后台的。求个在Extjs中用ajax访问后台intraweb方法，然后intraweb方法返回数据到前台Extjs，在Extjs控件中显示出来的例子，求前后台范例源码。

Answer 1

在intraweb中的TMS控件,有个日期选择控件,这控件在intraweb 支持ajax后,存在一个问题是异步事件下赋值客户端不改变,另这个控件的客户端的脚本也够多的(至少100行),一个页面多个,就重复生成多个脚本,这无形中增加了网络传输量.总之我要换一个,今天就给个与extjs结合的一个实现方法. 大家看代码:

1.Extjs代码:

function FSelDate(vobj,VclID)
{
var varurl="http://"+window.location.host+"/EXEC/"+GTrackID+"/"+GAppID+"/?page=SELDATE";
seldatewin=new Ext.Window(
{id:'SELDATE',
title:"日期选择",
width:260,height:180,
maximizable:false,
html : '<iframe name="I1" id="I1" width="100%" height="100%" src='+varurl+' marginwidth="1" marginheight="1" border="0" frameborder="0" >浏览器不支持嵌入式框架，或被配置为不显示嵌入式框架。</iframe>',
iconCls: 'password',
shim:false,
animCollapse:false,
constrainHeader:true,modal :true,
listeners:{"beforedestroy":function(obj){document.getElementById('EDITFLAG').value=I1.SubmitForm.IW_FormName.value;vobj.SetDateText(VclID);EDITFLAG_onclick0();}}
}
);
seldatewin.show();
}

2.delphi端代码

procedure TSBTZForm_CLDJ.T1CCRQAsyncClick(Sender: TObject;
EventParams: TStringList);
begin
self.AddToInitProc('window.parent.parent.FSelDate(window,1);');
end;

procedure TSBTZForm_CLDJ.T1CCRQAsyncDoubleClick(Sender: TObject;
EventParams: TStringList);
begin
T1CCRQ.Text:=usersession.VtempString;
end;

3.IE端脚本

<script language ="javascript">
function SetDateText(VclID)
{

if(VclID==1)
{
T1CGRQ_ondblclick();
}
}

</script>

追问

这篇万大神的博客文章，我已经看过了，可惜他没把ajax如何请求，后台如何响应的关键部分代码放上来，对我的疑问用处不大。