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;
// ---------------------------------------------------------------