[Expertenrunde] Problem mit ID3_v3.4.au3 UDF

[autoit]

Func _h_ID3v2Tag_RemoveUnsynchronisation()
;....
Local $aIndex[1]
$aIndex[0] = 0
For $ibyte=1 To BinaryLen($ID3v2_RawDataBinary)-1
If BinaryMid($ID3v2_RawDataBinary,$ibyte,1) == Binary("0xFF") Then
If BinaryMid($ID3v2_RawDataBinary,$ibyte+1,1) == Binary("0x00") Then
_ArrayAdd($aIndex,$ibyte)
$aIndex[0] += 1
EndIf
EndIf
Next
;~ _ArrayDisplay($aIndex)

[/autoit][autoit][/autoit][autoit]

Local $ID3v2_RawDataBinary_Temp = BinaryMid($ID3v2_RawDataBinary,1,5)
Local $bCurrentTagFlags = BinaryMid($ID3v2_RawDataBinary,6,1)
$ID3v2_RawDataBinary_Temp &= Binary("0x" & Hex(BitAND(127, Dec(Hex($bCurrentTagFlags,2))),2)) ;Clear unsynchronisation flag in Tag header
$ID3v2_RawDataBinary_Temp &= BinaryMid($ID3v2_RawDataBinary,7,$aIndex[1])
Local $Start, $Length = $aIndex[1]
For $ibyte = 1 To $aIndex[0]-1
$ID3v2_RawDataBinary_Temp &= BinaryMid($ID3v2_RawDataBinary,$aIndex[$ibyte] + 2,$aIndex[$ibyte+1]-$aIndex[$ibyte]-1)
Next
$ID3v2_RawDataBinary_Temp &= BinaryMid($ID3v2_RawDataBinary,$aIndex[$aIndex[0]]+2)

[/autoit][autoit][/autoit][autoit]

$ID3v2_RawDataBinary = $ID3v2_RawDataBinary_Temp

[/autoit][autoit][/autoit][autoit]

EndFunc

[/autoit]

Der Fehler steckt wohl hier. Grund ist vermutlich eine nicht vorhandene Prüfung ob das Array überhaupt mit ArrayAdd vergrößert wurde oder nicht. Es wird einfach davon ausgegangen, dass das schon alles klappt.

Es scheitert wohl eher an Dateien die nicht so sind wie von der UDF erwartet.
Im Detail hab ich es mir nicht angesehen aber ich würde mal in Zeile 1132 der UDF ein paar Variablen ausgeben lassen
(Am besten in ne Datei oder per Consolewrite())
Es scheitert daran dass eine der beiden if's nie True ist (Zeile 1124 und 1125):

[autoit]

If BinaryMid($ID3v2_RawDataBinary,$ibyte,1) == Binary("0xFF") Then
If BinaryMid($ID3v2_RawDataBinary,$ibyte+1,1) == Binary("0x00") Then

[/autoit]

Intressant wären vmtl.

[autoit]

$aIndex[0]
$ibyte
$ID3v2_RawDataBinary

[/autoit]

In der textdatei oder Console siehst du ja dann bei was genau er scheitert.

Ein schneller fix könnte auch so ausschaun, dann kommt es jedenfalls nicht mehr zum Absturz in besagter Funktion, allerdings evtl. in späteren Funktionen die erwarten, dass die Daten von dieser Funktion verändert wurden...

[autoit]

Local $aIndex[1]
$aIndex[0] = 0
For $ibyte=1 To BinaryLen($ID3v2_RawDataBinary)-1
If BinaryMid($ID3v2_RawDataBinary,$ibyte,1) == Binary("0xFF") Then
If BinaryMid($ID3v2_RawDataBinary,$ibyte+1,1) == Binary("0x00") Then
_ArrayAdd($aIndex,$ibyte)
$aIndex[0] += 1
EndIf
EndIf
Next
;~ _ArrayDisplay($aIndex)
if ubound($aIndex) < 2 then return -1

[/autoit]