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

Отображение Richedit в WebBrowser   Найти похожие ветки 

← →
Артем Владимирович   (2004-12-20 02:16) [0]

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

---

← →
KilkennyCat ©   (2004-12-20 03:10) [1]

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

---

← →
Babay ©   (2004-12-20 04:53) [2]

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

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;

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

---

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

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



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