zoukankan      html  css  js  c++  java
  • Delphi 图片转换(jpg、bitmap、png、gif)

    Delphi 图片转换(jpg、bitmap、png、gif)

    1、jpg

    var
      jpg: TJPEGImage; // 要uses Jpeg单元
    begin
      // 显示jpg大图片的方式
      jpg := TJPEGImage.Create;
      jpg.LoadFromFile(getcurrentdir() + 'pic.jpg');
      Image1.Picture.Bitmap.Assign(jpg); // 因为 img 控件是基于bmp的
      jpg.Free;
    end;

    2、bitmap

    begin
      // 加载24位高清BMP图片(小、大都能成立)
      Image1.Picture.Bitmap.LoadFromFile(getcurrentdir() + 'pic24位-大.bmp');
    end;

    3、png

    var
      png: TPNGObject;  // uses pngimage;
    begin
      png := TPNGObject.Create;
      png.LoadFromFile(getcurrentdir() + 'pic.png');
      Image1.Picture.Assign(png);
      png.Free;
    end;

    4、gif

    var
      gif: tgifimage;   //uses gifimage
    begin
      gif := tgifimage.Create;
      gif.LoadFromFile(getcurrentdir() + 'pic.gif');
      Image1.Picture.Assign(gif);   
      //Image1.Picture.Bitmap.Assign(gif);  //注意区别
      gif.Free;
    end;
    

      

    创建时间:2020.08.27  更新时间:2020.09.25

    博客园 滔Roy https://www.cnblogs.com/guorongtao 希望内容对你所有帮助,谢谢!
  • 相关阅读:
    LightOJ 1139 8 puzzle + hdu 1043 Eight A*
    hdu 1180 优先队列 + bfs
    hdu 1270
    HDU Doing Homework
    hdu 1171 Big Event in HDU
    hdu 3613 (KMP)回文串
    POJ 3461 Oulipo(KMP)
    POJ 1565(DP状态压缩)
    NYOJ 634 万里挑一(优先队列)
    职场手记1_你想成文什么样的人
  • 原文地址:https://www.cnblogs.com/guorongtao/p/13571870.html
Copyright © 2011-2022 走看看