لود كردن يك كد html بصورت مستقيم در TWebBrowser

uses

ActiveX;

procedure WB_LoadHTML(WebBrowser: TWebBrowser; HTMLCode: string);

var

    sl: TStringList;

    ms: TMemoryStream;

begin

    WebBrowser.Navigate('about:blank');

    while WebBrowser.ReadyState < READYSTATE_INTERACTIVE do

    Application.ProcessMessages;

    if Assigned(WebBrowser.Document) then

    begin

        sl := TStringList.Create;

        try

            ms := TMemoryStream.Create;

            try

                sl.Text := HTMLCode;

                sl.SaveToStream(ms);

                ms.Seek(0, 0);

                (WebBrowser.Document as IPersistStreamInit).Load(TStreamAdapter.Create(ms));

            finally

                ms.Free;

            end;

        finally

            sl.Free;

        end;

    end;

end;

 صفحه اصلی | مقالات | سوال و جواب | Downloads | Beeper help | جستجو | تصاویر برنامه ها | تبلیغات | تماس با ما | وبلاگ شخصی
در صورت بروز هر گونه مشكل در استفاده از نرم افزار هاي اين سايت, مشكل را با مدير اين سايت در ميان بگذاريد.

This work is licensed under a Creative Commons Attribution 2.5 License.

آخرين به روز رسانی: آمار بازدید: