Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.01.02;
Скачать: 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 вся ветка

Текущий архив: 2005.01.02;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.041 c
14-1102770444
БезОбид
2004-12-11 16:07
2005.01.02
Мануал для "автошемы"


9-1093514453
sashuly
2004-08-26 14:00
2005.01.02
Домино


1-1103522803
Sash
2004-12-20 09:06
2005.01.02
excel


1-1103181468
Black_Fury
2004-12-16 10:17
2005.01.02
Почему может не работать функция FileCreate( );


6-1097671684
BJValentine
2004-10-13 16:48
2005.01.02
Правильная кодировка (почта)