delphi4arab منتديات دلفي للعرب

نسخة كاملة : معرفة طول الملف الصوتي برمجيا
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم ورحمة الله وبركاته

كيف يمكنني معرفة طول وحجم الملف الصوتي بإستخدام العنصر MediaPlaayer ?
وعليكم السلام ورحمة الله وبركاته
الطول MediaPlayer1.Length
وحجم الملف كحجم أي ملف:
PHP كود :
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; 
السلام عليكم


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

كود :
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

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