MP3 prehravac

[Marian Cavojsky]

On Thu, Mar 22, 2001 at 09:39:27AM +0100, michal.grunt na iol.cz wrote:
> Zdravim, neexistuje nejaky prehravac MP3 (mysleno program) kde by byli k 
> dispozici zdrojove kody? Potrebuji neco jednoducheho napr.:
> 
> #include <mp3player.h>
> 
> init_mp3(filename);
> 
> case klavesa
> {
>  1: play.song();
>  2: stop.song();
>  3: pause.song();
> }
> 
> atp. Co jsem videl MPG123, nebo x-audio, tak to chce hodne kodu okolo (30KB 
> cmdline program). A bylo by dobre aby to melo nejakou funkci podobnou tehle:
> nazev_pisnicky = mp3description(name)
> Nebo tak neco, proste aby se dali jednoduzse vypreparovat informace o pisnicce.
> Dik

precitat nazov pesnicky, by nemal byt az taky problem. Toto je sice v
perle, ale prepisat to do C, tak tazke nebude.
<Cital_ID3.pl>
$basicOfName = $ARGV[0];
$numbern = 1;
$number = "01";
do{
        $name = $basicOfName . $number . ".mp3";
        goto koniec unless -e $name;
        open( file, $name );
        binmode( file );
        $dlzka = -s file;
        seek( file, -128, 2 );
        $tag="";
        read( file, $tag, 3);
        if ($tag=~m/TAG/){
                read file, $title,   30;
                read file, $artist,  30;
                read file, $album,   30;
                read file, $year,     4;
                read file, $comment, 30;
                read file, $genre,    1;
                close( file );
                $artist =~ s/\s*$//g;
                $title =~ s/\s*$//g;
                $album =~ s/\s*$//g;
                $newFileName = $number." ".$artist." - ".$title.".mp3";
                print "\n\tOld Name:\t", $name;
                print "\n\tNew Name:\t", $newFileName;
                rename( $name, $newFileName );
                if ($numbern==1){
                        open( plsFile, ">".$artist." - ".$album.",".$year.".pls" );
                        print plsFile ( "[PlayList]\n" );
                }
                print plsFile ( "File".$numbern."=".$newFileName."\n" );
        }else{
                print "NO TAG!\nThere is ",$tag,"\n";
                close file;
        }
        $number++;
        $numbern++;
}while(1);
koniec:
$numbern--;
$number--;
print plsFile ( "NumberOfEntries=".$numbern );
close plsFile;
print "\nKONIEC";
errorExit:
</Citaj_ID3.pl>

Tymto programom som premenovaval subory podla ID3.

-- 
Marian Cavojsky <cavojsky @ soria-grey.sk>
Spravca siete, Soria & Grey s.r.o, reklamna agentura

Windows&Office jsou jako droga. Krasny a prijemny prvni dojem,
zvyknes si a nemuzes uz bez nich zit.
A pak zacnou prichazet vedlejsi ucinky ...

------------- další část ---------------
A non-text attachment was scrubbed...
Name: [žádný popis není k dispozici]
Type: application/pgp-signature
Size: 232 bytes
Desc: [žádný popis není k dispozici]
URL: <http://www.linux.cz/pipermail/linux/attachments/20010322/363f6bc1/attachment.sig>