Определение размера изображения в байтах при перетаскивании в Delphi

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

Вопрос пользователя касается разработки приложения на Delphi, где необходимо отобразить размер изображения в байтах при его перетаскивании из одного элемента управления в другой. Для решения этой задачи необходимо использовать возможности работы с графикой и файлами в среде Delphi.

Проблема

Пользователь использует три элемента управления: TThumbnailList (просмотрщик изображений из компонентов TMS), TImage и TLabel. Задача заключается в том, чтобы при перетаскивании изображения из TThumbnailList в TImage и его сбросе, TLabel отображал размер изображения в байтах. Пользователь уже реализовал процедуры для перетаскивания и назначения изображения, но не знает, как получить размер изображения.

Решение

Для получения размера изображения в байтах необходимо сохранить его в поток и затем получить размер этого потока. Вот пример функции, которая выполняет это:

function GetGraphicSize(g: TGraphic): Integer;
var
  ms: TMemoryStream;
begin
  ms := TMemoryStream.Create;
  try
    g.SaveToStream(ms);
    Result := ms.Size;
  finally
    ms.Free;
  end;
end;

Этот код можно использовать в процедуре AssignImage, после назначения изображения элементу Image1, чтобы получить его размер и отобразить в TLabel.

Альтернативное решение

Если изображение загружается из файла, то размер файла можно получить, используя функцию поиска файлов:

function FindFileSize(Filename: string): Integer;
var
  sr: TSearchRec;
begin
  if FindFirst(Filename, faAnyFile - faDirectory, sr) = 0 then
    Result := sr.Size
  else
    raise EFileNotFoundException.Create(Filename + ' not found.');
  FindClose(sr);
end;

Эта функция может быть полезна, если TThumbnailList загружает изображения из файловой системы.

Подтвержденное решение

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

function BitmapSize(ABitmap: TBitmap): Cardinal;
var
  ms: TMemoryStream;
begin
  ms := TMemoryStream.Create;
  try
    ABitmap.SaveToStream(ms);
    Result := ms.Size;
  finally
    ms.Free;
  end;
end;

Этот код непосредственно применим к объекту TBitmap, который используется в TImage.

Заключение

Для определения размера изображения в байтах в приложении на Delphi, разработчику необходимо использовать методы сохранения изображения в поток и получения размера этого потока. Это может быть выполнено непосредственно после перетаскивания изображения в целевой элемент управления. Используя предложенные функции, разработчик сможет отобразить размер изображения в байтах в элементе TLabel.

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

Разработчик в Delphi хочет отобразить размер изображения в байтах после его перетаскивания из одного элемента управления в другой.

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

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

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