Memuat HTML langsung ke dalam WebBrowser

Trik dan kode berikut adalah untuk memuat kode HTML statis dari sebuah string ke dalam sebuah TWebBrowser dalam Delphi:

1. Buka Delphi, buat sebuah project baru.
2. Letakkan sebuah komponen TWebBrowser pada form, masukkan kode HTML dalam kejadian OnCreate milik form.

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

var

sl: TStringList;

ms: TMemoryStream;

begin

WebBrowser.Navigate('about:blank') ;

while WebBrowser.ReadyState <>GOTO' +
'Pemrograman Delphi';
WBLoadHTML(WebBrowser1,sHTML) ;
end;