Delphi. Как извлечь картинку jpg, jpeg из БД?
Добавлено: 22 дек 2010, 11:34
Вот такой незамысловатый код на 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 освобождаем созданные потоки.
Взято из рабочего кода. В качестве БД -была 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 освобождаем созданные потоки.