Отображение HTML в экземпляре WebBrowser'a...
НовиЧок © (2004-07-10 02:39:00)
Здравствуйте!
Мне нужно сделать процедуру котороя создавала бы экземпляр
моего браузера и загружала в него HTML код (из файла или из
текстовой переменной).
Короче нужно чтобы в моём браузере отображался определённый
сайт, а в его экземпляре нужный мне HTML код.
Помогите пожалуйста. Заранее БОЛЬШОЕ спасибо!
Piter (2004-07-11 15:02:00) [1]
1) научись писать вопросы
2) если я правильно понял:
function CreateNewBrowser(s: string): TWebbrowser;
var
v: Variant;
HTMLDocument: IHTMLDocument2;
begin
Result := TWebBrowser.Create(Form1);
TWinControl(Result).Parent :=Form1;
Result.Navigate('about:blank');
Repeat
Application.ProcessMessages;
Until (Result.readyState = 4);
HTMLDocument := Result.Document as IHTMLDocument2;
v := VarArrayCreate([0, 0], varVariant);
v[0] := s;
HTMLDocument.Write(PSafeArray(TVarData(v).VArray));
HTMLDocument.Close;
end;
Наверх 
ЧАТ |
Орешник |
|
