EasyDelphi Q&A
+2 تصويتات
49 مشاهدات
برنامجي يتعامل مع ملفات دات امتدات HTML حيت يجب عرضها و تغير مجوهة القيم التي تحتويها

القيم التي اتكلم عنها هي بعض ال HTML TAG

متلا :   <1h>  <h1/>
سُئل في تصنيف vcl بواسطة (7,610 نقاط)
عُدل بواسطة | 49 مشاهدات

2 إجابة

+4 تصويتات
أفضل إجابة

استعمل مكون WebBrowser: TWebBrowser;
تحتاج لعمل Initialize له، هذه طريقة انشاءه بوقت التشغيل كمثال

 

var
  HTMLStrings:TStringList;
  
begin  
    WebBrowser := TWebBrowser.Create(nil);
    WebBrowser.SetParentComponent(Panel);
    WebBrowser.ParentWindow := Panel.Handle;
    WebBrowser.Align := alClient;
	
	HTMLStrings := TStringList.Create;
	try
	//https://stackoverflow.com/questions/9182428/force-internet-explorer-9-to-use-ie-9-mode
	Navigate('about:blank', '', '', '', 'X-UA-Compatible: IE=edge,chrome=1'); 
	HTMLStrings.LoadFromFile('myinit.html', TEncoding.UTF8);
	
	with Document as IHTMLDocument2 do
	begin
		Clear;
		WriteString(HTMLStrings.Text);
		Close;
	end;
	finally
		FreeAndNil(HTMLStrings);
	end;

	WebBrowser.Visible := True;

 

تم الرد عليه بواسطة (15,150 نقاط)
مختارة بواسطة
+1 تصويت
مسار  الملفات  يختلف عن مسار صفحة ال Html  
هذا هو سبب المشكلة 

ولحل هذا المشكل تابع الخطوات في الاسفل    

procedure TForm1.Button1Click(Sender: TObject);
var Path : string; 
begin

///  ExtractFilePath(Application.ExeName)  المسار الذي يوجد فيه البرنامج  
Path := Get_path(ExtractFilePath(Application.ExeName));
WebBrowser1.Navigate(Path+'NamePageHtml.HTML');

end;



function TForm1.Get_path(path: string): string;  ////   دالة لتصحيح المسار  
var
  i: integer;
begin
  for i := 1 to Length(p) do
    if p[i] = '\' then
      p[i] := '/';
  Result := p;
end;


يجب ان تكون الصفحة بجنب البرنامج 

 

تم الرد عليه بواسطة (10,990 نقاط)

اسئلة متعلقة

0 تصويتات
1 إجابة
سُئل يوليو 12 في تصنيف vcl بواسطة xorpas (840 نقاط) | 25 مشاهدات
+3 تصويتات
2 إجابة
سُئل نوفمبر 6، 2018 في تصنيف vcl بواسطة MohammedAmine (360 نقاط) | 118 مشاهدات
+5 تصويتات
1 إجابة
+4 تصويتات
2 إجابة
سُئل يوليو 4، 2018 في تصنيف Delphi بواسطة ندير | 201 مشاهدات
ادعُ اصدقائك في الفايسبوك لمشاركتك
Comodo SSL

مرحبًا بك إلى EasyDelphi Q&A، حيث يمكنك طرح الأسئلة والحصول على الإجابة عليها من المستخدمين الآخرين.

لا يسمح بطلب او السؤال عن كراك او تفعيل او كسر او فك او اي شيء يخالف اتفاقيات الترخيص  مهما كان السبب ومهما كان البرنامج ونوعه. ولا حتى نشر روابط تحتوي على مثل هذه الاشياء لا في الاسئلة ولا في الاجابات ولا التعليقات . نهائيا

440 سؤال
673 إجابة
1,216 تعليق
256 مستخدم