zoukankan      html  css  js  c++  java
  • Delphi Jpg和Gif转Bmp

    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;

    http://blog.csdn.net/yanjiaye520/article/details/6676323

  • 相关阅读:
    树莓派3 之 启动 和 系统配置
    树莓派3 之 初次使用
    Python 资源大全中文版
    乔布斯:遗失的访谈
    CSS3j背景渐变,字体颜色渐变,以及兼容IE写法
    系统设计相关
    JSON格式要求
    VUE解决空格和空行报错的问题
    css3实现悬停波浪效果
    css3实现匀速无限滚动效果
  • 原文地址:https://www.cnblogs.com/findumars/p/4999210.html
Copyright © 2011-2022 走看看