在DELPHI中SQL存取JPEG方法 （转）

D7自带的DBIMAGE只支持BMP文件,要实现JPG才行，不然数据库太大。

/ /SQL存储JPEG方法（以D7自带的image控件进行存取，注意此时窗体上不要使用任何dbimage控件，不然总是报jpeg error #53这类的错。代码如下：

procedure TForm1.Image1DblClick(Sender: TObject); //image1控件双击调入图像 var myjpeg : TJPEGImage; oldmybmp,newmybmp :TBitmap; oldw,oldh,neww,newh:integer; oMemoStream : TMemoryStream; begin myjpeg := TJPEGImage.Create; oldmybmp := TBitmap.Create; newmybmp := TBitmap.Create; oMemoStream := TMemoryStream.Create; neww := 390; newh := 567; try With OpenDialog1 do begin DefaultExt:='jpg'; Filter :='JPEG文件（*.jpg）|*.jpg'; if Execute then begin ADOQuery1.Edit; //数据集置编辑状态，不然后面无法给数据集赋值 myjpeg.LoadFromFile(FileName); //读入JPG文件 //以下为按新尺寸进行缩放，如果不需要缩放，直到myjpeg.Compress;之间的部分不要 oldmybmp.Assign(myjpeg); oldw:= oldmybmp.Width; oldh:= oldmybmp.Height; newmybmp.Width := oldw * neww div oldw; newmybmp.Height:= oldh * newh div oldH; SetStretchBltMode(newmybmp.Canvas.Handle,HalfTone); StretchBlt(newmybmp.Canvas.Handle,0,0,neww,newh, oldmybmp.Canvas.Handle,0,0,oldw,oldh,SRCCOPY); myjpeg.Assign(newmybmp); //按新的图像质量进行压缩 myjpeg.CompressionQuality:= 60; //以质量60进行压缩 myjpeg.Compress; //显示处理过的图片 image1.Picture.Assign(myjpeg); //以流的方式进行处理，避免存储成文件 image1.Picture.Graphic.SaveToStream(oMemoStream); oMemoStream.Position :=0; TBlobField(ADOQuery1.FieldbyName('hrimage')).LoadFromStream(oMemoStream); end else exit; end; finally //释放 myjpeg.Free; oldmybmp.Free; newmybmp.Free; oMemoStream.Free; end; end; procedure TForm1.SaveBitBtnClick(Sender: TObject); begin ADOQuery1.Post; //提交数据 end; //SQL显示JPEG方法： procedure TForm1.ADOQuery1AfterScroll(DataSet: TDataSet); var oMemoStream : TMemoryStream; pic:tjpegimage; begin oMemoStream := TMemoryStream.Create; pic := TJpegimage.Create; try if not ADOQuery1.FieldByName('hrimage').IsNull then begin TBlobField(ADOQuery1.FieldByName('hrimage')).SaveToStream(oMemoStream); oMemoStream.Position :=0; pic.LoadFromStream(oMemoStream); Image1.Picture.Graphic := pic; end else begin Image1.Picture := nil; end; finally oMemoStream.Free; pic.Free; end; end;

里面用到的几个函数
SetSTretchBltMode　　函数功能：该函数可以设置指定设备环境中的位图拉伸模式。
　　函数原型：int SetStretchBltMode(HDC hdc, int iStretchMode)；
　　参数：
　　hdc：设备环境句柄。
　　LStretchMode：指定拉伸模式。它可以取下列值，这些值的含义如下：
　　BLACKONWHITE：使用消除和现在的像素颜色值进行逻辑AND（与）操作运算。如果该位图是单色位图，那么该模式以牺牲白色像素为代价，保留黑色像素点。
　　COLORONCOLOR：删除像素。该模式删除所有消除的像素行，不保留其信息。
　　HALFTONE：将源矩形区中的像素映射到目标矩形区的像素块中，覆盖目标像素块的一般颜色与源像素的颜色接近。在设置完HALFTONE拉伸模之后，应用程序必须调用SetBrushOrgEx函数来设置刷子的起始点。如果没有成功，那么会出现刷子没对准的情况。
　　STRETCH_ANDSCANS：与BLACKONWHITE一样。
　　STRETCH_DELETESCANS：与COLORONCOLOR一样。
　　STRECH_HALFTONE：与HALFTONE相同。
　　STRETCH_ORSCANS：与WHITEONBLACK相同。
　　WHITEONBLACK：使用颜色值进行逻辑OR（或）操作，如果该位图为单色位图，那么该模式以牺牲黑色像素为代价，保留白色像素点。
　　返回值：如果函数执行成功，那么返回值就是先前的拉伸模式，如果函数执行失败，那么返回值为0。
　　Windows NT：若想获得更多错误信息，请调用GetLastError函数。
　　备注：拉伸模式在应用程序调用StretchBit函数时定义系统如何将位图的行或列与显示设备上的现有像素点进行组合。
　　BLACKONWHITE(STRETCH_ANDSCANS)和WHITEONBLACK(STRETCH_ORSCANS)模式典型地用来保留单色位图中的前景像素。COLORONCOLOR(STRETCH_DELETESCANS)模式则典型地用于保留彩色位图中的颜色。
　　HALFTONE模式比其他三种模式需要对源图像进行更多的处理，也比其他模式慢，但它能产生高质量图像，也应注意在设置HALFTONE模式之后，应调用SetBrushOrgEx函数以避免出现刷子没对准现象。
　　根据设备驱动程序的功能不同，其他一些拉伸模式也可能有效。

StretchBlt　　函数功能：函数从源矩形中复制一个位图到目标矩形，必要时按目前目标设备设置的模式进行图像的拉伸或压缩。
　　函数原型：BOOL StretchBlt(HDC hdcDest, int nXOriginDest, int nYOriginDest, int nWidthDest, int nHeighDest, HDC hdcSrc, int nXOriginSrc, int nYOriginSrc, int nWidthSrc, int nHeightSrc, DWORD dwRop)；
　　参数：
　　hdcDest：指向目标设备环境的句柄。
　　nXOriginDest：指定目标矩形左上角的X轴坐标，按逻辑单位表示坐标。
　　nYOriginDest：指定目标矩形左上角的Y轴坐标，按逻辑单位表示坐标。
　　nWidthDest：指定目标矩形的宽度，按逻辑单位表示宽度。
　　nHeightDest：指定目标矩形的高度，按逻辑单位表示高茺。
　　hdcSrc：指向源设备环境的句柄。
　　nXOriginSrc：指向源矩形区域左上角的X轴坐标，按逻辑单位表示坐标。
　　nYOriginSrc：指向源矩形区域左上角的Y轴坐标，按逻辑单位表示坐标。
　　nWidthSrc：指定源矩形的宽度，按逻辑单位表示宽度。
　　nHeightSrc：指定源矩形的高度，按逻辑单位表示高度。
　　dwRop：指定要进行的光栅操作。光栅操作码定义了系统如何在输出操作中组合颜色，这些操作包括刷子、源位图和目标位图等对象。参考BitBlt可了解常用的光栅操作码列表。
　　返回值：如果函数执行成功，那么返回值为非零，如果函数执行失败，那么返回值为零。Windows NT：若想获得更多的错误信息，请调用GetLastError函数。
　　速查：Windows NT：3.1及以上版本；Windows：95及以上版本；Windows CE：1.0及以上版本；头文件：wingdi.h：库文件：gdi32.lib。