+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : معرفة طول الملف الصوتي برمجيا (/showthread.php?tid=2307)
معرفة طول الملف الصوتي برمجيا - لانا - 15-08-2010
السلام عليكم ورحمة الله وبركاته
كيف يمكنني معرفة طول وحجم الملف الصوتي بإستخدام العنصر MediaPlaayer ?
معرفة طول الملف الصوتي برمجيا - kachwahed - 15-08-2010
وعليكم السلام ورحمة الله وبركاته
الطول 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;
معرفة طول الملف الصوتي برمجيا - husseint - 15-08-2010
السلام عليكم
إن كنت تقصد طول الملف بالزمن
كود :
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]);معرفة طول الملف الصوتي برمجيا - لانا - 15-08-2010
جزاكم الله كل الخير إخوتي
هذا بالضبط ماكنت ****ه..طول الملف بالدقائق والثواني
وكنت أعتقد أنه بإمكاني الحصول على حجم الملف من العنصر MediaPlayer
كل الشكر لجهودكم