那位大侠有jpg转化为bmp的程序，源程序或动态库都可以

[doctorxiajian]

如题，小弟急需。谢谢！！！

[e-mail]

[littleB]

我把代码加进去，但编译时说TJPEGImage没有定义，请问是怎么回事？？

[littleB]

呵呵。。不好意思，忘了加头文件了

[xizhouhawk]

TJPEGImage *JpegImage1=new TJPEGImage();
Graphics::TBitmap *Bit=new Graphics::TBitmap();
JpegImage1->LoadFromFile(currentfile);
Bit->Width = JpegImage1->Width ;
// 使 位 图 与JPEG 图 像 尺 寸 相 等
Bit->Height = JpegImage1->Height ;
Bit->Canvas->StretchDraw(Rect
(0,0,Bit->Width,Bit->Height),JpegImage1);
//Image1->Width=Bit->Width;
//Image1->Height=Bit->Height;
Image1->Picture->Bitmap=Bit;
delete JpegImage1;
delete Bit;

[zihan]

void __fastcall TForm1::ChangeJpgToBmp(AnsiString FileName)
{
Graphics::TBitmap *Bitmap;
TJPEGImage *Jpg;
Bitmap=new Graphics::TBitmap;
Jpg=new TJPEGImage();
try{Jpg->LoadFromFile(FileName);}
catch(...){ return;}
Bitmap->Height=Jpg->Height;
Bitmap->Width=Jpg->Width;
Bitmap->Canvas->Draw(0,0,Jpg);
Bitmap->SaveToFile(NewFileName);
delete Bitmap;
delete Jpg;
}

[tigerhohoo]

同意楼上的做法使用一个TBitmap就可以了.

[MEFULEU]

void bmptojpeg(TMemoryStream *pms)
{
TJPEGImage *j=new TJPEGImage;
Graphics::TBitmap *b=new Graphics::TBitmap;
b->LoadFromStream(pms);
j->Assign(b);
j->CompressionQuality=90;
j->Compress();
pms->Clear();
j->SaveToStream(pms);
pms->Position=0;
delete j;
}
void jpegtobmp(TMemoryStream *pms)
{
TJPEGImage *j=new TJPEGImage;
Graphics::TBitmap *b=new Graphics::TBitmap;

j->LoadFromStream(pms);
j->DIBNeeded();
b->Assign(j);
pms->Clear();
b->SaveToStream(pms);
pms->Position=0;

delete b;
delete j;

}