помогите чем можете

← →
Прикольщик (2001-11-15 22:53) [0]

вот в чем проблема делаю плеер а он только МР3 форматы понимает
а другие форматы понимать не хочет.
вот весь листинг:
unit MainF;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, FileCtrl, StdCtrls, ExtCtrls, ComCtrls, Buttons, MPlayer, Gauges,
RXSlider, Menus,mmsystem,ShellAPI,OpenGL,MAPI;

type
TTMPMainForm = class(TForm)
Panfile: TPanel;
Pandir: TPanel;
Pandrive: TPanel;
Panfilter: TPanel;
FileBox: TFileListBox;
DriveBox: TDriveComboBox;
FilterBox: TFilterComboBox;
StatusBar1: TStatusBar;
Panel1: TPanel;
OpenDlg: TOpenDialog;
HistoryList: TListBox;
Panel2: TPanel;
CheckBox1: TCheckBox;
MPTimer: TTimer;
Panel3: TPanel;
Label1: TLabel;
Slider: TRxSlider;
Playbut: TSpeedButton;
PauseBut: TSpeedButton;
StopBut: TSpeedButton;
Nextbut: TSpeedButton;
PreviousBut: TSpeedButton;
StepBut: TSpeedButton;
BackBut: TSpeedButton;
SpeedButton1: TSpeedButton;
MPlayer: TMediaPlayer;
DirBox: TDirectoryListBox;
PopMenu: TPopupMenu;
LoadPlayList1: TMenuItem;
SavePlayList1: TMenuItem;
PlayLisiDlg: TOpenDialog;
SaveListDlg: TSaveDialog;
CreatePlayList1: TMenuItem;
N1: TMenuItem;
N2: TMenuItem;
ArrangeAll1: TMenuItem;
procedure FormCreate(Sender: TObject);
procedure FileBoxDblClick(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);

procedure HistoryListDblClick(Sender: TObject);
procedure MPTimerTimer(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure SliderMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure SliderMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Label1Click(Sender: TObject);
procedure FormResize(Sender: TObject);
procedure MPlayerClick(Sender: TObject; Button: TMPBtnType;
var DoDefault: Boolean);
procedure LoadPlayList1Click(Sender: TObject);
procedure SavePlayList1Click(Sender: TObject);
procedure CreatePlayList1Click(Sender: TObject);
private
{ Private declarations }
PlayName:String;
PathName:String;
trMove : Boolean; //флаг - мы передвигаем TrackBar или нет
fPS : Boolean;
Direction : Integer;
procedure NextSong(Num: Integer);
public
{ Public declarations }
end;

var
TMPMainForm: TTMPMainForm;

implementation

{$R *.dfm}
procedure TTMPMainForm.HistoryListDblClick(Sender: TObject);
begin
try
if MPlayer.Mode = mpPlaying then
MPlayer.Stop;
if MPlayer.Mode = mpOpen then
MPlayer.Eject;
MPlayer.FileName :=HistoryList.Items[HistoryList.ItemIndex];
MPlayer.Open;
Slider.MaxValue := MPlayer.Length;
MPlayer.Play;
fPS := True;
except
on E: Exception do begin
MPlayer.Close;
ShowMessage(E.Message);
end;
end;
end;
procedure TTMPMainForm.FormCreate(Sender: TObject);
begin
trMove := False;
fPS := False;
MPlayer.Open;
MPlayer.TimeFormat := tfMilliseconds;
Direction := 0;
end;

procedure TTMPMainForm.FileBoxDblClick(Sender: TObject);
begin
with MPlayer do
begin
PathName:=FileBox.FileName;
FileName:=PathName;
Open;
Play;
end;
end;
procedure TTMPMainForm.CheckBox1Click(Sender: TObject);
var
Start_From : Longint;
begin
with MPlayer do begin
if FileName="" then Exit;
Start_From:=Position;
Close;
HistoryList.Items.SaveToFile("TMPlayer.tmp");
HistoryList.Clear;
if CheckBox1.Checked then
Display:=HistoryList
else
Display:=NIL;
HistoryList.Items.LoadFromFile("TMPlayer.tmp");
Open;
Position:=Start_From;
Play;
end;
end;
procedure TTMPMainForm.MPTimerTimer(Sender: TObject);
var
M, S, T: Integer;
sAdd : String;
begin
M := 0;
if (not trMove) and (MPlayer.Mode = mpPlaying) then begin
Slider.Value :=MPlayer.Position; //Если мы не двигаем TrackBar вручную и проигрыватель играет передвинуть TrackBar
case Direction of
0 : begin
T := MPlayer.Position div 1000;
sAdd := "";
end;
1 : begin
T := (MPlayer.Length - MPlayer.Position) div 1000;
sAdd := "-";
end;
end;
if T > 59 then begin
M := T div 60;
S := T - (M * 60);
end else
S := T;
Label1.Caption := sAdd +"Min: "+IntToStr(M)+" Sec: "+IntToStr(S);
end;
if (fPS) and (MPlayer.Mode = mpStopped) then
NextSong(1);
end;

procedure TTMPMainForm.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
if MPlayer.Mode = mpOpen then begin
MPlayer.Eject;
MPlayer.Close;
end;
end;

procedure TTMPMainForm.SliderMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
trMove := True;
end;

помогите чем можете Найти похожие ветки