systeminfout.pas

delphi的XMPRPC通讯例子

   begin
     BinText:='';
     HexText:=HexText;
     for j:=1 to Length(HexText) do
     begin
        i:=strtoint('$'+HexText[j]);
        TmpStr:='';
        for k:=0 to 3 do
        begin

         TmpStr:=inttostr(i mod 2)+TmpStr;
         i:=i div 2;

        end;
        BinText:=BinText+TmpStr;
     end;

   end;

end;

function TSIU_SVR_ArrayInfo.SIU_SVR_GetArray(SerText:string;CurArray:array of string):integer;
var
j:integer;

begin
 Result:=-1;
 for j:=low(CurArray) to high(CurArray) do
  begin
     if CurArray[j]=SerText then
        begin
         Result:=j;
         break;
        end;
  end;
end;

procedure TSIU_CL_UserInfo.arraytoclone(arraystring: array of string);
begin
    try
      self.U_ID:=arraystring[0];
      self.U_OUTER_ID:=arraystring[1];
      self.U_ZJ_ID:=arraystring[2];
      self.U_ZJ_TYPE:=arraystring[3];
      self.U_CARD_ID:=arraystring[4];
      self.U_LOGIN_ID:=arraystring[5];
      self.U_PWD:=arraystring[6];
      self.U_GROUP:=arraystring[7];
      self.U_ITEM:=arraystring[8];
      self.U_STATUS:=arraystring[9];
      self.U_BARCODE:=arraystring[10];
      self.U_NAME:=arraystring[11];
      self.U_SEX:=arraystring[12];
      self.U_BIRTHDAY:=strtodatetime(arraystring[13]);
      self.U_NATION:=arraystring[14];
      self.U_EDUCATION:=arraystring[15];
      self.U_PROTITLE:=arraystring[16];
      self.U_PROFESSION:=arraystring[17];
      self.U_COUNTRY:=arraystring[18];
      self.U_PROVINCE:=arraystring[19];
      self.U_COUNTY:=arraystring[20];
      self.U_COMPANY:=arraystring[21];
      self.U_ADDRESS:=arraystring[22];
      self.U_POSTCODE:=arraystring[23];
      self.U_TEL:=arraystring[24];
      self.U_MOBILE:=arraystring[25];
      self.U_EMAIL:=arraystring[26];
      self.U_EN_EMAIL:=arraystring[27];
      if arraystring[28]<>'' then
      self.U_REG_DATE:=strtodatetime(arraystring[28])
      else
      self.U_REG_DATE:=0;
      if arraystring[29]<>'' then
      self.U_CHK_DATE:=strtodatetime(arraystring[29])
      else
      self.U_CHK_DATE:=0;
      if arraystring[30]<>'' then
      self.U_EXP_DATE:=strtodatetime(arraystring[30])
      else
      self.U_EXP_DATE:=0;
      if arraystring[31]<>'' then
      self.U_MOD_DATE:=strtodatetime(arraystring[31])
      else
      self.U_MOD_DATE:=0;
      self.U_PHOTO:=arraystring[32];
      self.U_External:=arraystring[33];
      self.U_Balance:=strtofloat(arraystring[34]);
      self.U_inIP:=arraystring[35];
      self.M_OP_DATE:=strtodatetime(arraystring[36]);
      self.U_InHostName:=arraystring[37];
      self.U_OldBalance:=strtofloat(arraystring[38]);
  except
  end;
end;

procedure TSIU_CL_UserInfo.clone(tpScu:TSIU_CL_UserInfo);
begin
  try
   self.U_ID:=tpScu.U_ID;
   self.U_OUTER_ID:=tpScu.U_OUTER_ID;
   self.U_ZJ_ID:=tpScu.U_ZJ_ID;
   self.U_ZJ_TYPE:=tpScu.U_ZJ_TYPE;
   self.U_CARD_ID:=tpScu.U_CARD_ID;
   self.U_LOGIN_ID:=tpScu.U_LOGIN_ID;
   self.U_PWD:=tpScu.U_PWD;
   self.U_GROUP:=tpScu.U_GROUP;
   self.U_ITEM:=tpScu.U_ITEM;
   self.U_STATUS:=tpScu.U_STATUS;
   self.U_BARCODE:=tpScu.U_BARCODE;
   self.U_NAME:=tpScu.U_NAME;
   self.U_SEX:=tpScu.U_SEX;
   self.U_BIRTHDAY:=tpScu.U_BIRTHDAY;
   self.U_NATION:=tpScu.U_NATION;
   self.U_EDUCATION:=tpScu.U_EDUCATION;
   self.U_PROTITLE:=tpScu.U_PROTITLE;
   self.U_PROFESSION:=tpScu.U_PROFESSION;
   self.U_COUNTRY:=tpScu.U_COUNTRY;
   self.U_COMPANY:=tpScu.U_COMPANY;
   self.U_ADDRESS:=tpScu.U_ADDRESS;
   self.U_POSTCODE:=tpScu.U_POSTCODE;
   self.U_TEL:=tpScu.U_TEL;
   self.U_MOBILE:=tpScu.U_MOBILE;
   self.U_EMAIL:=tpScu.U_EMAIL;
   self.U_EN_EMAIL:=tpScu.U_EN_EMAIL;
   self.U_REG_DATE:=tpScu.U_REG_DATE;
   self.U_CHK_DATE:=tpScu.U_CHK_DATE;
   self.U_EXP_DATE:=tpScu.U_EXP_DATE;
   self.U_MOD_DATE:=tpScu.U_MOD_DATE;
   self.M_OP_DATE :=tpScu.M_OP_DATE;
   self.U_PHOTO := tpScu.U_PHOTO;
   self.U_External :=tpScu.U_External;
   self.U_Balance:=tpScu.U_Balance;
   self.U_InIP:=tpScu.U_InIP;
   self.U_InHostName:=tpScu.U_InHostName;
   self.U_OldBalance:=tpScu.U_OldBalance;
  except
  end;
