易截截图软件、单文件、免安装、纯绿色、仅160KB

[delphi组件] Webbrowser的使用

delphi中Webbrowser的使用
1.获得网页中变量值
     htm中<script> var currID=123</script>
     程序中可以这么调用 id := Form1.WebBrowser1.OleObject.Document.script.currID
     值得说明的是,变量可以是javascript定义的,也可以是vbscript定义的,如果Webbrowser1中找不到该变量,调用会触发一个异常事件,即变量currID不存在
2.执行网页中的函数
     tmp := 'currID = getNextID(currID)'+#13#10;
     Form1.WebBrowser1.OleObject.Document.parentWindow.execScript(tmp,'JavaScript');
    调用函数的方法就是execScript接口,同样,如果函数不存在,或者运行错误也会触发脚本错误异常
3.设置网页背景
     背景图片 WebBrowser1.OleObject.Document.body.background    := 'http://seelearn.com/bg.gif'
     背景颜色 WebBrowser1.OleObject.Document.body.bgcolor    := '#eeeeee'
4.调用网页中已知对象
     src := WebBrowser1.OleObject.Document.getElementByID('img1').src
     该方法其实就是javascript中的 getElementByID  
5.获取页面中所有的frame
     使用DHTML。
     frames:=wb.OleObject.document.frames;
     for i:=0 to frames.length do
     memo1.lines.Add(frames[i].document.body.innerHTML);
6.BorderStyle=bsNone后Webbrowser会被重新初始化
     这是一个让人很意外的一个问题,Delphi在窗口控件的控制方面做得非常好,很少出现这种BUG
     根据分析,出现这个现象有很多情况 改变FormStyle也会出现 ; 如果    webbrowser.parent    由panel1    改到panel2.也会导致webbrowser重新  
   初始化。
7.直接向Webbrowser中写入html代码,不需要Navigate到实际存在的文件
     var
    StrStream:TStringStream;
    SetNoteStr: string;
    


相关文档:

上位机完工 ——delphi 告一段落

全图

保存数据为txt文档

保存为图像

打印——pdf打印机
 
下一步 有时间的话 实现 标签页面   USB转串口自动识别设备  //重新回到STM32上面-02-26  21:35:21
......

Delphi游戏开发网址大全[转贴]


Source Code
http://www.codefans.com/CodeList/Catalog_5_CodeTime_Desc_1.html
http://www.vscodes.com/sitemap.html
http://www.itlove.net/Soft/261/
DelphiX
http://www.micrel.cz/Dx/
http://www.delphi3d.net/index.php
http://www.pascalgamedevelopment.com/
http://www.2ccc.com/article.asp?articleid ......

Delphi中DLL初始化和退出处理


<1>利用Unit的
Initalization与Finalization这两个小节
  可以在Unit的这两个小节中安排Unit的进入和退出,但是
Program

Library并没有这两个部分,所以只能写在Unit中。
<2>利用ExitProc变量
  在Library的begin
..end.中间是可以写代码
的,
这里可以放置
DLL初始化代码
。如果想要做善 ......

Delphi编写系统服务六:在服务中使用COM组件

Delphi编写系统服务六:在服务中使用COM组件 收藏
 在服务中调用COM组件不能像在桌面程序中直接创建,在每次创建之前先调用CoInitialize(nil),释放的时候调用CoUninitialize。例如:调用ADO组件
var
  Qry: TADOQuery;
begin
  CoInitialize(nil);
  Qry := TADOQuery.Create(nil);
  tr ......

Delphi编写系统服务三:编写两栖系统服务

Delphi编写系统服务三:编写两栖系统服务 收藏
 采用下面的方法,可以实现一个两栖系统服务(既系统服务和桌面程序的两种模式)
工程代码:
program FleetReportSvr;
uses
  SvcMgr,
  Forms,
  SysUtils,
  Windows,
  SvrMain in 'SvrMain.pas' {FleetReportService: TService}, ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号