Конвертирование GIF в BMP или в JPG в Delphi

[bmmshayan]

Привет всем!

Везде искал ненашел...

Мне нужно текст программы (или кусок) на Delphi как

конвертировать c GIF в BMP или в JPG.

И ещё: как открыть окно подключения к интернету программным путем?

Помогите кто чем может...

[Сергей Плоткин]

Насколько я помню, в Дельфи не входит поддержка формат Gif. Поэтому рекоммендую воспользоваться довольно известной библиотечкой RxLib, которая добавляет поддержку этого формата в программу. А дальше используешь тип TGifImage.

Напр.:

uses  ..., rxgif, Jpeg, Graphics...;procedure Gif2Bmp(InputGifPath,OutputBMPPath:String);var Input:TGifImage; Output:TBitmap;begin Input:=TGifImage.Create; Input.LoadFromFile(InputGifPath); Output:=TBitmap.Create; Output.Assign(Input); Output.SaveToFile(OutputBMPPath);end;procedure Gif2Jpeg(InputGifPath,OutputJpegPath:String);var Input:TGifImage; Output:TJpegImage;begin Input:=TGifImage.Create; Input.LoadFromFile(InputGifPath); Output:=TJpegImage.Create; Output.Assign(Input); Output.Smoothing:=True; //Замыливание Output.CompressionQuality:=100; //Макс. качество //У жпега еще много различных св-в... Посмотри... Output.SaveToFile(OutputJpegPath);end;

[bmmshayan]

Сергей Плоткин:

Спасибо.

А можете рассказать где скачать и как правильно установить RxLib?

(в поисковиках сижу и там пишут что её нужно каким-то нестандартным способом инсталлировать)

[bmmshayan]

Сергей Плоткин:

Нашел RXLib v2.75 для Delphi 7.

Это и есть то что мне нужно?

[Сергей Плоткин]

Если у тебя D7, то да, именно то. Как устанавливать - читай справку или Readme. Там все должно быть написано.

p.s. Кстати, для 7 дельфей официально этой библиотеки компонентов нет. Под 7-ую версию ее портировали другие люди. Кстати, существует несколько вариаций порта для D7 (от разных людей). Ничем по сути друг от друга не отличаются.

Изменено 2 августа, 2005 пользователем Сергей Плоткин

[bmmshayan]

Сергей Плоткин:

Если у тебя D7

да у меня Delphi 7

читай справку или Readme

ничего в них толком в Readme нету...

и притом ещё и на английском (с переводчиком)

Если вы гдето найдете описание установки для Delphi 7 то выставте ссылочку.

[Сергей Плоткин]

bmmshayan:

Installation

------------

If you have Delphi 7 Professional or Personal Edition, deactivate the

conditional define {$DEFINE DCS} in the RX.INC file before compiling the

library.

Use "File\Open..." menu item of Delphi IDE to open RX' runtime

package RXCTL7.DPK. In "Package..." window click "Compile" button to

compile packages RXCTL7.DPK. After compiling repeat that for other RX

Library run-time packages RXDB7.DPK, RXBDE7.DPK. Put compiled BPL files

into directory that is accessible through the search PATH (i.e. DOS

"PATH" environment variable; for example, in the Windows\System directory).

After compiling RX run-time packages you must install RX design-time

packages into the IDE.

Use "File\Open..." menu item to open RX design-time package DCLRX7.DPK.

In "Package..." window click "Compile" button to compile the package

and then click "Install" button to register RX Library components on

the component palette. Repeat that for other RX Library design-time

packages DCLRXDB7.DPK and DCLRXBD7.DPK.

NOTE: do not save package sources in the Delphi IDE.

[bmmshayan]

Сергей Плоткин:

Ура!

Заработало! Спасибо!

Всё установил и настроил...

Конвертирует идеально твоим кодом выше!

----

А как насчет :

как открыть окно подключения к интернету программным путем?

[bmmshayan]

Выставлю описание установки RXLib v2.75 для Delphi 7. (может кому пригодится)

Инсталляция:

Выберите пункт меню "File/Open...", и откройте пакет (package) RXCTL7.DPK.

В появившемся окне "Package - ..." нажмите кнопку "Compile". После

компиляции пакета RXCTL7 аналогичным образом скомпилируйте остальные

run-time пакеты RXDB7.DPK и RXBDE7.DPK. Скомпилированные BPL-файлы поместите

в каталог, включенный в переменную окружения PATH (например, WINDOWS\SYSTEM).

После компиляции run-time пакетов окройте с помощью меню "File/Open..." файл

DCLRX7.DPK. В появившемся окне "Package - ..." нажмите кнопку "Compile",

и после компиляции нажмите кнопку "Install". После установки пакета

DCLRX7.DPK (должен быть установлен в IDE первым) произведите те же действия

с пакетами DCLRXDB7.DPK и DCLRXBD7.DPK.

Не сохраняйте пакеты библиотеки RX в Delphi IDE.

Если у Вас была установлена предыдущая версия библиотеки RX, удалите

перед установкой старые скомпилированные packages - файлы RXCTL7.BPL,

RXDB7.BPL, RXBDE7.DPK, DCLRX7.BPL, DCLRXDB7.BPL, DCLRXBD7.DPK.