connectsetup_unit.pas

货源代理管理系统 同样是DELPHI7下的

unit ConnectSetup_Unit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, Buttons, WinSock, IniFiles;

type
  TfrmServerClient = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    edtPort: TEdit;
    btnOk: TBitBtn;
    btnCancel: TBitBtn;
    edtIP: TEdit;
    procedure btnCancelClick(Sender: TObject);
    procedure btnOkClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
    function IniFileName: string;
    function ReadIni(FileName, Main, Key: String): String;
    procedure WriteIni(FileName, Main, Key, Values: String);
var
  frmServerClient: TfrmServerClient;

implementation

uses ClientDM_Unit;

{$R *.dfm}

procedure TfrmServerClient.btnCancelClick(Sender: TObject);
begin
  Close;
end;

procedure TfrmServerClient.btnOkClick(Sender: TObject);
begin
  if Longword(Inet_addr(pchar(edtIP.Text)))=INADDR_NONE then
  begin
    Application.MessageBox('IP地址输入错误,请重新输入!','提示',16);
    edtIP.SetFocus;
    Exit;
  end;
  WriteIni(IniFileName,'Main','IP',edtIP.Text);
  WriteIni(IniFileName,'Main','Port',edtPort.Text);
end;

procedure WriteIni(FileName, Main, Key, Values: String);
var
  WriteFile: TINIFile;
begin
  WriteFile := TINIFile.Create(FileName);
  try
    WriteFile.WriteString(Main, key, Values);
  except
    ShowMessage('写入配置文件错误!');
  end;
  WriteFile.Destroy;
end;

function ReadIni(FileName, Main, Key: string): string;
var
  ReadFile: TINIFile;
begin
  ReadFile := TINIFile.Create(FileName);
  try
    Result := ReadFile.ReadString(Main, Key, '');
  except
    ShowMessage('读取数据库路径错误!');
  end;
  ReadFile.Destroy;
end;

function IniFileName: string;
begin
  Result := ExtractFileDir(Application.Exename) + '\ClientInfo.ini';
end;

procedure TfrmServerClient.FormShow(Sender: TObject);
begin
  edtIP.Text := ReadIni(IniFileName,'Main','IP');
  edtPort.Text := ReadIni(IniFileName,'Main','Port');
end;

end.