Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Проигрывание AVI / 5 сообщений из 5, страница 1 из 1
08.12.2003, 13:47
    #32346404
Timujin
Timujin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проигрывание AVI
Привет всем!
Вот кусок кода из Help
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
iLength :=  255 ;
setLength(sWinDir, iLength);
iLength := GetWindowsDirectory(PChar(sWinDir), iLength);
setLength(sWinDir, iLength);
With Form1.MediaPlayer1 do begin
     Filename := sWinDir + '\Clock.avi'; //specify video file
     DeviceType := dtAVIVideo; //set Device compatibility to AVI
     Display := Form1.Panel1; //Set display device to a TPanel
     Open;
     Play;
end;

Почему-то AVI-шка не проигрывается :-( Форма высвечивается, на форме панель, на панели - ничего. Подскажите, где я дурак?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.12.2003, 13:49
    #32346406
JibSkeart
JibSkeart
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проигрывание AVI
DeviceType := dtAVIVideo;
попробуй с этим параметром поигратся ..

а воообще когда я делал свой проигрыватель
у меня не было никаких проблем с этим .

_____________
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.12.2003, 13:57
    #32346424
Timujin
Timujin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проигрывание AVI
Пробовал разные типы: dtAutoSelect, dtAVIVideo, dtCDAudio, dtDAT, dtDigitalVideo, dtMMMovie,dtOther, dtOverlay, dtScanner, dtSequencer, dtVCR, dtVideodisc, or dtWaveAudio

хотя конечно, правильно dtAVIVideo. Но не работает :-(
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.12.2003, 07:45
    #32347247
LexusR
LexusR
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проигрывание AVI
странно
у меня без проблем
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, MPlayer, ExtCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    MediaPlayer1: TMediaPlayer;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 MediaPlayer1.FileName  := 'D:\tratata.avi';
 MediaPlayer1.Display  := panel1;
 MediaPlayer1.Open;
 MediaPlayer1.Play;
end;

end.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.12.2003, 18:46
    #32348367
_User
_User
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проигрывание AVI
Знаешь проверь не забыл ли добавить TPanel , но и без него должно идти только во весь экран!
Воспользуйся кодом LexusR, он работать будет!!!
_USER
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Проигрывание AVI / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]