result = SavePNGFile(filename$, bank, interlace, width, height)

lib:Int =  LoadLibraryA("bbimg.dll")


Global SaveJPEGFile:Int(filename$z, imageBank, quality%, width%, height%) = GetProcAddress(lib,"_SaveJPEGFile@20")
Global SavePNGFile:Int(filename$z, imageBank, interlace%, width%, height%) = GetProcAddress(lib,"_SavePNGFile@20")

img:TImage = LoadImage("img.jpg")

Print SaveImageaspng("sfsf.png",img)

Function SaveImageAsJPEG(filename$, image:TImage, quality = 75)
   Local i, x, y, width, height
   Local buffer, bank
   Local c
   Local result
   
   width = ImageWidth(image)
   
   height = ImageHeight(image)
   pix = LockImage(image)
   bank = CreateBank(width * height * 3 + 1)
   
   For y = 0 To height - 1
      For x = 0 To width - 1
         c = ReadPixel(pix,x, y)
         c = ((c And $FF) Shl 16) Or (c And $FF00) Or ((c And $FF0000) Shr 16)

         PokeInt(bank, i, c)
         
         i = i + 3
      Next
   Next
   
   result = SaveJPEGFile(filename$, bank, quality, width, height)
   Print result
   UnlockImage(image)

   
   Return result
End Function

Function SaveImageAsPNG(filename$, image:TImage, interlace = 0)
   Local i, x, y, width, height
   Local buffer, bank
   Local c
   Local result
   
   width = ImageWidth(image)
   height = ImageHeight(image)
   pix:TPixmap = LockImage(image)
   
   bank = CreateBank(width * height * 3 + 1)

   For y = 0 To height - 1
      For x = 0 To width - 1
         c = ReadPixel(pix,x, y)
         c = ((c And $FF) Shl 16) Or (c And $FF00) Or ((c And $FF0000) Shr 16)

         PokeInt(bank, i, c)
         
         i = i + 3
      Next
   Next

   result = SavePNGFile(filename$, bank, interlace, width, height)

   UnlockImage(img)
   Return result
End Function