PureBasic Forums - English

Thanks.

All fixed now and working great.

Great code Xombie..

Did the problem of the beep or pc speaker ever get sorted??

It appears as though the code causes a windows sound to play, its actually the default beep sound when a key is pressed.

Verified this on 3 different pc all using xp.

ok just to update this,
the requester now works as intended but i am now getting invalid memory address....

code to test below.

The error is generated at end of procedure.
also tested same code with subroutine and same error.

code without textgadgets works fine.




; PureBasic Visual Designer ...

Thanks gnozal.

just done quick test and no error.

will try tomorrow on program.

Thanks again.

OK checked this a little further and if using defaultprinter
then everything works ok.

If using the LPRINT_Requester then we get the error.

So appologies for misdirection with the stringgadet etc.

But strange that generating the error stating

POLINK error _PB_getgadgetitemtext


Thanks for help ...

Just redownloaded again.

Yes using v1.00 for pb 4.

The error occurs when using string gadgets

If OpenWindow(0, 216, -1, 1040, 650,"TEST", #PB_Window_SystemMenu | #PB_Window_TitleBar | #PB_Window_ScreenCentered | #PB_Window_WindowCentered )
If CreateGadgetList(WindowID(0))
StringGadget(0,10,10 ...

PureLprint_ v4.0 lib

Is causing error with version 4.10 and all 4.20 beta
getting the error message
POLINK: error Unresolved external symbol '_PB_Getgadgetitemtext'
POLINK: Fatal error. 1 unresolved external.


If i comment out the code using the Lprint functions then all compiles fine & prog ...

The problem with beta 7 is the ReadString() command.

Posted report of this bug in bug forum.

So back to beta 3 for now...


Until Beta 8 that is.

i have emailed catver.ini file to test.

But the other file is generated from mame.exe

Download from mame.net

All code & programs working with beta 3 so this is a new bug from beta 7.

ok using beta 7 causes different probs.

yes change the openwindow will compile which i know as already tried under beta 7.

The problem that beta 7 creates is that same code will lock.
Line 81 is the culprit..


While Eof(file)=0 And found=0
text$=LCase( ReadString(file) ) ; This is the problem ...

ok using beta 7

The program hangs while trying to read a line from the file created.

Line 81 is the problem when using beta 7.

While Eof(file)=0 And found=0
text$=LCase( ReadString(file) ) ----- This is line that causes lock
found=FindString(text$,search$,1)
If tag>0 And FindString(text$,tag ...

ok tranquil
so i may have gone a little overbored with the code posted.

But hey more is better sometimes.

Thanks fang...

Hope this is enough code for you.. :lol:


The code in question should be just erase data arrays.
Clearing the list gadgets
And also the text gadgets.

The arrays are erased & also the gadgets cleared.
as i have inserted debug between commands & read the gadgets back.

So the info ...

Ok here is the complete program but there are 800+ lines of code in there


;
; --------------------------------
; Parse XML List & Catver.ini
;
;
;
; --------------------------
;

IncludeFile "Common.pb"

Structure game
romname.s
cloneof.s
driver.s
year.s
maker.s
width.w
height.w
aspectx ...

ok full procedure reads as follows...


Procedure cleardata()
t$=" "
gameno=0

Dim ver$(0)
Dim cats$(0)
Dim ver$(#vermax)
Dim cats$(#catmax)
Dim RomInfo.game(0)
Dim rominfo.game(#max)

ClearGadgetItemList(#XMLlist)
ClearGadgetItemList(#CatList)
ClearGadgetItemList(#VerList)
ClearGadgetItemList(#SUB ...