网络编程 | 站长之家 | 网页制作 | 图形图象 | 操作系统 | 冲浪宝典 | 软件教学 | 网络办公 | 邮件系统 | 网络安全 | 认证考试 | 系统进程
Firefox | IE | Maxthon | 迅雷 | 电驴 | BitComet | FlashGet | QQ | QQ空间 | Vista | 输入法 | Ghost | Word | Excel | wps | Powerpoint
asp | .net | php | jsp | Sql | c# | Ajax | xml | Dreamweaver | FrontPages | Javascript | css | photoshop | fireworks | Flash | Cad | Discuz!
当前位置 > 网站建设学院 > 网络编程 > Delphi
Tag:注入,存储过程,分页,安全,优化,xmlhttp,fso,jmail,application,session,防盗链,stream,无组件,组件,md5,乱码,缓存,加密,验证码,算法,cookies,ubb,正则表达式,水印,索引,日志,压缩,base64,url重写,上传,控件,Web.config,JDBC,函数,内存,PDF,迁移,结构,破解,编译,配置,进程,分词,IIS,Apache,Tomcat,phpmyadmin,Gzip,触发器,socket
网络编程:ASP教程,ASP.NET教程,PHP教程,JSP教程,C#教程,数据库,XML教程,Ajax,Java,Perl,Shell,VB教程,Delphi,C/C++教程,软件工程,J2EE/J2ME,移动开发
本月文章推荐
.在TwebBrowser中调用隐藏的IE命令.
.用DELPHI实现NT环境下的绝对磁盘.
.获得BIOS信息.
.学习MySQL多表操作和备份处理.
.Delphi中的包(一):关于exe的编.
.NeHe的opengl教程delphi版(7)---.
.用Delphi开发报表打印的ASP组件.
.在Delphi中ADSI创建Windows用户帐.
.用Delphi实现文件下载的几种方法.
.再谈后台调用外部程序的完美实现.
.注册机制.
.Delphi+Word解决方案参考.
.Delphi图象截取编程示例(4).
.提取win98上网密码.
.在Delphi里调用API函数动态建立O.
.公开密钥密码系统.
.用DELPHI实现特色按钮.
.用Ehlib二次开发报表打印程序,实.
.三层结构的设计模式.
.Delphi中OnDrawCell的使用技巧.

压缩图像文件并转换成BMP格式

发表日期:2006-2-4


function GraphicToBmp(P: TPicture; Quality: Integer = 80): TBitmap;
var
  Jpg: TJpegImage;
begin
  Result := TBitmap.Create;
  with Result do
  begin
    Width := P.Width;
    Height := P.Height;
    Canvas.Draw(0, 0, P.Graphic);
  end;
  if Assigned(Result) then
  begin
    Jpg := TJpegImage.Create;
    Jpg.Assign(Result);
    Jpg.CompressionQuality := Quality;
    Jpg.JPEGNeeded;
    Jpg.Compress;
    if Assigned(Jpg) then
    begin
      Jpg.DIBNeeded;
      Result.Assign(Jpg);
    end;
  end;
end;

上一篇:在delphi中使用xml文档有两种方法 人气:3217
下一篇:Delphi编程技巧(一)内存管理 人气:4514
浏览全部Delphi的内容 Dreamweaver插件下载 网页广告代码 祝你圣诞节快乐 2009年新年快乐