Mes programmes OpenSource

Pour une offre professionnelle, consultez mon site http://www.execute.re.


Internet - Projets Internet

CrtSock HTTP Query TURLMemo MimeDocs SendMail CGI MSAccess HTTP Server CGI Browse URL NewsReader HyperText TCP/IP Abuse! Remote VCL WebCVS MySQLClient MySQLDataSet SIPInside SIPInside (OpenSource) SIPSay TVInside wChat

MySQLClient Client MySQL natif

Mise à jour le 22 juin 2007
Testé sur :

  • MySQL 3.23.55-nt (Microsoft NT 4 SP 6)
  • MySQL 4.0.15a (Novell Netware 6)
  • MySQL 4.0.18-standard (RedHat 8)
  • MySQL 4.1.9-standard (RedHat 7.2)
NB: supporte le nouveau encodage des mots de passes introduit par MySQL 4.1 !

MySQL.ZIP contient deux unités, MySQLClient.pas déclare la classe TMySQLClient qui gère directement une connexion TCP/IP vers un serveur MySQL.
zInflates.pas est un sous-ensemble de la ZLib qui gère la décompression des données émises par le serveur.
// exemple de connexion
uses
 MySQLClient;
var
 MySQL:TMySQLClient;
begin

 MySQL:=TMySQLClient.Create;

 MySQL.Open('mysql-server'); // IP or Name of the MySQL Server

 MySQL.Login('user','pass','database'); 

 MySQL.ExecSQL('SELECT * FROM Table');

 while not MySQL.Eof do begin

  for i:=0 to MySQL.FieldCount-1 do begin

   WriteLn(MySQL.Fields[i].Name,'=',MySQL.Fields[i].AsString);

  end;

  MySql.Fetch; // remplace le précédent MySQL.Next;

 end;

 MySQL.Free;
 
end;