asphyre et son utilisation

Version imprimable

09/09/2009, 11h29
Archimède

asphyre et son utilisation

j'ai installé la suite de composants asphyre (asphyre310).
J'ai compilé les exemples proposés. (c'est génial)
mais il n'y a pas de tuto en français à part l'introduction de pédro qui permet simplement une découverte...

En deux D, qui peut me donner un exemple simple de déplacement d'un simple rectangle sur un Tasphyrecanvas en incrémentant une variable dans un Tasphyretimer. ça permettrait de démarrer simplement sans trop de douleur
J'ai essayé et j'ai déjà un message d'erreur.

merci
09/09/2009, 11h43
ero-sennin

Salut,

Juste pour être sur, c'est bien ce tuto dont tu parles ?

Utilisation de DirectX sous Delphi : Asphyre 4.1
09/09/2009, 11h49
Archimède

Citation:

Envoyé par ero-sennin

Salut,

Juste pour être sur, c'est bien ce tuto dont tu parles ?

Utilisation de DirectX sous Delphi : Asphyre 4.1

non, c'est celui là asphyre pro http://pedro.developpez.com/articles/delphi/3d/asphyre/

merci
09/09/2009, 11h54
ero-sennin

En espérant que ça t'aide :)
09/09/2009, 13h52
Archimède

Citation:

Envoyé par ero-sennin

En espérant que ça t'aide :)

merci, tu as raison... Il doit y avoir de bonne base pour adapter à asphyre pro...
J'en ai ras le bol de passer par os pour faire des animations. C'est poussif...
En directx, ça n'a rien à voir...

Mais sans doc en français, c'est hard à moins d'avoir quelques petits exemples simples.

merci à toi, je regarde le tuto...

voilà, ce que j'ai tenté de simple et qui ne marche pas :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, AsphyreTimers, AsphyreSubsc, AsphyreDevices, Asphyre2D, AsphyreCanvas;
 
type
  TForm1 = class(TForm)
    AsphyreDevice1: TAsphyreDevice;
    AsphyreCanvas1: TAsphyreCanvas;
    AsphyreTimer1: TAsphyreTimer;
    procedure AsphyreDevice1Render(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure AsphyreTimer1Process(Sender: TObject);
    procedure AsphyreDevice1Initialize(Sender: TObject; var Success: Boolean);
    procedure FormCreate(Sender: TObject);
    procedure AsphyreTimer1Timer(Sender: TObject);
  private
    { Déclarations privées }
    i:integer;
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.AsphyreTimer1Timer(Sender: TObject);
begin
AsphyreDevice1.Render(0,false);
AsphyreTimer1.Process();
AsphyreDevice1.flip();
end;
 
 
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
if (not AsphyreDevice1.Initialize()) then
begin
MessageDlg('Asphyre n''a pas pu s''initialiser!', mtError, [mbOk], 0);
Close();
Exit;
end;
end;
 
procedure TForm1.AsphyreDevice1Initialize(Sender: TObject;
  var Success: Boolean);
begin
if success then AsphyreTimer1.enabled:=success;;
end;
 
procedure TForm1.AsphyreTimer1Process(Sender: TObject);
begin
inc(i);
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
AsphyreDevice1.finalize();
end;
 
procedure TForm1.AsphyreDevice1Render(Sender: TObject);
begin
with asphyrecanvas1 do begin
                       fillrect(clientrect,clcream,2);
                       rectangle(i,200,200,200,clred,clred,clred);
                       end;
end;
 
 
end.

11/09/2009, 16h46
Pedro

Citation:

Envoyé par Archimède

voilà, ce que j'ai tenté de simple et qui ne marche pas :

C'est à dire? Tu as de la fumée qui sort de l'écran? :P Pourrais-tu être plus précis s'il te plait?
[EDIT]
Je te conseille quand même vivement de passer aux dernières versions d'Asphyre. La version que tu utilises est à base de composant, ce qui n'est plus le cas depuis au moins 2 versions, et ce n'est visiblement pas prêt de changer ;)
11/09/2009, 21h43
Archimède

Citation:

Envoyé par Pedro

C'est à dire? Tu as de la fumée qui sort de l'écran? :P Pourrais-tu être plus précis s'il te plait?
[EDIT]
Je te conseille quand même vivement de passer aux dernières versions d'Asphyre. La version que tu utilises est à base de composant, ce qui n'est plus le cas depuis au moins 2 versions, et ce n'est visiblement pas prêt de changer ;)

Bon, je te remercie, laisse tomber, je vais passer à une version plus récente...(tu as raison...)
Au moins, je vais pouvoir utiliser ton bon tuto...;)

a+