image - size

Mac OSX specific forum
mestnyi
Addict
Addict
Posts: 995
Joined: Mon Nov 25, 2013 6:41 am

image - size

Post by mestnyi »

how to resize image using api to get a raw picture?

Code: Select all

InitNetwork()
UsePNGImageDecoder()

imgEnlarged = 1
imgEnlarged2 = 2

Procedure.i SizeImage( ImageID.i, width.l, height.l, flag=0 )
    CompilerIf #PB_Compiler_OS = #PB_OS_MacOS
      Protected size.NSSize
      size\width = width
      size\height = height
      CocoaMessage(0, ImageID, "setSize:@", @Size)
    CompilerEndIf
EndProcedure
  
imageURL$ = "https://nsa40.casimages.com/img/2021/06/04/210604103322144271.png"
*queryresponse = ReceiveHTTPMemory(imageURL$)

img = CatchImage(#PB_Any, *queryresponse, MemorySize(*queryresponse))
CopyImage(img, imgEnlarged)
CopyImage(img, imgEnlarged2)

OpenWindow(0, 50, 0, 900, 600, "")
ImageGadget(350,   0,    0,  0, 0, ImageID(img))  

ResizeImage(imgEnlarged, ImageWidth(img)*1.2, ImageHeight(img)*1.2, #PB_Image_Raw)   ;;; enlarging by 120%
SizeImage(ImageID(imgEnlarged2), ImageWidth(img)*1.2, ImageHeight(img)*1.2, #PB_Image_Raw)   ;;; enlarging by 120%

ImageGadget(351,   450,  0,  0, 0, ImageID(imgEnlarged))  
ImageGadget(352,   450,  300,  0, 0, ImageID(imgEnlarged2))  

Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow