Как вынуть вложенное в Ole контейнер

[Les555]

Прошу подсказать. Я на форму размещаю Ole контейнер, в контейнер кладу файл (все при создании VB приложения).
Как мне при исполненни программы "выложить копию" вложенного ?? вроде есть ole1.Savetofile ... но выложенный файл имеет "лишних" несколько байт в самом начале ... как выгрузить содержимое Ole объекта без этих заголовочных байтов ?

[Les555]

Мдя... ответов не видать.
Мож кому пригодится....решил так :

1. Сохранил в файл
ole1.savetoole1file ff

2. Считал обратно файл ff в массив байтов а (23400) ; (благо размер файла мне известен, а нет ... так и узнать можно )
3. создал массив байтов короче на длину заголовка оle a2 (23400 - 3400) (количество байтов в заголовке через winhex поглядел)
3. процедурой copymemory перенес массив а в массив а2 , начиная с позиции a(3400-1) .. (в цикле тоже можно , но медленней)..
4. удалил промежуточный файл
5. записал а2 () в файл...

Корявенько как то , но работает.

[Хакер]

Это что, какой-то приём черной магии — читать весь файл в один массив, а потом копировать нужную часть первого во второй? А сразу прочитать нужную часть файла в массив — не судьба?

[Les555]

да , согласен. можно сразу прочитать с нужной позиции...и снова записать в новый файл... наверно так быстрей.
но всиравно коряво.. - с "промежуточными" файлами коряво