BriskBard, CEF4Delphi, WebView4Delphi, WebUI4Delphi and WebUI4CSharp

Code: Select all

procedure SimpleDOMIteration(const aDocument: ICefDomDocument);
var
  TempHead, TempChild : ICefDomNode;
begin
  try
    if (aDocument <> nil) then
      begin
        TempHead := aDocument.Head;

        if (TempHead <> nil) then
          begin
            TempChild := TempHead.FirstChild;

            while (TempChild <> nil) do
              begin
                CefLog('CEF4Delphi', 1, CEF_LOG_SEVERITY_INFO, 'TempChild.Name: ' + TempChild.Name + ', ElementInnerText: ' + Trim(TempChild.ElementInnerText));
                CefLog('CEF4Delphi', 1, CEF_LOG_SEVERITY_INFO, 'TempChild.GetFormControlElementType: ' + TempChild.GetFormControlElementType);

                TempChild := TempChild.NextSibling;
              end;
          end;
      end;
  except
    on e : exception do
      if CustomExceptionHandler('SimpleDOMIteration', e) then raise;
  end;
end;

Code: Select all

TempHead := aDocument.Body;

Code: Select all

TempHead := aDocument.Head;