Guten Abend zusammen,
ich bin ein Anfänger in Delphi und versuche mich gerade darin den Media Player zu nutzen!
Nun habe ich folgendes Problem, scheind alles zu klappen bis zu dem Punkt wo ich das Programm starte!
Folgendes Problem...
Beim starten, zeigt er mir zwar den Player und den Button an, allerdings nach Betätigung des Buttons passiert rein gar nichts !!!
Delphi-Quellcode:
unit player;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, MPlayer;
type
TForm1 =
class(TForm)
MediaPlayer1: TMediaPlayer;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
playList: TStringList;
// globale Variable einrichten
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
mediaplayer1.FileName := '
E:\Sonstiges\Lustige Sounds\AphexTwinsTechnoTetris.mp3';
mediaplayer1.Open;
mediaplayer1.play;
end;
end.
Danke schon mal !!!
[edit=Matze][quote]- durch [delphi]-Tags ersetzt. MfG Matze[/edit]