Servus!
Ich habe ein Programm geschrieben, dass Videos im Vollbildmodus anzeigt. Es läuft auch so, wie es soll.
Auf dem Form hab ich 2 Buttons:
Button1: erst OpenDialog (um Filename des Videos auszuwählen), dann abspielen
[Button2: Vollbildmodus an/ausschalten]
Ich habe eine TMediaPlayer-Kompo verwendet, die ich Video genannt habe.
Hier der Quelltext:
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
| type
TForm1 = class(TForm)
Video: TMediaPlayer;
Button1: TButton;
OpenDialog1: TOpenDialog;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure VideoNotify(Sender: TObject);
private
public
end;
var
Form1: TForm1;
isplaying: boolean;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then begin
if isplaying then begin Video.Stop; Video.Close; end;
isplaying := true;
with Video do begin
filename := OpenDialog1.FileName;
Open;
Left := 0;
Top := 0;
width := Form1.width;
height := Form1.height;
DisplayRect:= Rect(0,0,screen.width,screen.height);
Play;
end;
end;
end;
procedure TForm1.VideoNotify(Sender: TObject);
begin
isplaying := false;
end;
end. |
Jetzt gibt's nur ein Problem:
Sobald man auf den MediaPlayer klickt, stürzt das Programm ab. Es gibt keine Fehlermeldung - das Programm UND Delphi hängen sich auf. Ich glaube, irgendwann mal ein Fenster mit ner "Access violating"-Meldung gesehen zu haben. Weiß jemand, wie ich das verhindern kann? Ich hab auch schon versucht, OnClick abzufangen und DoDefault auf false zu setzen. Hab in der Zeile "DoDefault := false;" (steht nicht im Quelltext oben) auch schon einen Haltepunkt gesetzt - soweit kommt's aber gar nicht. Vorher hängt sich's auf. Nix geht mehr. Warum?
