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. VS2010工程结构及其瘦身策略
			
    VS2010工程结构: 我们以在VS2010上利用MFC创建的单文档应用程序HelloWorld的文件结构为例,简述VS2010应用程序工程中文件的组成结构. 1.解决方案相关文件 解决方案相关文件包 ...
    
			
    2. 
						
  2. django基础使用
			
    //创建应用 python3 manage.py startapp mysite //开启服务 python3 manage.py runserver 127.0.0.1:8080 //创建数据库命令 ...
    
			
    3. 
						
  3. sqli-labs：5-6，盲注
			
    思考1:当# --+都被过滤时,只能考虑闭合处理 思考2:union联合注入时必须先判断字段长度 eg. id=1' order by 3 and '1'='1 sqli5: 首先判断出对id经过了' ...
    
			
    4. 
						
  4. m序列
			
    产生m序列移位寄存器是一种逻辑电路,1阶,2阶...的电路图各不相同. 一般使用本原多项式计算出各阶数电路图. 一般的多项式为 f(x) = c0 * x^0 + c1 * x^1 + c2 * x^ ...
    
			
    5. 
						
  5. db2 解锁表
			
    db2 set integrity for ACT_RU_VARIABLE immediate checked
    
			
    6. 
						
  6. centos下安装配置jetty
			
    下载jdk-8u144-linux-x64.tar.gz # tar -zxvf jdk-8u144-linux-x64.tar.gz # mv jdk1.8.0_144 /usr/java/ # u ...
    
			
    7. 
						
  7. CSS学习笔记：盒子模型
			
    盒子模型(CSS basic box model):When laying out a document, the browser's rendering engine represents each ...
    
			
    8. 
						
  8. python里的字典和集合
			
    一.字典 1.字典的定义 字典是不可变的,是用hash值来存储的.字典的key必须是不可变的(可哈希) dict = {key1:value1 , key2:value2} 2.字典的增删改查 增 直 ...
    
			
    9. 
						
  9. 2019.01.19 bzoj5457: 城市（线段树合并）
			
    传送门 线段树合并菜题. 题意简述:给一棵树,每个节点有bib_ibi​个aia_iai​民族的人,问对于每棵子树,子树中哪个民族的人最多,有多少人. 思路: 直接上线段树合并,边合并边维护答案即可. ...
    
			
    10. 
						
  10. Java设计模式——行为型模式
			
    行为型模式,共11种:策略模式.模板方法模式.观察者模式.迭代子模式.责任链模式.命令模式.备忘录模式.状态模式.访问者模式.中介者模式.解释器模式. 11种模式的关系: 第一类:通过父类与子类的关系 ...
    
			
    11.