Скачать: CL | DM;

TAnimate   Найти похожие ветки 

← →
Alkid   (2002-06-10 17:59) [0]

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

---

← →
McSimm ©   (2002-06-11 11:18) [1]

Попробуй так:

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

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

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

---

← →
Игорь Шевченко ©   (2002-06-11 11:19) [2]

Вот так работает:

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) [3]

Не забудь, после изменения rc файла надо сделать Build.

---

← →
McSimm ©   (2002-06-11 11:34) [4]

Извиняюсь,
работает и мой код и Игоря, но я неправильно написал коментарий.

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

---

← →
Игорь Шевченко ©   (2002-06-11 11:37) [5]

McSimm © (11.06.02 11:34)

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

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

---

← →
Alkid ©   (2002-06-13 13:51) [6]

Всё - равно оно говорит "Can not Open AVI".
Пробовал всё вышенаписанное. :-(

---

← →
Игорь Шевченко ©   (2002-06-13 14:00) [7]

Alkid © (13.06.02 13:51)

Код в студию

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.01 c