2 spørgsmål til delphi

Du skal lave et nyt object:

type
  TMusikFil = class(TObject)
    Filename: string;
    Filelocation: string;
  end;


//Open ny fil
var
  mp3: TMusikFil;
begin
  if opendialog1.execute then
begin
  mp3 := TMusikFil.create;
  mp3.filename := extractfilename(opendialog1.filename);
  mp3.Filelocation :=opendialog1.filename;
  ListBox1.Items.AddObject(MP3.Filename, MP3)
end;
end;


//Når der skal playes
var
  mp3: TMusikFil;
begin
  mp3 := Pointer(Listbox1.Items.Objects[Listbox1.ItemIndex]);
//  medieplayer.filename := mp3.filename;
end;

skulle jo være:

var
  mp3: TMusikFil;
begin
  mp3 := Pointer(Listbox1.Items.Objects[Listbox1.ItemIndex]);
//  medieplayer.filename := mp3.Filelocation;
//  mediaplayer.play;
end;

Hvor skal type

  TMusikFil = class(TObject)
    Filename: string;
    Filelocation: string;
  end;

stå henne i koden?

du kan fx sætte den efter uses

Nu har jeg sat det hele op, men når jeg markere en fil i listen og trykker på afspil kommer den med list index out of bounds (-1) Hvad er det??

hvordan ser din afspil kode ud?

det er den du har skrevet 12/10-2002 11:42:53. Jeg tror også jeg er ovre det problem, for nu når jeg trykker på play skriver den "no MCI device open" Hvad er det så

var
  mp3: TMusikFil;
begin
  mp3 := Pointer(Listbox1.Items.Objects[Listbox1.ItemIndex]);
MediaPlayer1.Filename := mp3.Filelocation;
MediaPlayer1.DeviceType := dtAutoSelect;
MediaPlayer1.Open;
MediaPlayer1.Play;
end;

Yes så virker det. Og det der "list index out of bounds (-1)" Det er hvis man ikke har valgt en fil i listen. Kan man ikke sætte den til at give en besked hvis der ikke er markeret nogen fil?

var
  mp3: TMusikFil;
begin
if Listbox1.ItemIndex = -1 then exit;
  mp3 := Pointer(Listbox1.Items.Objects[Listbox1.ItemIndex]);
MediaPlayer1.Filename := mp3.Filelocation;
MediaPlayer1.DeviceType := dtAutoSelect;
MediaPlayer1.Open;
MediaPlayer1.Play;
end;

nu gør den bare ingenting hvis der ikke valgt noget

ok. Jeg smider lige nogle flere points i til dig hvis du kan hjælpe mig med hvordan man bruger spol fre og tilbage knaperne, sådan at når jeg trykker på en knap så skifter den til næste sang.

jeg mener du kan gøre sådan her:

//Tilbage Knap
if Listbox1.ItemIndex = 0 then exit;
Listbox1.ItemIndex := Listbox1.ItemIndex-1;
try
MediaPlayer1.stop;
except
end;
Play.Click;//Kører koden fra sidst


//Next Knap
if Listbox1.ItemIndex = Listbox1.items.count then exit;
Listbox1.ItemIndex := Listbox1.ItemIndex+1;
try
MediaPlayer1.stop;
except
end;
Play.Click;//Kører koden fra sidst

den kan ikke lide play i play.click;

Nej du skal skrive navnet på den knap som koden fra sidst blev brugt på

nu er det bare click der kommer med fejl

okay lav en ny procedure som hedder:

Procedure PlaySelected;
var
  mp3: TMusikFil;
begin
if Listbox1.ItemIndex = -1 then exit;
  mp3 := Pointer(Listbox1.Items.Objects[Listbox1.ItemIndex]);
try
MediaPlayer1.stop;
except
end;
MediaPlayer1.Filename := mp3.Filelocation;
MediaPlayer1.DeviceType := dtAutoSelect;
MediaPlayer1.Open;
MediaPlayer1.Play;
end;

//På Play knap
PlaySelected;

//Next Knap
if Listbox1.ItemIndex = Listbox1.items.count then exit;
Listbox1.ItemIndex := Listbox1.ItemIndex+1;
PlaySelected;

//Back Knap
if Listbox1.ItemIndex = 0 then exit;
Listbox1.ItemIndex := Listbox1.ItemIndex-1;
PlaySelected;

nu virker det slet ikke. Nu komemr den med fejl fra listbox1 mediaplayer1

prøv at kør den uden delphi's debugger

hvordan gør man det?

istedet for at trykke play som du nok gør. Går du der ud hvor du har gemt dit project og kører den exe fil

Det virker ikke. Den skal da også først bygge denne exe fil, og det gør den jo først når man trykker på play eller compiler

"virker ikke" det kan man ikke bruge til at finde en fejl med. Og ja den skal bygges med compile. Men prøv at køre den manuelt når den er bygget

Det er jo det jeg siger at den ikke kan. Når man vil compile så kommer den med de fejl og stopper

okay hvad siger den så?

