盒子论坛 v2.1

c5soft老师您好,我想做个登录页面,里面有个用户名,密码文本框,单击登录按钮后,用executeAjaxEvent发送用户名,密码到服务器,服务器判断后,可以登录的话,返回1 不能登录,返回0,客户端怎么才能收到这个返回值?谢谢!

ftp://uploads@uploads.2ccc.com/intrawebtest.rar
----------------------------------------------
-

作者：

c5soft (大道至简)	▲▲▲▲▲	-
	普通会员

2015/6/3 22:42:54

1楼：

这涉及到在Delphi后端程序中如何执行前端的Javascript代码的问题。这样写：
先在你的login.html中增加一个备调函数：
<!DOCTYPE html>
<html>
<head>
    <meta charset="UTF-8">
  <title></title>
  <link rel="stylesheet" type="text/css" href="easyui/themes/default/easyui.css">
  <link rel="stylesheet" type="text/css" href="easyui/themes/icon.css">
  <script>
    function loginResponse(logined){
      if (logined)
       alert('logined');
       else
       alert('not logined');
    }
</script>
</head>
...
然后修改AJAXConfirmEvent，增加对js的调用即可：
procedure TIWForm2.AJAXConfirmEvent(AParams: TStringList);
var
  lUserName, lPassWord: string;
begin
  lUserName := aParams.Values['username'];
  lPassWord := aParams.Values['password'];
  if lUserName = 'admin' then begin
    WebApplication.CallBackResponse.AddJavaScriptToExecute('loginResponse(true);');
  end else begin
    WebApplication.CallBackResponse.AddJavaScriptToExecute('loginResponse(false);');
  end;
end;
----------------------------------------------
-

作者：

blbz (冰力不足)	★☆☆☆☆	-
	禁用账号

2015/6/4 9:11:33

2楼：

……
被禁用帐号，帖子内容自动屏蔽！
……
----------------------------------------------
SPAM

作者：

tjwhf (tjwhf)	▲▲▲▲△	-
	普通会员

2015/6/4 15:34:35

3楼：

测试可以用,谢谢c5soft老师
----------------------------------------------
-

信息

登陆以后才能回复