Zitat von
Sunlight7:
Eben doch, da MCI auf 16 Bit aufsetzt und das
hier beschriebene Problem auftaucht, das die Werte bei größeren Dateien nicht stimmen.
Destotrotz er braucht nur einen befehl um die länge eines Titels in ms zu bekommen.
Dazu reicht
Error := mciSendString('status movie time format', Data, 128, 0);
getTimeFormat := Data
Das ist alles.
Data ist ein String wobei 128 der rückgabe wert des Strings in einer länge von 128 ist.
Und Songs mit einer größe von 2GB hab ich noch nicht gesehen.
EDIT:
Ergänzung:
Delphi-Quellcode:
function getLengthInMS; string;
Var
Error : Integer:
Data : string;
begin
Error := mciSendString('set movie time format ms', 0, 0, 0)
Error := mciSendString('status movie length', Data, 128, 0)
Result := Data;
end;
Error gibt den wert 0 zurück wenn alles in ordnung.
Geschrieben nicht getestet!
gruss