Главная страница
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.023 c
15-1185406537
Альберт
2007-07-26 03:35
2007.08.26
cmd.exe ...


15-1185317830
Riply
2007-07-25 02:57
2007.08.26
Zip диск и NTFS.


15-1185371357
Галинка
2007-07-25 17:49
2007.08.26
Посоветуйте книгу по Си


2-1185867898
Elen
2007-07-31 11:44
2007.08.26
вопрос по EnumThreadWindows


2-1185522909
Ekate
2007-07-27 11:55
2007.08.26
потоки