CatchSprite without IncludeBinary

[coma]

Is it possible to put an image in memory using OpenFile and poke, and then to catch it with CatchSprite ?

I put the png data in memory like this :

Code: Select all

If OpenFile(0, "test.png") 
    *MemoryID = AllocateMemory(0, Lof() , 0)
    For i=1 To Lof()
        PokeB(*MemoryID, ReadByte()) 
    Next
    CloseFile(0) 
EndIf

(that I want to do with this is to to load png from a big data file containing all pictures I need)

[GPI]

Is it possible to put an image in memory using OpenFile and poke, and then to catch it with CatchSprite ?

I put the png data in memory like this :

Code: Select all

If OpenFile(0, "test.png") 
    *MemoryID = AllocateMemory(0, Lof() , 0)
    For i=1 To Lof()
        PokeB(*MemoryID, ReadByte()) 
    Next
    CloseFile(0) 
EndIf

(that I want to do with this is to to load png from a big data file containing all pictures I need)

Should function. CatchSprite need a only a Adress.

p.s.: I would take readData()... (or loadsprite)...

[coma]

ok, works fien with this :

If OpenFile(0, "test.png")
*MemoryID = AllocateMemory(0, Lof(), 0)
ReadData(*MemoryID, Lof())
CloseFile(0)
EndIf
CatchSprite(1,*MemoryID , 0)

(but with my pokeb loop, this doesn't work. Anybody know why ?)

[GPI]

you forget a +i

Code: Select all

If OpenFile(0, "test.png") 
  *MemoryID = AllocateMemory(0, Lof() , 0) 
  For i=1 To Lof() 
    PokeB(*MemoryID+i, ReadByte()) 
  Next 
  CloseFile(0) 
EndIf

but it would be nicer with pointer

Code: Select all

If OpenFile(0, "test.png") 
  *MemoryID = AllocateMemory(0, Lof() , 0) 
  *help.byte
  For i=1 To Lof() 
    *help\b=ReadByte()) :*help+1
  Next 
  CloseFile(0) 
EndIf

[coma]

oh, yes, the +i, of course :)
I'm tired...
thanks a lot.