| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Программное генерирование html-страницы и отображение в WebBrowse [D6, WinXP]

Артем Владимирович ©   (2004-10-21 00:47:00) 

Здравствуйте!

Подскажите, пожалуйста, каким образом можно отобразить в WebBrowser-е гипертекст, хранящийся в текстовом файле? Т.е. его необходимо взять, произвести некоторые модификации, а потом отобразить в WebBrowser-е.

Заранее благодарю всех за советы.

---

Артем Владимирович   (2004-10-21 12:39:00) [1]

Огромнейшее тебе спасибо, Babay! Выручил.

---

Babay   (2004-10-21 10:28:00) [2]

Кто мне здесь давал уже такой совет к сожалению непомню кто, но у меня сохранился примерчик

procedure TForm1.FormCreate(Sender: TObject);
begin
Webbrowser1.Navigate('about:blank');// надо это не забыть
end;

procedure TForm1.Button1Click(Sender: TObject);
var
v: Variant;
HTMLDocument: IHTMLDocument2;
begin
HTMLDocument := WebBrowser1.Document as IHTMLDocument2;
v := VarArrayCreate([0, 0], varVariant);
v[0] := Memo1.text; // this is your html string

HTMLDocument.Write(PSafeArray(TVarData(v).VArray));
HTMLDocument.Close;
end;

// или еще вариант

function TForm1.LoadFromStream(const AStream: TStream): HRESULT;
begin
AStream.seek(0, 0);
Result := (WebBrowser1.Document as
        IPersistStreamInit).Load(TStreamAdapter.Create(AStream));
end;

procedure TForm1.Button2Click(Sender: TObject);
Var st1:TMemoryStream;
begin
st1:=TMemoryStream.Create;
memo1.Lines.SaveToStream(st1);
LoadFromStream(st1);
st1.free;
end;

---

Артем Владимирович   (2004-10-21 01:50:00) [3]

Да, WebBrowser. Но этот файл будет помещен в ресурс программы. Необходимо его содержимое присвоить переменной TStrings, сделать некоторые изменения и уже потом отобразить в WebBrowser-е.

---

TechnoDreamer   (2004-10-21 01:21:00) [4]

Имеется ввиду компонент TWebBrowser? Обычно сохраняете ваш гипертекст в файл, и загружаете его методом Navigate.

---

Наверх