clientcfg_u.~pas

来自「delphi实现 webservice的例子.有服务端和客户段 利用xml交互.」· ~PAS 代码 · 共 83 行

unit clientcfg_u;

interface

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

type
  TaClentcfgForm = class(TForm)
    lbl1: TLabel;
    edt1: TEdit;
    btn1: TButton;
    btn2: TButton;

    procedure  SaveConfig;
    
    procedure btn2Click(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  procedure ReadConfig;
var
  aClentcfgForm: TaClentcfgForm;

implementation
 uses
   Variable_U;
{$R *.dfm}
procedure  TaClentcfgForm.saveConfig;
var iniFile: TIniFile;
    path: array[0..1024] of Char;
    e:PChar;
begin
  StrPCopy( path,Application.ExeName );
  e := StrRScan( path,'\' );
  if e<>nil then e[0] := #0;
     IniFile := TIniFile.Create(Path+'\Client.ini');
  try
     inifile.WriteString('Server','ServiceURL',edt1.text);
  finally
     IniFile.Free;
  end;
  end;

function readConfig:string;
var iniFile: TIniFile;
    path: array[0..1024] of Char;
    e:PChar;
begin
  StrPCopy( path,Application.ExeName );
  e := StrRScan( path,'\' );
  if e<>nil then e[0] := #0;
     IniFile := TIniFile.Create(Path+'\Client.ini');
  try
    result:=inifile.ReadString('Server','ServiceURL','');
  finally
     IniFile.Free;
  end;
  end;
procedure TaClentcfgForm.btn2Click(Sender: TObject);
begin
  Self.ModalResult :=IDCANCEL;
end;

procedure TaClentcfgForm.btn1Click(Sender: TObject);
begin
  SaveConfig;
  ClientCFG.ServiceURL :=edt1.Text;
  ModalResult :=IDOK;
end;

procedure TaClentcfgForm.FormShow(Sender: TObject);
begin
  ReadConfig;
end;

end.