| Вопрос: Как сохранить рисунок в формате JPEG ? | Добавлено: 12.02.07 11:47 |
Автор вопроса:  Meh&vb | ICQ: 195578509 |
| Хочу сделать себе программочку, чтоб автоматом размер изображений уменьшала до нужного размера и сохраняла его в формате JPEG. Как это сделать ? |
| Ответы | Всего ответов: 10 |
|
Номер ответа: 1 Автор ответа:  Боцман ICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | | #1 | Добавлено: 12.02.07 12:27 |
|
Так и пиши ее, а в JPEG вот тебе пример.
http://rus-skipper.narod.ru/raznoe/SaveToJpg.zip |
||
|
Номер ответа: 2 Автор ответа: БоцманICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | | #2 | Добавлено: 12.02.07 13:42 |
|
К стати, как автоматом изменить и сохранить
есть пример здесь же, на странице форума от 4 числа этого месяца. |
||
|
Номер ответа: 3 Автор ответа: Meh&vb ICQ: 195578509 Вопросов: 8 Ответов: 25 |
Профиль | | #3 | Добавлено: 12.02.07 13:43 |
| Спасибо. Берусь и пишу... | ||
|
Номер ответа: 4 Автор ответа: mc-black ICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | | #4 | Добавлено: 12.02.07 14:01 |
|
Интересно содержимое той dll на Delphi, какие api задействованы, как можно задать параметры качества jpg и т.п.?
Народ, у кого есть _исходники_ по работе напрямую или через api с графическими форматами gif, jpg, png на VB6/asm/C++ по сохранению DC в файл, поделитесь ссылкой или сбросьте на почту mc-black[собака]yandex[точка]ru (я потом смогу раместить в сети для всех). |
||
|
Номер ответа: 5 Автор ответа: БоцманICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | | #5 | Добавлено: 12.02.07 14:51 |
|
http://rus-skipper.narod.ru/raznoe/loadpic.zipЧитает все форматы и сохраняет в различные.
Пример с ней-же с GIf здесь. http://rus-skipper.narod.ru/raznoe/howto_show_animated_gif.zip |
||
|
Номер ответа: 6 Автор ответа: -АлександР-Вопросов: 55 Ответов: 1008 |
Web-сайт: Профиль | | #6 | Добавлено: 12.02.07 18:20 |
|
Option Explicit On
Option Strict On Imports System.Runtime.InteropServices Public Class Form1 Private Sub ПродолжитьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ПродолжитьToolStripMenuItem.Click 'назначаем фильтр OpenFileD.Filter = _ "Все файлы рисунков(*.bmp;*.gif;.*jpg;*.png;*.ico)|*.bmp;*.gif;" _ & "*.jpg;*.ico;*.ico|" _ & "Точечный рисунок(*.bmp)|*.bmp|" _ & "Фото(*.jpg)|*.jpg|" _ & "Формат графического обмена(*.gif)|*.gif|" _ & "Иконки(*.ico)|*.ico" _ & "|Portable Network Graphics(*.png)|*.png" 'очищаем OpenFileD.FileName = "" 'открываем окно OpenFileD.ShowDialog() If OpenFileD.FileName = "" Then Return Try 'создаем битмап для работы с выбранным файлом Dim bmp As New Bitmap(OpenFileD.FileName) 'показываем картинку PictureBox1.Image = CType(bmp.Clone, Bitmap) bmp.Dispose() 'заголовок Me.Text = OpenFileD.FileName 'вывод характеристик картинки TextBox1.Text = CStr(PictureBox1.Image.Width) TextBox2.Text = CStr(PictureBox1.Image.Height) TextBox1.Select() TextBox1.SelectionStart = 0 TextBox1.SelectionLength = TextBox1.TextLength Catch 'если ошибка, то Return End Try End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'создаем новый битмап для изменения размеров предыдущего Dim bmp As New Bitmap(PictureBox1.Image, CInt(TextBox1.Text), CInt(TextBox2.Text)) PictureBox1.Image = CType(bmp.Clone, Bitmap) bmp.Dispose() End Sub Private Sub СохранитьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles СохранитьToolStripMenuItem.Click With SaveFileD .FileName = "" .Filter = _ "Точечный рисунок(*.bmp)|*.bmp|" _ & "Фото(*.jpg)|*.jpg|" _ & "Формат графического обмена(*.gif)|*.gif" _ & "|Portable Network Graphics(*.png)|*.png" .ShowDialog() End With End Sub Private Sub ВыходToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ВыходToolStripMenuItem.Click End End Sub Private Sub SaveFileD_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles SaveFileD.FileOk With SaveFileD Try Select Case .FilterIndex Case 1 PictureBox1.Image.Save(.FileName, System.Drawing.Imaging.ImageFormat.Bmp) Case 2 PictureBox1.Image.Save(.FileName, System.Drawing.Imaging.ImageFormat.Jpeg) Case 3 PictureBox1.Image.Save(.FileName, System.Drawing.Imaging.ImageFormat.Gif) Case 4 PictureBox1.Image.Save(.FileName, System.Drawing.Imaging.ImageFormat.Png) End Select Catch Return End Try End With End Sub End Class |
||
|
Номер ответа: 7 Автор ответа: mc-blackICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | | #7 | Добавлено: 13.02.07 10:19 |
Спасибо, Боцман, но меня больше интересует не сама vic32.dll, а её (или аналогичной библиотеки) исходники, а их мне автор библиотеки вряд-ли так просто даст. Хотя тоже на крайняк сгодится. 
|
||
|
Номер ответа: 8 Автор ответа: BarsikРазработчик Offline Client ICQ: 343368641 Вопросов: 17 Ответов: 686 |
Web-сайт: Профиль | | #8 | Добавлено: 13.02.07 14:34 |
| дык на форуме это уже давно и не раз обсуждалось. юзаем не работающий поиск и ругаем павла)) | ||
|
Номер ответа: 9 Автор ответа: mc-blackICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | | #9 | Добавлено: 13.02.07 16:34 |
| лан, проехали, это я так. если сильно будет надо поищу и все откопаю. | ||
|
Номер ответа: 10 Автор ответа: [root]Вопросов: 45 Ответов: 1212 |
Web-сайт: Профиль | | #10 | Добавлено: 13.02.07 16:45 |
|
http://bit.pirit.info/forum/viewtopic.php?t=1456
|
||
Страница: 1 |