WebBrowser-Javascript değişkeni delphi değişkenine atama

[nehirnnn]

Ben FNC Webbrowser kullanıyorum ama normal webbrowser da da mantık aynıdır herhalde.
Javascript içinde elde ettiğim bir değişken değerini Delphi içindeki bir değişkene nasıl aktarabilirim?

procedure TfMain.btnClick(Sender: TObject);
var js:string;
 begin;

 js := 'javascript: var simge=$("span[class*='+'''title-ZJX9Rmzv'''+']").text();'; 
 wb1.ExecuteJavaScript(js);

 end;

Buradaki javascript içindeki "simge" değişkeninin değerini Delphi içinde kullanmak istiyorum.

[hi_selamlar]

(28-07-2024, Saat: 10:47)nehirnnn Adlı Kullanıcıdan Alıntı: Ben FNC Webbrowser kullanıyorum ama normal webbrowser da da mantık aynıdır herhalde.
Javascript içinde elde ettiğim bir değişken değerini Delphi içindeki bir değişkene nasıl aktarabilirim?

procedure TfMain.btnClick(Sender: TObject);
var js:string;
 begin;

 js := 'javascript: var simge=$("span[class*='+'''title-ZJX9Rmzv'''+']").text();'; 
 wb1.ExecuteJavaScript(js);

 end;

Buradaki javascript içindeki "simge" değişkeninin değerini Delphi içinde kullanmak istiyorum.

Merhabalar,

procedure TfMain.btnClick(Sender: TObject);
var
 js: string;
begin
 js := 'var simge=document.querySelector("span[class*=\'title-ZJX9Rmzv\']").textContent; simge;';
 wb1.ExecuteJavaScript(js,
   procedure(const AResult: string)
   var
     simge: string;
   begin
     simge := AResult;
     ShowMessage('JavaScript Değeri: ' + simge);
   end
 );
end;

gibi bir yaklaşım yardımcı olabilir sanırım. Kodları test etmedim bilginiz olsun.

Kolay gelsin.

[nehirnnn]

Yöntem doğru gibi, ama ne denediysem "null" değeri alıyorum. Javascript içinde hangi komut AResult a yansıyor, onu bulamadım.
document.write ve jquery komutlarını denedim ama hep null değeri alıyorum.

[Tuğrul HELVACI]

Merhaba, window.chrome.webview.postMessage yöntemini incelemenizi tavsiye edebilirim.

[nehirnnn]

(29-07-2024, Saat: 12:10)Tuğrul HELVACI Adlı Kullanıcıdan Alıntı: Merhaba, window.chrome.webview.postMessage yöntemini incelemenizi tavsiye edebilirim.

Maalesef yine "null" dönüyor. "simge" değişkenini javascript içinde alert ile kontrol ediyorum, olması gereken değeri görüyorum. Yani javascript içinde null değil.

Ancak aşağıdaki kod içinde AResult null çıkıyor.

wb1.ExecuteJavaScript(js,procedure(const AResult: string)
   var
    simge: string;
  begin
    simge := AResult;
    ShowMessage('JavaScript Değeri: ' + simge);
  end
);

[Tuğrul HELVACI]

(29-07-2024, Saat: 12:33)nehirnnn Adlı Kullanıcıdan Alıntı:

(29-07-2024, Saat: 12:10)Tuğrul HELVACI Adlı Kullanıcıdan Alıntı: Merhaba, window.chrome.webview.postMessage yöntemini incelemenizi tavsiye edebilirim.

Maalesef yine "null" dönüyor. "simge" değişkenini javascript içinde alert ile kontrol ediyorum, olması gereken değeri görüyorum. Yani javascript içinde null değil.

Ancak aşağıdaki kod içinde AResult null çıkıyor.

wb1.ExecuteJavaScript(js,procedure(const AResult: string)
   var
    simge: string;
  begin
    simge := AResult;
    ShowMessage('JavaScript Değeri: ' + simge);
  end
);

Benim bahsettiğim yöntemi izlemediğinizi görüyorum verdiğiniz örnekten. Ayrıca; verdiğim linki inceleyip okumadığınızı da anlıyorum. Okumuş olsa idiniz; OnWebMessageReceived olay yöneticisinin etrafında biraz dolaşmak durumunda kalırdınız. Ayrıca herhangi bir Javascript kodu (bahsettiğim postMessage metodunu kullanmadığınız durum için) asenkron olarak çalışacaktır. Bu kodun Javascript tarafında Execute edilmesinin Delphi tarafında beklenilmesi gerekir. Bunun içinde OnExecuteScript olaylarını incelemeniz gerekir. Tabii ben bunları TEdgeBrowser için söylüyorum. Denemelerinizi onun üstünde yapabilirsiniz.

