（DELPHI）已经存入SQLSERVER中的图片数据（image字段）太大，怎么直接在数据库中压缩？或怎么用程序实现
Posted
tags:
篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了（DELPHI）已经存入SQLSERVER中的图片数据（image字段）太大，怎么直接在数据库中压缩？或怎么用程序实现相关的知识，希望对你有一定的参考价值。
存数据的时候没有考虑大小限制，所有图片都是分辨率极高的，现实使用中不需要这么高分辨率的图片，怎么用最简单的方法压缩数据库里的图片信息。
查了一些资料 发现没有什么简单的方法 只能写程序取出来 再压缩像素 再存入数据库。
怎么压缩像素？
delphi 的图像缩放示例代码如下：
//将图片缩放至指定大小procedure SizeBmp(const Source, Dest: string; const x, y: integer);
var
aBmp, bBmp: tbitmap;
scalex, scaley: real;
begin
aBmp := TBitmap.Create;
bBmp := TBitmap.Create;
try
aBmp.LoadFromFile(Source);
scaley := aBmp.Height / y;
scalex := aBmp.Width / x;
bBmp.Width := round(aBmp.Width / scalex);
bBmp.Height := round(aBmp.Height / scaley);
bBmp.PixelFormat := pfDevice;
SetStretchBltMode(bBmp.Canvas.Handle, COLORONCOLOR);
StretchBlt(bBmp.Canvas.Handle, 0, 0, bBmp.Width, bBmp.Height,
aBmp.Canvas.Handle, 0, 0, aBmp.Width, aBmp.Height, srccopy);
bBmp.SaveToFile(Dest);
finally
aBmp.Free;
bBmp.Free;
end;
end;
procedure TForm1.btn1Click(Sender: TObject);
begin
SizeBmp(\'e:\\1112.bmp\',\'e:\\1112_small.bmp\',640,480);
end; 参考技术A delphi里面有zlib这个单元，里面有压缩的函数TCompressionStream可以调用！参考下面的代码去处理吧！
var
SourceStream: TCompressionStream;
DestStream: TMemoryStream;
Count: Integer;
Begin
//获得图像流的原始尺寸
Count := CompressedStream.Size;
DestStream := TMemoryStream.Create;
SourceStream:=TCompressionStream.Create(CompressionLevel, DestStream);
Try
CompressedStream.SaveToStream(SourceStream);
//将原始流进行压缩， DestStream中保存着压缩后的流
SourceStream.Free;
CompressedStream.Clear;
//写入原始流的尺寸
CompressedStream.WriteBuffer(Count, SizeOf(Count));
//写入经过压缩的流
CompressedStream.CopyFrom(DestStream, 0);
finally
DestStream.Free;
end;
end;本回答被提问者和网友采纳 参考技术B DELPHI好像有个zip的第三方控件，你可以考虑把数据读出来，压缩后再存回去，然后，在需要使用的时候再把它解压。 参考技术C fg 参考技术D 没什么好办法，压缩好了再放进去。
转载MySQL存入图片+Qt读入读出数据库中的图片
/* Time： 2017.01.02 —— 2017.01.04
* Author： WJ
* Function：连接数据库，从数据库中读取图片并显示（已成功）
*/
【参考链接】
MySQL存入图片+Qt读入读出数据库中的图片 - lpdpzc的专栏 - 博客频道 - CSDN.NET http://blog.csdn.net/lpdpzc/article/details/41915835
【主要代码】
void MainWindow::on_ShowImage_clicked()
{
QSqlDatabase db ;
// 连接数据库
if(QSqlDatabase::contains("qt_sql_default_connection"))
db = QSqlDatabase::database("qt_sql_default_connection");
else
{
db = QSqlDatabase::addDatabase("QMYSQL");
db.setHostName("localhost");
db.setDatabaseName("sfood");
db.setUserName("root");
db.setPassword("123456");
}
if(! db.open())
{
qDebug()<<"Fail to Opened!";
}
else
{
qDebug()<<"DataBase Opened!";
//建立查询
QSqlQuery query;
query.exec("SELECT * FROM sfood"); //查询未成功
if (! query.exec("SELECT * FROM sfood"))
{
qDebug()<<" Fail to Selecte !";
}
else
{
qDebug()<<" Selected Success!";
QPixmap photo;
qDebug()<<"显示图片";
if(query.first())
{
photo.loadFromData(query.value(5).toByteArray(), "JPG"); //从数据库中读出图片为二进制数据，图片格式为JPG，然后显示到QLabel里
}
ui->label->setPixmap(photo);
ui->label->setScaledContents(true);
}
}
}
【结果】
从数据库中读取其他信息：菜名、价格
【代码】
if(query.first())
{
QString str1 = query.value(1).toString();
ui->lineEdit->setText(str1); // 菜名
price = query.value(4).toInt();
ui->lineEdit_2->setText(QString::number(price)); // 价格
photo.loadFromData(query.value(6).toByteArray(), "JPG");
//从数据库中读出图片为二进制数据，图片格式为JPG，然后显示到QLabel里
}
【结果】
【思考】 query.first() 与 query.next() 的区别？
query.first() 图片显示正常
query.next() 图片无法显示
以上是关于（DELPHI）已经存入SQLSERVER中的图片数据（image字段）太大，怎么直接在数据库中压缩？或怎么用程序实现的主要内容，如果未能解决你的问题，请参考以下文章