str+str2+str3=белиберда

[Richard22]

Есть у меня функция переделывающая bmp в rtf , помимо етого я написал прцедуру которая должна в тексте все "" заменить на графические смайлики, но в конце концов у меня все "" заменились на длинные коды rtf файлов в RxRichEdit, функция bmpTOrtf работает правельно!

procedure TOtprav.Execute;
var
  i,p,w:integer;
  str,str2,str3,str4:string;
begin
  for i:=0 to form1.Memo2.Lines.Count do
   begin
    str := form1.Memo2.Lines.Strings[i];
    w:=length(str);
    for p:=1 to w do
     begin
      if (str[p]=':') and (str[p+1]=')') then
       begin
        delete(str,p,2);
        str3:=copy(str,1,p);
        str4:=copy(str,p,w);
        str2:=BitmapToRTF(form3.Image1.Picture.bitmap);
        str:=str3+str2+str4;
       end;
     end;
    form1.RxRichEdit1.Lines.add(str);
   end;
end;

если в строчке выделенной красным оставить только str2 то смайлик отобразиться в графичю режиме! И вот я не пойму почему RxRichEdit так делает

[Utkin]

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

функция bmpTOrtf работает правельно!

Не правильно . Покажи код функции, наверняка она вставляет один смайлик, и ее нельзя применять для кучи смайлов .

[Richard22]

вот она функция

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\dibitmap0 ' ;
SetLength(hexpict, (Length(bb) + Length(bi)) * 2 );
I := 2 ;
for bis := 1 to Length(bi) do
begin 
achar := IntToHex(Integer(bi[bis]), 2 );
hexpict[I - 1] := achar[ 1 ]; 
hexpict[i] := achar[ 2 ];
Inc(I, 2 ); 
end ;
for bbs := 1 to Length(bb) do 
begin
achar := IntToHex(Integer(bb[bbs]), 2 ); 
hexpict[I - 1] := achar[ 1 ];
hexpict[i] := achar[ 2 ]; 
Inc(I, 2); 
end ;
rtf := rtf + hexpict + ' }}'; 
Result := rtf; 
end;

[Utkin]

Угу. Точно не уверен, но, ИМХО, ты формируешь полноценный rtf. Попробуй без заголовка

rtf := '{\pict\dibitmap0 ' ;

и в конце

 rtf := rtf + hexpict + ' }';

[Richard22]

О благодарю вас!!
да но оно не совсем будет роботать, нужно помимо этого сделать так

str:='{\rtf1'+str3+str2+str4+'}';