Utilizo o TWebbrowser
em uma aplicação Delphi XE7
, mas estou tendo problemas ao tentar executar comandos javascript
.
(OleException ... Não possível concluir a operação Erro: 80020101 )
Isso acontece com qualquer função que eu tente executar, seja minha ou jquery por exemplo, ao que parece a função nem chega a ser executada. O procedimento que uso para executar é o seguinte: How to call JavaScript functions in a TWebBrowser from Delphi em meu caso, tenho a função:
function colaNota () {
$('#corpo').append($('<div id="' + new_nota_id + '">' + new_nota_bar + '<p>' + new_nota_texto + '</p><div/>').addClass('notas ui-widget-content').css({
left: new_nota_x,
top: new_nota_y }));
controlaBarraMensagens('oculto');
$( ".notas" ).draggable();
$("#corpo").removeClass("inserindo");
$("#sub_indice_mold").removeClass("visivel");
clearNota();
};
No delphi estou chamando assim:
JSFn := 'colaNota();'; //Assim não funciona
JSFn := 'alert("Assim funciona");';
HTMLWindow.execScript(JSFn, 'JavaScript');