有没有bmp或者是jpg转换成png图片的源码(50分)

只要能把bmp或者是jpg的一种转换成png就可以，别的什么功能都可以不要，别的
图片格式也可以不用支持，要有源代码的。
大侠们帮帮忙

jpg.assign(bitmap) //将图像转成JPG格式
bmp.assign(jpg) //将JPG转为BMP

///Bitmap 和 JPEG 格式间的快速转换

function Bmp2Jpg(Bmp: TBitmap; Quality: Integer = 100): TJpegImage;

begin

Result := nil;

if Assigned(Bmp)

then begin

Result := TJpegImage.Create;

Result.Assign(Bmp); {It′s all folks...}

Result.CompressionQuality := Quality;

Result.JPEGNeeded; {Key method...}

Result.Compress;

end;

end;

function Jpg2Bmp(Jpg: TJpegImage): TBitmap;

begin

Result := nil;

if Assigned(Jpg)

then begin

Result := TBitmap.Create;

Jpg.DIBNeeded; {Key method...}

Result.Assign(Jpg); {It′s all folks...}

end;

end;

感谢以上两位朋友的回答，不过你们似乎都没有看清楚我的问题，
我需要的是
bmp -> png 或者是 jpg -> png 二者之一

而不是 bmp<->jpg，bmp与jpg之间的转换这个我知道。

找个 GraphicEx9，看看它的源码