Disculpa la tardanza, estoy intentando probar tu codigo de ejemplo, pero creo que me faltan cosas, por lo que entiendo cada linea de codigo que me indicaste es una especie de script que se ejecuta en el procedimiento:
Código Delphi
[-]
procedure TfrmMain.EdgeBrowserExecuteScript(Sender: TCustomEdgeBrowser; AResult: HResult;
const AResultObjectAsJson: string);
Ahora estoy poniendo el comando que me indicaste en:
Código Delphi
[-]
procedure TfrmMain.EdgeBrowserNavigationCompleted(Sender: TCustomEdgeBrowser; IsSuccess: Boolean;
WebErrorStatus: TOleEnum);
begin
EdgeBrowser.ExecuteScript('document.getElementById("USUARIO").value = "pepe@gmail.com";');
end;
Y al ejecutarse aparece: (anexe imagen) pero lo que aparece es:
Cita:
The script has completed:
Result = $0
ResultObject = null
|
No se interpretarlo, pero entiendo que al parecer corrio bien el Script, pero en mi pagina no alimento el espacio para el usuario, no se que mas este faltando?
Saludos.