Zitat:

---

Original von Holger:
Poste doch mal den kompletten Code. Und sach dabei rasch, was Backslash in (M)Basic bedeutet.

---

Das / bringt bei einer Division einen Wert mit Rest, wärend eine Ganzzahldivision macht, was auch schneller ist. Das ist alles.

Ich schau mich nochmal im Internet um und versuch es zu Regeln. Denn Code bring ich auch gleich hier im Forum, der leider so zur Zeit quasi unbrauchbar ist.
--
http://www.alternativercomputerclub.de.vu

[ - Answer - Quote - Direct link - ]

[ - Answer - Quote - Direct link - ]

code:

---

DEFINT a-z

REM $window
REM $errors
REM $lines
REM $library
REM $nodebug
REM $nobreak
REM $noevent
REM $nooverflow
REM $novarchecks
REM $noautodim
REM $noaddicon
REM $noarray
REM $nostack

REM $INCLUDE exec.bh
REM $INCLUDE dos.bh

LIBRARY OPEN "dos.library"
LIBRARY OPEN "exec.library"

DIM tbl(1,3,15):REM MPEG,Layer,Bitrate
FOR z=0 TO 1
 FOR y=3 TO 1 STEP -1:REM Layer 1-3 verdreht
  FOR x=1 TO 14
   READ tbl(z,y,x)
  NEXT
 NEXT
NEXT
REM MPEG2
DATA 8,16,24,32,64,80,56,64,128,160,112,128,256,320
DATA 32,48,56,64,80,96,112,128,160,192,224,256,320,384
DATA 32,64,96,128,160,192,224,256,288,320,352,384,416,448
REM MPEG1
DATA 32,64,96,128,160,192,224,256,288,320,352,384,416,448
DATA 32,48,56,64,80,96,112,128,160,192,224,256,320,384
DATA 32,40,48,56,64,80,96,112,128,160,192,224,256,320

 filename$="mp3:mp3/Badesalz/Zeitansage.mp3"

 Datei&=xOpen&(SADD(filename$+CHR$(0)),MODE_OLDFILE&)
 IF Datei&=0 THEN END

 PRINT"Lese"
 REM laenge ermitteln
 junk&=Seek&(Datei&,0,OFFSET_END&)
 Dateilaenge&=Seek&(Datei&,0,OFFSET_BEGINNING&)
 buf&=AllocMem&(Dateilaenge&,MEMF_PUBLIC&)
 IF buf& THEN rLen&=xRead&(Datei&,buf&,Dateilaenge&)
 junk&=xClose&(Datei&)
 IF buf&=0 THEN END
 
 Sec#=0

 PRINT"Durchsuche"
 FOR i&=0 TO Dateilaenge&-1
