Discussion :

[Jezlife]

Bonjour à tous.

Je ne suis pas sur qu'il y ai déjà un sujet la dessus alors mes excuse si je place mal mon sujet.

Voila je vous explique. J'ai une requête mysql qui ne fonctionne pas alors que je suis bien connecté à ma base et que la requête fonction sur wamp.

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TForm2.FormShow(Sender: TObject);
var
    mysql: PMysql;
    Resultat : PMYSQL_RES;
    row : PMYSQL_ROW;
begin
    //On cherche à mémorisé le nombre max de verbes dans la base pour le random
     mysql_query(mysql,pChar('Select count(*) From verbes'));
     Resultat := mysql_store_result(mysql);
     row := mysql_fetch_row(Resultat);
     [...]
End;

Quand je lance le test une erreur se produit à la ligne 9 et ce message d'erreur apparaît :

Le projet Project2.exe a provoqué une classe d’exception EAccessViolation avec le message 'Violation d'accès à l'adresse 100060BA dans le module 'libmysql.dll' Lecture de l'adresse 0000358'. Processus stoppé. Utilisez Pas-à-Pas ou Exécuter pour continuer.

Ma libmysql.dll est pourtant bien placé dans mon dossier et je l'utilise aussi dans d'autre application ou cela fonctionne parfaitement.

Bon ba voila je vous appel à l'aide car je vois vraiment pas ce qui cloche.


Merci d'avance

[Paul TOTH]

normal, la variable mysql n'est pas initialisée

[Jezlife]

Comment ça elle n'est pas initialiser ???
Tu pourrai développer s'il te plais ?

[jaduta]

Si c'est un composant graphique, tu l'ajoutes à ton Form.
Sinon, il faut l'instancier, le créer, si tu préfères.

Code :

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

mysql := PMysql.create;

c'est dans le style.
Il y a peut-être des paramètres à passer au create

[Jezlife]

Ok ok merci beaucoup pour votre réponse. Ça ne me dis rien car j'ai déjà fait une publication dans utiliser pMysql.create et ça fonctionner très bien.

Enfin je vais essayer et on verra. Merci encore

[Jezlife]

Désolé mais j'ai essayer d'initialiser mon mysql avec ta fonction et je n'arrive toujours pas à faire fonctionner.

Tu pourrai me montrer la fonction dans un exemple s'il te plais ?

[edam]

Il y a peut-être des paramètres à passer au create

ou si t'as déjà une connection utilise là au lieu de mysql

[ShaiLeTroll]

Ce n'est pas un objet mais un type de la library libMySQL, inspire toi de ce code, et de la documentation des API MySQL
j'ai utilisé le fichier mysql.pas de Matthias Fichtner, je suppose que tu as un équivalent

tient, le code qui te manque problablement avant l'appel d'une query

Code :

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

FConnexion : PMYSQL;

etape 1, la connexion !

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
     try
        FConnexion := mysql_init(nil);
     except
        raise Exception.Create(0, 'Librarie MySQL non Installée !');
     end;
 
     if not Assigned(FConnexion) then
     begin
        raise Exception.CreateFmt('Connexion non Initialisée : %d - %s ', [mysql_errno(FConnexion), mysql_error(FConnexion)]);
     end;
 
     if mysql_options(FConnexion, MYSQL_OPT_CONNECT_TIMEOUT, PChar(FTimeOut)) <> 0 then
     begin
        raise Exception.CreateFmt('TimeOut non Initialisé  : %d - %s ', [mysql_errno(FConnexion), mysql_error(FConnexion)]);
     end;
 
     if not Assigned(mysql_real_connect(FConnexion, PChar(FServerName), PChar(FLogin), PChar(FPW), PChar(FDataBaseName), 0, nil, 0)) then
     begin
        raise Exception.CreateFmt('Echec de la Connexion : %d - %s ', [mysql_errno(FConnexion), mysql_error(FConnexion)]);
     end;

ensuite, voir le code ci plus haut, pour appeler mysql_real_query, mysql_store_result, mysql_field_count, mysql_fetch_row, mysql_field_seek, mysql_fetch_field ...

[Jezlife]

Merci infiniment pour vos réponse et votre attention. Les code que tu ma donné Troll m'on permit de comprendre ce qui allé pas et maintenant c'est régler.

Merci encore à vous tous.