Mp3 bzw "playlist" mit Player (bassplayer) öffnen

[Syko]

Hallo liebe , Delphi-Praxis Gemeinde.

Leider bin ich noch ein Anfänger in Delphi

doch vage ich mich schon einiges und bin seit gestern

hier dran:

for i:=0 to paramcount -1 do begin
//mp3list.Items.Add(ChangeFileExt(ExtractFileName(pa ramstr(1)),''));
// pl.Add(paramstr(1));
mp3list.Items.LoadFromFile(paramstr(1));
pl.LoadFromFile(paramstr(1));

end ;

am basteln ....
Dieser Code befindet sich in FormCreate event, doch sobald ich eine datei damit öffne zeigt er sie auch an , auch wenn ich will ohne pfad (Mp3list) , aber er gibt beim start ein Error!

Also der player blockt dann komplett , wie gesagt er lädt es alles gut !!

Hier einmal mit ner MP3 !

if fileexists(paramstr(1)) then
begin


iD3.FileName:= paramstr(1);
iD3.Active:=True;
showmessage(paramstr(1));
if not(id3.Artist = '') and not (id3.SongName = '') then
mp3list.Items.Add(id3.Artist+' - '+id3.SongName) else mp3list.Items.Add(ExtractFilename(ChangeFileExt(pa ramstr(1),'')));

// Leider macht er garnichts von beiden ,bzw auch laden tut er es und erkennt auch pfad alles , aber auch da gibt er ein error!!
Egal ob ich "Add" oder LoadFromFile() benutze!

mp3list.Items.LoadFromFile(paramstr(1));
pl.LoadFromFile(paramstr(1));
id3.Active:=false;
end;


Ich weis der Code ist nicht der beste wie gesagt bin anfänger erstrecht bei sowas , da es denke ich eig nicht unbedingt ne function für anfänger ist ^^ !!

Würd mich echt über hilfe freuen

PS: "Drag And Drop" sprich "vom desktop liegende "mp3/wave" in die listbox ziehen" wer da evtl was beitragen kann , würde mich freuen!!!

[danu1104]

In TForm.OnCreate Event liegt es schon einmal falsch, du musst es wenn überhaupt im TForm.OnShow Event abfragen. Dann könnte es auch funktionieren Um deine frage etwas übersichtlicher zu gestalten, nutze doch mal das:


// [ DELPHI ] Dein Code hier ;-)[ / DELPHI] Versuche es mal und gebe bescheid wenn alles ok ist oder nicht.

[Syko]

Also es klappt nun , es lag nicht an dem Event .

Es lag am "Sskinmanager" den ich im "Create"-Event mit geladen habe sprich skins ect....


Naja ...

Nun läuft es wie ich möchte !!

Doch eine weitere Frage habe ich ..


Wie ist es mir möglich "Eine weitere "Datei" / Mp3 zu öffnen" ohne das ein NEUER Player aufgeht...

Und wie kann ich ebenfalls mehreredateien makieren und "Enter" klicken ohne das sich auch da für jedes lied ein Player öffnet!

Ich kann zwar mehrere Mp3's nehmen und auf die "exe" ziehen das geht !! Sie aber nicht alle samt per klick bzw enter wiedergeben!!


Jemand nen rat?

[danu1104]

Delphi-Quellcode:

unit stopmultiplerun;

interface

implementation

uses windows,Dialogs,sysutils;

var mHandle: THandle;
 Initialization
  mHandle := CreateMutex(nil,True,'DEIN PROGRAMMNAME');
  if GetLastError = ERROR_ALREADY_EXISTS then
  begin
    Halt;
  end;

finalization 
 if mHandle <> 0 then
  CloseHandle(mHandle);
end.

Hiermit kannst du verhindern das die Anwendung mehr als einmal verwendet bzw gestartet wird.

[Syko]

Geht irgendwie nicht ! Der öffnet trotzdem weiter ^^ bin wohl zu doof dafür lach !!

Naja ^^ mit playliste auch komisch , entweder ich kann NUR mp3 öffnen oder nur playlists ^^ aber beides no way und wenn dann zeigt er die dateinamen oder id3 tags an "Id3#" .. ^^

UPDATE: Ich glaube Delphi ist für mich nicht gemacht lach , vielleicht muss ich doch lieber bei den WebSprachen bleiben