Forum: Sonstige Fragen zu Delphi
Delphi
by mlspider,
27. Jan 2007
Volltreffer! Ich hebe mal den Vergleich ausserhalb der Timerprozedur vorgenommen und siehe da, gleichbleibende Auslastung und Speicherbelegung. Danke.
Edit: Length Vergleich würde mir nichts bringen, da hinter "Wiedergabe" noch die Bitrate erscheint. Diese kann stark schwanken. So lasse ich nur die ersten 10 Zeichen überprüfen. Trotzdem Danke auch für diesen Hinweis.
Forum: Sonstige Fragen zu Delphi
Delphi
by mlspider,
27. Jan 2007
Ich glaube nicht, dass es etwas mit der Funktion zutun hat.
function vergleicheStringsN(s1, s2:string; n:Word): Boolean;
var i: Word;
function delLZ(s: string): string;
var ss: string;
i, j: Word;
begin
j:=0; ss:='';
Forum: Sonstige Fragen zu Delphi
Delphi
by mlspider,
27. Jan 2007
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.
procedure TVideoStreaming.Timer1Timer(Sender: TObject);
begin
Label1.Caption:=WindowsMediaPlayer1.status;
if vergleicheStringsN(Label1.Caption, Label2.Caption, 10)=True then begin
...