Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.14;
Скачать: [xml.tar.bz2];




Вниз

JPG2BMP 


Anar   (2002-02-27 00:18) [0]

Я тут недавно написал прогу, которая устанавливает выбранный BMP на desktop. Потом подумал, редко у кого найдутся картинки 1024*768 в формате BMP. С интернета мы обычно скачиваем JPG.

Так вот хочу узнать возможно ли какими нибудь средствами Delphi первести JPG в BMP и наоборот?



hog   (2002-02-27 03:26) [1]

Используй TJPEGImage (модуль Jpeg)



Anar   (2002-02-27 07:42) [2]

Про модуль JPEG я знаю. С его помощбю можно открывать картинки в TImage.LoadFromFile.
Но как использовать предложенную тобою процедуру (Какие параметры) поподробнее, Please.



JohnnyCrisJoe   (2002-02-27 22:33) [3]

Касаемо данной проблемы гораздо проще переключить Рабочий стол в режим ActiveDesktop, который умеет работать и с JPEG и с GIF.
К сожалению ключей в реестре я не помню, но в своё время я нашёл их достаточно быстро.



Anar   (2002-02-28 01:23) [4]

Про это (Active Desktop)я между прочим подумал, ещё до того как задал сво вопрос на форуме. Только всем известно, что Active Desktop сильно тормозит работу. Легче перевести JPG в BMP (самое главное), а потом скопировать результат прямо в папку Windows. Я хочу, чтоб пользователь не ощущал разницы в выборе BMP или JPG.
Надо чтобы выбрал файл -> нажал кнопку -> и на рабочем столе твой wallpaper, в независимости от Active Desktop.

P.S. В режиме Active Desktop на рабочий стол можно выводить не только JPEG и GIF, но и HTML файл (WEB-страницу короче)



Alx2   (2002-02-28 07:58) [5]

Грузим JPG, сохраняем в BMP:

procedure TForm1.Button2Click(Sender: TObject);
Var BMP : TBitMap;
JPG : TJPEGImage;
begin
if OpenDialog1.Execute then
begin
BMP := TBitmap.Create;
JPG := TJPEGImage.Create;
try
JPG.LoadFromFile(OpenDialog1.FileName);
BMP.Width := JPG.Width;
BMP.Height := JPG.Height;
BMP.Canvas.Draw(0,0,JPG);
BMP.SaveToFile(OpenDialog1.FileName+".bmp");
finally
BMP.Free;
JPG.Free;
end;
end;
end;





Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.14;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.015 c
6-43133           GHF                   2001-12-26 13:27  2002.03.14  
Закачка страницы html


14-43169          Awex                  2002-01-31 14:33  2002.03.14  
Подскажите плиз, книку Рэя Конопки кто нибудь видел в каком нибудь интернет магазине, и Белеро и Озон и море других просмотрел, так и ненашел.... везде в нулевых остатках.... :(((


7-43200           olkononov1            2001-12-11 17:06  2002.03.14  
Размер шрифта зависит от ОС


1-42987           SuperIgor             2002-02-22 22:32  2002.03.14  
Помогите с ShellListView


14-43144          Digitman              2002-01-29 18:42  2002.03.14  
О