Delphi-Quellcode:
Procedure TMMSF.KnopfVideoOeffnenClick(Sender: TObject);
Begin
DialogOeffnen.Filter:='MPEG-Video|*.mpg|AVI-Video|*.avi|Windows Media-Audio-/Videodatei|*.wmv|Alle Dateien|*.*';
DialogOeffnen.Title:='Toolbox - Multimedia Studio (MMS) - Video öffnen';
If DialogOeffnen.Execute then
Begin
If DialogOeffnen.FileName <> '' then
Try
DisplayBild.Picture.Destroy;
MediaPlayer.FileName:=DialogOeffnen.FileName;
MediaPlayer.Open;
MediaPlayer.Play;
Except
MessageDlg('Datei konnte nicht geladen werden! Wahrscheinlich inkompatibler Dateityp! Bitte wiederholen Sie den Vorgang mit einer anderen Datei!',MtError,[MbOK],0);
Exit;
End;
Update.Enabled:=False;
End;
End;
Über diese Prozedur habe ich also ein Video gestartet, jedoch wenn ich es mit
MediaPlayer.Stop;
versuche anzuhalten, dann kommt ein Fehler Zugriffsverletzung bei Adresse 00000000. Lesen von Adresse 00000000
Und ich kann kein weiteres Video mit der Prozedur mehr startet....