Question

我正在尝试使用Graphics :: Magick将PNG文件转换为Perl中的无损WebP。命令行是：

$ gm convert in.png -define webp:lossless=true out.webp

我的Perl代码看起来像这样：

use Graphics::Magick;

my $image = Graphics::Magick->new();
$image->Read("in.png");
my $image_data = $image->ImageToBlock(magick => "webp");
print $out_fh $image_data;

这段代码完美地编写了有损WebP文件，但是如何用Perl API表达“-define”呢？

谢谢，

更新：看起来我需要调用AddDefiniton API函数（http://www.graphicsmagick.org/api/image.html#adddefinition）。看起来它现在还没有通过Perl API导出。

Answer 1

我知道这对您没有帮助，但是对于那些对如何使用PHP感兴趣的人来说，方法如下：

<Grid>
    <Grid.Visibility>
        <MultiBinding Converter="{StaticResource converter}">
            <Binding Path="." />
            <Binding Path="VisibleGroups" RelativeSource="{RelativeSource Mode=FindAncestor, AncestorType={x:Type local:MyControl}}" />
        </MultiBinding>
    </Grid.Visibility>
...


</Grid>

有关更多webp选项，请查看this code

如何使用PerlMagick编写无损WebP文件

1 个答案: