Discussion :

[Hypollite76]

Bonjour a tous,
je suis en train de developpe une DLL, celle ci ne contient pas de form et pourtant j aimerais utiliser les fonctions timer et jvsystem. Comment faire ?
J avais de l habitude de travailler avec des Forms et donc de glisser le composant et de l attaquer dans le code, mais la pas de Form. Je suis bloque.

Merci pour votre aide

[K.othmane]

yop
essaye comme ca :
var
timer1 : Ttimer ;
begin
Timer1:=Ttimer.create ;

[/dev/null]

Dit toi que tu peut utiliser a peut pres nimporte quoi sans avoir besoin d'une forme . Le systeme est relativement simple. Si tu a besoin d'un TComponent comme ancètre, tu passe un TComponent.create en paramètre

[Pedro]

Salut
Tu peux effectivement créer dynamiquement des objets en Delphi (voir FAQ pour de plus amples infos)
Par contre, n'oublie pas de les détruire quand tu décharge ta DLL

[Hypollite76]

j ai un plantage lors du Run sur le timer1.Enabled:=true;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
  Ttimer.Create(Timer1);
  timer1.Enabled:=true;
  timer1.Interval:=1000;

[/code]

[Hauwke]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Var
Timer1:TTimer;
begin
Timer1:= TTimer.create;
Try
Timer1.Enabled:=true;
Timer1.Interval:=1000;
Finally
Timer1.free
end;

[/dev/null]

Timer1.Create(Timer1) n'est pas bon !!!
fait plutôt Timer1 := TTimer.create

[Rayek]

j ai un plantage lors du Run sur le timer1.Enabled:=true;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
  Ttimer.Create(Timer1);
  timer1.Enabled:=true;
  timer1.Interval:=1000;

[/code]

C'est pas bon comme ca.

tu dois ecrire de la manière suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
  Timer1 := Ttimer.Create(self);
  timer1.Interval:=1000;
  timer1.Enabled:=true;

[Hypollite76]

merci a tous, cela fonctionne mieux avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
  Timer1 := Ttimer.Create(self);

maintenant a quoi correspond le self ?

Pour ce qui est du

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Timer1:= TTimer.create;

, lors da le compile j ai un message pas assez de parametres originaux.

Vous allez me trouver chiant, mais comment avoir l equivalent de la procedure

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

procedure TForm1.Timer1Timer(Sender: TObject);

puisque le timer1 ne fait pas partie de TForm1?

[Rayek]

merci a tous, cela fonctionne mieux avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
  Timer1 := Ttimer.Create(self);

maintenant a quoi correspond le self ?

Le self sert à dire au composant qu'il est son propre proprietaire (si je me trompe pas). Si tu avais mis panel1 (avec un panel existant) et que tu detruit ce panel, le timer sera lui aussi détruit.
Alors qu'avec self, même si tu detruis le panel, le timer existera toujours
l'exemple est pas super bien choisi, mais c'est l'idée qui compte.

Pour ce qui est du

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Timer1:= TTimer.create;

, lors da le compile j ai un message pas assez de parametres originaux.

Normal vu que create attend que tu lui passes un paramètre.

Vous allez me trouver chiant, mais comment avoir l equivalent de la procedure

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

procedure TForm1.Timer1Timer(Sender: TObject);

puisque le timer1 ne fait pas partie de TForm1?

tu crées une procédure :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
  procedure Timer1Timer(Sender : TObject);

et tu assignes a ton Timer1.onTimer := Timer1Timer

Tu devrais te renseigner plus sur la création dynamique de composants avant de continuer ta DLL

[Hauwke]

Le self correspond à l'entité responsable de la destruction du composant. en l'occurence, "Self" signifie que le TTimer est responsable de sa destruction.
Pour avoir un composant créer dynamiquement et qui appartient à une form il faut rajouter
Timer1.parent:=La forme qui sera le parent du Timer1.
A ne pas confondre "le owner" celui qui détruit le composant et le "parent" celui qui le posséde et qui va gérer ses messages.
Tu devrais jeter un oeil au cours qui t'ont été indiqué, je t'assure que ce ne sera pas du temps de perdu
Cordialement,
Hauwke

