Pascal/Delphi Conexão via API do MySQL

[Janir Matheus]

Saudações a todos, 

 

Costumo utilizar o Lazarus como IDE de desenvolvimento, e em sua documentação consta um exemplo de acesso ao servidor MySQL através de sua API. Ocorre que esse exemplo aborda a versão 4.0 (que está bastante defasada). A titulo de curiosidade, segue abaixo as partes mais importantes do código:

program MySql_Conn;

uses mysql4;

const
  DataBase : Pchar = 'testdb';
  Query    : Pchar = 'Select * from Banco_de_Dados';
  Host     : Pchar = 'localhost';
  User     : Pchar = 'Usuario';
  Passwd   : Pchar = 'Senha';

var
  count, num : longint;
  code       : integer;
  sock       : PMYSQL;
  qmysql     : TMYSQL;
  qbuf       : String[160];
  rowbuf     : TMYSQL_ROW;
  dummy      : string;
  recbuf     : PMYSQL_RES;
  alloc      : PMYSQL;

begin
  if paramcount = 1 then
  begin
    Dummy       := paramstr(1)+#0;
    DataBase    := @Dummy[1];
  end;

  alloc := mysql_init(PMYSQL(@qmysql)); {Inicia um objeto MYSQL necessario a chamada da função: mysql_real_connect}
  sock := mysql_real_connect (alloc, host, user, passwd, DataBase, 0, nil, 0); // Importante

  if sock = nil then
  begin
    writeln(stderr,'Nao foi possivel conectar ao MySql');
    halt(1);
  end;

  if mysql_select_db(sock,DataBase) < 0 then {}
  begin
    writeln(stderr,'Nao foi possivel selecionar o Banco ',DataBase);
    halt(1);
  end;
  
  writeln('Executando consulta: ',Query,'...');
  if (mysql_query(sock,Query) < 0) then
  begin
    writeln(stderr,'Query failed');
    writeln(stderr,mysql_error(sock));{Retorna o erro ocorrido na chamada anterior}
    halt(1);
  end;
  recbuf := mysql_store_result(sock); {Armazena o resultado completo de uma consulta bem sucedida}

  if RecBuf = nil then
  begin
    writeln('Consulta retornou resultado nulo.');
    mysql_close(sock);
    halt(1);
  end;

  writeln('Liberando a memoria alocada pelo conjunto resultado ...');
  mysql_free_result(recbuf);{Libera a memória ocupada pelo: mysql_store_result}
  writeln('Fechando a conexao com o MYSQL');
  mysql_close(sock); {Fecha a conexão}
  halt(0);

end. 

Como pôde ser visto, o código acima usa a biblioteca "mysql4'. Gostaria de saber como acessar a API das versões mais recentes do MySQL, especificamente a versão 5.5 considerando que o Lazarus possui a biblioteca "mysql55".

 

PS.: Não me interessa usar os componentes "SQLdb" nem Zeus.

 

Agradeço a quem puder me ajudar.