Re: [delphi-br] OFF - Contrata-se programador
Exibir apresentação de slides
http://g.msn.com/5meen_us/171?path=/photomail/{d2f8f1f0-6856-427a-aaac-e361d8ee2c51}image=731EE000A24CEE3!176imagehi=731EE000A24CEE3!174CID=518457116061912803GALERA
E O SEGUINTE ESTOU TENTANDO INSTALAR UM PACOTE DE UM COMPONETE NO DELPHI 7 E
UMA DECISION CUBE VERSAO MAIS NOVA 2.1 MAS TA DANDO ESTE ERRO TODA VEZ QUE
TENTO INSTALAR E JA NAOCONSIGO MAIS COLOCAR ELA, VCS PODERIAM ME AJUDAR.
ATENCIOSAMENTE
http://g.msn.com/5meen_us/171?path=/photomail/{d2f8f1f0-6856-427a-aaac-e361d8ee2c51}image=731EE000A24CEE3!176imagehi=731EE000A24CEE3!174CID=518457116061912803
ERRO DELPHI
RUBERVAL
As imagens online estão disponíveis por 30 dias. Baixe o Windows Live Mail
para criar seus próprios emails com foto. http://g.msn.com/5meen_us/175
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: Existe alguma diferença nestes dois pedaços de código? Criando Forms...
Olá Amigos, alguém poderia me dar uma luz neste problema? []s Em 26/10/07, Fellipe Henrique [EMAIL PROTECTED] escreveu: Olá amigos, quero criar um tela de localizar, sempre que o usuário clica no botão... tenho o FrmLocalizar, e tenho os dois codigos, gostaria de saber qual deles é o melhor e o correto de ser usado, se é que há diferença entre eles.. Desde já agradeço. Código1: FrmLocalizar := TFrmLocalizar.Create(nil); try FrmLocalizar.ShowModal; finally FrmLocalizar.Release; end; Código 2: Type tLocalizar = TFrmLocalizar; (..) ButtonClick(): var vTelaLoc: tLocalizar; begin vTelaLoc := vTelaLoc.Create(nil); try vTelaLoc.ShowModal; finally vTelaLoc.Release; end; -- _ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] -- _ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Dúvidas para Gerar locação!!
Bom dia galera, eu sei q estou sendo chato, mas sou iniciante e preciso tirar dúvidas, e não há lugar melhor do que aki pra eu conseguir esta proeza. É o Seguinte. Estou desenvolvendo uma aplicação para uma VideoLocadora onde os usuários podem cadastrar Clientes, Filmes, Fornecedores, Usários e podem fazer consulta do Mesmo, Podem cadastrar preços e Gerar Locações. O problema começa na Locação. Tenho uma Tabela no Interbase de LOCACAO e nela está os Atributos(Campos) NUM_LOC, DATA, COD_CLIENTE, COD_FILME, TITULO e VALOR(referente ao valor do alguel daquele filme). No form de Locação(Flocacao) Tem 3 DBedits, um Edit(para receber mostrar o nome do cliente quando o usuário colocar o código dele no DBedit3(COD_CLIENTE) eu um DBGrid. O Problem é que no DbGrid, na coluna do COD_FILMES quero o seguinte, quando o usuário colocar o Código do Filme, já aparecer nas demais colunas(TITULO e VALOR) o nome do Filme e o valor do Filme. Não sei se precisa usar a estrutura master/detail, não sei se precisa de 2 datasource. Se tiver alguma rotina que possa enviar para eu estudar, iria ajudar bastante. Desculpe a perturbação gente, mais eu preciso muito saber. Grato Rafael.
Re: [delphi-br] Re: Existe alguma diferença nestes dois pedaços de código? Criando Forms...
Em questão de desempenho não uma Foma A ou B que seja + rapida, o importante é não deixar o Objeto na memoria quando não mais for utilizar. Eu particularmente uso essa rotina pra criar/exibir Forms: procedure ShowForm( TFrm:TFormClass; var Frm ); begin try if not Assigned( TForm(Frm) ) then TForm(Frm) := TFrm.Create( Application ); TForm(Frm).ShowModal; finally FreeAndNil( TForm(Frm) ); end; end; para usar:ShowForm( TFrmCadastro, FrmCadastro ); ja diminue algumas linhas repetidas no sistema; Em 29/10/07, Fellipe Henrique [EMAIL PROTECTED] escreveu: Olá Eduardo, desculpe-me, realmente foi erro de digitação, o código está igual ao que voce fez mesmo... :o) Mas queria saber, se existe diferença, qual é o mais rápido, e mais indicado para usar... []s Em 29/10/07, Eduardo Silva dos Santos [EMAIL PROTECTED]eduardo.drd%40gmail.com escreveu: Olá Fellipe, diferença existe pq existe um erro, mas a lógica do código é a mesma. Código1: FrmLocalizar := TFrmLocalizar.Create(nil); try FrmLocalizar.ShowModal; finally FrmLocalizar.Release; end; Código 2: Type tLocalizar = TFrmLocalizar; (..) ButtonClick(): var vTelaLoc: tLocalizar; begin vTelaLoc := vTelaLoc.Create(nil); aqui.. tem que ser: vTelaLoc := tLocalizar.Create(nil); try vTelaLoc.ShowModal; finally vTelaLoc.Release; end; Em 29/10/07, Fellipe Henrique [EMAIL PROTECTED] fellipeh%40gmail.comfellipeh%40gmail.com escreveu: Olá Amigos, alguém poderia me dar uma luz neste problema? []s Em 26/10/07, Fellipe Henrique [EMAIL PROTECTED]fellipeh%40gmail.comfellipeh%40gmail.comfellipeh%40gmail.com escreveu: Olá amigos, quero criar um tela de localizar, sempre que o usuário clica no botão... tenho o FrmLocalizar, e tenho os dois codigos, gostaria de saber qual deles é o melhor e o correto de ser usado, se é que há diferença entre eles.. Desde já agradeço. Código1: FrmLocalizar := TFrmLocalizar.Create(nil); try FrmLocalizar.ShowModal; finally FrmLocalizar.Release; end; Código 2: Type tLocalizar = TFrmLocalizar; (..) ButtonClick(): var vTelaLoc: tLocalizar; begin vTelaLoc := vTelaLoc.Create(nil); try vTelaLoc.ShowModal; finally vTelaLoc.Release; end; -- _ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] fellipeh%40gmail.com fellipeh%40gmail.com fellipeh%40gmail.com -- _ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] fellipeh%40gmail.com fellipeh%40gmail.com fellipeh%40gmail.com [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] eduardo.drd%40gmail.com eduardo.drd%40gmail.com Site: http://www.drdsistemas.com/ ... [As partes desta mensagem que não continham texto foram removidas] -- _ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] fellipeh%40gmail.com [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ ... [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] TUpdateSQL
Bom dia Pessoal, quero saber como faço pra setar uma parametro nesse componente, sendo que na execução dele tem o Parametro :Numero, mas não consigo fazer ele receber um novo número. Abraço [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Existe alguma diferença nestes dois pedaços de código? Criando Forms...
Olá Eduardo, desculpe-me, realmente foi erro de digitação, o código está igual ao que voce fez mesmo... :o) Mas queria saber, se existe diferença, qual é o mais rápido, e mais indicado para usar... []s Em 29/10/07, Eduardo Silva dos Santos [EMAIL PROTECTED] escreveu: Olá Fellipe, diferença existe pq existe um erro, mas a lógica do código é a mesma. Código1: FrmLocalizar := TFrmLocalizar.Create(nil); try FrmLocalizar.ShowModal; finally FrmLocalizar.Release; end; Código 2: Type tLocalizar = TFrmLocalizar; (..) ButtonClick(): var vTelaLoc: tLocalizar; begin vTelaLoc := vTelaLoc.Create(nil); aqui.. tem que ser: vTelaLoc := tLocalizar.Create(nil); try vTelaLoc.ShowModal; finally vTelaLoc.Release; end; Em 29/10/07, Fellipe Henrique [EMAIL PROTECTED] fellipeh%40gmail.com escreveu: Olá Amigos, alguém poderia me dar uma luz neste problema? []s Em 26/10/07, Fellipe Henrique [EMAIL PROTECTED] fellipeh%40gmail.comfellipeh%40gmail.com escreveu: Olá amigos, quero criar um tela de localizar, sempre que o usuário clica no botão... tenho o FrmLocalizar, e tenho os dois codigos, gostaria de saber qual deles é o melhor e o correto de ser usado, se é que há diferença entre eles.. Desde já agradeço. Código1: FrmLocalizar := TFrmLocalizar.Create(nil); try FrmLocalizar.ShowModal; finally FrmLocalizar.Release; end; Código 2: Type tLocalizar = TFrmLocalizar; (..) ButtonClick(): var vTelaLoc: tLocalizar; begin vTelaLoc := vTelaLoc.Create(nil); try vTelaLoc.ShowModal; finally vTelaLoc.Release; end; -- _ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] fellipeh%40gmail.com fellipeh%40gmail.com -- _ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] fellipeh%40gmail.com fellipeh%40gmail.com [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] eduardo.drd%40gmail.com Site: http://www.drdsistemas.com/ ... [As partes desta mensagem que não continham texto foram removidas] -- _ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Existe alguma diferença neste s dois pedaços de código? Criando Forms ...
Fellipe eu não sei qual é melhor opção mas eu uso assim:
procedure AbreForm (aClasseForm : TComponentClass; aForm: TForm);
procedure AbreForm(aClasseForm: TComponentClass; aForm: TForm);
begin
{: método para abrir form}
Application.CreateForm(aClasseForm, aForm);
try
aForm.ShowModal;
finally
aForm.Free;
end;
end;
no clique do botão:
AbreForm(TFrmCadProduto, FrmCadProduto) ;
Espero ter ajudado
Luciano Angelini
Prefeitura de Lupionópolis-Pr
Fellipe Henrique escreveu:
Olá amigos, quero criar um tela de localizar, sempre que o usuário
clica no
botão... tenho o FrmLocalizar, e tenho os dois codigos, gostaria de saber
qual deles é o melhor e o correto de ser usado, se é que há diferença
entre
eles..
Desde já agradeço.
Código1:
FrmLocalizar := TFrmLocalizar.Create(nil);
try
FrmLocalizar.ShowModal;
finally
FrmLocalizar.Release;
end;
Código 2:
Type
tLocalizar = TFrmLocalizar;
(..)
ButtonClick():
var
vTelaLoc: tLocalizar;
begin
vTelaLoc := vTelaLoc.Create(nil);
try
vTelaLoc.ShowModal;
finally
vTelaLoc.Release;
end;
--
_
T.·.F.·.A.·.
Fellipe Henrique
[EMAIL PROTECTED] mailto:fellipeh%40gmail.com
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Campos
Marcelo Como vc usa o DBedit quando sua procura achar um CPNJ ... Table.edit ... Se caso não achar ... Table.append ou Table.insert ... os dados que vier da consulta estaram preso do DataSet ... Luciano Angelini Prefeitura de Lupionópolis-Pr mclpaltrin escreveu: Tenho uma duvida e preciso da opnião dos demais. - Tenho dbedit ligado uma table no banco de dados , esse dbedit campo CpfCnpj, informando o dado passa por uma verificação feito a validação procura o dado informado no BD. - Duvida:??? Se encontrado o dado no caso (cpfcnpj) Como faço para um Form2 trazer o campo CpfCnpj preenchido e os demais Campos tbm como nome, endereço , razão social ..etc...? -Não encontrado o cpfcnpj abre o mesmo form2 no caso com apenas o cpfcnpj preenchido e os demais campos pronto pra inclusão dos dados.??? Espero que todos possam me ajudar... -- Marcelo
Re: [delphi-br] Re: Existe alguma diferença nestes d ois pedaços de código? Criando Forms...
Eu, se fosse vc, sempre passaria como Owner de qqr formulário, o Objeto Application. Se fizer isso, você poderá localizar o form dinamicamente, e a Application vai cuidar de destruir o objeto em caso de erro. []'s Francisco Thiago de Almeida - Original Message - From: Eduardo Silva dos Santos [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Monday, October 29, 2007 8:51 AM Subject: Re: [delphi-br] Re: Existe alguma diferença nestes dois pedaços de código? Criando Forms... Em questão de desempenho não uma Foma A ou B que seja + rapida, o importante é não deixar o Objeto na memoria quando não mais for utilizar. Eu particularmente uso essa rotina pra criar/exibir Forms: procedure ShowForm( TFrm:TFormClass; var Frm ); begin try if not Assigned( TForm(Frm) ) then TForm(Frm) := TFrm.Create( Application ); TForm(Frm).ShowModal; finally FreeAndNil( TForm(Frm) ); end; end; para usar:ShowForm( TFrmCadastro, FrmCadastro ); ja diminue algumas linhas repetidas no sistema; Em 29/10/07, Fellipe Henrique [EMAIL PROTECTED] escreveu: Olá Eduardo, desculpe-me, realmente foi erro de digitação, o código está igual ao que voce fez mesmo... :o) Mas queria saber, se existe diferença, qual é o mais rápido, e mais indicado para usar... []s Em 29/10/07, Eduardo Silva dos Santos [EMAIL PROTECTED]eduardo.drd%40gmail.com escreveu: Olá Fellipe, diferença existe pq existe um erro, mas a lógica do código é a mesma. Código1: FrmLocalizar := TFrmLocalizar.Create(nil); try FrmLocalizar.ShowModal; finally FrmLocalizar.Release; end; Código 2: Type tLocalizar = TFrmLocalizar; (..) ButtonClick(): var vTelaLoc: tLocalizar; begin vTelaLoc := vTelaLoc.Create(nil); aqui.. tem que ser: vTelaLoc := tLocalizar.Create(nil); try vTelaLoc.ShowModal; finally vTelaLoc.Release; end; Em 29/10/07, Fellipe Henrique [EMAIL PROTECTED] fellipeh%40gmail.comfellipeh%40gmail.com escreveu: Olá Amigos, alguém poderia me dar uma luz neste problema? []s Em 26/10/07, Fellipe Henrique [EMAIL PROTECTED]fellipeh%40gmail.comfellipeh%40gmail.comfellipeh%40gmail.com escreveu: Olá amigos, quero criar um tela de localizar, sempre que o usuário clica no botão... tenho o FrmLocalizar, e tenho os dois codigos, gostaria de saber qual deles é o melhor e o correto de ser usado, se é que há diferença entre eles.. Desde já agradeço. Código1: FrmLocalizar := TFrmLocalizar.Create(nil); try FrmLocalizar.ShowModal; finally FrmLocalizar.Release; end; Código 2: Type tLocalizar = TFrmLocalizar; (..) ButtonClick(): var vTelaLoc: tLocalizar; begin vTelaLoc := vTelaLoc.Create(nil); try vTelaLoc.ShowModal; finally vTelaLoc.Release; end; -- _ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] fellipeh%40gmail.com fellipeh%40gmail.com fellipeh%40gmail.com -- _ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] fellipeh%40gmail.com fellipeh%40gmail.com fellipeh%40gmail.com [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] eduardo.drd%40gmail.com eduardo.drd%40gmail.com Site: http://www.drdsistemas.com/ ... [As partes desta mensagem que não continham texto foram removidas] -- _ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] fellipeh%40gmail.com [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ ... [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos
[delphi-br] Re: Drive UIB
De uma olhada neste artigo do Luciano Pimenta no site da Devmedia. Creio que seja isto que procura. Fraterno abraço. Carlos http://www.devmedia.com.br/articles/viewcomp.asp?comp=971hl=UIB% 20Firebird
Re: [delphi-br] Re: Drive UIB
Muito orbigado carlos!!! Em 29/10/07, Carlos [EMAIL PROTECTED] escreveu: De uma olhada neste artigo do Luciano Pimenta no site da Devmedia. Creio que seja isto que procura. Fraterno abraço. Carlos http://www.devmedia.com.br/articles/viewcomp.asp?comp=971hl=UIB%http://www.devmedia.com.br/articles/viewcomp.asp?comp=971hl=UIB%25 20Firebird [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] [ meio - OFF] Banco de CEP ´s
Eu acho que é muito caro. E tb já tinha conhecimento sobre isso. Tb tenho outras opiniões a respeito sobre isso, mas não iriam ajudar em nada. Sds, Ricardo. [EMAIL PROTECTED] escreveu: Estou precisando atualizar minha base de CEP´s que é da época dos Flinstones. ehhehehe Bom procurando no site do correio, achei algo que já foi falado muito aqui na lista, e que muitos estão errados. http://www.correios.com.br/servicos/cep/dne_saiba_mais.cfm 3. A ECT oferece gratuitamente ao público em geral, para pequenas consultas, os Códigos de Endereçamento Postal - CEP® por meio de consultas, registro a registro, no link Consulta CEP, no site http://www.correios.com.br, no call center (0800 570 0100). Nas agências de Correios é disponibilizado para venda o Guia Postal Brasileiro na forma impressa e eletrônica - GPBe (CD-ROM). O acesso à base de dados do GPBe somente é possível por intermédio do programa que a acompanha, sendo vedado o uso de qualquer dispositivo que possibilite abrir o arquivo que contém a base de dados do DNE®, sob pena de responsabilização civil, conforme informado no Termo de Restrição de uso e Instalação contido no Guia Postal Brasileiro versão eletrônica.. Se quizer usar no seu programa então deve acessar isso aqui... http://www.correios.com.br/servicos/cep/faq.cfm O que voces me falam sobre isso Luiz Escobar - Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/ASSEMBLY/MySQL/xBase SERVIDORES - CNA IntraNetWare4.11, LINUX-(RedHat9/Suse10.2), Windows 2K/XP Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] [OFF-TOPIC] Material ERWin
Alguém tem algum material em português (apostila/tutorial) sobre como utilizar o ERWin (4.0) ? Se não o material, algum link que contenha tal. Muitíssimo obrigado pela atenção Junior [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] IB_Query .Locate . Sintaxe
Uso uma paleta da IBO pra firebird !
If
DataModuleDados.IB_Query.Locate('CODIGOMODULO','10',[lopartialkey,loCaseInsensitive])
Then Modulo10:=True Else Modulo10:=False;
Ta dando um erro de Incopatiple Types TIB_LocateOption and TLocateOption
alguem tem alguma dica ?
[delphi-br] Componentes na Vertical
Boa tarde!! Alguem sabe como posso fazer para rotacionar componentes para que eles fiquem deitados na tela ??? estou tendo q desenvolver um pequeno programa mas o mesmo terá q ficar de todo de lado, rotacionado em 90º (o monitor vai ficar de lado). eu só consegui fazer para os labels ficarem na vertical, mas do restante nada ainda. mto obrigado Rafael [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Ajuda Delphi e Excel
Boa tarde amigos da lista algum amigo já gerou, uma planilha formatada no excel, como o resultado de uma consulta pelo delphi?? Poderia me ajudar?? Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Componentes na Vertical
mas facil usar um aceleradora de video que tenha a opção de rotação... assim tudo vai ficar deitado... não só o seu programa como o windows inteiro, facilitando tudo... Luiz Escobar - Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/ASSEMBLY/MySQL/xBase SERVIDORES - CNA IntraNetWare4.11, LINUX-(RedHat9/Suse10.2), Windows 2K/XP - Original Message - From: Fellipe Henrique To: delphi-br@yahoogrupos.com.br Sent: Monday, October 29, 2007 3:33 PM Subject: Re: [delphi-br] Componentes na Vertical Olá Rafael, acho ser muito dificil isso que você quer... veja se a placa de video do seu cliente tem uma função assim... a minha um NVidia, tem uma opção, em que eu posso rotacionar a tela, sem ter q mexr no sistema.. []s Em 29/10/07, Rafael Marques [EMAIL PROTECTED] escreveu: Boa tarde!! Alguem sabe como posso fazer para rotacionar componentes para que eles fiquem deitados na tela ??? estou tendo q desenvolver um pequeno programa mas o mesmo terá q ficar de todo de lado, rotacionado em 90º (o monitor vai ficar de lado). eu só consegui fazer para os labels ficarem na vertical, mas do restante nada ainda. mto obrigado Rafael [As partes desta mensagem que não continham texto foram removidas] -- _ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Componentes na Vertical
h blz. vo da um toq nele entao!! vai ser bem melhor mesmo rs vou passar isso pro cliente. mto obrigado Fellipe - Original Message - From: Fellipe Henrique To: delphi-br@yahoogrupos.com.br Sent: Monday, October 29, 2007 2:33 PM Subject: Re: [delphi-br] Componentes na Vertical Olá Rafael, acho ser muito dificil isso que você quer... veja se a placa de video do seu cliente tem uma função assim... a minha um NVidia, tem uma opção, em que eu posso rotacionar a tela, sem ter q mexr no sistema.. []s Em 29/10/07, Rafael Marques [EMAIL PROTECTED] escreveu: Boa tarde!! Alguem sabe como posso fazer para rotacionar componentes para que eles fiquem deitados na tela ??? estou tendo q desenvolver um pequeno programa mas o mesmo terá q ficar de todo de lado, rotacionado em 90º (o monitor vai ficar de lado). eu só consegui fazer para os labels ficarem na vertical, mas do restante nada ainda. mto obrigado Rafael [As partes desta mensagem que não continham texto foram removidas] -- _ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] -- Esta mensagem foi verificada pelo E-mail Protegido Terra. Scan engine: McAfee VirusScan / Atualizado em 26/10/2007 / Versão: 5.1.00/5150 Proteja o seu e-mail Terra: http://mail.terra.com.br/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Componentes na Vertical
Olá Rafael, acho ser muito dificil isso que você quer... veja se a placa de video do seu cliente tem uma função assim... a minha um NVidia, tem uma opção, em que eu posso rotacionar a tela, sem ter q mexr no sistema.. []s Em 29/10/07, Rafael Marques [EMAIL PROTECTED] escreveu: Boa tarde!! Alguem sabe como posso fazer para rotacionar componentes para que eles fiquem deitados na tela ??? estou tendo q desenvolver um pequeno programa mas o mesmo terá q ficar de todo de lado, rotacionado em 90º (o monitor vai ficar de lado). eu só consegui fazer para os labels ficarem na vertical, mas do restante nada ainda. mto obrigado Rafael [As partes desta mensagem que não continham texto foram removidas] -- _ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] ERRO! cruel.
mclpaltrin wrote:
procedure TFrmCadastro.BitBtn2Click(Sender: TObject);
begin
{ bloco try/except}
try
with Zquery do
begin
Faltou o end deste begin acima.
--
Joao Morais
Zquery.Close;
sql.Clear;
sql.Add(' insert into fornec ( ');
sql.Add(' cpfcpj, rzofor, ftsfor, logcom, ');
sql.Add(' numcom, baicom, cepcom, cidcom, ');
sql.Add(' estfor, codfor, insfor, emlfor, ');
sql.Add(' telfor, faxfor, celfor )');
sql.Add(' values ( ');
sql.Add(' :vcpfcpj, :vrzofor, :vftsfor, :vlogcom, ');
sql.Add(' :vnumcom, :vbaicom, :vcepcom, :vcidcom, ');
sql.Add(' :vestfor, :vcodfor, :vinsfor, :vemlfor, ');
sql.Add(' :vtelfor, :vfaxfor, :vcelfor ); ');
Parambyname('vcpfcpj').Value := DBCPFCNPJ.Text ;
Parambyname('vrzofor').Value := DBRAZAO.Text ;
Parambyname('vftsfor').Value := DBNOME.Text ;
Parambyname('vlogcom').Value := DBENDERECO.Text ;
Parambyname('vnumcom').Value := DBNUMERO.Text ;
Parambyname('vbaicom').Value := DBBAIRRO.Text ;
Parambyname('vcepcom').Value := DBCEP.Text ;
Parambyname('vcidcom').Value := DBCIDADE.Text ;
Parambyname('vestfor').Value := DBUF.Text ;
Parambyname('vcodfor').Value := DBCODFORNEC.Text ;
Parambyname('vinsfor').Value := DBESTADUAL.Text ;
Parambyname('vemlfor').Value := DBEMAIL.Text ;
Parambyname('vtelfor').Value := DBTELEFONE.Text ;
Parambyname('vfaxfor').Value := DBFAX.Text ;
Parambyname('vcelfor').Value := DBCELULAR.Text ;
zquery.ExecSQL;
zConnection.Commit;
zQuery.Refresh; //faz um refresh na tabela para atualizar os dados
except
on Exc:Exception do // Esta dando erro nesta linha alguem pode
//corrigir para mim?? Fatal: Syntax error, ;
//expected but identifier ON found
begin
ShowMessage('Ocorreu um erro na tentantiva de gravar os registro: ' +
Exc.Message);
zConnection.Rollback;
zQuery.Refresh; //faz um refresh na tabela para atualizar os dados
end;
end; //final do bloco do try/except
end; Question
_
Re: [delphi-br] ERRO! cruel.
não seria?
on E: Exception do
begin
(..)
end;
[]s
Em 29/10/07, mclpaltrin [EMAIL PROTECTED] escreveu:
procedure TFrmCadastro.BitBtn2Click(Sender: TObject);
begin
{ bloco try/except}
try
with Zquery do
begin
Zquery.Close;
sql.Clear;
sql.Add(' insert into fornec ( ');
sql.Add(' cpfcpj, rzofor, ftsfor, logcom, ');
sql.Add(' numcom, baicom, cepcom, cidcom, ');
sql.Add(' estfor, codfor, insfor, emlfor, ');
sql.Add(' telfor, faxfor, celfor )');
sql.Add(' values ( ');
sql.Add(' :vcpfcpj, :vrzofor, :vftsfor, :vlogcom, ');
sql.Add(' :vnumcom, :vbaicom, :vcepcom, :vcidcom, ');
sql.Add(' :vestfor, :vcodfor, :vinsfor, :vemlfor, ');
sql.Add(' :vtelfor, :vfaxfor, :vcelfor ); ');
Parambyname('vcpfcpj').Value := DBCPFCNPJ.Text ;
Parambyname('vrzofor').Value := DBRAZAO.Text ;
Parambyname('vftsfor').Value := DBNOME.Text ;
Parambyname('vlogcom').Value := DBENDERECO.Text ;
Parambyname('vnumcom').Value := DBNUMERO.Text ;
Parambyname('vbaicom').Value := DBBAIRRO.Text ;
Parambyname('vcepcom').Value := DBCEP.Text ;
Parambyname('vcidcom').Value := DBCIDADE.Text ;
Parambyname('vestfor').Value := DBUF.Text ;
Parambyname('vcodfor').Value := DBCODFORNEC.Text ;
Parambyname('vinsfor').Value := DBESTADUAL.Text ;
Parambyname('vemlfor').Value := DBEMAIL.Text ;
Parambyname('vtelfor').Value := DBTELEFONE.Text ;
Parambyname('vfaxfor').Value := DBFAX.Text ;
Parambyname('vcelfor').Value := DBCELULAR.Text ;
zquery.ExecSQL;
zConnection.Commit;
zQuery.Refresh; //faz um refresh na tabela para atualizar os dados
except
on Exc:Exception do // Esta dando erro nesta linha alguem pode
// corrigir para mim?? Fatal: Syntax error, ;
// expected but identifier ON found
begin
ShowMessage('Ocorreu um erro na tentantiva de gravar os registro: ' +
Exc.Message);
zConnection.Rollback;
zQuery.Refresh; //faz um refresh na tabela para atualizar os dados
end;
end; //final do bloco do try/except
end; Question
_
--
_
T.·.F.·.A.·.
Fellipe Henrique
[EMAIL PROTECTED]
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Trava de segurança
Uso um componente chamado TEvAppProtect do Elivaldo, www.elivaldo.com.br não é propaganda mais é bom mesmo, e o legal é que vc pode comprar só esse componente, não precisa comprar todo o pacote de componentes. - Original Message - From: Luciano Reis To: delphi-br@yahoogrupos.com.br Sent: Sunday, October 28, 2007 5:44 PM Subject: [delphi-br] Trava de segurança Olá amigos, alguém pode me ajudar na criação de uma rotina para que meu sistema solicite uma senha para destravar apos 45 dias? Pois eu estou locando meu sistema, e to precisando de trava de segurança. Para evitar a pirataria. Grato, Luciano Reis [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.503 / Virus Database: 269.15.12/1098 - Release Date: 29/10/2007 09:28 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] ERRO! cruel.
Fellipe Henrique wrote:
não seria?
on E: Exception do
Este E é você quem escolhe. O que você escolher poderá ser usado no
bloco abaixo para recuperar algum valor.
--
Joao Morais
begin
(..)
end;
[]s
Em 29/10/07, mclpaltrin [EMAIL PROTECTED] escreveu:
procedure TFrmCadastro.BitBtn2Click(Sender: TObject);
begin
{ bloco try/except}
try
with Zquery do
begin
Zquery.Close;
sql.Clear;
sql.Add(' insert into fornec ( ');
sql.Add(' cpfcpj, rzofor, ftsfor, logcom, ');
sql.Add(' numcom, baicom, cepcom, cidcom, ');
sql.Add(' estfor, codfor, insfor, emlfor, ');
sql.Add(' telfor, faxfor, celfor )');
sql.Add(' values ( ');
sql.Add(' :vcpfcpj, :vrzofor, :vftsfor, :vlogcom, ');
sql.Add(' :vnumcom, :vbaicom, :vcepcom, :vcidcom, ');
sql.Add(' :vestfor, :vcodfor, :vinsfor, :vemlfor, ');
sql.Add(' :vtelfor, :vfaxfor, :vcelfor ); ');
Parambyname('vcpfcpj').Value := DBCPFCNPJ.Text ;
Parambyname('vrzofor').Value := DBRAZAO.Text ;
Parambyname('vftsfor').Value := DBNOME.Text ;
Parambyname('vlogcom').Value := DBENDERECO.Text ;
Parambyname('vnumcom').Value := DBNUMERO.Text ;
Parambyname('vbaicom').Value := DBBAIRRO.Text ;
Parambyname('vcepcom').Value := DBCEP.Text ;
Parambyname('vcidcom').Value := DBCIDADE.Text ;
Parambyname('vestfor').Value := DBUF.Text ;
Parambyname('vcodfor').Value := DBCODFORNEC.Text ;
Parambyname('vinsfor').Value := DBESTADUAL.Text ;
Parambyname('vemlfor').Value := DBEMAIL.Text ;
Parambyname('vtelfor').Value := DBTELEFONE.Text ;
Parambyname('vfaxfor').Value := DBFAX.Text ;
Parambyname('vcelfor').Value := DBCELULAR.Text ;
zquery.ExecSQL;
zConnection.Commit;
zQuery.Refresh; //faz um refresh na tabela para atualizar os dados
except
on Exc:Exception do // Esta dando erro nesta linha alguem pode
// corrigir para mim?? Fatal: Syntax error, ;
// expected but identifier ON found
begin
ShowMessage('Ocorreu um erro na tentantiva de gravar os registro: ' +
Exc.Message);
zConnection.Rollback;
zQuery.Refresh; //faz um refresh na tabela para atualizar os dados
end;
end; //final do bloco do try/except
end; Question
_
Re: [delphi-br] ERRO! cruel.
De bandeja heim
Rapaz.. faz uma identação melhor nesse código...
try
with Zquery do begin
Zquery.Close;
sql.Clear;
sql.Add( 'insert into fornec (' );
sql.Add( 'cpfcpj, rzofor, ftsfor, logcom, ' );
sql.Add( 'numcom, baicom, cepcom, cidcom, ' );
sql.Add( 'estfor, codfor, insfor, emlfor, ' );
sql.Add( 'telfor, faxfor, celfor )' );
sql.Add( 'values (' );
sql.Add( ':vcpfcpj, :vrzofor, :vftsfor, :vlogcom, ' );
sql.Add( ':vnumcom, :vbaicom, :vcepcom, :vcidcom, ' );
sql.Add( ':vestfor, :vcodfor, :vinsfor, :vemlfor, ' );
sql.Add( ':vtelfor, :vfaxfor, :vcelfor ); ');
Parambyname( 'vcpfcpj' ).Value := DBCPFCNPJ.Text;
Parambyname( 'vrzofor' ).Value := DBRAZAO.Text;
Parambyname( 'vftsfor' ).Value := DBNOME.Text;
Parambyname( 'vlogcom' ).Value := DBENDERECO.Text;
Parambyname( 'vnumcom' ).Value := DBNUMERO.Text;
Parambyname( 'vbaicom' ).Value := DBBAIRRO.Text;
Parambyname( 'vcepcom' ).Value := DBCEP.Text;
Parambyname( 'vcidcom' ).Value := DBCIDADE.Text;
Parambyname( 'vestfor' ).Value := DBUF.Text;
Parambyname( 'vcodfor' ).Value := DBCODFORNEC.Text;
Parambyname( 'vinsfor' ).Value := DBESTADUAL.Text;
Parambyname( 'vemlfor' ).Value := DBEMAIL.Text;
Parambyname( 'vtelfor' ).Value := DBTELEFONE.Text;
Parambyname( 'vfaxfor' ).Value := DBFAX.Text;
Parambyname( 'vcelfor' ).Value := DBCELULAR.Text;
zquery.ExecSQL;
zConnection.Commit;
//zQuery.Refresh; não precisa desse refresh, seu ZQuery não esta
aberto
end;
except
on E:Exception do begin
ShowMessage( 'Ocorreu um erro na tentantiva de gravar os registro: ' +
E.Message);
zConnection.Rollback;
//zQuery.Refresh; não precisa desse refresh, seu ZQuery não esta
aberto
end;
end;
Em 29/10/07, Joao Morais [EMAIL PROTECTED] escreveu:
mclpaltrin wrote:
procedure TFrmCadastro.BitBtn2Click(Sender: TObject);
begin
{ bloco try/except}
try
with Zquery do
begin
Faltou o end deste begin acima.
--
Joao Morais
Zquery.Close;
sql.Clear;
sql.Add(' insert into fornec ( ');
sql.Add(' cpfcpj, rzofor, ftsfor, logcom, ');
sql.Add(' numcom, baicom, cepcom, cidcom, ');
sql.Add(' estfor, codfor, insfor, emlfor, ');
sql.Add(' telfor, faxfor, celfor )');
sql.Add(' values ( ');
sql.Add(' :vcpfcpj, :vrzofor, :vftsfor, :vlogcom, ');
sql.Add(' :vnumcom, :vbaicom, :vcepcom, :vcidcom, ');
sql.Add(' :vestfor, :vcodfor, :vinsfor, :vemlfor, ');
sql.Add(' :vtelfor, :vfaxfor, :vcelfor ); ');
Parambyname('vcpfcpj').Value := DBCPFCNPJ.Text ;
Parambyname('vrzofor').Value := DBRAZAO.Text ;
Parambyname('vftsfor').Value := DBNOME.Text ;
Parambyname('vlogcom').Value := DBENDERECO.Text ;
Parambyname('vnumcom').Value := DBNUMERO.Text ;
Parambyname('vbaicom').Value := DBBAIRRO.Text ;
Parambyname('vcepcom').Value := DBCEP.Text ;
Parambyname('vcidcom').Value := DBCIDADE.Text ;
Parambyname('vestfor').Value := DBUF.Text ;
Parambyname('vcodfor').Value := DBCODFORNEC.Text ;
Parambyname('vinsfor').Value := DBESTADUAL.Text ;
Parambyname('vemlfor').Value := DBEMAIL.Text ;
Parambyname('vtelfor').Value := DBTELEFONE.Text ;
Parambyname('vfaxfor').Value := DBFAX.Text ;
Parambyname('vcelfor').Value := DBCELULAR.Text ;
zquery.ExecSQL;
zConnection.Commit;
zQuery.Refresh; //faz um refresh na tabela para atualizar os dados
except
on Exc:Exception do // Esta dando erro nesta linha alguem pode
// corrigir para mim?? Fatal: Syntax error, ;
// expected but identifier ON found
begin
ShowMessage('Ocorreu um erro na tentantiva de gravar os registro: ' +
Exc.Message);
zConnection.Rollback;
zQuery.Refresh; //faz um refresh na tabela para atualizar os dados
end;
end; //final do bloco do try/except
end; Question
_
--
...
Eduardo Silva dos Santos
DRD Sistemas.
(27) 3218-4201
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com/
...
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Trava de segurança
Pessoal, muito cuidade com soluções de proteção prontas, fica muito mais fácil alguém burlar sabendo a tecnologia que usou. é melhor queimar o miolo e desenvolver algo próprio que + ninguém conheça. Em 29/10/07, Julio Cesar [EMAIL PROTECTED] escreveu: mto simples mas mto bom, e ainda tem um programa q gera os codigos de liberacao... e o melhor de td, eh baratim msm... rsrsrs Julio Cesar +353 87 2184139 +353 (0)91 630317 - Original Message - From: Alcistemas Informática To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Monday, October 29, 2007 5:21 PM Subject: Re: [delphi-br] Trava de segurança Uso um componente chamado TEvAppProtect do Elivaldo, www.elivaldo.com.br não é propaganda mais é bom mesmo, e o legal é que vc pode comprar só esse componente, não precisa comprar todo o pacote de componentes. - Original Message - From: Luciano Reis To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Sunday, October 28, 2007 5:44 PM Subject: [delphi-br] Trava de segurança Olá amigos, alguém pode me ajudar na criação de uma rotina para que meu sistema solicite uma senha para destravar apos 45 dias? Pois eu estou locando meu sistema, e to precisando de trava de segurança. Para evitar a pirataria. Grato, Luciano Reis [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.503 / Virus Database: 269.15.12/1098 - Release Date: 29/10/2007 09:28 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ ... [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Trava de segurança
mto simples mas mto bom, e ainda tem um programa q gera os codigos de liberacao... e o melhor de td, eh baratim msm... rsrsrs Julio Cesar +353 87 2184139 +353 (0)91 630317 - Original Message - From: Alcistemas Informática To: delphi-br@yahoogrupos.com.br Sent: Monday, October 29, 2007 5:21 PM Subject: Re: [delphi-br] Trava de segurança Uso um componente chamado TEvAppProtect do Elivaldo, www.elivaldo.com.br não é propaganda mais é bom mesmo, e o legal é que vc pode comprar só esse componente, não precisa comprar todo o pacote de componentes. - Original Message - From: Luciano Reis To: delphi-br@yahoogrupos.com.br Sent: Sunday, October 28, 2007 5:44 PM Subject: [delphi-br] Trava de segurança Olá amigos, alguém pode me ajudar na criação de uma rotina para que meu sistema solicite uma senha para destravar apos 45 dias? Pois eu estou locando meu sistema, e to precisando de trava de segurança. Para evitar a pirataria. Grato, Luciano Reis [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.503 / Virus Database: 269.15.12/1098 - Release Date: 29/10/2007 09:28 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Problema com KeepConnection
Acho que um monte de gente aqui trabalha com interbase e dbexpress... nao é o meu caso... Em 29/10/07, Sergio Eurico [EMAIL PROTECTED] escreveu: XHO Em 29/10/07, Eduardo Suruagy [EMAIL PROTECTED] escreveu: Sera q tem alguem dessa lista q possa me ajudar Em 29/10/07, Eduardo Suruagy [EMAIL PROTECTED]eduardosuruagy%40gmail.com escreveu: Sera q Em 28/10/07, Eduardo Suruagy [EMAIL PROTECTED]eduardosuruagy%40gmail.com escreveu: Tenho uma aplicação delphi7 + Firebird 1.5 + DBExpress usando o drive UIB 1.5. o problema é o seguinte, na configuração do sqlconnection eu deixei a opção KeepConnection = false, entro no sistema e deixo na tela principal onde não tem nenhuma comando sendo utilizado mas qd olho o firebird ele ainda mostra uma conexão ativa. Fiz o seguinte teste: entrei no sistema depois desconectei o banco e conectei novamente ai tentei abrir alguma tela de cadastro mas o sistema gera um erro... pelo fato do keepconnection estar false era p ele conectar novamente no banco... alguem poderia me dar uma luz Configuração do sqlconnection: ConnectionName = 'Folha' DriverName = 'UIB FireBird15' GetDriverFunc = 'getSQLDriverINTERBASE' KeepConnection = False LibraryName = ' UIBfir15.dll' LoginPrompt = False VendorLib = 'fbclient.dll' [Arquivo de configuração] DriverName=UIB FireBird15 Database=D:\Sistemas Eduardo\Folha de Pagamento\Banco\1 - Banco Teste\FOLHATESTE.FDB User_Name=0D509AD82E293F Password=3C99C9084FED35F11BA6 ServerCharSet= SQLDialect=3 BlobSize=-1 CommitRetain=False WaitOnLocks=True ErrorResourceFile= LocaleCode= Interbase TransIsolation=ReadCommited Trim Char=False [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Trava de segurança
pra que queimar o miolo qndo a solucao pode ser mto simples? sei q tem mtas solucoes melhores, mas essa eh de baixo custo, mto facil de entender e q pra ser quebrada o cara tem q queimar o miolo mto mais q possa valer a pena... a nao ser q seja um sistema corporativo ou de valor mto alto eu nao acho q seja necessario perder tempo... Julio Cesar +353 87 2184139 +353 (0)91 630317 - Original Message - From: Eduardo Silva dos Santos To: delphi-br@yahoogrupos.com.br Sent: Monday, October 29, 2007 7:42 PM Subject: Re: [delphi-br] Trava de segurança Pessoal, muito cuidade com soluções de proteção prontas, fica muito mais fácil alguém burlar sabendo a tecnologia que usou. é melhor queimar o miolo e desenvolver algo próprio que + ninguém conheça. Em 29/10/07, Julio Cesar [EMAIL PROTECTED] escreveu: mto simples mas mto bom, e ainda tem um programa q gera os codigos de liberacao... e o melhor de td, eh baratim msm... rsrsrs Julio Cesar +353 87 2184139 +353 (0)91 630317 - Original Message - From: Alcistemas Informática To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Monday, October 29, 2007 5:21 PM Subject: Re: [delphi-br] Trava de segurança Uso um componente chamado TEvAppProtect do Elivaldo, www.elivaldo.com.br não é propaganda mais é bom mesmo, e o legal é que vc pode comprar só esse componente, não precisa comprar todo o pacote de componentes. - Original Message - From: Luciano Reis To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Sunday, October 28, 2007 5:44 PM Subject: [delphi-br] Trava de segurança Olá amigos, alguém pode me ajudar na criação de uma rotina para que meu sistema solicite uma senha para destravar apos 45 dias? Pois eu estou locando meu sistema, e to precisando de trava de segurança. Para evitar a pirataria. Grato, Luciano Reis [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.503 / Virus Database: 269.15.12/1098 - Release Date: 29/10/2007 09:28 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ ... [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Conexão em rede
Mostra a sua string de conexão com o banco de dados. Use sempre o endereço ip + diretorio + nome do banco. Nunca acesse via compartilhamento de pasta. Vinicius Barreira Delphi 7 / Firebird 2.0 / DbExpress São Bernardo do Campo - SP Software Para Hotéis / Pousadas / Moteis dhsb escreveu: Pessoal estou com um pequeno problema e gostaria de ver se alguem ja passou por algo parecido. Instalei um sistema em duas maquinas na maquina 1 o BD e executavel, na maquina2 apenas o executavel instalei o DB2 nas duas maquinas e cataloguei o DB2 na maquina2 (apontando para a maquina1). Beleza o problema e que ao logar no sistema apenas uma pessoa esta conseguindo por vez. Exemplo se estou logado na maquina 1 nao estou conseguindo logar na 2 e vice versa. Gostaria de saber se alguem ja passou por algo. Uso o BD DB2 Delphi 7, com os Componentes SQLConnection. Att
[delphi-br] Re: Problema com KeepConnection
Sera q Em 28/10/07, Eduardo Suruagy [EMAIL PROTECTED] escreveu: Tenho uma aplicação delphi7 + Firebird 1.5 + DBExpress usando o drive UIB 1.5. o problema é o seguinte, na configuração do sqlconnection eu deixei a opção KeepConnection = false, entro no sistema e deixo na tela principal onde não tem nenhuma comando sendo utilizado mas qd olho o firebird ele ainda mostra uma conexão ativa. Fiz o seguinte teste: entrei no sistema depois desconectei o banco e conectei novamente ai tentei abrir alguma tela de cadastro mas o sistema gera um erro... pelo fato do keepconnection estar false era p ele conectar novamente no banco... alguem poderia me dar uma luz Configuração do sqlconnection: ConnectionName = 'Folha' DriverName = 'UIB FireBird15' GetDriverFunc = 'getSQLDriverINTERBASE' KeepConnection = False LibraryName = ' UIBfir15.dll' LoginPrompt = False VendorLib = 'fbclient.dll' [Arquivo de configuração] DriverName=UIB FireBird15 Database=D:\Sistemas Eduardo\Folha de Pagamento\Banco\1 - Banco Teste\FOLHATESTE.FDB User_Name=0D509AD82E293F Password=3C99C9084FED35F11BA6 ServerCharSet= SQLDialect=3 BlobSize=-1 CommitRetain=False WaitOnLocks=True ErrorResourceFile= LocaleCode= Interbase TransIsolation=ReadCommited Trim Char=False [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Trava de segurança
Nada contra essa ou qualquer outra solução pronta.. na verdade não to criticando a solução, seja ela barata ou cara. o problema é que as chances dela ser quebrada é maior do que se vc criasse uma. mais é aquele velho ditado.. se te atende. então... mete bronca.. heheh mas depois não chora.. Em 29/10/07, Julio Cesar [EMAIL PROTECTED] escreveu: pra que queimar o miolo qndo a solucao pode ser mto simples? sei q tem mtas solucoes melhores, mas essa eh de baixo custo, mto facil de entender e q pra ser quebrada o cara tem q queimar o miolo mto mais q possa valer a pena... a nao ser q seja um sistema corporativo ou de valor mto alto eu nao acho q seja necessario perder tempo... Julio Cesar +353 87 2184139 +353 (0)91 630317 - Original Message - From: Eduardo Silva dos Santos To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Monday, October 29, 2007 7:42 PM Subject: Re: [delphi-br] Trava de segurança Pessoal, muito cuidade com soluções de proteção prontas, fica muito mais fácil alguém burlar sabendo a tecnologia que usou. é melhor queimar o miolo e desenvolver algo próprio que + ninguém conheça. Em 29/10/07, Julio Cesar [EMAIL PROTECTED]julio_gyn%40yahoo.com.br escreveu: mto simples mas mto bom, e ainda tem um programa q gera os codigos de liberacao... e o melhor de td, eh baratim msm... rsrsrs Julio Cesar +353 87 2184139 +353 (0)91 630317 - Original Message - From: Alcistemas Informática To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br%40yahoogrupos.com.br Sent: Monday, October 29, 2007 5:21 PM Subject: Re: [delphi-br] Trava de segurança Uso um componente chamado TEvAppProtect do Elivaldo, www.elivaldo.com.br não é propaganda mais é bom mesmo, e o legal é que vc pode comprar só esse componente, não precisa comprar todo o pacote de componentes. - Original Message - From: Luciano Reis To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br%40yahoogrupos.com.br Sent: Sunday, October 28, 2007 5:44 PM Subject: [delphi-br] Trava de segurança Olá amigos, alguém pode me ajudar na criação de uma rotina para que meu sistema solicite uma senha para destravar apos 45 dias? Pois eu estou locando meu sistema, e to precisando de trava de segurança. Para evitar a pirataria. Grato, Luciano Reis [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.503 / Virus Database: 269.15.12/1098 - Release Date: 29/10/2007 09:28 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] eduardo.drd%40gmail.com Site: http://www.drdsistemas.com/ ... [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ ... [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Urgente - Component e para Comunicação Remota Free com fontes
Companheiro já tentou usar o LogMeIn (www.logmein.com) é free e funciona melhor impossivel, um verdadeiro pcAnywhere via browser na versão paga, fora que fura tudo que bloqueio de acesso, pois trafega pela porta 80. Jorge Ericsson escreveu: Olá pessoal, Gostaria de implementar em minha aplicação um controle de acesso remoto, para dár suporte a distância aos meus clientes. Alguém poderia dar-me alguma informação a respeito de algum componente ou mesmo como utilizar o Indy ou JEDI (VCL) para esta finalizade ? Não posso e não quero usar VNC, UltraVNC, RealVNC e etc, pois tenho alguns clientes com certas restrições de uso desses programas e que não possuem permissão para tal procedimento. Andei pesquisa na rede e encontrei o DelphiVNC e VNCServer e VNCClient para delphi, mas ao compilar essas aplicações são gerados vários problemas com a versão nova do Indy(10 e 9) que possuo. Alguém poderia daar-me a direção das pedras ? Value -- Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br http://www.jericsson.com.br 61 9227.4785 / 3965.2992 / 3039.1768 Brasília - DF [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Urgente - Componente para Comunicação Remota Free com fontes
Minha outra sugestão: http://www.radix.net/~bziegler/Delphi/ (Procure pelo projeto Remote Control) Sds. To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Mon, 29 Oct 2007 20:03:13 -0300Subject: Re: [delphi-br] Urgente - Componente para Comunicação Remota Free com fontes Companheiro já tentou usar o LogMeIn (www.logmein.com) é free e funciona melhor impossivel, um verdadeiro pcAnywhere via browser na versão paga, fora que fura tudo que bloqueio de acesso, pois trafega pela porta 80.Jorge Ericsson escreveu: Olá pessoal, Gostaria de implementar em minha aplicação um controle de acesso remoto, para dár suporte a distância aos meus clientes. Alguém poderia dar-me alguma informação a respeito de algum componente ou mesmo como utilizar o Indy ou JEDI (VCL) para esta finalizade ? Não posso e não quero usar VNC, UltraVNC, RealVNC e etc, pois tenho alguns clientes com certas restrições de uso desses programas e que não possuem permissão para tal procedimento. Andei pesquisa na rede e encontrei o DelphiVNC e VNCServer e VNCClient para delphi, mas ao compilar essas aplicações são gerados vários problemas com a versão nova do Indy(10 e 9) que possuo. Alguém poderia daar-me a direção das pedras ? Value -- Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br http://www.jericsson.com.br 61 9227.4785 / 3965.2992 / 3039.1768 Brasília - DF [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] _ Veja mapas e encontre as melhores rotas para fugir do trânsito com o Live Search Maps! http://www.livemaps.com.br/index.aspx?tr=true [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Conexão em rede
Prezados, Tenho uma dúvida em relação à configuração do Firebird em Windows Vista. Pelo que entendi, mesmo numa instalação stand alone, o sistema deve ser configurado para acessar o banco via IP ou instalar o Firebird como aplicação (o que não é recomedável para instalações em atacado, pois até que leigo entenda como fazer isso, já perdeu-se o cliente/usuário). Dúvida: numa máquina onde o protocolo tcp/ip não está configurado a aplicação não funcionaria até que se faça essa configuração? Novamente é preciso que o potencial usuário do meu sistema tenha que solicitar auxílio técnico? Na verdade minha dúvida está relacionada em como fazer uma instalação e disponibilizá-la para que usuários (leigos) possam fazer o download, instalar e acessar normalmente o programa sem que para isso precisem de suporte especializado. Obrigado. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] RS- Vaga para desenvolvedor Delphi
Holden Consultoria e RH seleciona Desenvolvedores Delphi Requisitos Experiencia em programação Delphi 6/7 SQL, Residir na região metropolitana de Porto Alegre ou Vale do Sinos Remuneração a combinar. Interessados q atendam aos requisitos acima enviar curriculo para [EMAIL PROTECTED] com pretensão salaril Att RH HOLDEN TI
RE: [delphi-br] Urgente - Componente para Comunicação Remota Free com fontes
Mestre, vc deve ter alguma restrição de acesso a esse link, pq tanto na faculdade como em casa eu consigo acessar normalmente este link. Sds. To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Mon, 29 Oct 2007 22:59:08 -0200Subject: Re: [delphi-br] Urgente - Componente para Comunicação Remota Free com fontes Este link não existe mais, estão todos quebrados qdo se refere ao BenZieglers.Mas vou continua meu garimpo... heheheEm 29/10/07, Rubem Nascimento da Rocha [EMAIL PROTECTED] escreveu: Minha outra sugestão: http://www.radix.net/~bziegler/Delphi/http://www.radix.net/%7Ebziegler/Delphi/ (Procure pelo projeto Remote Control) Sds. To: [EMAIL PROTECTED] delphi-br%40yahoogrupos.com.brFrom: [EMAIL PROTECTED] o2tecnologia%40ajato.com.brDate: Mon, 29 Oct 2007 20:03:13 -0300Subject: Re: [delphi-br] Urgente - Componente para Comunicação Remota Free com fontes Companheiro já tentou usar o LogMeIn (www.logmein.com) é free e funciona melhor impossivel, um verdadeiro pcAnywhere via browser na versão paga, fora que fura tudo que bloqueio de acesso, pois trafega pela porta 80.JorgeEricsson escreveu: Olá pessoal, Gostaria de implementar em minha aplicação um controle de acesso remoto, para dár suporte a distância aos meus clientes. Alguém poderia dar-me alguma informação a respeito de algum componente ou mesmo como utilizar o Indy ou JEDI (VCL) para esta finalizade ? Não posso e não quero usar VNC, UltraVNC, RealVNC e etc, pois tenho alguns clientes com certas restrições de uso desses programas e que não possuem permissão para tal procedimento. Andei pesquisa na rede e encontrei o DelphiVNC e VNCServer e VNCClient para delphi, mas ao compilar essas aplicações são gerados vários problemas com a versão nova do Indy(10 e 9) que possuo. Alguém poderia daar-me a direção das pedras ? Value -- Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br http://www.jericsson.com.br 61 9227.4785 / 3965.2992 / 3039.1768 Brasília - DF [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] __ Veja mapas e encontre as melhores rotas para fugir do trânsito com o Live Search Maps! http://www.livemaps.com.br/index.aspx?tr=true [As partes desta mensagem que não continham texto foram removidas] -- Jorge Ericsson S. PinheiroAnalista/Projetista de SistemasEricsson Sistemas e Soluçõeshttp://www.jericsson.com.br61 9227.4785 / 3965.2992 / 3039.1768Brasília - DF[As partes desta mensagem que não continham texto foram removidas] _ Veja mapas e encontre as melhores rotas para fugir do trânsito com o Live Search Maps! http://www.livemaps.com.br/index.aspx?tr=true [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Urgente - Componente para Comunicação Remota Free com fontes
Pode ser, mais todos as buscas que fiz em outros sites que apontão para este link não funcionou e tbém entrei no própio site do Ben e nada, apenas este link dá problema. Provavelmente é um link quebrado ou removeram os arquivos. Se vc tiver o remotecontrol.zip ou consegui baixar vc me envia em PVT ? Preciso estudar o código dele. Obrigado. Em 30/10/07, Rubem Nascimento da Rocha [EMAIL PROTECTED] escreveu: Mestre, vc deve ter alguma restrição de acesso a esse link, pq tanto na faculdade como em casa eu consigo acessar normalmente este link. Sds. To: [EMAIL PROTECTED] delphi-br%40yahoogrupos.com.brFrom: [EMAIL PROTECTED] jericssonsup%40gmail.comDate: Mon, 29 Oct 2007 22:59:08 -0200Subject: Re: [delphi-br] Urgente - Componente para Comunicação Remota Free com fontes Este link não existe mais, estão todos quebrados qdo se refere ao BenZieglers.Mas vou continua meu garimpo... heheheEm 29/10/07, Rubem Nascimento da Rocha [EMAIL PROTECTED]djpardalrocha%40hotmail.com escreveu: Minha outra sugestão: http://www.radix.net/~bziegler/Delphi/http://www.radix.net/%7Ebziegler/Delphi/ http://www.radix.net/%7Ebziegler/Delphi/ (Procure pelo projeto Remote Control) Sds. To: [EMAIL PROTECTED]delphi-br%40yahoogrupos.com.brFromdelphi-br%40yahoogrupos.com.brFrom: [EMAIL PROTECTED] o2tecnologia%40ajato.com.brDateo2tecnologia%40ajato.com.brDate: Mon, 29 Oct 2007 20:03:13 -0300Subject: Re: [delphi-br] Urgente - Componente para Comunicação Remota Free com fontes Companheiro já tentou usar o LogMeIn (www.logmein.com) é free e funciona melhor impossivel, um verdadeiro pcAnywhere via browser na versão paga, fora que fura tudo que bloqueio de acesso, pois trafega pela porta 80.JorgeEricsson escreveu: Olá pessoal, Gostaria de implementar em minha aplicação um controle de acesso remoto, para dár suporte a distância aos meus clientes. Alguém poderia dar-me alguma informação a respeito de algum componente ou mesmo como utilizar o Indy ou JEDI (VCL) para esta finalizade ? Não posso e não quero usar VNC, UltraVNC, RealVNC e etc, pois tenho alguns clientes com certas restrições de uso desses programas e que não possuem permissão para tal procedimento. Andei pesquisa na rede e encontrei o DelphiVNC e VNCServer e VNCClient para delphi, mas ao compilar essas aplicações são gerados vários problemas com a versão nova do Indy(10 e 9) que possuo. Alguém poderia daar-me a direção das pedras ? Value -- Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br http://www.jericsson.com.br 61 9227.4785 / 3965.2992 / 3039.1768 Brasília - DF [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] __ Veja mapas e encontre as melhores rotas para fugir do trânsito com o Live Search Maps! http://www.livemaps.com.br/index.aspx?tr=true [As partes desta mensagem que não continham texto foram removidas] -- Jorge Ericsson S. PinheiroAnalista/Projetista de SistemasEricsson Sistemas e Soluçõ eshttp://www.jericsson.com.br61 9227.4785 / 3965.2992 / 3039.1768Brasília- DF[As partes desta mensagem que não continham texto foram removidas] __ Veja mapas e encontre as melhores rotas para fugir do trânsito com o Live Search Maps! http://www.livemaps.com.br/index.aspx?tr=true [As partes desta mensagem que não continham texto foram removidas] -- Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3965.2992 / 3039.1768 Brasília - DF [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Como tirar componente da memória ?
Como humilde iniciante gostaria de ouvir a sugestão dos mais experientes: Fiz um programa para gerar a movimentação de estoque ref. ao ano todo, usando Delphi 7 com SQLServer conexão com ADO -Neste programa eu abro Querys, CDSs e Datasets cf manda o figurino (Query com Open, Dataset.Active.True, etc...) -faço os selects e inserts normalmente -no final de cada processo fecho o que abri (Query com Close, CDS com FreeAndNil, etc...) PORÉM REPAREI O SEGUINTE após rodar o programa com o Gerenciador De tarefas do XP aberto e monitorando a memória: -Quando executo uma Query ele soma, por exemplo, 50 kb na memória consumida. -Quando fecho a Query (Close) ele retira 30 kb, e não 50 kb da memória -No DataSet é pior ainda. Se somou 90 kb, na hora de tirar da memória (FreeAndNil) ele retira só 40 kb. Portanto como o programa não retira tudo o que adiciona obviamente o consumo de memória vai eternamente crescer, até o ponto da maravilhosa frase Memória Insulficiente Portanto -ONDE ESTOU ERRANDO ? -ALGUÉM PODERIA ME RELEMBRAR O COMANDO QUE ABRE E FECHA QUERY, CDS E DATASET ? -EXISTEM OUTROS COMANDOS PARA TIRAR DE VEZ O QUE FOI PRA MEMÓRIA ? -SERÁ QUE PRECISO IR NO OCULISTA PRIMEIRO ? Espero que vocês tenham entendido o problema Desde já muitíssimo obrigado pela atenção Junior [As partes desta mensagem que não continham texto foram removidas]
