Вы можете сделать следующее:
procedure TMainFrm.ClickBtnClick(Sender: TObject);
var
Document : IHTMLDocument2;
SPAN, Temp : IHTMLElement;
ElementCount, I : Integer;
begin
if WB.Document = nil then
begin
MessageBox(Handle, 'First Load a Page in TWebBrowser !!', '', MB_OK+MB_ICONEXCLAMATION);
Exit;
end;
if SIDEdit.Text = '' then
begin
MessageBox(Handle, 'Enter SPAN ID !', '', MB_OK+MB_ICONEXCLAMATION);
Exit;
end;
Document := WB.Document as IHTMLDocument2;
ElementCount := Document.all.length;
for I := 0 to ElementCount - 1 do
begin
Temp := Document.all.item(I, '') as IHTMLElement;
if (Temp.tagName = 'SPAN') and (Temp.id = SIDEdit.Text) then
begin
SPAN := Temp;
Break;
end;
end;
if SPAN <> nil then
SPAN.click
else
MessageBox(Handle, 'No SPAN Tag with ID Entered Found !', '', MB_OK+MB_ICONINFORMATION);
end;
Поместите эти компоненты в форму:
TWebBrowser , Имя: " WB ", для просмотра страницы
TEdit , Имя: " SIDEdit ", для присвоения идентификатора тега SPAN
TBitBtn , Имя: " ClickBtn ", код выше является событием OnClick для "ClickBtn"
Я думаю, что код прост и переменные понятны, при необходимости, скажите мне объяснить код ...
Есть пример ...
Удачи ...!