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
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.
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)
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;