如何获得WEBBROWSER下的所有连接?
解决方案 »
- 帮忙解释一条简单的代码!
- 用代码在DBGRID中动态添加一行
- 关于音量控制
- 给定一个TFont对象,如何得知由它书写的字串占用的高和宽(象素)?
- 高分相赠,例如在WORD等文档处理软件中工具栏有一个快速设置字体等颜色的按钮,请问DELPHI是否也有这种控件?如果答对100分全给,不够另
- 怎么样判断字段中的日期值是今天,是今天的在DBGrid中显示出来
- Midas的demo程序为什么不能在两台机子上运行?
- SendMessage问题求助!!!!
- 大家来讨论一下车牌识别的技术吧
- 静态数组,动态数组,以及用getmem 分配内存,分配出来的内存内容是不是必为0,还是要自己初始化?
- 非高手莫进
- 请高手解答!!!!!!!!!!
doc:IHTMLDocument2;
all:IHTMLElementCollection;
len,i:integer;
item:OleVariant;
begin
doc:=WebBrowser1 .Document as IHTMLDocument2;
all:=doc.Get_links; //doc.Links亦可
len:=all.length;
for i:=0 to len-1 do begin
item:=all.item(i,varempty); //EmpryParam亦可
memo1.lines.add(item.href);//此处获取link
end;
end;