Показать сообщение отдельно
  #1  
Старый 28.05.2012, 21:12
ssman ssman вне форума
Прохожий
 
Регистрация: 28.05.2012
Сообщения: 2
Репутация: 10
Стрелка Проблема с TJPEGImage

Здравствуйте! У меня есть картинка jpg, скаченная из инета с помощью idHTTP и помещенная в переменную типа string. Мне необходимо перевести эту картинку в формат BMP и работать с ней уже как с типом TBitmap, но при этом для ускорения работы программы нельзя пользоваться сохранением картинки на жесткий диск и последующим чтением с помощью функций которые есть в различных примерах в сети.

Вот на всякий случай один из вариантов предлагаемых на просторах интернета:

Код:
uses JPEG;
 
procedure JPEGtoBMP( const FileName: TFileName);
var
  jpeg: TJPEGImage;
  bmp: TBitmap;
begin 
  jpeg := TJPEGImage.Create; 
  try 
    jpeg.CompressionQuality := 100 ; {Default Value} 
    jpeg.LoadFromFile(FileName); // нужен какой то аналог такой функции, но чтобы загрузка изображения шла именно из переменной типа string
    bmp := TBitmap.Create; 
    try 
      bmp.Assign(jpeg); 
      // операции с картинкой
      ...
    finally
      bmp.Free;
    end;
  finally
    jpeg.Free;
  end;
end;


Если есть решение - пожалуйста приведите хотябы набросок кода!
Ответить с цитированием