急急,十万火急,是高手的话一定要进来看看,关于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; 请教点关于BPL的问题 SQL数据库是不是和操作系统有关系??? 请问如何通过函数取得某个日期格式的年份,月份?? 关于客户端连接问题,再加100分!!!顶者给分! 诚恳高手帮忙!!!!谢谢!!!!! 哪有DELPHI控件详讲的资料? 一个关于Delphi连接Sql server数据库的问题 关于在客户机连接服务器数据库的问题 InstallShield 做安装文件的问题。 寻可靠数据库 在线等待回答。。。谢谢 给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;