lazarus浏览图片转存其他格式

lazarus
跨平台free pascal语言ide工具
http://www.fpccn.com/ 社区

下载ftp://freepascal.dfmk.hu/pub/lazarus/releases
https://sourceforge.net/projects/lazarus/files/

最新很多网站图片是webp格式，比较节省资源，但有些软件不支持，想到就赶紧写个代码转换格式吧

最熟悉的就是用imagemagick，linux发行版很多有仓库比如我的deepin linux就可直接安装

sudo apt-get install imagemagick

为了支持webp格式再装一个

sudo apt install webp

安装后就可用convert命令转化图片格式

convert howtogeek.png -quality 80 howtogeek.jpg
convert example.png -resize 200×100 example.png

在lazarus里调用代码如下

procedure convertimg(Source: string; dest: string);
var
  Process: TProcess;
begin
  if (length(Source) > 0) and (length(dest) > 0) then
  begin
    Form1.StatusBar1.SimpleText := '请检查可执行文件路径是否存在空格';
    Process := TProcess.Create(nil);
    try
      Process.InheritHandles := False;
      Process.Options := [];
      //Process.ShowWindow := swoShow;
      Process.Executable := '/usr/bin/convert';
      Process.Parameters.Add(source);
      Process.Parameters.Add(dest);
      Process.Execute;
      Form1.StatusBar1.SimpleText := '已经执行';
    except
      on E: EOSError do
        Form1.StatusBar1.SimpleText := '请检查文件路径是否有空格,请修正';
    end;
    Process.Free;
  end;
end;

做了一个可执行程序lookimg，可以查看各种格式图片遇到lazarus不支持的就调用格式转换成jpg再加载，这样就方便了，然后到

目录 ~/.local/share/applications 下创建 lookimg.desktop

[Desktop Entry]
Exec=/home/qzc/program/lookimg  %f
Icon=application-x-desktop
MimeType=*/*
Name=lookimg
Type=Application
X-DDE-File-Manager-Custom-Open=image/webp
X-Deepin-Vendor=user-custom

这样，下次遇到不常见格式比如webp，右键 打开方式选lookimg，就能用自己做的lookimg加载查看图片了

顺手记一下，本来给lazarus工程信息文件lpi创建了图标/usr/share/mime/packages/lazarus.xml

generic-icon name这一行指定图标默认路径是存在/usr/share/icons/deepin/apps/48/lazarus.svg

更换了主题的话不是deepin的文件夹下没有lazarus图标是不能显示效果的，需要改回默认主题图标或把lazarus图标复制到新主题图标文件夹下