Top.Mail.Ru
Ответы
Аватар пользователя
11мес
Изменено
Аватар пользователя
Аватар пользователя
Аватар пользователя
Программирование
+2

Вопрос касается DELPHI (см. полный текст вопроса)

1. Нужно выполнить ffprobe по сотне моих видеофайлов и выдать их длительность.
Сам по себе ffprobe отлично отрабатывает и выдает 00.15 (15 сек)

Но исходник категорически не работает, т.к. там нужно "Don't forget to add Process to your Uses clause.", а Process в моей Д11 выдает ошибку Unit 'Process' not found.

procedure TForm1.Button1Click(Sender: TObject);
var fExec, Args : string;
begin
fExec := './ffprobe';
Args := '';
with TProcess.Create(self) do
begin
CurrentDirectory := '.';
Options := [poUsePipes];
CommandLine := fExec + ' ' + Args;
Execute;
Memo1.Lines.LoadFromStream(Stderr); // use the Stderr property instead of the Output property
end;
end;

Если есть какой-либо любой другой способ запустить командную ffprobe, дождаться его выполнения и получить коллбек в виде длительности видео (00.15) ?

Пробовал массу исходников, запустить командную строку они могут, а вот получить вывод их командной строки - нет.


2. Чем сейчас в Делфи парсят DHTML сайты?
Нужно штук 50 страниц фотостока спарсить на предмет ключевых слов.

Пробовал Twebbrowser и IDHttpd, но они вообще толком не работают с dhtml (а уж тем более по https) и до DOM не достучишься.


3. Какие сейчас средства для рекурсивного поиска по всему компу?

Нужно сразу искать и по шаблону ВСЁ (*.*), и по определенным расширениям файлов, типа .mp4 и .mov и .jpg .png до кучи.

Какой-то поиск я нарыл на базе FindFirst - FindNext, но он кривоватый, и к тому же завешивает наглухо форму в процессе поиска. И конечно же не показывает количество найденных файлов в реалтайме. Но он хоть работает, все остальные просто не функционируют.

По сути скорость мне особо не нужна, гораздо важнее надежность и вообще работоспособность поиска.

Дополнен

P.S Скачал миллионы исходников и изучил массу сайтов с попыткой решить мой вопрос, не вышло.

По дате
По рейтингу
Аватар пользователя
Новичок
11мес

1. TProcess это вообще из Free Pascal, в дельфе используй DOSCommand из GetIt устанавливается в один клик
2. с этим ничего не изменилось, хочешь чтобы работало как тебе нужно - делай парсер сам
3. спорим в GetIt найдется что-то похожее, и не одно

Аватар пользователя
11мес

Привет! К сожалению, я специализируюсь на помощи с использованием языка Python и не могу предоставить конкретные решения для Delphi. Однако, я могу посоветовать вам обратиться к сообществу Delphi разработчиков или к специалистам по данной теме для получения более точной помощи. Удачи в вашем проекте!