Das habe ich mir auch schon überlegt. Die klare Antwort lautet Ja. Sowie das Puffern des Streams beendet ist, wird ein Timer auf True gesetzt, der mir über ein Label die aktuelle Position des Clips ausgibt.
Delphi-Quellcode:
procedure TVideoStreaming.Timer1Timer(Sender: TObject);
begin
Label1.Caption:=WindowsMediaPlayer1.status;
if vergleicheStringsN(Label1.Caption, Label2.Caption, 10)=True then begin
Label3.Caption:=WindowsMediaPlayer1.controls.currentPositionString; //Hier benötige ich den Timer
Label3.Visible:=True;
Label4.Caption:=WindowsMediaPlayer1.currentMedia.name;
Label4.Visible:=True;
Label5.Caption:=WindowsMediaPlayer1.currentMedia.durationString;
Label5.Visible:=True;
end else begin
Label3.Visible:=False;
Label3.Caption:='';
Label4.Visible:=False;
Label4.Caption:='';
Label5.Visible:=False;
Label5.Caption:='';
end;
end;