mysql/fr: what changed

Revision 1 to 2. Removed lines have a minus sign; added lines have a plus sign.

Old	New		Line
1	1		# Vue d'ensemble
2	2
3	3		Vous pouvez utiliser Free Pascal/Lazarus pour accéder à un serveur de base de données MySQL. Aussi vous pouvez utiliser les composant MySQL Data Access (MyDAC) comme un composant pour connecter Lazarus à MySQL. Les [composants Lazarus MyDAC](https://www.devart.com/mydac/download.html) sont libres en téléchargement.
4	4
5	5		Win64: veuillez lire les avertissements [[Windows Programming Tips/fr\|ici]] sur l'inadéquation de certaines versions Win64 de FPC/Lazarus.
6	6
7	7		Avantages de MySQL:
8	8
9	9		- Il est très largement utilisé et disponible.
10	10		- Bien que les plus anciennes versions avaient la réputation de ne pas être de vrais SGBDR, les nouvelles versions prennent en charge les propriétés ACID si correctement configurées (avec le bon stockage en arrière plan (backend storage))
11	11
12	12		Inconvénients de MySQL:
13	13
14	14		- Les mainteneurs de MySQL ne conservent pas la compatibilité entre les versions de bibliothèque client. Ce qui signifie que la traduction en FPC/Lazarus doit être faite pour chaque nouvelle version, ce qui ralentit les choses.
15	15		- La licence peut être restrictive pour certaines utilisations (p.ex. les déploiements commerciaux). Il existe une alternative comme MariaDB compatible et sasn doute moins restrictive.
16	16
17	17		De nombreux utilisateurs de Lazarus/FPC préfèrent les SGBDR [[Firebird/fr\|Firebird]] ou [[postgres/fr\|PostgreSQL]] pour cette raison.
18	18
19	19		# Licence de MySQL
20	20
21	21		Avant un déploiement significatif de MySQL, n'oubliez pas de lire sa [licence](https://www.mysql.com/about/legal/licensing/oem/).
22	22
23	23		# SQLDB
24	24
25	25		Lazarus 1.2 (with FPC 2.6.2), supports
26	26
27	27		- Bibliothèque cliente MySQL 4.0
28	28		- Bibliothèque cliente MySQL 4.1
29	29		- Bibliothèque cliente MySQL 5.0
30	30		- Bibliothèque cliente MySQL 5.1
31	31		- Bibliothèque cliente MySQL 5.5 (pris en charge depuis Lazarus 1.0.8)
32	32		- Bibliothèque cliente MySQL 5.6 (pris en charge depuis Lazarus \<à remplir\>)
33	33
34	34		![](/wiki-images/c/c5/Sqldbcomponents.png%E2%80%8E)
35	35
36	36		De plus récentes versions de FPC/Lazarus peuvent supporter de plus récentes bibliothèques clientes de MySQL.
37	37
38	38		Assurez-vous que vous utilisez le composant de connexion correct pour votre version de bibliothèque client. Ainsi si vous avez les bibliothèques clientes installées pour MySQL 4.1, vous devez utiliser le composant TMySQL41Connection, même si le serveur fonctionne en version 4.0 ou 5.0. La raison à cela est que les bibliothèques clientes MySQL casse souvent la compatibilité de leurs API et donc chaque version demande un pilote Pascal différent.
39	39
40	40		Sur les systèmes *nix, le code SQLdb peut rechercher la version pure de la bibliothèque sans suffixe de numéro de version. Il y a plusieurs manières de pouvoir traiter ceci :
41	41
42	42		- (sur plusieurs Linux) installer la version -dev de la bibliothèque.
43	43		- créer un lien symbolique sur le nom de bibliothèque spécifique vers celui que recherche FPC (plutôt que hacker)
44	44		- utiliser [[TSQLDBLibraryLoader/fr\|TSQLDBLibraryLoader]] pour spécifier le nom de bibliothèque avant le chargement de la connexion.
45	45
46	46		# Tutoriels SQLDB et exemple de code
47	47
48	48		## Faire fonctionner MySQL dans Linux ou Windows
49	49
50	50		Suivez les instructions dans le Manuel Utilisateur de MySQL. Assurez-vous que le daemon mysqld tourne de manière fiable, que tous les utilisateurs potentiels (y compris root, mysql, vous-mêmes et quiconque en aurait besoin) aient les priilèges qu'ils exigent, de n'importe quel hôte qu'il y a besoin (tel que 'localhost', le nom d'hôte local, et d'autres hôte sur votre réseau) tout en restant cohérent avec la sécurité. Il est préférable que les tous les utilisateurs, y compris le root, (NdT : sic) aient des mots de passe. Testez l'action du système de base de donnée en utilisant les exemples donnés dans le manuel et contrôlez que tous les utilisateurs ont des accès fiables.
51	51
52	52		## Faire fonctionner MySQL avec FPC en mode texte
53	53
54	54		Il y a un répertoire avec un programme d'exemple dans \$(fpcsrcdir)/packages/base/mysql/. Vous pouvez trouver le répertoire des sources dans Lazarus: Tools -\> Options -\> Files -\> FPC source directory. Les chemins possibles pour le répertoire mysql sont /usr/share/fpcsrc/packages/base/mysql/ (installation par rpm) ou C:\lazarus\fpcsrc\packages\base\mysql\\ (windows). Ce répertoire contient aussi les unités mysql.pp, mysql_com.pp et mysql_version.pp. Avant d'exécuter le script de test, vous avez besoin une base de données nommée testdb: faites ceci en vous connectant au moniteur mysql (en root avec tous les privilèges) et lancer les ordres SQL suivants :
55	55
56	56		``` sql
57	57		CREATE DATABASE testdb;
58	58		```
59	59
60	60		puis assurez-vous que tous les utilisateurs concernés ont les privilèges d'accès appropriés pour cela :
61	61
62	62		``` sql
63	63		GRANT ALL ON testdb TO johnny-user IDENTIFIED BY 'johnnyspassword';
64	64		```
65	65
66	66		Il y a un script appelé mkdb que vous devriez maintenant essayer de lancer :
67	67
68		-	~~`sh ./mkdb`~~
	68	+	```text
	69	+	sh ./mkdb
	70	+	```
69	71
70	72		Cela échouera probablement, car le système ne permet pas à un utilisateur anonyme d'accéder à la base de données. Il faut donc changer le script en utilisant un éditeur à la ligne :
71	73
72		-	~~`mysql -u root -p ${1-testdb} << EOF >/dev/null`~~
	74	+	```text
	75	+	mysql -u root -p ${1-testdb} << EOF >/dev/null
	76	+	```
73	77
74	78		et essayez d'exécuter à nouveau en entrant votre mot de passe à l'invite. Avec de la chance, vous avez peut-être réussi à créer la base de données de test : testez-la (tant que vous être connectés dans le moniteur mysql) en lançant l'ordre mysql
75	79
76	80		``` sql
77	81		select * from FPdev;
78	82		```
79	83
80	84		Vous devriez voir une table listant l'ID, le nom d'utilisateur et l'adresse e-mail de quelques développeurs FPC. Maintenant, essayer d'exécuter le programme de test testdb.pp (il peut avoir besoin d'être compilé, et échouera certainement au premier essai !!).
81	85
82	86		J'ai trouvé que le programme ne pourrait pas se connecter à mysql pourt plusieurs raisons :
83	87
84	88		- Mon système (SuSE Linux v9.0) installe mysql v4.0.15, pas la version 3 pour laquelle le paquet a été conçu.
85	89
86	90		- Le programme a besoin d'avoir les noms d'utilisateur et les mots de passe pour obtenir l'accès à la base de données.
87	91
88	92		- Le compilateur demande à savoir où trouver les bibliothèques mysql (SI VOUS N'AVEZ PAS INSTALLER LES BIBLIOTHEQUES DE DEV, FAITES-LE MAINTENANT !)
89	93
90	94		J'ai créé une copie de testdb.pp appelée trydb.pp, plutôt qu'éditer l'original - cela veut dire que les fichiers originaux peuvent encore être corrigés par les mise à jour de CVS. J'ai aussi copié les fichiers trouvés dans le sous-répertoire mysql/ver40/ dans le sous-répertoire mysql/, en les renommant mysql_v4.pp, mysql_com_v4.pp et mysql_version_v4.pp, en adaptant les nomes d'unités dans chacun des fichiers en conséquence. J'ai changé l'instruction uses dans trydb.pp en
91	95
92	96		``` pascal
93	97		uses mysql_v4
94	98		```
95	99
96	100		et l'instruction dans mysql_v4.pp en
97	101
98	102		``` pascal
99	103		uses mysql_com_v4
100	104		```
101	105
102	106		J'ai ajouté une ligne à /etc/fpc.cfg pour pointer vers mes bibliothèques :
103	107
104		-	~~`-Fl/lib;/usr/lib`~~
	108	+	```text
	109	+	-Fl/lib;/usr/lib
	110	+	```
105	111
106	112		L'étape suivante pourrait être moins nécessaire si les bibliothèques de dév. sont installées car les liens sont installés pour vous, mais cela ne coûte rien de vérifier. J'ai dû trouvé le vrai nom de la bibliothèque cliente de mysql dans le répertoire /usr/lib et dans mon cas j'ai dû lancer la commande shell :
107	113
108		-	~~`ln -s libmysqlclient.so.12.0.0 lmysqlclient`~~
	114	+	```text
	115	+	ln -s libmysqlclient.so.12.0.0 lmysqlclient
	116	+	```
109	117
110	118		pour faire un lien symbolique permettant à FPC de trouver la bibliothèque. Pour faire bonne mesure, j'ai aussi créé le lien :
111	119
112		-	~~`ln -s libmysqlclient.so.12.0.0 mysqlclient`~~
	120	+	```text
	121	+	ln -s libmysqlclient.so.12.0.0 mysqlclient
	122	+	```
113	123
114	124		et placé des liens similaires dans divers autres répertoires : pas strictement nécessaire, mais juste au cas où ... ! Certains utilisateurs pourraient avoir besoin d'ajouter le lien suivant :
115	125
116		-	~~`ln -s libmysqlclient.so.12.0.0 libmysqlclient.so`~~
	126	+	```text
	127	+	ln -s libmysqlclient.so.12.0.0 libmysqlclient.so
	128	+	```
117	129
118	130		J'ai modifié trydb.pp pour inclure les détails utilisateur, initialement en ajoutant l'hôte, l'utilisateur et le mot de passe en constantes :
119	131
120	132		``` pascal
121	133		const
122	134		host : Pchar= 'localhost';
123	135		user : Pchar= 'myusername';
124	136		passwd: Pchar = 'mypassword';
125	137		```
126	138
127	139		> Warning: Cette section semble extrêmement obsolète. Si vous êtes encore sur MySQL 4 peut-être est-il temps de vous mettre à jour.
128	140
129	141		J'ai aussi trouvé que je ne pouvais pas me connecter à mysql en utilisant l'appel à mysql_connect(),mais devais utiliser mysql_real_connect() qui a plusieurs paramètres. Pour compliquer un peu plus les choses, le nombre de paramètres semble avoir été changé entre la version 3 (où il y en a sept) et la version 4 (où il y en a huit). Avant d'utiliser mysql_real_connect j'ai dû utiliser mysql_init() lequel n'est pas trouvé dans le mysql.pp original mais est trouvé dans mysql_v4.pp.
130	142
131	143		Donc le code pour la connexion à la base de données est maintenant :
132	144
133	145		``` pascal
134	146		{ a few extra variables}
135	147		var
136	148		alloc : PMYSQL;
137	149
138	150		{main program fragment}
139	151
140	152		begin
141	153		if paramcount=1 then
142	154		begin
143	155		Dummy:=Paramstr(1)+#0;
144	156		DataBase:=@Dummy[1];
145	157		end;
146	158
147	159		Writeln('Allocating Space...');
148	160		alloc := mysql_init(PMYSQL(@qmysql));
149	161		Write('Connecting to MySQL...');
150	162		sock := mysql_real_connect(alloc, host, user, passwd, database, 0, nil, 0);
151	163		if sock=Nil then
152	164		begin
153	165		Writeln(stderr,'Couldn''t connect to MySQL.');
154	166		Writeln(stderr, 'Error was: ', mysql_error(@qmysql));
155	167		halt(1);
156	168		end;
157	169		Writeln('Done.');
158	170		Writeln('Connection data:');
159	171		{$ifdef Unix}
160	172		writeln('Mysql_port : ',mysql_port);
161	173		writeln('Mysql_unix_port : ',mysql_unix_port);
162	174		{$endif}
163	175		writeln('Host info : ',mysql_get_host_info(sock));
164	176		writeln('Server info : ',mysql_stat(sock));
165	177		writeln('Client info : ',mysql_get_client_info);
166	178
167	179		Writeln('Selecting Database ',DataBase,'...');
168	180		if mysql_select_db(sock, DataBase) < 0 then
169	181		begin
170	182		Writeln(stderr,'Couldn''t select database ',Database);
171	183		Writeln(stderr,mysql_error(sock));
172	184		halt(1);
173	185		end;
174	186		{... as original contents of testdb.pp}
175	187		```
176	188
177	189		Maintenant - prêt pour démarrer le compilation de trydb.pp ?
178	190
179		-	~~` fpc trydb`~~
	191	+	```text
	192	+	fpc trydb
	193	+	```
180	194
181	195		Réussite ! Vous opouvez dorénavant l'exécuter :
182	196
183		-	~~` ./trydb`~~
	197	+	```text
	198	+	./trydb
	199	+	```
184	200
185	201		Youpi ! J'ai eu le listing des développeurs FPC !
186	202
187	203		Un petit raffinement supplémentaire : Rendre l'entrée des détails de l'utilisateur et les commandes mysql interactives, utiliser des variables plutôt que des constantes et permettre l'entrée de plusieurs commandes SQL, jusqu'à ce que nous émettions la commande quit : voir [[Lazarus Database Tutorial/TryDbpp\|liste complète des programmes]], où les détails de l'utilisateur sont entrés dans la console, et le programme passe dans une boucle où les commandes SQL sont entrées depuis la console (sans le point-virgule terminal) et les réponses sont imprimées, jusqu'à ce que "quit" soit saisi à partir du clavier.
188	204
189	205		Voir [[Lazarus Database Tutorial/SampleListing\|Exemple de listing console]].
190	206
191	207		## Se connecter à MySQL depuis une application Lazarus
192	208
193	209		Ce tutoriel montre comment connecter Lazarus à une base de données MySQL, et exécute de simples requêtes, en utilisant les composants Lazarus de base ; il utilise aucun composant sensible aux données, mais illustre les principes d'interaction avec la base de données.
194	210
195	211		Créez un nouveau projet dans Lazarus :
196	212
197		-	~~`Project -> New Project -> Application`~~
	213	+	```text
	214	+	Project -> New Project -> Application
	215	+	```
198	216
199	217		Une nouvelle forme automatiquement générée apparaîtra.
200	218
201	219		Agrandissez la fiche à environ la moitié de l'écran, ensuite renommez la fiche et sa légende (caption) en 'TryMySQL'.
202	220
203	221		Depuis l'onglet Standard de la palette de composant, placez trois TEdit en haut à gauche de la fiche et immédiatement en dessus de chaque TEdit placez une étiquette (Label). Changez les noms et les légendes en 'Hôte' (avec HostLLabel, HostEdit), 'Nom d'utilisateur' (avec UserLabel, UserEdit) et 'Mot de passe' (avec PasswdLabel et PasswdEdit). De manière alternative; vous pourriez utiliser des composants LabelledEdit depuis l'onglet Additional.
204	222
205	223		Sélectionnez le champ de saisie Mot de passe et trouvez la propriété PasswordChar : changez-la en '*' ou quelque autre caractère, ce qui empêchera les caractères saisis d'apparaître à l'écran, ce caractère apparaîtra à la place. Assurez-vous que les propriétés Text sont à blanc.
206	224
207	225		Maintenant placez une autre zone de saisie TEdit et une étiquette (TLabel) en haut du côté droit de votre fiche. Changez l'étiquette en 'Entrez un ordre SQL'. et nommez-le CommandEdit.
208	226
209	227		Placez trois boutons sur la fiche : deux sur la gauche sous les champs de saisie et un à droite sous la zone Ordre.
210	228
211	229		Changez les légendes des boutons de gauche en 'Se connecter' (ConnectButton) et 'Terminer' (ExitButton) et pour celui à droite 'Envoyer la requête' (QueryButton).
212	230
213	231		Placez un TMemo large étiqueté et nommé 'Résultats' (ResultMemo) dans le bas à droite, de façon à remplir au mieux la place libre. Trouvez la propriété ScrollBars et sélectionnez ssAutoBoth, ainsi les barres de défilement apparaîtront automatiquement si l le texte remplit l'espace. Définissez la propriété WordWrap à True.
214	232
215	233		Placez une barre de status (depuis l'onglet Contrôles Communs) tout en bas de la fiche et et mettre dans sa propriété SimpleText 'TryMySQL'.
216	234
217	235		Une capture d'écran de la fiche peut être vue ici : [Exemple Mysql](http://lazarus-ccr.sourceforge.net/kbdata/trymysqldb.png).
218	236
219	237		Maintenant vous devez coder quelques gestionnaires d'événement.
220	238
221	239		Les trois boîtes d'édition sur la gauche sont des entrées pour le nom d'hôte, le nom d'utilisateur et le mot de passe. Quand elles sont entrées de manière satisfaisante, le bouton Connect est cliqué. Le gestionnaire OnClick de ce bouton est basé en partie sur la programme en mode texte du dessus.
222	240
223	241		Les réponses de la base de données devraient être converties en chaînes et affichées dans le mémo. Les procédures Pascal en mode texte Write et WriteLn sont capables de faire beaucoup de conversions 'en vol', mais l'utilisation de la boîte Mémo pour la sortie de texte nécessite une conversion explicite de types de donnée vers la chaîne correcte : donc les variables PChar doivent être converties en chaînes en utilisant StrPas et les entiers doivent être convertis avec IntToStr . Les chaînes sont affichées dans le Mémo en utilisant :
224	242
225	243		``` pascal
226	244		procedure ShowString(S : string);
227	245		(* display a string in a Memo box *)
228	246		begin
229	247		trymysqlForm1.ResultsMemo.Lines.Add(S)
230	248		end;
231	249		```
232	250
233	251		Le gestionnaire de l'événément du ConnectButton devient alors :
234	252
235	253		``` pascal
236	254		procedure TtrymysqlForm1.ConnectButtonClick(Sender: TObject);
237	255		(* Connect to MySQL using user data from Text entry boxes on Main Form *)
238	256		var strg: string;
239	257
240	258		begin
241	259		dummy1 := trymysqlForm1.HostEdit.text+#0;
242	260		host := @dummy1[1];
243	261		dummy2 := trymysqlForm1.UserEdit.text+#0;
244	262		user := @dummy2[1] ;
245	263		dummy3 := trymysqlForm1.PasswdEdit.text+#0;
246	264		passwd := @dummy3[1] ;
247	265
248	266		alloc := mysql_init(PMYSQL(@qmysql));
249	267		sock := mysql_real_connect(alloc, host, user, passwd, database, 0, nil, 0);
250	268		if sock=Nil then
251	269		begin
252	270		strg :='Couldn''t connect to MySQL.'; showstring (strg);
253	271		Strg :='Error was: '+ StrPas(mysql_error(@qmysql)); showstring (strg);
254	272		end
255	273		else
256	274		begin
257	275		trymysqlForm1.statusBar1.simpletext := 'Connected to MySQL';
258	276		strg := 'Now choosing database : ' + database; showstring (strg);
259	277		{$ifdef Unix}
260	278		strg :='Mysql_port : '+ IntToStr(mysql_port); showstring (strg);
261	279		strg :='Mysql_unix_port : ' + StrPas(mysql_unix_port); showstring (strg);
262	280		{$endif}
263	281		Strg :='Host info : ' + StrPas(mysql_get_host_info(sock));
264	282		showstring (strg);
265	283		Strg :='Server info : ' + StrPas(mysql_stat(sock)); showstring (strg);
266	284		Strg :='Client info : ' + Strpas(mysql_get_client_info); showstring (strg);
267	285
268	286		trymysqlForm1.statusbar1.simpletext := 'Selecting Database ' + DataBase +'...';
269	287		if mysql_select_db(sock,DataBase) < 0 then
270	288		begin
271	289		strg :='Couldn''t select database '+ Database; ShowString (strg);
272	290		Strg := mysql_error(sock); ShowString (strg);
273	291		end
274	292		end;
275	293		end;
276	294		```
277	295
278	296		La zone de texte sur la droite permet d'entrer un ordre SQL, sans le point-virgule final ; quand vous êtes satisfait du contenu ou de sa syntaxe, le bouton SendQuery est enfoncé et la requête exécutée, avec ses résultats écrits dans le mémo ResultsMemo.
279	297
280	298		Le gestionnaire d'événement de SendQuery est à nouveau basé sur la version en mode texte de FPC, sauf que, une fois de plus, la conversion de type explicite doit être effectuée avant que les chaînes ne soient affichées dans la boîte.
281	299
282	300		La différence avec la version en mode texte est que si une condition d'erreur est détectée, le programme ne s'arrête pas et MySQL n'est pas fermé ; au lieu de cela, le contrôle est rendu à la fiche principale et il devient possible de corriger l'entrée avant de soumettre à nouveau l'ordre SQL. L'application se termine enfin (avec la fermeture de MySQL) quand le bouton Exit est cliqué.
283	301
284	302		Le code de SendQuery est le suivant :
285	303
286	304		``` pascal
287	305		procedure TtrymysqlForm1.QueryButtonClick(Sender: TObject);
288	306		var
289	307		dumquery, strg: string;
290	308		begin
291	309		dumquery := TrymysqlForm1.CommandEdit.text;
292	310		dumquery := dumquery+#0;
293	311		query := @dumquery[1];
294	312		trymysqlForm1.statusbar1.simpletext := 'Executing query : '+ dumQuery +'...';
295	313		strg := 'Executing query : ' + dumQuery; showstring (strg);
296	314		if (mysql_query(sock,Query) < 0) then
297	315		begin
298	316		Strg :='Query failed '+ StrPas(mysql_error(sock)); showstring (strg);
299	317		end
300	318		else
301	319		begin
302	320		recbuf := mysql_store_result(sock);
303	321		if RecBuf=Nil then
304	322		begin
305	323		Strg :='Query returned nil result.'; showstring (strg);
306	324		end
307	325		else
308	326		begin
309	327		strg :='Number of records returned : ' + IntToStr(mysql_num_rows (recbuf));
310	328		Showstring (strg);
311	329		Strg :='Number of fields per record : ' + IntToStr(mysql_num_fields(recbuf));
312	330		showstring (strg);
313	331		rowbuf := mysql_fetch_row(recbuf);
314	332		while (rowbuf <>nil) do
315	333		begin
316	334		Strg :='(Id: '+ rowbuf[0]+', Name: ' + rowbuf[1]+ ', Email : ' +
317	335		rowbuf[2] +')';
318	336		showstring(strg);
319	337		rowbuf := mysql_fetch_row(recbuf);
320	338		end;
321	339		end;
322	340		end;
323	341		end;
324	342		```
325	343
326	344		Enregistrez votre projet et exécutez (menu Run -\> Run).
327	345
328	346		### Télécharger le code source de l'exemple
329	347
330	348		> Warning: Les versions actuelles de Lazarus/FPC demande de valider toutes les transactions MySQL. Ceci n'était pas nécessaire dans les version précédentes. Le code téléchargé ne tournera certainement pas tant qu'il ne sera pas mis à jour.
331	349
332	350		Un listing complet du programme est disponible ici [Sample Source Code](http://sourceforge.net/projects/lazarus-ccr/files/Demos%20and%20examples/MySql%20demo%20using%20SQLdb%20components%208%20April%202005/mysql_demo_20050408.tar.gz/download).
333	351
334	352		## Lazarus, MySQL et UTF-8
335	353
336	354		Ce qui suit peut être aussi bien nécessaire pour d'autres pages de code/jeux de caractères.
337	355
338	356		L'Unicode UTF-8 est un encodage de jeu de caractères multi-octet commode, qui permet de travailler avec des textes multilingues sans demander de WideStrings (2 octets par caratère). Il est supporté aussi bien par les composants SQLdb Lazarus que par MySQL depuis la version 4.1 en choisissant le jeu de caractères approprié.
339	357
340	358		Néanmoins, en réglant simplement cet encodage comme défaut pour
341	359
342	360		- vos tables et
343	361		- le composant de connexion MySQL (p.ex. `TMySQL51Connection.CharSet:='UTF8';`)
344	362
345	363		aboutira à un stockage et à la récupération de chaînes UTF-8 incorrects : tout caractères accentués/international sera montré avec des point d'interrogation (?). Apparemment, la raison à cela est que la bibliothèque client est compilée pour s'attendre à des caractère Latin1 défini par défaut.
346	364
347	365		En vue d'une communication correcte entre Lazarus, la bibliothèque client MySQL et le serveur MySQL, dexu requêtes supplémentaires demandes à être exécutées à chaque fois qu'une connexion à la bse de données est établie :
348	366
349	367		``` sql
350	368		SET CHARACTER SET `utf8`
351	369		```
352	370
353	371		et
354	372
355	373		``` sql
356	374		SET NAMES 'utf8'
357	375		```
358	376
359	377		La première requête s'assurera que votre application reçoive des chaînes correctement encodées, et la seconde demande à MtySQL de ne pas convertir les chaînes qu'il reçoit de votre application.
360	378
361	379		## Simple démo MySQL utilisant le composant TMySQL5xConnection
362	380
363	381		Voici du code qui fonctionne comme une démo vite fait pour démarrer et s'exécuter simplement. Comme avec tous les composants SQLdb, assurez-vos que la bibliothèque client est à l'emplacement correct :
364	382
365	383		- dans Windows: la DLL p.ex. libmysql.dll est mise dans dossier de sortie du projet (où l'exécutable est généré). Vous pouvez aussi la placer dans votre répertoire Windows/system32.
366	384		- dans Linux/OSX: installez la bibliothèque client de MySQL dans votre chemin (p.ex. en utilisant votre gestionnaire de paquet, rpm, deb...).
367	385
368	386		Lors de la distribution de votre application, assurez-vous que la bonne bibliothèque client de MySQL est présente sur l'ordinateur de votre utilisateur. Comme cela peut être un problème, peut-être qu'utiliser un moteur de base de données différent peut être plus pertinent.
369	387
370	388		## Exemple conduit par le code
371	389
372	390		Cet exemple utilise du code pour remplir des contrôles avec de la donnée. Vous pouvez aussi utiliser des contrôles sensibles aux données (TDBEdit...), ce qui pourrait être plus facile/rapide. Voir l'exemple du dessous ou le [[SQLdb Tutorial1/fr\|Tutoriel SQLdb 1]] pour cela.
373	391
374	392		Placez trois champs d'édition (TEdit), un champ Mémo et quelques boutons sur la fiche. Vous devez ajoutez mysqlXXconn and sqldb dans la clause Uses.
375	393
376	394		Dans cet exemple, le SGBD MySQL a un utilisateur 'root' sans mot de passe et une base de données 'test1' avec une table 'tPerson' qui a trois champs : 'personid' (int), 'surname' (varchar(40)) et 'dob' (datetime). Aussi quelques données de test ont été ajoutées.
377	395
378	396		Le bouton btnTest doit être cliqué en premier car il crée la connexion avec le, SGBD. Notez la ligne qui applique les mises à jour - sans cela, les données modifiées ou nouvelles ne seront pas retournées au DB même si elles seront en mémoire et peuvent être visualisées à l'aide de btnFirst et btnNext.
379	397
380	398		``` pascal
381	399		unit unt_db;
382	400		// Example based on:
383	401		// http://www.lazarus.freepascal.org/index.php?name=PNphpBB2&file=viewtopic&t=5761
384	402		// from tpglemur on that forum
385	403		{$mode objfpc}{$H+}
386	404		interface
387	405		uses
388	406		Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs,
389	407		mysql50conn, sqldb, StdCtrls;
390	408		type
391	409		{ TForm1 }
392	410		TForm1 = class(TForm)
393	411		btnTest: TButton;
394	412		btnNext: TButton;
395	413		btnFirst: TButton;
396	414		btnNew: TButton;
397	415		edtPersonID: TEdit;
398	416		edtSurname: TEdit;
399	417		edtDOB: TEdit;
400	418		Memo1: TMemo;
401	419		procedure btnFirstClick(Sender: TObject);
402	420		procedure btnNewClick(Sender: TObject);
403	421		procedure btnNextClick(Sender: TObject);
404	422		procedure btnTestClick(Sender: TObject);
405	423		private
406	424		{ private declarations }
407	425		conn : TMySQL50Connection;
408	426		query : TSQLQuery;
409	427		transaction : TSQLTransaction;
410	428		procedure Display;
411	429		public
412	430		{ public declarations }
413	431		end;
414	432		var
415	433		Form1: TForm1;
416	434		implementation
417	435		{ TForm1 }
418	436		procedure TForm1.btnTestClick(Sender: TObject);
419	437		var
420	438		S: String;
421	439		begin
422	440		conn := TMySQL50Connection.Create(nil);
423	441		query := TSQLQuery.Create(nil);
424	442		transaction := TSQLTransaction.Create(nil);
425	443		try
426	444		try
427	445		// Adjust to your own database server, username and password:
428	446		conn.HostName := '127.0.0.1';
429	447		conn.UserName := 'root';
430	448		conn.Password := '';
431	449		// If you use a different database name, adjust here:
432	450		conn.DatabaseName := 'test1';
433	451		conn.Connected := True;
434	452		conn.Transaction := transaction;
435	453		query.DataBase := conn;
436	454		//query.ParseSQL := true; //line not needed - this is the default anyway
437	455		//query.ReadOnly := false; //line not needed - this is the default anyway
438	456		query.SQL.Text := 'select * from tperson';
439	457		query.Open;
440	458
441	459		query.Last;
442	460		S := IntToStr(query.RecordCount) + #13#10;
443	461		query.First;
444	462
445	463		while not query.EOF do
446	464		begin
447	465		S := S + query.FieldByName('surname').AsString + #13#10;
448	466		query.Next;
449	467		end;
450	468		finally
451	469		//query.Free;
452	470		//conn.Free;
453	471		end;
454	472		except
455	473		on E: Exception do
456	474		ShowMessage(E.message);
457	475		end;
458	476		Memo1.Text:= S;
459	477		end;
460	478
461	479		procedure TForm1.Display;
462	480		begin
463	481		edtPersonID.Text := query.FieldByName('personid').AsString;
464	482		edtSurname.Text := query.FieldByName('surname').AsString;
465	483		edtDOB.Text := query.FieldByName('dob').AsString;
466	484		end;
467	485
468	486		procedure TForm1.btnFirstClick(Sender: TObject);
469	487		begin
470	488		query.First;
471	489		Display;
472	490		end;
473	491
474	492		procedure TForm1.btnNewClick(Sender: TObject);
475	493		begin
476	494		query.Append;
477	495		query.FieldValues['personid'] := edtPersonID.Text;
478	496		query.FieldValues['surname'] := edtSurname.Text;
479	497		query.FieldValues['dob'] := edtDOB.Text;
480	498		query.Post;
481	499		query.ApplyUpdates; //to apply update
482	500		transaction.Commit; //Needed since FPC 2.6.4; todo: somebody should check if this is enough
483	501		end;
484	502
485	503		procedure TForm1.btnNextClick(Sender: TObject);
486	504		begin
487	505		query.Next;
488	506		Display;
489	507		end;
490	508
491	509		initialization
492	510		{$I unt_db.lrs}
493	511		end.
494	512		```
495	513
496	514		## RAD/Contrôles liés aux données
497	515
498	516		Veuillez voir [[SQLdb Tutorial1/fr\|Tutoriel SQLdb 1]], [[SQLdb Tutorial2/fr\|Tutoriel SQLdb 2]] et plus de tutoriels.
499	517
500	518		# Zeos
501	519
502	520		Voir [[ZeosDBO/fr\|ZeosDBO]]
503	521
504	522		# Pascal Data Objects (PDO)
505	523
506	524		Pascal Data Objects is an alternative data access layer that seems to support:
507	525
508	526		- Clients MySQL 4.0
509	527		- Clients MySQL 4.1
510	528		- Clients MySQL 5.0
511	529		- (et aussi) Firebird 1.5 et 2.0
512	530
513	531		Les fonctions introduites dans MySQL 4.1 et 5.0 comme les instructions préparées, la liaison et les procéduresstockées sont prises en charge. PDO est inspiré de PHP Data Objects. Tout le code et la documentation nécessaire à l'emploi de cette API est disponible sur [sourceforge](http://pdo.sourceforge.net).
514	532
515	533		# Paquet MySQL : Les unités de bas-niveau
516	534
517	535		Comme avec toute les bases de données, le code SQLdb dépend d'une unité spécifique à MySQL de bas niveau qui enveloppe la bibliothèque du pilote MySQL (.so/.dll). Normalement, vous utiliseriez le code SQLdb de haut niveau car il vous permet de coder plus rapidement, de changer plus facilement de SGBD, etc.
518	536
519	537		Utiliser ceci est très facile, tout ce dont vous avez besoin est de compiler certaines unités, et d'utiliser ces unités dans votre programme. Vous avez besoin de spécifier l'emplacement dans le système de fichiers de la bibliothèque client MySQL (libmysqlclient sur Linux) lors de la compilation, et c'est tout.
520	538
521	539		## Unités et programmes fournis
522	540
523	541		Le paquet fournit 3 unités, desquelles seulement le première est nécessaire :
524	542
525	543		- mysql la principale unité mysql.
526	544		- mysql\<version\> (p.ex. mysql50) fournit l'accès à une bibliothèque pour cette version. note : la version de la bibliothèque cliente n'est pas corrélée à celle du serveur en usage - sauf si vous voulez que ces versions soient compatibles.
527	545		- mysql\<version\>com contient quelques routines internes de MySQL (Vraisemblablement une traduction de mysql_com.h) ; elle ne devrait normalement pas être utilisée à moins que vous vouliez accéder à certains types internes.
528	546
529	547		Des programmes d'exemple peuvent être trouvés dans le répertoire \<fpc\>\packages\mysql\examples.
530	548
531	549		## Installation
532	550
533	551		L'interface à MySQL est distribuée avec les paquets Free Pascal et est fourni avec la distribution du compilateur : normalement aucune action ne doit être entreprise pour travailler avec MySQL.
534	552
535	553		Au cas où vous voulez modifier et compiler les unités vous-mêmes, le sources pour MySQL sont dans le répertoire des paquets : packages/mysql.
536	554
537	555		Ce répertoire contient les unités, un programme de test et un fichier make. Placez-vous (commande cd) dans le répertoire et tapez :
538	556
539		-	~~`make`~~
	557	+	```text
	558	+	make
	559	+	```
540	560
541	561		Ceci devrait compiler les unités. Si la compilation est réussie, vous pouvez installer avec :
542	562
543		-	~~`make install`~~
	563	+	```text
	564	+	make install
	565	+	```
544	566
545	567		Vous pouvez tester le programme en exécutant :
546	568
547		-	~~`make test`~~
	569	+	```text
	570	+	make test
	571	+	```
548	572
549	573		Ceci aura pour effet :
550	574
551	575		- d'exécuter un script pour créer une table dans la base de données et de la remplier avec quelques données. (le programme MySQL doit être accessible via la variable PATH pour cela). Par défaut, la base de données utilisée est 'testdb',
552	576		- d'exécuter le programme de test testdb,
553	577		- d'exécuter un nouveau shell pour supprimer la table créée.
554	578
555	579		Vous verrez beaucoup de messages sur votre écran, vous donnant des retours d'information et des résultats. Si quelque chose n'a pas marché, make vous en informera.
556	580
557	581		Retour à la [[Package List/fr\|liste des paquets]].
558	582
559	583		# Voir aussi
560	584
561	585		- [[Lazarus DB Faq/fr\|FAQ sur DB de Lazarus]] - Plus au sujet de la programmation des bases de données.
562	586		- [[SQLdb Tutorial1/fr\|Tutoriel 1 sur SQLdb]] - Série de tutoriels sur SQLDB qui vous fait créé une base de données qui marche et une application IHM avec une grille.
563	587		- [[Lazarus Database Overview/fr\|Vue d'ensemble des bases de données avec Lazarus]] - Faire en sorte que Lazare fonctionne avec diverses bases de données.
564	588
565	589		---
566	590		From the Free Pascal wiki, page "mysql/fr", as it stood on 2023-01-26 after a change by Slawek, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).

Back to history