{$mode objfpc}

program test;

uses mysql50, SysUtils;

var
	db     : PMYSQL;
	res    : PMYSQL_RES;
	fields : PMYSQL_FIELD;
	idx, cnt : integer;

procedure ExitNicely(err : integer);
begin
	WriteLn(mysql_error(db));
	mysql_close(db);
	Halt(err);
end;

begin
	db := mysql_init(nil);
	mysql_real_connect(db, nil, PChar(ParamStr(1)), nil, PChar('test'), 0, nil, 0);
	if mysql_errno(db) <> 0
		then ExitNicely(1);

	mysql_query(db, 'DROP TABLE people');
	mysql_query(db, 'CREATE TABLE people (id serial, name varchar(20))');
	mysql_query(db, 'INSERT INTO people (name) VALUES (''John''), (''Jef'')');

	if mysql_query(db, 'SELECT id, name FROM people') <> 0
		then ExitNicely(2);

	res := mysql_store_result(db);
	cnt := mysql_field_count(db);
	fields := mysql_fetch_fields(res);

	WriteLn('Field count = ' + IntToStr(cnt));

	for idx := 0 to (cnt-1) do
		WriteLn('Name="' + fields[idx].name + '"');

	mysql_close(db);
end.