ایا می شود یک html در هارد از برنامه دلفی بخوانیم

[yosefyosef]

ایا می شود یک صفحه html در هارد از برنامه دلفی بخوانیم بعبارت دیگر ایا از راه richedit
می توانیم یک صفحه html را ظاهر کنیم
ما می دونیم صفحه htm دارای عکس وفلاش هم شاید داشته باشد
ایا کامبونتی هست
با تشکر از دوستان

[benyaminrahimi]

atviewer
سرچ کن تو قسمت کامپوننتا هست مي توني دانلود کني

[سعید صابری]

روش بالا
+
کامپوننت WebBrowser خود دلفی


WebBrowser1.Navigate('adres');

[yosefyosef]

WebBrowser1.Navigate('adres'
من نمی خواهم ادرس کامل را بنویسم بعباره دیگر نمی خواهم

c:\ aa\hm\h.htm
من برنامه ام در داخل شاخه aa هست
ووقتی
WebBrowser1.Navigate('\hm\h.htm')
جواب نداد
با تشکر فراوان

[vcldeveloper]

من نمی خواهم ادرس کامل را بنویسم بعباره دیگر نمی خواهم
خب، آدرس برنامه خودتون رو در زمان اجرا به دست بیارید، و به آدرس مورد نظرتون اضافه کنید:

FileName := ExtractFilePath(Application.ExeName) + 'hm\h.htm';

[yosefyosef]

خب، آدرس برنامه خودتون رو در زمان اجرا به دست بیارید، و به آدرس مورد نظرتون اضافه کنید:

FileName := ExtractFilePath(Application.ExeName) + 'hm\h.htm';

دوست عزیز
من برنامه در شاخه sampl قرار دادم
وفایل hml را در مسیر
d:\sample\htm\a1.htm
گذاشتم من توانید بیشتر توضیح دهید

procedure TForm1.FormCreate(Sender: TObject);
begin
GetCurrentDir+'\htm\1.htm
WebBrowser1.Navigate('D:\sample\htm\1.htm');
end;
]

[vcldeveloper]

من توانید بیشتر توضیح دهیددیگه توضیح بیشتر نداره، که دوست عزیز، من کل کد رو براتون نوشتم؛ شما اون بخش hm\1.htm رو به دلخواه خودتان ویرایش کنید، و متغیر FileName در اون کد را که یک متغیر string هست، به عنوان پارامتر آدرس به متد Navigate بدید:


var
FileName: string;
begin
FileName := ExtractFilePath(Application.ExeName) + 'htm\h.htm';
WebBrowser1.Navigate(FileName);
end;

در ضمن؛ برای این کار از تابع GetCurrentPath استفاده نکنید، چون مسیر جاری لزوما مسیر برنامه شما نیست.