Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Такая проблема.... Нужно запихать рисунок JPG на рабочий стол..... [D6, WinXP]


Ежик ©   (2002-03-13 09:50:00) 

Знаю как все это проделать с BMP форматом, а вот как сделать чтоб JPG грузился?

Заранее Благодарен!
С Уважением Ежик.


Donal_Graeme   (2002-03-13 14:43:00) [1]

например, так :

uses JPEG;

procedure JPEGtoBMP (JPEGname, BmpName: AnsiString);
var JPGImage: TJPEGImage;
BMPImage: TBitmap;
begin
JPGImage := TJPEGImage.Create;
BMPImage := TBitmap.Create;
JPGImage.LoadFromFile (JPEGname);
BMPImage.Assign (JPGImage);
BMPImage.SaveToFile (BmpName);
BMPImage.Free;
JPGImage.Free;
end;


Ежик   (2002-03-13 14:30:00) [2]

Donal_Graeme

Примерчик не вышлешь? Хочу разобраться с конвертированием...


Donal_Graeme   (2002-03-13 12:17:00) [3]

если имеется ввиду установка картинки в качестве обоев, то только при включённом Active Desktop. В общем же случае нужно конвертировать в bmp формат. Лично я так и сделал, когда писал changer обоев :-)


Writer   (2002-03-13 12:01:00) [4]

BitBlt - нужная тебе API, В TImage грузишь JPG, он сие поддерживает, а потом копируешь из оного на десктоп...


Наверх

Титульная страница Поиск, карта сайта Написать письмо