end;

procedure TSIU_SVR_DistInfo.SIU_SVR_DistInfo_CleanInfo;
begin
  Setlength(SVR_DictInfo,0,0);
  SVR_DictInfoLth:=0;
end;

procedure TSIU_CL_OPInfo.SIU_CL_OI_CleanInfo;
begin
    SIU_RD_OPSerInfo.lid:='';
    SIU_RD_OPSerInfo.ltype:='';
    SIU_RD_OPSerInfo.sid:='';
    SIU_RD_OPSerInfo.uid:='';
    SIU_RD_OPSerInfo.group:='';
    SIU_RD_OPSerInfo.item:='';
    SIU_RD_OPSerInfo.status:='';
    SIU_RD_OPSerInfo.name:='';
end;

procedure TSIU_SVR_DistInfo.SIU_SVR_DistInfo_Oder(index:integer);
var
tmpStr:array[0..2] of  string;
tmpStr1:array[0..3] of  string;
tmpStrG:array[0..6] of  string;
i,j,k,a,b,c:integer;

begin
  if SIU_SVR_DistInfo[index].SVR_DictInfoLth<=0  then exit;
     j:=SIU_SVR_DistInfo[index].SVR_DictInfoLth;

  if (CT_SVR_DICT[index]<>'group') and (CT_SVR_DICT[index]<>'item') and (CT_SVR_DICT[index]<>'price') and (CT_SVR_DICT[index]<>'company') then
  begin
    for k:=0 to j-1 do
     begin
      a:=0;
      for i:=0 to j-1 do
      begin
        if  strtoint(SIU_SVR_DistInfo[index].SVR_DictInfo[i,2])<strtoint(SIU_SVR_DistInfo[index].SVR_DictInfo[a,2]) then
          begin
          tmpStr[0]:=SIU_SVR_DistInfo[index].SVR_DictInfo[i,0];
          tmpStr[1]:=SIU_SVR_DistInfo[index].SVR_DictInfo[i,1];
          tmpStr[2]:=SIU_SVR_DistInfo[index].SVR_DictInfo[i,2];
          SIU_SVR_DistInfo[index].SVR_DictInfo[i,0]:=SIU_SVR_DistInfo[index].SVR_DictInfo[a,0];
          SIU_SVR_DistInfo[index].SVR_DictInfo[i,1]:=SIU_SVR_DistInfo[index].SVR_DictInfo[a,1];
          SIU_SVR_DistInfo[index].SVR_DictInfo[i,2]:=SIU_SVR_DistInfo[index].SVR_DictInfo[a,2];
          SIU_SVR_DistInfo[index].SVR_DictInfo[a,0]:=tmpStr[0];
          SIU_SVR_DistInfo[index].SVR_DictInfo[a,1]:=tmpStr[1];
          SIU_SVR_DistInfo[index].SVR_DictInfo[a,2]:=tmpStr[2];

          end;
         a:=i;
      end;

     end;
  end;

    if (CT_SVR_DICT[index]='company') then
  begin
    for k:=0 to j-1 do
     begin
      a:=0;
      for i:=0 to j-1 do
      begin
        if  strtoint(SIU_SVR_DistInfo[index].SVR_DictInfo[i,3])<strtoint(SIU_SVR_DistInfo[index].SVR_DictInfo[a,3]) then
          begin
          tmpStr1[0]:=SIU_SVR_DistInfo[index].SVR_DictInfo[i,0];
          tmpStr1[1]:=SIU_SVR_DistInfo[index].SVR_DictInfo[i,1];
          tmpStr1[2]:=SIU_SVR_DistInfo[index].SVR_DictInfo[i,2];
          tmpStr1[3]:=SIU_SVR_DistInfo[index].SVR_DictInfo[i,3];
          SIU_SVR_DistInfo[index].SVR_DictInfo[i,0]:=SIU_SVR_DistInfo[index].SVR_DictInfo[a,0];
          SIU_SVR_DistInfo[index].SVR_DictInfo[i,1]:=SIU_SVR_DistInfo[index].SVR_DictInfo[a,1];
          SIU_SVR_DistInfo[index].SVR_DictInfo[i,2]:=SIU_SVR_DistInfo[index].SVR_DictInfo[a,2];
          SIU_SVR_DistInfo[index].SVR_DictInfo[i,3]:=SIU_SVR_DistInfo[index].SVR_DictInfo[a,3];
          SIU_SVR_DistInfo[index].SVR_DictInfo[a,0]:=tmpStr1[0];
          SIU_SVR_DistInfo[index].SVR_DictInfo[a,1]:=tmpStr1[1];
          SIU_SVR_DistInfo[index].SVR_DictInfo[a,2]:=tmpStr1[2];
          SIU_SVR_DistInfo[index].SVR_DictInfo[a,3]:=tmpStr1[3];
          end;
         a:=i;
      end;

     end;
  end;

  if (CT_SVR_DICT[index]='price') then
  begin
   k:=SIU_SVR_ArrayInfo.SIU_SVR_GetArray('item',CT_SVR_DICT);
   a:=SIU_SVR_DistInfo[k].SVR_DictInfoLth;

   for i:=0 to j-1 do
    begin

       SIU_SVR_DistInfo[index].SVR_DictInfo[i,4]:='未知';
       for b:=0 to a-1 do
      if SIU_SVR_DistInfo[index].SVR_DictInfo[i,3]=SIU_SVR_DistInfo[k].SVR_DictInfo[b,0] then
          SIU_SVR_DistInfo[index].SVR_DictInfo[i,4]:=SIU_SVR_DistInfo[k].SVR_DictInfo[b,1];

    end;

  end;

  if (CT_SVR_DICT[index]='group') then
  begin
    for k:=0 to j-1 do
     begin
      a:=0;
      for i:=0 to j-1 do
      begin
        if  strtoint(SIU_SVR_DistInfo[index].SVR_DictInfo[i,5])<strtoint(SIU_SVR_DistInfo[index].SVR_DictInfo[a,5]) then
          begin
          tmpStrG[0]:=SIU_SVR_DistInfo[index].SVR_DictInfo[i,0];
          tmpStrG[1]:=SIU_SVR_DistInfo[index].SVR_DictInfo[i,1];
          tmpStrG[2]:=SIU_SVR_DistInfo[index].SVR_DictInfo[i,2];
          tmpStrG[3]:=SIU_SVR_DistInfo[index].SVR_DictInfo[i,3];
          tmpStrG[4]:=SIU_SVR_DistInfo[index].SVR_DictInfo[i,4];
          tmpStrG[5]:=SIU_SVR_DistInfo[index].SVR_DictInfo[i,5];
          SIU_SVR_DistInfo[index].SVR_DictInfo[i,0]:=SIU_SVR_DistInfo[index].SVR_DictInfo[a,0];
          SIU_SVR_DistInfo[index].SVR_DictInfo[i,1]:=SIU_SVR_DistInfo[index].SVR_DictInfo[a,1];
          SIU_SVR_DistInfo[index].SVR_DictInfo[i,2]:=SIU_SVR_DistInfo[index].SVR_DictInfo[a,2];
          SIU_SVR_DistInfo[index].SVR_DictInfo[i,3]:=SIU_SVR_DistInfo[index].SVR_DictInfo[a,3];
          SIU_SVR_DistInfo[index].SVR_DictInfo[i,4]:=SIU_SVR_DistInfo[index].SVR_DictInfo[a,4];
          SIU_SVR_DistInfo[index].SVR_DictInfo[i,5]:=SIU_SVR_DistInfo[index].SVR_DictInfo[a,5];          SIU_SVR_DistInfo[index].SVR_DictInfo[a,0]:=tmpStrG[0];
          SIU_SVR_DistInfo[index].SVR_DictInfo[a,1]:=tmpStrG[1];
          SIU_SVR_DistInfo[index].SVR_DictInfo[a,2]:=tmpStrG[2];
          SIU_SVR_DistInfo[index].SVR_DictInfo[a,3]:=tmpStrG[3];
          SIU_SVR_DistInfo[index].SVR_DictInfo[a,4]:=tmpStrG[4];
          SIU_SVR_DistInfo[index].SVR_DictInfo[a,5]:=tmpStrG[5];


          end;
          a:=i;
      end;

     end;

  end;
