string to bitmap module

[Michael Clease]

Here they are PB source.
They can be improved maybe wrapping arounf TRY/CATCH/END TRY

[code=vb]
FUNCTION FILE_Load(BYVAL lFileName AS STRING) AS STRING
LOCAL hFile AS LONG
LOCAL lBuffer AS STRING

ON ERROR RESUME NEXT
IF FILE_EXISTS(lFileName) THEN
hFile = FREEFILE
OPEN lFileName FOR BINARY ACCESS READ AS hFile
SEEK hFile,1 ' Start of file
GET$ hFile, LOF(hFile), lBuffer
CLOSE hFile
FUNCTION = lBuffer
END IF

END FUNCTION
[/code]

thanks

Is it better to add SEEK like above to guarantee that it points to the start of the file.

[ErosOlmi]

Do you have any evidence that after an OPEN ... BINARY ACCESS READ pointer is not at the beginning of the file?
Because file channel is a new one, even if file is already open in the same process, it should create a new file structure setting pointer to the beginning of the file.

I'm not aware of problems on that side but if you have good reason a will change.

Thanks
Eros

[Michael Clease]

no evidence. Me just not trusting that they wont change it in the future and just playing it safe.

thanks

Mike

[ErosOlmi]

OK, thanks.
Maybe time to improve a bit. Those functions are at least 4 years old

[Michael Clease]

I found my original code (from my old dead HDD) for this module, thought I would release it for people to play with.

Its as I left it last year so I dont know if its working or not.

[Michael Hartlef]

thanks Michael for sharing!

[ErosOlmi]

Thanks Michael (Clease) for posting the sources here.

Can you be so kind to see if you have your copy of "zlib.inc" file?
The versions I have are incompatible with your code. In particular "uncompress" function.

Thanks a lot
Eros

[Michael Clease]

I suspect that the uncompress function was the thing I was working on when I stopped work on it.

The zlib files I have will be added to my post with the code on.