Hab ein unerklärliches Problem mit dem MediaPlayer. Ist eigentlich nen ganz kleines Programm um nen Video automatisch abzuspielen (eigentlich mit Parameterübergabe, hier geändert)
Problem besteht darin, dass es sich nur bei manchen Rechnern öffnen lässt. Die Zusammenhänge zwischen diesen sind allerdings nicht erkennbar : Läuft -> WindowsXP, SP2, mit Delphi 7
Windows2000 Server, SP4 ohne Delphi
Läuft nicht auf 3 anderen WindowsXP ,
teils SP1, teils SP2, mit und ohne Delphi
Filename wird zwar zugewiesen, wird aber nicht abgespielt und die Statusbar springt gleich ans ende.
Hoffe mir kann jemand helfen.
THX Dennis
procedure TForm1.FormCreate(Sender: TObject);
var MediaWidth,Mediaheight:integer;
begin
//if ParamCount>0 then
begin
try
begin
MediaPlayer1.FileName := 'skit.mpg'; //ParamStr(1);
StatusBar1.SimpleText := MediaPlayer1.Filename + ' - Bodo Zwicker Video Player ©2004';
end
except
ShowMessage('No Video Selected');
end;
Mediaplayer1.Open;
// Videoauflösung abfragen
MediaPlayer1.DisplayRect := Rect(1, 1, 0, 0);
MediaWidth := MediaPlayer1.DisplayRect.Right;
MediaHeight := MediaPlayer1.DisplayRect.Bottom;
//Panel und Form Größe setzen
Panel1.Height :=MediaHeight;
Panel1.Width := MediaWidth;
Form1.ClientHeight:=MediaHeight;
Form1.ClientWidth :=MediaWidth;
//in Desktopmitte zentrieren
form1.Left := round((screen.DesktopWidth-form1.Width)/2);
form1.top := round((screen.Desktopheight-form1.height)/2);
//Display in Panel setzen
MediaPlayer1.Display:= Panel1;
//ProgressBar konfigurieren
ProgressBar1.Left := Button1.Width + Button2.Width + Button3.Width + Button4.Width;
Progressbar1.Top := 0;
ProgressBar1.Width := Form1.Width - (Button1.Width + Button2.Width + Button3.Width + Button4.Width);
Progressbar1.Max := MediaPlayer1.Length;
Progressbar1.Min := 0;
Mediaplayer1.Play;
end;
end;
