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

[spiro saad]

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

[AX302]

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

[spiro saad]

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

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

[AX302]

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

[bassem_43]

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

[aymhn]

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

[Ben.Ja]

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

[wadoud]

السلام عليكم,
أخي الكريم, إذا كنت تريد إنشاء متصفح إحترافي و متوافق مع مستجدات الواب دعك من متصفح دلفي الإفتراضي, هناك بديل ممتاز ويخلو من الأخطاء مجاني ويمكنك إنشاء متصفح  متكامل.
عليك بتنصيب مكون [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]
صورة للمكون بعد التنصيب

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

---

السلام عليكم ,
من جديد رجعت اليك أخي الكريم , حسنا لنوضح الامر :
[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]