Сложности при экспорте в TIF с компрессией

[aporiy zenonov]

Подскажите, кто в курсе или кто с чем-то аналогичным сталкивался: не выходит экспортировать в tif с компрессией. При экспорте скриптом с параметром cdrCompressionLZW размер файла, который должен получиться сжатым, все-равно выходит как у некомпрессионного файла и даже больше! Т.е. экспортируешь вручную с LZW-компрессией - получаешь на данном образце размер тифа около 1 Мб. При экспорте скриптом - около 20 Мб. Писал макрос сначала "вручную", не поверил полученному результату. Решил тупо воспользоваться записью макроса и посмотреть, что же делал не так. Результат абсолютно тот же - при экспорте "вручную" tif-файла с LZW-компрессией (идет запись макроса) - размер как надо. Запускаю только что записанный макрос - никакой компрессии и в помине не видать! Даже еще смешнее: с cdrCompressionNone - размер 18 Мб, а с cdrCompressionLZW - 22,6 Мб. Напоминаю, что при экспорте "вручную", а не макросом - меньше 1 Мб.
???

Sub Macro1()
    Dim OrigSelection As ShapeRange
    Set OrigSelection = ActiveSelectionRange
    OrigSelection.CreateSelection
    Dim expflt As ExportFilter
    Set expflt = ActiveDocument.ExportBitmap("C:\222\111.tif", cdrTIFF, cdrSelection, cdrCMYKColorImage, 2191, 2115, 300, 300, cdrNormalAntiAliasing, False, True, True, False, cdrCompressionLZW)
    expflt.Finish
End Sub

 

[splxgf]

Пробуйте задать компрессию отдельным заданием параметра (типа
expflt.Compression = cdrCompressionLZW) перед вызовом finish.

Sub Macro1()
    Dim OrigSelection As ShapeRange
    Set OrigSelection = ActiveSelectionRange
    OrigSelection.CreateSelection
    Dim expflt As ExportFilter
    Set expflt = ActiveDocument.ExportBitmap("C:\222\111.tif", cdrTIFF, cdrSelection, cdrCMYKColorImage, 2191, 2115, 300, 300, cdrNormalAntiAliasing, False, True, True, False, cdrCompressionLZW)
    expflt.Compression = cdrCompressionLZW
    expflt.Finish
End Sub

Версия x5?

 

[aporiy zenonov]

Да, Х5. Отдельно задавать параметр тоже пробовал с тем же результатом.

 

[splxgf]

Возможно это ошибка данной версии http://forum.oberonplace.com/showthread.php?t=7577

i got a confirmation from corel that this is a bug in X5.
they don't know, when they will have a solution for this

 

[aporiy zenonov]

Да, спасибо. В Х3 работает (сам не проверял - так пишут), в Х4 и в Х5 - не работает. В Х6 опять работает.
Чудеса...