Поиск:

Ответ в темуСоздание новой темы Создание опроса
> tiff/bmp to jpeg, Как программно конвертировать tif в jpg? 
:(
    Опции темы
Tupik
  Дата 9.10.2002, 19:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 8
Регистрация: 9.10.2002

Репутация: нет
Всего: нет



Народ! Третии день мучаюсь - без толку. Всё, что пытаюсь сделать - ActiveX контроль для Wеb странички, которыи запускал бы сканнер и отсканированныи имидж аплоадил на сервер. Использую кодаковскиe imgscan.ocx и imgedit.ocx. Беда в том, что imgscan выдаёт только TIFF (весом не меньше 2М), а imgedit под W98 не способен перекинуть эго в jpg (только в bmp). Кто нибудь в курсе, как ето провернуть? Да так, чтоб юзер дополнительных кнопок не жал?
PM MAIL   Вверх
Vit
Дата 9.10.2002, 23:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Vitaly Nevzorov
****


Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: нет
Всего: 207



С tiff прийдётся попотеть, а Jpeg - очень просто можно перевести в Дельфи - там класс есть для поддержки jpeg. Если надо то могу или код написать или готовую программу/DLL - там кода всего-то строк 5... С tiff можно пойти тремя путями -
1) Поискать компоненты для работы с ним
2) Поискать программу которая конвертит в пакетном режиме(что-нибудь типа Alchemy)
3) Самому разбираться с форматом

Я бы в таком порядке и пытался решить


--------------------
With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru
PM MAIL WWW ICQ   Вверх
Tupik
Дата 10.10.2002, 00:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 8
Регистрация: 9.10.2002

Репутация: нет
Всего: нет



Спасибо большоe!
Вобшчем-то, тот же самыж imgedit.ocx делаeт мне из tiff-а bmp... Но он тоже выходит не маленькии.  ??? А вот с Дельфи... не работал я никогда.
Eсть хорошии класс в ATL VC7.0... но скомпилированныи в неи dll не хочет регистрироваться на машинах, где не стоит .NЕТ.
Да, а что там по поводу dll-а, которыи у тебя готов?  :)
PM MAIL   Вверх
Vit
Дата 10.10.2002, 02:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Vitaly Nevzorov
****


Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: нет
Всего: 207



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


--------------------
With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru
PM MAIL WWW ICQ   Вверх
Tupik
Дата 10.10.2002, 02:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 8
Регистрация: 9.10.2002

Репутация: нет
Всего: нет



Хотeлось бы всего лишь задать иcxодныи фаил (bmp), конечныи (jpg), ну и вызвать функцию, которая из первого второи сделаeт...
А всe остальноe не так уж важно.  :)
PM MAIL   Вверх
Vit
Дата 10.10.2002, 02:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Vitaly Nevzorov
****


Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: нет
Всего: 207



Т.е. что-то типа:

Void Bmp2jpg(lpstr FileName1, lpstr FileName2, int quality)?


--------------------
With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru
PM MAIL WWW ICQ   Вверх
Vit
Дата 10.10.2002, 02:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Vitaly Nevzorov
****


Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: нет
Всего: 207



Вот, сваял DLL:

Код

library JpgSupport;

uses graphics,  jpeg;

Procedure Bmp2Jpg(BMPFile, JpgFile:PChar; Quality:integer); stdcall;
var JPEGImage:TJPEGImage;
    BitMap:TBitMap;
begin
 JPEGImage:=TJPEGImage.create;
 BitMap:=TBitMap.create;
 BitMap.LoadFromFile(BMPFile);
 JPEGImage.Assign(BitMap);
 JPEGImage.CompressionQuality:=Quality;
 JPEGImage.SaveToFile(JpgFile);
 BitMap.free;
 JPEGImage.free;
end;

Exports Bmp2Jpg;

end.


Откомпиллированную можно взять с http://chicago.lastplanet.com/3/JpgSupport.dll


Вот мой код на Дельфи проверяющий работоспособность:

Код

Procedure Bmp2Jpg(BMPFile, JpgFile:PChar; Quality:integer); stdcall; External('c:\dev\JpgSupport.dll');

procedure TForm1.Button1Click(Sender: TObject);
begin
 Bmp2Jpg('C:\WINNT\Santa Fe Stucco.bmp', 'c:\dev\1.jpg',100);
end;





--------------------
With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru
PM MAIL WWW ICQ   Вверх
Tupik
Дата 10.10.2002, 20:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 8
Регистрация: 9.10.2002

Репутация: нет
Всего: нет



Уффф.... Работает!!!! Спасибище тебе!!!  :D
PM MAIL   Вверх
Vit
Дата 10.10.2002, 23:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Vitaly Nevzorov
****


Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: нет
Всего: 207



Не за что, там же всего 5 строк...


--------------------
With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru
PM MAIL WWW ICQ   Вверх
Guest
Дата 23.6.2004, 17:08 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











Люди нужен старенький IMGEDIT.OXC !!! sad.gif Помогите пожалуйста!!! Кто знает дайте ссылку!!!
чень нужно!!! notify.gif
  Вверх
Fluke
Дата 23.6.2004, 17:09 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











Люди нужен старенький IMGEDIT.OXC !!! sad.gif Помогите пожалуйста!!! Кто знает дайте ссылку!!!
чень нужно!!!
  Вверх
A.S.
Дата 1.7.2004, 15:32 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











to Vit:
А для тифа такую могеш сотворить
чтонить типа tiff2jpeg(input,output)
???
дико надо, а то уже всю сеть исползал в поисках..
  Вверх
t0rik
Дата 4.7.2004, 16:07 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











А можешь предоставить код обратного конвертирования jpg в bmp?

  Вверх
Peter
Дата 16.8.2004, 13:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 771
Регистрация: 28.7.2003
Где: Ставрополь

Репутация: нет
Всего: 1



Делюсь опытом.
Надо было переконвертировать (точнее, заткнуть в программу такую функцию) старый WMF (от Win3.11) в BMP. Я взял IrfanView, посмотрел, как она работает с командной строки - и вставил строчку WinExec. Программа поддерживает КУЧУ форматов. Ежели ей надо пользоваться с коммерческими целями, то регистрация - $10.


--------------------
всё, что делаете, делайте от души, как для Господа (Послание апостола Павла колоссянам, 3:23).
PM MAIL WWW   Вверх
Peter
Дата 20.8.2004, 12:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 771
Регистрация: 28.7.2003
Где: Ставрополь

Репутация: нет
Всего: 1



Кстати, вместо IrfanView можно воспользоваться ImageMagick. Совершенно бесплатная.
imagemagick.org


--------------------
всё, что делаете, делайте от души, как для Господа (Послание апостола Павла колоссянам, 3:23).
PM MAIL WWW   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Форматы файлов и данных | Следующая тема »


 




[ Время генерации скрипта: 0.0522 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.