Поиск изображения в RichEdit

[artemavd]

Добрый вечер! Возник вопрос: можно ли осуществить поиск изображения в RichEdit, выделить его и, например, скопировать куда-нибудь для дальнейших действий с изображением? В Интернете не нашел ничего, на форуме тоже.

[Человек_Борща]

открываем rtf и ищем..

изображения в trf выгледят вот так

{\pict\wmetafile8\picwgoal2295\pichgoal2070 
0100090000037c67000000002d2c000000001610000026060f002220574d464301000000000001
0089740000000004000000002000008455000084750000010000006c0000000000000000000000
9800000089000000000000000000000081110000ca0f000020454d4600000100847500000c0000
00010000000000000000000000000000000005000000040000770100002c010000000000000000
000000000000d8b80500e0930400460000002c00000020000000454d462b014001001c00000010
0000000210c0db01000000600000006000000046000000901b0000841b0000454d462b22400400
0c000000000000001e4009000c00000000000000244001000c0000000000000030400200100000
00040000000000803f214007000c0000000000000008400005dc1a0000d01a00000210c0db0100
00000000000000000000000000000000000001000000ffd8ffe000104a46494600010101006000
600000ffdb004300080606070605080707070909080a0c140d0c0b0b0c1912130f141d1a1f1e1d
1a1c1c20242e2720222c231c1c2837292c30313434341f27393d38323c2e333432ffdb00430109
09090c0b0c180d0d1832211c213232323232323232323232323232323232323232323232323232
323232323232323232323232323232323232323232323232ffc0001108008a0099030122000211
01031101ffc4001f0000010501010101010100000000000000000102030405060708090a0bffc4
00b5100002010303020403050504040000017d0102030004110512213141061351610722711432
8191a1082342b1c11552d1f02433627282090a161718191a25262728292a3435363738393a4344
45464748494a535455565758595a636465666768696a737475767778797a838485868788898a92

{ИЗОБРАЖЕНИЕ В БИНАРНОМ ВИДЕ}
}

[artemavd]

И что? И как это именно может помочь? Предположим, что у меня есть текстовый документ с одним изображением. Как тогда его искать? Я конечно могу удалит все слова и символы из текста, чтобы в файле осталось только изображение. Но, сдается мне, что это долго будет работать.

[p51x]

Pos("{\pict",..)

Зачем удалять? Не вижу вообще логики.

[artemavd]

Ок. Загрузил файлик с изображением в RxRichEdit, картинка нормально загрузилась. Выполняю поиск картинки кодом:

procedure TForm3.Button1Click(Sender: TObject);
begin
 ShowMessage(IntToStr(Pos('{\pict',Form3.RxRichEdit1.Text)));
end;

В сообщении возвращается "0". Как бы сделать, чтобы найденная картинка как-то выделялась чтоли?

[phomm]

думаю, свойство text у почти любого компонента (а оно объявлено аж в Tcontrol, хотя rx не смотрел) не содержит тех же данных, что и сам rtf-файл, поэтому искать, полагаю, надо вручную, загружая rtf нетипизированным файлом(file of byte, tfilestream) и пробегаясь от начала до конца в поисках {\pict ну и считывая все данные до закрывающего тега (описываю в лоб, хотя, может, есть что-то поудобнее)

[Аватар]

Нарядли из RichEdit удастся выудить графику. Похоже только по методу предложенному phomm c преобразованием в двоичный формат