تبديل كدهاي html به فايل html

با سلام.
ميخواستم ببينم اين امكان هست كه يه سري كد html كه توي memo‌ نوشته شده رو بدون اينكه بصورت فايل ذخيره شده نمايش بديم ، مستقيما نمايش داد؟
من يه سري فايل html دارم كه توسط برنامه ميخوام نمايش داده بشن. و نميخوام كاربر دسترسي بهش داشته باشه.
به همين علت كدهاي html رو تو ديتابيس قرار دادم. و ميخوام مستقيما كدها رو بصورت html خوانا نمايش بدم.
امكانش هست؟ يا آيا راه ديگهاي براي محافظت از فايلهاي html وجود داره؟
با تشكر.

سلام

کد:

---

uses MSHtml, Activex, OleCtrls, SHDocVw;

procedure TForm1.InternalPage(Var WB : TWebBrowser ; const HTMLString: string);
var
  PageSource: OleVariant;
  HTMLDocument: IHTMLDocument2;
begin
  if not (Assigned(WB.Document)) then
    WB.Navigate('about:blank', EmptyParam, EmptyParam, EmptyParam, EmptyParam);
  HTMLDocument := WB.Document as IHTMLDocument2;
  PageSource := VarArrayCreate([0, 0], varVariant);
  PageSource[0] := HTMLString;
  HTMLDocument.Write(PSafeArray(TVarData(PageSource).VArray));
  HTMLDocument.Close;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 InternalPage(WebBrowser1,Memo1.Text);
end;

---

اميدوارم مفهوم باشد.

در مورد فايلهاي mht چطور؟
twebbrowser از فايلهاي mht هم پشتيباني ميكنه.
ميخواستم بدونم اين كدي كه گذاشتيد رو ميشه جوري تغيير داد كه فايلهاي mht هم مورد استفاده قرار بگيرند؟
با تشكر

نقل قول:

---

نوشته شده توسط hex161 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

در مورد فايلهاي mht چطور؟
twebbrowser از فايلهاي mht هم پشتيباني ميكنه.
ميخواستم بدونم اين كدي كه گذاشتيد رو ميشه جوري تغيير داد كه فايلهاي mht هم مورد استفاده قرار بگيرند؟
با تشكر

---

سلام
ميتونيد امتحان كنيد و مارا هم از نتيجه آگاه كنيد.

با سلام.
امتحان كردم. اما بدرستي نمايش نداد. مثل اينكه يك فايل mht رو داخل نوت پد باز كرده باشه . يعني كدهاي بهم ريخته رو نشان داد.