For Each fo In WB.object.document.All
If TypeName(fo) = "HTMLTableCell" Then
上面是VB代碼，哪位大神能幫我改成delphi代碼嗎，謝謝了！！！
uj5u.com熱心網友回復：
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;
uj5u.com熱心網友回復：
建議使用EmbeddedWB，功能比webbrowser強大，好用。獲取網頁文本只需一句代碼：
EWB.DocumentSourceText
獲取網頁原始碼：
EWB.DocumentSource
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/88754.html
標籤：VCL組件開發及應用
上一篇：Delphi XE7開發的ANDROID程式包含廣告，怎么去除???
下一篇：如何連接動態IP地址上的資料庫？