The intention of the script is to set the "isCompilation" Flag for iTunes to true to have CD Samplers correctly viewed.
In 0.88 all i get is:
Code: Select all
Compiling...
Compiled succesfully
Exception: Access violation at address 0040888C in module 'TheGodFather.exe'. Read of address FFFFFFF7 at 0.301
Code: Select all
Program Make_iTunes_Compilation;
var
i : integer;
begin
if not tg_init then exit;
i := 1;
sys_SetStatusText( 2, IntToStr( tg_GetRowCount ) );
repeat
tg_loadFile;
sys_SetStatusText( 1, IntToStr( i ) );
sys_SetStatusText( 3, gTag.Filename );
// showmessage(tg_GetField( 'Artist' ));
gTag.Compilation := true;
gTag.SaveToFile( 0, false);
tg_RefreshRow;
i := i + 1;
until not tg_skip;
end.
Thanks!