ITPub博客

另外建了一个家，作为此处的备份http://wworacle.blog.163.com[@more@]

原来只是从oracle中取出图片，没有做过图片的转换。正好有公安局提出能否将相片转换为单色图片做临时证用。回家后，查找点资料，实现还比较简单。现总结如下：[@more@]原来只是从oracle中取出图片，没有做过图片的转换。正好有公安局提出能否将相片转换为单色图片做临时证用。回家后，查找点资料，实现还比较简单。现总结如下：Function BmpToJpg(BmpFile :String; JpgFile :String;Compress :Integer):Boolean;VarBitmap :TBitmap;Jpgimage :TjpegImage;BeginResult :=False;Trybitmap :=TBitmap.Create ;JpgImage :=TjpegImage.Create ;