delphi Jpg和Gif转Bmp
来源:互联网 发布:我心中的全面小康知乎 编辑:程序博客网 时间:2024/05/17 06:06
begin
bmp:=TBitmap.Create;
jpeg:=TJPEGImage.Create;
jpeg.LoadFromFile(fname);
with bmp do
begin
PixelFormat:=pf24bit;
Height:=60;
Width:=self.RzListBox.Width;
Canvas.Brush.Color:=$00F0EDE6;
Canvas.FillRect(Canvas.ClipRect);
Canvas.StretchDraw(Bounds(0,0,80,60), jpeg);
end;
//这里你可以用save之类的方法了
bmp.Free;
jpeg.Free;
--------------------------------------------------------
--convert JPEG to BMP
uses
JPEG;
procedure JPEGt*****P(const FileName: TFileName);
var
jpeg: TJPEGImage;
bmp: TBitmap;
begin
jpeg := TJPEGImage.Create;
try
jpeg.CompressionQuality := 100; {Default Value}
jpeg.LoadFromFile(FileName);
bmp := TBitmap.Create;
try
bmp.Assign(jpeg);
bmp.SaveTofile(ChangeFileExt(FileName, '.bmp'));
finally
bmp.Free
end;
finally
jpeg.Free
end;
end;
--------------------------------------------------------
--有一个TGIFImage组件
function GifT*****p(filename: string): TBitmap;
var
GIF: TGIFImage;
begin
GIF := TGIFImage.Create;
try
GIF.LoadFromFile(filename);
Result := TBitmap.Create;
Result.Assign(GIF.Bitmap);
finally
GIF.Free;
end;
end;
bmp:=TBitmap.Create;
jpeg:=TJPEGImage.Create;
jpeg.LoadFromFile(fname);
with bmp do
begin
PixelFormat:=pf24bit;
Height:=60;
Width:=self.RzListBox.Width;
Canvas.Brush.Color:=$00F0EDE6;
Canvas.FillRect(Canvas.ClipRect);
Canvas.StretchDraw(Bounds(0,0,80,60), jpeg);
end;
//这里你可以用save之类的方法了
bmp.Free;
jpeg.Free;
--------------------------------------------------------
--convert JPEG to BMP
uses
JPEG;
procedure JPEGt*****P(const FileName: TFileName);
var
jpeg: TJPEGImage;
bmp: TBitmap;
begin
jpeg := TJPEGImage.Create;
try
jpeg.CompressionQuality := 100; {Default Value}
jpeg.LoadFromFile(FileName);
bmp := TBitmap.Create;
try
bmp.Assign(jpeg);
bmp.SaveTofile(ChangeFileExt(FileName, '.bmp'));
finally
bmp.Free
end;
finally
jpeg.Free
end;
end;
--------------------------------------------------------
--有一个TGIFImage组件
function GifT*****p(filename: string): TBitmap;
var
GIF: TGIFImage;
begin
GIF := TGIFImage.Create;
try
GIF.LoadFromFile(filename);
Result := TBitmap.Create;
Result.Assign(GIF.Bitmap);
finally
GIF.Free;
end;
end;
- delphi Jpg和Gif转Bmp
- delphi bmp转jpg
- ios下 jpg gif bmp 转 png
- Delphi BMP-JPG
- 使用IPicture接口读取和显示BMP,GIF,JPG,ICO,EMF,WMF图像 (转)
- JPG,PNG,GIF,WBMP,BMP
- delphi中Bmp转Jpeg JPG转BMP
- delphi中Bmp转Jpeg JPG转BMP
- delphi 中 image 控件加载bmp、JPG、GIF、PNG等图片的办法
- delphi 中 image 控件加载bmp、JPG、GIF、PNG等图片的办法
- JPG,动态GIF,BMP一些常用解决办法
- BMP、JPG、GIF图像的显示
- 加载多种图片格式(gif,jpg,png.bmp)
- bmp,gif,jpg等图像的文件格式
- 怎样显示Jpg,bmp,Gif图像文件
- 显示BMP,JPG,GIF的操作
- Transparant Image Button (BMP, GIF, JPG...)
- VC6 CImage 加载jpg png bmp gif
- md5_file
- c中的位域
- MySQL性能优化的最佳21条经验
- Need to install sun java jdk on ubuntu
- 解析IPV4报文 和IPV6 报文的 checksum 的算法
- delphi Jpg和Gif转Bmp
- java学习笔记
- css实现特殊的现实样式(超过表格宽度的内容只显示...)
- Web页面的数据导出excel时的格式问题(长数字显示为科学计数法格式等)
- 【C语言】常见错误
- 正则表达式语法
- poj2002 Squares 解题报告
- textarea文本域宽度和高度(width、height)自动适应变化处理
- Conversion to Dalvik format failed: Unable to execute dex: wrapper was not properly loaded first