![]() |
Re: Mein kleiner mp3-Player... Updated 13.12.04
Danke Dizzy, hab's jetzt und auch unter D5 zum laufen gebracht. Sieht gut aus!! Quelltext schau ich mir bei Gelegenheit auch mal an, bin gespannt wie Du's gemacht hast. Vielen Dank dass Du ihn bereit gestellt hast!!
|
Re: Mein kleiner mp3-Player... Updated 13.12.04
Liste der Anhänge anzeigen (Anzahl: 1)
Also ich habe mit dizzys vorlage innerhalb 2 Tage auch einen kleinen MediaPlayer gemacht der ist zwar noch lange nicht fertig aber wer will kann sich den ja mal ansehen
Features: Videos, Musik und Bilder Medienbibleothek ID3 Tag |
Re: Mein kleiner mp3-Player... Updated 13.12.04
na, wenn du ihn schon mit der vorlage erstellt hast, dann hättest du wenigstens die quelltexte beilegen können...
|
Re: Mein kleiner mp3-Player... Updated 13.12.04
Zitat:
Dabei war ich doch jetzt sooooo gespannt :) |
Re: Mein kleiner mp3-Player... Updated 13.12.04
Liste der Anhänge anzeigen (Anzahl: 4)
qtintf.dll
und screenis |
Re: Mein kleiner mp3-Player... Updated 13.12.04
Das Visual ist ja nett :mrgreen:
Im Ernst: Gefällt mir sehr gut das Gerät :thumb: Ich würde für das Visual nur nicht alle Optionen von vorne herein auf true setzen, da das etwas auf die CPU geht 8). Meine favorisierte Kombination: ColorCycle + VolumeBars + Raster + FFT-Sphere (+ Lightning) (+ Vanish) Sehr hübsch integriert! Und du hast den selben (kleinen) Fehler wie ich gemacht: Die Mainvolume ist zwar vom Typ Byte, geht aber nur von 0 bis 127. Alles über 127 ist einfach voll aufgedreht :oops: Da freu ich mich aber, dass der Kleine jetzt ein Rahmenprogramm hat! (Aber das initiale Bild im Visual... *gnarf* ;)) |
Re: Mein kleiner mp3-Player... Updated 13.12.04
hmmm also bei mir zeigt der in der GFX in der zeile:
Code:
Undefinierte bezeichung...
bmp.PixelFS[FDrawDots[i].x+C.x, FDrawDots[i].y+C.y] := FDrawDots[i].color;
dachte zuerst das es ein tippfehler ist aber wenn ich es von PixelFS in PixelS umändere erscheint ein ner fehler "inkompatible typen: 'Integer' und 'Extended'" |
Re: Mein kleiner mp3-Player... Updated 13.12.04
PixelFS ist schon richtig. Hast du die Graphics32-Library installiert? Die ist nämlich zum Kompilieren notwendig - *nachschau* - japp, steht auch im 1. Beitrag ;)
|
Re: Mein kleiner mp3-Player... Updated 13.12.04
Zitat:
|
Re: Mein kleiner mp3-Player... Updated 13.12.04
Hmmm :gruebel: Hast du evtl. was im Code verändert? Bei mir klappt das nämlich. Poste doch mal die ganze Funktion in der die Zeile vorkommt (ich kann's grad nicht identifizieren ;)).
|
Re: Mein kleiner mp3-Player... Updated 13.12.04
Zitat:
Delphi-Quellcode:
procedure TDotSphere.DrawSphere(out bmp: TBitmap32; Source: TBassplayer; color: TColor32; const xRot, yRot, zRot: Double);
var C: TVector; i: Integer; sinX, cosX, sinY, cosY, sinZ, cosZ : Double; h: Integer; sx, sy, sz: Double; fact: Double; ind: Integer; d: Double; begin FFFT := Source.getfftdatalong; C.x := bmp.Width/2; C.y := bmp.Height/2; C.z := 0; sinX := sin(xRot); sinY := sin(yRot); sinZ := sin(zRot); cosX := cos(xRot); cosY := cos(yRot); cosZ := cos(zRot); d := 16*(FMaxRad-FBaseRad); h := (Length(FDrawDots) div 2)-1; for i := 0 to h do begin ind := 2*i+16; if FFFT[ind] < FFFTOld[ind] then FFFT[ind] := FFFTOld[ind]-0.001; fact := FFFT[ind]*d; FDrawDots[i].x := FDots[i].x + (FDots[i].x/FBaseRad)*fact; FDrawDots[i].y := FDots[i].y + (FDots[i].y/FBaseRad)*fact; FDrawDots[i].z := FDots[i].z + (FDots[i].z/FBaseRad)*fact; end; for i := h+1 to Length(FDrawDots)-1 do begin ind := 2*(i-h+1)+17; if FFFT[ind] < FFFTOld[ind] then FFFT[ind] := FFFTOld[ind]-0.001; fact := FFFT[ind]*d; FDrawDots[i].x := FDots[i].x + (FDots[i].x/FBaseRad)*fact; FDrawDots[i].y := FDots[i].y + (FDots[i].y/FBaseRad)*fact; FDrawDots[i].z := FDots[i].z + (FDots[i].z/FBaseRad)*fact; end; for i := 0 to Length(FDrawDots)-1 do begin sx := FDrawDots[i].x; sy := FDrawDots[i].y; sz := FDrawDots[i].z; FDrawDots[i].x := sx*( cosY*cosZ) - sy*(cosY*sinZ) + sz*(sinY); FDrawDots[i].y := sx*( sinX*sinY*cosZ+cosX*sinZ) - sy*(sinX*sinY*sinZ-cosX*cosZ) - sz*(sinX*cosY); FDrawDots[i].z := sx*(-cosX*sinY*cosZ+sinX*sinZ) + sy*(cosX*sinY*sinZ+sinX*cosZ) + sz*(cosX*cosY); FDrawDots[i].color := Lighten(color, trunc(FDrawDots[i].z*3)); bmp.PixelFS[FDrawDots[i].x+C.x, FDrawDots[i].y+C.y] := FDrawDots[i].color; end; Move(FFFT[0], FFFTOld[0], Length(FFFT)*SizeOf(Float)); end; |
Re: Mein kleiner mp3-Player... Updated 13.12.04
Hmmm, kann keinen Fehler sehen. Das Teil kompiliert bei mir klaglos :gruebel:
Hast du evtl. wo anders noch eine globale Variable mit dem Namen "bmp" deklariert? Zwar dürfte es trotzdem keine Probleme geben, da die Unit eigentlich vorzugsweise die eigenen nehmen sollte, und auch keine anderen Units used, aber man weiss ja nie :). (Ja, das Teil ist schrecklich OOP-Unkonform... ich weiss ich weiss 8)) Ansonsten bin ich ratlos. Im Zweifelsfall einfach mal ein ganz neues Projekt anlegen, und per Copy&Paste alles kopieren, und mal kompilieren. Vllt. hilft das ja. Gruss, Fabian |
Re: Mein kleiner mp3-Player... Updated 13.12.04
Zitat:
tja bei dir klaglos bei mir hat er ein problem mit dem PixelFS :( Zitat:
ach eine frage er spielt dir ganze zeit drauf an das "PixelFS" nicht deklariert wurde... muss die das? denke das ist ein ganz normaler befehl an die TBitmap oder irre ich mich stark? |
Re: Mein kleiner mp3-Player... Updated 13.12.04
Liste der Anhänge anzeigen (Anzahl: 1)
Durch den Hinweis von Alexander bin ich auf des Rätsels Lösungs gestoßen. Ihr habt die Version 1.5(.1) der G32-Lib, ich hingegen habe irgendwo her die Version 1.6! Den Downloadlink finde ich allerdings auch nicht mehr.
Aber so wie ich die Lizenz verstanden habe, ist es okay das Archiv weiterzugeben. Von daher hänge ich die Version 1.6 hier mal an. Falls das nicht gewünscht oder gar nicht erlaubt ist, dann bitte eine kurze Nachricht an mich - ich (oder ein Mod ;)) entferne(n) das dann wieder. btw: Was macht TBitmap.PixelFS? Es bietet die Möglichkeit einen Pixel auf Float-Koordinaten zu setzen, und das nötige Antialiasing macht die G32. Eine Funktion die ich unter keinen Umständen missen möchte! :) Gruss, Fabian |
Re: Mein kleiner mp3-Player... Updated 13.12.04
Danke noch mal ;)
Jetzt kann ich die Demo wunderbar kompilieren ;) |
Re: Mein kleiner mp3-Player... Updated 13.12.04
|
Re: Mein kleiner mp3-Player... Updated 13.12.04
super jetzt klappts perfekt ;)
|
Re: Mein kleiner mp3-Player... Updated 13.12.04
:wall: stimmt ja, die sind nach SourceForge gewechselt... Ich vergess es doch immer wieder.
Und: :shock: es gibt ja schon 1.7! *draufstürz* |
Re: Mein kleiner mp3-Player... Updated 13.12.04
hmmm aber beim 1.7er klappt das irgendwie net so mit der sphere... nach dem ablaufen des liedes wird sie nicht "zerstört" (nenn ich das jetzt mal) ich vermute das liegt am 1.7er... da ich den gfx code nicht verändert hab...
könnte man lösen in dem man die sphere genau eine sekunde vor ende des liedes auf false setzt und dann wieder in die normalstellung (entwäder true oder false) das wäre die wohl schnellste methode das zu lösen (aber wohl eine der undschönsten^^) um das mal genauer einzukreisen:
Delphi-Quellcode:
FFFT[ind] := FFFTOld[ind]-0.001;
begin
ind := 2*i+16; if FFFT[ind] < FFFTOld[ind] then FFFT[ind] := FFFTOld[ind]-0.001; fact := FFFT[ind]*d; FDrawDots[i].x := FDots[i].x + (FDots[i].x/FBaseRad)*fact; FDrawDots[i].y := FDots[i].y + (FDots[i].y/FBaseRad)*fact; FDrawDots[i].z := FDots[i].z + (FDots[i].z/FBaseRad)*fact; end; das rote ist die fehlerstelle |
Re: Mein kleiner mp3-Player... Updated 13.12.04
Das gibts doch nicht. Alexander hatte mir genau das selbe Problem per PN geschildert, und ich konnte es binher nicht nachvollziehen. Womit es definitiv problematisch werden kann sind Mono-Files.
Aber ich habe das Teil bisher noch nicht mit der 1.7er G32 getestet! Eventuell liegt's ja tatsächlich daran... Aber das wäre schon nen Hammer, weil eigentlich hat besagte Stelle im ersten Moment nichts mit der G32 zu tun. :gruebel: Das ist mir absolut suspekt - zumal ich diesen Fehler NIE hatte. Und ich habe wirklich ausgiebig getestet. Da aber ihr beide die 1.7er benutzt, und bisher die einzigen wart mit diesem Fehler, hab ich schon schlimmere Befürchtungen :pale: Das wird eine Debug-Orgie. Danke euch für die Hinweise, ich werde dem auch mal nachgehen. Sowas blödes :) Gruss, Fabian |
Re: Mein kleiner mp3-Player... Updated 13.12.04
Zitat:
Zitat:
|
Re: Mein kleiner mp3-Player... Updated 13.12.04
kleiner hinweis meiner seits:
es liegt zu 101% nicht an mono und oder stereo! da ich drei verschiedene lieder ausprobiert hab und alle drei gingen nicht (also der fehler trat auf) ich hab diese lieder dann nochmal abgespielt und zwei von drei gingen gut dann nochmal dann ging nur eins dann wieder zwei dann garkeins etc.pp. der fehler tritt (um es mal vorsichtig auszudrücken: ) "zufällig" auf |
Re: Mein kleiner mp3-Player... Updated 13.12.04
Zitat:
Aber du hast recht (habe ich ja auch schon mal geschrieben :)), dass es auch mit Stereo Liedern teilweise nicht klappt... Ich habe leider immer noch nicht herausgefunden, woran es liegt.... Aber vielleicht hat Dizzy ja was herausgefunden... |
Re: Mein kleiner mp3-Player... Updated 13.12.04
Nope, bisher auch noch nicht :?
Ich kann das Problem beim besten Willen einfach nicht reproduzieren, und hab schon fast aufgegeben weiter zu fahnden. Weil ohne Bug ist Debugging eine harte Nuss ;). Da ich aber ab und an weiter am Player fummel, könnte es ja sein dass ich zufällig darauf stoße. Aber bisher kann ich leider nicht weiter helfen. Sorry. Gruss, Fabian |
Re: Mein kleiner mp3-Player... Updated 13.12.04
Nur interessehalber: Ist das bei
![]() Der Autor ist ein Florian, du (Dizzy) heißt jedoch, laut Profil Fabian. :gruebel: Und dann noch Bewertung: 5.0 :? Nachtrag: Das Copyright des Programms ist auch von Florian, wie es im Programm steht. Nachtrag 2: Achso, es ist Kingflo |
Re: Mein kleiner mp3-Player... Updated 13.12.04
Japp, Flo hatte mein Vis in seinen Player eingebaut. Ist ja auch völlig in Ordnung, solage irgendwo steht: Is von Fabian/dizzy ;). Das tut es imho, wir hatte auch PN-Verkehr dazu.
Die Bewertung führe ich im Übrigen nicht auf das Vis zurück :mrgreen: (Im Ernst: Ich finde das Teil garnicht so schlecht... hab die aktuelle Version aber noch nicht angefasst.) |
Re: Mein kleiner mp3-Player... Updated 13.12.04
Achso, war jetzt auch nichts gegen Kingflo, das wusste ich erst gar nicht. ich dachte nur, weil du nirgendwo erwähnt bist, nicht mal im Copyright.
|
Re: Mein kleiner mp3-Player... Updated 13.12.04
Oh, da muss ich aber dann mal schauen... Das fände ich dann nämlich nicht so gelungen. Thx!
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:11 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz