Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.08.26;
Скачать: CL | DM;

Вниз

Как узнать, есть ли в TRichEdit двоичные объекты   Найти похожие ветки 

 
Tack   (2007-06-14 19:22) [0]

Есть TRichEdit, в него юзеры пишут текст и вставляют двоичные OLE-объекты (картинки, формулы и т.д.). Как программе можно узнать, что в данном редакторе есть какой-нибудь из двоичных объектов кроме текста?


 
Tack ©   (2007-06-15 20:47) [1]

Разобрался со спецификацией RTF, вот результат. Надо просто проанализироввать RTF-содержимое на предмет RTF-ключей \pict (для картинок), \object (для OLE), \intbl (для таблиц без текста)

function RTFTextHasEmbeddedOLE(sRTF: String): Boolean;
const
 NToFind = 3;
 MaxSWidth = 6;
 SToFind: array [0..(NToFind - 1)] of String[MaxSWidth] =
   ("pict", "object", "intbl");
var
 i, k: Integer;
begin
 // Делает простой поиск последовательностей \pict, \object, \intbl
 // Если они присутствуют, то OLE-объекты тоже присутствуют
 Result := False;
 for i := 0 to Length(sRTF) - 1 do
   if sRTF[i] = "\" then
   begin
     for k := 0 to NToFind - 1 do
     begin
       if SToFind[k] = Copy(sRTF, i + 1, Length(SToFind[k])) then
       begin
         Result := True;
         Exit;
       end;
     end;
   end;
end;



Страницы: 1 вся ветка

Текущий архив: 2007.08.26;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.017 c
15-1185449157
@!!ex
2007-07-26 15:25
2007.08.26
Группировка кнопок на TaskBar e.


2-1186036778
dimaL
2007-08-02 10:39
2007.08.26
MDI интерфейс


2-1185969342
Kolan
2007-08-01 15:55
2007.08.26
Цветные строки в DBGrid.


15-1185789204
Kerk
2007-07-30 13:53
2007.08.26
Клубом порулить хочется?


8-1162570365
Кевларвестов Семен
2006-11-03 19:12
2007.08.26
Чем бы выдернуть инфу из видео файла?