Привет всем специалистам!
Столкнулся с такой проблемой. Я делаю мессенджер для локалки и тут мои пользователи захотели, что бы можно было посылать форматированный текст.
Ну то есть с изменённым шрифтом, цветом, размером и т.д. Как это сделать?
Для ввода текста использую RxRichEdit а для посылки обычный TServerSocket и TClientSocket.
Пользователи моей сети (61 человек) будут очень рады, если вы подробно ответите на этот вопрос.
Спасибо.

А почему бы не использовать HTML - мне кажется реализация этого не так уж трудна...

А как мне послать rtf исходный текст? Как его из RxRichEdit выловить?

Можно так попробовать: выделяй нужный кусок текста, копируй в буфер обмена (RichEdit1.CopyToClipboard), потом достань из буфера обмена то что там есть и пошли по сетке, там принимай, засовывай в буфер и вставляй в текст (RichEdit1.PasteFromClipboard)...
Звучит сложно, но в DRKB есть код для чтения и записи содержимого Clipboard, а там останется только послать по сетке - это тоже вопрос часто задаваемый, так что остаётся собрать воедино несколько готовых кусков кода...
Главное тут то, что в clipboard текст копируется форматированный...


Добавлено @ 14:11
А вот впрочем и примеры чтения и записи буфера обмена:

Код

// пишет в файл "e:\cp.dat" из clipboard procedure TForm1.BSaveClick(Sender: TObject); var CBF:Cardinal; CBFList:TList;   i:Integer;   h:THandle;   p:Pointer;   CBBlockLength,Temp:Cardinal;   FS:TFileStream;     begin if OpenClipBoard(0)then begin   CBFList:=TList.Create;   CBF:=0;   repeat   CBF:=EnumClipboardFormats(CBF);   if CBF<>0 then   CBFList.Add(pointer(CBF));   until CBF=0;   edit1.text:=IntToStr(CBFList.Count);   if CBFList.Count>0 then begin   FS:=TFileStream.Create('e:\cp.dat',fmCreate);   Temp:=CBFList.Count;   FS.Write(Temp,SizeOf(Integer));   for i:=0 to CBFList.Count-1 do begin   h:=GetClipboardData(Cardinal(CBFList[i]));   if h>0 then begin   CBBlockLength:=GlobalSize(h);   if h>0 then begin   p:=GlobalLock(h);   if p <> nil then begin   Temp:=Cardinal(CBFList[i]);   FS.Write(Temp,SizeOf(Cardinal));   FS.Write(CBBlockLength,SizeOf(Cardinal));   FS.Write(p^,CBBlockLength);   end;   GlobalUnlock(h);   end;   end;   end;   FS.Free;   end;   CBFList.Free;   CloseClipBoard;    end; end; // читает из файла "e:\cp.dat" в clipboard procedure TForm1.bLoadClick(Sender: TObject); var h:THandle; p:Pointer;   CBF:Cardinal;   CBBlockLength:Cardinal;   i,CBCount:Integer;   FS:TFileStream;   begin if OpenClipBoard(0)then begin   FS:=TFileStream.Create('e:\cp.dat',fmOpenRead);   if FS.Size=0 then Exit;   FS.Read(CBCount,sizeOf(Integer));   if CBCount=0 then Exit;   for i:=1 to CBCount do begin   FS.Read(CBF,SizeOf(Cardinal));   FS.Read(CBBlockLength,SizeOf(Cardinal));   h:=GlobalAlloc(GMEM_MOVEABLE or GMEM_SHARE or GMEM_ZEROINIT,CBBlockLength);   if h>0 then begin   p:=GlobalLock(h);   if p=nil then   GlobalFree(h)   else begin   FS.Read(p^,CBBlockLength);   GlobalUnlock(h);   SetClipboardData(CBF,h);   end;   end;   end;   FS.Free;   CloseClipBoard;   end;   end;

Сохранить в Tmemorystream и послать. 

Sunvas, прекращай заниматься некрофилией.