-
Similar Content
-
-
By janir.matheus
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.
-
By carlos melo
Boa noite, trabalho com Delphi e estou tendo dificuldade em fazer conexão com meu servidor que esta na argentina, uso o firedac para fazer a conexão com o banco, so que o comando que estou utilizando esta dando erro e não sei se estou configurando certo a minha query.
Ja criei os linked server e tambem não resolveu......
uso um select dentro do delphi dessa maneira :
DELPHI
FDQuery e dentro uso esse select
Select * from [192.168.XX.XXX].banco.dbo.tabela direcionando para o meu servidor que esta na argentina sendo 192.168.xx.xxx o ip do servidor de la e o nome do banco é servicos e a tabela ordens.
Se alguem conhece ou ja fez esse tipo de conexão , estou precisando dessa grande ajuda...
obrigado
-
By EmersonEN
Olá, pessoal.
Sempre fui um grande entusiasta do Delphi... desde a versão 1.
Trabalhei com praticamente todas as versões até o ano de 2016.
Continuei trabalhando com desenvolvimento, mas mudei de linguagem de programação.
Recentemente surgiu um cliente no qual poderia ser possível desenvolver um sistema, que eu optei por desenvolver em Delphi, que é uma linguagem e IDE no qual eu me sinto confortável em trabalhar.
Trabalho dentro dessa empresa, mas sou terceirizado (tenho meu próprio CNPJ e nenhum poder financeiro kkkk) então instalei a Community Edition para verificar a aderência em função das necessidades do cliente.
Em paralelo iniciei uma negociação junto à Embarcadero para, num futuro próximo, ter uma versão completa, já que eu poderia ter algum retorno APÓS esse desenvolvimento.
Nessa negociação recebi o valor da versão Enterprise (R$ 30k) e da Professional (R$ 12k).
Ocorre que, na mesma semana (semana passada), meu cliente recebeu um email da Embarcadero - mesmo tendo meus dados na licença, a Embarcadero mandou o email diretamente para o meu cliente; eu não fui colocado sequer em cópia - informando que meu cliente havia infringido um termo da licença e instalado a versão Community de forma indevida, pois não poderia ser instalada em ambiente corporativo.
Nesse mesmo email veio a bomba: a empresa estava obrigada a pagar R$ 77k para regularizar a situação.
Esse valor dava direito a 2 (!) licenças do Delphi Enterprise, cada uma com 2 anos de suporte (!).
Meu cliente faz máquinas e ferramentas e não têm qualquer interesse ou uso para o Delphi.
Argumentou-se junto à Embarcadero - na verdade seu representante no Brasil - que a instalação não foi para uso da empresa; que foi para MEU uso, meu CNPJ, somente para avaliar a viabilidade da ferramenta; que eu havia demonstrado interesse em comprar uma versão, mas estava avaliando a partir da Community - e era realmente esse o intuito da instalação.
Não teve jeito.
Nenhum argumento serviu e agora eu terei de pagar essas 2 licenças do Delphi Enterprise, cada uma com 2 anos de suporte cada uma, e que EU NÃO IREI USAR!
Então meu cliente vai pagar e EU TEREI DE REEMBOLSÁ-LO. Por sorte eu não perdi o cliente/emprego. Imaginem ter que pagar esse valor sem qualquer renda...
Segue o aviso: tomem muito cuidado! A versão Commnunity pode se tornar uma grande cilada pra vocês, como foi pra mim!!!
Leiam atentamente o contrato de licenciamento dessa versão para não terem problema.
Eu conhecia o Lazarus mas ainda não o tinha instalado. Fiz isso somente nesse fim de semana.
Sugiro que, ao menos para testes, optem pelo Larazus (em conjunto com o Rest Dataware https://www.restdw.com.br/, que é fantástico). Provavelmente você não dexará mais de utilizá-lo.
Nem preciso dizer que estou bem decepcionado com a postura da Embarcadero nesse caso.
Viram uma grande empresa e a oportunidade de "extorquir" sem dó (porque não foi uma negociação; foi uma imposição), sem pensar em quem realmente pagaria a conta, apesar dos argumentos.
Sei que para a Embarcadero eu não tenho qualquer valor, sou apenas um desenvolvedor, mas essa conta ficou bem cara pra mim e agora, além de não usar mais ferramentas Embarcadero, também não as recomendarei pra qualquer outra pessoa/empresa.
É isso.
A agora bora trabalhar porque tenho uma bela conta pra pagar!
Desculpem o desabafo.
-
By andreluis78
Olá a todos.
Criei um procedimento para verificar se um usuário está cadastrado no banco de dados.
Utilizo Firebird como BD e componentes Zeos para acessar o banco.
Resolvi criar uma query em tempo de execução para fazer a verificação. Não dá nenhum erro, porém, quando digito o nome do usuário no Edit e clico
no botão que executa o procedimento, ele dá ''usuário inexistente'', mesmo se o nome do usuário estiver cadastrado no banco.
Segue o código:
procedure Tfrm_login.SpeedButton1Click(Sender: TObject); var Qry : TZQuery; begin Qry:=TZQuery.Create(nil); Qry.Connection := dm_dados.ZConnection1; //componente de conexão Qry.SQL.Add('select codigo, nome, acessar, user, pass from clientes'); Qry.Open; if Qry.Locate('USER',Edit1.Text,[]) then begin ShowMessage('usuário cadastrado'); end else begin ShowMessage('usuário inexistente'); Edit1.SetFocus; end; FreeAndNil(Qry); end;
Se alguém puder ajudar agradeço desde já.
Obrigado
-