end;

procedure TSIU_CL_UserInfo.ofarray(var arraystring: array of string);
begin
      arraystring[0]:=self.U_ID;
      arraystring[1]:=self.U_OUTER_ID;
      arraystring[2]:=self.U_ZJ_ID;
      arraystring[3]:=self.U_ZJ_TYPE;
      arraystring[4]:=self.U_CARD_ID;
      arraystring[5]:=self.U_LOGIN_ID;
      arraystring[6]:=self.U_PWD;
      arraystring[7]:=self.U_GROUP;
      arraystring[8]:=self.U_ITEM;
      arraystring[9]:=self.U_STATUS;
      arraystring[10]:=self.U_BARCODE;
      arraystring[11]:=self.U_NAME;
      arraystring[12]:=self.U_SEX;
      arraystring[13]:=datetimetostr(self.U_BIRTHDAY);
      arraystring[14]:=self.U_NATION;
      arraystring[15]:=self.U_EDUCATION;
      arraystring[16]:=self.U_PROTITLE;
      arraystring[17]:=self.U_PROFESSION;
      arraystring[18]:=self.U_COUNTRY;
      arraystring[19]:=self.U_PROVINCE;
      arraystring[20]:=self.U_COUNTY;
      arraystring[21]:=self.U_COMPANY;
      arraystring[22]:=self.U_ADDRESS;
      arraystring[23]:=self.U_POSTCODE;
      arraystring[24]:=self.U_TEL;
      arraystring[25]:=self.U_MOBILE;
      arraystring[26]:=self.U_EMAIL;
      arraystring[27]:=self.U_EN_EMAIL;
      arraystring[28]:=datetimetostr(self.U_REG_DATE);
      arraystring[29]:=datetimetostr(self.U_CHK_DATE);
      arraystring[30]:=datetimetostr(self.U_EXP_DATE);
      arraystring[31]:=datetimetostr(self.U_MOD_DATE);
      arraystring[32]:=self.U_PHOTO;
      arraystring[33]:=self.U_External;
      arraystring[34]:=floattostr(self.U_Balance);
      arraystring[35]:=self.U_InIP;
      arraystring[36]:=datetimetostr(self.M_OP_DATE);
      arraystring[37]:=U_InHostName;
      arraystring[38]:=floattostr(U_OldBalance);
