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

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

Как можно вытянуть из Metafile текст?


TeNY ©   (2004-10-16 13:59:00) 

К примеру Word при копировании копирует в формате Metafile как вытяныть оттуда и текст и изображения?


TeNY   (2004-10-17 07:44:00) [1]

Спасибо GROL


GROL   (2004-10-17 01:06:00) [2]

Вызываешь
EnumEnhMetaFile(0, MetaHandle, @EnumDebug, self, nil);
Парсиш этот метафайл
function EnumDebug(DC: HDC; HTable: PHandleTable; EMFR: PEnhMetaRecord; nObj: Integer; data: pointer): BOOL; stdcall;
begin
 ...
 Result := true;
 case EMFR^.iType of
   EMR_HEADER: ;
   ...
   EMR_EXTTEXTOUTA,
   EMR_EXTTEXTOUTW: ;
 end;


ну а дальше по задумке.


Наверх

Титульная страница Поиск, карта сайта Написать письмо