Mediaplayer..Playlist mit drag&drop funktion

[ily.94]

Hey ich nochmal


Also ich habe mir einen Mediaplayer mit hilfe von http://www.krazz.net/retnyg/tut/mptut1.htm]diesem Tut hier zusammen gestellt....[/url]

JEtz möchte ich aber noch: das die EInträge beim nächsten Programmstart noch in der Playliste eingetragen sind .....und ich möchte, dass nur der name der Datei angezeigt wird...Die einträge soll man aber auch wieder löschen können...
Wäre sehr sehr sehr dankbar

DANKE

[DeddyH]

Da die Playlist eine Stringliste ist, kannst Du sie ganz einfach mit

Delphi-Quellcode:

Playlist.SaveToFile(Dateiname)

abspeichern und beim nächsten Start mit

Delphi-Quellcode:

Playlist.LoadFromFile(Dateiname)

wieder laden. Den Dateinamen alleine bekommst Du mit

Delphi-Quellcode:

ExtractFileName(Pfadangabe)

Und einen Eintrag aus einer Stringliste löschen kannst Du mit

Delphi-Quellcode:

Playlist.Delete(Index)

Zu den genannten Befehlen bekommst Du in der OH sicherlich weitere Infos :zwinker:

[ily.94]

ICh hab nochmal ne frage dazu wie ich den Dateinamen alleine da stehen lasse undzwar:
meine Playlist einträge werden ja durch Drag&Drop hinzugefügt.. is das trozdem möglich?

[DeddyH]

Dazu müsstest Du IMHO 2 Listen führen: eine mit den kompletten Pfadangaben (im Speicher, TStringList) und eine mit den Dateinamen (zum Anzeigen, Listbox.Items).

[ily.94]

ALso das mit den 2 listen versteh ich leider net ganz...
und das mit SavetoFile und LoadfromFile funktioniert i-wie net...
ich weiß echt net weiter

[DeddyH]

Was ist denn an SaveToFile und LoadFromFile so schwer zu verstehen? Das sind doch nur Einzeiler *koppschüttel* :gruebel: Also, wie die Namen schon erahnen lassen, speichert SaveToFile den Inhalt der Stringliste in der angegebenen Datei und LoadFromFile lädt den Inhalt aus der Datei. Und mit den 2 Listen meinte ich: Du hast Deine Playlist, die die vollständigen Dateinamen enthält, Diese wird gespeichert/geladen. Und für die Anzeige nimmst Du z.B. eine ListBox, bei der Du die Pfadangaben in den jeweiligen Items mit ExtractFileName "abschneidest".

[ily.94]

wohin müssen denn die beiden ??? in einem CLose Button oder bei Ondestroy? ..Oncreate? Speichern Button??

[lbccaleb]

um die playlist beim start des programms wieder zu laden füge sie in oncreate ein, um sie beim beenden des programmes zu speichern, füge savetofile im onclose ein...

[ily.94]

OKK



Aber muss nicht erst diese Ini oder db datei erstellt werden

[lbccaleb]

die erstellt er automatisch beim speichern, du solltest vllt nur noch ne abfrage mit einbauen beim laden des programms ob die liste existiert bsp:

Delphi-Quellcode:

if fileexists('deineplaylis.txt') then
  begin;

  end;

[ily.94]

OKay..das mit dem speichern klappt... nur das laden i-wie nicht ich habs auch schon separat mit einem Button versucht es geht nicht... liegt es vllt. daran das ich nicht eine txt sondern eine ini datei benutze

[Fussball-Robby]

Hier ist ein Ini-Tutorial, guck dir das mal an :wink:

Mfg

[DeddyH]

Benutzt Du TIniFile, oder hat die Datei nur die Endung *.ini?

[ily.94]

die endung heißt nur *.ini aber ich habs jetz alles in *.txt es funktioniert immer noch nicht

[DeddyH]

Zeig mal den Code.

[ily.94]

der is aber ziemlich kaputt(unübersichtlich,nicht geordnet)

[DeddyH]

Der zum Laden und Speichern der Playlist genügt^^.

[lbccaleb]

Zitat:

Zitat von ily.94

der is aber ziemlich kaputt(unübersichtlich,nicht geordnet)

das macht nichts ;-)

[ily.94]

Delphi-Quellcode:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Playlist.SaveToFile('MPPLAYLIST.txt');
end;

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
DragAcceptFiles (Handle, True);
PlayList:= TStringList.Create;
If fileexists('MPPLAYLIST.txt') then
PlayList.LoadFromFile('MPPLAYLIST.txt');
end;

