OLE

[ljunix]

Помогите! Как мне сохранить изображение OLE-объекта в виде картинки в файл, не активируя сам OLE-объект (без использования Ole.doVerb)?

[GSerg]

Ну раз там есть hwnd, значит, getdc и bitblt
Это, конечно, если проперть picture не подходит...

[ljunix]

А если OLE бъект большой и не помещается на экране? Или сохранить надо когда форма минимизирована? Просто такая ситуация, что при активации сразу изменяется OLE объект, что крайне нежелательно.
Кстати свойство OLE1.picture становится доступным только после активации OLE

[ljunix]

Ну помогите пожалуйста!

[Igor_123]

По-моему никак, не написав аналог нужного OLE.
Может имеет смысл хранить изображение в ресурсах, например.
Т.е. ОЛЕ активизируется в любом случае, один раз при вставке контейнера, как минимум. Пока все активно сохраняешь все, что необходимо, а потом читаешь и отображаешь в оффлайне .
Сохранять можно в ресурсы программы или просто на диск. Пример реализации обоих вариантов есть на форуме, приводили не раз.

Или может стоит отказаться от использования ОЛЕ?Я идиот! Убейте меня, кто-нибудь!???

[ljunix]

Но ведь на экране он как-то отображается без активации? Как это своровать и сохранить? Но только так, что если сам объект выходит за границы экрана, чтоб все сохранилось Желательно с кодом программы

[Igor_123]

Я не очень силен в ОЛЕ, но понимаю это как обобщенный контейнер для хранения информации о связях между объектом(документом) и сервером(приложением), которое обрабатывает объект(документ).
Так-же контейнер может хранить и сам объект(документ), но не сервер. И при отображении, скорее всего, показывает заранее приготовленную картинку, которую создает при инициализации контейнера документом. В момент инициализации, я так предполагаю, и вызывается сервер, и в этом месте можно попытаться перехватить сервер и получить от него все, что надо или вытащить это из ОЛЕ-объекта.

Может стоит подумать об отказе от использования ОЛЕ?

[ljunix]

А как вытащить то?
Ну а отказаться - никак нельзя

[Igor_123]

Не знаю, к сожалению. А разбираться сейчас некогда Поэтому и предлагал пересмотреть концепцию. Например запускать явно сервер обработки ОЛЕ-объекта. Например если это Ексель то там есть вариант сохранения всего листа с данными в виде рисунка.

А вообще, что это за объект, ты, держиш в ОЛЕ?

[ljunix]

В базе данных лежат разные объекты OLE (формулы, вордовские, экселевские документы, и многое другое), нужно их преобразовать в картинки.
Проблема в том, что тот-же самый microsoft Equation отображает формулы по разному в разных версиях, а как только OLE объект активируется - он меняется - растягивается, сжимается, меняется шрифт - а этого нельзя допустить. До вызова OLE1.doverb - объект выглядит и отображается в форме нормально, но его свойство picture еще не доступно

[GSerg]

Код: Выделить всё

Private Declare Function BitBlt Lib "gdi32.dll" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long

Private Sub Command1_Click()
  OLE1.BorderStyle = 0
  BitBlt Picture1.hDC, 0, 0, OLE1.Width, OLE1.Height, Me.hDC, OLE1.Left, OLE1.Top, vbSrcCopy
End Sub