Ich kann die Datei nicht ersetzen

[thomas2009]

Hallo,

obwohl ich mediaplayer zuerst schliesse, bleibt die video-Datei von ihm geöffnet, darum kann ich die video nicht ersetzen !!!

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
MediaPlayer1.Close; // damit die video1.avi frei wird, oder nicht so ?
CopyFile('C:\video1.avi','videox.avi',True);
       MediaPlayer1.FileName:='videox.avi';
       MediaPlayer1.Display:=Panel1;
       MediaPlayer1.Open;
       MediaPlayer1.Play;
end;

wenn ich auf das Button zum ersten mal klicke dann läuft das video
aber wenn ich auf das Button nocht einmal klicken, dann bekomme ich die fehlermeldung,
dass die Datei video1.avi nicht ersetzen werden kann, da sie von einer anderen Anwendung (mediaplaer1) verwendet wird

[p80286]

versuch es doch mal mit

Delphi-Quellcode:

 MediaPlayer1.FileName:='';

Gruß
K-H

[Satty67]

Ja vielleicht ein Timingproblem, der Zugriff auf das Video-File erfolgt ja sofort nach MediaPlayer1.Close.

Die Botschaft MCIGerät -> Close braucht wohl einfach ein paar Millisekunden. Der Vorschlag von p80286 könnte das aber lösen, falls nicht den Status von TMediaPlayer testen und auf eine Close-Rückmeldung warten.

[thomas2009]

Tatsächlich, es es geklappt mit dem Tric :
MediaPlayer1.FileName:='x';
Danke sehr :-D