PictureBox --> Gif, Jpeg etc

[SmarT]

Как програмно уменьшить вес картинки? Вернее, как сделать из bmp, например, gif или jpg ? Суть в том, что я экспортирую из проги снимок пикчербокса и больно много он весит...

[GSerg]

...

[SmarT]

огромная пасиба!!! правда ниче не работает , но щас буду разбираться. еще раз, пасиба!

[SmarT]

почему-то не работает ни ехе-шник, ни сам код. То есть в бмп он сохраняет конечно, тк на бмп там стоит код как у меня (savepicture), а вот с остальными проблема... Это твои классы, не подскажешь, что там да как? плииз...

[GSerg]

Так это не мои классы

Так, посмотрим...
Загрузка картинок работает...
Сохрание обламывается...
Стрянно. ща поковыряем...

[GSerg]

Поковырял
Кодяра работает, экзешник нет

[SmarT]

стрянно, а у мя ниче не пашет. еще и в коде говорит что не знает Space$(x)... стрянно... не знаешь отчего такое могет быть?

[Mikle]

Если код работает - екзешник нет, может попробовать скомпилить в P-code?

[SmarT]

дык говорю, что код у меня не работает в том проекте, когда все переношу в свой, все вроде пашет, никаких ошибок, тока на вызов функции говорит что не удалось . хелп!!!!

[SmarT]

кстати, не в тему, а что такое p-code и ваще какая разница между тем как компайлить?

[Mikle]

P-code - полностью работает через MSVBVM60.DLL, то есть полный интерпретатор. Работает медленнее, но EXE-шник выходит меньше и ближе соответствует запуску программы прямо из среды VB. Native использует MSVBVM60.DLL частично. Насколько знаю, вся математика компилится напрямую, отсюда высокое быстродействие, разница может быть в несколько раз.

[SmarT]

спасибо!

[Vadim_n]

У меня нужная мне картинка в переменной Dim Pict As IPictureDisp
сохраняю хоть в bmp хоть gif всеравно делает фаил размером почти 4 метра
SavePicture Pict, "C:\test.gif"
Как мне сохраняя сжать размер файла хотябы до 1 метра, потеря качества нестрашно
Тока нужен не код на 3 страницы а какнибудь в пару строк плиз

[Mikle]

То, что ты даёшь файлу расширение ".gif", не делает файл GIF-ом, это всё тот же .BMP, VB6 не может сохранять в других форматах.
Сохраняй с помощью GDI+ во что хочешь - JPG, PNG, BMP, GIF, TIFF.

Правка:
Vadim_n, ну ты и некропостер!

[Vadim_n]

А можно просто уменьшить размер при сохранении? (формат мне всеравно какой будет) Может пережимать ненужно в другой формат?

[ger_kar]

А можно просто уменьшить размер при сохранении?

Можно уменьшить разрешение, тогда без изменения формата и соответственно сжатия, которое этим форматом используется, как раз сам размер картинки и уменьшится.

[Vadim_n]

как можно уменьшить размер сохраняя пропорции? Только нужно маленький код в несколько строк, типа такого:

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

Set Pict = Clipboard.GetData(vbCFBitmap)  ' Помещаем всё, что лежит в буфере обмена в переменную Pict
    SavePicture Pict, "C:\test.gif"    ' Сохраняем всё в нужный файл
   
    Picture1.Picture = LoadPicture ("C:\test.gif") 
    Label1.Caption = Picture1.Width
    Label1.Caption = Val(Label1.Caption) / Val(2)
    Label2.Caption = Picture1.Height
    Label2.Caption = Val(Label2.Caption) / Val(2)
    Picture2.PaintPicture Picture1, 0, 0, Label1.Caption, Label2.Caption, 0, 0, , , vbSrcCopy
    SavePicture Picture2.Image, "C:\test2.gif"

только чтобы правильно работал и желательно сохранялся только сжатый фаил без промежуточных

[Vadim_n]

Как можно уменьшить размер прямо в переменной Pict сохраняя пропорции?

[Vadim_n]

Подскажите пожалуйста как можно с переменой сохранить картинку с помощью GDI+ или чевото ещё в формате джипег или гиф, и при сохранении уменьшить размер картинки сохраняя пропорции например была 1024 на 768 а сохранили 800 на 600?

[tav]

ищи на форуме по слову "StretchBlt"

[Mikle]

как можно с переменой сохранить картинку с помощью GDI+

Это два разных действия - изменение размера, потом сохранение.
Как уже подсказали, для изменения размера можно применить StretchBlt, есть более медленный, но более качественный вариант:
viewtopic.php?f=28&t=38123