Czasem zarowno GetElementsByID oraz GetElementsByName to za malo - niektore tagi nie maja tych parametrow. Probowalem napisac wlasna procedure w stylu GetElementsByTagName (uniwersalna dla wszystkiego), a nastepnie dzialaniu na zasadzie ustawiania atrybutow SetAttribute - moje wypociny cos mi nie wychodza - TweBrowser daje mi d**y delikatnie rzeczu ujmujac(uzywam stare Delphi 7 - Gecko - nie dziala, Chromium - cos tam dziala) a do starego TWEBBrowsera jestem przyzwyczajony:
Zblizonym tematem do dyskusji jest:
TWebBrowser i GetElementById
Zreszta mniejsza z tym do rzeczy:
Czy ktos ma gotowa procedurke w stylu GetElementsByTagName a nastepnie SetAttribute dla ustawiania tekstu i klikania przyciskow? Ponizej wklejam swoja wersje
var
i: Integer;
doc: IHTMLDocument2;
elem: IHTMLElement;
//item: TListItem;
begin
wb.DownloadOptions := [DontExecuteScripts];
doc:= WB.Document as IHTMLDocument2;
if Assigned(doc) then
begin
for i:= 0 to doc.All.Length - 1 do
begin
elem:= doc.All.Item(i, EmptyParam) as IHTMLElement;
if (elem.tagName = 'div') and (elem.ClassName = 'listing-order') then;
elem.setattribute('data-click-area', 'xxx'));
elem.click;
end;
end;
Oczywiscie ani ustawienie atrybutu ani klikniecie w przycisk niestety na chwile obecna zupelnie nie dzialaja