Re: [delphi-br] Ajuda Janela Alerta MSN
Jefferson se possivel tambem gostaria Abraço Obrigado - Original Message - From: Jefferson - Fórum To: delphi-br@yahoogrupos.com.br Sent: Saturday, May 12, 2007 6:25 AM Subject: Re: [delphi-br] Ajuda Janela Alerta MSN Eu tenho o componente em questão. Se quiser, te mando em pvt. Abraço! Jefferson - Original Message - From: PC To: delphi-br@yahoogrupos.com.br Sent: Friday, May 11, 2007 9:53 AM Subject: Re: [delphi-br] Ajuda Janela Alerta MSN Caro Adriano, Quando enviei esta mensagem nao tinha lhe mandado email ainda. Mas agradeco a atencao. Assim que conseguir resovler, posto a resposta aqui para todos. Andre, Vou procurar esse componente no nosso amigo google. Obrigado!! On 5/11/07, André - Gmail [EMAIL PROTECTED] wrote: Eu uso um componente chamado msnpopup Procure no Google que vc encontra, é bem fácil de usar. - Original Message - From: Adriano Santos [EMAIL PROTECTED] artes%40doiscliques.com To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Friday, May 11, 2007 9:36 AM Subject: Re: [delphi-br] Ajuda Janela Alerta MSN Este artigo é meu Paulo e já respondi seu e-mail, qq dúvida entre em contato novamente. Adriano Santos Desenvolvedor Delphi desde 1998. Professor e programador PHP. Bacharel em Comunicação Social pela Universidade Cruzeiro do Sul, SP. Colunista e Comissão Editorial da revista ClubeDelphi. Blog: http://www.delphitodelphi.blogspot.com paulolaux respondeu: Galera, fiz a implementacao do codigo que esta nesse artigo no Delphi 7: http://www.codigofonte.net/dicas-197/simulando-os-alertas-do-msn-no-delphi http://www.codigofonte.net/dicas-197/simulando-os-alertas-do-msn-no-delphi Blz, funcionou que é uma blz! Mas estou com um problema: Quando clico em cima da tela de alertas nada acontece! Ele nao pega o codigo que esta no envento OnClick do form, é como se o form estivesse bloqueado Ja tentei inserir botao e colocar evento ao clicar, mas nada acontece. Gostaria que fosse com o alerta de novos e-mails do MSN que ao clicar te leva para a sua caixa de entrada, por exemplo. Alguma sugestao? Obrigado -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.467 / Virus Database: 269.6.8/797 - Release Date: 10/5/2007 17:10 -- -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- Paulo Laux Sistemas de Informação (UFSC) www.inf.ufsc.br/~laux [As partes desta mensagem que não continham texto foram removidas] [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] Violação de Memória e m Array
Acho que vc deve estudar muito. Segue abaixo um exemplo de um vetor dinâmico e um de tamanho fixo. var i : Integer; A1 : Array of String; A2 : Array [0..10] of String; begin Memo1.Clear; SetLength(A1, 20); // defino o tamanho do vetor for i := 0 to Length(A1) - 1 do A1[i] := 'Vetor A1 Linha ' + IntToStr(i); for i := 0 to 10 do Memo1.Lines.Add(A1[i]); for i := 0 to 10 do A2[i] := 'Vetor A2 Linha ' + IntToStr(i); for i := 0 to 10 do Memo1.Lines.Add(A2[i]); end; Eduardo Elias Magalhães da Paixão Junior escreveu: Amigos, Preciso perturbá-los mais uma vez, pois não consigo encontrar solução. Em uma unit, tenho o seguinte array declarado: Private logsCapturados: array of log -- Já tentei estático tb. Logo depois, em uma procedure, ele é criado: logsCapturados:=log.create; Aqui ocorre o erro de violação de memória, aquele mesmo que ocorre quando o objeto não existe. O fato mais curioso é que se eu declarar o array DENTRO da procedure, ele funciona normalmente, com o mesmo código. Quando eu declaro como parte da classe, acontece isso. Alguém sabe??? Elias Magalhães da Paixão Junior ___ Análise de Sistemas e Banco de Dados Consultoria e desenvolvimento de programas, sistemas e websites Tel.: (0XX21) 8262-7955 [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Violação de Memória em Array
Concordo plenamente que eu tenho que estudar muito e tb concordo que que
outras pessoas no mundo também, bem como outras precisam aprender certas
coisas como humildade, educação e decência.
Eduardo, agradeço sua boa vontade mas lamento lhe informar que sei
como se utiliza um array mas que vai ser bom pois essas dicas podem
servir para alguma outra pessoa, que assim como eu tb tem de estudar
muito.
Para que entendam melhor o que eu escrevi, vou colocar a procedure
inteira.
A declaração:
private
logsCapturados:array of icmpScan_cl_log_usr;
A procedure:
procedure icmpScan_cl_log_adm.procuraLogs;
var
busca: TSearchRec;
logList: TStrings;
Ret,i: Integer;
host: string;
begin
Ret := FindFirst('append\*.ims', faAnyFile, busca);
logList:=TStringlist.Create;
i:=0;
try
while Ret = 0 do
begin
logList.Add(busca.Name);
host:=copy(logList.ValueFromIndex[i],pos('_',logList.ValueFromIndex[i])+
1,length(logList.ValueFromIndex[i])-3-(pos('_',logList.ValueFromIndex[i]
)+1));
logsCapturados[i]:=icmpScan_cl_log_usr.create(host); -- O
erro acontece aqui. Como se a variável não tivesse sido declarada.
Ret := FindNext(busca);
i:=i+1;
end;
finally
begin
FindClose(busca);
end;
end;
end;
E voltando a dizer, que se eu declarar esse array como uma variável da
procedure, ao invés da unit, funciona.
Elias Magalhães da Paixão Junior
___
Análise de Sistemas e Banco de Dados
Consultoria e desenvolvimento de programas, sistemas e websites
Tel.: (0XX21) 8262-7955
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em nome de Eduardo Castro Alves
Enviada em: segunda-feira, 14 de maio de 2007 07:58
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Violação de Memória em Array
Acho que vc deve estudar muito. Segue abaixo um exemplo de um vetor
dinâmico e um de tamanho fixo.
var
i : Integer;
A1 : Array of String;
A2 : Array [0..10] of String;
begin
Memo1.Clear;
SetLength(A1, 20); // defino o tamanho do vetor
for i := 0 to Length(A1) - 1 do
A1[i] := 'Vetor A1 Linha ' + IntToStr(i);
for i := 0 to 10 do
Memo1.Lines.Add(A1[i]);
for i := 0 to 10 do
A2[i] := 'Vetor A2 Linha ' + IntToStr(i);
for i := 0 to 10 do
Memo1.Lines.Add(A2[i]);
end;
Eduardo
Elias Magalhães da Paixão Junior escreveu:
Amigos,
Preciso perturbá-los mais uma vez, pois não consigo encontrar solução.
Em uma unit, tenho o seguinte array declarado:
Private
logsCapturados: array of log -- Já tentei estático tb.
Logo depois, em uma procedure, ele é criado:
logsCapturados:=log.create;
Aqui ocorre o erro de violação de memória, aquele mesmo que ocorre
quando o objeto não existe. O fato mais curioso é que se eu declarar o
array DENTRO da procedure, ele funciona normalmente, com o mesmo
código.
Quando eu declaro como parte da classe, acontece isso. Alguém sabe???
Elias Magalhães da Paixão Junior
___
Análise de Sistemas e Banco de Dados
Consultoria e desenvolvimento de programas, sistemas e websites
Tel.: (0XX21) 8262-7955
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Delphi 7 e Windows Vista
PessoALL, Estou desenvolvendo aplicações em Delphi 7 tendo como Sistema operacional base o Windows XP Estou agora com um PC com o Windows Vista. Ainda não instalei o Delphi 7. Alguém já teve esta experiência? Existe alguma incompatibilidade? Outra questão: Executáveis gerados no Vista será que vão rodar normalmente sobre Windows XP e 2000? Se alguém tiver tido alguma vivência neste sentido, agradeço o compartilhamento! Dimitri [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] EXPLQUEM-ME ESSA QUESTÃO
Todo mundo tem dificuldades para começar a programar, mas nada que quebrar a cabeça um pouquinho não resolva. []s Walter Alves Chagas Junior Projeto e desenvolvimento de sistemas Telemont Engenharia de telecomunicações S/A Belo Horizonte - MG - Brasil [EMAIL PROTECTED] Fone: (31) 3389-8217 Fax: (31) 3389-8215 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Daniel Bastos Enviada em: sexta-feira, 11 de maio de 2007 22:37 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] EXPLQUEM-ME ESSA QUESTÃO Pow gente ... não vamos zoar o cara. Todo o mundo tem dificuldades pra começar a programar. Esplica ai qual a dificuldade que vc encontrou e o que vc não entendeu, pq assim ta muito básico Em 11/05/07, Walter Alves Chagas Junior [EMAIL PROTECTED] escreveu: Rubem Rubem, veja o lado positivo da coisa Vai ser menos um no mercado de trabalho, futuramente, pra competir com você. []s Walter Alves Chagas Junior Projeto e desenvolvimento de sistemas Telemont Engenharia de telecomunicações S/A Belo Horizonte - MG - Brasil [EMAIL PROTECTED] wchagas%40telemont.com.br Fone: (31) 3389-8217 Fax: (31) 3389-8215 -Mensagem original- De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br]Em nome de Rubem Nascimento da Rocha Enviada em: sexta-feira, 11 de maio de 2007 00:40 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: RE: [delphi-br] EXPLQUEM-ME ESSA QUESTÃO Prioridade: Alta Pô, meu! Trabalho de faculdade/curso técnico? Fala sério! Quebra a cabeça que vc consegue fazer! Sds. To: [EMAIL PROTECTED] delphi-br%40yahoogrupos.com.brFrom: [EMAIL PROTECTED] helopayne%40yahoo.com.brDate: Wed, 9 May 2007 19:58:17 +Subject: [delphi-br] EXPLQUEM-ME ESSA QUESTÃO Elaborar um programa que efetue a leitura de mensagens e vá gravando em um arquivo do tipo texto as mensagens lidas, uma após a outra.Depois, elaborar um programa que efetue a leitura das mensagens gravadas com o exercício anterior.Por favor não consegui resolver esta questão... Me ajudem. __ Obtenha o novo Windows Live Messenger! http://get.live.com/messenger/overview [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos
RES: [delphi-br] Erro: Access violation at address 0723304E in Module 'BORdbk70.dll'. Read of address 00000010.
Esta dll é do debugador. Se voce já formatou a maquina e reistalou o Delphi, pode ser que o CD de instalação dele tá com pau e corrompeu esta dll. []s Walter Alves Chagas Junior Projeto e desenvolvimento de sistemas Telemont Engenharia de telecomunicações S/A Belo Horizonte - MG - Brasil [EMAIL PROTECTED] Fone: (31) 3389-8217 Fax: (31) 3389-8215 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Fabrício Cândido Enviada em: sábado, 12 de maio de 2007 22:16 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Erro: Access violation at address 0723304E in Module 'BORdbk70.dll'. Read of address 0010. Ai Pessoal quando compilo a Tela na hora de fechar da o seguinte erro (Erro: Access violation at address 0723304E in Module 'BORdbk70.dll'. Read of address 0010.) se alguem puder me ajudar agradeço. Ps(Ja formatei o pc e instalei o delphi di novo, ja registrei a Dll e nada o erro continua...) -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos
Re: [delphi-br] Delphi 7 e Windows Vista
Estou usando WinVista e BDS 2006 numa boa, não há problema nenhum! (pelo menos por enquanto) Em 14/05/07, Dimitri Campana [EMAIL PROTECTED] escreveu: PessoALL, Estou desenvolvendo aplicações em Delphi 7 tendo como Sistema operacional base o Windows XP Estou agora com um PC com o Windows Vista. Ainda não instalei o Delphi 7. Alguém já teve esta experiência? Existe alguma incompatibilidade? Outra questão: Executáveis gerados no Vista será que vão rodar normalmente sobre Windows XP e 2000? Se alguém tiver tido alguma vivência neste sentido, agradeço o compartilhamento! Dimitri [As partes desta mensagem que não continham texto foram removidas] -- Atenciosamente, Bruno Sanson Cadena Sistemas 19 3468-3368 / 19 8145-2024 Skype: brunosanson [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] EXPLQUEM-ME ESSA QUESTÃO
é verdade Walter, e hoje em dia tem a internet ai pra facilitar muito, uma grande quantidade de material e ainda os grupos que ajudam pra caramba. basta querer que o cara aprende. Em 14/05/07, Walter Alves Chagas Junior [EMAIL PROTECTED] escreveu: Todo mundo tem dificuldades para começar a programar, mas nada que quebrar a cabeça um pouquinho não resolva. []s Walter Alves Chagas Junior Projeto e desenvolvimento de sistemas Telemont Engenharia de telecomunicações S/A Belo Horizonte - MG - Brasil [EMAIL PROTECTED] wchagas%40telemont.com.br Fone: (31) 3389-8217 Fax: (31) 3389-8215 -Mensagem original- De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br]Em nome de Daniel Bastos Enviada em: sexta-feira, 11 de maio de 2007 22:37 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] EXPLQUEM-ME ESSA QUESTÃO Pow gente ... não vamos zoar o cara. Todo o mundo tem dificuldades pra começar a programar. Esplica ai qual a dificuldade que vc encontrou e o que vc não entendeu, pq assim ta muito básico Em 11/05/07, Walter Alves Chagas Junior [EMAIL PROTECTED]wchagas%40telemont.com.br escreveu: Rubem Rubem, veja o lado positivo da coisa Vai ser menos um no mercado de trabalho, futuramente, pra competir com você. []s Walter Alves Chagas Junior Projeto e desenvolvimento de sistemas Telemont Engenharia de telecomunicações S/A Belo Horizonte - MG - Brasil [EMAIL PROTECTED] wchagas%40telemont.com.brwchagas%40telemont.com.br Fone: (31) 3389-8217 Fax: (31) 3389-8215 -Mensagem original- De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br%40yahoog rupos.com.br [mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br%40yahoog rupos.com.br]Em nome de Rubem Nascimento da Rocha Enviada em: sexta-feira, 11 de maio de 2007 00:40 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br%40yahoog rupos.com.br Assunto: RE: [delphi-br] EXPLQUEM-ME ESSA QUESTÃO Prioridade: Alta Pô, meu! Trabalho de faculdade/curso técnico? Fala sério! Quebra a cabeça que vc consegue fazer! Sds. To: [EMAIL PROTECTED]delphi-br%40yahoogrupos.com.brFromdelphi-br%40yahoog rupos.com.brFrom: [EMAIL PROTECTED] helopayne%40yahoo.com.brDatehelopayne%40yahoo.com.brDate: Wed, 9 May 2007 19:58:17 +Subject: [delphi-br] EXPLQUEM-ME ESSA QUESTÃO Elaborar um programa que efetue a leitura de mensagens e vá gravando em um arquivo do tipo texto as mensagens lidas, uma após a outra.Depois, elaborar um programa que efetue a leitura das mensagens gravadas com o exercício anterior.Por favor não consegui resolver esta questão... Me ajudem. __ Obtenha o novo Windows Live Messenger! http://get.live.com/messenger/overview [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- 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: RES: [delphi-br] Violação de Memó ria em Array
Bem, então você terá que estudar Delphi e como se expressar melhor.
Você colocou isso:
logsCapturados:=log.create;
Então vamos ver se vc entende desenhando.
Se logsCapturados é um vetor, para você criar você deve passar o indice
de qual você está criando.
logsCapturados[INDICE] := LOG.CREATE;
Só estou surpreso por que se você conhece tanto assim de vetores não
saber isso.
Quanto ao passar um vetor como parametro para um metodo é o mesmo de
qualquer outro objeto ou variável.
Referente a ser humilde ou não acho que você não pode me julgar. Disse e
repito VOCÊ TEM QUE ESTUDAR MUITO MAIS isso não significa que eu não sou
humilde e sim que você precisa ESTUDAR E PRESTAR MAIS ATENÇÃO NO QUE
VOCÊ ESTÁ FAZENDO.
Eduardo
Ps: Ja foi o tempo que eu ficava perdendo o meu tempo com estas
discussões, por tanto não responderei nenhum outro email sobre este assunto.
Elias Magalhães da Paixão Junior escreveu:
Concordo plenamente que eu tenho que estudar muito e tb concordo que que
outras pessoas no mundo também, bem como outras precisam aprender certas
coisas como humildade, educação e decência.
Eduardo, agradeço sua “boa vontade” mas lamento lhe informar que sei
como se utiliza um array mas que vai ser bom pois essas dicas podem
servir para alguma outra pessoa, que assim como eu tb tem de estudar
muito.
Para que entendam melhor o que eu escrevi, vou colocar a procedure
inteira.
A declaração:
private
logsCapturados:array of icmpScan_cl_log_usr;
A procedure:
procedure icmpScan_cl_log_adm.procuraLogs;
var
busca: TSearchRec;
logList: TStrings;
Ret,i: Integer;
host: string;
begin
Ret := FindFirst('append\*.ims', faAnyFile, busca);
logList:=TStringlist.Create;
i:=0;
try
while Ret = 0 do
begin
logList.Add(busca.Name);
host:=copy(logList.ValueFromIndex[i],pos('_',logList.ValueFromIndex[i])+
1,length(logList.ValueFromIndex[i])-3-(pos('_',logList.ValueFromIndex[i]
)+1));
logsCapturados[i]:=icmpScan_cl_log_usr.create(host); -- O
erro acontece aqui. Como se a variável não tivesse sido declarada.
Ret := FindNext(busca);
i:=i+1;
end;
finally
begin
FindClose(busca);
end;
end;
end;
E voltando a dizer, que se eu declarar esse array como uma variável da
procedure, ao invés da unit, funciona.
Elias Magalhães da Paixão Junior
___
Análise de Sistemas e Banco de Dados
Consultoria e desenvolvimento de programas, sistemas e websites
Tel.: (0XX21) 8262-7955
-Mensagem original-
De: delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
[mailto:delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br]
Em nome de Eduardo Castro Alves
Enviada em: segunda-feira, 14 de maio de 2007 07:58
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Assunto: Re: [delphi-br] Violação de Memória em Array
Acho que vc deve estudar muito. Segue abaixo um exemplo de um vetor
dinâmico e um de tamanho fixo.
var
i : Integer;
A1 : Array of String;
A2 : Array [0..10] of String;
begin
Memo1.Clear;
SetLength(A1, 20); // defino o tamanho do vetor
for i := 0 to Length(A1) - 1 do
A1[i] := 'Vetor A1 Linha ' + IntToStr(i);
for i := 0 to 10 do
Memo1.Lines.Add(A1[i]);
for i := 0 to 10 do
A2[i] := 'Vetor A2 Linha ' + IntToStr(i);
for i := 0 to 10 do
Memo1.Lines.Add(A2[i]);
end;
Eduardo
Elias Magalhães da Paixão Junior escreveu:
Amigos,
Preciso perturbá-los mais uma vez, pois não consigo encontrar solução.
Em uma unit, tenho o seguinte array declarado:
Private
logsCapturados: array of log -- Já tentei estático tb.
Logo depois, em uma procedure, ele é criado:
logsCapturados:=log.create;
Aqui ocorre o erro de violação de memória, aquele mesmo que ocorre
quando o objeto não existe. O fato mais curioso é que se eu declarar o
array DENTRO da procedure, ele funciona normalmente, com o mesmo
código.
Quando eu declaro como parte da classe, acontece isso. Alguém sabe???
Elias Magalhães da Paixão Junior
___
Análise de Sistemas e Banco de Dados
Consultoria e desenvolvimento de programas, sistemas e websites
Tel.: (0XX21) 8262-7955
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] Uso 100% CPU
Galera,
Trabalho numa empresa e temos aqui uma aplicacao que foi desenvolvida em
Delphi 7 utilizando um servidor FreeBSD com Firebird para armazenamento de
dados.
Venho observando que quando a mesma é instalada em varias maquinas
(clientes) depois de um tempo o grid (DBGrid) principal some e a aplicacao
congela, utilizando de 80 a 100% da CPU.
Nossa aplicacao possui um timer que de 30 em 30s ele verifica se chegou
novas notificacoes para o cliente logado e o controle de transacoes foi
feito via codigo do D7 da seguinte forma (para cada select, insert, delete
ou update):
try
Transacao.TransactionID := 1;
Transacao.IsolationLevel := xilREPEATABLEREAD;
dados.SQLConnection1.StartTransaction(Transacao);
dados.sqlqueryAux.Close;
dados.sqlqueryAux.SQL.Clear;
//CONSULTA
dados.sqlqueryAux.Open;
dados.SQLConnection1.Commit(Transacao);
except
on Exc:Exception do
begin
ShowMessage('Ocorreu um erro na consulta: ' + Exc.Message);
dados.SQLConnection1.Rollback(Transacao);
end;
end;
Alguem poderia dar uma dica sobre o que poderia ser??
Obrigado!!!
--
Paulo Laux
Sistemas de Informação (UFSC)
www.inf.ufsc.br/~laux
[As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] sybase+delphi
Você esta usando sybase ASE ou ASA? O você dá o comando insert na mão ou esta usando algo parecido com TTable? Geralmente para pegar o valor gerado pelo identity você deve fazer um select (select @@identity Isso no ASA). Espero ter ajudado. Abraço Zote From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On Behalf Of Márcio Ricardo Sent: quarta-feira, 9 de maio de 2007 11:41 To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] sybase+delphi Importance: High Alguém utiliza o bando de dados sybase com conexão dbexpress no D2006? Estou conectando e consultando os dados belezinha, mas quando vou inserir não consigo pegar o campo chave que está com identity esse campo é retornado null, ou seja, não está fazendo o auto-incremento. Obrigado, Márcio Ricardo. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Extract DADOS apenas
Bom dia a Todos..
Gostaria de saber se existe alguma maneira de efetuar um backup de uma base de
dados Firebird apenas dos dados nela contigo.
ex.: SITUACAO VALUES ('Ativo');
qdo vc efetua o backup ou Extract Metadados ele traz o mesmo registro dessa
maneira:
INSERT INTO SITUACAO (CODIGO, STATUS) VALUES (34, 'Ativo');
e eu não gostaria de obter os registros assim, existe alguma maneira???
Junior - Araraquara/SP
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Off: Listar os computeres da rede
Pessoal, Tinham uns colegas querendo saber como listar os computadores da rede. Eu coloquei no meu blog um exemplo de como faço, quem quiser dar uma olhada tem o código fonte pra download. Abs http://www.delphitodelphi.blogspot.com -- Adriano Santos Desenvolvedor Delphi desde 1998. Professor e programador PHP. Bacharel em Comunicação Social pela Universidade Cruzeiro do Sul, SP. Colunista e Comissão Editorial da revista ClubeDelphi. Blog: http://www.delphitodelphi.blogspot.com
RES: RES: [delphi-br] Violação de Memória em Arr ay
Foi um erro de digitação, acontece. E em momento algum citei seu nome,
apenas disse que outras pessoas. E isso é tudo. Não estou interessado
em ficar batendo boca em uma lista de discussão pública. Ninguém que
está nessa lista está para ler esse tipo de e-mail, mas assuntos
profissionais.
E para finalizar, digo:
Sim, agora eu me refiro a vc. Td que escrevi ali está sendo direcionado
para vc. Gostando ou não. Sem mais.
Elias Magalhães da Paixão Junior
___
Análise de Sistemas e Banco de Dados
Consultoria e desenvolvimento de programas, sistemas e websites
Tel.: (0XX21) 8262-7955
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em nome de Eduardo Castro Alves
Enviada em: segunda-feira, 14 de maio de 2007 10:19
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] Violação de Memória em Array
Bem, então você terá que estudar Delphi e como se expressar melhor.
Você colocou isso:
logsCapturados:=log.create;
Então vamos ver se vc entende desenhando.
Se logsCapturados é um vetor, para você criar você deve passar o indice
de qual você está criando.
logsCapturados[INDICE] := LOG.CREATE;
Só estou surpreso por que se você conhece tanto assim de vetores não
saber isso.
Quanto ao passar um vetor como parametro para um metodo é o mesmo de
qualquer outro objeto ou variável.
Referente a ser humilde ou não acho que você não pode me julgar. Disse e
repito VOCÊ TEM QUE ESTUDAR MUITO MAIS isso não significa que eu não sou
humilde e sim que você precisa ESTUDAR E PRESTAR MAIS ATENÇÃO NO QUE
VOCÊ ESTÁ FAZENDO.
Eduardo
Ps: Ja foi o tempo que eu ficava perdendo o meu tempo com estas
discussões, por tanto não responderei nenhum outro email sobre este
assunto.
Elias Magalhães da Paixão Junior escreveu:
Concordo plenamente que eu tenho que estudar muito e tb concordo que
que
outras pessoas no mundo também, bem como outras precisam aprender
certas
coisas como humildade, educação e decência.
Eduardo, agradeço sua boa vontade mas lamento lhe informar que sei
como se utiliza um array mas que vai ser bom pois essas dicas podem
servir para alguma outra pessoa, que assim como eu tb tem de estudar
muito.
Para que entendam melhor o que eu escrevi, vou colocar a procedure
inteira.
A declaração:
private
logsCapturados:array of icmpScan_cl_log_usr;
A procedure:
procedure icmpScan_cl_log_adm.procuraLogs;
var
busca: TSearchRec;
logList: TStrings;
Ret,i: Integer;
host: string;
begin
Ret := FindFirst('append\*.ims', faAnyFile, busca);
logList:=TStringlist.Create;
i:=0;
try
while Ret = 0 do
begin
logList.Add(busca.Name);
host:=copy(logList.ValueFromIndex[i],pos('_',logList.ValueFromIndex[i])+
1,length(logList.ValueFromIndex[i])-3-(pos('_',logList.ValueFromIndex[i]
)+1));
logsCapturados[i]:=icmpScan_cl_log_usr.create(host); -- O
erro acontece aqui. Como se a variável não tivesse sido declarada.
Ret := FindNext(busca);
i:=i+1;
end;
finally
begin
FindClose(busca);
end;
end;
end;
E voltando a dizer, que se eu declarar esse array como uma variável da
procedure, ao invés da unit, funciona.
Elias Magalhães da Paixão Junior
___
Análise de Sistemas e Banco de Dados
Consultoria e desenvolvimento de programas, sistemas e websites
Tel.: (0XX21) 8262-7955
-Mensagem original-
De: delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
[mailto:delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br]
Em nome de Eduardo Castro Alves
Enviada em: segunda-feira, 14 de maio de 2007 07:58
Para: delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
Assunto: Re: [delphi-br] Violação de Memória em Array
Acho que vc deve estudar muito. Segue abaixo um exemplo de um vetor
dinâmico e um de tamanho fixo.
var
i : Integer;
A1 : Array of String;
A2 : Array [0..10] of String;
begin
Memo1.Clear;
SetLength(A1, 20); // defino o tamanho do vetor
for i := 0 to Length(A1) - 1 do
A1[i] := 'Vetor A1 Linha ' + IntToStr(i);
for i := 0 to 10 do
Memo1.Lines.Add(A1[i]);
for i := 0 to 10 do
A2[i] := 'Vetor A2 Linha ' + IntToStr(i);
for i := 0 to 10 do
Memo1.Lines.Add(A2[i]);
end;
Eduardo
Elias Magalhães da Paixão Junior escreveu:
Amigos,
Preciso perturbá-los mais uma vez, pois não consigo encontrar
solução.
Em uma unit, tenho o seguinte array declarado:
Private
logsCapturados: array of log -- Já tentei estático tb.
Logo depois, em uma procedure, ele é criado:
logsCapturados:=log.create;
Aqui ocorre o erro de violação de memória, aquele mesmo que ocorre
quando o objeto não existe. O fato mais curioso é que se eu declarar
o
array DENTRO da procedure, ele funciona normalmente, com o mesmo
código.
Quando eu declaro como parte da classe, acontece isso. Alguém
sabe???
Elias Magalhães da Paixão Junior
___
Análise de Sistemas e Banco de Dados
[delphi-br] Breakpoints
De uma hora para outra os breakpoints do meu Delphi 6.0 não funcionam mais, ou seja, não pára mais qdo crio um break em uma linha. Alguém sabe algo a respeito disso? Grato
RES: [delphi-br] Re: 3 camadas
O problema de td componente de terceiro é ficar na mão do fabricante e isso é algo a ser pensado na hora de usar um componente de terceiro, bem como sua aplicabilidade. A tecnologia de n-tier copm datasnap e BSS aplico em sistema de riscos a mais de 4 anos e tudo com muito sucesso e nunca tive nenhuma necessidade técnica que me fizesse ter q migrar para qualquer outra suíte. Material sobre desenvolvimento de alta performance com BSS e multicamadas para aplicações de risco e distribuição geográfica você encontra principalmente no developers network e no grupo que mantemos somente sobre o assunto: [EMAIL PROTECTED] BSS é uma arquitetura aberta onde vc possui total controle do que está sendo feito e está disponível em todas as versões do Delphi, e é 100% compatível, e vc não fica nas mão de terceiros, e acredito que isso deva ser levado em conta também. Hj mantenho um link no code central sobre este assunto também, é gratuito: http://cc.codegear.com/Author/795118 A matéria que o colega Leandro citou não contem as boas praticas desse desenvolvimento, é muito elucidativa e didática, mas não Server para o completo uso da arquitetura para aplicações comerciais de alta performance e produtividade. Alem dos materiais e do grupo que são gratuitos, tenho todo tipo de terinamento on-line relacionado a essas tecnologias. Abraços, Bruno Lichot CodeGegar Product Evangelist http://www.codegear.com http://cc.codegear.com/Author/795118 De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Fausto Enviada em: domingo, 13 de maio de 2007 08:05 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Re: 3 camadas Bom dia Leandro.. Olha eu comecei a pouco desenvolver em 3 camadas, eu nao aconcelharia voce a utilizar o Com, tem outras alternativas que é o Borland Soket Server BSS, eu comecei a utilizar o BSS, mas estou estudando o REMOBJECTS é uma suite paga mas ela dá de 10 a 0 no bss, principalmente se tratando de configurações e interface. Dê uma olhada em www.remobjects.com e também nestes artigos sobre BSS. www.imasters.com.br/busca/0/29/1 www.univel.br/pamplona/Material.htm Fausto --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br , Leandro [EMAIL PROTECTED] escreveu Bom dia, Desenvolvo aplicações Delphi + Firebird cliente/servidor há muito tempo, mas agora que vou iniciar o desenvolvimento de um novo sistema do zero, quero ver a possibilidade de desenvolvê-lo em 3 camadas, mas não tenho nenhuma experiência nisso. Quem já usa esse tipo de desenvolvimento poderia me passar sugestão de melhor tecnologia a usar (seria COM???), e sugestão de materiais sobre o assunto? Materiais sobre estatísticas de velocidade com/sem 3 camadas serão muito bem vindos também. Desde já agradeço, Leandro [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 2262 (20070512) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Violação de Memóri a em Array
Elias Magalhães da Paixão Junior wrote:
A declaração:
private
logsCapturados:array of icmpScan_cl_log_usr;
A procedure:
procedure icmpScan_cl_log_adm.procuraLogs;
var
busca: TSearchRec;
logList: TStrings;
Ret,i: Integer;
host: string;
begin
Ret := FindFirst('append\*.ims', faAnyFile, busca);
logList:=TStringlist.Create;
i:=0;
try
while Ret = 0 do
begin
logList.Add(busca.Name);
host:=copy(logList.ValueFromIndex[i],pos('_',logList.ValueFromIndex[i])+
1,length(logList.ValueFromIndex[i])-3-(pos('_',logList.ValueFromIndex[i]
)+1));
logsCapturados[i]:=icmpScan_cl_log_usr.create(host); -- O
erro acontece aqui. Como se a variável não tivesse sido declarada.
Ret := FindNext(busca);
i:=i+1;
end;
finally
begin
FindClose(busca);
end;
end;
end;
E voltando a dizer, que se eu declarar esse array como uma variável da
procedure, ao invés da unit, funciona.
Você não está criando o array, você precisa desta linha:
SetLength(logCapturados, quantosquiser);
portanto você precisa primeiro descobrir quantos arquivos seu
FindFirst/Next irá catar. Coloque outro laço depois de capturar todos os
nomes de arquivo.
A declaração local não dá problema porque variáveis locais não são
inicializadas e por pura sorte ela estaria apontando para uma área de
memória alocada para a sua aplicação.
--
Joao Morais
Elias Magalhães da Paixão Junior
___
Análise de Sistemas e Banco de Dados
Consultoria e desenvolvimento de programas, sistemas e websites
Tel.: (0XX21) 8262-7955
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em nome de Eduardo Castro Alves
Enviada em: segunda-feira, 14 de maio de 2007 07:58
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Violação de Memória em Array
Acho que vc deve estudar muito. Segue abaixo um exemplo de um vetor
dinâmico e um de tamanho fixo.
var
i : Integer;
A1 : Array of String;
A2 : Array [0..10] of String;
begin
Memo1.Clear;
SetLength(A1, 20); // defino o tamanho do vetor
for i := 0 to Length(A1) - 1 do
A1[i] := 'Vetor A1 Linha ' + IntToStr(i);
for i := 0 to 10 do
Memo1.Lines.Add(A1[i]);
for i := 0 to 10 do
A2[i] := 'Vetor A2 Linha ' + IntToStr(i);
for i := 0 to 10 do
Memo1.Lines.Add(A2[i]);
end;
Eduardo
Elias Magalhães da Paixão Junior escreveu:
Amigos,
Preciso perturbá-los mais uma vez, pois não consigo encontrar solução.
Em uma unit, tenho o seguinte array declarado:
Private
logsCapturados: array of log -- Já tentei estático tb.
Logo depois, em uma procedure, ele é criado:
logsCapturados:=log.create;
Aqui ocorre o erro de violação de memória, aquele mesmo que ocorre
quando o objeto não existe. O fato mais curioso é que se eu declarar o
array DENTRO da procedure, ele funciona normalmente, com o mesmo
código.
Quando eu declaro como parte da classe, acontece isso. Alguém sabe???
Elias Magalhães da Paixão Junior
___
Análise de Sistemas e Banco de Dados
Consultoria e desenvolvimento de programas, sistemas e websites
Tel.: (0XX21) 8262-7955
[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] Extract DADOS apenas
Se eu entendi, tente isso...
SELECT 'INSERT INTO SITUACAO(CODIGO, STATUS)
VALUES (' + T.CODIGO + ',' ''+ T.STATUS +''')'
FROM SITUACAO T
- Original Message -
From: Luizcm_jr
To: FireBase ; delphi-br@yahoogrupos.com.br ; [EMAIL PROTECTED]
Sent: Monday, May 14, 2007 10:53 AM
Subject: [delphi-br] Extract DADOS apenas
Bom dia a Todos..
Gostaria de saber se existe alguma maneira de efetuar um backup de uma base
de dados Firebird apenas dos dados nela contigo.
ex.: SITUACAO VALUES ('Ativo');
qdo vc efetua o backup ou Extract Metadados ele traz o mesmo registro dessa
maneira:
INSERT INTO SITUACAO (CODIGO, STATUS) VALUES (34, 'Ativo');
e eu não gostaria de obter os registros assim, existe alguma maneira???
Junior - Araraquara/SP
[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] sybase+delphi
Zote, estou usando o ASE. Conversando com uma pessoa que conhece sybase, ela me disse que tem q fazer tudo na unha, como vc disse: usar o INSERT. Como estou desenvolvendo em 3 camadas, estou tendo problemas de conversões de campos de inteiro para string. O projeto já está pronto funcionando com dois SGDB, então vamos partir para o plano B e criar um programa que sincroniza o Sybase com o Oracle. valeu pela dica. Márcio Ricardo. - Original Message - From: José Henrique (Zote) To: delphi-br@yahoogrupos.com.br Sent: Monday, May 14, 2007 10:21 AM Subject: RE: [delphi-br] sybase+delphi Você esta usando sybase ASE ou ASA? O você dá o comando insert na mão ou esta usando algo parecido com TTable? Geralmente para pegar o valor gerado pelo identity você deve fazer um select (select @@identity -Isso no ASA). Espero ter ajudado. Abraço Zote From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On Behalf Of Márcio Ricardo Sent: quarta-feira, 9 de maio de 2007 11:41 To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] sybase+delphi Importance: High Alguém utiliza o bando de dados sybase com conexão dbexpress no D2006? Estou conectando e consultando os dados belezinha, mas quando vou inserir não consigo pegar o campo chave que está com identity esse campo é retornado null, ou seja, não está fazendo o auto-incremento. Obrigado, Márcio Ricardo. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Loop
Amigos, Como posso fazer um loop para percorrer todas as letras alfabeticas e assim q mudar de letra passar para uma query em qual letra o loop esta como parametro. Atenciosamente, Rodrigo __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] SQL Server enviar uma menssage m para aplicação(tipo post_event do FireBi rd).
Não dá pra fazer isso via trigger e SP? Não tenho um exemplo de como fazer isso, apenas o conceito... A idéia me ocorreu e não pensei com mais detalhes. Sds, Ricardo. Ricardo Lima [EMAIL PROTECTED] escreveu: Pessoal preciso que o SQL Server envie uma menssagem para minha aplicação, sempre que uma tabela for atualizada, e minha aplicação faça o tratamento dessa mensagem, algo parecido com o post_event do firebird. Alguem sabe como consigo fazer isso no sql server? Obrigado. At. Ricardo Lima [As partes desta mensagem que não continham texto foram removidas] __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Uso 100% CPU
Não entendi plenamente a questão, porém sugiro desligar o Timer no início do processamento e ligá-lo no fim do processamento. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Usar o botão Cancel do InputBox
Olá... Como usar o botão Cancel do InputBox, de modo a abortar um processo e emitir uma mensagem de que a operação foi cancelada, pois quando eu teclo o referido botão, não armazeno a string que foi pedido para digitar, mas no entanto o fluxo do programa segue, e, no meu caso, dando um erro. No meu caso, eu preciso que seja digitado um numero inteiro, porem se for clicado em cancelar, o sistema deve interromper o processo ou pedir q o usuário tente novamente, mas nao quero fazer isso com repeat, pois quero informar ao usuário. Qualquer ajuda será válida! []´s Paulo
Re: [delphi-br] Loop
Crie um vetor com a quantidade do alfabeto e faça o loop assim. A cada passagem pelo loop vc joga para o parametro e executa sua query. É isso q vc quer? Márcio Ricardo. - Original Message - From: Rodrigo Magno To: delphi-br@yahoogrupos.com.br Sent: Monday, May 14, 2007 11:51 AM Subject: [delphi-br] Loop Amigos, Como posso fazer um loop para percorrer todas as letras alfabeticas e assim q mudar de letra passar para uma query em qual letra o loop esta como parametro. Atenciosamente, Rodrigo __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Exportação para Excel
Amigos, Alguem sabe alguma função ou rotina que faça exportação para o excel mais em que em um determinado momento de numero de registro eu consigo fazer nao uma nova planilha mais sim colocar numa outra tabsheet do excel o restante dos dados que não couberam na primeira planilha ? So gostaria que esta função roda-se no delphi 5 . No mais agradeço a atenção de todos. Atenciosamente, Rodrigo Magno __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Loop
procedure Loop ;
const
letras : String = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
var
x:Integer;
begin
for x:=1 to length(letras) do
begin
Close;
Sql.clear;
Sql.text:= 'SELECT * FROM TABELA WHERE CAMPO=:CAMPO;
ParamByName('CAMPO').aastring := letras[x];
Open;
end;
end;
Espero ter ajudado
Wesley
- Original Message -
From: Rodrigo Magno
To: delphi-br@yahoogrupos.com.br
Sent: Monday, May 14, 2007 11:51 AM
Subject: [delphi-br] Loop
Amigos,
Como posso fazer um loop para percorrer todas as letras alfabeticas e assim q
mudar de letra passar para uma query em qual letra o loop esta como parametro.
Atenciosamente,
Rodrigo
__
Fale com seus amigos de graça com o novo Yahoo! Messenger
http://br.messenger.yahoo.com/
[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.467 / Virus Database: 269.7.0/803 - Release Date: 13/5/2007 12:17
[As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Usar o botão Cancel do InputBox
Usa o InputQuery é a mesma coisa e mais fácil de trabalhar. Veja um exemplo:
procedure TForm1.Button1Click(Sender: TObject);
var
Clicou: Boolean;
Mensagem: String;
begin
Clicou := InputQuery('Caption', 'Prompt', Mensagem);
if Clicou then
ShowMessage(Mensagem)
else
ShowMessage('O cara não clicou ok');
end;
Elcio Domingos Ramos respondeu:
Testa se a variável do inputBox e igual a '' (vazio) se for ele cancelou.
De: delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
[mailto:delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br] Em nome de pcinfowave
Enviada em: segunda-feira, 14 de maio de 2007 13:04
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Assunto: [delphi-br] Usar o botão Cancel do InputBox
Olá...
Como usar o botão Cancel do InputBox, de modo a abortar um processo e
emitir uma mensagem de que a operação foi cancelada, pois quando eu
teclo o referido botão, não armazeno a string que foi pedido para
digitar, mas no entanto o fluxo do programa segue, e, no meu caso,
dando um erro.
No meu caso, eu preciso que seja digitado um numero inteiro, porem se
for clicado em cancelar, o sistema deve interromper o processo ou pedir
q o usuário tente novamente, mas nao quero fazer isso com repeat, pois
quero informar ao usuário.
Qualquer ajuda será válida!
[]´s
Paulo
[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.467 / Virus Database: 269.7.0/803 - Release Date: 13/5/2007 12:17
--
*Adriano Santos*
RES: [delphi-br] Usar o botão Cancel do InputBox
Testa se a variável do inputBox e igual a '' (vazio) se for ele cancelou. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de pcinfowave Enviada em: segunda-feira, 14 de maio de 2007 13:04 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Usar o botão Cancel do InputBox Olá... Como usar o botão Cancel do InputBox, de modo a abortar um processo e emitir uma mensagem de que a operação foi cancelada, pois quando eu teclo o referido botão, não armazeno a string que foi pedido para digitar, mas no entanto o fluxo do programa segue, e, no meu caso, dando um erro. No meu caso, eu preciso que seja digitado um numero inteiro, porem se for clicado em cancelar, o sistema deve interromper o processo ou pedir q o usuário tente novamente, mas nao quero fazer isso com repeat, pois quero informar ao usuário. Qualquer ajuda será válida! []´s Paulo [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Select com count
tenho essa select:
with dtmmovimento.qryGeracalendmensal do
begin
SQL.Clear;
SQL.Add('SELECT count(fi.CO_FICHAPREVENTIVA) ficha');
SQL.Add(' FROM ifichapreventiva fi,fichapreventiva f, periodo p,
categoria c');
SQL.Add(' WHERE f.CO_FICHAPREVENTIVA=fi.CO_FICHAPREVENTIVA AND
fi.CO_PERIODO = 3 AND f.CO_CATEGORIA = 12');
SQL.Add(' AND fi.CO_PERIODO=p.CO_PERIODO AND
f.CO_CATEGORIA=c.CO_CATEGORIA');
Open;
a:= parambyname('ficha').AsInteger;
end;
Só que ao executar a query ele me retorna esse erro: Parameter ficha
not found. O que estou fazendo de errado?
Re: [delphi-br] Select com count
Acho que vc poderia fazer assim...
with dtmmovimento.qryGeracalendmensal do
begin
SQL.Clear;
SQL.Add('SELECT count(fi.CO_FICHAPREVENTIVA) ficha');
SQL.Add(' FROM ifichapreventiva fi,fichapreventiva f, periodo p, categoria c');
SQL.Add(' WHERE f.CO_FICHAPREVENTIVA=fi.CO_FICHAPREVENTIVA AND fi.CO_PERIODO =
3 AND f.CO_CATEGORIA = 12');
SQL.Add(' AND fi.CO_PERIODO=p.CO_PERIODO AND f.CO_CATEGORIA=c.CO_CATEGORIA');
Open;
//FieldByName ao inves de ParamByName
a:= FieldByName('ficha').AsInteger;
end;
Espero ter ajudado.. Wesley
- Original Message -
From: rzzanatta
To: delphi-br@yahoogrupos.com.br
Sent: Monday, May 14, 2007 2:48 PM
Subject: [delphi-br] Select com count
tenho essa select:
with dtmmovimento.qryGeracalendmensal do
begin
SQL.Clear;
SQL.Add('SELECT count(fi.CO_FICHAPREVENTIVA) ficha');
SQL.Add(' FROM ifichapreventiva fi,fichapreventiva f, periodo p,
categoria c');
SQL.Add(' WHERE f.CO_FICHAPREVENTIVA=fi.CO_FICHAPREVENTIVA AND
fi.CO_PERIODO = 3 AND f.CO_CATEGORIA = 12');
SQL.Add(' AND fi.CO_PERIODO=p.CO_PERIODO AND
f.CO_CATEGORIA=c.CO_CATEGORIA');
Open;
a:= parambyname('ficha').AsInteger;
end;
Só que ao executar a query ele me retorna esse erro: Parameter ficha
not found. O que estou fazendo de errado?
--
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.467 / Virus Database: 269.7.0/803 - Release Date: 13/5/2007 12:17
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: Pesquisa
nao entendi sua resposta joão, o que quer dizer? que vou ter de montar um script trocando os charset e collate de cada coluna, é isso mesmo?
[delphi-br] Rave Report
O rave reports pode ser usado com o delphi 6? __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Select com count
ParamByName é para passagem de parametro.
Use FieldByName que vai funcionar.
Eduardo
rzzanatta escreveu:
tenho essa select:
with dtmmovimento.qryGeracalendmensal do
begin
SQL.Clear;
SQL.Add('SELECT count(fi.CO_FICHAPREVENTIVA) ficha');
SQL.Add(' FROM ifichapreventiva fi,fichapreventiva f, periodo p,
categoria c');
SQL.Add(' WHERE f.CO_FICHAPREVENTIVA=fi.CO_FICHAPREVENTIVA AND
fi.CO_PERIODO = 3 AND f.CO_CATEGORIA = 12');
SQL.Add(' AND fi.CO_PERIODO=p.CO_PERIODO AND
f.CO_CATEGORIA=c.CO_CATEGORIA');
Open;
a:= parambyname('ficha').AsInteger;
end;
Só que ao executar a query ele me retorna esse erro: Parameter ficha
not found. O que estou fazendo de errado?
RE: [delphi-br] Rave Report
Sim, mas não é Nativo. http://www.nevrona.com/Default.aspx?tabid=164 Abs Tiago To: delphi-br@yahoogrupos.com.br; [EMAIL PROTECTED]: [EMAIL PROTECTED]: Mon, 14 May 2007 15:15:47 -0300Subject: [delphi-br] Rave Report O rave reports pode ser usado com o delphi 6?__Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] _ O Windows Live Spaces já chegou! É fácil criar o seu próprio Web site pessoal. http://spaces.live.com/signup.aspx [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Re: 3 camadas
Aberta no sentido de se vc tem o Delphi, vc possui os fonets e pode alterar e evoluir do jeito q quiser e distribuir nos seus clientes pois a licensa do Delphi q vc tem lhe fornece de distribuir o executável do BSS e utiliza-lo. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Moises Ribeiro Moreira da Silva Enviada em: segunda-feira, 14 de maio de 2007 16:57 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Re: 3 camadas Olá Bruno, voce tocou em um assunto, e eu gostaria de saber uma coisa, voce disse que a tecnologia BSS é uma arquitetura aberta, o que isso significa na prática ? Significa que é Free ? Significa que eu posso migrar essa tecnologia para outra linguagem ? Eu sei que a Borland liberou o código fonte, o qual vem com o Delphi, mas eu gostaria de saber sobre a questão legal, até que ponto BSS é uma arquitetura aberta. Moises. - Original Message - From: Bruno Lichot To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Monday, May 14, 2007 11:24 AM Subject: RES: [delphi-br] Re: 3 camadas O problema de td componente de terceiro é ficar na mão do fabricante e isso é algo a ser pensado na hora de usar um componente de terceiro, bem como sua aplicabilidade. A tecnologia de n-tier copm datasnap e BSS aplico em sistema de riscos a mais de 4 anos e tudo com muito sucesso e nunca tive nenhuma necessidade técnica que me fizesse ter q migrar para qualquer outra suíte. Material sobre desenvolvimento de alta performance com BSS e multicamadas para aplicações de risco e distribuição geográfica você encontra principalmente no developers network e no grupo que mantemos somente sobre o assunto: [EMAIL PROTECTED] mailto:nddv%40yahoogrupos.com.br . BSS é uma arquitetura aberta onde vc possui total controle do que está sendo feito e está disponível em todas as versões do Delphi, e é 100% compatível, e vc não fica nas mão de terceiros, e acredito que isso deva ser levado em conta também. Hj mantenho um link no code central sobre este assunto também, é gratuito: http://cc.codegear.com/Author/795118 A matéria que o colega Leandro citou não contem as boas praticas desse desenvolvimento, é muito elucidativa e didática, mas não Server para o completo uso da arquitetura para aplicações comerciais de alta performance e produtividade. Alem dos materiais e do grupo que são gratuitos, tenho todo tipo de terinamento on-line relacionado a essas tecnologias. Abraços, Bruno Lichot CodeGegar Product Evangelist http://www.codegear.com http://cc.codegear.com/Author/795118 De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Fausto Enviada em: domingo, 13 de maio de 2007 08:05 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: [delphi-br] Re: 3 camadas Bom dia Leandro.. Olha eu comecei a pouco desenvolver em 3 camadas, eu nao aconcelharia voce a utilizar o Com, tem outras alternativas que é o Borland Soket Server BSS, eu comecei a utilizar o BSS, mas estou estudando o REMOBJECTS é uma suite paga mas ela dá de 10 a 0 no bss, principalmente se tratando de configurações e interface. Dê uma olhada em www.remobjects.com e também nestes artigos sobre BSS. www.imasters.com.br/busca/0/29/1 www.univel.br/pamplona/Material.htm Fausto --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br , Leandro [EMAIL PROTECTED] escreveu Bom dia, Desenvolvo aplicações Delphi + Firebird cliente/servidor há muito tempo, mas agora que vou iniciar o desenvolvimento de um novo sistema do zero, quero ver a possibilidade de desenvolvê-lo em 3 camadas, mas não tenho nenhuma experiência nisso. Quem já usa esse tipo de desenvolvimento poderia me passar sugestão de melhor tecnologia a usar (seria COM???), e sugestão de materiais sobre o assunto? Materiais sobre estatísticas de velocidade com/sem 3 camadas serão muito bem vindos também. Desde já agradeço, Leandro [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 2262 (20070512) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] [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] Extract DADOS apenas
Márcio,
Valeu ter respondido, mas infelismente não eh bem isso
não!!
Seguinte.. o que quiz dizer foi que preciso apenas dos
dados q qq ferramenta de backup do banco Firebird e
outras acredito não fazer, elas trazem juntos por
exemplo toda a linguagem SQL (INSERT, INTO, VALUES) e
mais os campos da tabela em questão. (CODIGO, STATUS).
Sera mesmo que não existe alguma maneira de se efetuar
um backup de um banco de dados apenas com os dados
contido nele e não a linguagem e estrutura!!
Valeu..
Junior - Araraquara/SP
--- Márcio Ricardo [EMAIL PROTECTED] escreveu:
Se eu entendi, tente isso...
SELECT 'INSERT INTO SITUACAO(CODIGO, STATUS)
VALUES (' + T.CODIGO + ',' ''+
T.STATUS +''')'
FROM SITUACAO T
- Original Message -
From: Luizcm_jr
To: FireBase ; delphi-br@yahoogrupos.com.br ;
[EMAIL PROTECTED]
Sent: Monday, May 14, 2007 10:53 AM
Subject: [delphi-br] Extract DADOS apenas
Bom dia a Todos..
Gostaria de saber se existe alguma maneira de
efetuar um backup de uma base de dados Firebird
apenas dos dados nela contigo.
ex.: SITUACAO VALUES ('Ativo');
qdo vc efetua o backup ou Extract Metadados ele
traz o mesmo registro dessa maneira:
INSERT INTO SITUACAO (CODIGO, STATUS) VALUES (34,
'Ativo');
e eu não gostaria de obter os registros assim,
existe alguma maneira???
Junior - Araraquara/SP
[As partes desta mensagem que não continham texto
foram removidas]
[As partes desta mensagem que não continham texto
foram removidas]
__
Fale com seus amigos de graça com o novo Yahoo! Messenger
http://br.messenger.yahoo.com/
[delphi-br] Remover espaços
Olá, tenho no Delphi um campo DBEdit, e gostaria que quando a pessoa clicar em SALVAR, ele removesse mais de um espaço, caso a pessoa tenha digitado mais de um. EX: A pessoa digita Delphi BR, mas quero que ele filtre e salve como Delphi Br (somente com um espaço.) Se alguém puder ajudar agradeço. Diego. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Off: Resultado parcial das votações
Aproveitando o e-mail e sendo que a maior votação entre os BDs está favorável ao Firebird, gostaria de perguntar o seguinte: Creio que um dos componentes de acesso ao Firebird mais utilizado seja o DBExpress. Ouvi dizer que ele proporciona um acesso UNIDIRECIONAL. Mas, em que implica este acesso UNIDIRECIONAL ??? Qual a diferença entre ele e um acesso não unidirecional ??? Gostaria de obter uma resposta trocada em miúdos, bem simples, creio que seja a dúvida de muitos. No que isso implica no dia-a-dia de um desenvolvedor ??? Quais as diferenças no software produzido ??? Abraços a todos, Janderson - Original Message - From: Adriano Santos To: Delphi-br Sent: Friday, May 11, 2007 11:52 AM Subject: [delphi-br] Off: Resultado parcial das votações Pessoal, Agradeço à todos pelos minutos que perderam votando nas enquetes que coloquei no ar. Quem quiser ainda pode votar. Marquei o encerramento para o final do mês. O resultado parcial encontra-se abaixo. Votação: http://www.delphitodelphi.blogspot.com Qual Delphi você utiliza? Delphi 5 ou inferiror: 6,33% Delphi 6: 7,59% Delphi 7: 55,70% Delphi 8: Não foram computados votos Delphi 2005: 2,53% Delphi 2006: 22,78% Delphi 2007: 5,06% Total de 79 votos; Qual banco você utiliza? Oracle: Não foram computados votos SQL Server: 8,20% Interbase: 3,28% Firebird: 73,77% MySQL: 8,20% PostGreeSQL: 6,56% Outros: Não foram computados votos Total de votos: 61 -- Adriano Santos Desenvolvedor Delphi desde 1998. Professor e programador PHP. Bacharel em Comunicação Social pela Universidade Cruzeiro do Sul, SP. Colunista e Comissão Editorial da revista ClubeDelphi. Blog: http://www.delphitodelphi.blogspot.com
[delphi-br] erro ao criar objeto - object or class type required
pessoal, minha situação é a seguinte, estou tentando criar um objeto que se encontra em outra unit, então fiz o seguinte, declarei uma variável no meu form e associei ao componente da outra unit pra poder chamar as rotinas. Só que dá um access violation... sei que preciso criar o objeto antes de utilizá-lo mas não to conseguindo, já tentei Create e nada. Meu código tá assim: var F: MicroPoint_S_RT; begin F:= MicroPoint_S_RT.Create; Obs. com a linha acima dá o erro object or class type required se eu comento a linha acima e executo o projeto dá erro de access violation quando vai executar a linha de baixo: F.InicializarComponente(Barras, 1, 1, true, true, 1 ); agradeço qualquer ajuda!
Re: [delphi-br] erro ao criar objeto - object or class type required
Primeiramente como é a tua classe (unit)? O erro dá nesta linha F.InicializarComponente(Barras, 1, 1, true, true, 1 ); pois o teu objeto (F) não foi criado. O certo seria vc passar a classe MicroPoint_S_RT; Att, Marcelo M Florindo Em 14/05/07, mrbyte_informatica [EMAIL PROTECTED] escreveu: pessoal, minha situação é a seguinte, estou tentando criar um objeto que se encontra em outra unit, então fiz o seguinte, declarei uma variável no meu form e associei ao componente da outra unit pra poder chamar as rotinas. Só que dá um access violation... sei que preciso criar o objeto antes de utilizá-lo mas não to conseguindo, já tentei Create e nada. Meu código tá assim: var F: MicroPoint_S_RT; begin F:= MicroPoint_S_RT.Create; Obs. com a linha acima dá o erro object or class type required se eu comento a linha acima e executo o projeto dá erro de access violation quando vai executar a linha de baixo: F.InicializarComponente(Barras, 1, 1, true, true, 1 ); agradeço qualquer ajuda! -- Marcelo Moacir Florindo Analista/Desenvolvedor http://www.gestaotec.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: Select com count
Veja se não seria assim:
SELECT
count(fi.CO_FICHAPREVENTIVA) as ficha
FROM
(((ifichapreventiva fi inner join fichapreventiva f
on f.CO_FICHAPREVENTIVA=fi.CO_FICHAPREVENTIVA ) inner join
periodo p on fi.CO_PERIODO = p.CO_PERIODO) inner join
categoria c on f.CO_CATEGORIA=c.CO_CATEGORIA)
WHERE
fi.CO_PERIODO = 3 AND
f.CO_CATEGORIA = 12
Espero ter ajudado.
--- Em delphi-br@yahoogrupos.com.br, rzzanatta [EMAIL PROTECTED] escreveu
tenho essa select:
with dtmmovimento.qryGeracalendmensal do
begin
SQL.Clear;
SQL.Add('SELECT count(fi.CO_FICHAPREVENTIVA) ficha');
SQL.Add(' FROM ifichapreventiva fi,fichapreventiva f, periodo p,
categoria c');
SQL.Add(' WHERE f.CO_FICHAPREVENTIVA=fi.CO_FICHAPREVENTIVA AND
fi.CO_PERIODO = 3 AND f.CO_CATEGORIA = 12');
SQL.Add(' AND fi.CO_PERIODO=p.CO_PERIODO AND
f.CO_CATEGORIA=c.CO_CATEGORIA');
Open;
a:= parambyname('ficha').AsInteger;
end;
Só que ao executar a query ele me retorna esse erro: Parameter ficha
not found. O que estou fazendo de errado?
[delphi-br] Bug no Delphi 2007.
Pessoal acho que descobri um Bug no Delphi 2007, alguém que tem instalado pode me ajudar a fazer o teste? 1º - No menu Tools Options Enviroment Options AutoSave Options, marque Project Desktop. 2º - Inicie um projeto novo, coloque um combobox e alguns itens. 3º - Salve seu projeto. 4º - Nas abas Code/Designe Click na Aba Code Salve e Feche o Delphi sem fechar o projeto antes; 5º - Abra o Delphi, seu projeto deve ser carregado e o ultimo form aberto na parte code, 6º - agora pressione F12 e veja a propriedade Items do ComboBox. no meu some tudo. quem puder fazer o teste e me retornar eu agradeço. -- 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] Extract DADOS apenas
O IbExpert faz isso. Utilize a opção Tools/Extract Metadata. Há opção de gerar scripts para a estrutura e para os dados. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Gravar imagem (foto) no banco Fire 2.0 com IBExpress (driver UIB) usando Stored Procedure
Olá amigos, to sem saida, não consigo gravar um registro no banco de dados que tenha uma imagem JPG. Vou expor meu problema e se vocês tiverem alguma idéia de como me ajudar ... Tenho um sistema que tem várias cadastros, todos são feitos usando dbwares na tela e depois eu pego os valores (clientdataset) e passo pra uma stored procedure e inicio a transação, executo a procedure e dou um comit. Funciona rapidim que é uma beleza. Agora vem o problema, eu tenho um cadastro que tem o campo para inserir uma foto (dbimage), eu consigo gravar o primeiro registro, o segundo aparece a mensagem Transaction not assigned e ai ta o problema. Se eu insiro um registro sem foto eu consigo gravar, seu eu insiro outro também consigo, mas sempre se eu inserir mais de um com foto da essa mensagem, alguém tem uma luz ? Jader Ricardo [As partes desta mensagem que não continham texto foram removidas]