REM  IF INKEY$<>"" THEN i&=Dateilaenge&
  IF PEEK(buf&+i&)=255 THEN
   a=PEEK(buf&+i&+1)
   IF(a AND 240)=240 THEN
    REM Frame gefunden
    ID=(a AND  8
    Layer=(a AND 6)2
    a=PEEK(buf&+i&+2)
    Bitrate=(a AND 240)16
REM    Frequenz=(a AND 12)4
REM    padding=(a AND 2)2
    i&=i&+4
    IF Layer=1 THEN
     i&=i&+768:REM 384 Sampels bei Layer1
     Sec#=Sec#+tbl(ID,Layer,Bitrate)/6.144
    ELSE
     i&=i&+2304:REM 1152 Sampel bei Layer2 und 3
     Sec#=Sec#+tbl(ID,Layer,Bitrate)/18.432
    END IF
   END IF
  END IF
 NEXT

Ende:
 FreeMem buf&,Dateilaenge&

 PRINT"Dauer:"sec#"Sec"

---

[ - Answer - Quote - Direct link - ]

Zitat:

---

Original von Ralf27:

code:

---

Layer=(a AND 6)2

---

---

code:

---

Layer=4- ((a AND 6)2)

---

[ - Answer - Quote - Direct link - ]

Zitat:

---

Dann machen Zeilen wie

code:

---

ID=(a AND 8 )8

[code]und

---

padding=(a AND 2)2

[/code]

aber nicht viel Sinn, oder?

---

[ - Answer - Quote - Direct link - ]

Zitat:

---

Original von Holger:
Jeglicher mir bekannter Code sieht so aus:

code:

---

Layer=4- ((a AND 6)2)

---

.

---

Wie kommt denn das zustande?


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

Edit:

> MPEG Layer (2 Bit)

> Diese beiden Bits geben Aufschluß darüber, ob es sich um MPEG-Audio Layer I, II oder III handelt. Der Wert 1 steht für Layer I, Wert 2 für Layer II und Wert 3 für Layer III.

Aus einer Doku, hab jetzt leider kein Link.
Wie kommt dann das mit 4-... Zustande? Insofern sollte doch der Layer doch direkt drin stehn. Also z.b. 1=1, 2=2, 3=3, 0=illegal.

[ Dieser Beitrag wurde von Ralf27 am 05.08.2005 um 01:36 Uhr editiert. ]

[ - Answer - Quote - Direct link - ]

Zitat:

---

Original von Ralf27:
Eigentlich schon. Sollte das Bit 2 z.b. nach (a AND 2) gesetzt sein, dann kommt 2 raus. Wenn ich aber ein einfaches 1 oder 0 haben möchte, dann muß ich eine Division durchführen.

---

Hatte es schon zurückgezogen, aber Du warst mit dem Lesen offenbar schneller....

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

[ - Answer - Quote - Direct link - ]

Zitat:

---

Original von Holger:

Zitat:

---

Original von Ralf27:
Eigentlich schon. Sollte das Bit 2 z.b. nach (a AND 2) gesetzt sein, dann kommt 2 raus. Wenn ich aber ein einfaches 1 oder 0 haben möchte, dann muß ich eine Division durchführen.

---

Hatte es schon zurückgezogen, aber Du warst mit dem Lesen offenbar schneller....

---

Zja, ich rotiere auch ehrlichgetippt eben etwas.

Eigentlich sollte ich ja schon in der Falle liegen, weil ich ja heute wieder raus muß, aber irgendwie wurmmt mich eben das Problem.

Vielleicht hab ich das mit dem Layer auch falsch gemacht, aber irgendwie läuft da auch was mit dem Header falsch, ich kann mir das anderst nicht erklären.
--
http://www.alternativercomputerclub.de.vu

[ - Answer - Quote - Direct link - ]

Zitat:

---

Original von Ralf27:

Zitat:

---

Original von Holger:
Layer=4- ((a AND 6)2)

---

Wie kommt denn das zustande?

---

code:

---

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;

---

[ - Answer - Quote - Direct link - ]

Zitat:

---

Original von Ralf27:
Eigentlich sollte ich ja schon in der Falle liegen, weil ich ja heute wieder raus muß, aber irgendwie wurmmt mich eben das Problem.

---

Hmm, mein download ist inzwischen auch fertig...
Warum bin ich noch online?

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

[ - Answer - Quote - Direct link - ]

[ - Answer - Quote - Direct link - ]

Zitat:

---

Original von Ralf27:
Edit:
> MPEG Layer (2 Bit)

> Diese beiden Bits geben Aufschluß darüber, ob es sich um MPEG-Audio Layer I, II oder III handelt. Der Wert 1 steht für Layer I, Wert 2 für Layer II und Wert 3 für Layer III.

Aus einer Doku, hab jetzt leider kein Link.
Wie kommt dann das mit 4-... Zustande? Insofern sollte doch der Layer doch direkt drin stehn. Also z.b. 1=1, 2=2, 3=3, 0=illegal.
[ Dieser Beitrag wurde von Ralf27 am 05.08.2005 um 01:36 Uhr editiert. ]

---

Ah, ein Nachschlag. Hmm, wem vertraue ich jetzt mehr? Einer Doku, oder realem Code, der aus unterschiedlichen Quellen zu mir kam und funktioniert?
Da kann ich natürlich verstehen, daß man bei der Implementierung ziemlich ins Schleudern kommt.

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

[ - Answer - Quote - Direct link - ]

Zitat:

---

Original von Holger:

Zitat:

---

Original von Ralf27:
Eigentlich sollte ich ja schon in der Falle liegen, weil ich ja heute wieder raus muß, aber irgendwie wurmmt mich eben das Problem.

---

Hmm, mein download ist inzwischen auch fertig...
Warum bin ich noch online?

---

Ok, dann bis heute wieder zu einer "normaleren" Zeit. Kennst Du eine gute deutsche (hab ja das "Englisch"-Problem) Seite über denn MP3-Dateiaufbau? Hab da hier und da was gefunden, aber vielleicht gibt es ja noch irgendwo eine gute Seite.

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

[ - Answer - Quote - Direct link - ]

Zitat:

---

Original von Holger:
Ah, ein Nachschlag. Hmm, wem vertraue ich jetzt mehr? Einer Doku, oder realem Code, der aus unterschiedlichen Quellen zu mir kam und funktioniert?
Da kann ich natürlich verstehen, daß man bei der Implementierung ziemlich ins Schleudern kommt.

---

[ - Answer - Quote - Direct link - ]

Zitat:

---

Original von Ralf27:
Kennst Du eine gute deutsche (hab ja das "Englisch"-Problem) Seite über denn MP3-Dateiaufbau?

---

Zitat:

---

Ok, dann bis heute wieder zu einer "normaleren" Zeit.

---

[ - Answer - Quote - Direct link - ]

Zitat:

---

Original von Holger:
Leider nein, habe nach so etwas auch noch nie gesucht, hab das "Englisch"-Problem nicht. Aber wir bekommen das auch so im Forum zusammen...
NB: Maiks original Basic Programm hat den Layer auch so interpretiert.

Zitat:

---

Ok, dann bis heute wieder zu einer "normaleren" Zeit.

---

Gute Nacht

---

Ja, hab mir das eben auch nochmal angesehn. Irgendwie liegt das Problem schon woanderst. Na, aber das wird schon.

Dir auch eine gute Nacht und Danke!
--
http://www.alternativercomputerclub.de.vu

[ - Answer - Quote - Direct link - ]

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

Schon das ist der für mp3 ohne VBR? Der war nicht wirklich
zeitkritisch.
Bei dem anderen Code(Seite2) durchsuchst du aber nicht
mehr die ganze datei sondern versuchst es zu berechnen oder?

[ - Answer - Quote - Direct link - ]

Zitat:

---

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

Schon das ist der für mp3 ohne VBR? Der war nicht wirklich
zeitkritisch.
Bei dem anderen Code(Seite2) durchsuchst du aber nicht
mehr die ganze datei sondern versuchst es zu berechnen oder?

---

So, ich hab mal endlich etwas Zeit in der Firma und mich mal etwas schlauer gemacht:
Also, auf vielen deutschen MP3-Dateiinfoseiten steht ein haufen Käse, aber wirklich.
z.b. steht auf deutschen Seiten das Layer1=Bit1, Layer2=Bit2, Layer3=Bit3... ist genau anderstherum. Oder auch die Framelängenstory. Ich dachte erst die Frames wären in einer festen länge, aber das stimmt natürlich nicht. Die Samples(!) sind fest vorgegeben, aber das hab ich erst herrausgefunden als ich auf einer englischen(!) eingedeutschen(Google ) Seite kurz mal reingelesen habe.
Und noch so ein paar Kleinigkeiten...

Achja, das Programm hier durchsucht die ganze Datei, aber der Code der hier steht läuft nicht richtig, bzw. die Framelaenge wird total falsch berechnet.
Jetzt stimmt zwar ca. die Framelaenge (ohne Padding, ohne Checksumme, die übrigens 16Bit und nicht 32Bit lang ist, wie auf ein paar dummen deutschen Seiten beschrieben. Da wird wohl einiges durchgewürfelt. ).

Aber ich hab noch das Problem das die Frameheader nicht richtig gefunden werden. So bekomme ich einen ganz schönen Datenmüll zusammen. Der erste Header scheint aber zu stimmen.

Aber es scheint sich schon zu zeigen das man so die Spielzeitdauer wirklich innerhalb einer Sekunde herrausfinden kann. Und das könnte man dann vermutlich auch mit Seek machen ohne die Datei komplett zu laden.
Allerdings verstehe ich wirklich nicht wieso er die Header nicht richtig findet, bzw. wieso so ein Datenmüll rauskommt. Hab übrigens gestern noch etwas den Code modifiziert.
--
http://www.alternativercomputerclub.de.vu

[ - Answer - Quote - Direct link - ]

Zitat:

---

Original von MaikG:
Schon das ist der für mp3 ohne VBR? Der war nicht wirklich
zeitkritisch.
Bei dem anderen Code(Seite2) durchsuchst du aber nicht
mehr die ganze datei sondern versuchst es zu berechnen oder?

---

[ - Answer - Quote - Direct link - ]

Zitat:

---

Original von Holger:
Und sach dabei rasch, was Backslash in (M)Basic bedeutet.

---

[ - Answer - Quote - Direct link - ]

Zitat:

---

Original von thomas:
Das kann man doch aus dem Kontext erkennen: ganzzahlige Division.

---

[ - Answer - Quote - Direct link - ]

Zitat:

---

Original von Ralf27:
So, ich hab mal endlich etwas Zeit in der Firma und mich mal etwas schlauer gemacht:

---

So kann das mit der deutschen Wirtschaft ja nix werden

Zitat:

---

Achja, das Programm hier durchsucht die ganze Datei, aber der Code der hier steht läuft nicht richtig, bzw. die Framelaenge wird total falsch berechnet.
Jetzt stimmt zwar ca. die Framelaenge (ohne Padding, ohne Checksumme,...).

---

code:

---

IF Layer=1 THEN
  framesize = 4 * (12 * bitrate / frequency + padding_bit)
ELSE IF Layer=2 THEN
  framesize = 144 * bitrate / frequency + padding_bit
ELSE IF Layer=3 THEN
  IF version = MPEGVERSION_2_5
    framesize = 144 * bitrate / frequency + padding_bit
  ELSE
    framesize = 72000 * bitrate / frequency + padding_bit
  ENDIF
ENDIF

---

[ - Answer - Quote - Direct link - ]

Zitat:

---

Original von Ralf27:
Aber es scheint sich schon zu zeigen das man so die Spielzeitdauer wirklich innerhalb einer Sekunde herrausfinden kann. Und das könnte man dann vermutlich auch mit Seek machen ohne die Datei komplett zu laden.

---

[ - Answer - Quote - Direct link - ]

[ - Answer - Quote - Direct link - ]

[ - Answer - Quote - Direct link - ]

Zitat:

---

Original von MaikG:
Wenn ich das richtig verstehe ist

Bitrate=(a AND 240)16

identisch zu

Bitrate=a16

oder Bitrate=INT(a/16)

?

und mit AND Maskiert man irgendwie Bits?

---

[ - Answer - Quote - Direct link - ]

[ - Answer - Quote - Direct link - ]

Zitat:

---

Original von MaikG:
@Holger

Das schlimme ist das nix davon Funktioniert sobald
die Binär-Zahl weniger als 8 Stellen hat, was jedoch
der Fall ist wenn es führende nullen gibt.
Deshalb werden in mein Programm Nullen dazugefügt,
was so nur mit Strings geht.
Deshalb liefert Ralf's Programm andere Werte.

---

Nun, da kann ich dir widersprechen. Ich benutze ja keine Strings um eine Zahl darzustellen. Kleines Beispiel:

Wenn ich in einem Byte die Zahl 0 speicher, dann kann ich auch das oberste Bit abfragen und das geht auch mit dem wie ich es oben gemacht habe. In der Sache bin ich mir ganz sicher. Außerdem werden die Integerzahlen bei Basic in 16Bit gespeichert, also -32767 bis 32768(ca. +-1 ).

Also kann ich auch mit z.b. IF (a AND 240)=240 THEN [...] wirklich darauf prüfen ob die oberen 4Bits gesetz sind und da ist es egal was für eine Zahl es ist. Wenn es 0 ist, dann sind halt die oberen Bits nicht gesetzt und die Bedingung ist nicht erfüllt.

Ich hab aber heute bei der "Infos für die Arbeiter"-Aktion in der Firma etwas Wissen eingefangen und mitbekommen das ich sozusagen faule Deutsche Dokus in Händen hatte, wie z.b. die Layerstory.

Ich mach mich später nochmal dran, muß noch was erledigen. Es gibt immer was zu tun...
--
http://www.alternativercomputerclub.de.vu

[ - Answer - Quote - Direct link - ]

code:

---

DEFINT a-z

REM $window
REM $errors
REM $lines
REM $library
REM $nodebug
REM $nobreak
REM $noevent
REM $nooverflow
REM $novarchecks
REM $noautodim
REM $noaddicon
REM $noarray
REM $nostack

REM $INCLUDE exec.bh
REM $INCLUDE dos.bh

LIBRARY OPEN "dos.library"
LIBRARY OPEN "exec.library"

DIM tbl&(1,4,15):REM MPEG,Layer,Bitrate
FOR z=0 TO 1
 FOR y=1 TO 3
  FOR x=1 TO 14
   READ a&
   tbl&(z,y,x)=a&*1000:REM kHz, also mal 1000
  NEXT
 NEXT
NEXT
REM MPEG2
DATA 32,64,96,128,160,192,224,256,288,320,352,384,416,448
DATA 32,48,56,64,80,96,112,128,160,192,224,256,320,384
DATA 8,16,24,32,64,80,56,64,128,160,112,128,256,320
REM MPEG1
DATA 32,40,48,56,64,80,96,112,128,160,192,224,256,320
DATA 32,48,56,64,80,96,112,128,160,192,224,256,320,384
DATA 32,64,96,128,160,192,224,256,288,320,352,384,416,448
DIM Freq&(1,3):REM MPEG,Wert
FOR z=0 TO 1
 FOR x=0 TO 2
  READ Freq&(z,x)
 NEXT
NEXT

DATA 44100,48000,32000
DATA 22050,24000,16000

 filename$="mp3:mp3/Badesalz/Zeitansage.mp3"

 Datei&=xOpen&(SADD(filename$+CHR$(0)),MODE_OLDFILE&)
 IF Datei&=0 THEN END

 PRINT "Lese"
 REM laenge ermitteln
 junk&=Seek&(Datei&,0,OFFSET_END&)
 Dateilaenge&=Seek&(Datei&,0,OFFSET_BEGINNING&)
 buf&=AllocMem&(Dateilaenge&,MEMF_PUBLIC&)
 IF buf& THEN rLen&=xRead&(Datei&,buf&,Dateilaenge&)
 junk&=xClose&(Datei&)
 IF buf&=0 THEN END
 
 Sec#=0

 PRINT"Durchsuche"
 FOR i&=0 TO Dateilaenge&-1
  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 :REM Zja, hier macht mir als das Forum aus dem 8 ) ein Smilie  
    Layer=4-(a AND 6)2
