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. nodejs 后台开发 和C++代码开发
			
    https://www.npmjs.com/package/node-gyp node-gyp Node.js native addon build tool Node.js native addon ...
    
			
    2. 
						
  2. UI设计教程：如何在设计中运用颜色
			
    灰度优先 我们习惯在设计阶段的早期就开始调整颜色和色调.但是,当你意识到自己花了3个小时来调整主色调的时候,你发现这种行为毫无帮助.虽然把玩颜色很有吸引力,但是你应该避免在设计初期进行这种行为. 相反 ...
    
			
    3. 
						
  3. 使用tensorflow下的GPU加速神经网络训练过程
			
    下载CUDA8.0,安装 下载cuDNN v5.1安装.放置环境变量等. 其他版本就不装了.不用找其他版本的关系. 使用tensorflow-gpu1.0版本. 使用keras2.0版本. 有提示的. ...
    
			
    4. 
						
  4. 2019.01.19 codeforces343D.Water Tree（树剖+ODT）
			
    传送门 ODTODTODT板子题. 支持子树01覆盖,路径01覆盖,询问一个点的值. 思路:当然可以用树剖+线段树,不过树剖+ODTODTODT也可以很好的水过去. 注意修改路径时每次跳重链都要修改. ...
    
			
    5. 
						
  5. linux学习--查看操作系统版本及cpu及内存信息
			
    查看版本当前操作系统内核信息 uname -a 查看当前操作系统版本信息 cat  /proc/version 查看物理cpu个数: cat /proc/cpuinfo| grep "phy ...
    
			
    6. 
						
  6. Win10通知区域图标设置；windows10系统图标合并；Windows10系统通知合并
			
    1.一直喜欢Windows7的通知图标合并 2.通过查阅找到方法 a.输入命令语句   win+R  :shell:::{05d7b0f4-2121-4eff-bf6b-ed3f69b894d9} 回 ...
    
			
    7. 
						
  7. IntelliJ IDEA 2017版 Spring5最基本的bean例子创建
			
    一.简述         SpringBoot是基于spring框架之上的快速开发的框架.Spring4核心就是容器,容器提供了对bean的装配和管理.       spring依赖加载:       ...
    
			
    8. 
						
  8. 总结一下《vue的使用》
			
    1.用vue创建项目的时候, 1.安装axios,对axios进行处理,创建axios.js文件,设置基础请求地址, 设置前置守卫和独享守卫,对请求数据进行设置,(特别实在进行token验证的时候特别 ...
    
			
    9. 
						
  9. BZOJ 1059  [ZJOI2007]矩阵游戏 (二分图最大匹配)
			
    1059: [ZJOI2007]矩阵游戏 Time Limit: 10 Sec  Memory Limit: 162 MBSubmit: 5281  Solved: 2530[Submit][Stat ...
    
			
    10. 
						
  10. 时间控件My97简单用法
			
    my97的用法很是简单,项目中用到,查了资料才找到的,简单使用,记一下,方便查阅. 1.添加依赖. <script language="javascript" type=&q ...
    
			
    11.