Форум: "Основная";
Текущий архив: 2003.10.09;
Скачать: [xml.tar.bz2];
ВнизTWebBrowser - к вопросу автоматизации: не хочу из инета или фаила Найти похожие ветки
← →
GigoVich (2003-09-28 14:22) [0]Здрасте, Мастера. Как мне заставить TWebBrowser отображать HTML, который, ну допустим находиться не в Инете не в фаиле, а под указателем каким нибудь (главное не на физическом носителе и в непределов ОЗУ). Заранее благодарен...
← →
Ihor Osov'yak (2003-09-28 15:18) [1]и в непределов ОЗУ - а это что такое?
но может подойдет нечно из этого
1)
procedure ShowHTML(aText: string);
var
v: Variant;
HTMLDocument: IHTMLDocument2;
begin
CheckDocReady(WebBrowser);
HTMLDocument := WebBrowser.DefaultInterface.Document as IHTMLDocument2;
v := VarArrayCreate([0, 0], varVariant);
v[0] := aText; // Here"s your HTML string
HTMLDocument.Write(PSafeArray(TVarData(v).VArray));
HTMLDocument.Close;
end;
2)
function TForm1.LoadFromStream(const AStream: TStream): HRESULT;
begin
AStream.seek(0, 0);
Result := (WebBrowser1.DefaultInterface.Document as IPersistStreamInit).Load
(TStreamAdapter.Create(AStream));
end;
3) с. nikkie :-)
var
Doc: Variant;
begin
Doc := WebBrowser1.DefaultInterface.Document;
Doc.write(aText);
end;
← →
Ihor Osov'yak (2003-09-28 15:19) [2]Из 1 - CheckDocReady(WebBrowser) убери.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.10.09;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c