Текущий архив: 2004.11.07;
Скачать: 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 вся ветка
Текущий архив: 2004.11.07;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.044 c
