Jump to content

Recommended Posts

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.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

  • Similar Content

    • By jjunior100
      Preciso armazenar o total das páginas de um determinado documento em uma variável no delphi. Sei como inserir a informação no modelo MSWord.Selection.Fields.Add( Range:=MSWord.Selection.Range, Type:=wdFieldEmpty, Text:= 'NUMPAGES * Arabic ', PreserveFormatting:=True);
      mas como armazenar essa informação em uma variável tipo integer? Obrigado
    • By Hacker_Buiu
      Fiz os programas no Lazarus(Delphi 7 para Linux):

      Calculadora Completa:



      Download do programa:

      https://gitlab.com/BuiuDeJaraguaDoSul/calculadoracompletadebian/-/raw/master/CalculadoraCompleta.deb

      Calculadora de décimo terceiro salário:




      Download do programa:

      https://gitlab.com/BuiuDeJaraguaDoSul/calculadoradedecimoterceirosalariodebian/-/raw/master/CalculadoraDeDecimoTerceiroSalario.deb

      Criptografador:



      Download do programa:

      https://gitlab.com/BuiuDeJaraguaDoSul/criptografadordebian/-/raw/master/Criptografador.deb

      Gerador de Senha:



      Download do programa:
      https://gitlab.com/BuiuDeJaraguaDoSul/geradordesenhadebian/-/raw/master/GeradorDeSenha.deb

      Cronômetro:



      Download do programa:

      https://gitlab.com/BuiuDeJaraguaDoSul/cronometrodebian/-/raw/master/Cronometro.deb

      Visualizador de imagem:




      Download do programa:
      https://gitlab.com/BuiuDeJaraguaDoSul/visualizadordeimagemdebian/-/raw/master/VisualizadorDeImagem.deb

      Editor de Texto:



      Download do programa:
      https://gitlab.com/BuiuDeJaraguaDoSul/editordetextodebian/-/raw/master/EditorDeTexto.deb


      Calculadora Empresarial:



      Download do programa:
      https://gitlab.com/BuiuDeJaraguaDoSul/calculadoraempresarialdebian/-/raw/master/CalculadoraEmpresarial.deb
    • By Hacker_Buiu
      Fiz os programas no Lazarus(Delphi 7 para Linux):
      Cronômetro:
       


      Download do programa:

      https://gitlab.com/BuiuDeJaraguaDoSul/cronometrofedora/-/raw/master/Cronometro-1.0-1.x86_64.rpm

         Gerador De Senha:
       


         Download do programa:

      https://gitlab.com/BuiuDeJaraguaDoSul/geradordesenhafedora/-/raw/master/GeradorDeSenha-1.0-1.x86_64.rpm

         Criptografador:



         Download do programa:

      https://gitlab.com/BuiuDeJaraguaDoSul/criptografadorfedora/-/raw/master/Criptografador-2.0-1.x86_64.rpm

         Visualizador de Imagem:



         Download do programa:

      https://gitlab.com/BuiuDeJaraguaDoSul/visualizadordeimagemfedora/-/raw/master/VisualizadorDeImagem-1.0-1.x86_64.rpm

         Editor de Texto:
       


         Download do programa:

      https://gitlab.com/BuiuDeJaraguaDoSul/editordetextofedora/-/raw/master/EditorDeTexto-1.0-1.x86_64.rpm

         Calculadora Empresarial:

       

         Download do programa:

      https://gitlab.com/BuiuDeJaraguaDoSul/calculadoraempresarialfedora/-/raw/master/CalculadoraEmpresarial-1.0-1.x86_64.rpm

         Calculadora de décimo terceiro salário:



         Download do programa:

      https://gitlab.com/BuiuDeJaraguaDoSul/calculadoradedecimoterceirosalariofedora/-/raw/master/CalculadoraDeDecimoTerceiroSalario-1.0-1.x86_64.rpm

         Calculadora Completa:



         Download do programa:

      https://gitlab.com/BuiuDeJaraguaDoSul/calculadoracompletafedora/-/raw/master/CalculadoraCompleta-1.0-1.x86_64.rpm
    • By Hacker_Buiu
      Fiz os programas no Lazarus(Delphi 7 para Linux):

      Visualizador de imagem:


      Download do programa:
      https://gitlab.com/BuiuDeJaraguaDoSul/visualizadordeimagemslackware/-/raw/master/VisualizadorDeImagem-0.1.0-x86_64-1.txz

      Calculadora Completa:


      Download do programa:
      https://gitlab.com/BuiuDeJaraguaDoSul/calculadoracompletaslackware/-/raw/master/CalculadoraCompleta-0.1.0-x86_64-1.txz

      Calculadora De Décimo Terceiro Salário:


      Download do programa:
      https://gitlab.com/BuiuDeJaraguaDoSul/calculadoradedecimoterceirosalarioslackware/-/raw/master/CalculadoraDeDecimoTerceiroSalario-0.1.0-x86_64-1.txz

      Calculadora Empresarial:


      Download do programa:
      https://gitlab.com/BuiuDeJaraguaDoSul/calculadoraempresarialslackware/-/raw/master/CalculadoraEmpresarial-0.1.0-x86_64-1.txz

      Criptografador:


      Download do programa:
      https://gitlab.com/BuiuDeJaraguaDoSul/criptografadorslackware/-/raw/master/Criptografador-0.1.0-x86_64-1.txz

      Cronômetro:


      Download do programa:
      https://gitlab.com/BuiuDeJaraguaDoSul/cronometroslackware/-/raw/master/Cronometro-0.1.0-x86_64-1.txz
      Editor De Texto:


      Download do programa:
      https://gitlab.com/BuiuDeJaraguaDoSul/editordetextoslackware/-/raw/master/EditorDeTexto-0.1.0-x86_64-1.txz

      Gerador de Senha:


      Download do programa:
      https://gitlab.com/BuiuDeJaraguaDoSul/geradordesenhaslackware/-/raw/master/GeradorDeSenha-0.1.0-x86_64-1.txz
    • By Hacker_Buiu
      Delphi está na área errada,não deveria ser numa área desktop,ao contrário de web?
×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.