急急,十万火急,是高手的话一定要进来看看,关于Oracle图片数据处理 问题:Delphi中怎样将JPEG的图片通过中间层存储到Oracle服务器上(C/S结构没有问题),且怎样取数据(通过中间层)?Bitmap文件没有问题,就是JPEG说什么类型不支持。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 那么你可以把用代码图片转换bmp保存啊使用的时候再转换为jpg; procedure ChangeToJPG(bmpFile:string;JpgFile:string); var JPG:TJpegImage; begin BMP:=TBitMap.Create; JPG:=TJPEGImage.Create; BMP.LoadFromFile(bmpFile); bmp.pixelformat := pf8bit; JPG.Assign(BMP); JPG.CompressionQuality:=30; //压缩率为low 30% JPG.JPegNeeded; // jpg.pixelformat :=jf8bit; //压缩格式为baseline 256色这句设了图片就存不了了:( JPG.Compress; // if fileexists(jpgFile) then // if not (deletefile(jpgFile)) then exit; JPG.SaveToFile(JpgFile); BMP.Destroy; JPG.Destroy; end; var jpg: tjpegimage; bmp: tbitmap; begin jpg:=tjpegimage.create; bmp:=tbitmap.create; try jpg.loadfromfile('c:\test.jpg'); // 随便你用什么方法载入jpg文件 bmp.assign(jpg); bmp.savetofile('c:\test.bmp'); // 保存为bmp finally bmp.free; jpg.free; end; end; 字符转换 @OutList[0]和OutList区别是什么 几道面试题目,谈谈你们的看法吧 请教用一个Function得到表的逻辑(中文)字段名 关于DrawText函数,怎样才能输出文字到游戏窗口? 该怎么解决这样的问题? 各位高手请帮我看一下这段程序。 事务问题的写法? 在 WORD 中的表格插入一新行(在前或后),高分 关于报表的一个很简单的问题 在线等待回答。。。谢谢 给100分 将数据库中bmp图片显示在image上
var
JPG:TJpegImage;
begin
BMP:=TBitMap.Create;
JPG:=TJPEGImage.Create;
BMP.LoadFromFile(bmpFile);
bmp.pixelformat := pf8bit;
JPG.Assign(BMP);
JPG.CompressionQuality:=30; //压缩率为low 30%
JPG.JPegNeeded;
// jpg.pixelformat :=jf8bit; //压缩格式为baseline 256色这句设了图片就存不了了:(
JPG.Compress;
// if fileexists(jpgFile) then
// if not (deletefile(jpgFile)) then exit;
JPG.SaveToFile(JpgFile);
BMP.Destroy;
JPG.Destroy;
end;
jpg: tjpegimage;
bmp: tbitmap;
begin
jpg:=tjpegimage.create;
bmp:=tbitmap.create;
try
jpg.loadfromfile('c:\test.jpg'); // 随便你用什么方法载入jpg文件
bmp.assign(jpg);
bmp.savetofile('c:\test.bmp'); // 保存为bmp
finally
bmp.free;
jpg.free;
end;
end;