GetResourceQuantity
Size = GetResourceQuantity(Index)
 
Parameters:

    Index = The Index of the resource in the internal resource buffer
Returns:

    Size = The Size (in bytes) of the resource
 

     The GetResourceQuantity function returns the total number of files that have been attached via #AddResource directive during compilation.



FACTS:


      * GetResourceQuantity will return 0 if no resources exist.

      * Resources can be an alternative to using DATA statements.

      * For more information about resource binding see the #AddResource directive.



 
Example Source: Download This Example
  // Attach this file from the common media folder in the help
  // files, which is located two folders down from where this
  // example is stored.
  #AddResource "..\..\Media/Hello-World.txt"
  
  // Search for a bound resource using the same file name
  Index=findresourceindex("..\..\Media/Hello-World.txt")
  
  // If the resource was found it's index will be 0 or higher
  If Index>-1
     
     // Display information about this resource
     Print "Resource Found"
     
     Address     =getresourceptr(Index)
     Size          =getresourcesize(Index)
     
     Print "Address In Memory:"+Str$(Address)
     Print "Size:"+Str$(Size)+" bytes"
     
     // Since we know this is a text resource
     // next we'll read these bytes into a string
     // using peekstring
     s$=PeekString(Address,Size)
     
     // Now we'll split this string into an array to display it
     Dim Rows$(0)
     
     // remove any ASC chr 13 from the string
     s$=Replace$(s$,Chr$(13),"")
     
     // split the string on the ASC II chr 10
     RowCount=SplitToArray(s$,Chr$(10),Rows$())
     
     // Display the rows of this text file
     For lp =0 To RowCount-1
        Print Rows$(lp)
     Next
     
  EndIf
  
  
  // DIsplay the number of bound resources in memory
  Print "Number OF Resources #"+Str$(getresourcequantity())
  
  Sync
  WaitKey
  
  
  
  
  
 
Related Info: #AddResource | Data | FindResourceIndex | GetResourcePtr | GetResourceSize | PeekByte | PeekInt :
 


(c) Copyright 2002 - 2024 - Kevin Picone - PlayBASIC.com