如何在客户端配置服务器地址的问题。(100分)

  • 主题发起人 主题发起人 Minor
  • 开始时间 开始时间
M

Minor

Unregistered / Unconfirmed
GUEST, unregistred user!
我的三层系统终于做好了,在客户端是用SockectConnetion连接服务器。

我希望用户能自己选择应用程序服务器地址,而且可以保存ip,不用每次运行都设置,
如何编程实现?

可不可以用一个文件来保存ip地址连表,然后运行时读取,赋值给
SockectConnetion.Address?

我对文件操作不熟悉,最好可以写一些代码,谢谢大家。

 
读写文件
 
这是我实际应用中的例子:
当用户点菜单->登录服务器时:
var
dlg: TLoginDlg;
//此对话框提示用户名、密码、以及服务器IP地址
ini: TIniFile;
//此对象存取INI文件,以保存IP地址
begin
ini := TIniFile.Create("MIS.INI");
try
dlg := TLoginDlg.Create(Self);
try
dlg.eServerIp.Text := ini.ReadString("Server","Address","127.0.0.1");
//读取服务器的IP
if dlg.ShowModal = mrOk then
begin
ini.WriteString("Server","Address",dlg.eServerIP.Text;
//保存服务器的IP
SocketConnection1.Address := dlg.eServerIP.Text;
SocketConnection1.Connected := true;
if SocketConnection1.Connected then
begin
...//用户认证。也可放在SocketConnection1.AfterConnected中。
end
end;
finally
Dlg.Free;
end;
finally
Ini.Free;
end;
end;
 
也可以用文本文件嘛
 
用ini文件最好,用文本也可以
 
后退
顶部