estoy con un problemita que no consigo resolver de ninguna manera, estoy usando un componente para delphi 10.3 CEF4Delphi, este componente facilita usar paginas modernas en Chromium, estoy intentando pasar un valor de una pagina a una variable string, ya conseguí mostrarlo en una ventana emergente del navegador, pero mi inconveniente ahora es obtener el valor de esa ventana emergente, también e echo que en el input y el botón de búsqueda haga un click automáticamente, solo el inconveniente es obtener el valor de la ventana emergente. Con el componente TWebbrowse es mas simple de copiar información de la pagina cargada, solo que paginas modernas no acepta cargar algunos datos. Espero la respuesta con gusto.
procedure TForm1.GoBtnClick(Sender: TObject);
var JScode:string;
begin
JSCode := 'var table = document.getElementsByTagName("table")[0];' +
'var rows = table.getElementsByTagName("tr");' +
'for (var i = 0; i < rows.length; i++) {' +
' var cells = rows[i].getElementsByTagName("td");' +
' for (var j = 0; j < cells.length; j++) {' +
' alert(cells[j].innerHTML);' +
' }' +
'}' ;
Chromium1.Browser.MainFrame.ExecuteJavaScript(JSCode, 'about:blank', 0);
end;