本来想把jpg存为bmp,再将bmp转换为jpg,可转换后有误大小为0字节
也随便看看是什么地方出问题?
///=======================================================
function BmpToJpg(var Bmpfile,Jpgfile:string):boolean;
var
bmp:Tbitmap;
jpg:Tjpegimage;//
ImageMemo:Tmemorystream;
begin
bmp:=Tbitmap.create;
jpg:=TjpegImage.create;
ImageMemo:=Tmemorystream.create;
try
bmp.loadfromfile(Bmpfile);
bmp.savetostream(ImageMemo);
jpg.loadfromStream(ImageMemo);
jpg.savetofile(Jpgfile);
finally
bmp.free;
jpg.free;
imagememo.free;
end;
result := true;
end;
///===================================================
function jpgTobmp(var jpgfile,bmpFile:String):boolean;
var
bmp:Tbitmap;
jpg:Tjpegimage;//
ImageMemo:Tmemorystream;
begin
bmp:=Tbitmap.create;
jpg:=TjpegImage.create;
ImageMemo:=Tmemorystream.create;
try
jpg.loadfromfile(jpgfile);
jpg.savetostream(ImageMemo);
bmp.loadfromStream(ImageMemo);
bmp.savetofile(bmpfile);
finally
bmp.free;
jpg.free;
imagememo.free;
end;
result := true;
end;
如果有办法将jpg转换成png也可以。谢谢
[red]分数不够再加[/red]