بدست آوردن مشخصات فايل ويديويي

[shirin71]

اين تابع ساده ترين راه براي بدست آوردن تعداد فريم، طول ( بر حسب ميلي ثانيه) و کيفيت پيکسل يک فايل ويديويي مباشد. ابتدا اين تابع را در بخش public از نوع داده Form1 معرفي کنيد ( بصورت زير) و سپس يونيت MPlayer را به کد خود اضافه کرده، در نهايت کد تابع را در بخش implementation کپي کنيد.

public
procedure GetProperties(FileName: string;
var MediaFrames, MediaLength, MediaWidth, MediaHeight: Integer);


Code:

procedure THiddenForm.GetProperties(FileName: string;
var MediaFrames, MediaLength, MediaWidth, MediaHeight: Integer);
begin
MediaPlayer.FileName := FileName;
MediaPlayer.Wait := False;
MediaPlayer.Open;
MediaPlayer.TimeFormat := tfFrames;
MediaFrames := MediaPlayer.Length;
MediaPlayer.TimeFormat := tfMilliseconds;
MediaLength := MediaPlayer.Length;
MediaPlayer.DisplayRect := Rect(1, 1, 0, 0); {"0, 0" forces resolution autodetect}
MediaWidth := MediaPlayer.DisplayRect.Right;
MediaHeight := MediaPlayer.DisplayRect.Bottom;
if (MediaWidth <= 0) or (MediaHeight <= 0) then
begin {invalid values mean not video}
MediaWidth := 0;
MediaHeight := 0;
end;
MediaPlayer.Close;
end;