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

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

Отображение Richedit в WebBrowser [D6, WinXP]

Артем Владимирович ©   (2004-12-20 02:16:00) 

Никак не вспомню, как отобразить содержимое Richedit-а(исходник htm-страницы) в Webbrowser-e?

---

Babay   (2004-12-20 04:53:00) [1]

Когда-то где-то кто-то, здесь, давал мне совет по этому поводу, за что еще раз спасибо. Сам совет в оригинале не сохранился но сохранился примерчик который писал для себя. Вот он.

uses mshtml, activex;
{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Webbrowser1.Navigate('about:blank');
end;

// ваиант 1
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;

// вариант 2

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;

---
с уважением

---

KilkennyCat   (2004-12-20 03:10:00) [2]

вероятно, лучше всего скинуть его в виде плайн-текста в файл, который уже открыть в вебброузере. Либо переслать через буфер.

---

Наверх