| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Помогите вставить картинку в RxRichEdit [D6]

Sharik_212 ©   (2003-01-30 17:55:00) 

Хочется сделать примерно так, как это делается в аське. Пишу:
var
TempStream:TStream;
.....
Image1.Picture.Bitmap.SaveToStream(TempStream);
RxRichEdit1.Lines.LoadFromStream(TempStream);
а она ругается. Я понимаю, что надо проинициализировать TempStream, но не знаю как. Подскажите плиз.

---

Sharik_212   (2003-02-04 19:19:00) [1]

Огромное спасибо, действительно заработало!

---

SeNtiMeL   (2003-02-02 01:56:00) [2]

Смотри:

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;

Потом делается все очень просто:
//Определяем позицию для вставки
RxRichEdit1.SelStart:=12;
RxRichEdit1.SelLength:=1;
//Загружаем картинку
fl := TStringStream.Create(BitmapToRTF(bm));
RxRichEdit1.PlainText := False;
RxRichEdit1.StreamMode := [smSelection];
//Вставляем !!!
RxRichEdit1.Lines.LoadFromStream(fl);
fl.Free;


---

Sharik_212   (2003-01-30 19:08:00) [3]

Create тоже делаю, но почему-то все-равно не всталяет картинку (да и текст тоже).

---

Chubais   (2003-01-30 18:56:00) [4]

> проинициализировать TempStream

Create?

---

Sharik_212   (2003-01-30 18:47:00) [5]

Мастера! Никто не может подсказать?.....
Может, я совсем не так делаю?

---

Наверх