jak zapisać plik VIDEO z animacją na formie

[kornik]

Mam na formie TShape które przemieszczam za pomoca timer-a
Jak taką animację zapisać do DIV-X ?
Albo innego formatu VIDEO ?




//------ MOJ PROJEKT ------------------------------------

object Form31: TForm31
Left = 0
Top = 0
Caption = 'Form31'
ClientHeight = 293
ClientWidth = 426
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Shape1: TShape
Left = -40
Top = 88
Width = 65
Height = 65
Shape = stCircle
end
object Timer1: TTimer
Interval = 10
OnTimer = Timer1Timer
Left = 240
Top = 192
end
end

//------------------------------------------
unit Unit31;

interface

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

type
TForm31 = class(TForm)
Shape1: TShape;
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
end;

var
Form31: TForm31;

implementation

{$R *.dfm}

procedure TForm31.Timer1Timer(Sender: TObject);
begin
Shape1.Left := Shape1.Left +1
end;

end.
//------------------------------------------

[kornik]

Post by kornik
Mam na formie TShape które przemieszczam za pomoca timer-a
Jak taką animację zapisać do DIV-X ?
Albo innego formatu VIDEO ?

http://www.torry.net/pages.php?id=168

http://www.torry.net/vcl/mmedia/video/AviWriter2.1.zip