PS: j'avais oublié le (self) dasn mon bout de code, sorry

[Hypollite76]

Hauwke, tu me parles de cours

Tu devrais jeter un oeil au cours qui t'ont été indiqué, je t'assure que ce ne sera pas du temps de perdu

mais dans la FAq je ne trouve pas du tout et la je cherche dans les tutoriels.

[Hauwke]

Décidément, je te prie de me pardonner. J'ai la tête dans le guidon aujourd'hui!
Un cours complet fait par un enseignant, trés bien
Ensuite prendre quelques bonnes résolutions:
Télécharger la FAQ et la consulter systématiquement avant de se connecter au forum.
Télécharger les sources et faire la mm chose qu'avec la FAQ.
utiliser les "TO DO" peut de gens le conseille mais au début c'est une aide précieuse: Ecrire ce que tu veux faire avec des mots simples, étape par étape y compris
iiii) rechercher dans la faq sur Owner, Parent
iiiii) Chercher la déclaration générique d'un événement
Etc
Par exemple
Au début, c'est un peu fastidieux, mais on trouve vite son retour sur investissement...
Cordialement,
hauwke

[/dev/null]

Pour ce qui est du

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Timer1:= TTimer.create;

, lors da le compile j ai un message pas assez de parametres originaux.

Désolé . J'ai marqué ça a la va vite... il était pour moi evident que s'il y'avait besoin de paramère, le developpeur en action les aurais ajouté .

[Hauwke]

Ou bien il aurait noté sur sa TO DO LIST:
iii) Vérifier la déclaration du constructeur de la classe TTimer et en faisant il aurait trouvé:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

public constructor Create(AOwner: TComponent);

ce qui lui aurait permis de renvoyer:
:trouve: je vais enfin pouvoir arrêter et à tous pour votre aide
RIRES
Cordialement,
Hauwke

[Hypollite76]

rebonjour a tous

merci Hauwke pour l adresse des cours, je suis en train de le telecharger, et je vais me mettre a fond dedans.


En attendant, j ai un autre souci,
j ai cree la procedure

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  procedure Timer1Timer(Sender : TObject);

et je realise

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Timer1.onTimer := Timer1Timer

et jai lors de la compile le fameux message

• [Erreur] Unit1.pas(116): Pas assez de paramètres originaux

[/dev/null]

Essay Timer1.onTimer := @Timer1Timer... si ce n'est pas ça... Redéclare ton Timer1Timer dans ta Form1

[Hypollite76]

apres avoir essaye je compile et j ai

• [Erreur] Unit1.pas(121): Types incompatibles : 'TNotifyEvent' et 'Pointer'

oui mais puisque je nais de Form alors comment faire

[Hauwke]

TTimer.OnTimer Evénement

Se produit quand le temps spécifié par la propriété Interval s'est écoulé.
Classe
TTimer
Syntaxe
[Delphi] property OnTimer: TNotifyEvent;
Description
Ecrivez un gestionnaire d'événement OnTimer qui exécute des actions à intervalles réguliers.
La propriété Interval détermine la périodicité des événements OnTimer. A chaque fois que l'intervalle spécifié s'écoule, l'événement OnTimer a lieu.

Rubriques associées
Interval

C'est un événement, on teste s'il se produit et on écrit un gestionnaire qui fait réagir l'appli en conséqunce.
La gestion des événements est dans le cours. Je te donne la formulation générale:
Si mon composant a déclenché l'évenement "événement" alors fait ceci sinon fait celà.
Cordialement,
Hauwke

[/dev/null]

ok... c'est pas un pb de pointeur alors...
Créer une nouvelle class TMonTimer, par ex., et tu déclare ta procedure Timer1Time a l'interieur (en privé tant qu'a faire :p )