Datei öffnen mit TOpenDialog

[DeddyH]

Hmm... auf den ersten Blick kann ich keinen Fehler entdecken. :gruebel:

[edit]Versuch es mal so:

Delphi-Quellcode:

procedure TForm4.Button1Click(Sender: TObject);
var i : integer;
begin
   for i := 0 to listbox1.Count - 1 do
     if listbox1.Selected[i] then 
       begin
         PlayFile(i);
         exit;
       end;
    showmessage('ERROR: Musiktitle wählen');
end;

[/edit]

[Die Muhkuh]

Delphi-Quellcode:

procedure TForm4.Button1Click(Sender: TObject);
var i : integer;
begin
  TRY
   for i := 0 to listbox1.Count - 1 do
     if listbox1.Selected[i] then 
     begin;
       PlayFile(i);
       Break;
     end;
   EXCEPT
    showmessage('ERROR: Musiktitle wählen');
  END;
end;

[SaFu]

Setz dein listen index der Listbox im Oi auf 1 und im code auch

[Die Muhkuh]

Zitat:

Zitat von fuknersascha

Setz dein listen index der Listbox im Oi auf 1 und im code auch

Was soll das bringen?

[DeddyH]

*Hehe* Manuel hat denselben Verdacht wie ich ;)

[Die Muhkuh]

Zitat:

Zitat von DeddyH

*Hehe* Manuel hat denselben Verdacht wie ich ;)

Wie immer Detlef ;-)

[Andy-h]

Also es geht mit beiden varianten nicht :cry:

Wo im code auf 1 stellen?

das drag und drop sieht so aus:

Delphi-Quellcode:

Procedure TForm4.WMDropFiles (Var aMsg: tMessage);
Var
  Idx, Size, FileCount: Integer;
  Filename: pChar;
Begin
  Inherited;
  FileCount := DragQueryFile (aMsg.WParam, $FFFFFFFF, nil, 255);
  For Idx := 0 To FileCount -1 Do Begin
    Size := DragQueryFile (aMsg.WParam, Idx, nil, 0) + 1;
    Filename := StrAlloc (Size);
    If DragQueryFile (aMsg.WParam, Idx, Filename, Size) = 1 Then  { nothing }
    else  AddToPlayList (pChar (Filename)); // hier wird das jeweilige file unserer Prozedur AddToPlaylist überwiesen.
    StrDispose (Filename);
  End;
  DragFinish (aMsg.WParam);
End;

Procedure TForm4.AddToPlayList(s:string);
begin
   playList.Add(s);
   ListBox1.Items.Add(extractfilename(s));
end;

[Die Muhkuh]

Hi,

Du möchtest das selektierte Lied abspielen, richtig?

Versuch mal das:

Delphi-Quellcode:

procedure TForm4.Button1Click(Sender: TObject);
begin
  PlayFile(ListBox1.ItemIndex);
end;

[Andy-h]

ja das soll gespiel werden

kommt immer noch der fehler:
Im Projekt MP.exe ist der Klasse EStringListError mit der meldung "Listindex überschreitet das
Maximum (0)" aufgetreten.

wenn ich die Lieder rein ziehe gehen alle codes nur über öffnen nicht.

[DeddyH]

Ist denn überhaupt ein Item selektiert?