fileini.pas

Delphi 获取互联网IP地址

unit FileIni;

interface

uses  SysUtils,inifiles;
Type
    TFileIni = Class
            web_url : String;
            web_oldip : String;
            web_timer : integer;
            web_AutoGet:boolean;
         private
            iniFileName :String;
         public
            Constructor Create(FileName:String);
            procedure ReadConfig;
            Procedure WriteConfig;

    end;

implementation

{ TFileIni }

constructor TFileIni.Create(FileName:String);
begin
  iniFileName := FileName;
  ReadConfig;
end;

procedure TFileIni.ReadConfig;
var
   vFileIni:TIniFile;
begin
  try
   vFileIni := TIniFile.Create(iniFileName);

   web_url := vFileIni.ReadString('IPGet','web_url','http://59.120.117.43/ip.asp');
   web_oldip := vFileIni.ReadString('IPGet','old_ip','');
   web_timer := vFileIni.ReadInteger('IPGet','timer',100);
   web_AutoGet := vFileIni.ReadBool('IPGet','AutoGet',true);
   vFileIni.Free;
  except
     ;
  end;
end;

procedure TFileIni.WriteConfig;
var
   vFileIni:TIniFile;
begin
  try
   vFileIni := TIniFile.Create(iniFileName);

    vFileIni.WriteString('IPGet','web_url',web_url);
    vFileIni.WriteString('IPGet','old_IP',web_oldip);
    vFileIni.WriteInteger('IPGet','Timer',web_timer);
    vFileIni.WriteBool('IPGet','AutoGet',web_AutoGet);
   vFileIni.Free;
  except
     ;
  end;
end;

end.