Js ile login

[RAD Coder]

(23-07-2024, Saat: 12:09)nevzatc Adlı Kullanıcıdan Alıntı:

(23-07-2024, Saat: 12:02)RAD Coder Adlı Kullanıcıdan Alıntı: EdgeBrowser1 in OnDocumentComplete gibi bir olayı olması gerekiyor.
Bu olayda, son yüklenen sayfanın html bilgisini alabilirsiniz.

malesef böyle bir event yok, EdgeBrowser1.ExecuteScript('encodeURI(document.documentElement.outerHTML)'); bunu çalıştırıp onexecutescript teki AResultObjectAsJson değişkenine baktım ama js lerden önceki ham halini dökümante ediyor

OnNavigationCompleted olayını deneyin.

[nevzatc]

(23-07-2024, Saat: 13:11)RAD Coder Adlı Kullanıcıdan Alıntı:

(23-07-2024, Saat: 12:09)nevzatc Adlı Kullanıcıdan Alıntı: malesef böyle bir event yok, EdgeBrowser1.ExecuteScript('encodeURI(document.documentElement.outerHTML)'); bunu çalıştırıp onexecutescript teki AResultObjectAsJson değişkenine baktım ama js lerden önceki ham halini dökümante ediyor

OnNavigationCompleted olayını deneyin.

OnNavigationCompleted event ında WebErrorStatus leri işleyebiliyorsun, sayfa içeriğine buradan ulaşılabilecek bir kalıp yok.

---

Kaynak kod bilgisine de ulaştım, sayfayı yükle -> Login ol -> Kaynak kodu getir. Form üzerinde bir edgebrowser , 1 memo , 3 button ile çalıştırdım.
Yardımcı olan arkadaşlara saygı sevgi ve teşekkürlerimi sunuyorum, umarım benim haricimde başkalarının da işine yarayabilir.
****************************************************************************************************************
uses
  System.NetEncoding;

procedure TForm1.loadPageButtonClick(Sender: TObject);
begin
  EdgeBrowser1.Navigate('http://192.168.1.148/user/login');
end;

procedure TForm1.loginButtonClick(Sender: TObject);
begin
  EdgeBrowser1.ExecuteScript('document.getElementsByName("user")[0].value = ''admin''');
  EdgeBrowser1.ExecuteScript('document.getElementsByName("pwd")[0].value = ''12345678''');
  EdgeBrowser1.ExecuteScript('document.getElementsByClassName(''loginBtn lan-trans'')[0].click();');

end;

procedure TForm1.getSourceCodeClick(Sender: TObject);
begin
  EdgeBrowser1.ExecuteScript('encodeURI(document.documentElement.outerHTML)');
end;

procedure TForm1.EdgeBrowser1ExecuteScript(Sender: TCustomEdgeBrowser;
  AResult: HRESULT; const AResultObjectAsJson: string);
begin
  if AResultObjectAsJson <> 'null' then
    memo1.Text := TNetEncoding.URL.Decode(AResultObjectAsJson).DeQuotedString('"');
end;