چگون طول و عرض فایل های ویدیویی بدست آوریم؟

چگون طول و عرض فایل های ویدیویی بدست آوریم؟

سوال رو که نوشتم فقط بگم که یکم عجله دارم لطفا راهنمایی کنید.
تو فروم گشتم نبود!!!!!!!!

من دلفی کار نیستم . ولی این مشکل راه حل کلی داره . هر فایل تصویری با ویدیو یه header داره که کل مشخصات اون فایل توش نوشته شده از جمله چیزهایی که شما نیاز دارید . بگردید . مسلما سورس آماده برای آین کار روی اینترنت هست. البته میشه با کنترل مدیا پلیر هم فایل رو باز کرد و از اون طریق به اطلاعات دسترسی داشت .

امیدوارم این کد کارتون رو راه بندازه :

Unit :MPlayer

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;

این هم یک کامپونت حرفه ای در این زمینه
http://www.visioforge.com/index.php?...d=14&Itemid=30