Конкретно заблудился в GDI+

[Rumata]

Наверное я все же идиот....
но тем не менее:
1 закачал обертку от Темыча
2 отконвертировал все что мне нужно в нужные форматы
3 так и не въехал как изменить размер картинки

т.е. я открываю 2400х1800 а сохранить мне надо 800х600

Люди скажите что нужно сделать??

[tyomitch]

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

CreateImage("yourimage").GetThumbnailImage(800, 600).Save "newimage", "image/png"

[tyomitch]

Уважаемый Темыч,
Добрый день, постите за назойливость, а другого способа нет?
Дело в том что GetThumbnailImage пересчитыват картинку с серьезным ухудшением.... по сравнению с фотошопом или корелом... для 30х40 этого достаточно, а вот для 800х600 результат поганый..
или все же что-то не так?
мой код -
SavePicture CreateImageFromUrl(sPath + sName).GetThumbnailImage(Wb, Hb).Picture, Me.ctBaseDir + "sNewFile"
заранее благодарен
Румата.

Контролировать качество позволяет метод GetThumbnailImageEx:

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

CreateImage("yourimage").GetThumbnailImageEx(800, 600, InterpolationModeHighQualityBicubic).Save "newimage", "image/png"


См. тж. другие члены перечисления InterpolationMode.

Кроме того, лучше не использовать SavePicture Image.Picture: это очень тормозной способ, потому что создаётся огромный временный GDI-битмап. Лучше, как показано в коде выше, вызывать метод Save.