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

[Answer]

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

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

[shask00l]

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

[Pr0grammer]

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

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;

[Valadi]

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