Avance en proyecto, conexión a MySQL desde Free Pascal

Después de posponer muchos días avances en el proyecto, hoy por fin pude subir los últimos cambios a GitHub.

No son grandes cambios, sin embargo, este proyecto ya puede recibir los datos de conexión dados por el usuario y realizar la conexión a MySQL correctamente.

Uso la unidad MySQL4, porqué? Porque fue la primera que me funcionó, entre varios ejemplo que busqué en la red, esa fue la primera que pude poner a funcionar y la que he usado en mis mini proyectos en mi trabajo. He tratado de buscar información sobre dicha unidad, pero no he podido dedicarle mucho tiempo, así que copié, pegué, modifiqué y funcionó, no entiendo cómo, pero funcionó.

 En primer lugar tengo que cargar la unidad MySQL4 con la función:

Uses

 MySQL4;

 Después hay que declarar las variables que se utilizarán para la conexión, las cuales son:

Var
 servidor    : String    ;
 usuario     : String    ;
 contrasena  : String    ;
 basededatos : String    ;
 query       : Pchar     ;
 sock        : PMYSQL    ;
 alloc       : PMYSQL    ;
 qmysql      : TMYSQL    ;
 recbuf      : PMYSQL_RES;
 rowbuf      : MYSQL_ROW ;

En resumen se inicializa la colección de objetos para usarse con MySQL y después se realiza la conexión con los parámetros adecuados.

  alloc := mysql_init(PMYSQL(@qmysql));

 sock := mysql_real_connect(alloc, PChar(servidor), PChar(usuario), PChar(contrasena), PChar(basededatos), 0, nil, 0);

 Y es todo, con estas líneas de código dejamos nuestro proyecto funcionando con la conexión lista para usar las consultas de MySQL, solo no olviden cerrar la conexión cuando ya no la usen con la función:

mysql_close(sock);

Listo, hasta aquí mi avance, seguimos en proceso...