smsdll.pas

delphi开发

unit smsdll;
interface
   uses inifiles,loginform,sysutils,classes,smsform;
type
  user=record
    name:string;
    sex:boolean;
    phone:string;
    memo:string;
end;
type userinfomation=record
   name:string;
   phone:string;
   password:string;
end;
var
  usercount:integer;
  userinfo:array[0..100] of userinfomation;
  curuser:userinfomation;
  ini,userini: tinifile;
  userlist:array[0..100] of user;
function passwordstring(pswd:string):string;
function readfromfile(ff:string):tstringlist;
procedure updatesg(ff:string);
procedure updatephone;
procedure readini;
procedure readuserini;
function writeuserini(name,phone,password:string):integer;
function writeini(name:string;sex:boolean;phone:string;memo:string):integer;
function deleteini(name:string;phone:string):integer;
implementation
procedure readuserini;
var
  i:integer;
  k:string;
begin
   count:=userini.ReadInteger('count','count',0);
   loginfrm.comusername.items.Clear;
   for i:=1 to count do
   begin
       k:='user'+inttostr(i);
       userinfo[i-1].name := userini.ReadString(k,'name','');
       userinfo[i-1].phone :=userini.ReadString(k,'phone','');
       userinfo[i-1].password :=passwordstring(userini.ReadString(k,'password',''));
       loginfrm.comusername.Items.Add(userinfo[i-1].name);
   end;
end;

function writeuserini(name,phone,password:string):integer;
var
  i,j:integer;
  b:boolean;
  k:string;
begin
    j:=count;
    b:=true;
    for i:=1 to j do
    begin
        if (name=userinfo[i-1].name)and(phone=userinfo[i-1].phone) then
        begin
            b:=false;
            break;
        end;
    end;
    if (i<=0)or(i>(j+1)) then
      i:=1;
    if b then inc(j);
    k:='user'+inttostr(i);
    userini.WriteString(k,'name',(name));
    userini.WriteString(k,'phone',(phone));
    userini.WriteString(k,'password',passwordstring(password));
    userini.WriteInteger('count','count',j);
    result:=j;
end;
procedure updatephone;
var
  i:integer;
begin
  with smsfrm do
  begin
      sg2.RowCount :=2;
      for i:=0 to 4 do
        sg2.Cells[i,1]:='';
      myphonebook.Items.Clear;
  end;
  for i:=1 to usercount do
  begin
      with smsfrm do
      begin
          if i>1 then sg2.RowCount :=sg2.RowCount +1;
          myphonebook.Items.Add(userlist[i-1].name);
          sg2.Cells[0,i]:=inttostr(i);
          sg2.Cells[1,i]:=userlist[i-1].name;
          if userlist[i-1].sex then
            sg2.Cells[2,i]:='男'
          else
            sg2.cells[2,i]:='女';
          sg2.Cells[3,i]:=userlist[i-1].phone ;
          sg2.Cells[4,i]:=userlist[i-1].memo;
      end;
  end;
  smsfrm.myphonebook.ItemIndex :=-1;
end;
function passwordstring(pswd:string):string;
var
  i,j:integer;
  key:byte;
begin
  key:=16;
  j:=length(pswd);
  result:='';
  for i:=1 to j do
  begin
     result:=result+char(ord(pswd[i]) xor key);
  end;
end;

procedure readini;
var
  i:integer;
  k:string;
begin
   usercount:=ini.ReadInteger('count','usercount',0);
   for i:=1 to usercount do
   begin
       k:='user'+inttostr(i);
       userlist[i-1].name :=passwordstring(ini.ReadString(k,'name',''));
       userlist[i-1].sex :=ini.ReadBool(k,'sex',true);
       userlist[i-1].phone :=passwordstring(ini.ReadString(k,'phone',''));
       userlist[i-1].memo :=ini.ReadString(k,'memo','');
   end;
end;

