Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Delphi Найти сумму первых k чисел последовательности Фибоначчи Найти сумму первых k чисел последовательности Фибоначчи. Последовательность определяется законом: F0=F1=1; Fn=Fn-1+Fn-2 для n>=2 https://www.cyberforum.ru/ delphi-beginners/ thread966830.html Итерационный цикл Delphi
Решить задачу, организовав итерационный цикл. Вычислить значение непрерывной дроби с точ-ностью =10-3, 10-4: q=1+1/{1+1/} Точное значение - 1,618033989... Определить, как изменяется число итераций...
Delphi Программа для вычисления количества рабочих часов в неделю Программа для вычисления количества рабочих часов в неделю. То есть, я ввожу количество уроков в день, а программа, когда я введу все 5 дней, суммирует, делит на 60 и выдает количество часов и минут.... https://www.cyberforum.ru/ delphi-beginners/ thread966774.html Delphi задача Delphi1 В простую переменную последовательно вводятся N чисел. Все ли числа меньше заданного числа К? в delphi https://www.cyberforum.ru/ delphi-beginners/ thread966744.html
Delphi Передача данных по сети без использования сервера (pear to pear)
Здравия всем! С сетями работать начала года пол назад. И все время я писал клиент-серверные программы, они грозили утечкой трафика и потерей времени на прием передачу. Но без сервака с внешним ip...
Delphi Создать тест из 25 вопросов, 5 вариантов ответа https://www.cyberforum.ru/ delphi-beginners/ thread966719.html
Добрый вечер мне нужно создать тест, но не получается, нужно создать тест из 25 вопросов, 5 вариантов ответа, только один правильный ответ, таймер на 25 мин, нужно чтобы при каждом открытии теста он...
Delphi Дано натуральное число N. Найти число от 1 до N с максимальной суммою делителей https://www.cyberforum.ru/ delphi-beginners/ thread966707.html
Дано натуральное число N. Найти число от 1 до N с максимальной суммой делителей. Формат входных данных. Стандартный входной поток содержит N (N ≤ 10000). Формат выходных данных. В...
Местоположение объектов Delphi
Во время программирования на Delphi 7 появилась следуящая проблема - У меня разрешение экрана 1980х1080, немного побаловшись с настройкой Align и Autosize я настроил размер объектов ( Во всей...
Delphi массивы https://www.cyberforum.ru/ delphi-beginners/ thread966697.html
помогите осуществить матрицу в столбик-строку как например вот так: 1 2 3 4 5 6 7 8 9 а у меня выводится вот так: 1 2 3
Delphi динамические массивы и файлы в Delphi помогите, please!! не знаю как делать!! Создать органайзер преподавателя. С обязательными полями: Фамилия (ComboBox), Фамилия, Имя (Edit) , Оценка 1-8 (Edit), Итоговая оценка (среднее... https://www.cyberforum.ru/ delphi-beginners/ thread966624.html
не понимаю к чем ошибка( Delphi
не могу понять почему не корректно работает.Если после нескольких смен пользователей зайти под user-ами,а потом на смене вести неправильный логин или пароль все равно переходит на форму user-а....
Delphi Реализация класса https://www.cyberforum.ru/ delphi-beginners/ thread966559.html
Реализовать класс «Человек» (THuman). Класс содержит следующие поля: фамилия, имя, отчество, пол, день, месяц и год рождения. Реализовать следующие методы:
174 / 160 / 71
Регистрация: 22.02.2013
Сообщений: 1,769
Записей в блоге: 2
0

видео плеер - Delphi - Ответ 5125694

01.10.2013, 22:41. Показов 1670. Ответов 1
Метки (Все метки)

делаю видео плеер не могу сладить с размером картинки.. что бы при изменении формы размер картинки тоже менялся
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
      DimAvi(OpenDialog1.FileName,width,height);
    mh:=SpeedButton1.Top - 10;
    mw:=Form1.ClientWidth;
    if mh > height
        then kh :=1
        else kh := mh/height;
    if mw > width
        then kw :=1
        else kw := mw/width;
    if kw < kh
        then k := kw
        else k := kh;
    width  := Round(width * k);
    height := Round(Height * k);
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure DimAvi(f: string; var w,h: integer);
var
    fst: TFileStream;
        header: record
        RIFF: array[1..4] of char;
        nu1:  array[1..5] of LongInt;
        AVIH: array[1..4] of char;
        nu2:  array[1..9] of LongInt;
        Width:  LongInt;
        Height: LongInt;
    end;
 
begin
    fst := TFileStream.Create(f,fmOpenRead);
    fst.Read(header,sizeof(header));
    w := header.Width;
    h := header.Height;
    fst.Destroy;
end;
lab3.rar

Вернуться к обсуждению:
видео плеер Delphi
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.10.2013, 22:41
Готовые ответы и решения:

DSPack видео плеер в Windows 7
Доброго времени суток! Кто нибудь знаком с библиотекой DSPack ? В исходниках есть пример PlayWin,...

Как создать видео плеер
Как ? .avi ... .mpeg4 ... PLEASE ! Пожалуста, помогите, 3 дня ищу, и нигде, никак не получается....

Как поставить несколько видео клипов чтобы переключая и проигрывая на одной странице через один медиа плеер?!
у меня электронная книга, вот хочу видео разместить, а мест нету чтобы каждую отдельно, как можно...

После закрывания страницы с видео, звук из видео остается включенным. Как ее отключить?
После закрывания страницы с видео, звук из видео остается включенным. Как ее отключить? procedure...

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.10.2013, 22:41

Как прописать путь к видео, чтобы при запуске приложения видео начинало работать?
как прописать путь к видео чтоб при запуске приложения видео начинало работать? и можно было...

У меня выбивает ошибку при запуске видео: "вывод видео недоступен не найдена программа распаковки 'vids:div3'
программа &quot;видео плеер&quot; Кто знает подскажите, и если нужен код проги то я вышлю,

Встречали кто нибудь видео плеер с возможностью вставки видео рекламы
Доброго времени суток. Такой вопрос встречали кто нибудь видео плеер с возможностью вставки видео...

Ищу видео плеер с быстрым переключением между видео
Здравствуйте! Ищу видео плеер, который мгновенно переходит от одного видео к другому. Все дело в...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru