Как преобразовать BMP в JPEGDelphi , Графика и Игры , JPEGКак преобразовать BMP в JPEGАвтор: http://www.swissdelphicenter.ch uses Jpeg, ClipBrd; procedure TfrmMain.ConvertBMP2JPEG; // converts a bitmap, the graphic of a TChart for example, to a jpeg var jpgImg: TJPEGImage; begin // copy bitmap to clipboard chrtOutputSingle.CopyToClipboardBitmap; // get clipboard and load it to Image1 Image1.Picture.Bitmap.LoadFromClipboardFormat(cf_BitMap, ClipBoard.GetAsHandle(cf_Bitmap), 0); // create the jpeg-graphic jpgImg := TJPEGImage.Create; // assign the bitmap to the jpeg, this converts the bitmap jpgImg.Assign(Image1.Picture.Bitmap); // and save it to file jpgImg.SaveToFile('TChartExample.jpg'); end; Перевод контента на русский язык: Код - это программный проект Delphi, который конвертирует изображение BMP (в этом случае, графику TChart) в JPEG-изображение. Вот шаг за шагом, что код делает:
Код компактен и эффективен в достижении своей цели. Однако, есть несколько предложений для улучшения:
Вот пример модификации кода с добавлением обработки ошибок и более конкретным форматом имени файла:
В этом модифицированном коде используется блок В статье описывается процесс преобразования файлов формата BMP в JPEG с помощью программного кода на языке Delphi, используя компоненты Jpeg и ClipBrd. Комментарии и вопросыПолучайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |