[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]

Oder du schätzt.
Nimm die Bitrate der ersten paar Frames, schau die Dateigröße an und schätze, wie lange das Lied wohl spielen wird ... (Es gibt sogar mindestens ein käufliches Produkt, das so vorgeht ...)
--
Es gibt keine Notbremse für all den technischen Humbug, mit dem wir unsere Zeit vertrödeln.

[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]

Zitat:

---

Original von MaikG:
>Es gibt zwar ein spezielles Tag, das die Information
>vorhält, aber nicht jedes mp3-file enthält dieses Tag.

Wie lautet dieser?

>Die Datei wird ja nicht dekodiert, sondern nur einmal
>linear durchsucht. Ein durchschittliches 4MB file sollte
>auch der älteste Amiga in eine Sekunde bewältigen.

Mein Programm braucht dafür mind. 2 Minuten, 0,5Min schon
zum laden in den Speicher.
Ich könnte das noch Optimieren aber auf eine Sekunde
werde ich dadurch nicht kommen

Der Source geht so bei VBR:

IF a$="Xing" THEN
OPEN Datei$ FOR INPUT AS 1
dat$=INPUT$(Dateilaenge&,#1)
CLOSE #1

FOR i&=1 TO Dateilaenge&
IF MID$(dat$,i&,1)=CHR$(255) THEN
a$=MID$(dat$,i&+1,1)
tmp$=RIGHT$("0000"+BIN$(ASC(a$)),8)
IF LEFT$(tmp$,4)<>"1111" AND LEFT$(tmp$,4)<>"1110" THEN 199
a$=MID$(dat$,i&+2,1)
tmp$=BIN$(ASC(a$))
Bitrate$=LEFT$(tmp$,4)
IF layer$="01" THEN taby%=3
IF layer$="10" THEN taby%=2
IF layer$="11" THEN taby%=1
IF bitrate$="0001" THEN tabx%=1
IF bitrate$="0010" THEN tabx%=2
IF bitrate$="0011" THEN tabx%=3
IF bitrate$="0100" THEN tabx%=4
IF bitrate$="0101" THEN tabx%=5
IF bitrate$="0110" THEN tabx%=6
IF bitrate$="0111" THEN tabx%=7
IF bitrate$="1000" THEN tabx%=8
IF bitrate$="1001" THEN tabx%=9
IF bitrate$="1010" THEN tabx%=10
IF bitrate$="1011" THEN tabx%=11
IF bitrate$="1100" THEN tabx%=12
IF bitrate$="1101" THEN tabx%=13
IF bitrate$="1110" THEN tabx%=14
bitrate&=tbl%(tabx%,taby%)

Bitraten&=Bitraten&+Bitrate&
INCR frameanz&


[ Dieser Beitrag wurde von MaikG am 02.08.2005 um 23:12 Uhr editiert. ]

---

code:

---

IF MID$(dat$,i&,1)=CHR$(255) THEN

---

haut mir auf die Augen. Versuch doch da z.b.

code:

---

IF peek(i&)=255 then

---

Wobei i& einfach ein Zeiger auf die Position im Speicher ist. Der Rest noch überarbeiten. Wobei es doch besser wäre einfacher mit AllocMem einen Speicher zu holen. Das ganze frist doch so unglaublich viel Stringspeicher. Und außerdem wäre es eigentlich "richtiger".
Das dürfte da schon einiges bewirken. Und vorallem nicht laufend hin und hier wandeln. Das frist einiges an CPU.
3. durchschau dir nochmal den code. Da gibt es einiges zu überarbeiten und da wirst du gleich um Faktoren schneller.
Im allgemeinen müßte man eigentlich den ganzen Code da oben überarbeiten. Die ganzen Erfahrungen hab ich übrigens mit meinem BMP-Reader gemacht, der auch immer schneller wird. Da sieht man mal was man alles falsch Programmieren kann was zwar auch geht, aber halt nicht alles aus MBasic rausholt.

--
http://www.alternativercomputerclub.de.vu

[ Dieser Beitrag wurde von Ralf27 am 03.08.2005 um 00:24 Uhr editiert. ]

[ Dieser Beitrag wurde von Ralf27 am 03.08.2005 um 00:30 Uhr editiert. ]

[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]

>1. benutze die Dos-Funktionen

Die meisten Dosfunktionen sind erst bei 10000 durchläufen schneller.

>2. wandle nicht laufend hin und her. Vorallem das

Das Problem ist MB hat keine Funktion wie &b für Variablen,
das umgekehrte schon.

>haut mir auf die Augen. Versuch doch da z.b.
> code:
> IF peek(i&)=255 then

Gut, mal gucken ob ich noch mit den Dos Funktionen klar komme.


>Was für ein Programm schreibst du denn eben in MBasic? Wie schon
>geschrieben bin ich sehr an einem Erfahrungsaustausch interesiert.

Eins das mir die Laufzeit von MP3 Liedern ausgibt. Ohne VBR
ja kein Problem mit muss man ebend die ganze Datei verarbeiten.

[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]

Zitat:

---

Original von MaikG:
Das Problem ist MB hat keine Funktion wie &b für Variablen,
das umgekehrte schon.

---

[ - Antworten - Zitieren - Direktlink - ]

Zitat:

---

Original von Holger:

Zitat:

---

Original von MaikG:
Das Problem ist MB hat keine Funktion wie &b für Variablen,
das umgekehrte schon.

---

Also AmigaBasic hat eine Funktion namens VARPTR(). Bist Du Dir sicher, daß MBasic keine solche Funktion hat?
Abgesehen davon ist das beeindruckend ineffizient, was Du da machst. Du wandelst Zahlen in String-Darstellungenen ihrer Binärwerte um, um sie danach mit einer Abfolge von if... Abfragen wieder zurück in ihre Zahlenform zu wandeln?

---

[ - Antworten - Zitieren - Direktlink - ]

Zitat:

---

Original von MaikG:
>1. benutze die Dos-Funktionen

Die meisten Dosfunktionen sind erst bei 10000 durchläufen schneller.

---

Zitat:

---

>2. wandle nicht laufend hin und her. Vorallem das

Das Problem ist MB hat keine Funktion wie &b für Variablen,
das umgekehrte schon.

---

Zitat:

---

>haut mir auf die Augen. Versuch doch da z.b.
> code:
> IF peek(i&)=255 then

Gut, mal gucken ob ich noch mit den Dos Funktionen klar komme.

---

Zitat:

---

>Was für ein Programm schreibst du denn eben in MBasic? Wie schon
>geschrieben bin ich sehr an einem Erfahrungsaustausch interesiert.

Eins das mir die Laufzeit von MP3 Liedern ausgibt. Ohne VBR
ja kein Problem mit muss man ebend die ganze Datei verarbeiten.

---

Ich kenne mich da nicht aus, aber werden da nicht Blöcke benutzt? Wäre da Seek nicht besser? (Vermutung)
--
http://www.alternativercomputerclub.de.vu

[ - Antworten - Zitieren - Direktlink - ]

Außerdem ist der Code da oben nicht komplett. Ich frag mich z.b. woher layer$ kommt. Das wird bestimmt der Layertyp sein, aber der ändert sich noch nicht wärend des Abspielens. Also reicht es auch hier z.b. einmal dies Abzuklären.

Ich würde auch gerne mal denn Code komplett sehn und dann mal sehn wie schnell ich das ganze hin bekomme.
--
http://www.alternativercomputerclub.de.vu

[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]

@MaikG:

so, bin eben von der Arbeit gekommen. Ich schau mir das später einmal an. Aber auf dem ersten Blick kann man da wirklich einiges rausholen, bzw. ganz schön kürzen.

Nun, ist auch was neues für mich, die MP3-Story. Da packt es mich wieder. Ist genau das richtige für heute Abend um mich etwas nach der Arbeit auszutoben. :
--
http://www.alternativercomputerclub.de.vu

[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]

Zitat:

---

Original von MaikG:
Das muss so sein da man anders nicht an ein Teil-Binär wert
kommt. Wüsste jetzt nicht wie. Wenn ich 0101 von 0101xxxx brauche
bekomme ich das nicht anders.

---

code:

---

abcd% = abcdefgh% / 16
efgh% = abcdefgh% - abcd% * 16

---

[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]

Zitat:

---

Original von MaikG:
>mit VBR hatte ich bei meiner id3tag.library auch meine Probleme.
>Wenn ich die Sourcen gefunden habe, melde ich mich nochmal.

das währe nett.

---

code:

---

int ExtractI4(unsigned char *buf)

{
	int x;
	// big endian extract
	x = buf[0];
	x <<= 8;
	x |= buf[1];
	x <<= 8;
	x |= buf[2];
	x <<= 8;
	x |= buf[3];

	return x;
}


/* VBR definitions */

#define FRAMES_FLAG     0x0001
#define BYTES_FLAG      0x0002
#define TOC_FLAG        0x0004
#define VBR_SCALE_FLAG  0x0008

#define FRAMES_AND_BYTES (FRAMES_FLAG | BYTES_FLAG)

int bitraten[2][3][16]=
{
	/* MPEG 2 */
	{
		/* Layer 1 */
		{0,32000,64000,96000,128000,160000,192000,224000,256000,288000,32000 0,352000,384000,416000,448000,0},
		/* Layer 2 */
		{0,32000,48000,56000,64000 ,80000 ,96000 ,112000,128000,160000,192000,224000,256000,320000,384000,0},
		/* Layer 3 */
		{0,8000 ,16000,24000,32000 ,64000 ,80000 ,56000 ,64000 ,128000,160000,112000,128000,256000,320000,0}
   },
	/* MPEG 1  */
	{
		/* Layer 1 */
		{0,32000,64000,96000,128000,160000,192000,224000,256000,288000,32000 0,352000,384000,416000,448000,0},
		/* Layer 2 */
		{0,32000,48000,56000,64000 ,80000 ,96000 ,112000,128000,160000,192000,224000,256000,320000,384000,0},
		/* Layer 3 */
		{0,32000,40000,48000,56000 ,64000 ,80000 ,96000 ,112000,128000,160000,192000,224000,256000,320000,0}
	}
};


long frequency[3][4]=
{
	/* MPEG 1   */
	{44100,48000,32000,0},
	/* MPEG 2   */
	{22050,24000,16000,0},
	/* MPEG 2.5 */
	{11025,12000, 8000,0}
};

 
LONG
mp3info_getinfo(UBYTE *head,struct ID3Tag *id3tag,LONG id3v2size)
{
	UBYTE help=0,help1=0;
	UBYTE *vbr;
	LONG flength=0;
	LONG padding;
	
	/* Version */
   help=4-((head[1]>>3)&0x3);
	if(help==4) id3tag->norm=ID3TagMPEGA_VERSION_2_5;
	else
	if(help==2) id3tag->norm=ID3TagMPEGA_VERSION_2;
	else
	if(help==1) id3tag->norm=ID3TagMPEGA_VERSION_1;
	else
	{
		id3tag->norm=0;
		return 0;
   }
	
   /* Layer  */
	if(head[1]&2 && head[1]&4) id3tag->layer=1;
	else
	if(head[1]&4) id3tag->layer=2;
	else
	if(head[1]&2) id3tag->layer=3;
	else
	{
		id3tag->layer=0;
		return 0;
	}
    
	/* Protection */
	id3tag->crc=(head[1]&1)?0:1;
	
   /* Bitrate  */
	help=(head[2]&16)?1:0;
	help+=(head[2]&32)?2:0;
	help+=(head[2]&64)?4:0;
	help+=(head[2]&128)?8:0;
	id3tag->bitrate=bitraten[(head[1]&8)?1:0][id3tag->layer-1][help];
	if(id3tag->bitrate==0)
	{
		return 0;
	}
    
	/* Frequency */
	help=(head[2]&4)?1:0;
	help+=(head[2]&8)?2:0;
	switch(id3tag->norm)
	{
		case ID3TagMPEGA_VERSION_1: help1=0; break;
		case ID3TagMPEGA_VERSION_2: help1=1; break;
		case ID3TagMPEGA_VERSION_2_5: help1=2; break;
		default: help1=3;
	}
	id3tag->frequency=frequency[help1][help];
	if(id3tag->frequency==0)
	{
		return 0;
	}
	
   /* Padding */
	padding=(head[2]&2)?1:0;
	
   /* Private */
	id3tag->private_bit=(head[2]&1)?1:0;
 
   /* Mode */
	id3tag->mode=(head[3]&64)?1:0;
	id3tag->mode+=(head[3]&128)?2:0;
	
   /* Copyright */
	id3tag->copyright=(head[3]&8)?1:0;
	
   /* Original */
	id3tag->original=(head[3]&4)?1:0;
	
   /* Emphasis  */
	id3tag->emphasis=(head[3]&1)?1:0;
	id3tag->emphasis+=(head[3]&2)?2:0;
	
	/* Frame Length */
	if(id3tag->layer==1)
		flength=(12*id3tag->bitrate/id3tag->frequency+padding)*4;
	else
	if(id3tag->layer==2 || id3tag->layer==3)
		flength=144*id3tag->bitrate/id3tag->frequency+padding;
  
   /* VBR */
	id3tag->vbr=0;
	if(id3tag->norm&1)
	{
		if(id3tag->mode!=3) vbr=&head[32+4];
		else				  vbr=&head[17+4];
	}
	else
	{
		if(id3tag->mode!=3) vbr=&head[17+4];
		else				  vbr=&head[9+4];
	}

	if(vbr[0]=='X' && vbr[1]=='i' && vbr[2]=='n' && vbr[3]=='g')
	{
		int bytes=0, head_flags, frames=0;
		vbr+=4;

		id3tag->vbr=1;
		head_flags=ExtractI4(vbr);
		vbr+=4;
		if(head_flags & FRAMES_FLAG)
		{
			frames=ExtractI4(vbr);
			vbr+=4;
		}
		if(head_flags & BYTES_FLAG)
		{
			bytes=ExtractI4(vbr);
			vbr+=4;
		}
		
		if(frames!=0)
			id3tag->bitrate=(((bytes!=0)?bytes:(id3tag->filesize-id3v2size))/fr ames)*id3tag->frequency/144;
		
   }
 
   return flength;
}

---

[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]

Zitat:

---

Original von MaikG:
Mit dem C komme ich nicht wirklich klar.
Ich sehe aber wo nach dem Xing gesucht wird und
dort auch irgendwelche weiteren Informationen sein müssen.

>Mal eine Frage nebenbei. Ändern sich innerhalb eines mp3's
>mit variabler Bitrate eigendlich die Framelängen, oder
>sind die trotzdem immer gleich?
Klar die ändern sich eine andere Bitrate benötigt schliesslich
mehr oder weniger Platz.

---

[ - Antworten - Zitieren - Direktlink - ]

Zitat:

---

Original von MaikG:
Mit dem C komme ich nicht wirklich klar.
Ich sehe aber wo nach dem Xing gesucht wird und
dort auch irgendwelche weiteren Informationen sein müssen.

---

[ - Antworten - Zitieren - Direktlink - ]

Zitat:

---

Original von Holger:
Also selbst für AmigaBASIC gibt es Möglichkeiten, wenn man sich mit der Binärarithmetik mal richtig auseinandersetzt.
Wenn Du vom byte abcdefgh den Teil abcd haben willst, mußt Du durch 16 teilen. Wenn Du den Teil efgh haben willst, mußt Du zuerst den abcd Teil ermitteln und dann vom Original abziehen.

code:

---

abcd% = abcdefgh% / 16
efgh% = abcdefgh% - abcd% * 16

---

Aber wie hier gerade in einem anderen Thread nachzulesen war, beherrscht MBasic auch shift und binäre Vernüpfungen ala C. Es geht also auch noch effizienter. Also möge doch bitte mal jemand, der MBasic benutzt, die entsprechende Syntax hier posten.

mfg
--
Good coders do not comment. What was hard to write should be hard to read too.

---

code:

---

[...]
 IF PEEK(buf&+i&)=255 THEN
   a=PEEK(buf&+i&+1)
   IF(a AND 240)=240 THEN
    REM Frame gefunden
    ID=(a AND 8 )8
    Layer=(a AND 6)2
    a=PEEK(buf&+i&+2)
    Bitrate=(a AND 240)16
    Frequenz=(a AND 12)4
    padding=(a AND 2)2
    
    [...]

   END IF

   [...]
   
  END IF
  [...]

---

Dies ist übrigens vorallem an de MaikG gerichtet. MaikG, erkennst du Teile vom Code?

Aber jetzt mal eine dumme Frage: BigEndian. Ich muß da doch nichts drehn, oder? (Bytereihenfolge). Ich versteh einfach nicht wieso da mein Code nicht richtig läuft.
--
http://www.alternativercomputerclub.de.vu



Edit:
Ich hab eben gemerkt das selbst in dem mit Code deklarierten Text auch Smilie kommt, obwohl er da nix zu suchen hat? Hammer.

Achja, vielleicht geht es noch besser mit den Binären Mitteln von MBasic (wie z.b. mit Bitshift), ich weiß aber jetzt auch nicht wie. Das dürfte aber so wie da oben ausreichend sein.

[ Dieser Beitrag wurde von Ralf27 am 05.08.2005 um 00:24 Uhr editiert. ]

[ - Antworten - Zitieren - Direktlink - ]

Zitat:

---

Original von Ralf27:
Aber jetzt mal eine dumme Frage: BigEndian. Ich muß da doch nichts drehn, oder? (Bytereihenfolge). Ich versteh einfach nicht wieso da mein Code nicht richtig läuft.

---

Zitat:

---

Achja, vielleicht geht es noch besser mit den Binären Mitteln von MBasic (wie z.b. mit Bitshift), ich weiß aber jetzt auch nicht wie. Das dürfte aber so wie da oben ausreichend sein.

---

[ - Antworten - Zitieren - Direktlink - ]

Zitat:

---

Original von Holger:
Nein, auf dem Amiga brauchst Du nichts zu drehen. Was genau läuft denn nicht?

---

Zitat:

---

Das sind doch Binäroperationen, was man in dem Beispiel sieht.

---

[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]