易截截图软件、单文件、免安装、纯绿色、仅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;
    


相关文档:

C#学习及与delphi的比较(一)

刚开始很不习惯c#的风格,哎,先入为主啊,delphi习惯了,{}代替begin/end太扎眼。
属性方法的宣告和代码在一起,没有像delphi分interface/implementation,感觉太乱,都不知道一个class到底有几个方法。
每个属性和方法前面都要单独写private/protected/public,老天,c#是delphi之父设计的揶,怎么不学delphi写一个就行 ......

终于用上破解的Delphi 2010

虽然用盗版是件很不光彩的事情,但是这个软件目前实在是买不起.呵,折磨了数月,而今天却不经意间成功了. 实在是难掩心中快感.
这所谓的破解过程相当简单
百度搜索一下
Delphi.Distiller.v1.85
解压后运行,点到DELPHI2010页面,>Tweat>再勾上Remove Delphi 2010 Updata....,再点击Clear All Embarcadero...
接着就OK ......

DELPHI参数几个概念上的区别

 引用参数:
引用参数用var关键字标示
procedure DoubleTheValue (var Value: Integer);
begin
Value := Value * 2;
end;
在这种情况下,参数既把一个值传递给过程,又把新值返回给调用过程的代码。当你执行完以下代码时:
var
X: Integer;
begin
X := 10;
DoubleTheValue (X);
x变量的值变成了20 ......

delphi 对字符串进行倒序的最快算法

var
   L,i:integer;
   Ustr,str:string;
   p:char;
begin
  str:='123456789ABCDEFG'
  L:=length(str);
  for i:=1 to l do begin
      p:=str[i];
      str[i]:=str[l-(i-1)];
     ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号