delphi 图片的存取 包含JPEG BMP等格式 求源代码 详细的 谢谢 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 B: TBitmap; J: TJpegImage; D: TRect; Str: String; B := GetFormImage; //抓图 Clipboard.Assign(B); Str:= 'D:\XyScreenShot_'+FormatDateTime('yymmddhhnnss',now); //保存为BMP Str:= 'D:\XyScreenShot_'+FormatDateTime('yymmddhhnnss',now)+'.BMP'; B.SaveToFile(Str); //保存为JPG J:= TJpegImage.Create; J.Assign(B); J.CompressionQuality:= 100; J.SaveToFile(Str+'.Jpg'); J.LoadFromFile(Str+'.Jpg'); B.Assign(J); google和yahoo在打架 Delphi连接Sybase问题 如何解决使用TidSmtp组件发送邮件不成功的问题? 今天升星了,高兴,散分。不过身体不太好,哎。 如何动态的生成一个快捷方式文件? 问一个关于类的问题!!! 关于鼠标限制的问题! 高分求救:关于制作数据库(BDE)安装程序时的问题:(在线等待中......) 我有一本<<Delphi 6 程序员开发指南>>PDF电子版,又想要得吗? 我考虑了两个星期的问题,谁能够解答? 一个TAnimate进度窗体无法解决的问题.. DelphiX控件的使用
B: TBitmap;
J: TJpegImage;
D: TRect;
Str: String; B := GetFormImage; //抓图
Clipboard.Assign(B);
Str:= 'D:\XyScreenShot_'+FormatDateTime('yymmddhhnnss',now);
//保存为BMP
Str:= 'D:\XyScreenShot_'+FormatDateTime('yymmddhhnnss',now)+'.BMP';
B.SaveToFile(Str);
//保存为JPG
J:= TJpegImage.Create;
J.Assign(B);
J.CompressionQuality:= 100;
J.SaveToFile(Str+'.Jpg');
J.LoadFromFile(Str+'.Jpg');
B.Assign(J);