Procédure entre deux formsRésolu

Question

Salut &#224; tous! VOil&#224; j'ai une proc&#233;dure nomm&#233;e Envia ds ma form 1. J'aimerais pouvoir envoyer un message &#224; cette proc&#233;dure de la form 2 mais lorsque je tape Envia('CHG', 'AWY'); , il me dit que Envia est un identificateur non d&#233;clar&#233;. Comment fais-ton pour faire r&#233;agir une proc&#233;dure depuis une autre form ?

+ D'infos : 
form 1 ds private :
procedure envia(s1,s2:string;appendcrlf:boolean=true);
la proc&#233;dure :
procedure TForm1.envia(s1,s2:string;appendcrlf:boolean=true);
var s:string;
begin
  s:=s1+' '+inttostr(FTrId);
  if s2<>'' then s:=s+' '+s2;
  inc(FTrId);
  if (appendcrlf) then s:=s+#13#10;
  if Fcon1 then form1.clientsocket1.socket.sendtext(s)
  else form1.clientsocket2.socket.sendtext(s);
  {$IFDEF Debug}log('PixaMSNlog.txt', 'NSS: '+s);{$ENDIF}
end;
Merci, A+, Yil2201

f0xi · Accepted Answer

unité 1 : UNIT unit1; INTERFACE // on place la declaration de la procedure ici pour la rendre visible // dans toute les unités qui utiliseront Unit1 procedure Envia([args]); IMPLEMENTATION procedure Envia([args]); begin ... code ... end; end.

unité 2 : UNIT unit2; INTERFACE IMPLEMENTATION // on declare Unit1 dans la clause Uses de l'implementation et // non dans la clause uses de l'interface pour eviter un apel cyclique de Unit1 uses Unit1; procedure Form2.Button2Click(Sender : TObject); begin Unit1.Envia(...); end; end.

Cirec · Answer

Salut,
dans Form2 :

...
Implementation
Uses Unit1; // Form1
...
Begin
  Form1.Envia('CHG', 'AWY'); 
End;

@+
Cirec

cs_shining · Answer

ptdr.... hey vous savez lire ??

+ D'infos : 
form 1 ds private : <=== PRIVATE
procedure envia(s1,s2:string;appendcrlf:boolean=true);

mets ta procedure en visibilité "PUBLIC"

public 
  procedure envia(s1,s2:string;appendcrlf:boolean=true);

maintenant tu peux faire Form2.Envia sans oublié le commentaire de CIREC concenant la déclaration de "unit1" dans la clause uses tout en sachant que unit1 est l'unité de ta Form1 si tu n'a pas changer cette valeur par défaut cette unité s'appel unit1.pas !!!

cs_shining · Answer

autre chose ...

procedure TForm1.envia(s1,s2:string;appendcrlf:boolean=true);
var s:string;
begin
  s:=s1+' '+inttostr(FTrId);
  if s2<>'' then s:=s+' '+s2;
  inc(FTrId);
  if (appendcrlf) then s:=s+#13#10;
  if Fcon1 then form1.clientsocket1.socket.sendtext(s)
  else form1.clientsocket2.socket.sendtext(s); <== étant donné que tu es dans Form1 inutile d'ajouter Form1.clientSocket1.Socket tu peux mettre directement ClientSocket1.Socket et c'est valable pour toutes les variables propre à TForm1
  {$IFDEF Debug}log('PixaMSNlog.txt', 'NSS: '+s);{$ENDIF}

cs_shining · Answer

Hey mais pkoi j'ai mis Form2.Envia , c'est Form1.Envia lol okay je sors !!!

Cirec · Answer

pfff... m&#234;me pas vu 
je dois &#234;tre trop vieux d&#233;j&#224; 

@+
Cirec

cs_cantador · Answer

En fait, les trois solutions fonctionnent..
quelle est la plus perfomante ?

cantador

Cirec · Answer

a mon avis il n'y a pas de diff&#233;rences de performances.
Mais la m&#233;thode la plus courante est celle post&#233; par f0xi.

Et pour m&#233;moire toutes les fonctions, proc&#233;dures et variables d&#233;clar&#233;s dans la section Interface d'une unit&#233; sont visibles dans toutes autres unit&#233;s qui la d&#233;clarera dans les Uses 

@+
Cirec

f0xi · Answer

oui tout ce qui se trouve dans INTERFACE est visible partout ou l'unit&#233; serat declar&#233; dans les USES.

d'ailleur parfois borland s'amuse a appel&#233; la zone PUBLIC des objet l'INTERFACE de l'objet et la zone PRIVATE la zone IMPLEMENTATION de l'objet...

vus que le mode de protection est le meme...

c'est un truc a savoir.

par contre un truc c'est qu'on peu garder une procedure en implementation tout en la laissant disponible dans tout la zone.

exemple :

IMPLEMENTATION

procedure Appel1;
begin
   Appel2; { erreur, Appel2 est introuvable }
end;

procedure Appel2;
begin
   ... instruction ...  
end;

end.

dans cet exemple Appel2 n'est pas visible pour Appel1 car Appel2 est declar&#233;e plus bas dans l'implementation.

certain declareront donc Appel2 dans l'interface de l'unit&#233; pour la rendre visible.
mais, si l'on veut obtenir cela tout en gradant Appel2 prot&#233;g&#233;e des autres unit&#233;s il faudrat faire :


IMPLEMENTATION


procedure Appel2; FORWARD;


procedure Appel1;

begin

   Appel2; { Appel2 est maintenant visible pour Appel1 }

end;



procedure Appel2;

begin

   ... instruction ...  

end;



end.


voila pour le rappel.

f0xi · Answer

rappel egalement :

si la procedure Envia est declar&#233;e dans TForm1, il n'est plus utile d'appeler les objet en comme&#231;ant par Form1....

procedure TForm1.envia(s1,s2:string;appendcrlf:boolean=true);
var s:string;
begin
  s:=s1+' '+inttostr(FTrId);
  if s2<>'' then s:=s+' '+s2;
  inc(FTrId);
  if (appendcrlf) then s:=s+#13#10;
  if Fcon1 then form1.clientsocket1.socket.sendtext(s)
  else form1.clientsocket2.socket.sendtext(s);
  {$IFDEF Debug}log('PixaMSNlog.txt', 'NSS: '+s);{$ENDIF}
end;

cs_shining · Answer

pour ma part dès le premier coup d'oeil j'ai opté pour la déclaration en "PUBLIC" à cause d'un point important !!!!


"if Fcon1 then form1.clientsocket1.socket.sendtext(s)" <=== "fcon" semble être une variable propre à TForm1 et sans doute en visilibité privée !!!, avec l'exemple de Foxi on ne pourra donc pas accèder à cette variable si tenté qu'elle soit en visibilité "privée", dans ce cas là il faudrait mettre cette variable en visibilité publique !!!

Yil2201 · Answer

Ok, merci beaucoup les gars, j'ai opt&#233; pour la premi&#232;re, A+ ;)

[url]www.yiliman2201.be.tf/url
      Mon site !

Procédure entre deux forms

12 réponses

Votre réponse

Discussions similaires