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

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

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

TAnimate [D5]

Alkid © (2002-06-10 17:59:00)
Вопрос: имеется на форме TAnimate, как правильно включить
интересующий AVI как ресурс в EXE-файл,что бы грузить его
через ResHandle + ResName/ResID?
Я добавил AVI-шник как ресурс в файл с указанием его индекса
и пользовательского типа. Но TAnimate постоянно говорит, что
не может заргузить AVI.

Игорь Шевченко (2002-06-13 14:00:00) [1]
Alkid © (13.06.02 13:51)

Код в студию

Alkid (2002-06-13 13:51:00) [2]
Всё - равно оно говорит "Can not Open AVI".
Пробовал всё вышенаписанное. :-(

Игорь Шевченко (2002-06-11 11:37:00) [3]
McSimm © (11.06.02 11:34)

> При ResHandle := HInstance - не работает.

Да, потому как TAnimate при изменении ResHandle пытается открыть ресурс :-)

McSimm (2002-06-11 11:34:00) [4]
Извиняюсь,
работает и мой код и Игоря, но я неправильно написал коментарий.

При ResHandle := HInstance - не работает.

Игорь Шевченко (2002-06-11 11:19:00) [5]
Вот так работает:

unit main;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ComCtrls, StdCtrls;

type
TForm1 = class(TForm)
Animate1: TAnimate;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}
{$R AVI.RES}

procedure TForm1.Button1Click(Sender: TObject);
begin
Animate1.Active := true;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Animate1.ResName := "COOL1";
end;

end.

============= avi.rc ===================

COOL1 AVI "cool.avi"

McSimm (2002-06-11 11:19:00) [6]
Не забудь, после изменения rc файла надо сделать Build.

McSimm (2002-06-11 11:18:00) [7]
Попробуй так:

В rc файле тип ресурса AVI

Для открытия:

Animate1.ResHandle := 0; //или HInstance - неважно
Animate1.ResId := Integer(MAKEINTRESOURCE("AVIR"));

Наверх

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