Overblog Suivre ce blog
Editer l'article Administration Créer mon blog

Le but de cet article n'est pas la découverte du DELPHI . Je n'ai nullement la prétention et les compêtences pour se lancer dans cette aventure. Cet article comme les suivants (et oui il y en aura d'autres , pour ceux qui sont intéressés par ces articles , penser à vous inscrire à la Newsletter) traitera des explications qui sont en rapport avec la carte K8055. Elles peuvent avec quelques connaissances supplémentaires être adaptées à d'autres langages de programmation.

 

Pour clore le sujet sur la connexion , voici le bout de programme qui gère la connexion et la déconnexion.

Le code en DELPHI.

  • function OpenDevice(CardAdress : integer):integer;stdcall;external 'K8055d.DLL';
  • procedure CloseDevice;stdcall; external'K8055d.DLL';

Ces 2 lignes sont obligatoires. Elles permettent de déclarer les fonctions spécifiques à la carte K8055. Elles vont appelau fichier K8055.DLL que l'on place dans le répertoire system32 de windows XP.

 

 

Ensuite ,il faut créer 2 boutons dans la feuille Form1. 1 pour la connexion et l'autre pour la déconnexion .Pour agrémenter l'affichage , j'ai crée une led sous la forme d'un cercle pour visualiser la connexion .

Quand le cercle est vert la connexion est établie , quand il est rouge la carte n'est pas connextée.

Le programme pour la connexion

procedure TForm1.Bttn_connexionClick(Sender: TObject); 

var h : integer; // déclaration de la variable h en mode entier

begin // début du sous-programme

   h:=OpenDevice(0); // connexion de la carte 0 et retour de la valeur de la fonction OpenDevice

   if h=-1 then Shp_led1.Brush.color:=clRed; // si h=-1 ,la carte 0 (dans ce cas là) n'a pas été trouvé. Le cercle est en rouge

   if h>=0 then Shp_led1.brush.color:=clgreen; // si h=0, la carte 0 a été trouvé . Le cercle est en vert

end; // fin du sous-programme

 

le partie déconnexion

procedure TForm1.Bttn_deconnectClick(Sender: TObject); // Action bp déconnexion

begin

  CloseDevice;  // déconnexion des cartes

   Shp_led1.Brush.color:=clRed; // Le cercle est rouge

end;

 

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); // Quitter l'application

begin

  CloseDevice;

end;

Voilà pour ces quelques explications pour la connexion de la carte. Vous pourrez télécharger quelques sources que je développe sur mon site.

 

Tag(s) : #K8055