首页 > 系统相关 >delphi 使用WIC(Windows 映像组件)加载图片

delphi 使用WIC(Windows 映像组件)加载图片

时间:2023-12-23 14:33:06浏览次数:48  
标签:WIC Windows delphi TWICImage 映像 WImg 加载

使用WIC(Windows 映像组件)加载图片

TWICImage 是 Microsoft Windows 映像组件的封装。

WIC映像是一个容器,允许加载多种映像格式。 可以使用 TWICImage 实例来加载、存储和显示位图、JPEG、PNG、GIF、TIFF 或使用 WIC API 注册的任何其他文件格式。

TWICImage 依赖于 DirectX 运行时。

代码

uses System.TypInfo;

procedure TForm1.Button1Click(Sender: TObject);
var
  WImg: TWICImage;
begin
  //加载图片
  WImg := TWICImage.Create;
  try
    WImg.LoadFromFile('C:\Users\Administrator\Desktop\ceshi.png');
    //显示图片
    Image1.Picture.Assign(WImg);
    //输出图片格式
    Memo1.Lines.Add('图片格式 ' + GetEnumName(TypeInfo(TWICImageFormat), Ord(WImg.ImageFormat)));
  finally
    WImg.Free;
  end;
end;

参考

Windows 映像组件概述

标签:WIC,Windows,delphi,TWICImage,映像,WImg,加载
From: https://www.cnblogs.com/txgh/p/17923099.html

相关文章

  • 阿里云安装opensuse,并开启xrdp,让windows远程连接
    一、安装gnome桌面和xrdpzypperupdatezypperinstallpatterns-gnome-gnome_basicxrdp 二、通过yast开启vnc保存退出三、windows下使用远程桌面连接输入账号密码,即可登录。 ......
  • delphi - 调整表单大小,同时保持纵横比
    https://www.coder.work/article/5928583在Form1的 OnCanResize事件添加以下处理程序似乎对我来说效果很好:procedureTForm2.FormCanResize(Sender:TObject;varNewWidth,NewHeight:Integer;varResize:Boolean);varAspectRatio:double;beginAspectRatio:=......
  • 如何解决在 Linux 中 WPS 字体缺失问题(安装常用的 Windows 中文字体)
    所需文件的下载链接在末尾Symbol字体安装wsp-font-symbols即可Windows字体安装Win10Fonts即可常用字体文件内容包括仿宋GB2312、楷体GB2312、方正小标宋简安装方式首先下载你所需要的字体文件在字体文件所在的目录下右键点击在命令行中打开或OpeninTerminal......
  • delphi模拟redis单元
    1unitg_uSdRedis;23interface45uses6Windows,7Messages,8SysUtils,9Variants,10Classes,11Graphics,12Controls,13Forms,14Dialogs,15IniFiles,16StdCtrls,17DateUtils;1819const......
  • Windows电脑多开器在软件测试中的优势
    Windows电脑多开器在软件测试中的优势文章在现代软件开发领域,软件测试是确保产品质量和稳定性的重要环节。而在软件测试过程中,Windows电脑多开器(也称为虚拟机或模拟器)发挥着重要作用。本文将探讨Windows电脑多开器在软件测试中的优势,以及它们如何提高测试效率和降低成本。环境......
  • Delphi:循环语句for-in
    https://www.jianshu.com/p/0fd88af44e4b1.for-in循环中,循环对数组,列表,字符串或其他  有序类型的容器的每个元素进行操作。2.打开IDE,新建VCL应用,添加一个button1,一个memo1,双击button1,编写代码:procedureTForm1.Button1Click(Sender:TObject);varstr:string;c......
  • beautify-windows-terminal
    title:美化WindowsTerminaldate:2021-2-278:42:48author:TokisakiGalaxyexcerpt:美化WindowsTerminaltags:-美化-WindowsTerminalcategories:软件安装与配置安装WindowsTerminal有两种下载方法,去Github或者WindowsStore。建议去WindowsStore下,可以自......
  • Delphi服务程序打开界面程序
    functionWTSQueryUserToken(SessionId:ULONG;varphToken:THandle):BOOL;stdcall;external'Wtsapi32.dll';procedureCreateProcessByUser;varSessionId:DWORD;UserToken:THandle;Hndl,Hnd:THandle;luid:Int64;newPriv,oldPriv:TTokenP......
  • Windows:cmd更换字体以及字体大小
    1、下载字体文件.ttf(MicrosoftYaHeiMono.ttf),并安装字体到本地系统MicrosoftYaHeiMono.ttf字体链接2、注册表修改cmd默认字体注册表字体路径:HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Console\TrueTypeFont修改936的数据值为:*MicrosoftYaHeiMon......
  • Windows, Mac, Linux 上修改文件【修改时间】属性的方法(命令行方法)
    某些公司比较恶心,忘记打卡要补卡时需要提供工作记录,以证明你在下班时间点后还在公司的记录,一般是参考电脑文件属性里的【修改时间】。有时并不能找到带有合适修改时间的文件,毕竟,正经人谁下班之后还工作啊!这时,可以使用命令行修改【修改时间】这个属性。Windows上打开CMD,Mac/Linu......