Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.018 c