twebbrowser sayfayı açamıyor

[samsaros@gmail.com]

twebbrowser kullanarak    teletip.saglik.gov.tr  gibi siteleri açamıyorum. Bir yolu var mıdır? 
(site yükleniyor ama eksik, bu örnek verdiğim sitede banner kısmı yüklenmiyor)

TChromium ile sayfalar sorunsuz açılıyor ama oda çok güven vermedi.

[Hayati]

Linkini verdiniz site Bootstrap kullanıyor, Internet Explorer (özellikle eski sürümler) yeni CSS teknolojilerini tam desteklemiyor, sorun bu, çaresi var mı bilemiyorum.

[savasabd]

Kod: (Select All)

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION]
"uygulamanizinadi.exe"=dword:02AF9

 Yukardaki ifadeyi bir text dosyasına kopyalayın, uygulamanizinadi yazan yere uygulamanızın adını yazın, uzantıyı .reg olarak değiştirip kaydedin ve  çalıştırın.Uygulamanız açıksa kapatıp açın.Artık twebbrowser internet explorer 11'i kullanacaktır, farklı versiyonları kullanmak isteseniz sürümlere göre kodlar burada mevcut.Yukarda 2af9 yazan yeri istediğiniz sürümün koduyla  değiştirebilirsiniz.

[Ahmet İPEKÇİ]

Kod: (Select All)

type TBrowserEmulationAdjuster = class
 private
     class function GetExeName(): String; inline;
  public const
     // Quelle: https://msdn.microsoft.com/library/ee330730.aspx, Stand: 2017-04-26
     IE11_default   = 11000;
     IE11_Quirks    = 11001;
     IE10_force     = 10001;
     IE10_default   = 10000;
     IE9_Quirks     = 9999;
     IE9_default    = 9000;
     /// <summary>
     /// Webpages containing standards-based !DOCTYPE directives are displayed in IE7
     /// Standards mode. Default value for applications hosting the WebBrowser Control.
     /// </summary>
     IE7_embedded   = 7000;
  public
     class procedure SetBrowserEmulationDWORD(const value: DWORD);
end platform;

class function TBrowserEmulationAdjuster.GetExeName(): String;
begin
   Result := TPath.GetFileName( ParamStr(0) );
end;

class procedure TBrowserEmulationAdjuster.SetBrowserEmulationDWORD(const value: DWORD);
const registryPath = 'Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION';
var
   registry:   TRegistry;
   exeName:   String;
begin
   exeName := GetExeName();

   registry := TRegistry.Create(KEY_SET_VALUE);
   try
      registry.RootKey := HKEY_CURRENT_USER;
      Win32Check( registry.OpenKey(registryPath, True) );
      registry.WriteInteger(exeName, value)
   finally
      registry.Destroy();
   end;

//Oncreate e ekleyebilirsin
TBrowserEmulationAdjuster.SetBrowserEmulationDWORD(TBrowserEmulationAdjuster.IE11_Quirks);

[samsaros@gmail.com]

bu kadar hızlı çözüm bulacağımı düşünmemiştim, çok teşekkürler

[TescilsizUzman]

(20-02-2020, Saat: 09:48)samsaros@gmail.com Adlı Kullanıcıdan Alıntı: bu kadar hızlı çözüm bulacağımı düşünmemiştim, çok teşekkürler

Formda puanlama sistemi var. Teşekkürlerinizi puanla da ifade edebilirsiniz.