GDI+保存图片时使用原路径为何不行？

2010-09-17 10:08:28 253 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

WinForm图片处理避坑指南：解决GDI+保存图片时的‘一般性错误‘ 本文深入解析WinForm开发中使用GDI+处理图片时常见的'一般性错误'问题，提供多种实用解决方案，包括非索引图像法、内存流中转法和临时文件法。通过详细代码示例和最佳实践，帮助开发者有效规避GDI+文件锁定机制带来的困扰，提升图片处理效率和稳定性。阅读详情

procedure TFormBrowse.Button1Click(Sender: TObject);
var
encoderClsid: TGUID;
stat: TStatus;
Image: TGPImage;
begin
Image := TGPImage.Create('GrapeBunch.bmp');

// Get the CLSID of the PNG encoder.
GetEncoderClsid('image/bmp', encoderClsid);
stat := image.Save('GrapeBunch.bmp', encoderClsid, nil);

if(stat = Ok) then
memo1.Lines.Add('GrapeBunch.bmp was saved successfully')
else
memo1.Lines.Add(format('Failure: stat = %s', [GetStatus(stat)]));

image.Free;
end;

结果：Failure: stat = Win32Error

哪位大侠能否告诉怎么回事啊？为什么不能覆盖原文件？

...全文

Windows 2D 绘图（GDI, GDI+, Direct2D) Windows 2D 绘图GDIGDI 函数GDI+GDI 和 GDI+ 的区别GDI+ 新特性Direct2D视觉效果demo GDI GDI 是 Graphics Device Interface 的缩写，含义是图形设备接口，它的主要任务是负责系统与绘图程序之间的信息交换，处理所有 Windows 程序的图形输出。在 Windows 操作系统下，绝大多数具备图形界面的应用程序都离不开 GDI... 阅读详情

fisher_older

GAME，图形处理/多媒体 1,184 成员 14,330 内容

+ 关注 + 加入社区

切换为时间正序

dinoalex 2010-09-18

打赏
举报

A用于导入,STREAM传给B后后,FREE掉. B再写. 这样子试试

mdejtod 2010-09-18

打赏
举报

因为在使用中

fisher_older 2010-09-18

打赏
举报

那么如果想覆盖原文件，该怎么办？

fisher_older 2010-09-18

打赏
举报

不过我不用ActiveX也行啊？为什么必须用ActiveX？

fisher_older 2010-09-18

打赏
举报

搞定！非常感谢！给分了。

dinoalex 2010-09-18

打赏
举报

TIFF 测过,可行, 记得USES上ActiveX单元

dinoalex 2010-09-18

打赏
举报

忘记把那个多余IMAGE1的删除了



procedure TForm1.Button1Click(Sender: TObject);

var

  encoderClsid: TGUID;

  stat: TStatus;

  Image: TGPImage;

  s: IStream;

  ms: tmemorystream;

begin

  GetEncoderClsid('image/png', encoderClsid);

  ms:= TMemoryStream.Create;

  ms.LoadFromFile('GrapeBunch.bmp');

  s := TStreamAdapter.Create(ms);

  image:= TGPImage.Create(s);

  stat := image.Save('GrapeBunch.bmp', encoderClsid, nil);

  ms.Free;

  image.Free;

  s:= nil;

  if(stat = Ok) then

  memo1.Lines.Add('GrapeBunch.bmp was saved successfully')

  else

  memo1.Lines.Add(format('Failure: stat = %s', [GetStatus(stat)]));

end;

dinoalex 2010-09-18

打赏
举报



procedure TForm1.Button1Click(Sender: TObject);

var

  encoderClsid: TGUID;

  stat: TStatus;

  Image1,Image2: TGPImage;

  s: IStream;

  ms: tmemorystream;

begin

  Image1 := TGPImage.Create('B.bmp');

  GetEncoderClsid('image/png', encoderClsid);

  image1.Free;

  ms:= TMemoryStream.Create;

  ms.LoadFromFile('B.bmp');

  s := TStreamAdapter.Create(ms);

  image2:= TGPImage.Create(s);

  stat := image2.Save('B.bmp', encoderClsid, nil);

  ms.Free;

  image2.Free;

  s:= nil;

  if(stat = Ok) then

  memo1.Lines.Add('GrapeBunch.bmp was saved successfully')

  else

  memo1.Lines.Add(format('Failure: stat = %s', [GetStatus(stat)]));

end;

fisher_older 2010-09-18

打赏
举报

[Quote=引用 3 楼 dinoalex 的回复:]
A用于导入,STREAM传给B后后,FREE掉. B再写. 这样子试试
[/Quote]

请教dinoalex，具体该怎么做？

fisher_older 2010-09-18

打赏
举报

[Quote=引用 8 楼 mdejtod 的回复:]
改为 GetEncoderClsid('image/tiff', encoderClsid);
[/Quote]

改过了，不行的。

mdejtod 2010-09-18

打赏
举报

没看到多页的。多页的没研究过

mdejtod 2010-09-18

打赏
举报

改为 GetEncoderClsid('image/tiff', encoderClsid);

fisher_older 2010-09-18

打赏
举报

尝试用另一个TGPImage进行克隆(Img2.Clone）也不行啊，怎么办呢？

fisher_older 2010-09-18

打赏
举报

感谢！但是还有一个问题，麻烦大虾们再帮忙思考一下。
以上方法对bmp等格式当然是适用的，但是对于多页的tif文件，却不适用。
如果我现在需要覆盖原tif图片，应该怎么做？

mdejtod 2010-09-18

打赏
举报



procedure TFormBrowse.Button1Click(Sender: TObject);

var

  encoderClsid: TGUID;

  stat: TStatus;

  Image: TGPBitmap;

  BmpSave : TGPBitmap;

  Gd : TGpGraphcis;

begin

  Image := TGPImage.Create('GrapeBunch.bmp');

  BmpSave := TGpBitmap.Create(Image.GetWidth,Image.GetHeight,Image.GetPixelFormat);

  Gd := TGpGraphics.Create(BmpSave);

  Gd.DrawImage(Image,0,0);

  freeandnil(Gd);

  Freeandnil(Image);



  // Get the CLSID of the PNG encoder.

  GetEncoderClsid('image/bmp', encoderClsid);

  stat := BmpSave.Save('GrapeBunch.bmp', encoderClsid, nil);

  Freeandnil(BmpSave);

  if(stat = Ok) then

    memo1.Lines.Add('GrapeBunch.bmp was saved successfully')

  else

    memo1.Lines.Add(format('Failure: stat = %s', [GetStatus(stat)]));  

end;

fisher_older 2010-09-18

打赏
举报

感谢楼上兄弟，能否详细一点？能写一点简单的代码最好了。

GDI+保存图片时使用原路径为何不行？

相关推荐