Hallo zusammen
ich habe einen etwas anderen Mediaplayer programmiert.
Also er funktioniert so: Man kann einen Listennamen, den Songnamen und dan Pfad speichern(ini). Dann kann man einfach den Listenamen und die SongNr eingeben und es wird das Lied abgespielt. Er kann(bis der Aufbau des Progs funktioniert) nur Wave abspielen.
Jetzt möchte ich, dass die gespeicherten Songnamen in einer Listbox angezeigt werden. Dafür brauche ich bei jeder Liste die höchste songnummer. Dazu verwende ich eine Variable LastNr, die ich in der gleichen Sektion speichere. Beim Anzeigen der Liste aber ist dieser Wert immer Null, obwohl ich 2 Songs gespeichert habe.
So sieht der Code aus:
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var i : Integer;
begin
ini := TIniFile.Create ('c:\Media1.ini');
try
LastNr := ini.ReadInteger(Liste, 'LastNr', 0);
Edit5.Text := intToStr(LastNr);
for i := 0 to LastNr do
begin
Name := ini.ReadString(Liste,IntToSTr(i), '');
Sleep(100);
ListBox1.Items.Add(Name);
end;
finally
ini.Free
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
LastNr := 0;
Nr := 1;
ini := TIniFile.Create('c:\media1.ini');
try
Liste := ini.ReadString('LastListe', 'Liste', '1')
finally
ini.Free
end;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ini := TIniFile.Create('c:\media1.ini');
try
ini.WriteString('LastListe', 'Liste', Liste);
finally
ini.Free
end;
end;
procedure TForm1.OButton1Click(Sender: TObject);
begin
ini := TIniFile.Create ('c:\Media1.ini');
try
Name := ini.ReadString(Liste,IntToStr(Nr), '');
Pfad := ini.ReadString(Liste, 'Pfad','' )
finally
ini.Free
end;
PlaySound(PAnsiChar(Pfad +Name + '.wav'), 0, SND_ASYNC);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ini := TIniFile.Create ('c:\Media1.ini');
try
Nr := StrToInt(Edit2.Text);
LastNr := ini.ReadInteger(Liste, 'LastNr', 0) ;
if Nr > LastNr then ini.WriteInteger(Liste, 'LastNr',LastNr);
Liste := Edit1.Text;
ini.WriteString(Liste,IntToStr(NR),Edit3.Text); // Songname
ini.WriteString(Liste, 'Pfad', Edit4.Text);
finally
ini.Free
end;
end;
Noch ein Teil der Ini:
[Matrix]
1=Matrix
2=Matrix2
Pfad=C:\Dokumente und Einstellungen\Marcel\Eigene Dateien\Eigene Musik\The Matrix\
LastNr=0
Kann mir jemand helfen?
Ich danke für jede Hilfe!
Mit freundlichen Grüsse
Marcel