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

← →
koha © (2006-07-24 12:49) [0]

Файл 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 12:51) [1]

считать в стрим?

← →
koha © (2006-07-24 13:08) [2]

Можно его и в стрим но затем как его получить из стрима в Animate?

← →
Шпиён (2006-07-24 13:15) [3]

для "обычного" 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:43) [4]

> Шпиён

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

← →
Шпиён (2006-07-24 13:46) [5]

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

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

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

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

> Шпиён

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

← →
Шпиён (2006-07-24 13:55) [7]

По шагам:

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).

← →
Шпиён (2006-07-24 13:57) [8]

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

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

Помогите вывести AVI на форму Найти похожие ветки