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

Программное генерирование html-страницы и отображение в WebBrowse   Найти похожие ветки 

← →
Артем Владимирович   (2004-10-21 00:47) [0]

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

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

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

---

← →
TechnoDreamer   (2004-10-21 01:21) [1]

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

---

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

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

---

← →
Babay ©   (2004-10-21 10:28) [3]

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

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 12:39) [4]

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

---

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

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



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