Wie erhält man in Delphi Chromium Embedded Elemente nach Namen?

Um einen bestimmten DOM-Knoten mithilfe seiner ID aus einer TChromium-Instanz in das aktuelle Webdokument einzubetten, verwenden Sie ICefDomDocument.getElementById (). Aber wie findet man Elemente anhand des NAME-Attributs? Javascript hat die document.getElementsByName () -Methode und TWebBrowser (das den IE umschließt) hat einen ähnlichen Aufruf, aber ich kann nicht herausfinden, wie dies mit TChromium gemacht wird. Ich muss einige DOM-Elemente finden, die NAME-Attribute, aber keine ID-Attribute haben. Ich habe das durchsuchtCeflib Einheit und sah nichts, was es tun würde.

Nebenfrage. Wenn jemand einen Link zu einer Site oder einem Dokument im TChromium-Rezept-Stil hat, könnte ich ihn verwenden.

UPDATE: Während ich auf eine Antwort warte, habe ich den folgenden Code für getElementsbyName () gefunden. Ich möchte etwas schneller als das Scannen des gesamten DOM-Baums. Wenn Sie einen Fehler im Code sehen, lassen Sie es mich wissen:

type
    TDynamicCefDomNodeArray = array of ICefDomNode;


// Given a Chromium document interface reference and a NAME attribute to search for,
//  return an array of all DOM nodes whose NAME attribute matches the desired.
function getElementsByName(ADocument: ICefDomDocument; theName: string): TDynamicCefDomNodeArray;

    // Get all the elements with a particular NAME attribute value and return
    //  an array of them.
    procedure getElementsByName1(intfParentNode: ICefDomNode; theName: string; var aryResults: TDynamicCefDomNodeArray);
    var
        oldLen: integer;
        intfChildNode: ICefDomNode;
        theNameAttr: string;
    begin
        Result := nil;
        intfChildNode := nil;

        if Assigned(intfParentNode) then
        begin
            // Attributes are case insensitive.
            theNameAttr := intfParentNode.GetElementAttribute('name');

            if AnsiSameText(theNameAttr, theName) then
            begin
                // Name attribute match.  Add it to the results array.
                oldLen := Length(aryResults);
                SetLength(aryResults, oldLen + 1);
                aryResults[oldLen] := intfParentNode;
            end; // if AnsiSameText(intfParentNode.Name, theName) then

            // Does the parent node have children?
            if intfParentNode.HasChildren then
            begin
                intfChildNode := intfParentNode.FirstChild;

                // Scan them.
                while Assigned(intfChildNode) do
                begin
                    getElementsByName1(intfChildNode, theName, aryResults);

                    if Assigned(intfChildNode) then
                        intfChildNode := intfChildNode.NextSibling;
                end;
            end; // if intfParentNode.HasChildren then
        end; // if Assigned(intfParentNode) then
    end;

    // ---------------------------------------------------------------

var
    intfCefDomNode: ICefDomNode;
begin
    intfCefDomNode := nil;
    Result := nil;

    if Assigned(ADocument) then
    begin
        // Check the header.
        intfCefDomNode := ADocument.Document;

        if Assigned(intfCefDomNode) then
        begin
            // Check the parent.
            getElementsByName1(intfCefDomNode, theName, Result);
        end; // if Assigned(intfCefDomNode) then
    end; // if Assigned(ADocoument) then
end;

// ---------------------------------------------------------------

Antworten auf die Frage(1)

Ihre Antwort auf die Frage