Discussion :

[f5jcg_Lulu]

Bonjour à tous,
Voici mon problème, c'est un classique.
Pour faire simple, je souhaite appeler depuis une unité une procédure située dans une autre unité. Mes unités sont déclarées dans les clause uses, rien n'y fait.
Quand j'appelle la procédure depuis l'unité où elle se trouve, ça fonctionne. J'ai souvent des soucis avec les déclarations d'unités.
Merci à tous
Cordialement

[Paul TOTH]

B A BA des unités

1) une unité comprend deux parties, INTERFACE et IMPLEMENTATION, seul ce qui est dans la partie INTERFACE est visible de l'extérieur

2) pour qu'une unité A utilise un symbole déclaré dans l'unité B il faut ajouter un "uses UnitB" dans la partie interface ou implementation

donc

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
unit UnitB;
 
interface
 
procedure test(); // dans l'interface, c'est la déclaration
 
implementation
 
procedure test(); // dans l'implementation ... on implémente...
begin
end;
 
end,

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
 
unit unitA;
 
interface
 
uses
  UnitB; // la procédure test est accessible
 
implementation
 
procedure demo;
begin
  test(); // ou UnitB.test()
end;
 
end.

cf les références circulaires pour la différence entre un uses dans la partie interface et la partie implementation

[f5jcg_Lulu]

Merci Paul Toth pour la proposition mais ça ne fonctionne toujours pas.
J'ai bien déclaré l'unité secondaire dans le uses d'INTERFACE de l'unité A, le WVBrowser1 de l'unité B n'est toujours pas reconnu par l'unité A.
L'instruction WVBrowser1.Navigate est soulignée en rouge.
Même en ajoutant le non le l'unité B devant l'instruction, rien n'y fait.

Code :

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

1
2
3
4
5
procedure TMainForm.Button1Click(Sender: TObject);
begin
  BrowserFrame.WVBrowser1.Navigate('https://www.eqsl.cc/qslcard/Index.cfm');
end;

J'ai le cas avec d'autres unités. Par exemple je dois ajouter Datas devant QContact pour que ça fonctionne bien que uDatas soit déclaré dans l'unité A.

Code :

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

1
2
3
4
5
6
7
procedure TMainForm.cbContinent1Change(Sender: TObject);
begin
With Datas.QContacts do
  begin
    SQL.Clear;
   .............

C'est un vieux problème récurrent que je ne suis jamais parvenu à résoudre.
Merci d'essayer de trancher ce nœud gordien.
Cordialement

[ShaiLeTroll]

Est-ce un problème de nom d'unité ou plutôt de la gestion des instances de TForm et TDataModule ?
BrowserFrame est le nom de l'unité comme l'est uDatas ?
ou plutôt l'instance de TForm à l'instar de Datas qui est une instance de TDataModule ?

Avez-vous instancier la TForm contenant dans BrowserFrame ?
Peut-être sans le savoir dans le DPR via Application.CreateForm.
Attention, le navigateur TWebBrowser requiert un affichage pour que le Handle soit disponible pour gérer les Events du DOM, si c'est un composant tiers, il faut vous renseigner à son sujet.

Vous devriez rendre votre code le moins dépendant que possible
Par exemple en faisant une procédure (pas une méthode) pour invoquer votre Navigate comme si c'était un Prompt.
On pourrait envisager des méthodes de classes mais ça serait prématuré vu votre connaissance du langage, cela serait cependant plus pratique pour vous, tout en évitant des variables globales au cycle de vie mal maitrisée.

[f5jcg_Lulu]

Merci ShaiLeTroll. Je vais voir tout ça en fonction de votre réponse. Mais vu effectivement mon niveau de connaissance du langage, à mon avis c'est assez mal barré !!! Mais bon, je vais essayer...
Bonnes fêtes de fin d'année à tous.
Cordialement

[pprem]

L'instruction WVBrowser1.Navigate est soulignée en rouge.

Hum, oui, alors la couleur, selon la version de l'IDE, faut pas trop s'en préoccuper. Seule la compilation permet de s'assurer que ça passe ou ça casse.

Pour le fond du sujet, tout a été dit, tu devrais y arriver.

[SergioMaster]

Bonjour,

ton problème est que tu veux utiliser des fonctions ou des procédures liées à des composants, il y a là confusion avec le titre.
Paul t'a décrit la déclaration classique d'utilisation de fonction/procédure (non liées à des composants)
Dans les deux cas que tu nous présentes ensuite, il s'agit de WebBrowser et d'un TQuery.

pour prendre l'exemple du Datas si tu avais écrit une fonction dans l'unité datas genre

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
function datas.OpenQContact : boolean;
begin
With QContacts do
  begin
    SQL.Clear;
   .............  
 end;
 try QContacts.Active:=True;
 
except
end;
  result:=QContacts.Active;
end;

alors, tu aurais pu écrire OpenQContact;

[Paul TOTH]

BrowserFrame, je suppose que c'est un TFrame...les TFrame contrairement aux TForm ne déclarent pas de variable globale

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
 
Unit Unit1;
 
interface
 
type
  Tform1 = class(TForm)
   ...
  end;
 
var
  Form1: TForm1;
 
implementation
...

avec un Uses Unit1, les symboles TForm1 et Form1 sont connu...si TForm1 contient un bouton Button1, celui-ci n'est connu qu'à travers une instance de Form1 (il peut y en avoir plusieurs): Form1.Button1

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
unit Unit2;
 
interface
 
type
  TFrame1 = class(TFrame)
  end;
 
implementation
...

pour un Cadre, seul le type est déclaré, et donc si je place un TFrame1 dans TForm1 je vais pouvoir écrire (avec un Uses Unit1) Form1.Frame1.Button1 pour accéder au bouton Button1 dans le cadre Frame1 qui se trouve dans TForm1

la visibilité est hiérarchique

question à deux balles, si j'écris

Code :

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

1
2
3
4
5
 
begin
  Form1 := TForm1.Create(Application);
  Form1 := TForm1.Create(Application);
end;

je vais avoir deux fiches à l'écran...comment modifier le bouton de la première fiche ? vu que Form1.Button1.Caption pointera sur le bouton de la deuxième fiche crée ?

spoiler alert !

Code :

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

1
2
3
4
5
6
7
8
 
var
  Form1a: TForm1;
  Form1b: TForm1;
begin
  Form1a := TForm1.Create(Application);
  Form1b := TForm1.Create(Application);
end;

je peux déclarer d'autres variable de type TForm1...et dans ce cas Form1 (ajoutée par Delphi automatiquement) ne sera pas utilisée, Form1.Button plantera sur Form1 vide alors que j'ai créé deux TForm1...C'est une erreur de débutant de penser que Form1 et TForm1 sont forcément liés....ils le sont par défaut car Delphi crée une seule variable Form1 qui est utilisée pour stocker la seule instance de TForm1.