1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
| function requetesql(const requete:string):PMYSQL_ROW;
begin
Conn := mysql_init(nil);
if Conn = nil then begin ShowMessage('Couldn''t init PMYSQL object');
exit;
end;
mysql_ssl_set(conn, 'key.pem', 'cert.pem', 'ca-cert.pem', nil);
if mysql_real_connect(Conn, pChar(MyHost), pChar(MyUser), pChar(MyPass),pchar(Mydbname), 0, nil, 0) = nil
then begin
Showmessage('erreur de connexion');
exit;
end;
if mysql_query(conn,pChar(requete)) <> 0 then begin
showmessage('impossible d''envoyer la requete');
exit;
end;
res_set:=mysql_store_result(conn); |
