DELPHI获取宽带IP

 

DELPHI获取宽带IP





procedure TForm1.Button1Click(Sender: TObject);
var
url: string;
begin
url := 'http://pv.sohu.com/cityjson?ie=utf-8';
Memo1.Text := IdHTTP1.Get(url);
end;




http://whois.pconline.com.cn/ipJson.jsp 这个URL也能获取。




												


											
DELPHI获取宽带IP的更多相关文章
	

    
								
  1. Delphi获取公网IP地址函数
		
    uses IdHTTP; function GetPublicIP: string; var strIP, URL: string; iStart, iEnd: Integer; MyIdHTTP:  ...
    
		
    2. 
						
  2. delphi -----获取计算IP
		
    function GetHostName:String; var ComputerName: ..MAX_COMPUTERNAME_LENGTH+] of char; Size: Cardinal;  ...
    
		
    3. 
						
  3. javascript获取当前用户访问的宽带IP地址
		
    javascript获取当前用户访问的宽带IP地址 <script src="http://pv.sohu.com/cityjson?ie=utf-8"></sc ...
    
		
    4. 
						
  4. delphi 获取本机IP地址和MAC地址
		
    unit NetFunc; interface uses SysUtils, Windows, dialogs, winsock, Classes, ComObj, WinInet, Variants ...
    
		
    5. 
						
  5. delphi 获取本机IP地址和MAC地址 （转）
		
    unit NetFunc; interface uses SysUtils, Windows, dialogs, winsock, Classes, ComObj, WinInet, Variants ...
    
		
    6. 
						
  6. Python 之自动获取公网IP
		
    Python 之自动获取公网IP 2017年9月30日 文档下载:https://wenku.baidu.com/view/ff40aef7f021dd36a32d7375a417866fb84ac0 ...
    
		
    7. 
						
  7. delphi 获取网卡信息(支持多网卡)
		
    delphi 获取网卡信息(支持多网卡) unit LGetAdapterInfo; interface uses Windows, SysUtils, Classes; const MAX_HOST ...
    
		
    8. 
						
  8. PHP获取客户端IP
		
    /** * 获取客户端IP */ function getClientIp() { $ip = 'unknown'; $unknown = 'unknown'; if (isset($_SERVER[ ...
    
		
    9. 
						
  9. 获取 dhcp IP 过程分析 - 每天5分钟玩转 OpenStack（91）
		
    前面我们已经讨论了 DHCP agent 的配置以及 namespace 如何隔离 dnsmasq 服务,本节将以 cirros-vm1 为例分析获取 DHCP IP 的详细过程. 在创建 insta ...
    
		
    10. 
		

	


随机推荐
	

    
									
  1. sys安装
			
    1.将SYS驱动文件放到系统目录的SYSTEM32目录中.2.按WIN+R组合键,在运行框中输入:regsvr32 sys所在全路径,点击确定即可.
    
			
    2. 
						
  2. soapui groovy脚本汇总
			
    出处:https://www.jianshu.com/p/ce6f8a1f66f4 一.一些内部元件的访问 testRunner.testCase开头 1.向下访问 testRunner.testCa ...
    
			
    3. 
						
  3. Linux 禁止root 用户登录启用sudo
			
    1.添加sudo用户执行visudo命令,找到: 复制代码 代码如下: root ALL=(ALL) ALL 在下面增加:(注意,qianyunlai 是Linux新增的一个普通用户),没有的话可创建 ...
    
			
    4. 
						
  4. 最全面！2019年最新UX设计趋势预测合集
			
    以下内容由Mockplus团队翻译整理,仅供学习交流,Mockplus是更快更简单的原型设计工具. 追逐潮流是每个行业都必做的一件事,对于直接影响数字产品定位和用户感知方式的UX设计也是如此. 不论你 ...
    
			
    5. 
						
  5. Elastix 安装G729 G723语音编码
			
    下載適合自己機器及軟體版本的模組檔,基本上略分為 pentium/pentium2/pentium3/x86_64,Asterisk 1.2/1.4/1.6.前往 http://asterisk.ho ...
    
			
    6. 
						
  6. Ubuntu服务器如何搭建PPTPD(原创保证可用)
			
    Ubuntu是一款基于linux的操作系统,无需许可和订购的费用,Ubuntu Server可以帮助您高效地扩展您的数据中心.它精简的架构和自动化部署的能力让您只需花费更少的运算能力和资源,便可提供更 ...
    
			
    7. 
						
  7. 【算法】DP解决旅行路径问题
			
    问题描述 : After coding so many days,Mr Acmer wants to have a good rest.So travelling is the best choice ...
    
			
    8. 
						
  8. SpringBoot 多环境配置
			
    转载:https://www.cnblogs.com/gdpuzxs/p/7191436.html 在我们的实际开发中,一般都有三套环境,开发环境,测试环境,生产环境,三套环境的数据库连接配置也有所不 ...
    
			
    9. 
						
  9. [网络]10M、100M、1000M网线的水晶头接法
			
    在网络维护过程中经常要自己制作网线,水晶头理论上是这样接的: 10M和100M和1000M以太网在使用网线时,对网线各自有不同的要求. 10M和100M在目前来说,连接网络的时候,只用到两对线来传输网 ...
    
			
    10. 
						
  10. mybatis学习四  mybatis的三种查询方式
			
    <select id="selAll" resultType="com.caopeng.pojo.Flower"> select * from fl ...
    
			
    11.