السلام عليكم ورحمة الله وبركاته
المشكلة هي : عند تنفيذ البرنامج وكتابة الموقع المراد الدخول إليه تظهر هذه الرسالة على المتصفح :
![[صورة: 11.jpg]](https://preview.ibb.co/gd0qSn/11.jpg)
السلام عليكم
صع لنا الكود لكي يتسنى لنا معرفة المشكل
procedure TForm1.sSpeedButton5Click(Sender: TObject);
begin
wb1.Navigate(sEdit1.Text);
end;
حيث سبيد بوتون هو زر الإنتقال للموقع
ولكم جزيل الشكر
وعليكم السلام و رحمة الله و بركاته
بالنسبة لمكون الواب براوزر webbrowser لا يشتغل مع الوندوز 7
فاذا كان نظام التشغيل لديك وندوز 7 فلا تتعب نفسك مع الواب براوزر فلن يشتغل
حاول ارجاع اعدادات Internet Explorer الى الاعدادات الافتراضية, واذا لم يشتغل ضع السورس كاملا هنا
aymhn : مكون twebbrowser يعمل بشكل عادي في اي ويندوز, فالمكون يستخدم IE الذي على الجهاز
السلام عليكم,
أخي الكريم, إذا كنت تريد إنشاء متصفح إحترافي و متوافق مع مستجدات الواب دعك من متصفح دلفي الإفتراضي, هناك بديل ممتاز ويخلو من الأخطاء مجاني ويمكنك إنشاء متصفح متكامل.
عليك بتنصيب مكون [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]](http://www.m5zn.com/newuploads/2018/03/11/png//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]