mysql/pl: what changed

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

Old	New		Line
1	1		## Przegląd
2	2
3	3		Możesz użyć Free Pascal/Lazarus, aby uzyskać dostęp do serwera bazy danych MySQL.
4	4
5	5		Win64: zobacz ostrzeżenie [[Windows Programming Tips\|tutaj]] dotyczące nieużywania niektórych wersji FPC/Lazarus Win64.
6	6
7	7		Zalety MySQL:
8	8
9	9		- Jest bardzo szeroko stosowany i dostępny
10	10		- Chociaż starsze wersje miały zasłużoną opinię, że nie są prawdziwymi RDBMS, nowsze wersje obsługują właściwości ACID, jeśli są prawidłowo skonfigurowane (z odpowiednim zapleczem pamięci)
11	11
12	12		Wady MySQL:
13	13
14	14		- Opiekunowie MySQL łamią binarną kompatybilność między wersjami bibliotek klienta. Oznacza to, że dla każdej nowej wersji trzeba wykonać tłumaczenie FPC/Lazarus, co spowalnia działanie.
15	15		- Licencja może być ograniczona dla niektórych użytkowników (np. We wdrożeniach komercyjnych). Istnieją kompatybilne, prawdopodobnie mniej restrykcyjne alternatywy, takie jak MariaDB.
16	16
17	17		Z tego powodu wielu użytkowników Lazarusa/FPC preferuje bazy danych [[Firebird]] lub [[postgresql\|PostgreSQL]].
18	18
19	19		## Licencjonowanie MySQL
20	20
21	21		Przed znaczącym wdrożeniem MySQL nie zapomnij przeczytać jej [licencji](https://www.mysql.com/about/legal/licensing/oem/).
22	22
23	23		## SQLDB
24	24
25	25		Lazarus 1.2 (z FPC 2.6.2), obsługuje
26	26
27	27		- Biblioteka klienta MySQL 4.0
28	28		- Biblioteka klienta MySQL 4.1
29	29		- Biblioteka klienta MySQL 5.0
30	30		- Biblioteka klienta MySQL 5.1
31	31		- Biblioteka klienta MySQL 5.5 (obsługiwana od wersji Lazarus 1.0.8)
32	32		- Biblioteka klienta MySQL 5.6 (obsługiwana od Lazarusa ?)
33	33		- Biblioteka klienta MySQL 5.7 (obsługiwana od Lazarusa ?)
34	34		- Biblioteka klienta MySQL 8.0 (obsługiwana od Lazarusa ?)
35	35
36	36		![](/wiki-images/c/c1/Sqldbcomponents2.png)
37	37
38	38		Nowsze wersje FPC/Lazarus mogą obsługiwać nowsze biblioteki klienta MySQL.
39	39
40	40		Upewnij się, że używasz odpowiedniego komponentu połączenia dla swojej wersji biblioteki klienta. Więc jeśli masz zainstalowane biblioteki klienta dla MySQL 4.1, musisz użyć komponentu TMySQL41Connection, nawet jeśli serwer działa w wersji 4.0 lub 5.0. Powodem tego jest to, że biblioteki klienckie MySQL często łamią kompatybilność ich API, więc każda wersja wymaga innego sterownika Pascala.
41	41
42	42		W systemach typu *nix kod SQLDB może szukać zwykłej wersji biblioteki bez sufiksów numerów wersji. Możesz sobie z tym poradzić na kilka sposobów:
43	43
44	44		- (w wielu Linuksach) zainstalowanie biblioteki w wersji -dev
45	45		- utworzenie dowiązania symbolicznego twojej konkretnej nazwy biblioteki do tej, której szuka FPC (raczej hakerskie)
46	46		- użycie [[TSQLDBLibraryLoader]], aby określić nazwę biblioteki przed załadowaniem połączenia
47	47
48	48		## Samouczki SQLDB i przykładowy kod
49	49
50	50		BigChimp wrzesień 2012: uwaga: wiele z tych samouczków to zduplikowany kod i można je skonsolidować. Proponuję przenieść jak najwięcej do samouczka SQLDB zorientowanego na GUI i utworzyć osobną stronę samouczka bazy danych FPC, aby utworzyć przykład trybu tekstowego
51	51
52	52		### Uruchom serwer MySQL działający w systemie Linux lub Windows
53	53
54	54		Postępuj zgodnie z instrukcjami zawartymi w podręczniku użytkownika MySQL. Upewnij się, że demon mysqld działa niezawodnie i że wszyscy potencjalni użytkownicy (w tym root, mysql, Ty i wszyscy inni, którzy mogą tego potrzebować) mają tyle uprawnień, ile potrzebują, z tylu hostów, ile potrzeba (takich jak 'localhost', nazwa hosta lokalnego i inne hosty w twojej sieci), o ile jest to zgodne z bezpieczeństwem. Zaleca się, aby wszyscy użytkownicy, w tym root, mieli hasła. Przetestuj działanie systemu bazy danych, korzystając z przykładów podanych w instrukcji i sprawdź, czy wszyscy użytkownicy naprawdę mają niezawodny dostęp.
55	55
56	56		### Spraw, aby MySQL działał dla FPC w trybie tekstowym
57	57
58	58		W katalogu \$(fpcsrcdir)/packages/base/mysql/ znajduje się przykładowy program. Możesz znaleźć katalog ze źródłami fpc w Lazarusie: Narzędzia -\> Opcje -\> Pliki -\> Katalog źródłowy FPC (en: Tools -\> Options -\> Files -\> FPC source directory). Możliwe ścieżki do katalogu mysql to /usr/share/fpcsrc/packages/base/mysql/ (rpm install) lub C:\lazarus\fpcsrc\packages\base\mysql\\ (windows). Ten katalog zawiera również moduły mysql.pp, mysql_com.pp i mysql_version.pp. Przed uruchomieniem skryptu testowego musisz utworzyć bazę danych o nazwie testdb: zrób to, logując się do monitora mysql (jako root z pełnymi uprawnieniami) i wydając następującą instrukcję SQL:
59	59
60	60		``` sql
61	61		CREATE DATABASE testdb;
62	62		```
63	63
64	64		następnie upewnij się, że wszyscy właściwi użytkownicy mają do niego odpowiednie uprawnienia dostępu
65	65
66	66		``` sql
67	67		GRANT ALL ON testdb TO johnny-user IDENTIFIED BY 'johnnyspassword';
68	68		```
69	69
70	70		Istnieje skrypt o nazwie mkdb, który powinieneś teraz spróbować uruchomić:
71	71
72		-	~~`sh ./mkdb`~~
	72	+	```text
	73	+	sh ./mkdb
	74	+	```
73	75
74	76		Prawdopodobnie zakończy się to niepowodzeniem, ponieważ system nie pozwoli anonimowemu użytkownikowi uzyskać dostęp do bazy danych. Zmień więc skrypt za pomocą edytora tak, aby wiersz wywołujący mysql brzmiał:
75	77
76		-	~~`mysql -u root -p ${1-testdb} << EOF >/dev/null`~~
	78	+	```text
	79	+	mysql -u root -p ${1-testdb} << EOF >/dev/null
	80	+	```
77	81
78	82		i spróbuj uruchomić go ponownie, wprowadzając hasło po wyświetleniu monitu. Przy odrobinie szczęścia mogłeś stworzyć testową bazę danych: przetestuj ją (będąc zalogowanym do monitora mysql), wydając instrukcję mysql
79	83
80	84		``` sql
81	85		select * from FPdev;
82	86		```
83	87
84	88		Powinieneś zobaczyć tabelę zawierającą ID, nazwę użytkownika i adres e-mail niektórych programistów FPC.
85	89
86	90		Teraz spróbuj uruchomić program testowy testdb.pp (może to wymagać skompilowania i prawie na pewno zakończy się niepowodzeniem przy pierwszej próbie !!).
87	91
88	92		Zauważyłem, że program nie mógł połączyć się z mysql z kilku powodów:
89	93
90	94		- Mój system (SuSE Linux v9.0) instaluje mysql v4.0.15, a nie wersję 3, dla której pakiet został zaprojektowany.
91	95
92	96		- Program musi mieć nazwy użytkowników i hasła, aby uzyskać dostęp do bazy danych.
93	97
94	98		- Kompilator musi wiedzieć, gdzie znaleźć biblioteki mysql (JEŚLI NIE ZAINSTALOWAŁEŚ BIBLIOTEK PROGRAMISTYCZNYCH MYSQL, ZRÓB TO TERAZ!)
95	99
96	100		Utworzyłem kopię pliku testdb.pp o nazwie trydb.pp, zamiast edytować oryginał - oznacza to, że oryginalne pliki nadal są naprawiane w kolejnych aktualizacjach CVS. Skopiowałem również pliki znalezione w podkatalogu mysql/ver40/ do głównego podkatalogu mysql/, zmieniając ich nazwy na mysql_v4.pp, mysql_com_v4.pp i mysql_version_v4.pp, pamiętając o zmianie nazwy modułóww każdym pliku. Zmieniłem instrukcję użycia w trydb.pp na
97	101
98	102		``` pascal
99	103		uses mysql_v4
100	104		```
101	105
102	106		i oświadczenie w mysql_v4.pp do
103	107
104	108		``` pascal
105	109		uses mysql_com_v4
106	110		```
107	111
108	112		Dodałem wiersz do /etc/fpc.cfg, aby wskazać moje biblioteki:
109	113
110		-	~~`-Fl/lib;/usr/lib`~~
	114	+	```text
	115	+	-Fl/lib;/usr/lib
	116	+	```
111	117
112	118		Następujący krok może nie być konieczny, jeśli biblioteki deweloperskie są zainstalowane, ponieważ łącza zostaną utworzone za Ciebie, ale sprawdzenie nigdy nie zaszkodzi. Musiałem znaleźć prawdziwą nazwę biblioteki mysqlclint w katalogu /usr/lib i w moim przypadku musiałem wydać polecenie powłoki:
113	119
114		-	~~`ln -s libmysqlclient.so.12.0.0 lmysqlclient`~~
	120	+	```text
	121	+	ln -s libmysqlclient.so.12.0.0 lmysqlclient
	122	+	```
115	123
116	124		aby utworzyć dowiązanie symboliczne umożliwiające FPC znalezienie biblioteki. Na wszelki wypadek stworzyłem też link
117	125
118		-	~~`ln -s libmysqlclient.so.12.0.0 mysqlclient`~~
	126	+	```text
	127	+	ln -s libmysqlclient.so.12.0.0 mysqlclient
	128	+	```
119	129
120	130		i umieściłem podobne linki w różnych innych katalogach: nie jest to absolutnie konieczne, ale na wszelki wypadek ...! Niektórzy użytkownicy mogą potrzebować dodać następujące łącze:
121	131
122		-	~~`ln -s libmysqlclient.so.12.0.0 libmysqlclient.so`~~
	132	+	```text
	133	+	ln -s libmysqlclient.so.12.0.0 libmysqlclient.so
	134	+	```
123	135
124	136		Zmodyfikowałem trydb.pp, aby zawierał dane użytkownika, początkowo dodając hosta, użytkownika i hasło jako stałe Pchar:
125	137
126	138		``` pascal
127	139		const
128	140		host : Pchar= 'localhost';
129	141		user : Pchar= 'myusername';
130	142		passwd: Pchar = 'mypassword';
131	143		```
132	144
133	145		> Warning: Ta sekcja wygląda na wyjątkowo nieaktualną. Jeśli nadal korzystasz z MySQL 4, być może nadszedł czas na aktualizację
134	146
135	147		Odkryłem również, że nie mogę połączyć się z mysql za pomocą wywołania mysql_connect(), ale musiałem użyć mysql_real_connect(), który ma o wiele więcej parametrów. Aby jeszcze bardziej skomplikować sprawę, wydaje się, że liczba parametrów zmieniła się między wersją 3 (w której jest siedem) a wersją 4 (w której jest osiem). Przed użyciem mysql_real_connect musiałem użyć mysql_init(), którego nie ma w oryginalnym mysql.pp, ale znajduje się w mysql_v4.pp.
136	148
137	149		Tak więc kod do połączenia z bazą danych to teraz:
138	150
139	151		``` pascal
140	152		{ kilka dodatkowych zmiennych }
141	153		var
142	154		alloc : PMYSQL;
143	155
144	156		{fragment głównego programu}
145	157
146	158		begin
147	159		if paramcount=1 then
148	160		begin
149	161		Dummy:=Paramstr(1)+#0;
150	162		DataBase:=@Dummy[1];
151	163		end;
152	164
153	165		Writeln('Przydzielanie miejsca ...');
154	166		alloc := mysql_init(PMYSQL(@qmysql));
155	167		Write('Łączę się z MySQL ...');
156	168		sock := mysql_real_connect(alloc, host, user, passwd, database, 0, nil, 0);
157	169		if sock=Nil then
158	170		begin
159	171		Writeln(stderr,'Nie można połączyć się z MySQL');
160	172		Writeln(stderr, 'Błąd: ', mysql_error(@qmysql));
161	173		halt(1);
162	174		end;
163	175		Writeln('Gotowe.');
164	176		Writeln('Parametry połączenia:');
165	177		{$ifdef Unix}
166	178		writeln('Mysql_port : ',mysql_port);
167	179		writeln('Mysql_unix_port : ',mysql_unix_port);
168	180		{$endif}
169	181		writeln('Host info : ',mysql_get_host_info(sock));
170	182		writeln('Server info : ',mysql_stat(sock));
171	183		writeln('Client info : ',mysql_get_client_info);
172	184
173	185		Writeln('Wybór bazy danych ',DataBase,'...');
174	186		if mysql_select_db(sock, DataBase) < 0 then
175	187		begin
176	188		Writeln(stderr,'Nie udało się wybrać bazy danych ',Database);
177	189		Writeln(stderr,mysql_error(sock));
178	190		halt(1);
179	191		end;
180	192		{... dalej oryginalna zawartość pliku testdb.pp}
181	193		```
182	194
183	195		Teraz - gotowy do rozpoczęcia kompilacji trydb.pp?
184	196
185		-	~~` fpc trydb`~~
	197	+	```text
	198	+	fpc trydb
	199	+	```
186	200
187	201		sukces! Teraz uruchom to:
188	202
189		-	~~` ./trydb`~~
	203	+	```text
	204	+	./trydb
	205	+	```
190	206
191	207		Super! Mam listę twórców FPC!
192	208
193	209		Kilka dodatkowych ulepszeń: uczyń wprowadzanie danych użytkownika i poleceń mysql interaktywnymi, używając zmiennych zamiast stałych, i pozwól na wprowadzenie kilku poleceń SQL, dopóki nie wydamy polecenia quit: zobacz [[Lazarus Database Tutorial/TryDbpp\|pełna lista programów]], gdzie dane użytkownika są wprowadzane z konsoli, a program przechodzi w pętlę, w której z konsoli wprowadza się polecenia SQL (bez średnika terminala) i wypisuje odpowiedzi, aż do wpisania „quit” z klawiatury.
194	210
195	211		Zobacz [[Lazarus Database Tutorial/SampleListing\|przykładową lista konsoli]].
196	212
197	213		### Łączenie się z MySQL z aplikacji Lazarus
198	214
199	215		Ten poradnik pokazuje, jak podłączyć Lazarus do bazy danych MySQL i wykonywać proste zapytania, używając tylko podstawowych komponentów Lazarusa; nie używa żadnych komponentów Data Aware, ale ilustruje zasady współpracy z bazą danych.
200	216
201	217		Utwórz nowy projekt w Lazarusie:
202	218
203		-	~~`Projekt -> Nowy projekt -> Aplikacja (en: Project -> New Project -> Application)`~~
	219	+	```text
	220	+	Projekt -> Nowy projekt -> Aplikacja (en: Project -> New Project -> Application)
	221	+	```
204	222
205	223		Pojawi się nowy automatycznie wygenerowany formularz.
206	224
207	225		Powiększ formularz, aby wypełnić mniej więcej połowę ekranu, a następnie zmień nazwę formularza i jego podpis na „TryMySQL”.
208	226
209	227		Z zakładki komponentów Standard umieść trzy pola edycji w lewym górnym rogu formularza i bezpośrednio nad każdym z nich umieść etykietę. Zmień im odpowiednio właściwość Caption na „Serwer” lub „Host” (a Name na HostLLabel, HostEdit), „Użytkownik” (i UserLabel, UserEdit) oraz „Hasło” (z PasswdLabel i PasswdEdit). Alternatywnie możesz użyć komponentów LabelledEdit z zakładki Additional.
210	228
211	229		Zaznacz pole Passwd Edit i znajdź właściwość PasswordChar: zmień to na * lub inny znak, aby po wpisaniu hasła znaki nie pojawiały się na ekranie, ale były powtarzane serią znków *. Upewnij się, że właściwość Text każdego pola edycji jest pusta.
212	230
213	231		Teraz umieść kolejne pole edycji i etykietę u góry po prawej stronie formularza. Zmień etykietę na „Wpisz polecenie SQL” i nazwij ją CommandEdit.
214	232
215	233		Umieść trzy przyciski na formularzu: dwa po lewej stronie pod polami edycji i jeden po prawej stronie pod polem poleceń.
216	234
217	235		Oznacz przyciski po lewej stronie „Połącz z bazą” (ConnectButton) i „Wyjdź” (ExitButton), a przycisk po prawej stronie „Wyślij zapytanie” (QueryButton).
218	236
219	237		Umieść duże okno memo z etykietą i nazwą ją „Wyniki” (ResultMemo) w prawym dolnym rogu, aby wypełnić większość dostępnego miejsca. Znajdź właściwość ScrollBars i wybierz ssAutoBoth, aby paski przewijania pojawiały się automatycznie, jeśli tekst wypełni przestrzeń. Ustaw właściwość WordWrap na True.
220	238
221	239		Umieść pasek stanu Status Bar(z zakładki Common Controls) na dole formularza i ustaw jego właściwość SimpleText na „TryMySQL”.
222	240
223	241		Zrzut ekranu formularza można zobaczyć tutaj: [Mysql Przykładowy zrzut ekranu](http://lazarus-ccr.sourceforge.net/kbdata/trymysqldb.png)
224	242
225	243		Teraz musimy napisać kilka procedur obsługi zdarzeń.
226	244
227	245		Trzy pola edycji po lewej stronie służą do wprowadzania nazwy hosta (adresu serwera), nazwy użytkownika i hasła. Gdy zostaną one wprowadzone pomyślnie, kliknij przycisk Połącz. Procedura obsługi zdarzeń OnCLick dla tego przycisku jest oparta częściowo na powyższym programie FPC w trybie tekstowym.
228	246
229	247		Odpowiedzi z bazy danych należy zamienić na ciągi znaków i wyświetlić w polu Memo. Instrukcje tryby tekstowego Pascala write i writeln, mogą wykonywać wiele konwersji 'w locie', ale użycie pola Memo do wyjścia tekstowego wymaga jawnej konwersji typów danych na poprawny ciąg: dlatego zmienne Pchar muszą zostać przekonwertowane na ciągi typu String przy użyciu funkcji StrPas, a liczby całkowite muszą być konwertowane za pomocą IntToStr.
230	248
231	249		Ciągi znaków są wyświetlane w polu Memo przy użyciu:
232	250
233	251		``` pascal
234	252		procedure ShowString(S : string);
235	253		(* wyświetl ciąg w polu Memo *)
236	254		begin
237	255		trymysqlForm1.ResultsMemo.Lines.Add(S)
238	256		end;
239	257		```
240	258
241	259		Procedura obsługi zdarzeń ConnectButton wygląda następująco:
242	260
243	261		``` pascal
244	262		procedure TtrymysqlForm1.ConnectButtonClick(Sender: TObject);
245	263		(* Połącz się z MySQL przy użyciu danych użytkownika z pól tekstowych głównego formularza *)
246	264		var strg: string;
247	265
248	266		begin
249	267		dummy1 := trymysqlForm1.HostEdit.text+#0;
250	268		host := @dummy1[1];
251	269		dummy2 := trymysqlForm1.UserEdit.text+#0;
252	270		user := @dummy2[1] ;
253	271		dummy3 := trymysqlForm1.PasswdEdit.text+#0;
254	272		passwd := @dummy3[1] ;
255	273
256	274		alloc := mysql_init(PMYSQL(@qmysql));
257	275		sock := mysql_real_connect(alloc, host, user, passwd, database, 0, nil, 0);
258	276		if sock=Nil then
259	277		begin
260	278		strg :='Nie można połączyć się z MySQL.'; showstring (strg);
261	279		Strg :='Błąd: '+ StrPas(mysql_error(@qmysql)); showstring (strg);
262	280		end
263	281		else
264	282		begin
265	283		trymysqlForm1.statusBar1.simpletext := 'Połączono z MySQL';
266	284		strg := 'Teraz wybieram bazę danych: ' + database; showstring (strg);
267	285		{$ifdef Unix}
268	286		strg :='Mysql_port : '+ IntToStr(mysql_port); showstring (strg);
269	287		strg :='Mysql_unix_port : ' + StrPas(mysql_unix_port); showstring (strg);
270	288		{$endif}
271	289		Strg :='Host info : ' + StrPas(mysql_get_host_info(sock));
272	290		showstring (strg);
273	291		Strg :='Server info : ' + StrPas(mysql_stat(sock)); showstring (strg);
274	292		Strg :='Client info : ' + Strpas(mysql_get_client_info); showstring (strg);
275	293
276	294		trymysqlForm1.statusbar1.simpletext := 'Wybór bazy danych ' + DataBase +'...';
277	295		if mysql_select_db(sock,DataBase) < 0 then
278	296		begin
279	297		strg :='Nie udało się wybrać bazy danych '+ Database; ShowString (strg);
280	298		Strg := mysql_error(sock); ShowString (strg);
281	299		end
282	300		end;
283	301		end;
284	302		```
285	303
286	304		Pole tekstowe po prawej stronie umożliwia wprowadzenie instrukcji SQL bez średnika terminala; gdy jesteś zadowolony z jego zawartości lub składni, naciśnij przycisk SendQuery, zapytanie zostanie przetworzone, a wyniki zostaną zapisane w polu ResultsMemo.
287	305
288	306		Procedura obsługi zdarzeń SendQuery jest ponownie oparta na wersji trybu tekstowego FPC, z tą różnicą, że ponownie należy wykonać jawną konwersję typu, zanim ciągi zostaną wyświetlone w polu Memo.
289	307
290	308		Różnica w stosunku do programu FPC działającego w trybie tekstowym polega na tym, że w przypadku wykrycia błędu program nie zatrzymuje się, a MySQL nie jest zamykany; zamiast tego sterowanie wraca do głównego formularza i daje możliwość poprawienia wpisu przed ponownym wysłaniem polecenia. Aplikacja zostaje ostatecznie zamknięta (z zamknięciem MySQL) po kliknięciu przycisku 'Zakończ'.
291	309
292	310		Kod dla SendQuery jest następujący:
293	311
294	312		``` pascal
295	313		procedure TtrymysqlForm1.QueryButtonClick(Sender: TObject);
296	314		var
297	315		dumquery, strg: string;
298	316		begin
299	317		dumquery := TrymysqlForm1.CommandEdit.text;
300	318		dumquery := dumquery+#0;
301	319		query := @dumquery[1];
302	320		trymysqlForm1.statusbar1.simpletext := 'Wykonywanie zapytania: '+ dumQuery +'...';
303	321		strg := 'Wykonywanie zapytania: ' + dumQuery; showstring (strg);
304	322		if (mysql_query(sock,Query) < 0) then
305	323		begin
306	324		Strg :='Zapytanie nie powiodło się '+ StrPas(mysql_error(sock)); showstring (strg);
307	325		end
308	326		else
309	327		begin
310	328		recbuf := mysql_store_result(sock);
311	329		if RecBuf=Nil then
312	330		begin
313	331		Strg :='Zapytanie zwróciło wynik nil.'; showstring (strg);
314	332		end
315	333		else
316	334		begin
317	335		strg :='Liczba zwróconych rekordów: ' + IntToStr(mysql_num_rows (recbuf));
318	336		Showstring (strg);
319	337		Strg :='Liczba pól w rekordzie: ' + IntToStr(mysql_num_fields(recbuf));
320	338		showstring (strg);
321	339		rowbuf := mysql_fetch_row(recbuf);
322	340		while (rowbuf <>nil) do
323	341		begin
324	342		Strg :='(Id: '+ rowbuf[0]+', Imię: ' + rowbuf[1]+ ', Email : ' +
325	343		rowbuf[2] +')';
326	344		showstring(strg);
327	345		rowbuf := mysql_fetch_row(recbuf);
328	346		end;
329	347		end;
330	348		end;
331	349		end;
332	350		```
333	351
334	352		Zapisz swój projekt i naciśnij Uruchom -\> Uruchom (en: Run -\> Run)
335	353
336	354		#### Pobierz przykładowy kod źródłowy
337	355
338	356		> Warning: Obecne wersje Lazarusa/FPC wymagają zatwierdzania wszystkich transakcji MySQL. Nie było to konieczne we wcześniejszych wersjach. Pobrany kodu prawdopodobnie nie zadziała, dopóki nie zostanie zaktualizowany.
339	357
340	358		Pełny listing programu jest dostępny tutaj [/ pobierz przykładowy kod źródłowy](http://sourceforge.net/projects/lazarus-ccr/files/Demos%20and%20examples/MySql%20demo%20using%20SQLdb%20components%208%20April%202005/mysql_demo_20050408.tar.gz)
341	359
342	360		### Lazarus, MySQL i UTF-8
343	361
344	362		Poniższe może być wymagane również w przypadku innych stron kodowych/zestawów znaków
345	363
346	364		UTF-8 Unicode to wygodne wielobajtowe kodowanie zestawu znaków, które umożliwia pracę z tekstami wielojęzycznymi bez konieczności stosowania WideStrings. Obsługiwany jest zarówno przez komponenty Lazarus SQLdb, jak i MySQL od wersji 4.1 poprzez wybór odpowiedniego zestawu znaków.
347	365
348	366		Jednak ustawiając to kodowanie tak po prostu jako domyślne dla
349	367
350	368		- twojej tabeli i
351	369		- komponentu połączenia MySQL (np. `TMySQL51Connection.CharSet:='UTF8';`)
352	370
353	371		spowoduje nieprawidłowe przechowywanie i pobieranie ciągów znaków UTF-8: każdy znak akcentowany/międzynarodowy zostanie wyświetlony jako znak zapytania (?). Najwyraźniej powodem tego jest to, że biblioteka klienta MySQL jest kompilowana tak, aby domyślnie oczekiwała zestawu znaków Latin1.
354	372
355	373		Aby umożliwić poprawną komunikację między Lazarusem i biblioteką klienta MySQL a serwerem MySQL, należy wykonać dodatkowe dwa zapytania za każdym razem gdy nawiązywane jest połączenie z bazą danych:
356	374
357	375		``` sql
358	376		SET CHARACTER SET `utf8`
359	377		```
360	378
361	379		i
362	380
363	381		``` sql
364	382		SET NAMES 'utf8'
365	383		```
366	384
367	385		Pierwsze zapytanie zapewni, że aplikacja otrzyma ciągi znaków z poprawnym kodowaniem, a drugie powie MySQL, aby nie konwertował ciągów, które otrzymuje z aplikacji.
368	386
369	387		### Proste demo MySQL przy użyciu komponentu TMySQL5xConnection
370	388
371	389		Oto kod, który działa jako szybkie demo, aby łatwo było go utworzyć i uruchomić. Podobnie jak w przypadku wszystkich komponentów SQLDB, upewnij się, że biblioteka klienta bazy danych znajduje się we właściwym miejscu:
372	390
373	391		- w systemie Windows: biblioteka DLL, np. libmysql.dll jest umieszczany w katalogu wyjściowym projektu (w którym jest generowany plik wykonywalny). Alternatywnie możesz również umieścić go w katalogu Windows/system32
374	392		- w systemie Linux/OSX: zainstaluj bibliotekę klienta mysql w swojej ścieżce (np. używając menedżera pakietów Twojej dystrybucji)
375	393
376	394		Podczas dystrybucji aplikacji upewnij się, że na komputerze użytkownika znajduje się odpowiednia biblioteka klienta MySQL. Ponieważ może to stanowić problem, być może użycie innego silnika bazy danych może mieć większy sens.
377	395
378	396		### Przykład kodu
379	397
380	398		Poniższy przykład używa kodu do wypełnienia kontrolek danymi. Możesz także użyć kontrolek powiązanych z danymi, co może być szybsze/łatwiejsze. Zobacz przykład poniżej lub [[SQLdb Tutorial1\|SQLdb Samouczek1]].
381	399
382	400		Umieść w formularzu trzy pola edycji, pole notatki i kilka przycisków. Musisz dodać mysqlXXconn i sqldb do instrukcji uses.
383	401
384	402		W tym przykładzie DBMS MySQL ma użytkownika „root” bez hasła i bazę danych „test1” z tabelą „tPerson”, która ma trzy pola: „personid” (int), „sername” (varchar(40)) i „dob” (data i godzina). Wprowadzono również niektóre dane testowe.
385	403
386	404		Najpierw należy kliknąć przycisk btnTest, ponieważ tworzy on połączenie z systemem DBMS. Zwróć uwagę na linię, która stosuje aktualizacje - bez tego zmienione lub nowe dane nie zostaną zapisane z powrotem do DB, chociaż będą w pamięci i można je wyświetlić za pomocą btnFirst i btnNext.
387	405
388	406		### Przykładowy kod
389	407
390	408		Poniższy przykład używa kodu do wypełnienia kontrolek danymi. Możesz także użyć kontrolek powiązanych z danymi, co może być szybsze/łatwiejsze. Zobacz przykład poniżej lub [[SQLdb Tutorial1]].
391	409
392	410		Umieść w formularzu trzy pola edycji, pole notatki i kilka przycisków. Musisz dodać mysqlXXconn i sqldb do instrukcji uses.
393	411
394	412		W tym przykładzie DBMS MySQL ma użytkownika „root” bez hasła i bazę danych „test1” z tabelą „tPerson”, która ma trzy pola: „personid” (int), „sername” (varchar (40)) i „dob” (data i godzina). Wprowadzono również niektóre dane testowe.
395	413
396	414		Najpierw należy kliknąć przycisk btnTest, ponieważ tworzy on połączenie z systemem DBMS. Zwróć uwagę na linię, która stosuje aktualizacje - bez tego zmienione lub nowe dane nie zostaną zapisane z powrotem w DB, chociaż będą w pamięci i można je wyświetlić za pomocą btnFirst i btnNext.
397	415
398	416		``` pascal
399	417		unit unt_db;
400	418		// Przykład oparty na:
401	419		// http://www.lazarus.freepascal.org/index.php?name=PNphpBB2&file=viewtopic&t=5761
402	420		// od tpglemur na tym forum
403	421		{$mode objfpc}{$H+}
404	422		interface
405	423		uses
406	424		Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs,
407	425		mysql50conn, sqldb, StdCtrls;
408	426		type
409	427		{ TForm1 }
410	428		TForm1 = class(TForm)
411	429		btnTest: TButton;
412	430		btnNext: TButton;
413	431		btnFirst: TButton;
414	432		btnNew: TButton;
415	433		edtPersonID: TEdit;
416	434		edtSurname: TEdit;
417	435		edtDOB: TEdit;
418	436		Memo1: TMemo;
419	437		procedure btnFirstClick(Sender: TObject);
420	438		procedure btnNewClick(Sender: TObject);
421	439		procedure btnNextClick(Sender: TObject);
422	440		procedure btnTestClick(Sender: TObject);
423	441		private
424	442		{ private declarations }
425	443		conn : TMySQL50Connection;
426	444		query : TSQLQuery;
427	445		transaction : TSQLTransaction;
428	446		procedure Display;
429	447		public
430	448		{ public declarations }
431	449		end;
432	450		var
433	451		Form1: TForm1;
434	452		implementation
435	453		{ TForm1 }
436	454		procedure TForm1.btnTestClick(Sender: TObject);
437	455		var
438	456		S: String;
439	457		begin
440	458		conn := TMySQL50Connection.Create(nil);
441	459		query := TSQLQuery.Create(nil);
442	460		transaction := TSQLTransaction.Create(nil);
443	461		try
444	462		try
445	463		// Dostosuj do własnego serwera bazy danych, nazwy użytkownika i hasła:
446	464		conn.HostName := '127.0.0.1';
447	465		conn.UserName := 'root';
448	466		conn.Password := '';
449	467		// Jeśli używasz innej nazwy bazy danych, dostosuj tutaj:
450	468		conn.DatabaseName := 'test1';
451	469		conn.Connected := True;
452	470		conn.Transaction := transaction;
453	471		query.DataBase := conn;
454	472		//query.ParseSQL := true; //linia niepotrzebna - i tak jest to ustawienie domyślne
455	473		//query.ReadOnly := false; //linia niepotrzebna - i tak jest to ustawienie domyślne
456	474		query.SQL.Text := 'select * from tperson';
457	475		query.Open;
458	476
459	477		query.Last;
460	478		S := IntToStr(query.RecordCount) + #13#10;
461	479		query.First;
462	480
463	481		while not query.EOF do
464	482		begin
465	483		S := S + query.FieldByName('surname').AsString + #13#10;
466	484		query.Next;
467	485		end;
468	486		finally
469	487		//query.Free;
470	488		//conn.Free;
471	489		end;
472	490		except
473	491		on E: Exception do
474	492		ShowMessage(E.message);
475	493		end;
476	494		Memo1.Text:= S;
477	495		end;
478	496
479	497		procedure TForm1.Display;
480	498		begin
481	499		edtPersonID.Text := query.FieldByName('personid').AsString;
482	500		edtSurname.Text := query.FieldByName('surname').AsString;
483	501		edtDOB.Text := query.FieldByName('dob').AsString;
484	502		end;
485	503
486	504		procedure TForm1.btnFirstClick(Sender: TObject);
487	505		begin
488	506		query.First;
489	507		Display;
490	508		end;
491	509
492	510		procedure TForm1.btnNewClick(Sender: TObject);
493	511		begin
494	512		query.Append;
495	513		query.FieldValues['personid'] := edtPersonID.Text;
496	514		query.FieldValues['surname'] := edtSurname.Text;
497	515		query.FieldValues['dob'] := edtDOB.Text;
498	516		query.Post;
499	517		query.ApplyUpdates; //aby zaktualizować dane w bazie
500	518		transaction.Commit; //Potrzebne od FPC 2.6.4; todo: ktoś powinien sprawdzić, czy to wystarczy
501	519		end;
502	520
503	521		procedure TForm1.btnNextClick(Sender: TObject);
504	522		begin
505	523		query.Next;
506	524		Display;
507	525		end;
508	526
509	527		initialization
510	528		{$I unt_db.lrs}
511	529		end.
512	530		```
513	531
514	532		### Kontrolki RAD/Databound
515	533
516	534		Zobacz [[SQLdb Tutorial1]], [[SQLdb Tutorial2]] i dalsze samouczki.
517	535
518	536		## Zeos
519	537
520	538		Zobacz [[ZeosDBO]]
521	539
522	540		[1](http://pdo.sourceforge.net)
523	541
524	542		## Pascal Data Objects (PDO)
525	543
526	544		Pascal Data Objects to alternatywna warstwa dostępu do danych, która wydaje się obsługiwać:
527	545
528	546		- Klientów MySQL 4.0
529	547		- Klientów MySQL 4.1
530	548		- Klientów MySQL 5.0
531	549		- (a także) Firebird 1.5 i 2.0
532	550
533	551		Obsługiwane są funkcje wprowadzone w MySQL 4.1 i 5.0, takie jak przygotowane instrukcje, powiązania i procedury składowane. PDO jest inspirowane PHP Data Objects. Cały kod i dokumentacja niezbędna do korzystania z tego interfejsu API jest dostępna na sourceforge:
534	552
535	553		[2](http://pdo.sourceforge.net)
536	554
537	555		## Pakiet MySQL: moduł niskiego poziomu
538	556
539	557		Podobnie jak w przypadku wszystkich baz danych, kod SQLDB zależy od specyficznego modułu dla mysql niższego poziomu, która otacza bibliotekę sterownika mysql (.so/.dll). Zwykle używałbyś kodu SQLDB wyższego poziomu, ponieważ umożliwia on szybsze kodowanie, łatwe przełączanie baz danych itp.
540	558
541	559		Używanie tego jest bardzo łatwe, wszystko, co musisz zrobić, to skompilować kilka modułów i użyć tych modułów w swoim programie. Podczas kompilacji musisz określić lokalizację w systemie plików biblioteki klienta MySQL (libmysqlclient w systemie Linux) i to wszystko.
542	560
543	561		### Dostarczone moduły i programy
544	562
545	563		W pakiecie znajdują się 3 moduły, z których zwykle potrzebny jest tylko pierwszy:
546	564
547	565		- mysql - główny moduł mysql.
548	566		- mysql\<wersja\> (np. mysql50) zapewnia dostęp do konkretnej biblioteki mysql dla danej wersji. Uwaga: wersja biblioteki klienta nie jest związana z wersją używanego serwera - z tym wyjątkiem, że chcesz się upewnić, że te wersje są kompatybilne.
549	567		- mysql\<wersja\>com zawiera pewne wewnętrzne procedury MySQL (prawdopodobnie tłumaczenie mysql_com.h); normalnie nie powinno być używane, chyba że chcesz uzyskać dostęp do niektórych typów wewnętrznych.
550	568
551	569		Przykładowe programy można znaleźć w katalogu \<fpc\>\packages\mysql\examples.
552	570
553	571		### Instalacja
554	572
555	573		Interfejs mysql jest rozpowszechniany z pakietami Free Pascal i wraz z dystrybucją kompilatora: Normalnie nie należy podejmować żadnych działań, aby pracować z MySQL.
556	574
557	575		Jeśli chcesz samodzielnie zmodyfikować i skompilować moduły, źródła mysql znajdują się w katalogu pakietów: packages/mysql
558	576
559	577		Ten katalog zawiera moduły, program testowy i plik makefile. Przejdź to tego katalogu komendą cd i wpisz
560	578
561		-	~~`make`~~
	579	+	```text
	580	+	make
	581	+	```
562	582
563	583		Powinno to skompilować moduły. Jeśli kompilacja się powiodła, możesz zainstalować je poleceniem
564	584
565		-	~~`make install`~~
	585	+	```text
	586	+	make install
	587	+	```
566	588
567	589		Następnie możesz przetestować program, uruchamiając
568	590
569		-	~~`make test`~~
	591	+	```text
	592	+	make test
	593	+	```
570	594
571	595		Spowoduje to:
572	596
573	597		- Uruchomienie skryptu, który utworzy tabelę w bazie danych i wypełni ją danymi. (w tym celu program mysql powinien znajdować się w twojej ścieżce). Domyślnie używana baza danych to testdb.
574	598		- Uruchomienie programu testowego testdb
575	599		- Ponowne uruchomienie skryptu powłoki, który usunie utworzoną tabelę.
576	600
577	601		Na ekranie zobaczysz wiele komunikatów, które zawierają informacje zwrotne i wyniki. Jeśli coś poszło nie tak, make poinformuje Cię o tym.
578	602
579	603		Wróć do [[Package List\|Listy Pakietów]]
580	604
581	605		## Zobacz także
582	606
583	607		- [[Lazarus DB Faq\|Najczęęściej zadawane pytania]] - Więcej o programowaniu baz danych
584	608		- [[SQLdb Tutorial1\|SQLdb Samouczek1]] - seria samouczków SQLDB, które przeprowadzą Cię przez proces tworzenia działającej aplikacji GUI siatki bazy danych
585	609		- [[Lazarus Database Overview\|Przegląd baz danych Lazarusa]] - Uruchomienie Lazarusa do pracy z różnymi bazami danych
586	610
587	611		---
588	612		From the Free Pascal wiki, page "mysql/pl", 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