DELPHI 根據URL獲取IP， 如何利用ClientSocket模擬GET HTTP網站

或者我記得在Indy Clients組件中有 IdIcmpClient 控件，可以直接實現ping功能。妳試試，函數如下（當然首先要在窗體上放置壹個IdIcmpClient控件）

function GetIPByURL(URL: ShortString): ShortString;

begin

Result := '';

IdIcmpClient1.Host := URL;

IdIcmpClient1.Ping();

Application.ProcessMessages;

Result := IdIcmpClient1.ReplyStatus.FromIpAddress;

end;