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
TEmbededWB üzerindeki Script hatası
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
- adelphiforumz
- Üye
- Mesajlar: 602
- Kayıt: 01 Nis 2008 05:38
- Konum: İstanbul
TEmbededWB üzerindeki Script hatası
Ehil olmayanlara sabretmek ehil olanları parlatır.
Akıllı birisinden gelen cefa, bilgisizlerin vefasından iyidir.
Bilgiye ulaştı mı ayak, kanat olur
Biz insanı kıyafetiyle ağırlar bilgisiyle uğurlarız.
Mevlana
Akıllı birisinden gelen cefa, bilgisizlerin vefasından iyidir.
Bilgiye ulaştı mı ayak, kanat olur
Biz insanı kıyafetiyle ağırlar bilgisiyle uğurlarız.
Mevlana
- adelphiforumz
- Üye
- Mesajlar: 602
- Kayıt: 01 Nis 2008 05:38
- Konum: İstanbul
Re: TEmbededWB üzerindeki Script hatası
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
.PAS
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.
Ehil olmayanlara sabretmek ehil olanları parlatır.
Akıllı birisinden gelen cefa, bilgisizlerin vefasından iyidir.
Bilgiye ulaştı mı ayak, kanat olur
Biz insanı kıyafetiyle ağırlar bilgisiyle uğurlarız.
Mevlana
Akıllı birisinden gelen cefa, bilgisizlerin vefasından iyidir.
Bilgiye ulaştı mı ayak, kanat olur
Biz insanı kıyafetiyle ağırlar bilgisiyle uğurlarız.
Mevlana
- adelphiforumz
- Üye
- Mesajlar: 602
- Kayıt: 01 Nis 2008 05:38
- Konum: İstanbul
Re: TEmbededWB üzerindeki Script hatası
Bilgi için teşekkürlerkimimben yazdı:delphi chromium
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
Ehil olmayanlara sabretmek ehil olanları parlatır.
Akıllı birisinden gelen cefa, bilgisizlerin vefasından iyidir.
Bilgiye ulaştı mı ayak, kanat olur
Biz insanı kıyafetiyle ağırlar bilgisiyle uğurlarız.
Mevlana
Akıllı birisinden gelen cefa, bilgisizlerin vefasından iyidir.
Bilgiye ulaştı mı ayak, kanat olur
Biz insanı kıyafetiyle ağırlar bilgisiyle uğurlarız.
Mevlana
Re: TEmbededWB üzerindeki Script hatası
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
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