Страница 1 из 1

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

Добавлено: 22 дек 2010, 11:34
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 освобождаем созданные потоки.

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

Добавлено: 28 фев 2013, 13:13
Don Leprikon
Отлично, то, что надо!

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

Добавлено: 26 янв 2014, 14:58
Zaphod Beeblebrox
djn