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. linux以16进制方式查看文件
			
    vim打开文件 :%!xxd  以16进制查看 :%!xxd -r  转回来
    
			
    2. 
						
  2. xcode如何运行下载的demo工程
			
    1. 首先你需要改Bundle Identifier,修改成别人没注册过的. 2. 选中 “Automatically manage signing” 3. 在Team里面添加自己的个人帐号了.
    
			
    3. 
						
  3. mybatis的批量操作
			
    foreach关键字: 批量查找/删除:用where id in<foreach> (xxx,yyy,zzz ...)</foreach> 批量更新:需要开启批量sql,比如d ...
    
			
    4. 
						
  4. 再一道区间DP -- P4170 [CQOI2007]涂色
			
    https://www.luogu.org/problemnew/show/P4170 一道简单的区间DP,注意读入 #include <bits/stdc++.h> #define up ...
    
			
    5. 
						
  5. Spring框架简介
			
    1.发明者:Rod Johnson 2.轮子理论推崇者: 2.1 轮子理论:不用重复发明轮子 2.2 IT行业:直接只用写好的代码 3.Spring框架宗旨:不重新发明技术,让原有技术使用起来更加方便 ...
    
			
    6. 
						
  6. centos7 lvm实例
			
    1.lvm安装 rpm -qa|grep lvm lvm version yum install -y lvm2* 2.磁盘分区 fdisk -l fdisk /dev/xvdb1 #分区结束标记 t ...
    
			
    7. 
						
  7. Linux+Apache+Mysql+PHP优化技巧
			
    LAMP 平台由四个组件组成,呈分层结构.每一层都提供了整个软件栈的一个关键部分:Linux.Apache.MySQL.PHP. LAMP这个词的由来最早始于德国杂志“c't Magazine”,Mi ...
    
			
    8. 
						
  8. php-fpm安装、配置与优化
			
    转载自:https://www.zybuluo.com/phper/note/89081 1.php中fastcgi和php-fpm是什么东西 最近在研究和学习PHP的性能方面的知识,看到了factc ...
    
			
    9. 
						
  9. 2018.06.27Firing（最大权闭合子图）
			
    Firing Time Limit: 5000MS Memory Limit: 131072K Total Submissions: 11558 Accepted: 3494 Description  ...
    
			
    10. 
						
  10. 微信小程序toast框的使用
			
    1.wx.showToast() 方法可以配置toast框的提示文字,消失的时间,显示的图标 wx.showToast({ title: '请链接网络', icon:"none", ...
    
			
    11.