Ouupps
, sorry I make a (big !) mistake in reading an old code I made...
(In french, we say literally "Not have eyes in front of the holes !!!"
)
The problem is quite different, below is a shortcut code of one of my programs running very well with PB5.73 and older.
I tested it with PB6 b9 and had an error, I thought perhaps it was a bug not solved yet but the problem persists with final version :
Code: Select all
Enumeration
#ATAGS_LANGUAGE_FR
#ATAGS_LANGUAGE_EN
EndEnumeration
;#ATAGS_LANGUAGE=#ATAGS_LANGUAGE_FR
#ATAGS_LANGUAGE=#ATAGS_LANGUAGE_EN
CompilerIf #ATAGS_LANGUAGE=#ATAGS_LANGUAGE_FR
Structure ID3v2_L
Titre.s
Artiste.s
EndStructure
CompilerElseIf #ATAGS_LANGUAGE=#ATAGS_LANGUAGE_EN
Structure ID3v2_R
Title.s
Artist.s
EndStructure
CompilerEndIf
CompilerIf #ATAGS_LANGUAGE=#ATAGS_LANGUAGE_FR ; ATAGSReadID3v1
Declare.b ATAGSReadID3v2(Fichier.s,*ID3v2Tags.ID3v2_L)
CompilerElseIf #ATAGS_LANGUAGE=#ATAGS_LANGUAGE_EN
Declare.b ATAGSReadID3v2(FileName.s,*ID3v2Tags.ID3v2_R)
CompilerEndIf
CompilerIf #ATAGS_LANGUAGE=#ATAGS_LANGUAGE_FR ; ATAGSReadID3v1
ProcedureDLL.b ATAGSReadID3v2(Fichier.s,*ID3v2Tags.ID3v2_L) ;- Lit les métadonnées ID3v2 d'un fichier
CompilerElseIf #ATAGS_LANGUAGE=#ATAGS_LANGUAGE_EN
ProcedureDLL.b ATAGSReadID3v2(FileName.s,*ID3v2Tags.ID3v2_R) ;- Read ID3v2 metadata of a file
CompilerEndIf
Debug "Ok"
EndProcedure
CompilerIf #ATAGS_LANGUAGE=#ATAGS_LANGUAGE_FR
Define.ID3v2_L *ID3v2Tags
ATAGSReadID3v2("C:\Temp.txt",*ID3v2Tags.ID3v2_L)
CompilerElseIf #ATAGS_LANGUAGE=#ATAGS_LANGUAGE_EN
Define.ID3v2_R *ID3v2Tags
ATAGSReadID3v2("C:\Temp.txt",*ID3v2Tags.ID3v2_R)
CompilerEndIf
With PB6 a new error message occurs : "Declaration doesn't match procedure definition (DLL procedure inconsistency)"...
Am I doing something wrong ? If you have any idea...