午夜视频在线网站,日韩视频精品在线,中文字幕精品一区二区三区在线,在线播放精品,1024你懂我懂的旧版人,欧美日韩一级黄色片,一区二区三区在线观看视频

分享

Datasnap 使用JSON 傳遞數據的簡易方法

 A芝蘭之室 2017-10-29

在上一篇文章中,使用了 OleVariant;


本文將介紹使用JSON方式來傳遞。。。


經測試在 windows下、Android 下都沒有問題。。蘋果則未測試。。。


服務端:


function TServerMethods1.CheckUsernameAndPassword3(U, P: string): TJSONObject;
var
  JO:TJSONObject;
  UserInfo :TLoginUserInfo;
begin
  UserInfo.LoginState := 255 ;   //Defautl: Unknown error
  UserInfo.IsSuperUser := false;
        UserInfo.UserCode := '';
        UserInfo.UserCode := '';
        UserInfo.UserName := '';
        UserInfo.Password := '';
        UserInfo.Deportment := '';
        UserInfo.MachineCode := '';  //設備編號
        UserInfo.AutoPromptMsg :='';
        UserInfo.UserClass :=0 ;
        UserInfo.ProductionWorkShop :='' ;
  with QRY  do begin
    Close;
    SQL.Text :=''; //略過
    Open;
    if not IsEmpty then begin
      if P <> FieldByName('MM').AsString  then begin
        UserInfo.LoginState :=1;
      end else
      if FieldByName('SFJY').AsBoolean then begin
        UserInfo.LoginState :=3;
      end else begin
        UserInfo.LoginState :=0;
        UserInfo.IsSuperUser := FieldByName('CJYH').AsBoolean;
        UserInfo.UserCode := U;
        UserInfo.UserCode := FieldByName('XH').AsString;
        UserInfo.UserName := FieldByName('MC').AsString;
        UserInfo.Password := FieldByName('MM').AsString;
        UserInfo.Deportment := FieldByName('BMBH').AsString;
        UserInfo.MachineCode := FieldByName('SBBH').AsString;  //設備編號
        UserInfo.AutoPromptMsg :='';
        UserInfo.UserClass :=FieldByName('jtsclx').AsInteger ;
        UserInfo.ProductionWorkShop :=FieldByName('SCCJ').AsString ;
      end;
    end else UserInfo.LoginState :=2;
    Close;
    //讀是否是驗廠
    SQL.Text :=<span style="font-family: Arial, Helvetica, sans-serif;">''; //略過</span>
    Open;
    UserInfo.FactoryEvaluation := FieldByName('FE').AsBoolean;
    Close;
  end;

    JO:=TJSONObject.Create;
    JO.AddPair('LoginState',TJSONNumber.Create(UserInfo.LoginState));
    if UserInfo.IsSuperUser  then
      JO.AddPair('IsSuperUser',TJSONTrue.Create)
    else
      JO.AddPair('IsSuperUser',TJSONFalse.Create);
    JO.AddPair('UserCode',TJSONString.Create(UserInfo.UserCode));
    JO.AddPair('UserName',TJSONString.Create(UserInfo.UserName));
    JO.AddPair('Password',TJSONString.Create(UserInfo.Password));
    JO.AddPair('Deportment',TJSONString.Create(UserInfo.Deportment));
    JO.AddPair('MachineCode',TJSONString.Create(UserInfo.MachineCode));
    JO.AddPair('AutoPromptMsg',TJSONString.Create(UserInfo.AutoPromptMsg));
    JO.AddPair('ProductionWorkShop',TJSONString.Create(UserInfo.ProductionWorkShop) );
    JO.AddPair('UserClass',TJSONNumber.Create(UserInfo.UserClass));
    Result := JO;



客戶端:

function Tdm.PubF_CheckLoginUsername3(U, P: string): TLoginUserInfo;
var
  JO:TJSONObject;
begin
  JO := dm.CheckUsernameAndPassword3(U,P);
  Result.LoginState         := StrToIntDef(JO.GetValue('LoginState').Value,255) ;
  Result.IsSuperUser        := JO.GetValue('IsSuperUser').Value='True' ;
  Result.UserCode           := JO.GetValue('UserCode').Value ;
  Result.UserName           := JO.GetValue('UserName').Value ;
  Result.Password           := JO.GetValue('Password').Value ;
  Result.Deportment         := JO.GetValue('Deportment').Value ;
  Result.MachineCode        := JO.GetValue('MachineCode').Value ;
  Result.AutoPromptMsg      := JO.GetValue('AutoPromptMsg').Value ;
  Result.ProductionWorkShop := JO.GetValue('ProductionWorkShop').Value ;
  Result.UserClass          := StrToIntDef(JO.GetValue('UserClass').Value,0);
end;




    本站是提供個人知識管理的網絡存儲空間,所有內容均由用戶發(fā)布,不代表本站觀點。請注意甄別內容中的聯(lián)系方式、誘導購買等信息,謹防詐騙。如發(fā)現有害或侵權內容,請點擊一鍵舉報。
    轉藏 分享 獻花(0

    0條評論

    發(fā)表

    請遵守用戶 評論公約

    類似文章 更多