根基url获取静态ip地址
在多曾数据库开发中,为了避免ip地址变动导致无法连接,想通过服务器的url得到ip地址,该如何实现。就这么多分了,哪为高手能帮帮我。
[解决办法]
procedure TUDPMainForm.btnResolveClick(Sender: TObject);
begin
IDICMPClient1.Host := 'www.csdn.net ';
IDICMPClient1.Ping();
end;
procedure TUDPMainForm.IdIcmpClient1Reply(ASender: TComponent;
const AReplyStatus: TReplyStatus);
begin
RecvMemo.Lines.Add(AReplyStatus.FromIpAddress);
end;
是不是这个?