ask IWMHeaderInfo dapatkan durasi file

Pemrograman Delphi

ask IWMHeaderInfo dapatkan durasi file

Postby batozai » 05 Mar 2011, 12:09

halo para master saya mencoba mendapatkan durasi file .wmv menggunakan IWMHeaderinfo......tapi koq ga berhasil ya ?
help me, berikut kode saya
Code: Select all
  1. function TWMFNetWrite.GetDuration: LongInt;

  2. var

  3.   x: int64;

  4.   attDataType : WMT_ATTR_DATATYPE;

  5.   wstream : WORD;

  6.  

  7.   hr : HRESULT;

  8.   length : word;

  9.   readerinfo : IWMHeaderInfo;

  10. begin

  11.   Result := 0;

  12.   wstream := 0;

  13.   hr := readerinfo.GetAttributeByName(wstream,g_wszWMDuration,@attDataType,nil,length);

  14.  

  15.   if not Failed(hr) then

  16.   begin

  17.     Result := length;

  18.   end;

  19. end;



thanks para master
i believe bill gates doesn't make his success by imitating what is exist
batozai
Junior Member
 
Posts: 46
Joined: 08 Jun 2010, 22:57

Who is online

Users browsing this forum: No registered users and 1 guest

cron