معرفة طول الملف الصوتي برمجيا

[لانا]

السلام عليكم ورحمة الله وبركاته

كيف يمكنني معرفة طول وحجم الملف الصوتي بإستخدام العنصر MediaPlaayer ?

[kachwahed]

وعليكم السلام ورحمة الله وبركاته
الطول MediaPlayer1.Length
وحجم الملف كحجم أي ملف:
function GetSizeOfFile(const FileName: string): Cardinal;
var
HndFile: HWND;
begin
HndFile := CreateFile(PChar(FileName), GENERIC_READ,
FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
try
if HndFile <> INVALID_HANDLE_VALUE then
Result := GetFileSize(HndFile, nil)
else Result := 0;
finally
CloseHandle(HndFile);
end;
end;

[husseint]

السلام عليكم


إن كنت تقصد طول الملف بالزمن


MediaPlayer1.Open;
Label1.Caption:= IntToStr(MediaPlayer1.Length);
MediaPlayer1.TimeFormat := tfMilliseconds;
Sec := MediaPlayer1.TrackLength[1] Div 1000;
Min := Sec Div 60;
Sec := Sec Mod 60;
Label2.Caption:= Format('Track Time = %.2d:%.2d',[Min,Sec]);

[لانا]

جزاكم الله كل الخير إخوتي

هذا بالضبط ماكنت ****ه..طول الملف بالدقائق والثواني
وكنت أعتقد أنه بإمكاني الحصول على حجم الملف من العنصر MediaPlayer

كل الشكر لجهودكم