jjw

写给自己的博客。 记录学习的点滴以备查。
  博客园  :: 首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理

VUE中调用datasnap服务

Posted on 2020-02-19 14:59  jjw  阅读(405)  评论(0编辑  收藏  举报
                try {
// http.post 调用 updatelogin 方法 http.get 调用 login 方法 const { data: res }
= await this.$http.post('/TSM/login/', { _parameters: [this.loginForm.username, this.loginForm.password] });
// http.post http.get 都调用 login 方法
// const {data: res} = await this.$http.post( // `/TSM/login/${this.loginForm.username}/${this.loginForm.password}`); if(res.result[0].ret) return this.$message.success('登录成功'); this.$message.error('登录失败'); } catch (e) { this.$message.error(e.message); }
function TSM.login(UserName, Password: string): TJSONObject;
begin
  Result := TJSONObject.Create;
  if (UserName='admin') and (Password='123456') then
  begin
    Result.AddPair('ret', TJSONTrue.Create);
  end
  else
  begin
    Result.AddPair('ret', TJSONFalse.Create);
  end;
end;

function TSM.updatelogin(UserName, Password: string): TJSONObject;
begin
  Result := TJSONObject.Create;
  if (UserName='admin') and (Password='123456') then
  begin
    Result.AddPair('ret', TJSONTrue.Create);
  end
  else
  begin
    Result.AddPair('ret', TJSONFalse.Create);
  end;
end;