Bom dia,
Preciso de ajuda ajuda para resolver o problema de SIGSEGV, basicamente tennho um zconection dentro de uma classe e recebo erro quando tento acessá-lo. Segue um trecho da classe:
unit unt_classconexao;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, ZConnection, ZDataset;
type
{ tConexao }
tConexao = class
private
public
vConector : TZConnection;
function Listar_Usuarios:TZReadOnlyQuery;
procedure Conectar_Banco;
end;
implementation
{ tConexao }
function tConexao.Listar_Usuarios: TZReadOnlyQuery;
var zrquery : TZReadOnlyQuery;
begin
Conectar_Banco;
try
zrquery := TZReadOnlyQuery.Create(nil);
zrquery.Connection := vConector;
zrquery.SQL.Clear;
zrquery.SQL.Text := 'SELECT * from tbl_profissionais';
zrquery.Open;
Listar_Usuarios := zrquery;
finally
end;
end;
procedure tConexao.Conectar_Banco;
begin
//vConector := TZConnection.Create(nil);
vConector.HostName := 'localhost';
vConector.Port := 3306;
vConector.Database := 'Caps';
vConector.Protocol := 'mysql-5';
vConector.User := 'root';
vConector.Password := '';
vConector.Connected := true;
end;
end.
Após isso tento fazer uso dessa classe para popular um DBGrid:
unit unt_frmprincipal;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, DB, Forms, Controls, Graphics, Dialogs, Menus, DBGrids,
ZConnection, unt_classconexao;
type
{ Tfrm_principal }
Tfrm_principal = class(TForm)
DataSource1: TDataSource;
DBGrid1: TDBGrid;
MainMenu_frmPrincipal: TMainMenu;
MenuItem_AplicativoSair: TMenuItem;
N1: TMenuItem;
MenuItem_AplicativoLogin: TMenuItem;
MenuItem_Aplicativo: TMenuItem;
procedure MenuItem_AplicativoLoginClick(Sender: TObject);
private
public
vConexao : tConexao;
end;
var
frm_principal: Tfrm_principal;
implementation
{$R *.lfm}
{ Tfrm_principal }
procedure Tfrm_principal.MenuItem_AplicativoLoginClick(Sender: TObject);
begin
//vConexao := tConexao.Create;
DataSource1.DataSet := vConexao.Listar_Usuarios;
end;
end.
A mensagem de erro que recebo dá a entender que o problema ocorre logo que o zconnection começa a ser configurado, como vocês podem ver pelos trechos comentados eu tentei instanciar o componente também sem sucesso. Não tenho experiencia com POO e tenho certeza que estou cometendo um erro bobo, então peço uma explicação sobre como resolver isso. Agradeço de antemão a quem puder me ajudar.
PS. Estou usando o Lazarus.
