Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Помогите вывести AVI на форму

koha © (2006-07-24 12:49:00)
Файл AVI - клип должен быть внутри программы, а не снаружи.
- Прикрепил его как ресурс {$R ~~~~.avi}
- Далее нашел его:

var
Rsrc: HRSRC;
//------------------
begin
Rsrc:=FindResource(HInstance,MakeIntResource(0),RT_RCDATA);
if Rsrc = 0 Then ShowMessage('Resource find!');
end;

- А делее как его не сохраняя на диск вывести на форму?

Шпиён (2006-07-24 13:57:00) [1]

> koha © (24.07.06 13:54) [6]
> > Шпиён
>
> Зашел в справку, там нашел это "set the ResID or ResName
> property "
> - поменял это Animate1.ResID:=1010
> на вот это Animate1.ResName:='PROGRESS';
> - все заработало!

Поздравляю -)

Шпиён (2006-07-24 13:55:00) [2]
По шагам:

1) Создаешь в блокноте файл ресурса (назовем его MY.rc)

1010 AVI "COOL.AVI"

файл cool.avi - должне быть в том же каталоге, что и файл ресурса (или придётся указывать путь)

2) Компилируешь ресурс
brcc32 -32 MY.rc

На выходе - файл my.res

3) Прикрепляешь:
{$R MY.RES}

4) Загружаешь

ps TAnimation может открыть далеко не всякий AVI
animation controls only work with silent AVI clips. TAnimate works with uncompressed AVI files or AVI clips compressed using run-length encoding (RLE).

koha (2006-07-24 13:54:00) [3]
> Шпиён

Зашел в справку, там нашел это "set the ResID or ResName property "
- поменял это Animate1.ResID:=1010
на вот это Animate1.ResName:='PROGRESS';
- все заработало!

Шпиён (2006-07-24 13:46:00) [4]

> koha © (24.07.06 13:43) [4]

Не правильно понимаешь -) 1010 - это был ResId, записанный в файле ресурса (при его создании)

> для "обычного" avi и Animate все намного проще -)
> 1) файл ресурса:
> 1010 AVI "COOL.AVI"

Число взято "с потолка". С тем же успехом я мог написать "2020".

koha (2006-07-24 13:43:00) [5]
> Шпиён

Если использовать Animate1.ResID:=1010 ,то
получаю "cannot open avi" - я так понял, что 1010 это ResID стандартного
ресурса виндовс, а тогда какой функцией найти ResID моего ресурса?

Шпиён (2006-07-24 13:15:00) [6]
для "обычного" avi и Animate все намного проще -)
1) файл ресурса:
1010 AVI "COOL.AVI"
2) в программе:

procedure TForm1.FormCreate(Sender: TObject); begin Animate1.ResHandle:=0; Animate1.ResID:=1010; Animate1.Active:=true; end;

koha (2006-07-24 13:08:00) [7]
Можно его и в стрим но затем как его получить из стрима в Animate?

Правильный Вася (2006-07-24 12:51:00) [8]
считать в стрим?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »