I seem to be stuck on this one:
\r\n
\r\nI have an array of bitmap bits, and i need to stick them into a random access file. The problem was, it took waaaay too much space.
\r\n
\r\nAfter quite a bit of tinkering, i managed to just have each byte in the bitmap bits array added to an array of strings (each string holds 32 bytes of characters). That way, i could technically just add each string as a Random File entry.
\r\n
\r\nThis is where the real problem lies.
\r\n
\r\nIt still takes waaaay too much space, and it takes forever to save the bitmap bits to the custom file (bitmap and text into one file) if its even bigger than 32 by 32 pixels!
\r\n
\r\n
\r\nDoes anyone know of a better way?
(thanks in advance)
\r\n
\r\n
\r\n
Code:
\r\n
\'Here is approximatly what it looks like, assuming TotalBytes was already dim\'ed and already has a value, and the Byte array is called \'bBYTE\'\r\n \r\n Dim I as long\r\n Dim J as long\r\n\r\n Dim MaxBytes as long\r\n Dim TotalStrings as long\r\n\r\n\r\n Dim sSTRING() as String\r\n \r\n MaxBytes = 32\r\n\r\n TotalStrings = TotalBytes / MaxBytes\r\n \r\n redim sSTRING(0 to TotalStrings)\r\n \r\n \r\n \r\n For I = 1 to TotalBytes\r\n \'Fill in Strings with Character representations of each byte\r\n sString(J) = sString(J) & chr$(bBYTE(I))\r\n \r\n \'If this string is full, use the next String\r\n if len(sString(J)) > MaxBytes then\r\n J = J + 1\r\n end if\r\n next I\r\n\r\n\r\n Open TheFile for Random as #1\r\n\r\n For I = 0 to TotalStrings\r\n \'Put each string into the file as a record\r\n Put #1, sSTRING(J)\r\n \r\n next I\r\n\r\n Close #1
\r\n
\r\n\r\n\r\n
Put bitmap Bits Array into a Random Access file
Threaded Mode