[Error] Unit1.pas(58): Undeclared identifier: 'mp3list'
[Error] Unit1.pas(61): Undeclared identifier: 'MediaPlayer1'
[Error] Unit1.pas(61): Missing operator or semicolon
[Error] Unit1.pas(64): Missing operator or semicolon
[Error] Unit1.pas(65): Missing operator or semicolon
[Error] Unit1.pas(66): Missing operator or semicolon
[Error] Unit1.pas(67): Missing operator or semicolon
[Error] Unit1.pas(108): Undeclared identifier: 'Listbox1'
[Error] Unit1.pas(119): Statement expected but 'PROCEDURE' found
[Error] Unit1.pas(121): Undeclared identifier: 'Listbox1'
[Error] Unit1.pas(128): Statement expected but end of file found
[Error] Unit1.pas(31): Unsatisfied forward or external declaration: 'TForm1.Timer1Timer'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'C:\Programmer\Borland\Delphi6\Projects\Unit1.pas'

Der er fordi at du skal skrive

...
Private
  Procedure PlaySelected;

...


Procedure Form1.PlaySelected;
var
  mp3: TMusikFil;
begin
if Listbox1.ItemIndex = -1 then exit;
  mp3 := Pointer(Listbox1.Items.Objects[Listbox1.ItemIndex]);
try
MediaPlayer1.stop;
except
end;
MediaPlayer1.Filename := mp3.Filelocation;
MediaPlayer1.DeviceType := dtAutoSelect;
MediaPlayer1.Open;
MediaPlayer1.Play;
end;

Hvor helt nøjagtig skal Procedure Form1.PlaySelected;
var
  mp3: TMusikFil;
begin
if Listbox1.ItemIndex = -1 then exit;
  mp3 := Pointer(Listbox1.Items.Objects[Listbox1.ItemIndex]);
try
MediaPlayer1.stop;
except
end;
MediaPlayer1.Filename := mp3.Filelocation;
MediaPlayer1.DeviceType := dtAutoSelect;
MediaPlayer1.Open;
MediaPlayer1.Play;
end;

stå?

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
    Procedure PlaySelected; //******
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

Procedure Form1.PlaySelected; //******
var
  mp3: TMusikFil;
begin
if Listbox1.ItemIndex = -1 then exit;
  mp3 := Pointer(Listbox1.Items.Objects[Listbox1.ItemIndex]);
try
MediaPlayer1.stop;
except
end;
MediaPlayer1.Filename := mp3.Filelocation;
MediaPlayer1.DeviceType := dtAutoSelect;
MediaPlayer1.Open;
MediaPlayer1.Play;
end;


end.

virker stadigvæk ikke. Den kommer med samme fejl

og hvad hedder din form?

form1

hvis du har gjort det rigtigt skulle det ikke give fejl. Det kan ikke passe du får samme fejl efter den ændring der.

Nu virker det hele som det skal, men jeg skal lige have noget på spm 2 inden jeg lukker.

2)

uses inifiles;

//Gem
var
ini : TInifile;
i:integer;
mp3: TMusikFil;
begin
ini := Tinifile.create(extractfilepath(application.exename)+'settings.ini');

For i := 0 to listbox1.items.count-1 do
begin
mp3 := Pointer(Listbox1.Items.Objects[I]);
ini.writestring('LIST', inttostr(I), mp3.Filelocation);
end;
ini.free;
end;


//Load
var
ini:tinifile;
st:tstringlist;
i:integer;
mp3: TMusikFil;
begin
ini := Tinifile.create(extractfilepath(application.exename)+'settings.ini');
st:=tstringlist.Create;
ini.ReadSectionValues('LIST', st);
for i := 0 to st.count-1 do
begin
  mp3 := TMusikFil.create;
  mp3.filename := extractfilename(st.lines[I]);
  mp3.Filelocation :=st.lines[I];
  ListBox1.Items.AddObject(MP3.Filename, MP3);
end;
end;

det er ikke testet så du må jo sige hvis det giver problemer

den eneste fejl der kommer er med disse linier:

  mp3.filename := extractfilename(st.lines[I]);
  mp3.Filelocation :=st.lines[I];

Den siger
[Error] Unit1.pas(150): Undeclared identifier: 'lines'
[Error] Unit1.pas(151): Undeclared identifier: 'lines'

mp3.filename := extractfilename(st[I]);
mp3.Filelocation :=st[I];

Så siger jeg mange tak

Nu er den ligepludselig begyndt at sige "der opstod en fejl under initialiseringen af MCI" Hvad er der galt der? Jeg har tjækket at koden er som den skal være og det vil jeg mener den er.

med mediaplayer er det meget vigtigt at man altid får den stoppet inden man forsøger at åbne en ny.

du kan bruge dette hver gang du skal skifte sang:

try
MediaPlayer1.stop;
except
end;

det står der jo allerede under Procedure TForm1.PlaySelected;

ja det ved jeg.

prøv at sætte:

try
MediaPlayer1.close;
except
end;

ind ved siden af. Problemet er at jeg ikke ved om den når at udføre det før den forsøger at åbne en ny sang

Det virker stadigvæk ikke... Eller hvor helt nøjagtigt skal det stå?

inden den forsøger at åbne en ny sang

nu har jeg prøvet at indsætte det overalt men ligelidt hjælper det

virkede det ikke for dig i starten det hele?

jo