Delphi. Как извлечь картинку jpg, jpeg из БД?

[Boris]

Вот такой незамысловатый код на Delphi 5 позволяет вытащить из БД картинку в формате jpeg.
Взято из рабочего кода. В качестве БД -была SQL база данных.

try
MS := TMemoryStream.Create; // создаем потоки
jpeg1 := TJPEGImage.Create;

TGraphicField(ADOQuerySQL.FieldByName('Jpg_binary_min')).SaveToStream(MS);
ms.position:=0;
jpeg1.LoadFromStream(MS);

finally
jpeg1.Free;
MS.Free;
end;

Всю конструкцию ОБЯЗАТЕЛЬНО помещаем в защищенные операторы:
try
finally
end.
Это "убережет" от непредвиденных ошибок в виде неправильного формата файла и от многих других.
В блоке finally end освобождаем созданные потоки.

[Don Leprikon]

Отлично, то, что надо!

[Zaphod Beeblebrox]

djn