[Solved] AddFontMemResource confuses string functions

[Michael Vogel]

Used the AddFontMemRsource already a while ago, but didn't know about side effects...
...let's have a look at the output here, completely wrong results after loading the font!

----------
150
10010110
4
*00*0**0
----------
----------
150
10010110
0
10010110
----------


How to repair the following code that it will do the right thing?

Code: Select all

Global zlist.q
Global n


#InternalFont=1
#InternalFontFile="C:\windows\fonts\wingding.ttf"


zlist=16+128+6
Debug "----------"
Debug zlist
Debug Bin(zlist)
n=CountString(Bin(zlist),"1")
Debug n
Debug ReplaceString(Bin(zlist),"1","*")
Debug "----------"
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

CompilerIf #InternalFont

	Global HuiiFont=AddFontMemResourceEx_(?FontDataStart,?FontDataEnd-?FontDataStart,0,@"1")

	DataSection
		FontDataStart:
		IncludeBinary(#InternalFontFile)
		FontDataEnd:
	EndDataSection

CompilerEndIf

zlist=16+128+6
Debug "----------"
Debug zlist
Debug Bin(zlist)
n=CountString(Bin(zlist),"1")
Debug n
Debug ReplaceString(Bin(zlist),"1","*")
Debug "----------"

[fryquez]

AddFontMemResourceEx_(?FontDataStart,?FontDataEnd-?FontDataStart,0,@"1")

What are you doing with the last parameter

[Michael Vogel]

Good question, typical copy and paste error
I thought, it's the number of the fonts which should be added, instead it's an *integer to show the number of successfully added fonts.
Changing that doesn't confuse the system anymore. Anyhow weird, isn't it?

[fryquez]

Actually bad thing is that PB store these strings in a write able section of the program.
If it would do it correctly, a simple crash would happen and no wired things would show up at some other place in the program.

[infratec]

According to this:
https://docs.microsoft.com/en-us/window ... resourceex

I would do it like this:

Code: Select all

Define NumFonts.l = 1
Global HuiiFont=AddFontMemResourceEx_(?FontDataStart,?FontDataEnd-?FontDataStart,0,@NumFonts)

[Michael Vogel]

Code: Select all

Define NumFonts.l = 1
Global HuiiFont=AddFontMemResourceEx_(?FontDataStart,?FontDataEnd-?FontDataStart,0,@NumFonts)

Nearly what I do now, but without initializing NumFonts which will get the result of added resources.

Actually bad thing is that PB store these strings in a write able section of the program.[...]

That's why I did the post - wrote a program which controls all lights in my house and a certain function failed to work yesterday. Took some time to find that n=CountString(Bin(app\run\watchdog),"1") has been zero, took much more time to see that the error in line 6984 is connected to the font part which is done at the program start (around line 400)...
...and here's where I must have copied the code line some years ago...