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

Чат на Dephi   Найти похожие ветки 

← →
rrew ©   (2003-07-25 16:37) [0]

Я хочу сделать свой чат, и мне надо чтобы текст добавлялся виде HTML кода в TWebBrowser, или в любой другой подобный компонент.
С компонентом TMemo я делал так:
Memo1.Lines.Add("сообщение");
Как это зделать в TWebBrowser или какой компонент мне надо
использовать, что бы в итоге изображалась HTML страница.
Это мне нало чтобы была возможность вставлять картинки в сообщение,
а также менять шрифт и цвет сообщения

---

← →
rrew ©   (2003-07-26 02:40) [1]

Что, неужеле никто не знает как это зделать?

---

← →
Rouse_ ©   (2003-07-28 01:13) [2]

Используйте TWebBrowser

Добавить текст можно так:



var
Document: IHtmlDocument2;
V: Variant;

procedure TForm1.FormCreate(Sender: TObject);
begin
WebBrowser1.Navigate("about:blank");
while WebBrowser1.Document = nil do
Application.ProcessMessages;
Document := WebBrowser1.Document as IHtmlDocument2;
V := VarArrayCreate([0, 0], varVariant);
V[0] :="<HTML><HEAD><TITLE></TITLE><style>a,a:visited{text-decoration: none;"+
"FONT-WEIGHT: bold; color: #003388;}a:hover{color: #0066FF}</style></HEAD>"+
( PSafeArray(TVarData(v) Используйте TWebBrowser

Добавить текст можно так:



var
Document: IHtmlDocument2;
V: Variant;

procedure TForm1.FormCreate(Sender: TObject);
begin
WebBrowser1.Navigate("about:blank");
while WebBrowser1.Document = nil do
Application.ProcessMessages;
Document := WebBrowser1.Document as IHtmlDocument2;
V := VarArrayCreate([0, 0], varVariant);
V[0] :="<HTML><HEAD><TITLE></TITLE><style>a,a:visited{text-decoration: none;"+
"FONT-WEIGHT: bold; color: #003388;}a:hover{color: #0066FF}</style></HEAD>"+
"<BODY><strong><font face="MS Sans Serif"><font size=1.5><font color="#FF00FF">Добро пожаловать</font></strong><br></BODY></HTML>";
Document.Writeln(PSafeArray(TVarData(v).VArray));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
V[0] :="<strong><a href="Новая строка"> Новая</a> срока</strong><br>";
Document.Writeln(PSafeArray(TVarData(v).VArray));
WebBrowser1.OleObject.Document.parentWindow.scroll(0,10000000);
end;

Картинку

begin
V[0] :="<IMG src="C:\Programm\Pictures\Smiles\icon_cry.gif">";
Document.Writeln(PSafeArray(TVarData(v).VArray));
WebBrowser1.OleObject.Document.parentWindow.scroll(0,10000000);
end;

Желаю успехов

---

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

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



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