Конференция "Media" » MediaInfo [D7, WinXP]
 
  • valera (01.05.08 18:15) [0]
    Подскажите как правильно работать с MediaInfo 0.7.6.4, с кодом взятым с примера от MediaInfo.dll у меня получение информации из файлов например из диска занимает во много раз больше времени, чем от родного GUI ?
    Например нахожу файлы
     ScanDir(cxShellBrowserDialog1.Path, '*.avi', AVIList);
    Дальше попробовал использовать такой код :
      For i:=0 to AVIList.Count -1 do
      begin
      Handle := MediaInfoA_New();
      MediaInfoA_Open(Handle,PChar(AVIList.Strings[i]));
      MediaInfoA_Option (0, 'Complete', '');
        try
         n:= AppendRecord;
         Values[n, AN] := RecordCount;
         Values[n, AFile] := AVIList.Strings[i];
         Values[n, AName] := ExtractFileName(AVIList.Strings[i]);
    //      Values[n, ASize] := StrPas(MediaInfoA_Get(Handle, 0, 0, 'FileSize/String4', 1, 0));
    //      Values[n, ATime] := StrPas(MediaInfoA_Get(Handle, 0, 0, 'PlayTime/String1', 1, 0));
    //    Values[n, AVCodec] := StrPas(MediaInfoA_Get(Handle, 1, 0, 'Codec/String', 1, 0));
         Values[n, AInfo] := string(MediaInfoA_Inform(Handle, 0));
    //      Values[n, AVkbps] := StrPas(MediaInfoA_Get(Handle, 0, 0, 'OveralBitRate/String', 1, 0));
    //      Values[n, AResolution] := StrPas(MediaInfoA_Get(Handle, 1, 0, 'Width', 1, 0)) + ' x ' + StrPas(MediaInfoA_Get(Handle, 1, 0, 'Height', 1, 0));
    //      Values[n, AFPS] := StrPas(MediaInfoA_Get(Handle, 1, 0, 'FrameRate', 1, 0));
    //    Values[n, AACodec] := StrPas(MediaInfoA_Get(Handle, 2, 0, 'Codec/String', 1, 0));
    //      Values[n, AAKbps] := StrPas(MediaInfoA_Get(Handle, 2, 0, 'Bitrate', 1, 0));
    //   Values[n, AHz] := StrPas(MediaInfoA_Get(Handle, 2, 0, 'SamplingRate/String', 1, 0));
    //    Values[n, AChannel] := StrPas(MediaInfoA_Get(Handle, 0, 0, 'Channels', 1, 0));
         MediaInfoA_Close(Handle);
       except
         EndUpdate;
         AVIList.Free;
         MediaInfoA_Close(Handle);
       end;
       Application.ProcessMessages;
      end;
     EndUpdate;
  • LAP (30.08.10 18:28) [1]
    Возможно дело в том что ты используеш MediaInfoA_Get а в гуи исползуется
    MediaInfo_Inform
  • brother © (16.09.10 05:18) [2]
    > в том что ты используеш MediaInfoA_Get

    с чего бы?:

    >     Values[n, AInfo] := string(MediaInfoA_Inform(Handle,
    > 0));
  • LAP (11.10.10 23:58) [3]
    Должен извинится неверно вчитался в исходник. Тогда возможно что в гуи разрабы разбивают загрузки по потокам... Хотя всёравно подвисалобы. В любом случае у меня таже проблема но ЧСХ тока с определёнными файлами.
 
Конференция "Media" » MediaInfo [D7, WinXP]
Есть новые Нет новых   [120086   +39][b:0][p:0.001]