2-а вопроса о TWebBrowser
Привет всем!
Вот у меня еще 2-а вопроса о TWebBrowser
1. Как сделать так чтобы каждая ссылка открывалась в новом окне.
2. У меня есть html страничка, загруженная в TMemo как мне открыть эту страничку не сохраняя её на диск?
Заранее спасибо!
P.S.: Ни водном FAQ, что у меня есть я ответа не нашел.
Вот у меня еще 2-а вопроса о TWebBrowser
1. Как сделать так чтобы каждая ссылка открывалась в новом окне.
2. У меня есть html страничка, загруженная в TMemo как мне открыть эту страничку не сохраняя её на диск?
Заранее спасибо!
P.S.: Ни водном FAQ, что у меня есть я ответа не нашел.
Цитата:
Originally posted by GooD
У меня есть html страничка, загруженная в TMemo как мне открыть эту страничку не сохраняя её на диск?
У меня есть html страничка, загруженная в TMemo как мне открыть эту страничку не сохраняя её на диск?
Это, скорее всего, невозможно.
Цитата:
Originally posted by smartsoft
Это, скорее всего, невозможно.
Это, скорее всего, невозможно.
Возможно!!! если надо напишу!
нужно в uses прописать mshtml и ActiveX.
procedure TForm1.btGoClick(Sender: TObject);
var v: Variant;
HTMLDocument: IHTMLDocument2;
begin
HTMLDocument := TWebBrowser1.Document as IHTMLDocument2;
v := VarArrayCreate([0, 0],varVariant);
v[0]:='стока какая нужна';
HTMLDocument.Write(PSafeArray
(TVarData(v).VArray));
HTMLDocument.Close;
end;
procedure TForm1.btGoClick(Sender: TObject);
var v: Variant;
HTMLDocument: IHTMLDocument2;
begin
HTMLDocument := TWebBrowser1.Document as IHTMLDocument2;
v := VarArrayCreate([0, 0],varVariant);
v[0]:='стока какая нужна';
HTMLDocument.Write(PSafeArray
(TVarData(v).VArray));
HTMLDocument.Close;
end;
Всё просто..
В OnBeforeNavigate подсовываеш новый Dispatch и загрузка пойдёт в новом окне.
Диспатч от твоего нового окна в котормо ты хочеш открыть страницу.
В OnBeforeNavigate подсовываеш новый Dispatch и загрузка пойдёт в новом окне.
Диспатч от твоего нового окна в котормо ты хочеш открыть страницу.
Цитата:
Originally posted by XakeP[WWW]
нужно в uses прописать mshtml и ActiveX.
procedure TForm1.btGoClick(Sender: TObject);
var v: Variant;
HTMLDocument: IHTMLDocument2;
begin
HTMLDocument := TWebBrowser1.Document as IHTMLDocument2;
v := VarArrayCreate([0, 0],varVariant);
v[0]:='стока какая нужна';
HTMLDocument.Write(PSafeArray
(TVarData(v).VArray));
HTMLDocument.Close;
end;
нужно в uses прописать mshtml и ActiveX.
procedure TForm1.btGoClick(Sender: TObject);
var v: Variant;
HTMLDocument: IHTMLDocument2;
begin
HTMLDocument := TWebBrowser1.Document as IHTMLDocument2;
v := VarArrayCreate([0, 0],varVariant);
v[0]:='стока какая нужна';
HTMLDocument.Write(PSafeArray
(TVarData(v).VArray));
HTMLDocument.Close;
end;
Делал именно так, но при вызове HTMLDocument.Write(PSafeArray
(TVarData(v).VArray)); вылезает Access Violation. Почему? Как это победить?
Дошло: не создан/открыт документ, как можно создать, чтобы не открывать пустую страничку с диска?
Цитата:
Originally posted by Freeman
Это, скорее всего, невозможно.
Это, скорее всего, невозможно.
А если TMemo.Text грузить в память и из нее в TWebBrowser