TEmbededWB üzerindeki Script hatası

[adelphiforumz]

Selamlar

"https://renklirecete.saglik.gov.tr" adresini delphi içinden açmaya kalktığımda
sürekli script hataları alıyorum

SlientMode:=True yaptığımda hatalar gidiyor fakat login çalışmıyor

Loginde test ettiğim seçenek "Kullanıcı Türü" "Eczane" olarak girmem gerekiyor
Benim için ilk etapta önemli olan kullanıcı adı ve şifre hatalıda olsa en azından uyarı mesajını alabilmek

denediğim componentler TEmbededWB, TWebBrowser, TsWebBrowser
Bunların dışında lisanslı olarak kullanabileceğim düzgün çalıştığını bildiğiniz component önerileriniz varmıdır.

Teşekkürler

[adelphiforumz]

Selamlar

Yukarıda bahsi geçen konuda biraz zamanım azalıyor
sizlerden ricam eğer delphi içerisinden böyle birşey mümkün olmuyorsa boşuna uğraşmıyayım
1-2 dk ayırıp aşağıdaki ekranı çalıştırıp gelen ekrandan eczane seçtikten sonra
kullanıcı adına "aa" şifresine "11" diyerek aldığınız mesajı yazabilrmisiniz.
Bende hiç bir işlem ve cevap dönmüyor

Teşekkürler
.DFM

Kod: Tümünü seç

object Form2: TForm2
  Left = 0
  Top = 0
  Caption = 'Form2'
  ClientHeight = 703
  ClientWidth = 1211
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 1211
    Height = 81
    Align = alTop
    Caption = 'Panel1'
    TabOrder = 0
    object Button1: TButton
      Left = 28
      Top = 37
      Width = 75
      Height = 25
      Caption = 'baglan'
      TabOrder = 0
      OnClick = Button1Click
    end
    object Edit1: TEdit
      Left = 34
      Top = 10
      Width = 367
      Height = 21
      TabOrder = 1
      Text = 'https://renklirecete.saglik.gov.tr'
    end
  end
  object WB: TWebBrowser
    Left = 0
    Top = 81
    Width = 1211
    Height = 622
    Align = alClient
    TabOrder = 1
    ExplicitLeft = 44
    ExplicitTop = 124
    ExplicitWidth = 300
    ExplicitHeight = 150
    ControlData = {
      4C000000297D0000494000000000000000000000000000000000000000000000
      000000004C000000000000000000000001000000E0D057007335CF11AE690800
      2B2E126208000000000000004C0000000114020000000000C000000000000046
      8000000000000000000000000000000000000000000000000000000000000000
      00000000000000000100000000000000000000000000000000000000}
  end
end

.PAS

Kod: Tümünü seç

unit RenkliRecete;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  MSHTML, SHDocVw,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.OleCtrls,  Vcl.ExtCtrls, acWebBrowser, SHDocVw_EWB, EwbCore, EmbeddedWB;

type
  TForm2 = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    Edit1: TEdit;
    WB: TWebBrowser;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
   WB.Navigate(Edit1.Text);
end;

end.

[kimimben]

delphi chromium

[adelphiforumz]

delphi chromium

Bilgi için teşekkürler
dediğiniz şekilde java script hatası almadan çalıştı
fakat birkaç sorum olacak eğer bu yapıyı kullandı iseniz
bir sayfa üzerinde "id" bilgisi olmayan "input" bir alan içerisine "name" kullanarak veri atamam mümkünmü
Daha önceden getElememtById ile işlem yapıyorduk fakat "Id" olmayınca nasıl bir yol izlemeliyim.

İyi Çalışmalar

[kimimben]

Merhaba

delphi tarafında kullanmadım.
.net wrapper olanı değişik amaçlar için kullanmıştım.

Aşağıda ki örnekte browser üzerinde nasıl javascript komut çalıştırılacağı örneği var.
https://github.com/hgourvest/dcef3/blob ... n.pas#L185

https://www.w3schools.com/jsref/met_doc ... byname.asp
https://www.w3schools.com/js/js_htmldom_html.asp


Ya da visitor pattern kullanılarak implemente edilmiş olan, VisitDomProc methodunu inceleyebilirsiniz.
http://stackoverflow.com/a/5961049/1140967