我用的是delphi7,在uses里面加了JPEG还是不行,提示'unable to locate file"jpeg.pas" 错误。
ext := uppercase(ExtractFileExt( ‘图片路径 ’)); if (ext = '.BMP') then DBimage1.picture.loadfromfile( ‘图片路径 ’ ) else if (ext = '.JPG') then begin Image1.picture.LoadFromFile( ‘图片路径 ’ ); if Image1.picture <> NIL then begin Image1.picture.SaveToClipboardFormat(AFormat, AData,APalette); DBImage1.Picture.LoadFromClipboardFormat(AFormat, AData,APalette); end; end;
错误。
if (ext = '.BMP') then
DBimage1.picture.loadfromfile( ‘图片路径 ’ )
else if (ext = '.JPG') then
begin
Image1.picture.LoadFromFile( ‘图片路径 ’ );
if Image1.picture <> NIL then
begin
Image1.picture.SaveToClipboardFormat(AFormat, AData,APalette);
DBImage1.Picture.LoadFromClipboardFormat(AFormat, AData,APalette);
end;
end;
->数据库存储bmp/jpg图片(sql server)/数据库图片bmp/jpg存储(Accsee)