GDI+中TGPImage从流中加载图像

最新推荐文章于 2023-12-15 14:55:54 发布

genispan

最新推荐文章于 2023-12-15 14:55:54 发布

阅读量1.8k

点赞数

分类专栏： delphi GDI+

本文链接：https://blog.csdn.net/genispan/article/details/24270973

版权

delphi GDI+ 专栏收录该内容

2 篇文章 0 订阅

订阅专栏

头部定义：

  encoderClsid: TGUID;
  encoderParameters: TEncoderParameters;
  Stream:TStreamAdapter;
  MemStream :TMemoryStream;
  quality:Cardinal;

程序体：

     FPreviewBMP := TGPImage.Create(filename);
     if GetEncoderClsid('image/png', encoderClsid) = -1 then exit;
     encoderParameters.Count := 1;
     encoderParameters.Parameter[0].Guid := EncoderQuality;
     encoderParameters.Parameter[0].Type_ := EncoderParameterValueTypeLong;
     encoderParameters.Parameter[0].NumberOfValues := 1;
     quality := 50;
     encoderParameters.Parameter[0].Value := @quality;
     MemStream := TMemoryStream.Create;
     Stream := TStreamAdapter.Create(MemStream);
     IStream(Stream)._AddRef;
     FPreviewBMP.Save(Stream,encoderClsid,@encoderParameters);
     FPreImage := TGPImage.Create(Stream);