TMedia-komponente

[ppirokke]

Hi,

Ich habe jetz mehrmals gelesen dass sich mit der Komponente Mp3-dateien öffnen lassen...
Habe zusammen mit einem freund ein spiel programmiert und wollte jetz die wave-dat in mp3 umwandeln damit dasn bissel komprimierter wird. Daher habsch folgendes als Test angesetzt :

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    MediaPlayer: TMediaPlayer;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
MediaPlayer.FileName:='sound.mp3';
MediaPlayer.Open;
MediaPlayer.Play;
end;

end.

Geht das nicht so einfach? Oder habsch bei den 3 Zeilen nen Fehler drinne oder Was? Ich steh grad aufm schlauch
Wennsch das Programm ausführ schließt es sich nach ganz kurzem öffnen sofort wieder.


MfG