盒子论坛 v2.1

try
   try
     bmp2png:= TBitMap.Create;
     bmp2png.PixelFormat:=pf24bit;

     xy:=PInt64(mymessage.WParam)^;
     tx:= xy shr 32;
     ty:=xy and $ffffffff;
     wh:=PInt64(mymessage.LParam)^;
     tw:=wh shr 32;
     th:=wh and $ffffffff;
     bmp2png.Width:=tw;
     bmp2png.Height:=th;
     except
        on E: Exception do begin
          s:='xywh '+e.Message;
          MessageBox(form1.Form2.Handle,pwidechar(s),'',MB_ICONEXCLAMATION);
        end;
     end;

     if Assigned(filepng) and Assigned(bmp2png) then
     if (bmp2png.Width>0)and(bmp2png.Height>0) then begin
         try
         filepng.Assign(bmp2png);//这里报错为什么呢？？？
         except
          on E: Exception do begin
          s:='png创建失败 '+e.Message
          +char(13)+'filepng'
          +char(13)+intTostr(filepng.Width)
          +char(13)+intTostr(filepng.Height)
          +char(13)+'bmp2png'
          +char(13)+intTostr(bmp2png.Width)
          +char(13)+intTostr(bmp2png.Height);

          MessageBox(form1.Form2.Handle,pwidechar(s),'',MB_ICONEXCLAMATION);

          end;
         end;
         try
         filepng.CreateAlpha;
         except
          on E: Exception do begin
          s:='pngCreateAlpha创建失败 '+e.Message;
          MessageBox(form1.Form2.Handle,pwidechar(s),'',MB_ICONEXCLAMATION);
          end;
         end;
     end;

  finally
     FreeAndNil(bmp2png);
  end;

错误提示：
First chance exception at $75CAC54F. Exception class EInvalidPointer with message 'Invalid pointer operation'. 进程Project1.exe (7068)
----------------------------------------------
-

作者：

hs_kill (lzl_17948876)	★☆☆☆☆	-
	普通会员

2017/10/16 13:16:42

1楼：

filepng数据类型是什么在哪定义的在哪创建的
----------------------------------------------
http://www.cnblogs.com/lzl_17948876/

作者：

zj_mpy (nnnnn)	★☆☆☆☆	-
	普通会员

2017/10/16 13:19:14

2楼：

这样庄焕的吗？
----------------------------------------------
-

作者：

earthsbest (全能中间件)	▲▲▲▲△	-
	普通会员

2017/10/17 14:30:38

3楼：

function BMPToPNG(BMPStream: TStream; PNGStream: TStream): Boolean;
var
  Image: TGPImage;
  Encoder: TGUID;
begin
  Image := TGPImage.Create(TStreamAdapter.Create(BMPStream));
  try
    Winapi.GDIPUTIL.GetEncoderClsid('image/png', Encoder);
    Result := Image.Save(TStreamAdapter.Create(PNGStream), Encoder) = TStatus.Ok;
  finally
    FreeAndNil(Image);
  end;
end;
----------------------------------------------
Delphi4Linux Delphi三层/FireDAC 技术群：734515869 http://www.cnblogs.com/rtcmw

信息

登陆以后才能回复