300分 求购jpeg到bmp的解压算法源代码(300分)

求购jpeg到bmp的解压算法源代码

各位大侠们拜托了！！

先给分，后发email……（vc++的）
现在帖出代码也不给分的人到处都是的！！！

Delphib版本也有……不过准备保留自用
（自己转化过来的，测试通过，保留项目）

提示一下，在Delphi的安装光盘里面有,jpeg.pas
它同时调用很多的obj,这些Obj都有源代码(C++),
你慢慢看，我看了半天没看出花来！

duducat,

你好，我地分数肯定是送人地。

这次出400分就是为了请高手相助！

如果你能将jpeg和bmp的格式和转化源代码给我。

我必将400分双手奉上！绝不食言。

小bee 我的email：smallbee@std.uestc.edu.cn

C++ 的有，可以在BCB下用，要不要

好的,給分吧,不過也是別人的,能用,並且還附送另一個相反的過程給你:
procedure Jpg2Bmp(JpgFile, BmpFile: String);
//將Jpg文件轉換為Bmp文件
var
MyJPEG : TJPEGImage;
MyBMP : TBitmap;
begin
MyJPEG := TJPEGImage.Create;
with MyJPEG do
try
LoadFromFile(JpgFile); //妳的圖片位置
MyBMP := TBitmap.Create;
with MyBMP do
begin
Assign(MyJPEG);
SaveToFile(BmpFile);//保存路徑
Free;
end;
finally
Free;
end;
end;

procedure Bmp2Jpg(BmpName, JpgName: String);
//將bmp文件轉換為jpg文件
var
MyJPEG : TJPEGImage;
MyBMP : TBitmap;
begin
MyBMP := TBitmap.Create;
with MyBMP do
try
LoadFromFile(BmpName); //妳的圖片位置
MyJPEG := TJPEGImage.Create;
with MyJPEG do
begin
Assign(MyBMP);
CompressionQuality:=60; //壓縮比例 1..100
Compress;
SaveToFile(JpgName);//保存路徑
Free;
end;
finally
Free;
end;
end;

这个问题很难吗?...

哼，来晚了，昨天才看的上面的代码
调试通过！

拜托各位“高手”是“解压算法”……
是算法，不是控件！……
转化源代码到处都有，随便一本Delphi的书籍，和杂志上都有，……
厉害，令人佩服……

各位大哥都很厉害。

不过的确如duducat所说，不是需要控件，

而是需要算法。即原始格式之间的转化。

比如jpeg采取的压缩方式，里面的量化编码等。

http://www.delphibbs.com/delphibbs/dispq.asp?LID=1677558

这里面有huazai给的比较详细的格式介绍。

看各位大哥能否搞出来？

源码不限。delphi或者c、vc的最好。^_^

希望各位大侠们不吝赐教。。。 smallbee@std.uestc.edu.cn

到网上一搜一大把,何必在这里守株待兔呢

^_^，，，

这里有各位大哥照顾，不懂的还可以 问问。。。

所以就到这里来了。还可以结识一大堆的兄弟朋友。

希望各位不吝赐教。。

看看这个链接
http://www-scf.usc.edu/~flv/ipbook/chap09.htm

怎么没有人关注拉？？