-
Подскажите как правильно работать с 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;
-
Возможно дело в том что ты используеш MediaInfoA_Get а в гуи исползуется MediaInfo_Inform
-
> в том что ты используеш MediaInfoA_Get
с чего бы?:
> Values[n, AInfo] := string(MediaInfoA_Inform(Handle, > 0));
-
Должен извинится неверно вчитался в исходник. Тогда возможно что в гуи разрабы разбивают загрузки по потокам... Хотя всёравно подвисалобы. В любом случае у меня таже проблема но ЧСХ тока с определёнными файлами.
|