обновление в блоге - Создание многопользовательского чата

[rzawm]

Ребята помогите плз, со смайликами никак не магу организовать вставку смайликов в RxRichEdit. Вот код какой я использую для этого

private
    { Private declarations }
  public
    { Public declarations }
  function bitmaptortf(pict:tbitmap):string;
  end;
 .............................
function TForm1.bitmaptortf(pict:tbitmap):string;
var
bi,bb,rtf:string;
bis,bbs:cardinal;
achar:shortstring;
hexpict:string;
ii:integer;
begin
getdibsizes(pict.Handle,bis,bbs);
setlength(bi,bis);
setlength(bb,bbs);
getdib(pict.Handle,pict.Palette,pchar(bi)^,pchar(bb)^);
rtf:='{rtf1{pictdibitmap';
setlength(hexpict,(length(bb)+length(bi))*2);
ii:=2;
for bis:= 1 to length(bi) do
 begin
  achar:=format('%x',[integer(bi[bis])]);
  if length(achar)=1 then
  achar:='0'+achar;
  hexpict[ii-1]:=achar[1];
  hexpict[ii]:=achar[2];
  inc(ii,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[ii-1]:=achar[1];
  hexpict[i]:=achar[2];
  inc(i,2);
 end;
rtf:=rtf+hexpict+'}}';
result:=rtf;
end;
............

* первый вариант вызова вставки смайлика в RxRichEdit2
procedure TForm1.BitBtn6Click(Sender: TObject);
var
ss:tstringstream;
bmp:tbitmap;
begin
bmp:=tbitmap.Create;
bmp:=Image6.Picture.Bitmap;
//try
//bmp.Assign(image6.Picture.Bitmap);
ss:=tstringstream.Create(bitmaptortf(bmp));
//try
RxRichEdit2.PlainText:=False;
RxRichEdit2.StreamMode:=[smselection];
RxRichEdit2.Lines.LoadFromStream(ss);
//RxRichEdit2.StreamMode:=[];
//RxRichEdit2.Lines.SaveToFile('rich.rtf');
//finally
ss.Free;
//end;
//finally
bmp.Free;
//end;
end; 

*или вот такой вариант вызова вставки смайлика в RxRichEdit2
procedure TForm1.Image6Click(Sender: TObject);
var
ss:tstringstream;
bmp:tbitmap;
begin
bmp:=tbitmap.Create;
try
bmp.Assign(image6.Picture.Bitmap);
ss:=tstringstream.Create(bitmaptortf(bmp));
try
RxRichEdit2.PlainText:=False;
RxRichEdit2.StreamMode:=[smselection];
RxRichEdit2.Lines.LoadFromStream(ss);
RxRichEdit2.StreamMode:=[];
finally
ss.Free;
end;
finally
bmp.Free;
end;
end;

при реализации данного кода приложени откомпилилось нормально без ошибок но при запуске чата, при нажатии на Image6 или на BitBtn6, приложение зависает резко повышется использование ОЗУ до 1,4Гига против 380мб с запущенным делфи, проходит секунд 20 вылетает ошибка
скрин ошибки

Всем заранее благодарен. Очень хочу вставить смайлик в чат...

[rzawm]

Данная ошибка вылетает только при клике на Image6 либо BitBtn6, если на них не на жимать то чат работает как часы, а если нажать то вылетит ошибка её закрываем и чат продолжает нормально работать, каждый раз при клике на тот Image или BitBtn вылетает эта ошибка

[Beermonza]

Запустите приложение из под Delphi и посмотрите, на какой строке кода останавливает работу обработчик ошибок.

[BiT]

Здравствуйте у меня такой вопрос

Как передать приватный текст в другую форму я как понял вот эта строка отвечает за привад, но у меня нечто не выходит

3:Begin ShowColorMassage(Copy(text,1,5)+Copy(text,7+Length(NikEdit.Text),len-Length(NikEdit.Text)-1), 1);

[rzawm]

Beermonza, ок сегодня посмотрю, потом отпишу

[rzawm]

Вот на какой страке в Delphiях вылетает с ошибкой :

procedure TForm1.Image6Click(Sender: TObject);
var
ii:integer;
ss:tstringstream;
bmp:tbitmap;
begin
bmp:=tbitmap.Create;
try
bmp.Assign(image6.Picture.Bitmap);
ss:=tstringstream.Create(bitmaptortf(bmp)); {error!!!!!!!!!!! В этом месте вылетает с ошибкой!!!!}
try
RxRichEdit2.PlainText:=False;
RxRichEdit2.StreamMode:=[smselection];
RxRichEdit2.Lines.LoadFromStream(ss);
RxRichEdit2.StreamMode:=[];
RxRichEdit2.Lines.SaveToFile('rich.rtf');
finally
ss.Free;
end;
finally
bmp.Free;
end;

Panel1.Visible:=False;

end;

В фигурных скобках подписал, в том же месте и при нажатии на BitBtn6 из кода выше, аналогичная ошибка. Очень буду признателен за помощь.

[rzawm]

А вот скрин самой ошибки при исполнении кода в делфи:

Народ помогите!!! Очень нужны смайлики.

[rzawm]

Что то видимо с функцией bitmaptortf либо при создании этого потока. Сам не магу разобраться, нужна помощь!!!!! Заранее благодарен.

[Shouldercannon]

Запускаю приложение, делаю его сервером. Далее: отправить сообщение кому - Всем, ввожу тексте и отправляю в этого ошибка List index out of bounds (0).

[Beermonza]

Сообщение от BiT

Здравствуйте у меня такой вопрос

Как передать приватный текст в другую форму я как понял вот эта строка отвечает за привад, но у меня нечто не выходит

3:Begin ShowColorMassage(Copy(text,1,5)+Copy(text,7+Length(NikEdit.Text),len-Length(NikEdit.Text)-1), 1);

Процедура ShowColorMassage(msg: String; index: Byte); рукописная, она работает с компонентом ChatRichEdit, на это указывает структура With ChatRichEdit do Begin в коде процедуры. Если нужно работать с таким же компонентов но в другой форме, например Form2, то достаточно указать ее вот так: With Form2.ChatRichEdit do Begin, разумеется, если там создан компонент TRichEdit с таким именем.

rzawm, посмотрите на этом ресурсе: http://www.delphisources.ru/pages/faq/all_articles.html , по-моему там были примеры вставки графики в RxRichEdit.

Сообщение от Shouldercannon

Запускаю приложение, делаю его сервером. Далее: отправить сообщение кому - Всем, ввожу тексте и отправляю в этого ошибка List index out of bounds (0).

Разумеется, если никто не подключился к вашему серверу он выдаст ошибку, поскольку защитить программу от "дурака" (так уж говорится в народе) задачи не стояло.