Why does this seg fault bgrareplace?

[vonskie]

Why does this Seg fault here


>>>>bgrareplace(bmp,newimage);
       
Here is the code

Am I using bgrareplace correctly?


bmp := TBGRABitmap.Create;
        bmp.LoadFromfile(imageselected.Text);

        try
        newimage := TBGRABitmap.Create(screen.Width, screen.Height, BGRABlack);
        newimage.PutImage(0, 0, bmp, dmDrawWithTransparency);
        bgrareplace(bmp,newimage);
        finally
        newimage.free;
        end;

        bmp.SaveToFile(filepath + 'wallpaper.bmp');
        bmp.free;

 Logged

[vonskie]

If I do this

bgrareplace(bmp,newimage as TBGRABitmap);

It gets past that error but gets a segfault on the save.

        bmp.SaveToFile(filepath + 'wallpaper.bmp');

If I save inside the try block it works though?

Why?


        bmp := TBGRABitmap.Create;
        bmp.LoadFromfile(imageselected.Text);

        try
        newimage := TBGRABitmap.Create(screen.Width, screen.Height, BGRABlack);
        newimage.PutImage(0, 0, bmp, dmDrawWithTransparency);
        bgrareplace(bmp,newimage as TBGRABitmap);
        finally
        newimage.free;
        end;

        bmp.SaveToFile(filepath + 'wallpaper.bmp');
        bmp.free;

[circular]

BGRAReplace(dest, source) will free the destination pointer and copy the source pointer.

It is equivalent to :

Code: Delphi  [Select][+][-]

1. temp := dest;
2. dest := source;
3. temp.Free;

So don't call source.Free otherwise you won't have anything left.