Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Передача данных из TSynEdit в TWebBrowser в Delphi

Автор: Roxanne 24.5.2009, 21:04

Доброго времени суток всем участникам форума!

Имеется следующая задача: есть простенький html-редактор, за основу были взяты компоненты SynEdit и SynUniHighlighter. Редактор уже работает, но мне хочется еще добавить окно предпросмотра написанной в редакторе веб-страницы как отдельную форму. И тут возник вопрос: а как организовать передачу всего содержимого SynEdit в компонент TWebBrowser для отображения?
Порылся в своих книжках - по TWebBrowser информации мало, в интернете не больше. Не представляю, как это реализовать. Помогите, пожалуйста.
И будет ли вообще такой способ работать, если компоненты находятся на разных формах? Благодарю заранее за ответы!

Автор: Crw 25.5.2009, 14:43

Можно воспользоваться функцией загрузки хтмл в Веббровзер:

Код


procedure LoadHTMLinWB(WB: TWebBrowser; Text: ansistring);
var
    ps: IPersistStreamInit;
begin
    if WB.Document = nil then WB.Navigate('about:blank');
    ps := WB.Document as IPersistStreamInit;
    ps.Load(TStreamAdapter.Create(TStringStream.Create(Text), soReference));
end;