procedure EnumElement(DOC2:IHtmlDocument2;classname:string;title:string);
var
j:Integer;
HTMLElement:IHTMLElement;
begin
for j:=0 to Doc2.all.length-1 do
begin
HTMLElement:=Doc2.all.item(j,0) as IHTMLElement;
if (HTMLElement.className=classname) and(HTMLElement.title=title) then
begin
HTMLElement.click;//这里出错,为什么?
Exit;
end;
end;
end;
var
j:Integer;
HTMLElement:IHTMLElement;
begin
for j:=0 to Doc2.all.length-1 do
begin
HTMLElement:=Doc2.all.item(j,0) as IHTMLElement;
if (HTMLElement.className=classname) and(HTMLElement.title=title) then
begin
HTMLElement.click;//这里出错,为什么?
Exit;
end;
end;
end;
解决方案 »
- TdxSkinController使用
- 调用clientdataset.applyupdate后的updatestatus应是什么模式
- 关于installshield for Delphi7的问题???
- 请问如何编程测量线段的长度
- 求救(关于Adoquery)
- 各位前辈们vararrayof()怎么用?
- GHOST进行中被强行终止后数据丢失(急)
- 谁能帮我讲讲三层数据库应用程序的结构和概念!
- 怎样才能设置memo 的每一行的颜色,怎样才能取出memo每一行?
- 一个目前无人能解答的问题
- sql server 2000中怎么给存储过程中的变量赋值?在用DELPHI时
- codegear.com.cn寻求合理的使用者
像 (doc.images.item('NV_CoolPad1_r2_c2',EmptyParam) As IHTMLElement).Click;