Discussion :

[helmis]

Bonjour

Code :

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

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
unit u_traitement;
 
interface
uses classes,dialogs,db,sysutils,forms,IBQuery;
type
  traitement = class
  Frm_trait :       Tform;
  fls_trait : Tfilestream;
  fld_trait :  Tblobfield;
  ibq_trait :    TIBquery;
  end;
  Trt_savfldb = class(Traitement)
    odg_trait : Topendialog;
    Constructor Create( ibq_trait : TIBquery;fld_trait : Tblobfield;Frm_trait :Tform);
  end;
  Trt_savfldisc = class(Traitement)
    sdg_trait : Tsavedialog;
    Constructor Create( ibq_trait : TIBquery;fld_trait : Tblobfield;Frm_trait :Tform);
  end;
 
implementation
 
 
Constructor  Trt_savfldb.Create(  ibq_trait :    TIBquery;fld_trait : Tblobfield;Frm_trait : Tform);
Begin
  if ibq_trait.State in  [dsEdit, dsInsert] then
    Begin
      odg_trait := Topendialog.Create(Frm_trait);
        if odg_trait.Execute then
        begin
          fls_trait := Tfilestream.Create(odg_trait.FileName ,fmopenread);
          fld_trait.LoadFromStream(fls_trait);
        end;
      ibq_trait.Post;
    end;
end;
 
Constructor  Trt_savfldisc.Create(  ibq_trait :  TIBquery;fld_trait : Tblobfield;Frm_trait : Tform);
Begin
 
    if not(ibq_trait.State  in  [dsEdit, dsInsert]) then
    Begin
      sdg_trait := Tsavedialog.Create(Frm_trait);
      if sdg_trait.Execute then
        fld_trait.SaveToFile(sdg_trait.FileName);
    end;
 
end;
 
end.

pour appeller cette classe

Code :

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

Trt_savfldb.Create(ibq_user,ibq_userDOC,frm_Princ);

et

Code :

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

Trt_savfldisc.Create(ibq_user,ibq_userDOC,frm_Princ);

// pas d'exception

Je comprend pas pourquoi dans certain cas on doit créer l'instance de l'objet.

Code :

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

1
2
3
4
var
tt : traitement ;
begin
tt := Trt_savfldb.Create(ibq_user,ibq_userDOC,frm_Princ);

Merci

[Pascal Jankowski]

Je ne comprends pas exactement le sens de ta question !!

Mais, si on conçoit des classes c'est peut-être qu'à un certain moment on va les utiliser donc créer une instance de ces objets puis à un autre moment les libérer

soit de la façon suivante si l'on utilise une instance pour un traitement local :

Code :

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

1
2
3
4
5
6
7
 
with TMon_objet.Create(param) do
try
  "traitement..."
finally
  Free;  // je n'en ai plus bsoin
end;

ou si l'instance de l'objet existe sur une période plus longue

Etape 1: je crée

Code :

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

1
2
3
4
5
 
var 
  mon_instance: TMon_objet
...
mon_instance := TMon_objet.Create(param);

Etape 2: Je détuis plus tard

Code :

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

1
2
3
 
...
mon_instance.Free;

[skywaukers]

Bonjour,

Dans la mesure où tout ton traitement se trouve dans ton create, effectivement tu ne vois pas pourquoi utiliser une variable d'instance. Peut-être devrais-tu essayer d'utiliser un outil comme memcheck dans ton projet, cela te donnerai surement une réponse à ta question :
quand tu appelle ta méthode Create tu Créés bien ton objet, ce n'est pas le fait de l'affecter à une variable d'instance qui le créé !!
Perso je te déconseille même fortement ce genre de chose car gare aux fuites mémoire : tu créés un objet et tu n'as plus aucun moyen d'y accéder pour le libérer, il est bel et bien perdu quelque part dans la mémoire.

Je pense que tu confond avec le méthodes de classe qui peuvent, elles, être appelées sans instancier l'objet. Dans ce cas oui, il n'y a pas de problème, mais tu ne pourras alors accéder à aucun membre de ton objet qui n'est à ce coup ci pas instancié

@++
Dany

[helmis]

Merci à Tous

Bonjour,

Dans la mesure où tout ton traitement se trouve dans ton create, effectivement tu ne vois pas pourquoi utiliser une variable d'instance. Peut-être devrais-tu essayer d'utiliser un outil comme memcheck dans ton projet, cela te donnerai surement une réponse à ta question :
quand tu appelle ta méthode Create tu Créés bien ton objet, ce n'est pas le fait de l'affecter à une variable d'instance qui le créé !!
Perso je te déconseille même fortement ce genre de chose car gare aux fuites mémoire : tu créés un objet et tu n'as plus aucun moyen d'y accéder pour le libérer, il est bel et bien perdu quelque part dans la mémoire.

Je pense que tu confond avec le méthodes de classe qui peuvent, elles, être appelées sans instancier l'objet. Dans ce cas oui, il n'y a pas de problème, mais tu ne pourras alors accéder à aucun membre de ton objet qui n'est à ce coup ci pas instancié

@++
Dany

Oui mais normalement je devai avoir une exception du qu'on pointe vers Nil, Exemple:

Code :

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

1
2
3
4
5
var
  idb_centrale: TIBDatabase ;
Begin
  idb_centrale.create // exception ---> pointe vers un Nil
End;

bon je pense qu'il y'a une différence au niveau de mon Create et le create en générale que j'arrive pas à Distinguer.

[skywaukers]

Merci à Tous
Oui mais normalement je devai avoir une exception du qu'on pointe vers Nil

Non, absolument pas. Dans ton constructor, tu créés bien les objets que tu utilise, et vu que le constructor a créé l'instance il n'y a aucun problème, tu ne pointe absolument pas sur nil, mais bien sur une instance de ta classe. Le seul problème, c'est que comme tu ne l'affecte à aucune variable d'instance, par conséquent dès la ligne suivante tu n'a plus moyen de la retrouver.

@++
Dany

[helmis]

Je vois plus Clair maintenant
Merci

[saidus]

En Pascal Objet ..si On veux utiliser une instance de classe (un Objet )
on dois le creer dynamiquement puis le liberer lorsqu'on a plus besion

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
type 
  TRien = class
    ...
  end;
 
var
  Rien : TRien ;
 
  Rien :=  TRien.Create(Param);
  ....
  FreeAndNil(Rien);

[nostroyo]

Si tu veux créer des méthodes de classes (méthode statique) tu dois déclarer tes méthodes avec class devant.

Code :

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

1
2
3
TMonObjet = class
public
  class function MaFonction;

Tu peux même accéder a des champs de ta classe qui doivent être impérativement des variables de classe.

Code :

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

1
2
3
4
5
TMonObjet = class
public
  class function MaFonction: Boolean;
class var MonChampsStatique : Boolean;
end

Attention tout de même il faut avoir au moins D2005 il me semble pour les class var.

après tu accède a ta méthode en faisant :

Code :

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

 if TMonObjet.MaFonction then ...

Plus besoin d'instancier ton objet.
Je ne sais pas si c'est ce que tu cherchais à faire mais bon je te file une piste.