中国IT动力,最新最全的IT技术教程
最新100篇 | 推荐100篇 | 专题100篇 | 排行榜 | 搜索 | 在线API文档 | 网通镜像
首 页 | 程序开发 | 操作系统 | 软件应用 | 图形图象 | 网络应用 | 精文荟萃 | 教育认证 | 硬件维护 | 未整理篇 | 站长教程
ASP JS PHP工程 ASP.NET 网站建设 UML J2EESUN .NET VC VB VFP 网络维护 数据库 DB2 SQL2000 Oracle Mysql
服务器 Win2000 Office C DreamWeaver FireWorks Flash PhotoShop 上网宝典 CorelDraw 协议大全 网络安全 微软认证
硬件维护  CPU  主板  硬盘  内存  显卡  显示器  键盘鼠标  声卡音箱  打印机  机箱电源  BIOS  网卡  C#  Java  Delphi  vs.net2005
  当前位置:> 程序开发 > 编程语言 > Delphi > 临时文章
HTTPLink
作者:henryluo 时间:2002-09-27 11:41 出处:互联网 责编:chinaitpower
              摘要:HTTPLink
 

HTTP Link

Print
Email
 
article
Submitted on: 3/2/2004 11:59:07 AM
By: t0rus 
Level: Beginner
User Rating: Unrated
Compatibility:Delphi 7, Delphi 6

Users have accessed this article 1657 times.
 
 
     There are at least 3 ways to create an http link on your form, i'll describe 2 of them here.

 
 
Terms of Agreement:   
By using this article, you agree to the following terms...   
1) You may use this article in your own programs (and may compile it into a program and distribute it in compiled format for languages that allow it) freely and with no charge.   
2) You MAY NOT redistribute this article (for example to a web site) without written permission from the original author. Failure to do so is a violation of copyright laws.   
3) You may link to this article from another website, but ONLY if it is not wrapped in a frame. 
4) You will abide by any additional copyright restrictions which the author may have placed in the article or article's description.
First, you need to create a button/label/whatever, then you'll have this procedure...

procedure Tform1.Button1Click(Sender: TObject);
const
csOLEObjName = 'InternetExplorer.Application';
var
IE : Variant;
begin
IE := CreateOleObject( csOLEObjName );
IE.Visible := true;
IE.Navigate('http://www.yahoo.com');
end;

the unit that u'll need for this application should be automatically added to the Uses if not, just add Uses ComOBJ there but this only works if you have internet explorer installed.
the SECOND method should work regardless of your browser:

ShellExecute(0,'open','http://www.yahoo.com',',',SW_SHOWNORMAL);

for this one, you'll need to have Uses ShellAPI
the third method, consists of simply downloading a component that has http link, and adding it to your form, but that's up to you to look for one

关闭本页
 
首页 | 投资与合作 | 服务条款 | 隐私政策 | 收藏本站 | 设为首页 | 新用户注册 | 免责声明 | 使用帮助
Copyright ©2005-2008 chinaitpower.com All rights reserved. www.chinaitpower.com 版权所有