其实对于这些图形格式来说,DELPHI已经提供足够的支持,你需要了解TPresente(好象拼错了,反正差不多你查查)对象举例而言,将Jpeg转为BMP.
procedure convertjpgtobmp(filename:string);
var
jpg:TJpegImge;
bmp:TBitmap;
key:string;
begin
jpg:=TJpegImage.create;
jpg.loadfromfile(filename);
bmp:=TBitmap.create;
bmp.assign(jpg);
jpg.free;
key:=extractfilename(filename);
key:=key+'.bmp';
bmp.savetofile(key);
bmp.free;
end;
这样就把一个JPEG转换为一个BMP 并保存下来。注意该函数需要一个格式的文件名,当然你可以另外处理它。
ICON,WMF,等也类似如ICON可以读入TICON对象,然后把它画到一个画布的上即可完成转换。这本身就比较简单因此要做成控件也是相当容易的。
当然如果需要处理其他格式的图形文件,应该要了解其格式这当然就麻烦得多,
procedure convertjpgtobmp(filename:string);
var
jpg:TJpegImge;
bmp:TBitmap;
key:string;
begin
jpg:=TJpegImage.create;
jpg.loadfromfile(filename);
bmp:=TBitmap.create;
bmp.assign(jpg);
jpg.free;
key:=extractfilename(filename);
key:=key+'.bmp';
bmp.savetofile(key);
bmp.free;
end;
这样就把一个JPEG转换为一个BMP 并保存下来。注意该函数需要一个格式的文件名,当然你可以另外处理它。
ICON,WMF,等也类似如ICON可以读入TICON对象,然后把它画到一个画布的上即可完成转换。这本身就比较简单因此要做成控件也是相当容易的。
当然如果需要处理其他格式的图形文件,应该要了解其格式这当然就麻烦得多,
解决方案 »
- Fastreport 4.6.8 传参错误 (有源码)期待高手
- sanfen
- 不难的两个问题,入门级:1.关于自增量字段 2.关于执行存储过程
- 请教:spcomm串口接收数据时间过长的问题
- 0D 0A 0D 0A 为什么我用#13+#10+#13+#10 只得出一组OD OA呢
- 各位在哪高就啊?我怎么没见上海杭州要招聘Delphi程序员啊?(很少)
- 回映Nicrosoft<浅谈多态——概念描述>
- 我怎么实现表的复制?
- 程序安装到另一台计算机上无法显示汉字,所有的汉字显示乱码,如何解决?
- 关于ODBC讨论。
- 对象为什么不能create?
- 请高手帮忙!我想将JPEG图象存入MS SQL Image字段,如何做?
其它几种文件使用TImage控件都可以装入,使用picture.savetofile可以存成bmp文件