【delphi开源代码栏目提醒】:网学会员,鉴于大家对delphi开源代码十分关注,论文会员在此为大家搜集整理了“ConnectSetup_Unit.pas”一文,供大家参考学习!
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.
上一篇:
DrawBezierDlg.cpp
下一篇:
激励约束机制是企业健康发展的基础