can't create memblock error? - GameCreators Forum

Author

Message

JoeOh45240

7

Years of Service

User Offline

Joined: 14th Feb 2017

Location: USA

Posted: 12th Feb 2020 03:50 Edited at: 12th Feb 2020 03:52

Link

I created a pre-alpha demo for people to test out, but when people try to run the program (and they run it on Windows 10, PC) they get a "Can't create memblock 100007 from image 100007, failed to get image data in Small_Functions.agc at line 82"

The program runs fine for me. Even with just the .EXE file and media folders. What's the usual culprit on their end or what I may have overlooked?

here's the code of the routine giving the troubles:

+ Code Snippet


function pickColor(X as integer,Y as integer)
    tMemblock as integer
    red as integer
    green as integer
    blue as integer
    rgb$ as string
    Render()
    tImage=getImage(x,y,1,1)
    tMemblock=CreateMemblockfromImage(tImage)
    red=GetMemblockbyte(tMemblock,12)
    green=GetMemblockbyte(tMemblock,13)
    blue=GetMemblockbyte(tMemblock,14)
    rgb$=str(red)+","+str(green)+","+str(blue)
    deletememblock(tMemblock)
    deleteimage(tImage)
endfunction rgb$

CODE HARD STUDIOS YOUTUBE CHANNEL: [link]https://www.youtube.com/channel/UCT6j3UphfDRcpJ0S444rnFA[/link]

Back to top

Profile PM Website

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 12th Feb 2020 04:08 Edited at: 12th Feb 2020 04:09

Link

This post has been marked by the post author as the answer.

I can see possible problems perhaps this might work better

+ Code Snippet

Function pickColor(X,Y)
    rem prepare image grab area
    clearScreen()
    setScissor(X,Y,X+1,Y+1)
    render()
 
    rem get image
    img = getImage(X,Y,X+1,Y+1)
 
    rem create memblock
    mem = createMemblockfromImage(img)
 
    rem get memblock data
    r = getMemblockbyte(mem,12):rem gets red channel data
    g = getMemblockbyte(mem,13):rem gets green channel data
    b = getMemblockbyte(mem,14):rem gets blue channel data
    s$ = str(r)+","+str(g)+","+str(b)
 
    rem tidy up
    deletememblock(mem)
    deleteimage(img)
    setScissor(0,0,getDeviceWidth(),getDeviceHeight())
    clearScreen()
endfunction s$

fubarpk on Itch...………...https://fubarpk.itch.io/
fubarpk on googleplay..https://play.google.com/store/apps/developer?id=fubarpk

Back to top

Profile PM Email Website

CJB

Valued Member

20

Years of Service

User Offline

Joined: 10th Feb 2004

Location: Essex, UK

Posted: 12th Feb 2020 04:14

Link

Maybe add some validation to make sure x and y are within the bounds of the screen? Like this:

+ Code Snippet

function pickColor(X as integer,Y as integer)
	rgb$ = ""
	if x>=GetScreenBoundsLeft() and x<GetScreenBoundsRight() and y>=GetScreenBoundsTop() and y<GetScreenBoundsBottom()
		tMemblock as integer
		red as integer
		green as integer
		blue as integer
		rgb$ as string
		Render()
		tImage=getImage(x,y,1,1)
		tMemblock=CreateMemblockfromImage(tImage)
		red=GetMemblockbyte(tMemblock,12)
		green=GetMemblockbyte(tMemblock,13)
		blue=GetMemblockbyte(tMemblock,14)
		rgb$=str(red)+","+str(green)+","+str(blue)
		deletememblock(tMemblock)
		deleteimage(tImage)
	endif
endfunction rgb$

https://www.patreon.com/user?u=25392850
http://www.getgameleads.co.uk
http://www.verticalsync.co.uk

Back to top

Profile PM Email Website

JoeOh45240

7

Years of Service

User Offline

Joined: 14th Feb 2017

Location: USA

Posted: 12th Feb 2020 04:42

Link

I put in the new code for the function. Here's the link to my pre-alpha demo, can someone try it and see if it runs. It runs on my windows 10 PC... https://1drv.ms/u/s!AtL-r_YrxMuKhFnDPvahHlvGokFS?e=XTX0fe

thanks

CODE HARD STUDIOS YOUTUBE CHANNEL: [link]https://www.youtube.com/channel/UCT6j3UphfDRcpJ0S444rnFA[/link]

Back to top

Profile PM Website