| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Чат на Dephi

rrew ©   (2003-07-25 16:37:00) 

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

---

Rouse_   (2003-07-28 01:13:00) [1]

Используйте 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;

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

---

rrew   (2003-07-26 02:40:00) [2]

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

---

Наверх