SoWa, это ты к чему?

Цитата

Так мы уже пишем чат?

Вот!

и как твое сообщение связано с процитированным?
+ ты сообщение dsergey читал? чем твое от его отличается?

Как вставить картинку в RxRichEdit???

sashas1! Тебе, наверно, надо создать новую тему!

Вот гляньте Чат от Jey_k

http://forum.vingrad.ru/index.php?showtopi...ndpost&p=222041

SoWa создал но на нее помойму никто не обращает внимания! помогите!

Я переделывал эту программу.
В итоге получился чат, да еще и с использованием MS Agent.

Присоединённый файл ( Кол-во скачиваний: 92 )
 LocalNet.zip

Цитата

Как вставить картинку в RxRichEdit???

В стандартном RichEdit нельзя, для RichEdit с картинками используйте RichEdit из RxLib или JVCL.


Автор: Vit
www.delphist.com
www.drkb.ru
chicago.lastplanet.com


Взято с Vingrad.ru http://forum.vingrad.ru



--------------------------------------------------------------------------------

Ниже представлен пример, который можно применить к RxRichEdit, RichEditEx, RichEdit98, и Microsoft RichTextBox (поставляемый с VB5+) не прибегая к использованию буфера обмена или OLE:

function BitmapToRTF(pict: TBitmap): string;
var
bi,bb,rtf: string;
bis,bbs: Cardinal;
achar: ShortString;
hexpict: string;
I: Integer;
begin
GetDIBSizes(pict.Handle,bis,bbs);
SetLength(bi,bis);
SetLength(bb,bbs);
GetDIB(pict.Handle,pict.Palette,PChar(bi)^,PChar(bb)^);
rtf := '{\rtf1 {\pict\dibitmap ';
SetLength(hexpict,(Length(bb) + Length(bi)) * 2);
I := 2;
for bis := 1 to Length(bi) do
begin
achar := Format('%x',[Integer(bi[bis])]);
if Length(achar) = 1 then
achar := '0' + achar;
hexpict[I-1] := achar[1];
hexpict[I] := achar[2];
Inc(I,2);
end;
for bbs := 1 to Length(bb) do
begin
achar := Format('%x',[Integer(bb[bbs])]);
if Length(achar) = 1 then
achar := '0' + achar;
hexpict[I-1] := achar[1];
hexpict[I] := achar[2];
Inc(I,2);
end;
rtf := rtf + hexpict + ' }}';
Result := rtf;
end;

А вот пример использования этой функции:

{SS это TStringStream, RE это TRxRichEdit, а BMP это TBitmap содержащий картинку.}
SS := TStringStream.Create(BitmapToRTF(BMP));
RE.PlainText := False;
RE.StreamMode := [smSelection];
RE.Lines.LoadFromStream(SS);
SS.Free;

Взято из http://forum.sources.ru

А как насчет того, что UDP легче программировать, чем TCP?  
P.S. Я наверное чуть запоздал с вопросом...  

Это сообщение отредактировал(а) Sportsmen - 16.3.2007, 17:13

Буквально на два года   

Понимаешь TCP/IP сначала устанавливает соединение с конкретным ip затем отправляет туда случайно сгенерированное число которое в случай успешного соединение возратится к нему увеличенным на еденицу. и он подсчитывает пакеты. А UDP просто выплёвывает в сеть порцию пакетов для получателя и ему похрену дошли они не дошли.  
Поэтому если хочешь чтоб чат был надежным пишешь отдельный сервер а кнему цепляются клиенты. На крайняк в самой проге реализуешь сервер просто в насторйках указываешь как ей работать клиентом или сервером.
а для udp пишешь широковещательный адрес xxx.xxx.xxx.255 и все клиенты в сетке получаю сообщения. хотя тот кто отправил может и два раза получить свою мессагу. 

Вот исчо один опоздавший взял да написал чат на UDP.
Это конечно заготовка(работающая на Delphi7) зато ее мона доделывать - 
возможно кому нибудь пригодится.

Я сам пытаюсь сделать чат без общего сервака и чтоб он не тормозил
ИМХО для этой цели как раз UDP подходит с брутфорсом xxx.xxx.xxx.255

Присоединённый файл ( Кол-во скачиваний: 35 )
 udp_chat.rar 8,71 Kb