Delphi 图片转换（jpg、bitmap、png、gif）
<p><span style="font-size: 16px"><strong>Delphi 图片转换（jpg、bitmap、png、gif）</strong></span></p><p><span style="font-size: 16px"><strong>1、jpg</strong></span></p>
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:true;"><span style="font-size: 16px">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;</span></pre>
</div>
<p> </p>
<p><span class="hljs-function" style="font-size: 16px"><span class="hljs-keyword"><span class="hljs-title"><span class="hljs-title"><span class="hljs-params"><span class="hljs-keyword"><span class="hljs-comment"><span class="hljs-comment"><span class="hljs-comment"><span class="hljs-comment"><span class="hljs-comment"><span class="hljs-comment"><span class="hljs-comment"><span class="hljs-comment"><span style="color: rgba(0, 0, 0, 1)"><strong>2、bitmap</strong></span><br data-filtered="filtered"></span></span></span></span></span></span></span></span></span></span></span></span></span></span></p>
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:true;"><span style="font-size: 16px">begin
// 加载24位高清BMP图片（小、大都能成立）
Image1.Picture.Bitmap.LoadFromFile(getcurrentdir() + '\pic24位-大.bmp');
end;</span></pre>
</div>
<p> </p>
<p><span class="hljs-function" style="font-size: 16px"><span class="hljs-keyword"><span class="hljs-title"><span class="hljs-title"><span class="hljs-params"><span class="hljs-keyword"><span class="hljs-comment"><span class="hljs-comment"><span class="hljs-comment"><span class="hljs-comment"><span class="hljs-comment"><span class="hljs-comment"><span class="hljs-comment"><span class="hljs-comment"><span class="hljs-comment"><span class="hljs-comment"><span class="hljs-comment"><span class="hljs-comment"><span class="hljs-comment"><span style="color: rgba(0, 0, 0, 1)"><strong>3、png</strong></span><br data-filtered="filtered"></span></span></span></span></span></span></span></span></span></span></span></span></span></span></span></span></span></span></span></p>
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:true;"><span style="font-size: 16px">var
png: TPNGObject;// uses pngimage;
begin
png := TPNGObject.Create;
png.LoadFromFile(getcurrentdir() + '\pic.png');
Image1.Picture.Assign(png);
png.Free;
end;</span></pre>
</div>
<p><span class="hljs-function" style="font-size: 16px"><span class="hljs-keyword"><span class="hljs-title"><span class="hljs-title"><span class="hljs-params"><span class="hljs-keyword"><span class="hljs-comment"><span class="hljs-comment"><span class="hljs-comment"><span class="hljs-comment"><span class="hljs-comment"><span class="hljs-comment"><span class="hljs-comment"><span class="hljs-comment"><span class="hljs-comment"><span class="hljs-comment"><span class="hljs-comment"><span class="hljs-comment"><span class="hljs-comment"><span class="hljs-comment"><span class="hljs-comment"><span class="hljs-comment"><span class="hljs-comment"><span class="hljs-comment"><span class="hljs-comment"><span class="hljs-comment"><span class="hljs-comment"><span class="hljs-comment"><span style="color: rgba(0, 0, 0, 1)"><strong>4、gif</strong></span></span></span></span></span></span></span></span></span></span></span></span></span></span></span></span></span></span></span></span></span></span></span></span></span></span></span></span></span></p>
<p> </p>
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:true;">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;
</pre>
</div>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p><span style="color: rgba(136, 136, 136, 1)">创建时间：2020.08.27 更新时间：2020.09.25</span></p>
<p> </p>
</div>
<div id="MySignature" role="contentinfo">
博客园 滔Roy https://www.cnblogs.com/guorongtao 希望内容对你有所帮助，谢谢！<br><br>
来源：https://www.cnblogs.com/guorongtao/p/13571870.html
頁:
[1]