请问我的这个将bmp图片转换为jpg格式的图片程序那里有错误，谢谢

请问我的这个将bmp图片转换为jpg格式的图片程序那里有错误，new.jpg文件竟然是0字节文件，谢谢！如果这个程序不可以那么能给我个能够转换成功的程序吗?谢谢先了！  
   
  function     bmp2jpeg(bmp:Tbitmap):Tjpegimage;  
  begin  
  result:=Tjpegimage.Create;  
  result.Assign(bmp);  
  result.Free;  
  end;  
   
  procedure   TForm1.Button1Click(Sender:   TObject);  
  var  
  jpeg1:Tjpegimage;  
  bmp1:Tbitmap;  
  begin  
    bmp1:=Tbitmap.Create;  
    if   clipboard.HasFormat(cf_picture)   then  
    begin  
        bmp1.Assign(clipboard);  
        jpeg1:=bmp2jpeg(bmp1);  
        jpeg1.SaveToFile('c:\new.jpg');  
    end;  
  end;  
  问题点数：15、回复次数：2Top

1 楼huojiehai（海天子）回复于 2003-08-02 22:47:59 得分 10

function     bmp2jpeg(bmp:Tbitmap):Tjpegimage;  
  begin  
  result:=Tjpegimage.Create;  
  result.Assign(bmp);  
  //result.Free;//去掉  
  end;Top

2 楼ly_liuyang（Liu Yang LYSoft http://lysoft.7u7.net）回复于 2003-08-02 23:18:41 得分 5

是必须去掉那个Free的Top

相关问题

• 转换
• jpeg
• bmp
• tjpegimage
• 谢谢
• 图片
• 程序
• tbitmap
• jpg
• assign

• 帖主：huanzhugege
• huojiehai
• ly_liuyang

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载