TBitmap问题,图象专家please come in

Michaelyfj 2000-07-17 06:37:00
各位高手:
如何把TBitmap的内容保存为.Jpg文件格式?(特急)
...全文
127 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
IAmKylix 2000-07-18
  • 打赏
  • 举报
回复
大家都说了,我来晚了。
halfdream 2000-07-17
  • 打赏
  • 举报
回复
唉。前两位朋友已经说得很完全,没有什么好补充的了。
TBitmap 和TJPEGImage 都继承自TGraphics,相互赋值都很方便。
aiirii 2000-07-17
  • 打赏
  • 举报
回复
uses Jpeg;

private
Jpg:TJpegImage;Bmp:Tbitmap;

procedure Tjpg_bmp.Button3Click(Sender: TObject);
begin
if bmp<>nil then bmp:=nil;
Opendialog1.Filter:='Bitmap(*.bmp)|*.bmp';
Opendialog1.DefaultExt:='*.Bmp';
Opendialog1.Filename:='';
opendialog1.Execute;
if Opendialog1.Filename<>'' then
begin
Bmp:=TBitmap.Create;
Bmp.LoadFromFile(Opendialog1.FileName);
Image1.Picture.LoadFromFile(Opendialog1.FileName);
end;
end;


procedure Tjpg_bmp.Button4Click(Sender: TObject);
begin
if jpg<>nil then jpg:=nil;
Savedialog1.filename:='';
Savedialog1.Filter:='Jpeg(*.jpg)|*.jpg';
Savedialog1.DefaultExt:='*.jpg';
SaveDialog1.Execute;
if Savedialog1.filename<>'' then
begin
Jpg:=TJpegImage.Create;
Jpg.Assign(Bmp);
Jpg.CompressionQuality:=StrToInt(Edit1.Text);
Jpg.Compress;
Jpg.SaveToFile(Savedialog1.FileName);
Jpg.Free;
end;
end;
Wingsun 2000-07-17
  • 打赏
  • 举报
回复
新生成一个TJPEGImage类的数据,然后如下:
TJPEGImage * pImage=new TJPEGImage();
pImage->Assign(pBitmap);
pImage->SaveToFile("D:\Temp.jpg");
delete pImage;
这是BCB的语法,将其该成Delphi的语法即可。

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