inidb的客户端实现

zhgc

节选于crc_notice_func.pas

1. procedure crc_params_prepare();
   
2. var
   
3.   ini:tinifile;
   
4.   url,tmp,inistr:string;
   
5. begin
   
6.     ini:=tinifile.Create('crc_notice.ini');
   
7.     //for port
   
8.     url:='http://www.nagomes.com/import/inidb.php/get/ft522port';
   
9.     tmp:=MyGetWebPage(url);
   
10.     crc_port:=trim(tmp);
    
11.     if(length(crc_port)=0)then
    
12.     begin
    
13.         inistr:= ini.ReadString('config','port','');
    
14.         if(length(inistr)>0)then
    
15.         begin
    
16.            crc_port:=inistr;
    
17.         end;
    
18.     end else
    
19.     begin
    
20.         inistr:= ini.ReadString('config','port','');
    
21.         if(length(inistr)=0)then
    
22.         begin
    
23.            inistr:=crc_port;
    
24.            ini.WriteString('config','port',inistr);
    
25.         end;
    
26.     end;
    
27.     //for ip
    
28.     url:='http://www.nagomes.com/import/inidb.php/get/ft522ip';
    
29.     tmp:=MyGetWebPage(url);
    
30.     crc_ip:=trim(tmp);
    
31.     if(length(crc_ip)=0)then
    
32.     begin
    
33.         inistr:= ini.ReadString('config','ip','');
    
34.         if(length(inistr)>0)then
    
35.         begin
    
36.            crc_ip:=inistr;
    
37.         end;
    
38.     end else
    
39.     begin
    
40.         inistr:= ini.ReadString('config','ip','');
    
41.         if(length(inistr)=0)then
    
42.         begin
    
43.            inistr:=crc_ip;
    
44.            ini.WriteString('config','ip',inistr);
    
45.         end;
    
46.     end;
    
47.     //
    
48.     ini.free;
    
49. end;

复制代码