Delphi xe5 And TEmbeddedWB

FIRST General Forum
1

hello iam new in this forum i have question i never found any answer for it in another forum i have chat application bulid with indy Tcp and its multichat application that client can send message to all other connected clients and receive it in Tmemo but in finalizing i decided To change Tmemo To TEmbeddedWB because i want the clients embedded Youtube videos and smileys like this ::ouch:: , but i dont know how to implement this with TEmbeddedWB how can i show what client type to other connected clients in TEmbeddedWB , i found this old code but i did not understand any thing from it

code to addText


procedure addChatText(WB: TEmbeddedWB; const html: string;add:integer = 0);
var
   Range: IHTMLTxtRange;
   mText : string;
   ext : string;
   sURL : string;
   i : Integer;
begin
  if not joined then Exit;

  if Not Assigned(Wb.Document) then exit;
  Range := ((WB.Document AS IHTMLDocument2).body AS IHTMLBodyElement).createTextRange;
  Range.Collapse(False) ;

  if add = 1 then
  begin
    if ChatContent <> nil then
    begin
      ChatContent.Add(html+'<BR>');
      mText := ChatContent.Text;
    end else
    begin
      mText := html+'<BR>';
    end;
  end else begin
    mText := html+'<BR>';
  end;

  if ChatContent <> nil then
  begin
    if ChatContent.Count > ChatContentTotal then
    begin
      for i := 0 to 10 do
      begin
        ChatContent.Delete(0);
      end;
    end;
// while (ChatContent.Count) > ChatContentTotal do ChatContent.Delete(0);
  end;

  mText := Replace(mText,'!res!url!',sURL);
  mText := Replace(mText,'£££',ext);
  chatClear(WB,0);
  Range.PasteHTML(mText);
  // WB.Body.innerHTML := mText;
  if OptionsIni.SoftScrolling = 0 then chatScroll(WB);
end;

code must be used when client click send

addChatText(weblog,'<span class="Name">'+Name+':</span> '+ Msg,1);

But its not working not shwing any thing in TEmbeddedWB always empty

2