مشكلة في متصفح مكتوب بالدلفي , هل من حل ؟

مشكلة في متصفح مكتوب بالدلفي , هل من حل ؟ - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : مشكلة في متصفح مكتوب بالدلفي , هل من حل ؟ (/showthread.php?tid=9213)

مشكلة في متصفح مكتوب بالدلفي , هل من حل ؟ - spiro saad - 04-03-2018

السلام عليكم ورحمة الله وبركاته
المشكلة هي : عند تنفيذ البرنامج وكتابة الموقع المراد الدخول إليه تظهر هذه الرسالة على المتصفح :
[صورة: 11.jpg]

RE: مشكلة في متصفح مكتوب بالدلفي , هل من حل ؟ - AX302 - 06-03-2018

السلام عليكم
صع لنا الكود لكي يتسنى لنا معرفة المشكل

RE: مشكلة في متصفح مكتوب بالدلفي , هل من حل ؟ - spiro saad - 07-03-2018

procedure TForm1.sSpeedButton5Click(Sender: TObject);
begin
wb1.Navigate(sEdit1.Text);
end;

حيث سبيد بوتون هو زر الإنتقال للموقع
ولكم جزيل الشكر Smile

RE: مشكلة في متصفح مكتوب بالدلفي , هل من حل ؟ - AX302 - 10-03-2018

يا اخي ضع السورس كاملا

RE: مشكلة في متصفح مكتوب بالدلفي , هل من حل ؟ - bassem_43 - 11-03-2018

السلام عليكم
اطنه يحاول فتح رابط موقع مكتوب في edittext
تابع مع هدا الموضوع
http://delphi4arab.net/forum/showthread.php?tid=8898&highlight=فتح+رابط
بالتوفيق

RE: مشكلة في متصفح مكتوب بالدلفي , هل من حل ؟ - aymhn - 11-03-2018

وعليكم السلام و رحمة الله و بركاته
بالنسبة لمكون الواب براوزر webbrowser لا يشتغل مع الوندوز 7
فاذا كان نظام التشغيل لديك وندوز 7 فلا تتعب نفسك مع الواب براوزر فلن يشتغل

RE: مشكلة في متصفح مكتوب بالدلفي , هل من حل ؟ - Ben.Ja - 11-03-2018

حاول ارجاع اعدادات Internet Explorer الى الاعدادات الافتراضية, واذا لم يشتغل ضع السورس كاملا هنا
aymhn : مكون twebbrowser يعمل بشكل عادي في اي ويندوز, فالمكون يستخدم IE الذي على الجهاز

RE: مشكلة في متصفح مكتوب بالدلفي , هل من حل ؟ - wadoud - 11-03-2018

السلام عليكم,
أخي الكريم, إذا كنت تريد إنشاء متصفح إحترافي و متوافق مع مستجدات الواب دعك من متصفح دلفي الإفتراضي, هناك بديل ممتاز ويخلو من الأخطاء مجاني ويمكنك إنشاء متصفح متكامل.
عليك بتنصيب مكون [size=medium]CEF4DELPHI الذي يعمل مع كل إصدارات الدلفي,مع العلم ان متصفح اوبرا مبرمج به. [/size]
[size=medium][size=x-small]CEF4Delphi is an open source component to embed Chromium-based browsers in applications made with Delphi. It's based on DCEF3, made by Henri Gourvest.[/size][/size]
[size=medium][size=x-small]هنا التحميل [/size][/size]
[size=medium][size=x-small]CEF4DELPHI[/size][/size]
[size=small]هنا الشرح والتنصيب [/size]
صورة للمكون بعد التنصيب
[صورة: 797a7949ea5dd94.png]

والله هو الموفق.

السلام عليكم ,
من جديد رجعت اليك أخي الكريم , حسنا لنوضح الامر :
[size=small]TWebBrowser يعمل وفق [size=small]Internet Explorer المنصب في النظام , و الملاحظ أن TWebBrowser يعمل ويظهر الصفحات بدون مشاكل إذا كا الإصدار Internet Explorer أقل من 8 ( من 5 إلى 7) بالطبع في حدود ما تنمحه هذه الإصدارات القديمه من IE.[/size][/size]
[size=small][size=small]في المقابل إذا كان الإصدار 8 فما فوق متصفحنا يتصرف كما لو كان الاصدار 7. إن صح التعبير.[/size][/size]
[size=small][size=small]هل هناك من حل لهذه المهزلة؟ نعم بالطبع تابع معي من فضلك.[/size][/size]
[size=small][size=small]علينا الرجوع الى الرجستري [/size][/size]
[size=small][size=small]أولا عليك معرفة إصدار IE المنصب [/size][/size]
[size=small][size=small]هنا كود معرفة الإصدار IE [/size][/size]

كود :
function GetIEVersion: string; 
var
  Reg: TRegistry; 
begin
  Result := '';
  Reg := TRegistry.Create; 
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE; 
    if Reg.OpenKeyReadOnly('Software\Microsoft\Internet Explorer') then
    try
      Result := Reg.ReadString('Version'); 
    finally
      Reg.CloseKey; 
    end; 
  finally
    Reg.Free; 
  end;
  if Result = '' then
    Result := '0'; 
end;

[size=small][size=small]حسنا عرفت الإصدار , تذهب الى هذه الصفحة[/size][/size]
[size=small][size=small]MSDN [/size][/size]
في Browser emulation تلاحظ ان كل نسخة من اصدار IE تقلبها قيمة value
الان إذهب الى الرجستري ,لنفترض ان برنامجك هو MyBrowser.exe وقم بمايلي

كود :
HKEY_CURRENT_USER
  SOFTWARE
    Microsoft
      Internet Explorer
        Main
          FeatureControl
            FEATURE_BROWSER_EMULATION
              MyBroser.exe = (DWORD) 00010000

عليك كتابة من نوع DWORD
وهي القيمة التي نجدها في الموقع المشار اليه أعلاه والمتوافقة مع اصدارIE المنصب عندك.
هذا و الله هو الموفق.
السلام عليكم.

[size=small][size=small] [/size][/size]