• 博客园logo
  • 会员
  • 众包
  • 新闻
  • 博问
  • 闪存
  • 赞助商
  • HarmonyOS
  • Chat2DB
    • 搜索
      所有博客
    • 搜索
      当前博客
  • 写随笔 我的博客 短消息 简洁模式
    用户头像
    我的博客 我的园子 账号设置 会员中心 简洁模式 ... 退出登录
    注册 登录
 






旷野轻尘一个人 软件开发

delphi blender lazarus 网络推广 游戏开发 18710517694
 
 

Powered by 博客园
博客园 | 首页 | 新随笔 | 联系 | 订阅 订阅 | 管理

delphi 打开浏览器的 牛逼方法 哈哈

1.install microsft Internet controls (activesX)
用 TWebBrowser控件(IE控件)
 
对我有用[0] 丢个板砖[0] 引用 | 举报 | 管理
menxin
关注
menxin
menxin
本版等级:T2
 
#2 得分:0回复于: 2000-06-28 10:23:00
D5直接支持。
 
对我有用[0] 丢个板砖[0] 引用 | 举报 | 管理
fanhaiquan
关注
fanhaiquan
fanhaiquan
本版等级:T1
 
#3 得分:0回复于: 2000-06-28 15:08:00
用 TWebBrowser控件
var Html : TStringList;
  Html := TStringList.Create;
  Html.Add('');//html的第一行。
  Html.Add('');
  ...............
  Html.SaveToFile('Temp.htm');
  WebBrowser1.OleObject.Navigate('Temp.htm');
  Html.Free;
//搞定
 
对我有用[0] 丢个板砖[0] 引用 | 举报 | 管理
hf
关注
hf
hf
本版等级:T2
 
#4 得分:0回复于: 2000-06-28 16:00:00
不知道你是不是要在程序中来打开IE,我的一点理解:
调用浏览器访问INTERNET主页函数 
   function ShellExecute(hWnd: HWND; Operation, FileName, Parameters, Directory: PChar; ShowCmd: Integer): HINST; stdcall; 
   参数定义: 
   hWnd: 父窗口句柄 
   Operation: 操作模式 open 或 print 
   FileName: 文件名指针 
   Parameter: 传递给执行文件的参数 
   Directory: 缺省目录 
   ShowCmd: 程序启动后的状态:(1)SW_SHOWNORMAL 正常 (2)SW_MINIMIZE 最小 (3)SW_MAXIMIZE 最大 

   不考虑错误判断,打开一个WEB页面的例子: 
   ShellExecute(handle, 'open', 'http://www.microsfto.com', nil, nil, SW_SHOWNORMAL); 

  函数ShellExecute包含在单元ShellAPI中。
 
对我有用[0] 丢个板砖[0] 引用 | 举报 | 管理
fanhaiquan
关注
fanhaiquan
fanhaiquan
本版等级:T1
 
#5 得分:0回复于: 2000-06-30 12:59:00
var Html : TStringList;
  Html := TStringList.Create;
  Html.Add('');//html的第一行。
  Html.Add('');
  ...............
  Html.SaveToFile('Temp.htm');
  WebBrowser1.OleObject.Navigate('Temp.htm');
  Html.Free;
  ////可用于内容是不定的,很好用的:比如:
     //var strLine : string;
     //strLine := 'name';//strLine 当然可以是任意的
     //Html.Add('你的名字是:'+strLine);
  //对于固定网页,可以这样用就可以了: 

   WebBrowser1.OleObject.Navigate('http://www.etang.com');
   //是不是很爽呀!
 
对我有用[0] 丢个板砖[0] 引用 | 举报 | 管理
cxgtommy
关注
cxgtommy
cxgtommy
本版等级:T2
 
Blank
#6 得分:0回复于: 2000-06-30 13:16:00
走题一下,对于hf的补充,那种方法的坏处是会冲掉别人browser里面的东西,好处是各种浏览器通杀,但如果一定要开个ie新窗口,可以试下面的方法
var
hello:olevirant;
begin
  hello:=createoleobject('internetexplorer.application');
  hello.navigate('www.tommy.com');
  hello.visible:=true;
end;
 
对我有用[0] 丢个板砖[0] 引用 | 举报 | 管理
bruce_zhao
关注
bruce_zhao
bruce_zhao
本版等级:T1
 
#7 得分:0回复于: 2000-09-10 18:51:00
Delphi5中已经有了一个WebBrowser的控件。它实际上是通过COM来控制IE。
我现在正在写一个用IE的软件,也在研究这方面的东西,希望能和你交流!
 
对我有用[0] 丢个板砖[0] 引用 | 举报 | 管理
Putao
关注
Putao
Putao
本版等级:T2
 
#8 得分:0回复于: 2000-09-10 23:46:00
关注
 
对我有用[0] 丢个板砖[0] 引用 | 举报 | 管理

zyb
关注
zyb
zyb
本版等级:T2
 
#9 得分:0回复于: 2000-09-11 08:34:00
我有例程,有兴趣的话来信!————wxlzyb@263.net
delphi lazarus opengl 网页操作自动化, 图像分析破解,游戏开发
发表于 2016-08-05 01:40  旷野轻尘一个人  阅读(803)  评论(0)    收藏  举报
 
刷新页面返回顶部