end;

procedure TSIU_CL_UserInfo.SIU_CL_OI_CleanInfo;
begin
      U_ID:='';
      U_OUTER_ID:='';
      U_ZJ_ID:='';
      U_ZJ_TYPE:='';
      U_CARD_ID:='';
      U_LOGIN_ID:='';
      U_PWD:='';
      U_GROUP:='';
      U_ITEM:='';
      U_STATUS:='';
      U_BARCODE:='';
      U_NAME:='';
      U_SEX:='';
      U_BIRTHDAY:=0;
      U_NATION:='';
      U_EDUCATION:='';
      U_PROTITLE:='';
      U_PROFESSION:='';
      U_COUNTRY:='';
      U_PROVINCE:='';
      U_COUNTY:='';
      U_COMPANY:='';
      U_ADDRESS:='';
      U_POSTCODE:='';
      U_TEL:='';
      U_MOBILE:='';
      U_EMAIL:='';
      U_EN_EMAIL:='';
      U_REG_DATE:=0;
      U_CHK_DATE:=0;
      U_EXP_DATE:=0;
      U_MOD_DATE:=0;
      U_PHOTO:='';
      U_External:='';
      U_Balance:=0;
      U_InIP:='';
      M_OP_DATE:=0;
      U_InHostName:='';
      U_OldBalance:=0;
end;

initialization
//*-----初始化内容------*//
SetLength(SIU_SVR_DistInfo,(High(CT_SVR_DICT)-Low(CT_SVR_DICT)+1));
SIU_CL_OPInfo:=TSIU_CL_OPInfo.Create;
SIU_SVR_ArrayInfo:=TSIU_SVR_ArrayInfo.Create;
SIU_SVR_SWITCHITEM:=TSIU_SVR_SWITCHITEM.Create;
for SIU_I:=Low(CT_SVR_DICT) to High(CT_SVR_DICT) do
SIU_SVR_DistInfo[SIU_I]:=TSIU_SVR_DistInfo.Create;
//*---------------------*//

finalization
//*-----结束内容-------*//
SIU_SVR_SWITCHITEM.Free;
SIU_CL_OPInfo.Free;
SIU_SVR_ArrayInfo.Free;
for SIU_I:=Low(CT_SVR_DICT) to High(CT_SVR_DICT) do
SIU_SVR_DistInfo[SIU_I].Free;;
//*-------------------*//


end.