[nehirnnn]

Mesajınızın "Bu kodun Javascript tarafında Execute edilmesinin Delphi tarafında beklenilmesi gerekir. Bunun içinde OnExecuteScript olaylarını incelemeniz gerekir. Tabii ben bunları TEdgeBrowser için söylüyorum. Denemelerinizi onun üstünde yapabilirsiniz." kısmı da yeterli olacakmış.
FNC Browser kullandığım için bulduğum örneklerden ancak deneme yanılma yöntemiyle ilerliyorum. Yazılanları okumadığım için değil.

---

FNC Browser için problemi şu şekilde çözdüm. Javascript içinde bir fonksiyon tanımladım. Return ile delphiye aktarmak istediğim değişken değerini gönderdim. Bu şekilde delphi tarafından gönderdiğim değeri okuyabildim. İhtiyaç duyacaklar için örnek aşağıdaki gibi:

procedure TfMain.btnRefreshHisseListClick(Sender: TObject);
var js:string;
begin
 //
 js := 'javascript: var simge=$("span[class*='+'''title-ZJX9Rmzv'''+']").text(); function sonuc(param){ return param;} sonuc(simge);';
 wb1.ExecuteJavaScript(js,procedure(const AResult: string)
  var
    simge: string;
  begin
    simge := AResult;
    ShowMessage('JavaScript Değeri: ' + simge);
  end
);
end;

[mrmarman]

Ben de EdgeBrowser yakasında benzer bir yaklaşımı örneklemek için bir kod hazırlamıştım.. Üçüncü parti bileşenler için de bazen onun atasından yola çıkarak çözüm üretilebiliyor.

Buradan paylaşayım farklı bir örnek.

Kod: (Select All)

   + sLineBreak + '    <script>'
   + sLineBreak + '      document.getElementById(''DigerVar'').value     = TestVar'
   + sLineBreak + '    </script>'

şeklinde ne zaman bir script çalıştırsanız o anki web yakasındaki TestVar içeriği veya başka bir değişkeni statik sizin kontrolünüzdeki bir "DigerVar" isimli değişkenine taşır ve JS event ile okursunuz. 

Bunu yapabilmek için INJECTION metodu ile bilinen bir HTML element içeriğine bu scripti dahil edip işlevsel hale getirmelisiniz. Detayları için bu DelphiCan linkinde bir örnek bırakmıştım.

var
  FInProgress : boolean = false;

procedure TForm1.BitBtn1Click(Sender: TObject);
const
  LDefHtml = ''
    + sLineBreak + '<html>'
    + sLineBreak + '  <head>'
    + sLineBreak + '    <script>'
    + sLineBreak + '      var TestVar="Bu ''TestVar'' değişkeni içeriği, ''DigerVar'' değişkenine aktarılmış olmalı...";'
    + sLineBreak + '    </script>'
    + sLineBreak + '  </head>'
    + sLineBreak + '  <body>'
    + sLineBreak + '    <a id="DigerVar" value="henüz boş">DigerVar</a>'
    + sLineBreak + '    <script>'
    + sLineBreak + '      document.getElementById(''DigerVar'').value     = TestVar'
    + sLineBreak + '      document.getElementById(''DigerVar'').innerHTML = TestVar'
    + sLineBreak + '    </script>'
    + sLineBreak + '  </body>'
    + sLineBreak + '</html>'
    ;
begin
  FInProgress := true;

  EdgeBrowser1.Navigate( 'about:blank' );

  while FInProgress do
  begin
    Application.ProcessMessages;
    Sleep(60);
  end;

  EdgeBrowser1.NavigateToString( LDefHtml );

  EdgeBrowser1.ExecuteScript( 'window.document.getElementById(''DigerVar'').value' );

end;

procedure TForm1.EdgeBrowser1NavigationCompleted(Sender: TCustomEdgeBrowser;
  IsSuccess: Boolean; WebErrorStatus: TOleEnum);
begin
  FInProgress := false;
end;

procedure TForm1.EdgeBrowser1ExecuteScript(Sender: TCustomEdgeBrowser;
  AResult: HRESULT; const AResultObjectAsJson: string);
begin
  showmessage( 'Okunan Değer : ' + AResultObjectAsJson );
end;