Mediaplayer

[Gregg]

Hallo,
Ich hab hier meinen Mediaplayer, der noch verbessert wern soll.
Also bräucht ich maln paar Tester und Verbesserungsvorschläge.
Thx @ all

[toms]

Hallo,

Dein Mediaplayer erfuellt wohl den Zweck: Er spielt z.B Mp3s ab.
Aber das Design finde ich etwas eigenartig (Farben, Schriften usw)

[Matze]

Gefällt mir zwar überhaupt nicht, aber was benutzt du zum Abspielen?

Lediglich TMeadiaplayer oder bass.dll & Co?

[Gregg]

(Noch) den TMediaplayer
Wär nett wenn mal einer erklärn könnte, wie ich die FMod einbinden kann..
thx

[Matze]

FMod?

Nimm doch die bass.dll. Die eignet sich hervoragend, sogar Visualisierungen sind möglich.

[Gregg]

Tut mir leid aber ich blick das überhaupt nicht mit der Bass.dll etc.
Da ziemlich viel Leute über mein design gemeckert ham, hab ich mich entschlossen euch eure
eigenen skins machen zu lassen.
Forschtn bisschen im hauptmenu rum und ihr werdet sehn..

P.s.: Bei mir kommt seit dieser Verbesserung 'n Access Violation Error bei folgender Prozedur:

Delphi-Quellcode:

procedure Einstellungen_laden(lautstaerke:TTrackbar;playlistnamen,Skin1,Skin2:TMenuItem;
Form1:Tform;label1,label3,label4,label5,label6,label7,label8:Tlabel;title,artist,comment,year,
album:TEdit;Genre:TCombobox;memo1:TMemo;listbox1:TListbox;Gauge1:TGauge;StaticText1,StaticText2:TStaticText);
var Was:Einstellungen;
    f:file of byte;
    skin:string;
begin
{hier iss der Error} if fileexists('c:\Mediaplayer_System\mediaplayer.ini') then
begin
  AssignFile(f, 'C:\Mediaplayer_System\mediaplayer.ini');
  Reset(f);
  BlockRead(f,Was,FileSize(f));
  CloseFile(f);
  Form1.color:=Was.Color;
  label1.font:=Was.Font_ue;
  label3.font:=Was.Font_ue;
  label4.font:=Was.Font_ue;
  label5.font:=Was.Font_ue;
  label6.font:=Was.Font_ue;
  label7.font:=Was.Font_ue;
  label8.font:=Was.Font_ue;
  label1.font.color:=Was.color_ue;
  label3.font.color:=Was.color_ue;
  label4.font.color:=Was.color_ue;
  label5.font.color:=Was.color_ue;
  label6.font.color:=Was.color_ue;
  label7.font.color:=Was.color_ue;
  label8.font.color:=Was.color_ue;
  StaticText1.font:=Was.Font_ue;
  StaticText2.font:=Was.Font_ue;
  StaticText1.font.color:=Was.color_ue;
  StaticText2.font.color:=Was.color_ue;
  title.color:=Was.color;
  artist.color:=Was.color;
  comment.color:=Was.color;
  year.color:=Was.color;
  album.color:=Was.color;
  Genre.color:=Was.color;
  title.color:=Was.color;
  artist.color:=Was.color;
  comment.color:=Was.color;
  year.font:=Was.Font_ue;
  album.font:=Was.Font_ue;
  Genre.font:=Was.Font_ue;
  title.font.size:=8;
  artist.font.size:=8;
  comment.font.size:=8;
  year.font.size:=8;
  album.font.size:=8;
  Genre.font.size:=8;
  memo1.font.size:=8;
  listbox1.font:=Was.Font_ue;
  listbox1.color:=Was.color;
  memo1.color:=Was.color;
  title.font.color:=Was.Color_sch;
  artist.font.color:=Was.Color_sch;
  comment.font.color:=Was.Color_sch;
  year.font.color:=Was.Color_sch;
  album.font.color:=Was.Color_sch;
  Genre.font.color:=Was.Color_sch;
  memo1.font.color:=Was.Color_sch;
  listbox1.font.color:=Was.Color_sch;
  Gauge1.Color:=Was.color;
  Gauge1.Forecolor:=Was.color;
end;

Sorry ihr müsstet natürlich au noch wissn was Einstellungen is, also:

Delphi-Quellcode:

