MediaPlayer de DAT uzantili filmler

[Çağrıbey]

Arkadaslar, aşağıdaki kodu çalıştırdığımda eğer seçilen dosta AVSEQ01.DAT uzantili ise "dosya okunamadi, Dosya adini inceleyin veya bu tür dosya adını destekleyen bir sürücü yükleyin" mesajını veriyor. ama aynı dosyayı Windows Media Player de hata vermeden izleyebiliyorum
buradaki hatayi giderebilecek yardimlarinizi bekliyorum.
hayirli isler diliyorum.
------------------

Kod: Tümünü seç

procedure TForm1.Label1Click(Sender: TObject);
begin
try
If OpenDialog1.Execute then
  Begin
    With MediaPlayer1 do
       Begin
         FileName:=OpenDialog1.Filename;
          Combobox1.Text:=MediaPlayer1.FileName;
          uzanti:=ExtractFileExt(Combobox1.Text);
          uzanti:=uppercase(uzanti);
          if (uzanti='.MP3')  or (uzanti='.WAV') or (uzanti='.MID') or
             (uzanti='.MPEG') or (uzanti='.MPG') or (uzanti='.AVI') or
             (uzanti='.ASF')  or (uzanti='.DAT') then
                  Begin
                    Form1.Refresh;
                    Form1.Show;
                    Devicetype:=DtAutoSelect;
                    MediaPlayer1.Open;
                    MediaPlayer1.Display :=Form1;
           MediaPlayer1.DisplayRect:=Rect(0,50,Form1.Width,Form1.Height);
                    MediaPlayer1.Play;
                  End;
       End;
    End;
Form1.Caption:=Combobox1.Text;
Combobox1.Text:=(MediaPlayer1.FileName);
except
StatusBar1.Panels.Items[0].text:='Açılışta Hata Oluştu';
End;
end;

*** kodunuzu [ Code ] tagı içine alın.mege

[futbolcu]

mediaPlayer bileşeni tarafından bazı dat, mp3 vb media formatlı dosayalar bu hatay neden oluyor kanımca.
Aynı dat dosyasını

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
MediaPlayer1.Open;
 MediaPlayer1.Display :=Form1;
MediaPlayer1.DisplayRect:=Rect(0,50,Form1.Width,Form1.Height);
MediaPlayer1.Play;
end;

şeklinde deneyin eğer çalışırsa kodda bir sorun var, çalışmaz ise başka bir dat dosyası ile deneyin..