Discussion :

[remixtech]

Bonjour,

Je fais appel à vous pour résoudre certains petits problèmes, j'ai bien regardé dans l'aide mais rien à faire je ne comprend pas tellement ces messages et la façon de les gérer... (j'ai regardé dans les fullcommons)

Voici mes erreurs :

Erreur n°1 :

[DCC Avertissement] Principale.pas(217): W1010 La méthode 'Create' cache la méthode virtuelle du type de base 'TMenuItem'

Code :

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

1
2
3
4
5
6
  Tmonmenuitem = class(TMenuItem)
  private
    ftexte: string;
  public
    constructor Create(AOwner: Tmenuitem; texte: string);
  end;

Erreur n°2 :

[DCC Avertissement] Principale.pas(1511): W1036 La variable 'SSLHandler' n'est peut-être pas initialisée

Comment empêcher ça ? Je comprend pas bien ?
Je ne peux pas vous filer de codes (mes fonctions sont un peu longues...)
Mais par exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
       if ssl then
        begin
          SSLHandler := TIdSSLIOHandlerSocketOpenSSL.Create();
          client_smtp.IOHandler := sslhandler;
          client_smtp.UseTLS := utUseImplicitTLS;
        end;
 
 
......
 
        if ssl then       
        sslhandler.Free;

VOilà c'est tout de tête,

Merci d'avance

[yousky]

Hello remixtech,

Alors pour la 1ere erreur, tu dois savoir que dans le classe TMenuItem, tu as déjà une méthode Create :

Code :

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

1
2
3
 
  public
    constructor Create(AOwner: TComponent); override;

A ta place je changerais ton code ainsi, puisque tu veux passer un nouveau paramètre à cette méthode.

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
  // Interface
  Tmonmenuitem = class(TMenuItem)
  private
    ftexte: string;
  public
    constructor CreateWith(AOwner: Tmenuitem; texte: string); virtual;
  end;

------

  // Implementation
constructor Tmonmenuitem.CreateWith(AOwner: Tmenuitem; texte: string);
begin
  Create(AOwner);
  FTexte := texte;
end;

En fait tu déclares un nouveau constructeur avec tes propres paramètres qui va faire appel au constructeur de l'ancêtre (TMenuItem).

Pour ta 2ème erreur, n'ayant pas tout le code c'est difficile, soit parce que tu as des try/except mal placés, soit il te manque un 'if ssl then' quelque part lorsque tu utilises ta variable 'SSLHandler'.

Voilà
Cdt
Greg

[Nono40]

Pour le deuxième, tu as bien deux if ssl then indépendants comme dans ton extrait ? Si oui c'est normal : dans le premier If Delphi va mémoriser que 'SSLHandler' ne sera pas initialisé si le premier IF est faux.

Il ne va pas vérifier que le deuxième If correspond à la même condition que le premier.

La solution simple dans ce cas est de mettre SSLHandler:=Nil juste avant le premier if.

[remixtech]

En effet tout fonctionne très bien, néanmoins le SSLHANDLER := nil est vraiment bisard...

Mais bon, merci quand même
Bonne journée et bon week end

[tourlourou]

Code :

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

1
2
3
4
5
6
Tmonmenuitem = class(TMenuItem)
  private
    ftexte: string;
  public
    constructor Create(AOwner: Tmenuitem; texte: string); overload; reintroduce // supprime l'avertissement
  end;

[remixtech]

Le createwith fonctionne correctement aussi non ?
Merci

[tourlourou]

le CreateWith fonctionne parfaitement, mais laisse le Create accessible => champ FTexte non renseigné :

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
type
  TMyClass=class
  private
    FParam: integer;
  public
    constructor Create(MyParam: integer); reintroduce;
  end;
 
constructor TMyClass.Create(MyParam: integer);
begin
  inherited Create;
  FParam:=MyParam;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  MyObject: TMyClass;
begin
  MyObject:=TMyClass.  // le seul Create proposé dans l'IDE est celui paramétré

[Archimède]

merci tourlourou, j'avais moi aussi souvent le même problème et je n'avais pas la solution. Super post