Chromium ve Delphi 6'yı kullanarak bir web sayfasında "yerel işlevleri" Javascript'e nasıl sunabilirsiniz?

Question

Delphi Chromium Embedded yardımıyla Chromium'u Delphi 6 projelerime başarıyla yerleştirdim. Şimdi Javascript kodunu çalıştırmak ve ana bilgisayarımın Delphi uygulamasına döndürülen sonuçlara sahip olmak istiyorum. Geçerli yöntemim, ExecuteJavascript() yöntemini çağırmak ve Javascript çağrısının sonuçlarını yazdığı bir DOM öğesini kullanmak ve bu öğeyi, sonuçları almak için Delphi'den bir TTimer yönteminde sorgulamaktır.

http://magpcss.org/ceforum/viewtopic.php?f=7&t=180

Bu da I denemek istiyorum: Ancak, ben JavaScript yerine sonuçlarını almak için çağrı bir yol olarak benim Delphi koduna "geri aramak" olması doğal işlevleri ve V8 uzantıları kullanmayla ilgili bilgi edinmek Delphi tabanlı olay dinleyicilerini web sayfasındaki (onblur, onmousedown, vb.) DOM öğelerine nasıl ekleyeceğinizi bilmek ister. Kimse onları nerede bulacağını bilen varsa, bu iki şeyi nasıl yapacağımı gösteren bazı örnekler arıyorum.

Answer 1

dinleyici takılması oldukça kolay (CEF sadece eski sürümler) 'dir: JavaScript almak için genişletilmiş fonksiyonlara ilişkin

procedure MouseDownCallback(const Event: ICefDomEvent); 
begin 
    ShowMessage('Mouse down on '+Event.Target.Name); 
end; 

procedure AttachMouseDownListenerProc(const Doc: ICefDomDocument); 
begin 
    Doc.Body.AddEventListenerProc('mousedown', True, MouseDownCallback); 
end; 

procedure TMainForm.Button1Click(Sender: TObject); 
begin 
    ChromiumComponent.Browser.MainFrame.VisitDomProc(AttachMouseDownListenerProc); 
end; 

doğrudan sonuçları: (? Henüz) gövde bunları içermez. Devam eden bir iş gibi görünüyor.

Düzenleme:

uzantıları yoluyla yoklama kurtulmak:

JavaScript kodu uzantılarını kullanarak Delphi koduna geri çağırması da gerçekten mümkün. Ayrıca, JavaScript'ten Delphi'ye değerler gönderebilirsiniz - bu, sonuçları sorgulamadan aktarmak için kullanılabilir.

procedure RegisterExtension; 
var 
    Code:string; 
begin 

    Code := 
    'var cef;'+ 
    'if (!cef)'+ 
    ' cef = {};'+ 
    'if (!cef.test)'+ 
    ' cef.test = {};'+ 
    '(function() {'+ 
    ' cef.test.__defineGetter__(''test_param'', function() {'+ 
    ' native function GetTestParam();'+ 
    ' return GetTestParam();'+ 
    ' });'+ 
    ' cef.test.__defineSetter__(''test_param'', function(b) {'+ 
    ' native function SetTestParam();'+ 
    ' if(b) SetTestParam(b);'+ 
    ' });'+ 
    ' cef.test.test_object = function() {'+ 
    ' native function GetTestObject();'+ 
    ' return GetTestObject();'+ 
    ' };'+ 
    '})();'; 

    CefRegisterExtension('example/v8', Code, TMyHandler.Create as ICefv8Handler); 
end; 

initialization 
    RegisterExtension; 

TMyHandler 'ın Execute sonra çağrılır: En initialization bölümünde

İlk geri çağrılırken sonra kullanılmak üzere bir JavaScript nesnesi oluşturur uzantısı, kayıt.

ChromiumComponent.Browser.MainFrame.ExecuteJavaScript('cef.test.test_object().GetMessage();', 'about:blank', 0); 

Bu göstermesi gerekir:

Şimdi

function TMyHandler.Execute(const name: ustring; const obj: ICefv8Value; const arguments: TCefv8ValueArray; var retval: ICefv8Value; var exception: ustring): Boolean; 
begin 
    ShowMessage('Execute!'); 
end; 

basitçe do JavaScript dan Delphi içine çağıran test etmek: TMyHandler

TMyHandler = class(TCefv8HandlerOwn) 
protected 
    function Execute(const name: ustring; const obj: ICefv8Value; 
    const arguments: TCefv8ValueArray; var retval: ICefv8Value; 
    var exception: ustring): Boolean; override; 
end; 

gösteri amaçlı uygulama şimdilik basittir olarak tanımlanır "Execute!" yazan bir mesaj kutusu.

Sana \ demolar bulabileceğiniz cefclient \ cefclient bileşeni kök dir klasör adında bir örnekten demo senaryoyu çekti. Uzantı örnek kodu biraz gizli ve diğer demo koduyla karıştırılmış. Ancak bizim için özel ilgi alanımız TExtension.Execute (benim TMyHandler.Execute'a eşdeğer) uygulamasıdır. Burada hangi işlevin çağrıldığını ve parametrelerin nasıl iletileceğini nasıl bulabilirsiniz. ( Link to the code.)