Картинки в ACCESS

← →
nickmix © (2006-11-21 05:32) [0]

Доброго времени суток! Уважаемые, подскажите, пожалуйста как положить картинку jpeg в Blob поле ACCESSа. Постоянно возникает ошибка типа - "неверный bmp формат". BMPшки ложаться нормально, НО размер базы просто катострофический - 140 записей - 1,5 гб!. Приложение начинает жутко тормозить. Ложу из DBImage.

← →
nickmix © (2006-11-21 07:39) [1]

Уже в другом вопрос. На формат ругается именно DBImage. Как сделать так, чтобы он видел JPEG? Если предложите другие компоненты, то какие, нужно подобие DBImage и QRDBImage.

← →
Stanislav © (2006-11-21 08:52) [2]

На форму лоешь, обычный image и вызываешь эту функцию на afterscroll
uses ...JPEG...
......

function ShowJPG (Field:TBlobField;var Image:TImage):Integer;
var S:TMemoryStream;J:TJPEGImage;
begin
Result:=0;
if not Field.DataSet.Active or Field.IsNull
then
begin
Image.Canvas.Brush.Color:=clBtnFace;
Image.Canvas.FloodFill(0,0,clWhite,fsSurface);
patBlt (Image.Canvas.Handle ,0,0,Image.Picture.Width,Image.Picture.Height,PATCOPY);
end
else
begin
S:=TmemoryStream.Create;
J:=TJpegImage.Create;
S.Position:=0;
Field.SaveToStream(S);
S.Position:=0;
J.LoadFromStream(S);
Image.Picture.Bitmap.Assign(J);
Result:=S.Size;
J.Free;
S.Free;
end;

end

← →
Виталий Панасенко (2006-11-21 10:47) [3]

Или тянешь БЕСПЛАТНЫЕ JEDI компоненты и используешь JvDBImage - там форматов поддерживаемых тьма(я так понял все (или почти все) графические форматы).
http://jvcl.sourceforge.net

Картинки в ACCESS - беда Найти похожие ветки