Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1512 connectés 

  FORUM HardWare.fr
  Programmation
  Delphi/Pascal

  [Delphi/MYSQL] Erreur d'initialisation

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[Delphi/MYSQL] Erreur d'initialisation

n°384285
Slide
Posté le 06-05-2003 à 13:47:34  profilanswer
 

http://superchameau.free.fr/Erreur.JPG
 
Voilà ce que j'ai comme message. Le plus drole, c'est que quand je rentre ce code d'initialisation dans un projet vide, j'ai aucun message d'erreur de ce genre.  
 
var  
  mySQLConnection : PMYSQL;  
 
procedure TForm1.FormCreate(Sender: TObject);  
begin  
mySQLConnection := mysql_init(nil ); // Erreur ici  
TabCacher;  
Accomptes.Visible:=True;  
end;
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);  
begin  
mysql_close(mySQLConnection);  
end;  
 
 
J'utilise cette API : http://www.fichtner.net/delphi/mysql/  
 
Une solution ?


Message édité par Slide le 06-05-2003 à 13:47:54
mood
Publicité
Posté le 06-05-2003 à 13:47:34  profilanswer
 

n°384346
Slide
Posté le 06-05-2003 à 14:11:05  profilanswer
 

Meme ceci ne marche pas !!! :/
 

Code :
  1. program Project1;
  2. uses
  3.   Forms, mysql in 'mysql.pas',
  4.   Unit1 in 'Unit1.pas' {Form1};
  5. {$R *.res}
  6. var mySQLConnection : PMYSQL;
  7. begin
  8.   Application.Initialize;
  9.   mySQLConnection := mysql_init(nil ); // meme message derreur
  10.   Application.CreateForm(TForm1, Form1);
  11.   Application.Run;
  12. end.

n°384398
Slide
Posté le 06-05-2003 à 14:33:27  profilanswer
 

ARf, non, c'est moi... j'ai oublié de copier le DLL, je pensais l'avoir mi lol.

n°384417
stef_dober​mann
Personne n'est parfait ...
Posté le 06-05-2003 à 14:41:50  profilanswer
 

je vois que tu utilise aussi le site de michel :D
tu a donc du télécharger l'exemple de yannick, si c'est celui ci que tu utilise sache que chez moi il marche tres bien, il faut juste placer le fichier mysql.pas dans le répertoire librairie (Lib) de Delphi.X. et de mettre le fichier libmySQL.dll dans le meme répetoire que le projet.
 
si je suivit à côté de plaque dsl !
par contre pour ma par en utilisant le module SQLConnection1 je n'arriva pas à tester ma connexion !
vous avez une idée :??: peut - être une solution !
PS : j'utilise une IP dynamique que pointe chez un hebergeur gratuit (no-ip.com) cella fonctionne, mais vu que je n'ai pas une ip dynamique cella pose probleme quand elle change et mon programme plante !


---------------
Tout à commencé par un rêve...
n°384976
Slide
Posté le 06-05-2003 à 19:01:31  profilanswer
 

SteF_DOBERMANN a écrit :

je vois que tu utilise aussi le site de michel :D


Oui, mais j'etais juste en train de poster le meme post sur le forum de phidels.

SteF_DOBERMANN a écrit :

tu a donc du télécharger l'exemple de yannick, si c'est celui ci que tu utilise sache que chez moi il marche tres bien, il faut juste placer le fichier mysql.pas dans le répertoire librairie (Lib) de Delphi.X. et de mettre le fichier libmySQL.dll dans le meme répetoire que le projet.


Je l'ai download, mais il est trop lourd a comprendre pour un premier abord, donc j'ai direct deleté
 

SteF_DOBERMANN a écrit :


si je suivit à côté de plaque dsl !
par contre pour ma par en utilisant le module SQLConnection1 je n'arriva pas à tester ma connexion !
vous avez une idée :??: peut - être une solution !
PS : j'utilise une IP dynamique que pointe chez un hebergeur gratuit (no-ip.com) cella fonctionne, mais vu que je n'ai pas une ip dynamique cella pose probleme quand elle change et mon programme plante !


SQLConnection c'est un composant non ? Perso, l'api que l'on a sité tout les 2 marche suffisament bien tu sais :D
 
Si sa peut taidé :) (Car j'ai pas compris ce que tu demandais)
 

Code :
  1. var   mySQLConnection : PMYSQL;
  2. implementation
  3. procedure InitiallisationMYSQL; begin  mySQLConnection := mysql_init(nil ); end;
  4. function ConnectionMYSQL(adresseip,utilisateur,passe,bdd:string):boolean;
  5. begin
  6.     if mysql_real_connect(mySQLConnection, PAnsiChar(adresseip), PAnsiChar(utilisateur), PAnsiChar(passe), PAnsiChar(bdd), 0, nil , 0) <> nil then begin
  7. result := true;
  8.     end else begin
  9. result := false;
  10.     end;
  11. end;
  12. procedure FermetureMYSQL; begin mysql_close(mySQLConnection); end;

n°385043
stef_dober​mann
Personne n'est parfait ...
Posté le 06-05-2003 à 19:44:14  profilanswer
 

j'ai trouvé, c'étais encore plus simple
http://forum.hardware.fr/forum2.ph [...] subcat=391


---------------
Tout à commencé par un rêve...

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  Delphi/Pascal

  [Delphi/MYSQL] Erreur d'initialisation

 

Sujets relatifs
[mysql] additionner date et time pour obtenir datetimePossible de se connecter a une base free mysql avec java/Mysqfront ??
[BATCH] Fichier initialisation ?[Delphi 7] dbexpress c bien mais ... [resolu]
[ASP] erreur eofUne erreur tronquée
[PHP] nombre de requetes dans mysql_query[Delphi 7 Entreprise Studio] il me manque des trucs ! [resolu]
Différence entre MySQL et MySQL MAX ?[Rés][MySQL] Show databases autorisé alors qu'il ne devrait pas l'être
Plus de sujets relatifs à : [Delphi/MYSQL] Erreur d'initialisation


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR