Hi Leutz!
Hab nen Prob mit meinem Delphi
Und zwar hat meine
ActiveX Komponente des WindowsMediaPlayer keine .filename Endung.
Weiß net warum.
Deswegen zeigt er mir bei folgendem Quelltext immer diese Fehlermeldung
[Error] Unit7.pas(41): Undeclared identifier: 'FileName'
Delphi-Quellcode:
unit Unit7;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls, OleCtrls, WMPLib_TLB;
type
TForm7 =
class(TForm)
Bevel1: TBevel;
Panel1: TPanel;
BitBtn1: TBitBtn;
Label1: TLabel;
WindowsMediaPlayer1: TWindowsMediaPlayer;
OpenDialog1: TOpenDialog;
Button1: TButton;
procedure BitBtn1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form7: TForm7;
implementation
{$R *.dfm}
procedure TForm7.BitBtn1Click(Sender: TObject);
begin
hide
end;
procedure TForm7.Button1Click(Sender: TObject);
begin
If OpenDialog1.Execute
then
WindowsMediaPlayer1.FileName:=OpenDialog1.FileName;
end;
end.
Weis jemand, wie ich es trotzdem hinbekomme, das mein MediaPlayer in Delphi über den Laden-Button meines geschriebenen Programms doch eine Datei in den programmierten WMP lädt und abspielt?