深圳全飞鸿

标题: inidb的客户端实现 [打印本页]
作者: zhgc    时间: 2022-3-31 22:31
标题: inidb的客户端实现
节选于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;
复制代码






欢迎光临 深圳全飞鸿 (http://www.nagomes.com/disc/) Powered by Discuz! X3.2