{$MODE objfpc}
{$H+}
uses mysql50,sysutils;
 var HMySQL : PMySQL;
     H,U,P,Base : pchar;
     Port,i,k,numfields : Cardinal;
     Res: PMYSQL_RES;
     row: MYSQL_ROW;
      
begin
    HMySQL:=mysql_init(nil); // инициализация дескриптора соединения
    Port:=3306; // сетевой порт сервера
    H:='localhost'; // адрес сервера
    U:='pi00'; // пользователь
    P:='pi00'; // пароль
    Base:='pi00'; // база данных
    HMySQL:=mysql_real_connect(HMySQL,H,U,P,Base,Port,Nil,0); // установка соединения
    If (HMySQL=Nil) then raise Exception.Create('Can''t connect'); // генерация ошибки при невозможности соединения
    mysql_query(HMySQL,'set names utf8'); // запрос по установке кодировки текста
    mysql_query(HMySQL,'select * from mygroup');// запрос на выборку всех данных из таблицы mygroup
    res:=mysql_store_result(HMySQL); // получение набора данных с сервера
    numfields:=mysql_field_count(HMySQL); // получение количества полей в наборе данных
    for i:=1 to mysql_num_rows(res) do begin // перебор полученных строк
     row:=mysql_fetch_row(res); // получение очередной строки
     for k:=0 to numfields-1 do write(row[k],' '); // вывод на экран всех полей строки
     writeln;
    end;
    mysql_close(HMySQL); // завершение работы с данным соединением
end.