可能是这样:
var
Doc: IHTMLDocument2;
being
Doc := Document2 as IHTMLDocument2;
for i := 0 to doc.all.length - 1 do
begin
Element:=doc.all.item(EmptyParam, i) as IHTMLElement;
if WideSameText(Element.tagName, 'TD') then
begin
end;
end;
end;
var
Doc: IHTMLDocument2;
being
Doc := Document2 as IHTMLDocument2;
for i := 0 to doc.all.length - 1 do
begin
Element:=doc.all.item(EmptyParam, i) as IHTMLElement;
if WideSameText(Element.tagName, 'TD') then
begin
end;
end;
end;
解决方案 »
- 请教在Delphi中使用ShellExecute运行另一个.EXE文件时如何不使程序继续执行,只有当执行的程序运行完成后才继续执行下面的语句?...
- ActiveX 在浏览器中不显示????
- 请高手,多指点!(数据库开发关于ADOQuery1.Parameters)
- 如何在网页在调用DLL?
- 怎么在TreeView中的节点上保存一个对象的?
- 大家都下班了吗?紧急请教一个字符串处理问题!
- 怎样使窗体运行的时候就最大化?
- 怎样判断打印机是否处于开启或联机状态?
- 关于Delphi7中操作Excel表格
- 关于窗体的问题!谢谢!!!
- 一个原本用XE3写的代码,升级到XE7后,无法设Debug断点,怎么办?
- 如何遍历webbrowser控件document文档里面的表格单元格对象?
procedure TForm1.btn2Click(Sender: TObject);
var
i:Integer;
myole:oleVariant;
begin
myole := wb1.Document;
for i := 0 to myole.all.length - 1 do
begin
//if (myole.all.item(i).tagName = 'INPUT') then
if (myole.all.item(i).tagName = 'INPUT') and (i=28) then
begin
ShowMessage( myole.all.item(i).value);
//ShowMessage(IntToStr(i));
// ShowMessage( myole.all.item(i).name);
//mmo1.Lines.Add(myole.all.item(i).name); //mmo1.Lines.Add(myole.all.item(i).value);
end;
end;end;
EWB.DocumentSourceText获取网页源码:
EWB.DocumentSource
table