Скачать: CL | DM;

Отображение HTML в экземпляре WebBrowser a...   Найти похожие ветки 

← →
НовиЧок ©   (2004-07-10 02:39) [0]

Здравствуйте!
Мне нужно сделать процедуру котороя создавала бы экземпляр моего браузера и загружала в него HTML код (из файла или из текстовой переменной).

Короче нужно чтобы в моём браузере отображался определённый сайт, а в его экземпляре нужный мне HTML код.

Помогите пожалуйста. Заранее БОЛЬШОЕ спасибо!

---

← →
Piter ©   (2004-07-11 15:02) [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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.026 c