Конференция VBStreets

**ALX_2002** » 09.10.2004 (Сб) 21:41

Народ, я когда то давно наткнулся на архивчик с DLL которая сохраняла графику в JPG с указанным уровнем качетсва.

Автор её был то ли Шатрыкин Иван , то ли многоуважаемый Гайдар.

Теперь ниигде не могу найти этот архивчик.

Может у кого нибудь есть та DLL ка или аналог таковой ?

SATOJPG.DLL не предлагайте. Не подходит.
:roll:

**GSerg** » 09.10.2004 (Сб) 22:11

Не предлагаем...

http://www.vbrussian.com/Examples.asp?ID=74

**tyomitch** » 09.10.2004 (Сб) 23:31

Предлагаю свою чудо-обёртку для GDI+: http://mix.web.ur.ru/jpeg.zip
Пример использования: CreateBitmapFromPicture(Picture1.Picture).SaveToJpeg "c:\test.jpg", 45

**ALX_2002** » 10.10.2004 (Вс) 19:57

2 all: Не товарищи... Не увы не пойдёт.. :oops:

2 Gserg: Пройденый этап... Не пашет - Как и раньше ссылается на DLL

2 tyomitch: Всё супер, но увы мне нужно, чтобы можно было конвертирововать указанный файл. Т.е в функцию передавать путь к файлу и путь куда сейвить... В принципе я могу сгенерить ActiveX в котором всё это обращение пропишу, но мне нужно ещё указывать степень сжатия и размеры сохраняемого рисунка.

Вот такие вот запарки...

**tyomitch** » 10.10.2004 (Вс) 20:27

ALX_2002 писал(а):2 tyomitch: Всё супер, но увы мне нужно, чтобы можно было конвертирововать указанный файл. Т.е в функцию передавать путь к файлу и путь куда сейвить... В принципе я могу сгенерить ActiveX в котором всё это обращение пропишу, но мне нужно ещё указывать степень сжатия и размеры сохраняемого рисунка.

Там всё это есть, ты просто не разобрался :-)

То, что тебе нужно, делается строкой

Код: Выделить всё: CreateImage("c:\test.bmp").GetThumbnailImage(100, 100).SaveToJpeg "c:\test.jpg", 45

**ALX_2002** » 10.10.2004 (Вс) 20:33

Хм.... Виноват.. Сейчас пересмотрю :scratch:

2 tyomitch: А можно огласить весь список команд и функций этой DLL ? и как обращаться к ней через CreateObject ? В проекте этого я не нашёл... :cry:

Dim pic

pic=CreateObject("") ?

**ALX_2002** » 10.10.2004 (Вс) 21:38

Во НАШЁЛ ! RELIB ЗАПАХАЛ !!!

http://www.relib.com/forums/topic.asp?id=786606

**tyomitch** » 10.10.2004 (Вс) 23:27

ALX_2002 писал(а):2 tyomitch: А можно огласить весь список команд и функций этой DLL ? и как обращаться к ней через CreateObject ? В проекте этого я не нашёл...

Если хочешь - то

Код: Выделить всё: Dim global Set global = CreateObject("prjGDIPlus.Global")

Но там это нигде не нужно, создание всех объектов выполняется глобальными методами.

Весь список команд и функций слишком большой, чтобы егом можно было огласить... Если кратко, то она может всё :-)

Конференция VBStreets

DLL, сохраняет изображения в JPG с указанной степень сжатия

DLL, сохраняет изображения в JPG с указанной степень сжатия

Кто сейчас на конференции