REM    Check=(a AND 1)
    a=PEEK(buf&+i&+2)
    Bitrate&=tbl&(ID,Layer,(a AND 240)16)
    Frequenz&=Freq&(ID,(a AND 12)4)
    Padding=(a AND 2)2
    i&=i&+4
REM    IF Check THEN i&=i&+2
    IF Layer=1 THEN
REM     i&=i&+(12*BitRate&/Frequenz&)*4:REM 384 Samples bei Layer1
REM     Sec#=Sec#+BitRate&/Frequenz&
    ELSE
REM     i&=i&+144*BitRate&/Frequenz&:REM 1152 Samples bei Layer2 und 3
REM     Sec#=Sec#+BitRate&/Frequenz&
    END IF
   END IF
  END IF
 NEXT

Ende:
 FreeMem buf&,Dateilaenge&

 PRINT"Dauer:"sec#"Sec"

---

[ - Answer - Quote - Direct link - ]

Zitat:

---

Original von Holger:
Seek lohnt sich nur, wenn man mehr als einen Block überspringt. Im Falle von zeitgemäßen Festplatten müßte es auch deutlich mehr als ein Block sein.
Deutlich mehr wäre herauszuholen, wenn man das Einlesen asynchron ausführt. Ist in einem Basic-Programm vermutlich sehr kompliziert zu machen...

---

Ich vermute mal das es ganz so wäre wie in C. Ich vermute du sprichst auf HOOKs an? Ich hab damit wirklich noch nie was gemacht und für mich sind das eher Schreckgespenster.

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

[ - Answer - Quote - Direct link - ]