Как сохранить изображение с надписью из TImageEnView в формате PNG или JPG на компьютере

Delphi , Графика и Игры , Изображения

При работе с графическими элементами в Delphi и Pascal одна из распространенных задач – сохранение изображения вместе с текстом, отображаемым на нем. Вопрос пользователя касается именно этой проблемы. Он разместил на форме TImageEnView и добавил на него Label с текстом, после чего хотел сохранить полученное изображение в формате PNG или JPG.

Проблема

Пользователь пытается сохранить изображение, используя следующий код:

CharLbl.Font.Size := I;
CharLbl.Top:=22;
ImageEnIO1.SaveToFile('D:\output2.png'); // Сохранение в потоке 2
ImageEnIO1.WaitThreads(false);
ShowMessage(inttoStr(I));

Однако, несмотря на использование метода SaveToFile, сохраняется только фон изображения без учета Label. Пользователь спрашивает, как сохранить изображение вместе с текстом Label.

Решение

В подтвержденном ответе предлагается создать временный объект TBitmap, в который будет скопировано изображение TImageEnView, а затем на этом изображении будет нарисован текст из Label. После этого, временный TBitmap сохраняется в файл.

var
    paintBMP: TBitmap;
begin
    paintBMP := TBitmap.Create;
    try
        paintBMP.Width := ImageEnIO1.Width;
        paintBMP.Height := ImageEnIO1.Height;

        paintBMP.Canvas.Draw(0, 0, ImageEnIO1.Picture.Graphic);
        paintBMP.Canvas.CopyRect(Rect(0, 0, ImageEnIO1.Width, ImageEnIO1.Height),
                                  CharLbl.Canvas,
                                  Rect(0, 0, CharLbl.Width, CharLbl.Height));

        // Установите размеры прямоугольника согласно координатам и размеру Label
        // (прямоугольник в методе CopyRect задается координатами и размером Label)
        // Например, если CharLbl.Left = 10, CharLbl.Top = 10, CharLbl.Width = 50, CharLbl.Height = 20
        // тогда Rect(10, 10, 50, 20) для второго CopyRect примет значение фона изображения
        // и Rect(10, 10, CharLbl.Width, CharLbl.Height * ImageEnIO1.PixelFormat.Depth / paintBMP.PixelFormat.Depth) для первого CopyRect
        // для учета глубины цвета, которая может быть не совместима

        paintBMP.SaveToFile('D:\output2.bmp'); // Сохранение в формате BMP
        // Преобразование BMP в PNG или JPG
        var
            converter: TJPEGImage;
        begin
            converter := TJPEGImage.Create;
            try
                converter.Bitmap.Assign(paintBMP);
                converter.CompressionQuality := 100; // Уровень сжатия для JPG
                converter.SaveToFile('D:\output2.png'); // Сохранение в формате PNG
            finally
                converter.Free;
            end;
        end;
    finally
        paintBMP.Free;
    end;
end;

Обратите внимание, что в коде выше, после сохранения изображения в формате BMP, происходит его преобразование в PNG или JPG с помощью компонента TJPEGImage. Это необходимо, поскольку SaveToFile из TBitmap сохраняет изображение в формате BMP по умолчанию.

Важные замечания

• Размеры Label должны соответствовать или быть видимыми в пределах TImageEnView.
• Перед копированием текста в буфер изображения убедитесь, что размеры и позиции элементов соответствуют друг другу.
• В примере кода используется преобразование BMP в PNG, но если требуется JPG, необходимо соответствующим образом настроить параметры сжатия и формат сохраняемого файла.

Следуя этим шагам, вы сможете сохранить изображение с текстом из TImageEnView и Label в формате PNG или JPG на жестком диске вашего компьютера.

Создано по материалам из источника по ссылке.

Пользователь хочет сохранить изображение с текстом, отображаемым на элементе `Label`, который размещен поверх `TImageEnView`, в формате PNG или JPG на компьютере, используя возможности Delphi и Pascal.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Изображения ::