function writeini(name:string;sex:boolean;phone:string;memo:string):integer;
var
  i,j:integer;
  b:boolean;
  k:string;
begin
    j:=ini.ReadInteger('count','usercount',0);
    b:=true;
    for i:=1 to j do
    begin
        if (name=userlist[i-1].name)and(phone=userlist[i-1].phone) then
        begin
            b:=false;
            break;
        end;
    end;
    if (i<=0)or(i>(j+1)) then
      i:=1;
    if b then inc(j);
    k:='user'+inttostr(i);
    ini.WriteString(k,'name',passwordstring(name));
    ini.WriteBool(k,'sex',sex);
    ini.WriteString(k,'phone',passwordstring(phone));
    ini.WriteString(k,'memo',memo);
    ini.WriteInteger('count','usercount',j);
    result:=j;
end;

function deleteini(name:string;phone:string):integer;
var
  i,i1,j:integer;
  b:boolean;
  k:string;
begin
    j:=ini.ReadInteger('count','usercount',0);
    if j=0 then
    begin
        result:=0;
        exit;
    end;
    b:=false;
    for i:=1 to j do
    begin
        if (name=userlist[i-1].name)and(phone=userlist[i-1].phone) then
        begin
            b:=true;
            break;
        end;
    end;
    if b then
    begin
      for i1:=i+1 to j do
      begin
        k:='user'+inttostr(i1);
        ini.WriteString('user'+inttostr(i1-1),'name',ini.ReadString(k,'name',''));
        ini.Writebool('user'+inttostr(i1-1),'sex',ini.Readbool(k,'sex',true));
        ini.WriteString('user'+inttostr(i1-1),'phone',ini.ReadString(k,'phone',''));
        ini.WriteString('user'+inttostr(i1-1),'memo',ini.ReadString(k,'memo',''));
      end;
      k:='user'+inttostr(j);
      ini.DeleteKey(k,'name');
      ini.DeleteKey(k,'sex');
      ini.DeleteKey(k,'phone');
      ini.DeleteKey(k,'memo');
      j:=j-1;
    end;
    ini.WriteInteger('count','usercount',j);
    result:=j;
end;

procedure updatesg(ff:string);
var
  st:tstringlist;
  i,j:integer;
  m,n,k,p:integer;
  s:string;
begin
  st:=readfromfile(ff);
  with smsfrm do
  begin
      sg.RowCount :=2;
      sg.Cells[0,1]:='';
      sg.Cells[1,1]:='';
      sg.Cells[2,1]:='';
      j:=st.Count;
      for i:=0 to j-1 do
      begin
         if i>0 then sg.RowCount :=sg.RowCount +1;
         s:=st.Strings[i];
         for m:=1 to length(s) do
           if s[m]<>' ' then break;
         if m>0 then
           s:=copy(s,m,length(s)-m+1);
         m:=pos(' ',s);
         sg.Cells[0,i+1]:=copy(s,1,m-1);
         ////////////////////////////////

         for n:=m to length(s) do
           if s[n]<>' ' then break;
         k:=n;
         for m:=length(s) downto n do
           if s[m]<>' ' then break;
         n:=m;
         //s:=copy(s,k,m-k+1);
         //s的内容为从k到n的长度
         for p:=n downto k do
           if s[p]=' ' then
             break;
         sg.Cells[2,i+1]:=copy(s,p+1,n-p);
         for n:=p downto k do
           if s[n]<>' ' then break;
         sg.Cells[1,i+1]:=copy(s,k,n-k+1);
         
      end;
  end;
end;

function readfromfile(ff:string):tstringlist;
var
   f:textfile;
   sl:tstringlist;
   s:string;
begin
  assignfile(f,ff);
  reset(f);
  sl:=tstringlist.Create;
  while not eof(f) do
  begin
    readln(f,s);
    sl.Add(s);
  end;
  result:=sl;
end;
end.