Discussion :

[juju1988]

Bonjour,

J'ai un problème tout simple je me sens un peu stupide de demander mais bon ... Voilà je veux séparer un peu mes fonctions principales correspondant à chaque menu dans une unité différente. Si l'utilisateur sélectionne le menu identification alors dans l'unité identification j'ai ma fonction controleUser comme ceci :

Code :

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

Function ControleUser(addIP : String; sCodeBarre : String;  ServerSocket : TServerSocket; oqRechercheUser: TOracleQuery);

Cependant les paramètres que je lui passe comme le ServeurSocket ou le TOracleQuery sont sur mon main... que dois-je faire ? Je précise que j'ai bien mis mon uses Identification dans mon main...

Merci d'avance

[Kaféine]

Salut,

Tu peux coller la déclaration de tes objets ServeurSocket et le TOracleQuery dans une (ou des) unité que tu "uses" dans la main si besoin et dans indentification.

[juju1988]

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
unit Identification;
 
interface
 
uses Main;
 
type
ServerSocket: TServerSocket;
oqRechercheUser: TOracleQuery;
 
implementation
 
(*Procédure permettant de rechercher si le nom d'user existe*)
Function ControleUser(addIP : String; sCodeBarre : String;  ServerSocket : TServerSocket; oqRechercheUser: TOracleQuery);
begin
end;
 
end.

Qu'avec le uses ça ne fonctionne pas... j'ai tenté de déclarer mes variables mais ça me dit qu'il attend un = à la place des : je ne comprend pas...

[Bernard B]

type
ServerSocket: TServerSocket;
oqRechercheUser: TOracleQuery;

ce que tu ecrit correspond à une déclaration de variables et non à une déclaration de type ! Si ServerSocket est un nouveau type il faut le faire suivre de = pour faire référence à son modèle.

Ces deux variables sont déclarées dans ta fonction, il ne faut les déclarer en plus, par contre dans ta clauses uses il faut mettre les unités où sont déclarés les TServerSocket et TOracleQuery et tu peux supprimer la déclaration de type.

[juju1988]

Ok alors c'est bon ça passe dans Identification j'ai rajouté les mêmes Uses que dans le main :

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
unit Identification;
 
interface
uses
  Windows,
  Messages,
  SysUtils,
  Classes,
  Graphics,
  Controls,
  Forms,
  Dialogs,
  OleCtrls,
  REMOTEPWCTRLLib_TLB,
  StdCtrls,
  ExtCtrls,
  ComCtrls,
  DBTables,
  Math,
  Menus,
  ScktComp,
  Oracle,
  DB,
  OracleData,
  ImgList;
 
implementation
 
Uses Main;
 
(*Procédure permettant de rechercher si le nom d'user existe*)
Function ControleUser(addIP : String; sCodeBarre : String;  ServerSocket : TServerSocket; oqRechercheUser: TOracleQuery) : String;
 
begin
end;
 
end.

Cependant maintenant c'est l'appel de la fonction ControleUser dans le Main qui ne fonctionne pas :

Code :

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

1
2
//Appel de la procédure qui recherchera si le nom user existe
      ControleUser(addIP, sCodeBarre, ServerSocket, oqRechercheUser)

Cela me dit identificateur non déclaré...

[Bernard B]

as-tu gardé Identification dans le uses de l'unité Main ? Il le faut, par contre pour l'instant le main dans le uses d'Identification ne sert à rien !

[juju1988]

Oui c'est bien ce qu'il me semblait pour le uses dans identification mais sinon oui j'ai bien gardé le uses dans le Main

Code :

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

1
2
3
...implementation
uses
  Mx03,mCode,MSuivi,_Gesini,Mlecture,Mchargement,MPrepCde,MPrepChariot,Mcontrole,MInauguration,McontrolePack,Mreappro,McontrolePL, Identification;...

Je ne comprend pas...

EDIT : COMPRIS !!!

Il me manquait la déclaration de la fonction dans la partie interface !! Honte sur moi !!!!!!! Merci en tout cas pour ton aide !!

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
unit Identification;
 
interface
uses
  Windows,
  Messages,
  SysUtils,
  Classes,
  Graphics,
  Controls,
  Forms,
  Dialogs,
  OleCtrls,
  REMOTEPWCTRLLib_TLB,
  StdCtrls,
  ExtCtrls,
  ComCtrls,
  DBTables,
  Math,
  Menus,
  ScktComp,
  Oracle,
  DB,
  OracleData,
  ImgList;
 
function ControleUser(addIP : String; sCodeBarre : String;  ServerSocket : TServerSocket; oqRechercheUser: TOracleQuery) : String;
 
implementation
 
Uses Main;
 
(*Procédure permettant de rechercher si le nom d'user existe*)
function ControleUser(addIP : String; sCodeBarre : String;  ServerSocket : TServerSocket; oqRechercheUser: TOracleQuery) : String;
begin
end;
 
end.