type
    Einstellungen = record
     Lautstaerke : integer;
     Skin : string[1];         {Buttons}
     playlistnamen : boolean;  {Vollst. Namen anzeigen?}
     Color : Tcolor;           {Hintergrund}
     Color_ue : Tcolor;        {Ueberschriftenfarbe}
     Color_sch : Tcolor;       {Schriftfarbe}
     Font_ue : TFont;          {Schriftart(Ueberschriften)}
     Font : TFont;             {Schriftart(Normalschriften)}
    end;

[Matze]

Arbeite mal irgendwie mit FindComponent oder so, der Code ist ja schrecklich.

[Luckie]

Warum ist deine Prozedur keine Methode deiner TForm-Klasse? Dann ersparst du dir diese elendig lange Paramterliste.

Delphi-Quellcode:

AssignFile(f, 'C:\Mediaplayer_System\mediaplayer.ini');

Es gibt bei mir weder den Ordner noch die Datei. Sollte dein Programm bei mir selbigne versuchen anzulegen, dürfte das auchnicht funktionieren, da ein einfacher Benutzer keine Schreibrechte bei mir auf C: hat.

[Kernel32.DLL]

Delphi-Quellcode:

procedure Einstellungen_laden(lautstaerke:TTrackbar;playlistnamen,Skin1,Skin2:TMenuItem;
Form1:Tform;label1,label3,label4,label5,label6,label7,label8:Tlabel;title,artist,comment,year,
album:TEdit;Genre:TCombobox;memo1:TMemo;listbox1:TListbox;Gauge1:TGauge;StaticText1,StaticText2:TStaticText);

:shock: :shock: Was is'n das für'n riesen Procedure-Header??

Zitat:

Tut mir leid aber ich blick das überhaupt nicht mit der Bass.dll etc.

Hier bekommste die BASS.DLL! Da sind auch wunderbare Demos mit bei.

[Gregg]

@ kernel32 thx, aber auf der Site war ich schon sehr oft; Ich weiß nur nicht wo ich die bass.dll und so einbinde, wo ich sie hinspeichern muss, damit delphi sie auch findet und wie man damit umgeht.

@ Luckie Daran hatte ich garnicht gedacht. Habt ihr vielleicht nen Vorschlag, wo ich die Einstellunegn speichern kann, auch wenn man nur eingeschränkte Rechte besitzt? Und wie erstellt man eine neue Methode für ein Objekt?

@ Matze Danke für deine Mithilfe, aber >>FindComponent indicates whether or not a given component, AName, is owned by the component.<< Also es überprüft nur ob eine Komponente zu einer anderen gehört :gruebel: oder so :mrgreen:.
Außerdem soll man ja unterschiedliche Farben für unterschiedliche Bereiche einstellen können.


So erstma geschafft.
Soviel sei gesagt: Ihr seid echt spitze; in anderen Foren bin ich bis jetzt auf nicht soviel Resonanz gestoßen :dp:
Ich werd jetz erstma ausspannen. Bin noch bis 16:45 für Verbesserungen zu haben :wink:
:duck:

[idontwantaname]

also, wenn ich deinen player starte, dann bekomme ich eine fehlermeldung (siehe fehler1.png)
jedoch kann ich dann lieder ohne probleme abspielen

und wenn ich das programm beenden will, dann kommt wieder eine fehlermeldung (fehler2.png)
und ich kann das programm nur durch das raushauen des prozesses beenden

die bass.dll muss dem programm beiliegen, sprich im selben ordner sein :wink:

[edit]nicht alle leute haben ein c: , wie ich z.b., also wäre nett, wenn du da ein wenig flexibler sein könntest

[Gregg]

Also vonnem PC ohne C: hab ich au noch net viel gehört *g*..
aber danke für deine hilfe; wassn dein OS?

[Gregg]

:coder: ...
So neues Icon; dynamische Erstellsequenz des Mediaplayer_System Ordner

P.S.: Wie kann man in Delphi 3 Ordner und Unterordner, sowie alle enthaltenen Dateien löschen?

Sorry Anhang vergessen :wall:

[idontwantaname]

Zitat:

Zitat von Gregg

Also vonnem PC ohne C: hab ich au noch net viel gehört *g*..
aber danke für deine hilfe; wassn dein OS?

win xp

bei einer neuinstallation, wegen kaputten partitionstabellen (hab linux mal ausprobiert, leider hat windows danach nimmer gebootet), hat der mir einfach den laufwerksbuchstaben I gegeben

[Gregg]

:?
Hallo is noch jemand da?
:(