[DeddyH]

Definiere den Namen mal als Konstante und gib einen vollen Pfad an.

[ily.94]

den namen als konstante angeben???^^

wie?

[lbccaleb]

oder er hat sie nicht gespeichert, weil du vllt die nötigen zugriffsrechte nicht hast, und sonnst wie deddyh schon sagte, komlpetten pfad angeben..

[DeddyH]

Delphi-Quellcode:

const PLFile = 'C:\Playlist.txt';

...

if FileExists(PLFile) then
  Playlist.LoadFromFile(PLFile);

...
PlayList.SaveToFile(PLFile);

Das schließt die Möglichkeit von Tippfehlern schonmal aus.

[ily.94]

okay ich machs mal....

......
es funktioniert trozdem net

[Jeopardize]

Was genau funktioniert den nicht?
Bekommst du einen Fehler beim Compilieren oder eine Exception?

[DeddyH]

Häng das Projekt mal an, sonst kommen wir wohl nicht weiter.

[ily.94]

OKay werde ich

[Jeopardize]

Das Playlist.SaveToFile gehört ins OnClose.
Im OnDestroy funktioniert es nicht.

[DeddyH]

Ich habe die Unit ein bisschen erweitert (in *.pas umbenennen).

[ily.94]

habs geändert..das problem liegt aber nicht am speichern es leigt am laden





deddyh... was bringt das ^^? ich weiß es echt nich

[DeddyH]

Was bringt was?

[ily.94]

naa die Unit1 in *.pas úmzubenennen

[Fussball-Robby]

Er hat dir eine erweiterte Unit an seinen Beitrag angehangen, diese hat aber die Endung .txt & du sollst sie runterladen, in Unit1.pas umbenennen und die alte damit ersetzen.

[DeddyH]

Du solltest Deine Unit durch die gepostete ersetzen ^^. Aber ich habe noch eine Erweiterung eingebaut, nimm lieber diese hier.

[ily.94]

ALSO DANKE AN ALLEEEEEE HELFER ich habs endlich geschaftt

ich hatte nur die stringlist (playlist geladen) die playlist ist aber nicht die listbox, also die ausgabe


das hab ich verbessert dankeeee ann alle großen dank

[DeddyH]

Zitat:

Zitat von ily.94

ich hatte nur die stringlist (playlist geladen) die playlist ist aber nicht die listbox, also die ausgabe

Das war mir auch schon aufgefallen :lol:

Zitat:

Delphi-Quellcode:

      for i := 0 to playlist.Count - 1 do
        listbox1.items.Add(extractfilename(playlist[i]));

      listbox1.Items.LoadFromFile(PlaylistFile);

Das ist aber Quatsch. Lass die letzte Zeile mal weg.

[ily.94]

Okay großen dank.... das war anscheinend leider ein fehler von Tutorial den ich am anfang erwähnte.... trozdem vielen dank ich werde mein Projekt nochmal gründlich aufbesserrn und nochmal am ende posten










DANKE und bye gehe jetz mal schlafen

[Blackheart]

Zitat:

Zitat von ily.94

Okay großen dank.... das war anscheinend leider ein fehler von Tutorial den ich am anfang erwähnte.... trozdem vielen dank ich werde mein Projekt nochmal gründlich aufbesserrn und nochmal am ende posten
DANKE und bye gehe jetz mal schlafen

Das hast du wahrscheinlich eher selbst verzappft. :wink:

[ily.94]

Zitat:

Zitat von Blackheart

Das hast du wahrscheinlich eher selbst verzappft. :wink:

NEIN ehrlich ich habs genau so wie im Tutorial gemacht...alles genau nachgemacht...
.. jetz kommen wir nurnoch zu meinem letztem Problem...wie kriege ich es hin das nur die namen und nicht die Pfade der Dateien in der Box angezeigt wird

[bitsetter]

Zitat:

Zitat von DeddyH

Zitat:

Zitat von ily.94

ich hatte nur die stringlist (playlist geladen) die playlist ist aber nicht die listbox, also die ausgabe

Das war mir auch schon aufgefallen :lol:

Zitat:

Delphi-Quellcode:

      for i := 0 to playlist.Count - 1 do
        listbox1.items.Add(extractfilename(playlist[i]));

      listbox1.Items.LoadFromFile(PlaylistFile);// kannst du dir sparen

Das ist aber Quatsch. Lass die letzte Zeile mal weg.

Hallo,

hast du die letzte Zeile schon entfernt, sonst werden die Pfade in der Liste wieder mit angezeigt.