用image打开*.jpeg,然后保存为*.bmp.
解决方案 »
- 又到赚分时
- 我在main.drp中定义了一个变量,怎样在其他form中使用?
- 关于变量声明的一个问题
- 请问label的FocusControl属性有什么用?
- delphi 中single 是什么类型变量.
- UP有分,如何在新增记录时实现“20021218001”,“20021218002”一样的编号呢?
- 知道这个问题很简单,但总是不太明白,一个有关查询的具体问题?请各位高手帮忙参考^_^
- 怎样把动画GIF文件转化为多个BMP图片,要求支持透明的GIF,顺便找delphi熟悉图形编程的高手(限深圳地区),留QQ联系
- 我使用vfp作为数据源,我现在想通过delphi删除表a中全部记录并且是物理删除.(类似于zap)
- 我也送点吧!算是报到,看我能送的所有的分就这么点!!
- 怎样避免在窗体的CreatForm执行重复语句
- 如何在不生成exe文件而只是编译成dll文件中取出指定文件的路径?
File : 'about.txt' - Info about IrfanView
Author: Irfan Skiljan
E-Mail: [email protected]
WWW : http://www.irfanview.com
-------------------------------------------------------------------------------What is IrfanView ?IrfanView is a fast FREEWARE image viewer/converter for Win9x/NT, Windows 2000
and Windows XP.Supported file formats:
AIF, ANI/CUR, ASF, AU/SND, AVI, BMP/DIB, CAM (Casio JPG), CLP, Dicom/ACR,
DJVU, EMF/WMF, EPS, FlashPix (FPX), FSH, G3, GIF, ICO/ICL/EXE/DLL, IFF/LBM,
IMG (GEM), JPG2000, JPG/JPEG, KDC, LDF, LWF, MED, MID/RMI, MOV, MP3, MPG/MPEG,
NLM/NOL/NGG, PBM/PGM/PPM, PCX/DCX, PhotoCD, PNG, PSD, PSP, RAS/SUN,
RealAudio (RA), RLE, SFF, SFW, SGI/RGB, SWF (Flash/Shockwave), TGA,
TIF/TIFF, WAV, WBMP, XBM, XPM.
Support for Apple QuickTime: allows IrfanView to read following
formats: MOV, QTIF, Mac PICT, FLI/FLC.Microsoft Media Player PlugIn: allows IrfanView to read following
formats: ASF, AU/SND/AIF, AVI, DAT (VideoCD), MID/RMI, MOV, MP3,
MPG/MPEG, WAV, WMA, WMF, etc. Some features of IrfanView:
Multi language support, Thumbnail option, preview option, slideshow,
drag & drop support, fast directory view (fast moving through directory),
batch conversion, email option, audio CD player, print option,
change color depth, scan support, cut/crop, effects (sharpen, blur,
Photoshop filter factory), capturing, extract icons from EXE/DLLs,
lossless JPG rotation, many hotkeys, many command line options ...IrfanView was the first Windows graphic viewer (worldwide) with Animated-GIF
support !FREEWARE for non commercial use !Enjoy ! :-)-------------------------------------------------------------------------------
IrfanView software is provided "as-is".
No warranty of any kind is expressed or implied.
-------------------------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
var
BitMap: TBitMap;
begin
BitMap := TBitMap.Create;
try
with BitMap do
begin
Image1.Picture.LoadFromFile('h:\1998年.jpg');
Assign(Image1.Picture.Graphic);
SaveToFile('h:\1998年.bmp');
end;
finally
BitMap.Free;
end;
end;
你剩下的工作就是来个循环就行了
—————————————————————————————————
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
毁誉由人,望天上云卷云舒,聚散任风。';
if Not Assigned(I) then
I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”等字样,删除它们';
I.Desire := '加不加分随你';
—————————————————————————————————
img:TImage;
str:string;
begin
for i:=1 to 10000 do
begin
img:=Timgage.create;
if opendialog1.execute then
str:=opendialog1.filename;
img.picture.loadfromfile(str);
img.picture.savetofile('c:\music\'+inttostr(i)+'.bmp');
end;
end;
打开批量转换对话框。2.然后在后面选择你的图片目录 -----> Add All
设置 OupPut Directory输出目录。 Batch Conver Setting -----> Output Format 选Bmp