Чтобы загрузить в delphi-компонент TWebBrowser нужный HTML-код, можно воспользоваться следующей функцией:
uses SHDocVw, ActiveX;
...
procedure LoadHtmlInWebbrowser(DestWB: TWebBrowser; HtmlString: String);
var
sl: TStringList;
ms: TMemoryStream;
begin
//загружаем пустую страницу в компонент WebBrowser
DestWB.Navigate('about:blank');
//ждем, пока WebBrowser не будет готов к работе
while (DestWB.ReadyState < READYSTATE_INTERACTIVE) do
Application.ProcessMessages;
if Assigned(DestWB.Document) then
begin
sl := TStringList.Create;
try
ms := TMemoryStream.Create;
try
//сохраняем html код в поток
sl.Text := HtmlString;
sl.SaveToStream(ms);
//перемещаем указатель на начало
ms.Seek(0, 0);
//загружаем код в WebBrowser
(DestWB.Document as IPersistStreamInit).Load(TStreamAdapter.Create(ms));
finally
//уничтожаем объект ms
ms.Free;
end;
finally
//уничтожаем объект Стринг листа
sl.Free;
end;
end;
end;
Таиланд — волшебнай страна, привлекающая отдыхающих со всех сторон света. Если вы хотите замечательно отдохнуть, ни о чем не думая, то отдых в Паттайа — ваш выбор. Если же нужно совместить работу и отдых, то отправляйтесь в Пхукет.