Re: Res: [delphi-br] Re: Como subtrair horas corretas
de qualquer forma, 24:00 não é uma hora válida mesmo... vai ter q converter pra 00:00 ai se incrementar a hora vai simplesmente passar a ser 01:00 do dia atual. por isso, ao invés de incrementar a hora, incrementa o dia... pode usar o IncDay()... ou somar 1 na data o/ Em 27/08/2010 08:53, Eny Urias escreveu: Porque vc não usa IncHour()? Adiciona a unit DateUtils... -- Eny Trova Urias Somos o que repetitivamente fazemos, portanto, a excelência não é um feito, mas um hábito- Aristóteles De: Roni Rodrigo ronirodr...@yahoo.com.br mailto:ronirodrigo%40yahoo.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Quinta-feira, 26 de Agosto de 2010 22:15:13 Assunto: Re: [delphi-br] Re: Como subtrair horas corretas mas então... como eu disse... não seria 0 hora do dia seguinte? converte teu 24:00 pra 0 e incrementa 1 dia... ai vc faz o calculo normalmente... o/ Em 26/08/2010 22:00, alexsandro_qs escreveu: É o problema que estou tendo aqui é isso, pois o usuário digitar Inicial : 07:30 Final: 24:00 o resultado teria que dar : 16:30 Só que como ele não reconhece o 24:00, não faz o calculo. --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br, Roni Rodrigo ronirodr...@... escreveu cara... acredito que 24:00 não seja uma hora válida mesmo... o dia vai até de 0:00 até 23:59 ... o/ Em 26/08/2010 18:48, alexsandro_qs escreveu: Boa noite pessoal; Eu tinha feito uma forma de subtrair 2 horas aqui, e até à um tempinho atrás, estava tudo ok. Só que agora pintou um problema: era feito assim: --- var h1, h2, resultado : TDateTime; begin d1:= StrToTime(adotDatainicial.Value); d2:= StrToTime(adotDatainicia2.Value); resultado := d2 - d1; --- Só que quando é digitado 24:00, esse valor não é reconhecido como horas ai os erros. Alguém poderia me ajudar com isso ? OBS.: a hora nunca vai passar de 24:00 ( ou seja de um dia para o outro) Ex.: saída 24:00 - entrada 01:00 = 23:00 e não 23:60 [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] Classe Recursiva
sugiro que use o padrão de projeto composite http://pt.wikipedia.org/wiki/Composite http://sourcemaking.com/design_patterns/composite/delphi o/ Em 25/08/2010 19:13, marcosdoerner escreveu: Ola a todos, estou criando uma classe na minha regra de negocio mais ou menos da seguinte forma Type TminhaClasse = Class private atributo1 : string; atributo2 : string; atributo3 : string; classePai : TminhaClasse; public ... end; A minha duvida é como declaro o atributo classePai já que a minha TminhaClasse ainda não foi declarada. E a classePai pode conter ou não a estrutura e acaba sendo recursiva, o Pai pode ter um pai e assim por diante. Marcos
Re: [delphi-br] Como subtrair horas corretas
cara... acredito que 24:00 não seja uma hora válida mesmo... o dia vai até de 0:00 até 23:59 ... o/ Em 26/08/2010 18:48, alexsandro_qs escreveu: Boa noite pessoal; Eu tinha feito uma forma de subtrair 2 horas aqui, e até à um tempinho atrás, estava tudo ok. Só que agora pintou um problema: era feito assim: --- var h1, h2, resultado : TDateTime; begin d1:= StrToTime(adotDatainicial.Value); d2:= StrToTime(adotDatainicia2.Value); resultado := d2 - d1; --- Só que quando é digitado 24:00, esse valor não é reconhecido como horas ai os erros. Alguém poderia me ajudar com isso ? OBS.: a hora nunca vai passar de 24:00 ( ou seja de um dia para o outro) Ex.: saída 24:00 - entrada 01:00 = 23:00 e não 23:60
Re: [delphi-br] Classe Recursiva
ou isso hehehe declaração de métodos é tão comum que nem me liguei... ;P o/ Em 26/08/2010 20:40, Rubem Rocha escreveu: No Object Pascal do Delphi 7, declarações forward são usadas com classes, interfaces, procedures e functions. Sds. 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 Roni Rodrigo Enviada em: quinta-feira, 26 de agosto de 2010 19:28 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] Classe Recursiva se eu não me engano, declarações forward são só para classes sim... o/ Em 26/08/2010 09:30, Diego Garcia escreveu: eu tentei fazer isso com Record e não consegui... é somente com classe? *Diego Garcia* Twitter:http://www.twitter.com/drgarcia1986 Em 26 de agosto de 2010 09:20, Rubem Nascimento da Rocha djpardalro...@hotmail.com mailto:djpardalrocha%40hotmail.com mailto:djpardalrocha%40hotmail.com escreveu: Como diria a Oi, Simples Assim!. type TMinhaClasse = class; TMinhaClasse = class private fCampo1: string; fCampo2: string; fCampo3: string; fObjetoPai: TMinhaClasse; public property ObjetoPai: TMinhaClasse read fObjetoPai write fObjetoPai; end; Para entender isso, informe-se no help do Delphi sobre declarações prévias (ou forward) de classes. Sim, pq melhor do que pegar algo pronto pra uso é entender o que se recebe, certo:;) Boa sorte. Sds. To:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br From:marcosdoer...@gmail.com mailto:marcosdoerner%40gmail.com mailto:marcosdoerner%40gmail.com marcosdoerner%40gmail.com Date: Wed, 25 Aug 2010 22:13:10 + Subject: [delphi-br] Classe Recursiva Ola a todos, estou criando uma classe na minha regra de negocio mais ou menos da seguinte forma Type TminhaClasse = Class private atributo1 : string; atributo2 : string; atributo3 : string; classePai : TminhaClasse; public ... end; A minha duvida é como declaro o atributo classePai já que a minha TminhaClasse ainda não foi declarada. E a classePai pode conter ou não a estrutura e acaba sendo recursiva, o Pai pode ter um pai e assim por diante. Marcos [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] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Como subtrair horas corretas
mas então... como eu disse... não seria 0 hora do dia seguinte? converte teu 24:00 pra 0 e incrementa 1 dia... ai vc faz o calculo normalmente... o/ Em 26/08/2010 22:00, alexsandro_qs escreveu: É o problema que estou tendo aqui é isso, pois o usuário digitar Inicial : 07:30 Final: 24:00 o resultado teria que dar : 16:30 Só que como ele não reconhece o 24:00, não faz o calculo. --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br, Roni Rodrigo ronirodr...@... escreveu cara... acredito que 24:00 não seja uma hora válida mesmo... o dia vai até de 0:00 até 23:59 ... o/ Em 26/08/2010 18:48, alexsandro_qs escreveu: Boa noite pessoal; Eu tinha feito uma forma de subtrair 2 horas aqui, e até à um tempinho atrás, estava tudo ok. Só que agora pintou um problema: era feito assim: --- var h1, h2, resultado : TDateTime; begin d1:= StrToTime(adotDatainicial.Value); d2:= StrToTime(adotDatainicia2.Value); resultado := d2 - d1; --- Só que quando é digitado 24:00, esse valor não é reconhecido como horas ai os erros. Alguém poderia me ajudar com isso ? OBS.: a hora nunca vai passar de 24:00 ( ou seja de um dia para o outro) Ex.: saída 24:00 - entrada 01:00 = 23:00 e não 23:60 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Mascara de CEP
Bom dia, É um problema simples mas estou com dificuldades, gostaria de saber como faço para trabalhar com um campo TDBEdit utilizando uma máscara de CEP no formato '##.###-###' A máscara para edição no campo está funcionando ok, o problema é quando eu saio do campo, ele tira a mascara, então usei o displayFormat do field para corrigir isso, só que não estou acertando esse displayFormat. Obs. Meu field é do tipo Integer, ou seja, não pode salvar a máscara no BD. EditMask: '99.999-999;0;*' DisplayFormat: '00.000-000' Quando saio do campo fica assim: ',000-000' Meu problema está no DisplayFormat onde não estou conseguindo acertar a máscara dele, se eu colocar a mesma do EditMask tbm nao funciona. -- Att. Rodrigo Rossi Skype: rodrigotrentinrossi MSN: rdrg_ro...@hotmail.com Fone: (45) 9963-1897 Cascavel - PR
Re: [delphi-br] Virus ao compilar um programa (Topico Fechado)
ahuiahiuaha... cara não me pergunte pq isso... aconteceu comigo há alguns anos e depois de muito penar eu consegui resolver simplesmente renomeando minha unit principal estranho né... não sei explicar pq... mas se funciona ta de boa... o/ Em 25/08/2010 22:13, Andre escreveu: Fala ai Roni, valeu a dica por incrivel (e bota incrivel nisso) o meu programa começava como UPrincipal, renomei e recompilei e passou. Agoro eu pergunto o que tem o C.. com as calças? Obrigado pelas outras respostaa, André Ferreira 25/8/10, Andre a_ferreira1...@yahoo.com.br mailto:a_ferreira1967%40yahoo.com.br escreveu: De: Andre a_ferreira1...@yahoo.com.br mailto:a_ferreira1967%40yahoo.com.br Assunto: Re: [delphi-br] Virus ao compilar um programa Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Data: Quarta-feira, 25 de Agosto de 2010, 12:26 Pô Roni, eu não me atentei a isso não, mas vou verificar esse absurdo. Valeu, caso dê certo eu posto aqui. André --- Em ter, 24/8/10, Roni Rodrigo ronirodr...@yahoo.com.br mailto:ronirodrigo%40yahoo.com.br escreveu: De: Roni Rodrigo ronirodr...@yahoo.com.br mailto:ronirodrigo%40yahoo.com.br Assunto: Re: [delphi-br] Virus ao compilar um programa Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Data: Terça-feira, 24 de Agosto de 2010, 23:48 por mais estúpido que possa parecer... por acaso vc tem algum form ou unit chamada Principal? Se tiver, renomeia (renomeia pra outro nome, como diz o cara do suporte hehe)... o/ Em 24/08/2010 22:31, Andrei Luís escreveu: A um tempo atrás passei por algo semelhante, no meu caso era uma rotina de criptografia que estava utilizando e o AV (acho que era o Avast ou o Norton) berrava. []s Andrei Em 24 de agosto de 2010 22:15, Andre a_ferreira1...@yahoo.com.br mailto:a_ferreira1967%40yahoo.com.br mailto:a_ferreira1967%40yahoo.com.br escreveu: Pessoal Boa Noite. estou recompilando um programa antigo (Delphi 7) de um cliente que tem o AntiVirus Avira (Para quem esqueceu, é aquele do guarda-chuva) o mesmo insisti em dizer que tem um virus spy.banker.gen Ficando desagradavél toda vez que é executado. Já não sei o que fazer mais, já compilei, já passei 2 anti-virus, já recompilei um programa do Delphi 7, enfim... Não queria pedir ao cliente para desabilitar o antivirus dele, não seria legal. Alguém já passou por isso? Grato, André Ferreira [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] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Problema com o Delphi (Programa)
Olá, quando vou incluir um novo formulário ele me dá o erro: 'FrmConBase1' is not a valid identifier para conseguir inserir um novo formulário, tenho que refazer o projeto de novo com todos os form dai funciona perfeito, tem como resolver isso? Uso delphi 2010. Att
[delphi-br] Re: Problema com o Delphi (Programa)
Ajudou muito, obrigado, descobri agora com sua ajuda que o que faz isso
acontecer é usar o comando Ctrl+d no fonte do projeto, ele coloca esses
espaçoes ente o { e o nome do formulário.
att
--- Em delphi-br@yahoogrupos.com.br, Fellipe Henrique felli...@... escreveu
Abra o fonte do projeto, e na frente de cada form, no comentario, remova os
espaços entre { e }
No meu fiz isso, e funcionou.
[]s
Em 24 de agosto de 2010 15:49, rodrigo galvao...@... escreveu:
Olá, quando vou incluir um novo formulário ele me dá o erro:
'FrmConBase1' is not a valid identifier
para conseguir inserir um novo formulário, tenho que refazer o projeto de
novo com todos os form dai funciona perfeito, tem como resolver isso? Uso
delphi 2010.
Att
--
_
T.·.F.·.A.·.
Fellipe Henrique
http://blogs.digitumsoft.com.br/fellipeh
---
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Delphi 2010 ta doido?
tenta converter em pansichar...
ex:
Bematech_FI_VendeItem(PAnsiChar(codigo), PAnsiChar(descricao),
PAnsiChar(aliquota)...
Em 24/08/2010 17:01, Iran Lima escreveu:
Gente to com um problema ao passar parâmetros strings no Delphi 2010 ,
Exemplo: Se eu usar um SaveToFile(arquivo.txt) o arquivo gerado fica nome
“a” sem extensão.
Outro Exemplo ao chamar o método da Bemafi32.dll
Bematech_FI_VendeItem( ‘codigo’, descricao, aliquota,
sTipoQtde, FormatFloat('0', quantidade), iDecimal,
FormatFloat('0.00',valorUnitario),
sTipoDesconto, FormatFloat('0.00',0) );
so vai a primeira letra de cada parâmetro
2010-08-24 16:53:57 - Parâmetros: 0|S|I|I|0|2|1|$|0 (Log da
impressora), no
Debug passa tudo blz mas a impressora recebe errado
O que pode ser isso???
[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:
delphi-br-ow...@yahoogrupos.com.br
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:
delphi-br-unsubscr...@yahoogrupos.com.br
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] gerando Log de Tabelas
cria uma trigger na tabela o/ Em 24/08/2010 14:11, Marcelo Florindo escreveu: Colegas, Tenho uma base onde estão as tabelas do meu sistema e criei outra base somente para log. Uma pergunta, existe alguma maneira de eu pegar os campos alterados, automaticamento e joga-los para um stringão e salvar na base de dados de Log? Obrigado a todos, Marcelo
Re: [delphi-br] Virus ao compilar um programa
por mais estúpido que possa parecer... por acaso vc tem algum form ou unit chamada Principal? Se tiver, renomeia (renomeia pra outro nome, como diz o cara do suporte hehe)... o/ Em 24/08/2010 22:31, Andrei Luís escreveu: A um tempo atrás passei por algo semelhante, no meu caso era uma rotina de criptografia que estava utilizando e o AV (acho que era o Avast ou o Norton) berrava. []s Andrei Em 24 de agosto de 2010 22:15, Andre a_ferreira1...@yahoo.com.br mailto:a_ferreira1967%40yahoo.com.br escreveu: Pessoal Boa Noite. estou recompilando um programa antigo (Delphi 7) de um cliente que tem o AntiVirus Avira (Para quem esqueceu, é aquele do guarda-chuva) o mesmo insisti em dizer que tem um virus spy.banker.gen Ficando desagradavél toda vez que é executado. Já não sei o que fazer mais, já compilei, já passei 2 anti-virus, já recompilei um programa do Delphi 7, enfim... Não queria pedir ao cliente para desabilitar o antivirus dele, não seria legal. Alguém já passou por isso? Grato, André Ferreira [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Tabela de CEP's
Daniel, Por que uma procedure e não um function ou até mesmo uma view? Att. Rodrigo Rossi Skype: rodrigotrentinrossi MSN: rdrg_ro...@hotmail.com Fone: (45) 9963-1897 Cascavel - PR On 19/08/2010 13:41, Daniel Azevedo wrote: Eu tenho uma base de ceps que encontrei na net muito boa por sinal e bem atualizada, com codigo dos municipios e UF Algumas cidades sao subordinadas a outras intao nao consta cep mas tem a referencia da cidade a qual é subordinada. Fiz uma procedure dentro do BD para retornar os dados Pode ser por cep, parte do logradouro e tal Na tela de cadastro de clientes por exemplo, qdo informa o cep eu busco o endereço atraves da procedure e preencho os campos da tabela cliente Caso o usuario não saiba o cep, tem um botao de pesquisar ceps, onde ele localiza atraves da cidade ou parte do logradouro e tal Clica em ok na tela de pesquisa de ceps e volta para tela de cadastro preenchendo os campos. A base inicialmente é em mdb.. mas importei utilizando o Ib_expert Não sei se é contra as regras eu disponibilizar o link de onde encontrei Intao se algum moderador liberar eu posto o link do arquivo original Se for permitido posso liberar a minha base modificada em .fdb no 4shared Abraços Em 19/08/2010 11:52, Rodrigo Rossi escreveu: Bom dia. Gostaria de saber qual a melhor e/ou a mais usada implementação para usar a tabela de CEP's dos correios no sistema em FB. Por exemplo, o usuário está na tela de cadastro de cliente e digita o CEP do endereço do cliente, quando passa por este campo o sistema informa automaticamente a rua, bairro, cidade, estado, etc... Sei que o CEP tem faixas, por isso a minha dúvida. E também gostaria de saber onde posso encontrar a tabela de CEP's dos Correios para importar no meu FireBird? -- Att. Rodrigo Rossi Skype: rodrigotrentinrossi MSN: rdrg_ro...@hotmail.commailto:rdrg_rossi%40hotmail.com Fone: (45) 9963-1897 Cascavel - PR -- 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: delphi-br-ow...@yahoogrupos.com.br 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: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Como ler um xml acentuado usando a ferramenta Xml Mapper
pode ser a codificação de caracteres do teu xml http://www.w3.org/International/questions/qa-doc-charset Em 20/08/2010 12:01, Osman escreveu: Tenho um arquivo xml que possui dados acentuados e com o caracter especial . Estou usando a ferramenta Xml Mapper para criar um arquivo XTR de transformação para colocar os dados num ClientDataSet. Tudo funciona perfeitamente, mas só se o arquivo xml não tiver acentos ou caracteres especiais como por exemplo o . Algúem sabe como contornar este problema? Segue abaixo um trecho do arquivo xml (as primeiras linhas do arquivo) : empresas empresa nomeFULANO TAL LTDA ME/nome cnpj11222333000144/cnpj enderecoRUA JOSÉ ORLANDO PITÁGORAS, 129 SALA 6 - COPACABANA - SP CEP 5015151/endereco atividadeINDUSTRIA DE PANIFICAÇÃO/atividade
[delphi-br] Select TSQLQuery
Boa tarde. Tenho esse select dentro de um SQLQuery SELECT (SELECT SUM(TEMPOSTRAMITE.SOLTEMPOATENDIMENTO) FROM TEMPOSTRAMITE WHERE TEMPOSTRAMITE.SOLID = SOLICITACAO.SOLID AND TEMPOSTRAMITE.USUIDATENDENTE = SOLICITACAO.USUIDRESPONSAVEL) AS TOTAL_MIN, SOLICITACAO.*, USUARIO.USUNOME FROM SOLICITACAO INNER JOIN USUARIO ON SOLICITACAO.USUIDRESPONSAVEL = USUARIO.USUID WHERE USUARIO.USUUSUARIO = :USUARIO_INFORMADO AND SOLICITACAO.SOLDATAFECHAMENTO IS NULL AND SOLICITACAO.DATACANCELAMENTO IS NULL Quando executo a aplicação ele retorna o erro: qryChamados: Field 'TOTAL_MIN' not found Obs. Quando ativo a conexão em tempo de desenvolvimento funciona normal, ou seja não da erro nenhum, e também quando eu vou no meu ClientDataSet e aperto Crtl+F o campo TOTAL_MIN aparece la... O que eu to fazendo de errado? -- Att. Rodrigo Rossi Skype: rodrigotrentinrossi MSN: rdrg_ro...@hotmail.com Fone: (45) 9963-1897 Cascavel - PR
[delphi-br] Re: Select TSQLQuery [RESOLVIDO]
Eu tinha outro Sql dentro do meu código que não estava incluso o campo. Depois que arrumei isso a minha GRID era carregada e preenchida com os campos do tipo Texto todos desconfigurados, ou seja, caracteres muito estranhos, tentei mecher em algo sobre codificação mas nao surtiu efeito, então mudei meu select e resolveu o problema, segue o select valendo como dica: SELECT SOLICITACAO.*, USUARIO.USUNOME, (SELECT COALESCE(SUM(TEMPOSTRAMITE.SOLTEMPOATENDIMENTO),0) FROM TEMPOSTRAMITE WHERE TEMPOSTRAMITE.SOLID = SOLICITACAO.SOLID AND TEMPOSTRAMITE.USUIDATENDENTE = SOLICITACAO.USUIDRESPONSAVEL) AS TotalMinutos FROM SOLICITACAO INNER JOIN USUARIO ON SOLICITACAO.USUIDRESPONSAVEL = USUARIO.USUID WHERE USUARIO.USUUSUARIO = :NOME_USUARIO AND SOLICITACAO.SOLDATAFECHAMENTO IS NULL AND SOLICITACAO.DATACANCELAMENTO IS NULL Att. Rodrigo Rossi Skype: rodrigotrentinrossi MSN: rdrg_ro...@hotmail.com Fone: (45) 9963-1897 Cascavel - PR On 20/08/2010 14:56, Rodrigo Rossi wrote: Boa tarde. Tenho esse select dentro de um SQLQuery SELECT (SELECT SUM(TEMPOSTRAMITE.SOLTEMPOATENDIMENTO) FROM TEMPOSTRAMITE WHERE TEMPOSTRAMITE.SOLID = SOLICITACAO.SOLID AND TEMPOSTRAMITE.USUIDATENDENTE = SOLICITACAO.USUIDRESPONSAVEL) AS TOTAL_MIN, SOLICITACAO.*, USUARIO.USUNOME FROM SOLICITACAO INNER JOIN USUARIO ON SOLICITACAO.USUIDRESPONSAVEL = USUARIO.USUID WHERE USUARIO.USUUSUARIO = :USUARIO_INFORMADO AND SOLICITACAO.SOLDATAFECHAMENTO IS NULL AND SOLICITACAO.DATACANCELAMENTO IS NULL Quando executo a aplicação ele retorna o erro: qryChamados: Field 'TOTAL_MIN' not found Obs. Quando ativo a conexão em tempo de desenvolvimento funciona normal, ou seja não da erro nenhum, e também quando eu vou no meu ClientDataSet e aperto Crtl+F o campo TOTAL_MIN aparece la... O que eu to fazendo de errado?
Re: RES: [delphi-br] Componente ou Solução para Controle de Usuário.
Manda para o meu email se possível... Compativel com Delphi2010??? Att. Rodrigo Rossi Skype: rodrigotrentinrossi MSN: rdrg_ro...@hotmail.com Fone: (45) 9963-1897 Cascavel - PR On 20/08/2010 18:19, Mauri Lima wrote: Boa Tarde, A ultima versão e a UserControl2.30RC3, tenho aki se vc quiser posso enviar para seu e-mail ou se alguém quiser e disponibilizar, não sei se posso por na área de arquivos do grupo. Mauri Lima Boa Vista - Roraima O Ponto mais setentrional ao norte do Brasil e aqui!!.. Monte Caburaí homologado em 1999. Como extremo norte do Brasil. -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 Ralp Alves Bezerra Enviada em: sexta-feira, 20 de agosto de 2010 07:49 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: RES: [delphi-br] Componente ou Solução para Controle de Usuário. Disponibilizei a versão 2.18A do UserControl no endereço abaixo: http://www.upshare.me/files/hQRQel1282304804/UserControl2.18a.rar.html Não sei ainda se existe uma versão mais nova. Mas veja se esta lhe ajuda. Trabalho com UserControl a muito tempo e não tenho o que me queixar dele. Abraço. 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 Marciano Venter Enviada em: quinta-feira, 19 de agosto de 2010 17:04 Para: lista-del...@yahoogrupos.com.br mailto:lista-delphi%40yahoogrupos.com.br; delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: [delphi-br] Componente ou Solução para Controle de Usuário. Boa tarde pessoal, estou procurando um componente bom pra controle de acesso dos usuarios, eu utilizada o UserControl, mas o site está fora do ar a um tempinho e não tenho o arquivo, estou procurando pelos arquivos dele ou por outra opção. Alguma sugestão ? Atenciosamente, [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Select TSQLQuery [RESOLVIDO]
vai uma dica trabalho com alguns banco de dados gigantescos e isso me obrigou a excluir definitivamente os subselects das consultas, o tempo de resposta aumenta exponencialmente de acordo com o número de registros das tabelas... (imagine que para cada tupla ele executa o select interno...) a solução foi usar functions, views e procedures para retornar consultas desse tipo.. o tempo de resposta diminuiu em até 60% dependendo o caso... o/ Em 20/08/2010 17:36, Rodrigo Rossi escreveu: Eu tinha outro Sql dentro do meu código que não estava incluso o campo. Depois que arrumei isso a minha GRID era carregada e preenchida com os campos do tipo Texto todos desconfigurados, ou seja, caracteres muito estranhos, tentei mecher em algo sobre codificação mas nao surtiu efeito, então mudei meu select e resolveu o problema, segue o select valendo como dica: SELECT SOLICITACAO.*, USUARIO.USUNOME, (SELECT COALESCE(SUM(TEMPOSTRAMITE.SOLTEMPOATENDIMENTO),0) FROM TEMPOSTRAMITE WHERE TEMPOSTRAMITE.SOLID = SOLICITACAO.SOLID AND TEMPOSTRAMITE.USUIDATENDENTE = SOLICITACAO.USUIDRESPONSAVEL) AS TotalMinutos FROM SOLICITACAO INNER JOIN USUARIO ON SOLICITACAO.USUIDRESPONSAVEL = USUARIO.USUID WHERE USUARIO.USUUSUARIO = :NOME_USUARIO AND SOLICITACAO.SOLDATAFECHAMENTO IS NULL AND SOLICITACAO.DATACANCELAMENTO IS NULL Att. Rodrigo Rossi Skype: rodrigotrentinrossi MSN: rdrg_ro...@hotmail.com mailto:rdrg_rossi%40hotmail.com Fone: (45) 9963-1897 Cascavel - PR On 20/08/2010 14:56, Rodrigo Rossi wrote: Boa tarde. Tenho esse select dentro de um SQLQuery SELECT (SELECT SUM(TEMPOSTRAMITE.SOLTEMPOATENDIMENTO) FROM TEMPOSTRAMITE WHERE TEMPOSTRAMITE.SOLID = SOLICITACAO.SOLID AND TEMPOSTRAMITE.USUIDATENDENTE = SOLICITACAO.USUIDRESPONSAVEL) AS TOTAL_MIN, SOLICITACAO.*, USUARIO.USUNOME FROM SOLICITACAO INNER JOIN USUARIO ON SOLICITACAO.USUIDRESPONSAVEL = USUARIO.USUID WHERE USUARIO.USUUSUARIO = :USUARIO_INFORMADO AND SOLICITACAO.SOLDATAFECHAMENTO IS NULL AND SOLICITACAO.DATACANCELAMENTO IS NULL Quando executo a aplicação ele retorna o erro: qryChamados: Field 'TOTAL_MIN' not found Obs. Quando ativo a conexão em tempo de desenvolvimento funciona normal, ou seja não da erro nenhum, e também quando eu vou no meu ClientDataSet e aperto Crtl+F o campo TOTAL_MIN aparece la... O que eu to fazendo de errado? [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Tabela de CEP's
Bom dia. Gostaria de saber qual a melhor e/ou a mais usada implementação para usar a tabela de CEP's dos correios no sistema em FB. Por exemplo, o usuário está na tela de cadastro de cliente e digita o CEP do endereço do cliente, quando passa por este campo o sistema informa automaticamente a rua, bairro, cidade, estado, etc... Sei que o CEP tem faixas, por isso a minha dúvida. E também gostaria de saber onde posso encontrar a tabela de CEP's dos Correios para importar no meu FireBird? -- Att. Rodrigo Rossi Skype: rodrigotrentinrossi MSN: rdrg_ro...@hotmail.com Fone: (45) 9963-1897 Cascavel - PR
Re: [delphi-br] Aplicativo aberto pelo Delphi
se eu não me engano na unit System tem uma propriedade ou método chamado DebugHook ela armazena o Handle do debugger do delphi.. ou seja, se ela for igual a 0, não há um debugger associado. o/ Em 19/08/2010 09:04, Daniel Azevedo escreveu: Ola galera Tem como saber se o meu programa esta em modo de Depuração? Ou seja, se o aplicativo foi aberto pelo Delphi. Hoje tenho uma rotina que verifica se o Delphi esta aberto. Caso esteja aberto o sistema ja abre automaticamente. Sem a necessidade de informar usuario, senha, chave de liberacao e tal. Isso facilita muito, ninguem merece ficar digitando usuario e senha toda hora O problema é que se a pessoa tiver o delphi no computador e estiver aberto o sistema fica liberado e logado com o usuario master (Bug Faill rss). Se alguem tiver uma dica... Se não voiu ter q tirar esta facilidade do sistema
Re: [delphi-br] Trigger estoque
não seria só adicionar o campo valor no teu update? update produto set produto.prod_qtd = (prod_qtd + new.qtd)*, produto.valor = new.valor* where prod_cod = new.prodcod; Em 13/08/2010 09:10, Ricardo Rocha escreveu: Olá a todos, Tenho uma tabela de produto e um de entrada_produto, fiz um trigger (after post) para a tabela entrada_produto para atualizar o estouque, está funcionando blz... Mas como faço para implementar nesta trigger para atualizar também o valor do produto. segue o script da trigger: CREATE OR ALTER TRIGGER TG_ENTRADA FOR ENT_PRODUTO ACTIVE AFTER INSERT POSITION 0 AS begin /* Trigger text */ update produto set produto.prod_qtd = (prod_qtd + new.qtd) where prod_cod = new.prodcod; end Obrigado a todos [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Estrutura Padrão de So ftware
Entendi Adriano... Eu to meio perdidão mesmo na estrutura que terei que montar, programar e lógica é facil, o problema é como fazer da melhor maneira sabe Aproveitando, gostaria de algumas dicas de como posso organizar meu sistema em pacotes BPL, já sei como criar pacotes, adicionar ao projeto... bla...bla...bla... mas gostaria de saber como vocês separam isso, é por módulo? Se sim voces criam um DM para cada projeto? Eu tenho um arquivo .INI que o sistema lê antes de conectar na base, em qual BPL posso deixar esse arquivo? E a organização de pastas com os arquivos do delphi (PAS, DCU, DCP) como voces organizam isso? Ainda não consegui achar a estrutura que me agrade Att. Rodrigo Rossi Skype: rodrigotrentinrossi MSN: rdrg_ro...@hotmail.com Fone: (45) 9963-1897 Cascavel - PR On 09/08/2010 19:03, Adriano de F. Trindade wrote: Não quero te desanimar, mas mostrar os problemas provoca a busca de soluções para eles, e com isso aprende-se. Pelo jeito você está meio cru no negócio, e a lógica, você até que está indo bem, considerando a herança dos formulários. O que falta, na real, é você fracionar estes seus casos de uso aí. Explico: DataSource, por exemplo, alguns formulários vão precisar de um, outros de 5 e outros de 20. Se você fazer no seu modelo primário um único DataSource, em cada formulário que você criar herdando este formulário, terá que adicionar mais DataSources. Mas, se você fizer o modelo com 10, aí você atende a maioria dos casos, e em raras oportunidades terás que adicionar mais data sources além desses 10 aí. Entendeu o exemplo? Eu quis dizer: projetar considerando o máximo de possibilidades para cada form, e não o mínimo. Certo? Agora esqueça esses data sources aí. Crie um único Data Module, com um nome bem curto (eu uso DM) e coloque todos seus componentes de acesso á dados lá: ClientDataSets, DataModules, DataSetProviders e por aí vai. Desta maneira, você não vai ter componentes de acesso á dados espalhados pelo seu projeto. Eu comecei há 5 anos atrás um sistema mais ou menos da maneira que você estava começando este. Começou com 34 tabelas e hoje tem 220 tabelas no BD. De todo o tempo de desenvolvimento, no mínimo 30% dele foi refazendo coisas que fiz sem considerar todas as possibilidades. Por exemplo: ao projetar um formulário para Notas Fiscais, você precisa de uma tabela para os dados da NF e outra para o detalhamento da NF, que são os produtos/serviços. Primeiro fiz com uma tabela para produtos e outra para serviços: tive que refazer para colocar produtos e serviços em uma única tabela. Alguns valores como frete e seguro iam no corpo da NF. Não, não dá certo, valores de frete e seguro tem que ser distribuídos pelos itens da NF para conseguir gerar a NF-e direito. No corpo da NF, só dados cadastrais, dados monetários tem que ser tudo nos itens. E tome refazer enormes partes do código. Minha dica pra ti é: vá para o Delphi por último. Faça funcionar no papel primeiro. Vai lidar com Notas Fiscais? Estude o lay-out da NFe e do SPED antes para saber de quais dados você precisará e modelar seu BD de acordo. Sugiro usar a padronização de nomes de campos que consta no lay-out da NF-e, vai tornar sua vida mais fácil no futuro. Vais trabalhar com ECF? Estude o manual do PAF-ECF. Vais gerar boletos para bancos? Estude a documentação sobre quais dados você precisa informar nos arquivos gerados para os bancos e use eles nas contas á pagar/receber. Quais impostos vais ter que informar? Campos no BD para cada um. É mais importante para seu projeto entrar nas empresas e ver como que todos trabalham, que informações um departamento precisa obter do outro, o rastreamento de quem fez o quê, o controle de acesso, permissões para os menus, acesso de vários usuários ao mesmo tempo... Depois que tiver tudo isso no papel, aí sim você vai pro Delphi. Porque sabendo isso tudo, aí você saberá quantos formulários vai precisar, quantos campos em cada formulário, quantos ClientDataSets... Bote a prancheta embaixo do braço, esqueça a programação de software acadêmica e disseque a prática das pessoas. Só depois você vai saber o quê precisa fazer no Delphi e quais problemas terá que solucionar DE VERDADE. Falou! 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 Rodrigo Rossi Enviada em: segunda-feira, 9 de agosto de 2010 17:42 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br; n...@yahoogrupos.com.br mailto:NDDV%40yahoogrupos.com.br Assunto: [delphi-br] Estrutura Padrão de Software Boa tarde. Estou desenvolvendo já faz uns 3 meses um software em Delphi 2010 para ERP, não é um ERP muito grande mas a idéia é atender vários ramos de atividade, é um projeto importantíssimo para min, este software estou desenvolvendo sozinho, como nunca fiz um projeto grande
Re: [delphi-br] Re: Como Associar 2 Classe a uma variavel
se vc quer só criar as querys, pode usar uma factory: TQueryFactory = class class function CreateQry(ConnType: ???): TDataSet; end; implementation class function TQueryFactory.CreateQry(ConnType: ??): TDataSet; begin if ConnType = ctBDE then Result := TQuery.Create(nil) else if FConnType = ctUniDac then Result := TUniQuery.Create(nil); end; ai vc constroi as classes usando a factory: q := TQueryFactory.CreateQry(FConnType); mas dentro da factory, como disse o Márico, vc vai ter que ter um if ou case pra checar qual o tipo de conexão o/ Em 09/08/2010 15:25, NTS INFORMÁTICA escreveu: Eric, Na verdade, muitos metodos são comuns as 3 ou mais classes que eu fosse trabalhar, para a conexao com meu dicionario de dados., tenho que fazer isso para compatibilidade de conexões com BDE. Então eu aproveitaria muita linha de codigo no meu dicionario de dados. q.DataBaseName // Metodo Somente na Tquery ( Derivado da TDataBase ) q.Connection // Metodo Somente na TUniQuery ( Derivado da TUniConnection ) q.Connection // Metodo Somente na TAdoiQuery ( Derivado da TAdoConnection ) // todos os demais metodos são iguais q.SQL q.Open q.Close - Original Message - From: eric_developer To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Sunday, August 08, 2010 9:18 PM Subject: [delphi-br] Re: Como Associar 2 Classe a uma variavel Marcio, não vejo sentido lógico no pedido, o IF será necessário mesmo que tivesse chamando somente uma classe, ainda teria que testar FConnType. Eric Developer Systems --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br, NTS INFORMÁTICA ntsi...@... escreveu Amigos, existe alguma forma ou maneira para associar classes diferentes a uma variavel, pois muito metodos sao comuns as 2 classes, e outro não, isso seria muito bom para evitar IFs Exemplo Abaixo ? l var q : TComponent; i : Integer; begin if FConnType = ctBDE then q := TQuery.Create(nil); if FConnType = ctUniDac then q := TUniQuery.Create(nil); Márcio [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: Ajuda com Checklistbox
Valeu pela Ajuda Obrigado a todos --- Em delphi-br@yahoogrupos.com.br, SERGIO LOPES moro...@... escreveu //0 - item 1 //1 - item 2 if lista.ItemIndex = 0 then lista.Checked[1] := lista.Checked[0] = false; if lista..ItemIndex = 1 then lista.Checked[0] := lista.Checked[1] = false; //esse codigo quando vc desmarca o item 1 o dois vai marcar autormaticamente e vice-versa. a propriedade itemindex informa em qual item o cursor esta no momento dai é só fazer a checagem do outro item que vc quer tratar.; --- Em sáb, 7/8/10, Darkzad dark...@... escreveu: De: Darkzad dark...@... Assunto: Re: [delphi-br] Re: Ajuda com Checklistbox Para: delphi-br@yahoogrupos.com.br Data: Sábado, 7 de Agosto de 2010, 10:26 Entendi, Olha se esse código ajuda. if (CheckListBox1.Checked[1]) AND (CheckListBox1.Checked[2]) then if (CheckListBox1.Selected[1]) then CheckListBox1.Checked[2] := False else if (CheckListBox1.Selected[2]) then CheckListBox1.Checked[1] := False else if (CheckListBox1.Checked[1]) then CheckListBox1.Checked[2] := False else if (CheckListBox1.Checked[2]) then CheckListBox1.Checked[1] := False; []'s Em 07-08-2010 09:28, rodrigo escreveu: eu fiz isso, mas o problema é o seguinte: se o item 1 ta selecionado e eu clicar para selecionar o item 2, não funciona com o código abaixo, pois ele vai ver que o 1 ta selecionado e vai desselecionar o item dois antes de verificar o se o item 2 ta selecionado if CheckListBox1.Checked[1] then CheckListBox1.Checked[2] := False; if CheckListBox1.Checked[2] then CheckListBox1.Checked[1] := False; Como acertar isso? --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br, Darkzad darkzad@ escreveu No evento OnclickCheck vc verfica se o item1 está selecionado. if CheckListBox1.Checked[1] then CheckListBox1.Checked[2] := False; Não esqueça que a array começa do Zero. []'s Em 06-08-2010 19:53, rodrigo escreveu: Olá, tenho um checklistbox onde tenho dois vários itens, mas tem dois que são mutuamente excludentes, isto é quando um for selecionado o outro tem que estar sem seleção, como posso fazer isso automático, para que quando meu usuario selecionar o item1, o item2 perca a seleção e vice-versa. Desde já agradeço [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] Estrutura Padrão de Software
Boa tarde. Estou desenvolvendo já faz uns 3 meses um software em Delphi 2010 para ERP, não é um ERP muito grande mas a idéia é atender vários ramos de atividade, é um projeto importantíssimo para min, este software estou desenvolvendo sozinho, como nunca fiz um projeto grande assim de delphi, gostaria da opinião de vocês sobre alguns assuntos. Estou com muita dificuldade em definir a arquitetura do software (o modelo), por exemplo, o que fiz até agora foi: 1 - Criar um DM para conexão com o Firebird usando SqlConnection. 3 - Criar três formulários genéricos que serão herdados para a geração de outros (herança de formulários). Nesses formulários coloquei um DataSource. 4 - Criei um cadastro de clientes herdando do formulário genério do item 3, neste cadastro, coloquei um SqlQuery, um DataSerProvider, um ClientDataSet e um DataSource, onde ligo um no outro e o coloco o DataSource igual ao do Form genérico, lá no form genérico faço todos os comandos de CRUD e também navigator usando o datasource (dsrCadastros.DataSet as TClientDataSet). Isso achei legal pois quando crio um novo formulário herdando do genérico só me preocupo em enviar alguns parâmetros como: Nome da tabela, campos chave etc.. 5 - Como viram no item 4, estou usando os componentes de conexão dentro do formulário e não estou usando um DataModule separado para isso (EU achei melhor, aceito sujestões). Gostaria de saber de vocês se isso que estou fazendo está certo, se é isso que acontece na prática, trabalho com programação em linguagem própria e estou no segundo ano de informática, nunca trabalhei com delphi em nenhuma empresa por isso estou com essas dificuldades. Já tenho alguns projetos prontos em delphi mas nada se compara a este. Ainda tenho que colocar no sistema: 1 - Parte multiusuário: Como vocês fazem isso com firebird? Tentei colocar DataSnap no meu projeto mas vi que teria que mudar toda a estrutura que já fiz, ia dar muito trabalho, então somente fiz um arqivo .ini que o usuário indica onde é o servidor e o arquivo do firebird (*.fdb;*.gdb). 2 - Permissão de usuário nas telas: Quero fazer uma tela principal com botoes, gráficos, atalhos para relatórios, etc. Mas como vou fazer o gerenciamento disso, por exemplo, o usuário A não pode ver as vendas do mês e na tela principal tem um botão la que mostra as vendas por mês. OBSERVAÇÃO: Eu até sei como resolver a maioria desses problemas, a parte da lógica é facil, o que estou com dificuldades é COMO resolver esses problemas, como definir uma estrutura que quando o projeto crescer não terei que fazer uma mudança grande para atender um requisito, quero reaproveitamento de código. Abraços. -- Att. Rodrigo Rossi Skype: rodrigotrentinrossi MSN: rdrg_ro...@hotmail.com Fone: (45) 9963-1897 Cascavel - PR
Re: [delphi-br] [OFF] Sistema de Comissão por Conta Corrente
Leonardo, também tenho algo parecido, mas fiz com percentual. Na tela de pedidos o sistema traz a comissão padrão do representante que pode ser definida uma % em: Cliente, Marca, Produto, Tabela de Preço. 1 - São cadastradas as faixas de descontos da comissão do representante, por exemplo: para o representante bolinha e produto quadrado e na competencia de 01/01/2010 a 31/02/2010 quero que: % desconto - % a Diminuir Rep. 10% - 10% 20% - 15% e assim vai, você pode criar um parâmetro tambem (poderá ser no cadastro da empresa/filial ou representante) para definir o desconto máximo por pedido. Quando for fechar/alterar o pedido será calculada a comissão do representante com base nisso. Uma dica ai Se consegui ajudar hehe Att. Rodrigo Rossi Skype: rodrigotrentinrossi MSN: rdrg_ro...@hotmail.com Fone: (45) 9963-1897 Cascavel - PR On 09/08/2010 17:41, Leonardo Quinino wrote: Eita eu tenho isso no meu sistema. Crie uma tabela de comissões No item crie a variação de preços.. de 1000, até 900, - comissáo A 899 até 600 - comissáo b... e por ae vai na hora de calcular o percentual, só comparar em qual faixa de preço está e retornar o percentual Em 9 de agosto de 2010 17:23, Iran Limai...@sgisolution.com.br escreveu: Gente um cliente meu me pediu para implementar um relatório de comissões de venda por Conta Corrente onde a comissão do vendedor diminui conforme ele aumenta o desconto e aumenta quando ele da um acréscimo no preço tb. Alguém pode me explicar como funciona? algum material ? Desde já agradeço. Iran Lima [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: Ajuda com Checklistbox
eu fiz isso, mas o problema é o seguinte: se o item 1 ta selecionado e eu clicar para selecionar o item 2, não funciona com o código abaixo, pois ele vai ver que o 1 ta selecionado e vai desselecionar o item dois antes de verificar o se o item 2 ta selecionado if CheckListBox1.Checked[1] then CheckListBox1.Checked[2] := False; if CheckListBox1.Checked[2] then CheckListBox1.Checked[1] := False; Como acertar isso? --- Em delphi-br@yahoogrupos.com.br, Darkzad dark...@... escreveu No evento OnclickCheck vc verfica se o item1 está selecionado. if CheckListBox1.Checked[1] then CheckListBox1.Checked[2] := False; Não esqueça que a array começa do Zero. []'s Em 06-08-2010 19:53, rodrigo escreveu: Olá, tenho um checklistbox onde tenho dois vários itens, mas tem dois que são mutuamente excludentes, isto é quando um for selecionado o outro tem que estar sem seleção, como posso fazer isso automático, para que quando meu usuario selecionar o item1, o item2 perca a seleção e vice-versa. Desde já agradeço [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] carregar a imagem salva em um servidor externo
ou vc salva o arquivo .bmp em uma pasta no servidor, ou grava a imagem diretamente no banco se a imagem ficar na maquina do usuario, as demais maquinas que consultarem não vão encontrar o arquivo pelo caminho... o/ Em 07/08/2010 12:16, Adenilson escreveu: Caros amigo da lista eu uso delphi 7 com interbase, tenho um servidor onde salvo as fotos dos usuário que são cadastrados. No meu banco eu só salvo o caminho que é : c:\...\...\foto.bmp. Eu queria saber como faço para carregar essa imagem novamente quando for fazer uma busca. como seria essa busca no delphi. Gostaria da ajuda dos senhores. Desde já agradeço.
[delphi-br] Ajuda com Checklistbox
Olá, tenho um checklistbox onde tenho dois vários itens, mas tem dois que são mutuamente excludentes, isto é quando um for selecionado o outro tem que estar sem seleção, como posso fazer isso automático, para que quando meu usuario selecionar o item1, o item2 perca a seleção e vice-versa. Desde já agradeço
Re: [delphi-br] Programa para Modelagem de Dados
o Rational Studio da IBM é muito bom, mas caro e pra mim não valeria a pena, por isso nem fui muito atrás... baixei o trial do Enterprise Architect e to pensando seriamente em adota-lo... além de completo ele também gera o escopo das classes para diversas linguagens, incluindo o Delphi... dos programas free, o q eu mais gostei foi do Jude... ele é bem completo... mas claro que há várias outras opções... o/ Em 03/08/2010 12:27, Alexandre escreveu: Pessoal, qual programa de modelagem de dados vocês usam? Qual o melhor? Há algum free(preciso perguntar)? A idéia é que irei usar múltiplos bancos(firebird, oracle, mysql, sqlserver), então a geração automática de scripts(ou banco) ajudaria muito. Sei que pedir um que criasse triggers, procedures, functions, sequences para cada banco seria demais, mas se existir. :) Grato, Alexandre [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Porblemas com acentuação
configura teu teclado para português. o/ Em 31/07/2010 11:24, Desnvolvimento - Marketing Rápido escreveu: Ola Pessoal, estou com um problema no delphi 2010, aonde tudo que eu digito no código com acento ele faz isto por exemplo não = n~ao é = ´e O que será que esta causando isto? Abraços -- Pablo Farias Fone(81)9169.3339 develo...@marketingrapido.com.br mailto:developer%40marketingrapido.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] Lazarus
aaah galera.. qto stress... se eu fosse vcs matava esse assunto... hehe.. sexta feira poxa vamo toma uma cervejinha... curti um rock'n roll... até segunda tudo se resolve... ;) paz pra vcs... e bom final de semana. Em 30/07/2010 18:09, Eny Urias escreveu: Faço parte da lista desde 2006. Vc está mal informado! E eu tenho esse defeito de ir a favor dos fracos e oprimidos mesmo! Qual o problema? Não suporto arrogancia! E adoro compartilhar conhecimento... Seja ele de Delphi, Lazarus, .Net, etc! Acho que a lista deveria criar uma regra onde o que não for resposta nem deveria aparecer! Assim evita esses aborrecimentos com tiradas, xingamentos, ironias... -- Eny Trova Urias Somos o que repetitivamente fazemos, portanto, a excelência não é um feito, mas um hábito- Aristóteles De: Walter Chagas (Bol) wchag...@bol.com.br mailto:wchagasj%40bol.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Sexta-feira, 30 de Julho de 2010 16:51:35 Assunto: Re: [delphi-br] Lazarus Evandro, Eu não estou estressado. Pra voce ter uma ideia, se eu tivesse estressado eu teria é xingado e não escrito o que escrevi. A questão é que esse tema Delphi x Lazarus, só este ano, já foi debatido aqui umas 4-5 vezes sendo que em todas chegou-se à mesma conclusão. Poxa meu, será que é trabalhoso ir no historico de mensagens da lista ou mesmo no google ou Yahoo e pesquisar? Levantar comparativos e Cases? Tem que reabrir o tópico novamente pra se chegar ao mesmo Feedback? Esse assunto tá igual, em tempos remotos ao Delphi x VB, o Descopilador pra Delphi ou mesmo se o Delphi é melhor que o Java. Eram assuntos que viviam rondando a lista e mesmo assim, todo dia aparecia um perguntando a mesma coisa. Eu não sou anti-lazarus e muito menos falar de Lazarus aqui seja crime, visto que até cheguei a usar ele aqui uma vez na Telemont pra montar um coletador. A questão, nem vem ao caso, é que ele é tão limitado, que no final saiu mais negócio reescrever o coletador em Delphi já que com o Lazarus a coisa não funcionava. E tem gente que ainda fala que ele é melhor que o Delphi. Quanto ao Sr. Clécio, eu tomei uma certa antipatia dele porque tudo que eu postava nas listas, ele aparecia pra retrucar em tom irônico como se tivesse mesmo é querendo me atingir. Além do que acho bastante inconveniente voce, numa lista de Delphi, ficar só fazendo apologia a uma outra ferramenta o tempo todo. Cê já pensou voce, num forum do Corinthians, ficar só falando de Palmeiras ou São Paulo lá? Eu penso que ele criou esta rusga comigo desde uma vez que ele sugeriu suspender usuarios na lista-delphi, onde sou moderador, por não eliminar o corpo das mensagens anteriores. Eu, educadamente, respondi em publico que tal medida não se justificava por não se tratar de falta grave e além do mais, não era interessa da administração da lista, criar um ambiente pesado aonde tudo é proibido e o negócio é suspender e banir todo mundo por motivo futil. Ele não gostou disto e além de bater boca comigo em publico sobre o assunto, ainda passou a ficar protestando contra isto pra todo mundo. Quem participa lá, sabe muito bem que é raro punirmos alguem lá. Hoje mesmo, um postou uma corrente (Assunto totalmente fora do escopo da lista e intolerado). Pois bem, se eu tivesse estressado como vocês falam, eu teria posto o usuário pra fora da mesma hora, mas não. Apenas limitei a um aviso público pedindo ao pessoal pra manter o foco da lista e mais nada. Até esqueci do assunto. Quanto a Sra. Eny, eu gostaria apenas de salientar, que em todas vezes que respondi duvidas dela ou entrei em discussões que a envolvia, e jamais a desrespeitei ou desacatei e muito menos expus algum tipo de juizo de valor sobre a mesma em publico. Sempre tive o respeito e a linha ao responder-lhe alguma coisa. Mas vejo que ela faz parte de um segmento de associados aqui que se veem no direito de atacar, insultar e degradar pessoas, que não conhece pessoalmente, mas não admitem que voce fale um A a seu respeito. Eu, nestes 14 anos de lista delphi-br, já to pra lá de acostumado com isto vei. Esse tipo de associado, vem, não dura muito tempo aqui e vai. e vem outros com a mesma filosofia: Adoram jogar pedras mas não aceitam ser apedrejados. Porém, como eu disse anteriormente, deixa pra lá. Não vou tocar mais nesse assunto de Delphi x Lazarus. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br mailto:wchagasj%40bol.com.br http://delphitocorporerm.blogspot.com/ MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: Evandro Siqueira vans...@gmail.com mailto:vansiqq%40gmail.com To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Friday, July 30, 2010 11:40 AM Subject: Re:
[delphi-br] Sistema Livro Fiscal
Caros se alguem tiver um sistema de livro fiscal com fontes em delphi ou java, que atenda a legislação estou comprando favor enviar email com proposta para figue...@habilcnt.com.br. De preferencia em delphi 2010 e componentes nativos do mesmo. Requisitos Basicos: Entrada e Saida de NF Relatórios: Livro de Entradas Livro de Saidas Livro de Apuração Arquivos: sintegra
Re: [delphi-br] xml, sql e ClientDataSet
vc tb pode carregar o XML e utilizar o Locate para localizar o registro mas se vc tiver mtos registros, o melhor seria utilizar algum SGDB mesmo... o/ Em 27/07/2010 01:13, Rubem Nascimento da Rocha escreveu: SQL em XML local? Sem chance! O máximo q podes fazer é aplicar um filtro no ClientDataSet usando as propriedades Filter e Filtered ou o evento OnFilterRecord. Somente isso! DataSnap (antigo MIDAS) não tem embutido nele um SQL engine pra fazer esse tipo de consulta com XML! Sds. To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br From: asandro1...@yahoo.com.br mailto:asandro1501%40yahoo.com.br Date: Tue, 27 Jul 2010 03:11:16 + Subject: [delphi-br] xml, sql e ClientDataSet Olá Pessoal Preciso fazer uma consulta em Sql utilizando dois arquivos xml criados com o clientdataset. Queria fazer esta consulta utilizando clientdataset também, alguem sabe como? É que a aplicação não vai crescer e por isso não queria utilizar um banco de dados. Só pra entender a aplicação consiste num controle de clientes em pendência de pagamentos, tem duas tabelas uma de clientes e outra de parcelas, preciso da consulta pra juntar as duas tabelas através do código do cliente, nunca usei o clientdataset pra isso, se alguém puder me ajudar eu agradeço. Abraço __ QUER ANEXAR VÁRIAS FOTOS NUM EMAIL? PREPARE-SE PARA O NOVO HOTMAIL. CLIQUE AQUI. http://www.windowslive.com.br/public/product.aspx/view/1?ocid=Hotmail:Live:Hotmail:Tagline:senDimensao:QUERANEXAR80:- [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] Demora na inicialização em rede
acho q da pra complementar um pouco 4 - tente desabilitar o firewall do windows, ele pode deixar sua aplicação mais lenta dependendo a porta que vc utiliza.. 5 - Verifique os cabos e roteadores... talvez o problema não esteja na sua aplicação, mas sim na sua rede. o/ Em 27/07/2010 15:15, Fabiano Almeida escreveu: pelo que entendi a base de dados é local, e mesmo que coloque em outro pc o programa junto com o banco de dados tem o mesmo comportamento de demora para abrir se o pc estiver conectado a rede, então algumas possibilidades: 1 - seu computador está com vírus que se ativa com rede, por isso a demora, e ao levar o projeto pra outro pc levou junto o virus (isso ja me ocorreu e deu muita dor de cabeça) 2 - o seu delphi (talvez com virus, muito comum nas versões alternativas)ou algum componente que vc utilize está causando esse comportamento, verifique se não tá inicializando algum componente de email, log de erros ou outro que utilize rede, protocolo http ou afins 3 - tente criar um programa simples, que apenas abra telas e veja se ocorre o mesmo, depois insira nele um novo banco de dados e verifique Sds, Fabiano de Almeida Em 27/07/2010 14:48, Ferreira escreveu: Caros colegas, Tenho um sistema em Delphi e base de dados FireBird, quando executo ele no meu desktop ou em outro sem o cabo de rede ele inicia de 7 a 10 segundos, mas se conectar o cabo de rede ele demora 40 segundos. Alguém pode dar uma dica porque acontece isso. Desde já agradeço muito. Grato, José Ferreira [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: MethodAddress retornando NIL [CANCELADO]
propriedades da seção published e métodos da public métodos private e protected não podem ser chamados externos à classe, pois isso quebra o paradigma da orientação a objetos o/ Em 19/07/2010 22:07, Fabricio Colombo escreveu: Essa rotina só funciona em um método declarado na seção published, correto?
Re: [delphi-br] Re: MethodAddress retornando NIL [CANCELADO]
Corrigindo... na empresa a gente usa o 2007 tb... e tem a mesma rotina funcionando não sei quanto as anteriores, pois não lembro de ter utilizado mto a rtti o/ Em 21/07/2010 13:10, Roni Rodrigo escreveu: eu to usando a 2010... mas se eu não me engano eu vi isso na 2009 tb... o/ Em 21/07/2010 12:59, Rubem Rocha escreveu: Então a RTTI foi revisada para atuar no escopo public de objetos. Isso aconteceu a partir de qual versão do Delphi? Sds. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br] Em nome de Roni Rodrigo Enviada em: quarta-feira, 21 de julho de 2010 11:51 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] Re: MethodAddress retornando NIL [CANCELADO] propriedades da seção published e métodos da public métodos private e protected não podem ser chamados externos à classe, pois isso quebra o paradigma da orientação a objetos o/ Em 19/07/2010 22:07, Fabricio Colombo escreveu: Essa rotina só funciona em um método declarado na seção published, correto? [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: MethodAddress retornando NIL [CANCELADO]
cara... eu utilizo a RTTI pra fazer chamadas a métodos da classe...
para manipular os métodos e propriedades eu utilizo helpers para as
classes da RTTI... se eu não me engano funciona com os métodos de
qualquer escopo (ou menos da strict private.. não tenho certeza)... na
verdade esse código eu achei na internet.. no site da embarcadero
mesmo... mas agora não consegui achar pra passar o link.. então vou
colocar o exemplo de como eu utilizo aqui
---
Uses TypInfo, ObjAuto, uRClassProperties;
type
// declara os helpers para a RTTI
TParamInfoHelper = record helper for TParamInfo
public
function AsString: string;
function NextParam: PParamInfo;
end;
TReturnInfoHelper = record helper for TReturnInfo
public
function AsString: string;
end;
TMethodInfoHeaderHelper = record helper for TMethodInfoHeader
private
function GetReturnInfo: PReturnInfo;
public
property ReturnInfo: PReturnInfo read GetReturnInfo;
end;
TObjectHelper = class helper for TObject
public
function RTTIMethodsAsString: string;
end;
function DescriptionOfMethod( Obj: TObject; MethodName: string ): string;
implementation
uses
SysUtils;
const
SHORT_LEN = sizeof(ShortString) - 1;
function DescriptionOfMethod( Obj: TObject; MethodName: string ): string;
var
header: PMethodInfoHeader;
headerEnd: Pointer;
Params, Param: PParamInfo;
returnInfo: PReturnInfo;
begin
header := ObjAuto.GetMethodInfo( Obj, MethodName );
if Header.Len = SizeOf(TMethodInfoHeader) - SHORT_LEN +
Length(Header.Name) then
begin
Result := 'No rich RTTI';
exit;
end;
headerEnd := Pointer(Integer(header) + header^.Len);
Params := PParamInfo(Integer(header) + SizeOf(header^) - SHORT_LEN +
SizeOf(TReturnInfo) + Length(header^.Name));
Param := Params;
Result := '';
while Integer(Param) Integer(headerEnd) do
begin
Result := Result + Param.AsString + '; ';
Param := Param.NextParam;
end;
Delete( Result, Length(Result)-1,2 );
returnInfo := header.ReturnInfo;
if assigned( returnInfo.ReturnType ) then
Result := Format( 'function %s( %s ): %s', [ MethodName, Result,
returnInfo.AsString ] )
else
Result := Format( 'procedure %s( %s )%s', [ MethodName, Result,
returnInfo.AsString ] );
end;
{ TParamInfoHelper }
function TParamInfoHelper.AsString: string;
begin
Result := '';
if pfResult in Flags then exit;
Result := Name + ': ' + ParamType^.Name;
if pfVar in self.Flags then
Result := 'var ' + Result;
end;
function TParamInfoHelper.NextParam: PParamInfo;
begin
Result := PParamInfo(Integer(@self) + SizeOf(self) - SHORT_LEN +
Length(Name));
end;
{ TMethodInfoHeaderHelper }
function TMethodInfoHeaderHelper.GetReturnInfo: PReturnInfo;
begin
Result := PReturnInfo(Integer(@self) + SizeOf(TMethodInfoHeader) -
SHORT_LEN + Length(Name));
end;
{ TReturnInfoHelper }
function TReturnInfoHelper.AsString: string;
var
c: string;
begin
Assert( Version = 1, 'Version of ReturnInfo incorrect' );
if assigned( ReturnType ) then
Result := ReturnType^.Name;
Result := Result + ';';
case CallingConvention of
ccRegister: ;// Default
ccCdecl: c := 'cdecl';
ccPascal: c := 'pascal';
ccStdCall: c := 'stdcall';
ccSafeCall: c := 'safecall';
end;
if c '' then Result := Result + ' ' + c + ';';
end;
{ TObjectHelper }
function TObjectHelper.RTTIMethodsAsString: string;
var
MethodInfo: Pointer;
Count: Integer;
method: PMethodInfoHeader;
i: Integer;
begin
MethodInfo := PPointer(Integer(PPointer(self)^) + vmtMethodTable)^;
if MethodInfo nil then
begin
Count := PWord(MethodInfo)^;
Inc(Integer(MethodInfo), 2);
method := MethodInfo;
for i := 0 to Count - 1 do
begin
Result := Result + DescriptionOfMethod(self, method.Name) +
sLineBreak;
Inc(Integer(method), PMethodInfoHeader(method)^.Len);
end;
end;
end;
--
feito isso, adicione essa unit a Uses que irá fazer as chamadas... e
utilize normalmente os métodos da RTTI
para recuperar as informacoes do objeto em um TreeView, por exemplo:
---
procedure GenerateNodes(Obj: TObject; Node: TTreeNode);
var
i: byte;
InternalNode1, InternalNode2, InternalNode3: TTreeNode;
PropList: PPropList;
PropListCount: byte;
MethodInfo: Pointer;
MethodListCount: byte;
Method: PMethodInfoHeader;
begin
if Assigned(Node) then
InternalNode1 := Node
else
InternalNode1 := TreeView1.Items.Add(nil, Obj.ClassName);
//Propriedades
InternalNode2 := TreeView1.Items.AddChild(
InternalNode1, 'Propriedades');
PropListCount := GetPropList(Obj, PropList);
for i := 0 to Pred(PropListCount) do
begin
InternalNode3 := TreeView1.Items.AddChild(InternalNode2,
string(PropList[i].Name) + '=' +
Re: [delphi-br] ClientDataSet - Out Of Memory
me metendo na conversa esse seu framework não poderia manipular um TDataSet ou um _RecordSet ao invés do cds? ai vc faria a consulta normalmente como o Fabiano falou... e já passaria o dataset ou recordset da consulta, independente do componente que estiver utilizando (cds, qry, procedure... ) sem necessidade de armazenar esses dados duplicados na memória... o/ Em 16/07/2010 23:44, Valdemir (yahoo) escreveu: na verdade .. montei um framework para gerar arquivos do governo... ele gera tanto arquivos de posição fixa (como o Sintegra), como arquivos separados com pipe (sped), entre outras funções ele visualiza os arquivos TXT como o Sintegra faz com o arquivo dele neste framework eu cadastro o layout, ou seja os registros, e cada campo com tamanho e tipo de arquivo... e eu ao gerar o txt, ele já faz algumas conferencias de acordo com o layout No sped, vc tem alguns registros Ex...I030 , que tem um campo com o total de registros do I030 que tem a quantidade de linhas do arquivo, ou seja logo no inicio do arquivo ele já me pede o total de linhas, neste caso eu tenho duas opções ou antes de gerar esta linha simulo a geração para saber o total de linhas, ou então arrumo um jeito de editar a linha apos eu gerar o arquivo inteiro. Entre gerar o arquivo e abrir o texto procurando por registro/posição no arquivo txt e ai substituir, eu preferi gravar tudo em cds e manipular o cds alterando o que é necessário From: Fabiano Moura Sent: Friday, July 16, 2010 10:49 PM To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Subject: Re: [delphi-br] ClientDataSet - Out Of Memory *Boa noite!* Valdemir, por que você pega os dados da tabela e gera no clientdataset, não é mais fácil você pegar (restaurar) os dados do banco e jogar direto no arquivo texto? *Obrigado,* ** *Fabiano* [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Desempenho Firebird
hauihiauhauiha... ler rápido é nisso que acontece... mas equívocos a parte... essa analogia é bacana hehehe Demiti um programador carioca e contratei um programador paulista no lugar. Depois que fiz isso a produtividade e a qualidade aumentaram muito. Logo, programadores paulistas são melhores que os cariocas. o/ Em 17/07/2010 10:34, Ricardo César Cardoso escreveu: Dirlei, acho que vc cometeu alguns equivocos: a) Não é amigo Eny; é amiga Eny. b) Ela não tirou conclusão alguma. Apenas relatou o acontecido com um amigo e pediu nossa opinião Assim como já disseram, reforço que também não defendo a ferramenta A ou B, mas apoio imensamente que se extraia o máximo de performance possível, esgotando o máximo de possibilidades antes de uma troca. Pelo relato da Eny, parece que não foi bem o caso do amigo dela; o profissional apenas queria não ter que se preocupar com tuning do banco e preferiu o caminho mais fácil. Instalar um servidor mais conhecido. Sem mais, Ricardo. 1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS. 2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor compreendida. 3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! --- Em sáb, 17/7/10, Dirlei Dionísio dir...@gmail.com mailto:dirlei%40gmail.com escreveu: De: Dirlei Dionísio dir...@gmail.com mailto:dirlei%40gmail.com Assunto: Re: [delphi-br] Desempenho Firebird Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Data: Sábado, 17 de Julho de 2010, 8:21 Tirar conclusões como o amigo da Eny tirou é um completo equívoco. Seria como dizer: Demiti um programador carioca e contratei um programador paulista no lugar. Depois que fiz isso a produtividade e a qualidade aumentaram muito. Logo, programadores paulistas são melhores que os cariocas. -- Dirlei Dionísio [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Retornar Identity
entre utilizar sua técnica e stored procedures, eu fico com a segunda opção, não só pela velocidade, transparência e integridade quando se deixa esse tipo de controle a cargo do SGDB, como pelo fato de não haver necessidade de armazenar 8 bytes a mais para cada registro de cada tabela... mas claro q existem inúmeras maneiras de resolver o problema... ;) o/ Em 16/07/2010 09:30, Tupy... nambá escreveu: Existe uma outra técnica. Crie na tabela master um campo tipo/hora e, ao inserir o registro, insira nele a informação da data e hora da operação - que deve ser previamente capturada e salva em uma variavel de memoria - e use um select com clausula where para a data/hora da inserção, para obter a chave primária. Eventualmente, se já houver, um campo tipo comentário pode ser usado com esta finalidade, sendo posteriormente limpo. Me deixe ao par, boa sorte, Roberto Camargo. --- On Fri, 7/16/10, Roni Rodrigo ronirodr...@yahoo.com.br mailto:ronirodrigo%40yahoo.com.br wrote: From: Roni Rodrigo ronirodr...@yahoo.com.br mailto:ronirodrigo%40yahoo.com.br Subject: Re: [delphi-br] Retornar Identity To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Date: Friday, July 16, 2010, 1:58 AM cara... só fazendo uma stored procedure... declare o parametro que você quer retornar como OUTPUT create procedure sp_Gravar @ID INT OUTPUT, -- ai vc insere os valores -- e retorna o ultimo identity gerado pelo SQL SELECT @id = SCOPE_IDENTITY() se não for em uma procedure não há como garantir a integridade do valor retornado, com a sp é possível pq o sql cria uma transação antes de executar... o/ Em 15/07/2010 17:37, Jhosef Marks escreveu: E ai galera... É o seguinte, tenho duas tabelas que tem um relacionamento de um-para-muitos, e tem um alto indice de inserções agrupadas, preciso que quando for inserido um valor na tabela master me seja retornado o número exato que foi gerado para o campo chave desta para poder usar nos filhos, está acontecendo que quando ocorre duas inserções praticamente ao mesmo tempo, quando eu mando buscar o valor inserido já foi outro inserido em cima, jogando os detalhes desses últimos registro e um só... To perdendo a cabeça com isso... alguém passou por isso? To usando SQL Server 2005 + Delphi 7 Att, Jhosef Marks de Carvalho Blog: http://www.jhosefmarks.com.br Jesus está voltando E se o meu povo, que se chama pelo meu nome, se humilhar, e orar, e buscar a minha face e se converter dos seus maus caminhos, então eu ouvirei dos céus, e perdoarei os seus pecados, e sararei a sua terra. (2 Cr 7:14) [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] Abrir aquivo txt no notepad
assim... no notepad tem como vc mudar a fonte no menu, mas de todo o
texto... e essa fonte já fica padrão para todos os arquivos que vc abrir
ou criar com ele... não daria simplesmente de alterar a fonte para a
desejada na primeira visualização? nas demais, creio que já viriam com a
fonte configurada...
o/
Em 16/07/2010 20:53, Rubem Nascimento da Rocha escreveu:
O NOTEPAD não tem opção que permita, a partir da sua chamada via linha
de comando, selecionar a fonte a ser usada para edição. Sugiro que
busque qual a chave no registro do Windows que armazena a fonte usada
pelo Notepad e altere-a antes de chamar o Notepad para a fonte desejada.
Boa sorte.
Sds.
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
From: alss...@yahoo.com.br mailto:alssnco%40yahoo.com.br
Date: Fri, 16 Jul 2010 20:45:44 -0300
Subject: Re: [delphi-br] Abrir aquivo txt no notepad
Pessoal, o que eu quero é que o meu software abra um arquivo txt. Estou
fazendo da seguinte maneira:
WinExec(pchar('notepad.exe ' + ExtractFileDir(Application.ExeName) +
'\NomedoArquivo.txt'), SW_SHOW);
Eu gostaria que o NotePad já abrisse com a fonte Courier.
__
PREPARE-SE: O SEU HOTMAIL VAI FICAR MELHOR DO QUE NUNCA. CLIQUE E VEJA
AS NOVIDADES.
http://www.windowslive.com.br/public/product.aspx/view/1?ocid=Hotmail:Live:Hotmail:Tagline:senDimensao:PREPARE-SE83:-
[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] Problema PNG
o TImage tem uma propriedade chamada Tranparent... tenta colocar pra 'false', mas pra funcionar com png, se eu não me engano o arquivo .png tb não pode ser transparente, tem que colocar alguma cor onde tem transparencia... o/ Em 16/07/2010 14:24, Lucas Rampim escreveu: Boa Tarde. Estou com o seguinte problema No meu projeto, utilizo componentes TImage para exibir imagens no formato .PNG!!! Ao montar o form no delphi, consigo visualizar essas imagens normalmente, mas quando estou executando o programa, as imagens ficam transparentes. Eu criei as imagens no Photoshop CS2 e utilizo o delphi 2006! PS.: Criei um projeto apenas com um TImage e carreguei a imagem... o mesmo problema. Alguem me ajuda Lucas Rafael Rampin Programador Não tente trilhar um caminho estabelecido. Ao contrário, vá para onde não há caminho algum e deixe seu rastro. (Johnnie Walker)
[delphi-br] DICA: Ordenar Grid TDBAdvGrid
Boa tarde pessoal. Como o grupo não é somente para postar problemas mas sim postar também algumas dicas e soluções, talvez para alguem seja irrelevante mais segue uma dica legal de como ordenar a grid da TMS, TDBAdvGrid. lembrando a Grid faz a ordenação automática NATIVA, basta clicar na coluna, mas no meu caso tive que deixar a propriedade 'Page Mode' da mesma habilitada e com isso ela desativa a ordenação nativa dela. Tive que implementar a minha. Aceito sugestões de melhoria Segue código. procedure TfrmTarefas.grdTarefasClickSort(Sender: TObject; ACol: Integer); var nomeField: string; options: TIndexOptions; begin if ACol 0 then exit; nomeField := grdTarefas.Columns[ACol].FieldName; cdsTarefas.IndexDefs.Update; if nomeCampo = (nomeField + '_DESC') then begin nomeCampo := nomeField + '_ASC'; options := []; end else begin nomeCampo := nomeField + '_DESC'; options := [ixDescending]; end; if cdsTarefas.IndexDefs.IndexOf(nomeField) 0 then cdsTarefas.AddIndex(nomeCampo,nomeField,options); cdsTarefas.IndexName := nomeCampo; cdsTarefas.First; end; -- Att. Rodrigo Rossi Skype: rodrigotrentinrossi MSN: rdrg_ro...@hotmail.com Fone: (45) 9963-1897 Cascavel - PR
Re: [delphi-br] Retornar Identity
cara... só fazendo uma stored procedure... declare o parametro que você quer retornar como OUTPUT create procedure sp_Gravar @ID INT OUTPUT, -- ai vc insere os valores -- e retorna o ultimo identity gerado pelo SQL SELECT @id = SCOPE_IDENTITY() se não for em uma procedure não há como garantir a integridade do valor retornado, com a sp é possível pq o sql cria uma transação antes de executar... o/ Em 15/07/2010 17:37, Jhosef Marks escreveu: E ai galera... É o seguinte, tenho duas tabelas que tem um relacionamento de um-para-muitos, e tem um alto indice de inserções agrupadas, preciso que quando for inserido um valor na tabela master me seja retornado o número exato que foi gerado para o campo chave desta para poder usar nos filhos, está acontecendo que quando ocorre duas inserções praticamente ao mesmo tempo, quando eu mando buscar o valor inserido já foi outro inserido em cima, jogando os detalhes desses últimos registro e um só... To perdendo a cabeça com isso... alguém passou por isso? To usando SQL Server 2005 + Delphi 7 Att, Jhosef Marks de Carvalho Blog: http://www.jhosefmarks.com.br Jesus está voltando E se o meu povo, que se chama pelo meu nome, se humilhar, e orar, e buscar a minha face e se converter dos seus maus caminhos, então eu ouvirei dos céus, e perdoarei os seus pecados, e sararei a sua terra. (2 Cr 7:14) [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Definindo Padrão - Herança de Formulá rios
Boa tarde. Estou desenvolvendo uma aplicação Win32 com Delphi 2010 e preciso de algumas orientações referente a reaproveitamento de código. Tenho um form modelo, onde lá tenho alguns métodos juntamente com a parte visual bem definida. Quando vou criar um outro form Cadastro de Clientes eu gero uma herança deste form modelo (inherited form) e neste form de cadastro de Clientes coloco meu componentes de banco de dados, SqlQuery, DataSetProvider, ClientDataSet, DataSource e implemento os métodos dos botões inserir, alterar, proximo, anterior etc O problema é que quando faço outra tela Cadastro de Fornecedores herdando do form modelo (inherited form) tenho que adicionar os componentes do BD novamente e copiar e colar os métodos de todos os botões do cadastro de cliente para o cadastro de fornecedores pois vai ser a mesma coisa. Exeiste a possibilidade de nao ter que ficar copiando e colando o código e todos os forms? Não queria fazer desta mandeira pois se um dia eu quiser alterar o comportamento do método Incluir tenho que passar nos meu 999 forms para fazer isso? Não da neh O que vocês indicariam de solução? Quero coisa simples, não tenho muito conhecimento em Delphi, o que quero é nao ter que ficar reescrevendo o código. -- Att. Rodrigo Rossi rdrg_ro...@hotmail.com (45) 9963-1897 Cascavel - PR [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] Definindo Padrão - Herança de Formulários
Kra... se de certo isso fecho... Mas eu to com uma dúvida, eu aprendi adicionar meu Edits no form da seguinte maneira: Clico duas vezes no meu dataSource que está na tela e pego os fields e arrasto para o form, ou seja, TDBEdits. Se eu colocar os DataWare no form modelo como vou fazer isso? Att. Rodrigo Rossi rdrg_ro...@hotmail.com (45) 9963-1897 Cascavel - PR On 07/01/2010 02:55 PM, Jean Barreiros wrote: Sim claro que tem como você não ficar reescrevendo todo código, basta você colocar todos os componentes Dataware no form modelo e tratar todos os comandos de inserção edicao e etc... Na propriedade DataSet do dataSource por exemplo. e não nomear os seus componentes tipo: CDSCliente, CDSFornecedor deixe-os como nomes padrões tipo: Cds(ClientDataSet), Qry(SQLQuery), Provider(DataSetProvider) e Ds(DataSource). espero ter ajudado. Jean Barreiros Programador/Web-Designer Delphi, C++, PHP, JavaScript FireBird/InterBase, MySql, SQLServer, PostGree, Oracle msn: delphij...@gmail.com mailto:delphijean%40gmail.com e-mail: delphij...@yahoo.com.br mailto:delphijean%40yahoo.com.br De: Rodrigo Rossi rdrg.ro...@gmail.com mailto:rdrg.rossi%40gmail.com Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Quinta-feira, 1 de Julho de 2010 14:32:58 Assunto: [delphi-br] Definindo Padrão - Herança de Formulários Boa tarde. Estou desenvolvendo uma aplicação Win32 com Delphi 2010 e preciso de algumas orientações referente a reaproveitamento de código. Tenho um form modelo, onde lá tenho alguns métodos juntamente com a parte visual bem definida. Quando vou criar um outro form Cadastro de Clientes eu gero uma herança deste form modelo (inherited form) e neste form de cadastro de Clientes coloco meu componentes de banco de dados, SqlQuery, DataSetProvider, ClientDataSet, DataSource e implemento os métodos dos botões inserir, alterar, proximo, anterior etc O problema é que quando faço outra tela Cadastro de Fornecedores herdando do form modelo (inherited form) tenho que adicionar os componentes do BD novamente e copiar e colar os métodos de todos os botões do cadastro de cliente para o cadastro de fornecedores pois vai ser a mesma coisa. Exeiste a possibilidade de nao ter que ficar copiando e colando o código e todos os forms? Não queria fazer desta mandeira pois se um dia eu quiser alterar o comportamento do método Incluir tenho que passar nos meu 999 forms para fazer isso? Não da neh O que vocês indicariam de solução? Quero coisa simples, não tenho muito conhecimento em Delphi, o que quero é nao ter que ficar reescrevendo o código. -- Att. Rodrigo Rossi rdrg_ro...@hotmail.com mailto:rdrg_rossi%40hotmail.com (45) 9963-1897 Cascavel - PR [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] [off topic] PHP ou Java?
Bom o ITAU não usa, e funciona pra caralho já o BB a caixa, melhor nem comentar né rsrsrsrs [2] Faço faculdade aqui em Cascavel no PR e o foco é Java nos 3 anos, PHP? Eles não querem, só tem uma matéria de Delphi no segundo ano e estão pensando em colocar .NET no terceiro. Att. Rodrigo Rossi rdrg_ro...@hotmail.com (45) 9963-1897 Cascavel - PR [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Delphi 2010 + SqlServer 2005
Boa tarde. Estou fazendo uma aplicação em Delphi que conecta no Sql2005 do servidor da empresa, isso funciona, a aplicação já está pronta e funcionando, o problema ta em colocar ela em outras máquinas (usuários) onde ao abrir a aplicação ele retorna o seguinte erro: Error reading conPrincipal.DriverName: Unknown driver: MSSQL9. As configurações do meu SqlConnection: ConnectionName = MSSQLConnection2005 Driver = MSSQL9 GetDriverFunc = getSQLDriverMSSQL LibraryName = dbxmss9.dll VendorLib = SQLNCLI.DLL _arquivo: dbxdrivers.ini_ [Installed Drivers] MSSQL=1 MSSQL9=1 [MSSQL] SchemaOverride=%.dbo DriverUnit=DBXMSSQL GetDriverFunc=getSQLDriverMSSQL LibraryName=dbxmss.dll VendorLib=oledb.dll HostName=ServerName DataBase=Database Name User_Name=user Password=password BlobSize=-1 ErrorResourceFile= LocaleCode= IsolationLevel=ReadCommitted OS Authentication=False Prepare SQL=False [MSSQL9] SchemaOverride=%.dbo DriverUnit=DBXMSSQL DriverPackageLoader=TDBXDynalinkDriverLoader,DBXCommonDriver120.bpl DriverAssemblyLoader=Borland.Data.TDBXDynalinkDriverLoader,Borland.Data.DbxCommonDriver,Version=12.0.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b MetaDataPackageLoader=TDBXMsSqlMetaDataCommandFactory,DbxMSSQLDriver120.bpl MetaDataAssemblyLoader=Borland.Data.TDBXMsSqlMetaDataCommandFactory,Borland.Data.DbxMSSQLDriver,Version=12.0.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b GetDriverFunc=getSQLDriverMSSQL LibraryName=dbxmss9.dll VendorLib=SQLNCLI.DLL HostName=localhost DataBase=DataBase Name User_Name=user Password=password BlobSize=-1 ErrorResourceFile= LocaleCode= MSSQL TransIsolation=ReadCommited OS Authentication=False Prepare SQL=False _arquivo: dbxconnection.ini _ [MSSQLConnection2000] SchemaOverride=sa.dbo DriverName=MSSQL HostName=servidorbco DataBase=Helpnet_prisma User_Name=helpnet_prisma Password=helpnet_prisma IsolationLevel=ReadCommitted ConnectTimeout=60 Mars_Connection=False [MSSQLConnection2005] SchemaOverride=sa.dbo DriverName=MSSQL9 HostName=servidorbco DataBase=Helpnet_prisma User_Name=helpnet_prisma Password=helpnet_prisma IsolationLevel=ReadCommitted ConnectTimeout=60 Mars_Connection=False O que estou fazendo de errado? Na minha máquina tenho o Client do sql2005 instalado e não queria instalar o Client do Sql em todas as maquinas Cliente, isso é necessário? O delphi consegue isso sem instalar o client do Sql? Tem alguma DLL que tenho que mandar junto com a minha distribuição? -- Att. Rodrigo Rossi rdrg_ro...@hotmail.com (45) 9963-1897 Cascavel - PR [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Delphi 2010 + Sql2005
Boa tarde. Estou fazendo uma aplicação em Delphi que conecta no Sql2005 do servidor da empresa, isso funciona, a aplicação já está pronta e funcionando (na minha máquina), o problema ta em colocar ela em outras máquinas (usuários) onde ao abrir a aplicação ele retorna o seguinte erro: Error reading conPrincipal.DriverName: Unknown driver: MSSQL9. As configurações do meu SqlConnection: ConnectionName = MSSQLConnection2005 Driver = MSSQL9 GetDriverFunc = getSQLDriverMSSQL LibraryName = dbxmss9.dll VendorLib = SQLNCLI.DLL _arquivo: dbxdrivers.ini_ [Installed Drivers] MSSQL=1 MSSQL9=1 [MSSQL] SchemaOverride=%.dbo DriverUnit=DBXMSSQL GetDriverFunc=getSQLDriverMSSQL LibraryName=dbxmss.dll VendorLib=oledb.dll HostName=ServerName DataBase=Database Name User_Name=user Password=password BlobSize=-1 ErrorResourceFile= LocaleCode= IsolationLevel=ReadCommitted OS Authentication=False Prepare SQL=False [MSSQL9] SchemaOverride=%.dbo DriverUnit=DBXMSSQL DriverPackageLoader=TDBXDynalinkDriverLoader,DBXCommonDriver120.bpl DriverAssemblyLoader=Borland.Data.TDBXDynalinkDriverLoader,Borland.Data.DbxCommonDriver,Version=12.0.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b MetaDataPackageLoader=TDBXMsSqlMetaDataCommandFactory,DbxMSSQLDriver120.bpl MetaDataAssemblyLoader=Borland.Data.TDBXMsSqlMetaDataCommandFactory,Borland.Data.DbxMSSQLDriver,Version=12.0.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b GetDriverFunc=getSQLDriverMSSQL LibraryName=dbxmss9.dll VendorLib=SQLNCLI.DLL HostName=localhost DataBase=DataBase Name User_Name=user Password=password BlobSize=-1 ErrorResourceFile= LocaleCode= MSSQL TransIsolation=ReadCommited OS Authentication=False Prepare SQL=False _arquivo: dbxconnection.ini _ [MSSQLConnection2000] SchemaOverride=sa.dbo DriverName=MSSQL HostName=servidorbco DataBase=Helpnet_prisma User_Name=helpnet_prisma Password=helpnet_prisma IsolationLevel=ReadCommitted ConnectTimeout=60 Mars_Connection=False [MSSQLConnection2005] SchemaOverride=sa.dbo DriverName=MSSQL9 HostName=servidorbco DataBase=Helpnet_prisma User_Name=helpnet_prisma Password=helpnet_prisma IsolationLevel=ReadCommitted ConnectTimeout=60 Mars_Connection=False O que estou fazendo de errado? Na minha máquina tenho o Client do sql2005 instalado e não queria instalar o Client do Sql em todas as maquinas Cliente, isso é necessário? O delphi consegue isso sem instalar o client do Sql? Tem alguma *dll_de_conecao* que tenho que mandar junto com a minha distribuição? Ou o problema ta no meu Delphi? Obs. Se eu colocar os arquivos dbxdrivers.ini e dbxconnections.ini no diretório da aplicação na máquia do cliente, ele retorna outro erro: DBX Error: Driver could not be properly initialized. Client library may be missing, not installed properly, or of the wrong version. -- Att. Rodrigo Rossi rdrg_ro...@hotmail.com (45) 9963-1897 Cascavel - PR [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Problemas na Conexão Delphi2010 + SqlServ er2005
Boa tarde. Estou fazendo uma aplicação em Delphi que conecta no Sql2005 do servidor da empresa, isso funciona, a aplicação já está pronta e funcionando (na minha máquina), o problema ta em colocar ela em outras máquinas (usuários) onde ao abrir a aplicação ele retorna o seguinte erro: Error reading conPrincipal.DriverName: Unknown driver: MSSQL9. As configurações do meu SqlConnection: ConnectionName = MSSQLConnection2005 Driver = MSSQL9 GetDriverFunc = getSQLDriverMSSQL LibraryName = dbxmss9.dll VendorLib = SQLNCLI.DLL _arquivo: dbxdrivers.ini_ [Installed Drivers] MSSQL=1 MSSQL9=1 [MSSQL] SchemaOverride=%.dbo DriverUnit=DBXMSSQL GetDriverFunc=getSQLDriverMSSQL LibraryName=dbxmss.dll VendorLib=oledb.dll HostName=ServerName DataBase=Database Name User_Name=user Password=password BlobSize=-1 ErrorResourceFile= LocaleCode= IsolationLevel=ReadCommitted OS Authentication=False Prepare SQL=False [MSSQL9] SchemaOverride=%.dbo DriverUnit=DBXMSSQL DriverPackageLoader=TDBXDynalinkDriverLoader,DBXCommonDriver120.bpl DriverAssemblyLoader=Borland.Data.TDBXDynalinkDriverLoader,Borland.Data.DbxCommonDriver,Version=12.0.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b MetaDataPackageLoader=TDBXMsSqlMetaDataCommandFactory,DbxMSSQLDriver120.bpl MetaDataAssemblyLoader=Borland.Data.TDBXMsSqlMetaDataCommandFactory,Borland.Data.DbxMSSQLDriver,Version=12.0.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b GetDriverFunc=getSQLDriverMSSQL LibraryName=dbxmss9.dll VendorLib=SQLNCLI.DLL HostName=localhost DataBase=DataBase Name User_Name=user Password=password BlobSize=-1 ErrorResourceFile= LocaleCode= MSSQL TransIsolation=ReadCommited OS Authentication=False Prepare SQL=False _arquivo: dbxconnection.ini _ [MSSQLConnection2000] SchemaOverride=sa.dbo DriverName=MSSQL HostName=servidorbco DataBase=Helpnet_prisma User_Name=helpnet_prisma Password=helpnet_prisma IsolationLevel=ReadCommitted ConnectTimeout=60 Mars_Connection=False [MSSQLConnection2005] SchemaOverride=sa.dbo DriverName=MSSQL9 HostName=servidorbco DataBase=Helpnet_prisma User_Name=helpnet_prisma Password=helpnet_prisma IsolationLevel=ReadCommitted ConnectTimeout=60 Mars_Connection=False O que estou fazendo de errado? Na minha máquina tenho o Client do sql2005 instalado e não queria instalar o Client do Sql em todas as maquinas Cliente, isso é necessário? O delphi consegue isso sem instalar o client do Sql? Tem algum arquivo de conexão ou driver que tenho que mandar junto com a minha distribuição? Ou o problema ta no meu Delphi? Obs. Se eu colocar os arquivos dbxdrivers.ini e dbxconnections.ini no diretório da aplicação na máquia do cliente, ele retorna outro erro: DBX Error: Driver could not be properly initialized. Client library may be missing, not installed properly, or of the wrong version. -- Att. Rodrigo Rossi rdrg_ro...@hotmail.com (45) 9963-1897 Cascavel - PR [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Problemas na Conexão Delp hi2010 + SqlServer2005
Eu já segui passo a passo esse artigo que por sinal é muito bom, meu ajudou a conectar no Sql2005 apartir da minha máquina, o problema é quando coloco a aplicação na maquina do cliente. Att. Rodrigo Rossi rdrg_ro...@hotmail.com (45) 9963-1897 Cascavel - PR On 06/21/2010 03:02 PM, simoesluciano wrote: http://www.cesarromero.com.br/2010/configurando-dbx-para-acessar-o-ms-sql-server-2000-e-2005-no-delphi-2010/ Luciano C. Simões --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br, Rodrigo Rossi rdrg.ro...@... escreveu Boa tarde. Estou fazendo uma aplicação em Delphi que conecta no Sql2005 do servidor da empresa, isso funciona, a aplicação já está pronta e funcionando (na minha máquina), o problema ta em colocar ela em outras máquinas (usuários) onde ao abrir a aplicação ele retorna o seguinte erro: Error reading conPrincipal.DriverName: Unknown driver: MSSQL9. As configurações do meu SqlConnection: ConnectionName = MSSQLConnection2005 Driver = MSSQL9 GetDriverFunc = getSQLDriverMSSQL LibraryName = dbxmss9.dll VendorLib = SQLNCLI.DLL _arquivo: dbxdrivers.ini_ [Installed Drivers] MSSQL=1 MSSQL9=1 [MSSQL] SchemaOverride=%.dbo DriverUnit=DBXMSSQL GetDriverFunc=getSQLDriverMSSQL LibraryName=dbxmss.dll VendorLib=oledb.dll HostName=ServerName DataBase=Database Name User_Name=user Password=password BlobSize=-1 ErrorResourceFile= LocaleCode= IsolationLevel=ReadCommitted OS Authentication=False Prepare SQL=False [MSSQL9] SchemaOverride=%.dbo DriverUnit=DBXMSSQL DriverPackageLoader=TDBXDynalinkDriverLoader,DBXCommonDriver120.bpl DriverAssemblyLoader=Borland.Data.TDBXDynalinkDriverLoader,Borland.Data.DbxCommonDriver,Version=12.0.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b MetaDataPackageLoader=TDBXMsSqlMetaDataCommandFactory,DbxMSSQLDriver120.bpl MetaDataAssemblyLoader=Borland.Data.TDBXMsSqlMetaDataCommandFactory,Borland.Data.DbxMSSQLDriver,Version=12.0.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b GetDriverFunc=getSQLDriverMSSQL LibraryName=dbxmss9.dll VendorLib=SQLNCLI.DLL HostName=localhost DataBase=DataBase Name User_Name=user Password=password BlobSize=-1 ErrorResourceFile= LocaleCode= MSSQL TransIsolation=ReadCommited OS Authentication=False Prepare SQL=False _arquivo: dbxconnection.ini _ [MSSQLConnection2000] SchemaOverride=sa.dbo DriverName=MSSQL HostName=servidorbco DataBase=Helpnet_prisma User_Name=helpnet_prisma Password=helpnet_prisma IsolationLevel=ReadCommitted ConnectTimeout=60 Mars_Connection=False [MSSQLConnection2005] SchemaOverride=sa.dbo DriverName=MSSQL9 HostName=servidorbco DataBase=Helpnet_prisma User_Name=helpnet_prisma Password=helpnet_prisma IsolationLevel=ReadCommitted ConnectTimeout=60 Mars_Connection=False O que estou fazendo de errado? Na minha máquina tenho o Client do sql2005 instalado e não queria instalar o Client do Sql em todas as maquinas Cliente, isso é necessário? O delphi consegue isso sem instalar o client do Sql? Tem algum arquivo de conexão ou driver que tenho que mandar junto com a minha distribuição? Ou o problema ta no meu Delphi? Obs. Se eu colocar os arquivos dbxdrivers.ini e dbxconnections.ini no diretório da aplicação na máquia do cliente, ele retorna outro erro: DBX Error: Driver could not be properly initialized. Client library may be missing, not installed properly, or of the wrong version. -- [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] Variável Global
Acho que o form principal é o pior lugar pra declarar uma variável global.. na verdade não recomendo usar variável global em nenhum lugar.. hehehe... Mas se for só um valor que vc esteja querendo armazenar, a melhor solução seria essa mesmo, declarar em uma Unit específica com um escopo global... ou como já foi dito anteriormente, declarar no DataModule.. Maaasss... se o que vc quer armazenar são vários valores ou alguma estrutura, considere a hipótese de usar o padrão Singleton. o/ Mas se for só algum valor que vc queira armazenar Em 21/06/2010 17:42, Eny Urias escreveu: Bom... acho que não vei ter outro jeito a nao ser criar essa Unit só pra guarda a variável... Obrigada a todos que se manifestaram! -- Eny Trova Urias Somos o que repetitivamente fazemos, portanto, a excelência não é um feito, mas um hábito- Aristóteles De: Walter Chagas (Bol) wchag...@bol.com.br mailto:wchagasj%40bol.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Segunda-feira, 21 de Junho de 2010 17:36:42 Assunto: Re: [delphi-br] Variável Global Voce pode ter uma unit pra isto ou por tudo no Datamodule. Aí quando quiser usa-la em algum canto do seu projeto basta declarar esta unit na clausula uses []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br mailto:wchagasj%40bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: Eny Urias To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Monday, June 21, 2010 5:29 PM Subject: Res: [delphi-br] Variável Global Mas então eu tenho que ter uma Unit pra isso mesmo? Não há outra forma de se fazer... tipo colocar no source do Projeto? -- Eny Trova Urias Somos o que repetitivamente fazemos, portanto, a excelência não é um feito, mas um hábito- Aristóteles De: Dirlei dir...@gmail.com mailto:dirlei%40gmail.com Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Segunda-feira, 21 de Junho de 2010 17:27:25 Assunto: Re: [delphi-br] Variável Global Eny, Se você declarar uma variável na seção interface ela será global. Por questões de organização eu crio uma unit (globals.pas) e deixo lá as variáveis que precisam ser globais. Mas, tecnicamente, essas variáveis podem ficar em qualquer unit. -- Dirlei Dionísio http://MaisQueBomCodigo.blogspot.com Sei que muitos falam que não há como criar uma variável global no Delphi... Que a única forma é vc colocar como publica numa Unit e usar essa Unit nos forms... Mas acontece que eu possuo um form de login que é liberado da memoria após efetuado o login (que aí chama o form principal)... Mas tenho um campo que quero guardar numa variavel para ser utilizado a qualquer momento em qualquer form... como devo proceder? Criar no form login nao dá porque ele vai virar fumaça... criar no form principal nao dá porque no momento do login ele ainda nao foi criado... -- Eny Trova Urias Somos o que repetitivamente fazemos, portanto, a excelência não é um feito, mas um hábito- Aristóteles [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: Res: [delphi-br] Variável Global
Acho que o form principal é o pior lugar pra declarar uma variável global.. na verdade não recomendo usar variável global em nenhum lugar.. hehehe... Mas se for só um valor que vc esteja querendo armazenar, a melhor solução seria essa mesmo, declarar em uma Unit específica com um escopo global... ou como já foi dito anteriormente, declarar no DataModule.. Maaasss... se o que vc quer armazenar são vários valores ou alguma estrutura, considere a hipótese de usar o padrão Singleton. o/ Em 21/06/2010 17:42, Eny Urias escreveu: Bom... acho que não vei ter outro jeito a nao ser criar essa Unit só pra guarda a variável... Obrigada a todos que se manifestaram! -- Eny Trova Urias Somos o que repetitivamente fazemos, portanto, a excelência não é um feito, mas um hábito- Aristóteles De: Walter Chagas (Bol) wchag...@bol.com.br mailto:wchagasj%40bol.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Segunda-feira, 21 de Junho de 2010 17:36:42 Assunto: Re: [delphi-br] Variável Global Voce pode ter uma unit pra isto ou por tudo no Datamodule. Aí quando quiser usa-la em algum canto do seu projeto basta declarar esta unit na clausula uses []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br mailto:wchagasj%40bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: Eny Urias To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Monday, June 21, 2010 5:29 PM Subject: Res: [delphi-br] Variável Global Mas então eu tenho que ter uma Unit pra isso mesmo? Não há outra forma de se fazer... tipo colocar no source do Projeto? -- Eny Trova Urias Somos o que repetitivamente fazemos, portanto, a excelência não é um feito, mas um hábito- Aristóteles De: Dirlei dir...@gmail.com mailto:dirlei%40gmail.com Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Segunda-feira, 21 de Junho de 2010 17:27:25 Assunto: Re: [delphi-br] Variável Global Eny, Se você declarar uma variável na seção interface ela será global. Por questões de organização eu crio uma unit (globals.pas) e deixo lá as variáveis que precisam ser globais. Mas, tecnicamente, essas variáveis podem ficar em qualquer unit. -- Dirlei Dionísio http://MaisQueBomCodigo.blogspot.com Sei que muitos falam que não há como criar uma variável global no Delphi... Que a única forma é vc colocar como publica numa Unit e usar essa Unit nos forms... Mas acontece que eu possuo um form de login que é liberado da memoria após efetuado o login (que aí chama o form principal)... Mas tenho um campo que quero guardar numa variavel para ser utilizado a qualquer momento em qualquer form... como devo proceder? Criar no form login nao dá porque ele vai virar fumaça... criar no form principal nao dá porque no momento do login ele ainda nao foi criado... -- Eny Trova Urias Somos o que repetitivamente fazemos, portanto, a excelência não é um feito, mas um hábito- Aristóteles [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: Res: Res: [delphi-br] Arrastando arquivos do windows para dentro de um listbox
listbox, pois é so ele quem vou usar. obrigado e agurado retorno de sua resposta. Andre Luiz De: Roni Rodrigo ronirodr...@yahoo.com.br mailto:ronirodrigo%40yahoo.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Segunda-feira, 14 de Junho de 2010 19:19:17 Assunto: Re: Res: [delphi-br] Arrastando arquivos do windows para dentro de um listbox Olá André... não daria pra habilitar a opção AllowMultiSelect pra permitir selecionar múltiplos arquivos? ai vc pode percorrer a lista de arquivos selecionados, adicionando-os... sobre arrastar o arquivo pro form, procurei no google e esse foi um dos primeiros... http://www.planetadelphi.com.br/dica/6768/arrastar-e-soltar-arquivos-sobre-sua-aplica%C3%A7%C3%A3o não testei mas parece funcionar... Em 14/06/2010 17:49, Andre Luiz Stivanatto escreveu: obrigado Adriano, até agora ninguém respondeu são 17:48 hs, se você me mandar esse exemplo eu te agradeço, muito obrigado por ter me respondido. Andre Luiz De: Adriano Santos asrsan...@gmail.com mailto:asrsantos%40gmail.com mailto:asrsantos%40gmail.com Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Cc: delphi 1 lista-del...@yahoogrupos.com.br mailto:lista-delphi%40yahoogrupos.com.br mailto:lista-delphi%40yahoogrupos.com.br Enviadas: Segunda-feira, 14 de Junho de 2010 10:25:29 Assunto: Re: [delphi-br] Arrastando arquivos do windows para dentro de um listbox André, Se ninguém responder seu e-mail até a noite, te passo um exemplo. Tenho isso no meu server em home-office. Tenho um exemplo bem legal. -- Adriano Santos http://twitter.com/asrsantos www.delphitodelphi.blogspot.com 2010/6/12 Andre Luiz Stivanatto andreluiz.stivana...@yahoo.com.br mailto:andreluiz.stivanatto%40yahoo.com.br mailto:andreluiz.stivanatto%40yahoo.com.br Oi pessoal tudo bem ? Estou com um projeto aqui que estou montando, tenho um form e um listbox1 , ja fiz um botão abrir arquivos com o opendialog1 so que para abrir 4.783 arquivos no listbox1 não é facil, estava pensando em abrir a pasta dos 4.783 arquivos, depois mandar selecionar tudo de uma vez e arrastar para dentro do listbox que esta dentro do meu projeto, ai os 4.783 arquivos ficaram listados no listbox de uma vez, é mais rapido do que lever varios minutos selecionando pelo opendialog que demora muito mais, o que eu quero é um codigo que permita eu arrastar multiplos arquivos de uma pasta do windows e jogar dentro do listbox, como faço esse codigo ? obrigado pela atenção de todos ! Andre Luiz [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: Res: Res: [delphi-br] Arrastando arquivos do windows para dentro de um listbox
aahh..
qto ao icone circular do listbox... verifica a propriedade DragMode..
não lembro qual tem que ser, acho q é dmAutomatic.. mas enfim, da uma
testada ai... hehe
o/
Em 16/06/2010 13:05, Roni Rodrigo escreveu:
mas então cara... aquele exemplo ta bem mastigado...
(http://www.planetadelphi.com.br/dica/6768/arrastar-e-soltar-arquivos-sobre-sua-aplica%C3%A7%C3%A3o)
O listbox vc ja tem no form né?
a seção private está na declaração do teu form, lá onde tem: Form1 =
class(TForm) etc após as declarações dos seus componentes tem a
palara reservada PRIVATE. Logo abaixo dela vc coloca essa linha:
procedure WMDropFiles(var Msg: TMessage); message wm_DropFiles;
isso vai interceptar as mensagens de arrasto (Drag end drop) do windows..
aí vc vai nos eventos OnCreate e OnDestroy do form
No Create:
DragAcceptFiles(Handle, true);
isso diz que seu aplicativo vai aceitar que algo seja arrastado sobre ele
no Destroy:
DragAcceptFiles(Handle, false);
isso desativa o arrasto
ai vc só precisa dizer o que fazer quando arrastar os arquivos no seu
form, no seu caso, adicioná-los ao listbox...
o código está bem comentado, acho que da pra entender fácil...
se não der certo procura outra rotina no google.. tem várias... mas não
acredito que tenha maneira mais simples que essa
procedure TForm1.WMDropFiles(var Msg: TMessage);
var
I, FileCount, BufferSize: word;
Drop: HDROP;
FileName: string;
Pt: TPoint;
RctListBox, RctMemo: TRect;
begin
{ Pega o manipulador (handle) da operação
arrastar e soltar (drag-and-drop) }
Drop := Msg.wParam;
{ Pega a quantidade de arquivos soltos (dropped) }
FileCount := DragQueryFile(Drop, $, nil, 0);
{ Se nenhum arquivo... }
if FileCount = 0 then begin
ShowMessage('Nenhum arquivo.');
Exit;
end;
{ Pega o retângulo do ListBox }
RctListBox := ListBox1.BoundsRect;
{ Pega o retângulo do Memo }
RctMemo := Memo1.BoundsRect;
{ Se soltou fora da área cliente do form... }
if not DragQueryPoint(Drop, Pt) then
ShowMessage('Arquivos soltos fora da área cliente do form')
{ Se soltou na área do ListBox... }
else if PtInRect(RctListBox, Pt) then begin
{ Pega todos os nomes de arquivos e coloca no ListBox }
for I := 0 to FileCount -1 do begin
{ Obtém o comprimento necessário para o nome do arquivo,
sem contar o caractere nulo do fim da string. }
BufferSize := DragQueryFile(Drop, I, nil, 0);
SetLength(FileName, BufferSize +1); { O +1 é p/ nulo do fim da string }
if DragQueryFile(Drop, I, PChar(FileName), BufferSize+1) = BufferSize then
ListBox1.Items.Add(string(PChar(FileName)))
else
ShowMessage('Erro ao obter nome do arquivo.');
end;
{ Se soltou na área do Memo... }
end else if PtInRect(RctMemo, Pt) then begin
if FileCount 1 then
ShowMessage('Será mostrado apenas o conteúdo do primeiro arquivo.');
{ Obtém o comprimento necessário para o nome do arquivo,
sem contar o caractere nulo do fim da string.
O segundo parâmetro (zero) indica o primeiro arquivo da lista }
BufferSize := DragQueryFile(Drop, 0, nil, 0);
SetLength(FileName, BufferSize +1); { O +1 é p/ nulo do fim da string }
if DragQueryFile(Drop, 0, PChar(FileName), BufferSize+1) = BufferSize then
Memo1.Lines.LoadFromFile(string(PChar(FileName)))
else
ShowMessage('Erro ao obter nome do arquivo.');
end;
Msg.Result := 0;
end;
Em 14/06/2010 20:01, Andre Luiz Stivanatto escreveu:
então meu listbox ja esta com essa opção abilitada :
AllowMultiSelect pra
permitir selecionar múltiplos arquivos
é que para abrir 4.783 arquivos que tenho no pc demora muito tempo,
porisso preciso de arrrastar os arquivos para dentro do listbox é
muito mais facil fazer isso, pois eu abro a pasta que tem os 4.783
arquivos, vou em editar e mando selecionar tudo de uma vez depois, é
so aeu arrastar tudo para dentro do listbox.
não preciso de ter o memo, so quero o listbox mesmo, e esse codigo é
estranho pois não sei qual é a area privada da unit do form1 ?
preciso de um codigo mais simples que interage com o listbox, so
preciso que o listbox aceite os arquivos em modo arrastar, pois quando
tento fazer isso o cursor do mouse aparece o icone circular de negação.
você poderia me ver um exemplo mais pratico, ou montar o codigo ai e
me mandar, pois estou tentando e não estou conseguindo fazer esse
codigo, talvez você consigua pois se deve ter mais experiencia do
que eu.
eu aprendi programação em delphi pois fiz o colegial + processamento
de dados no opção no ano de 2000 que comecei, so que em 2002 cortaram
isso do plano das escolas , foi no terceiro ano, portanto esta
incompleto meus estudos, mas estou indo pesquisando e vendo exemplos.
so que isso que eu quero fazer num programa que renomeia extenções dos
arquivos ja consegui fazer, so falta isso para facilitar a minha vida,
pois pelo opendialog fica a vida toda para selecionar tudo, se eu
conseguir fazer o lisbox permitir o arrastar e soltar então fica muito
mais facil.
obrigado pela
Re: [delphi-br] [MAF] Largura e Altura dos componentes no Windows
utilize a propriedade Align ou crie âncoras para os componente (propriedade Anchors). uma boa solução é utilizar conteiners como painel ou groupbox pra organizar o form, isso facilita na hora que o tamaho do formulário altere por algum motivo... o/ Em 14/06/2010 11:07, Marcos Abreu Ferreira escreveu: Pessoal, uso o Windows com a opção gráfica para melhor desempenho, onde ele fica parecido com o Windows 98. Acontece que alguns clientes usam o Windows com com as propriedades gráfica mais cheio de 'enfeites' e ai aparecem barras de rolagem tanto horizontal quanto vertical nas aplicações. Como vocês fazem isso? Por exemplo. Tenho uma aplicação que tem dois Grd, a da esquerda tem tamanho fixo e o da direita tem a posição LEFT fixa e o WIDTH dela varia conforme o tamanho da tela da aplicação. Acerto os valores para funcionar direito no meu Windows, ai quando vou experimentar em outros Windows, aparecem as barras de rolagem. Qual a solução que vocês encontraram para isso? -- Att, Marcos A. Ferreira São Paulo - Brasil +55 11 9309-3936 +55 11 8905-9889
Re: Res: [delphi-br] Arrastando arquivos do windows para dentro de um listbox
Olá André... não daria pra habilitar a opção AllowMultiSelect pra permitir selecionar múltiplos arquivos? ai vc pode percorrer a lista de arquivos selecionados, adicionando-os... sobre arrastar o arquivo pro form, procurei no google e esse foi um dos primeiros... http://www.planetadelphi.com.br/dica/6768/arrastar-e-soltar-arquivos-sobre-sua-aplica%C3%A7%C3%A3o não testei mas parece funcionar... Em 14/06/2010 17:49, Andre Luiz Stivanatto escreveu: obrigado Adriano, até agora ninguém respondeu são 17:48 hs, se você me mandar esse exemplo eu te agradeço, muito obrigado por ter me respondido. Andre Luiz De: Adriano Santos asrsan...@gmail.com mailto:asrsantos%40gmail.com Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Cc: delphi 1 lista-del...@yahoogrupos.com.br mailto:lista-delphi%40yahoogrupos.com.br Enviadas: Segunda-feira, 14 de Junho de 2010 10:25:29 Assunto: Re: [delphi-br] Arrastando arquivos do windows para dentro de um listbox André, Se ninguém responder seu e-mail até a noite, te passo um exemplo. Tenho isso no meu server em home-office. Tenho um exemplo bem legal. -- Adriano Santos http://twitter.com/asrsantos www.delphitodelphi.blogspot.com 2010/6/12 Andre Luiz Stivanatto andreluiz.stivana...@yahoo.com.br mailto:andreluiz.stivanatto%40yahoo.com.br Oi pessoal tudo bem ? Estou com um projeto aqui que estou montando, tenho um form e um listbox1 , ja fiz um botão abrir arquivos com o opendialog1 so que para abrir 4.783 arquivos no listbox1 não é facil, estava pensando em abrir a pasta dos 4.783 arquivos, depois mandar selecionar tudo de uma vez e arrastar para dentro do listbox que esta dentro do meu projeto, ai os 4.783 arquivos ficaram listados no listbox de uma vez, é mais rapido do que lever varios minutos selecionando pelo opendialog que demora muito mais, o que eu quero é um codigo que permita eu arrastar multiplos arquivos de uma pasta do windows e jogar dentro do listbox, como faço esse codigo ? obrigado pela atenção de todos ! Andre Luiz [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] Sugestão
não concordo... acredito que a performace da nova dbx está excelente, nunca usei unidac, por isso não posso fazer uma comparação, mas além do driver nativo pra firebird, a dbx possui completa integração com o DataSnap... além de não ter custos o/ Em 14/06/2010 14:55, Eduardo Silva dos Santos escreveu: Unidac sem dúvida, você terá performance maior que com DBX, vai ter distribuição facilitada, será necessio somente a DLL cliente do FB, nada mais. E o mais importante, um suporte fantástico por parte da DevArt, qualquer bug encontrado é corrigido rapidamente. Seria interessante comparar o IbDAC e o Unidac. Att, ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 9961-7095 MSN:eduardo@gmail.com Site:http://www.drdsistemas.com.br/ ... Em 14 de junho de 2010 14:34, Nazareno Neto nazareno.nobr...@gmail.comescreveu: Pessoal, tenho um sistema desenvolvido em delphi 7 + ibx + firebird 1.5. Depois da copa estou pensando em mudar para a delphi 2010 e firebird 2.5 quando sair a versao oficial, mas ai veio a questao, continuar no ibx ou migrar para dbx ou unidac? aqui nos temos a possibilidade de adiquirir o unidac. O que vcs me dizem sobre esse assunto? -- Nazareno Neto Desenvolvedor Delphi e Firebird http://www.delphisistemas.com.br nazarenon...@delphisistemas.com.br nazarenoneto%40delphisistemas.com.br nazareno.nobr...@gmail.com nazareno.nobrega%40gmail.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] Quando utilizar Locate ou Select ?
o Locate deve ser usado só para pesquisar nos registros já carregados, para evitar de fazer uma nova consulta ao banco... mas se vc souber com quais registros vai trabalhar antes de carregar o dataset, com certeza o select é a melhor opção Em 07/06/2010 10:28, Albuquerque escreveu: -Em que situações é recomendável utilizar LOCATE ao invés de SELECTwhere... = ? -Há ganho de performance com LOCATE ? Desde já agradeço a atenção dispensada. Att. Albuquerque
RES: [delphi-br] Código de Barras QuickReport
Bom dia, eu estou utilizando o componente em anexo no Delphi 7 não sei se roda no 2007. Att Rodrigo Alex Marchiori De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Evaldo Enviada em: terça-feira, 1 de junho de 2010 09:31 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Código de Barras QuickReport O QuickReport tem componente para impressão de código de barras nativo? ou preciso instalar outro? Delphi 2007 QuickReport 4 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: RES: [delphi-br] Código de Barras QuickReport
Maravilha! De nada cara. Att Rodrigo Alex Marchiori De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Evaldo Enviada em: terça-feira, 1 de junho de 2010 16:40 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Código de Barras QuickReport Testei aqui e funcionou perfeitamente com o delphi 2007. Obrigado! From: Rodrigo Alex Marchiori r.marchi...@uol.com.br mailto:r.marchiori%40uol.com.br To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Tue, June 1, 2010 9:33:04 AM Subject: RES: [delphi-br] Código de Barras QuickReport Bom dia, eu estou utilizando o componente em anexo no Delphi 7 não sei se roda no 2007. Att Rodrigo Alex Marchiori 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 Evaldo Enviada em: terça-feira, 1 de junho de 2010 09:31 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: [delphi-br] Código de Barras QuickReport O QuickReport tem componente para impressão de código de barras nativo? ou preciso instalar outro? Delphi 2007 QuickReport 4 [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] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] ComponentCount ???
passe o nome do arquivo e o combobox por parâmetro. procedure LerArquivo(NomeArquivo: TFileName; Combo: TComboBox); begin ... AssignFile(txt, NomeArquivo); ... Combo.Items.Add((copy(Linha1,1,10))); end; o/ Em 28/05/2010 16:17, Claudio escreveu: Olá pessoal. Estou com uma duvida de iniciante, mas que não consegui achar solução no google Tenho que fazer esta rotina varias vezes, trocando somente o nome do arquivo e ComboBox. while not Eof (Texto) do begin AssignFile(txt, 'C:/arquivo.txt'); Reset(txt); Readln(txt); ComboBox2.Items.Add((copy(Linha1,1,10))); end; Closefile(txt); Pensei em chamar um procedimento, mas como faço para trocar o nome(index) do Combobox ? Ou como saber que o componentindex de um ComboBoxY é tal ? Obrigado. Claudio.
Re: [delphi-br] Tem algum segredo pra fazer o DBExpress funcionar no Win7 + D7 ?
não tem algum evento acessando algum item de alguma lista? tentou remover o componente e adicionar de novo? o/ Em 27/05/2010 17:52, Albuquerque escreveu: Alguém da lista utiliza DBexpress no Windows 7 (32bits) + Delphi7 + SQLServer2000 ? Na compilação com DBExpress não dá erro algum, na na execução qualquer transação que eu faça é retornado o erro “list index out of bounds”. Pra testar peguei uma unit do projeto e troquei os componentes dela para ADO e...funcionou ! DETALHE IMPORTANTE : Não alterei NADA no projeto. Apenas abri, compilei (ok) no Win7 e rodei a aplicação. Está exatamente do mesmo jeito que estava (e rodava !) no XP. Por acaso tem algum segredo pra fazer o DBExpress funcionar no Win7 + D7 ? Desde já agradeço a atenção dispensada. Att. Albuquerque -- 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: delphi-br-ow...@yahoogrupos.com.br 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: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] MVC + Delphi
Boa tarde. Estou a desenvolver uma aplicação comercial e estou com muitas dúvidas sobre como fazer este projeto, eis alguns requisitos que levantei: * Deve haver a possibilidade de trabalho Client/Server * Utilizará banco de dados relacional - Firebird 2.0 * Padrão MVC Orientado a objetos. * IDE Delphi 2010 Meu questionamento está no último requisito, é possivel se fazer um trabalho em delphi utilizando seus componentes SQLConnection, DataSource, etc, separando isso em camadas? Pois até onde eu sei se eu colocar um componente SQLQuery em um form eu to fazendo referência direta ao banco de dados. Como resolveria este problema. Este projeto é pessoal. Tenho poucos conhecimentos em delphi. Há... estava até pensando em devenvolver em Java pois lá tenho uma visão melhor dessa separação em camadas, sei que ia pecar um pouco na parte visual e também na parte Client/Server já que o Delphi tem o DataSnap. -- Att. Rodrigo Rossi rdrg_ro...@hotmail.com (45) 9963-1897 Cascavel - PR
Re: [delphi-br] Ajuda com sql
SELECT CAMPO1, CAMPO2, CAMPO3, SUM(CAMPO4) AS SOMA FROM TMOV
GROUP BY CAMPO1, CAMPO2, CAMPO3
ORDER BY CODPRODUTO, ORIGEM
O SUM irá somar os valores do seu campo.
o GROUP BY irá agrupar pelos demais campos...
o/
Em 25/05/2010 05:02, Allan GabrielAM escreveu:
Prezados, tenho uma tabela que tem armazenado os seguintes dados:
cod descricao origem qtde
1 111 A 1
1 111 A 1
1 111 C 1
2 222 A 1
2 222 A 1
3 333 B 1
No gerador de relatórios que uso (fortes report) ele aparece da forma
citada acima, mas estou precisando fazer aparecer agrupado por
cod,origem somando a quantidade ficaria assim:
1 111 A 2 aqui soma as duas quantidades da mesma origem (A) e
mesmo produto (1)
1 111 C 1
2 222 A 2 aqui soma as duas quantidades da mesma origem (A) e
mesmo produto (2)
3 333 B 1
No filtro antes de imprimir estou fazendo assim:
DatAM.ibqMov.close;
DatAM.IbqMov.sql.clear;
DataM.ibqmov.sql.add('select * from tmov order by codproduto,origem');
DataM.ibqmov.open;
Como faço pra sair como eu preciso?
Obrigado.
Rafael.
[delphi-br] MVC + Delphi
Boa tarde. Estou a desenvolver uma aplicação comercial e estou com muitas dúvidas sobre como fazer este projeto, eis alguns requisitos que levantei: * Deve haver a possibilidade de trabalho Client/Server * Utilizará banco de dados relacional - Firebird 2.0 * Padrão MVC Orientado a objetos. * IDE Delphi 2010 Meu questionamento está no último requisito, é possivel se fazer um trabalho em delphi utilizando seus componentes SQLConnection, DataSource, etc, separando isso em camadas? Pois até onde eu sei se eu colocar um componente SQLQuery em um form eu to fazendo referência direta ao banco de dados. Como resolveria este problema. Este projeto é pessoal. Tenho poucos conhecimentos em delphi. Há... estava até pensando em devenvolver em Java pois lá tenho uma visão melhor dessa separação em camadas, sei que ia pecar um pouco na parte visual e também na parte Client/Server já que o Delphi tem o DataSnap. -- Att. Rodrigo Rossi rdrg_ro...@hotmail.com (45) 9963-1897 Cascavel - PR [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Firebird Corrompendo apos criar SP e Tiggers
mas tem q ter tempo pra ler td isso né?? pq vc nao manda soh a procedure ou trigger q ta dando problema... e explica direito esse negócio de corrompendo.. corromprendo como? o problema é com a integridade dos dados ou com a estrutura da tabela?? o/ Em 22/05/2010 10:56, Iran Lima escreveu: Olá Pessoal, Estou com um problema aqui que começou após criar umas Procedures e Triggers para controle de Estoque. Criei uma tabela de movimentação de produtos e nela as triggers de atualização de estoque na tabela do produto. Para gravar a movimentação do produto uso uma SP que passado um pedido como parâmetro lança todos os itens do mesmo na tabela de movimentação Funcionou tudo certo como eu desejava porem a tabela de movimentação do produto começou a corromper. Se alguém poder me ajudar serei muito grato. /*** ***/ / Stored Procedures / /*** ***/ CREATE PROCEDURE SP_EXTB_COMPRA ( NR_DOC VARCHAR(10), COD_FORN VARCHAR(5)) AS BEGIN EXIT; END^ CREATE PROCEDURE SP_EXTB_LOTE ( COD_EMP INTEGER, COD_LOTE VARCHAR(6)) AS BEGIN EXIT; END^ CREATE PROCEDURE SP_EXTB_VENDA ( COD_EMP INTEGER, COD_PED INTEGER) AS BEGIN EXIT; END^ CREATE PROCEDURE SP_MOVB_COMPRA ( NR_DOC VARCHAR(10), COD_FORN VARCHAR(5)) AS BEGIN EXIT; END^ CREATE PROCEDURE SP_MOVB_LOTE ( COD_EMP INTEGER, COD_LOTE VARCHAR(6)) AS BEGIN EXIT; END^ CREATE PROCEDURE SP_MOVB_VENDA ( COD_EMP INTEGER, COD_PED INTEGER) AS BEGIN EXIT; END^ SET TERM ; ^ /*** ***/ / Tables / /*** ***/ CREATE TABLE MOV_B ( COD_MPROD INTEGER NOT NULL, COD_PROD VARCHAR(5) NOT NULL, TELA CHAR(1) NOT NULL, DATA_MOVI TIMESTAMP DEFAULT CURRENT_TIMESTAMP NOT NULL, QTD_MOV NUMERIC(12,3) DEFAULT 0 NOT NULL, COD_EMP INTEGER NOT NULL, COD_PED INTEGER, COD_FORN VARCHAR(5), NR_DOC VARCHAR(10), NR_PRO VARCHAR(6), COD_DEV VARCHAR(5), TIPO_SAI CHAR(1), COD_LOTE VARCHAR(6) ); /*** ***/ / Triggers for tables / /*** ***/ /* Trigger: TG_ADD_ESTOQUE */ CREATE TRIGGER TG_ADD_ESTOQUE FOR MOV_B ACTIVE BEFORE INSERT POSITION 0 AS declare variable VQTDE NUMERIC(12,3); begin /* Adiciona Movimento ao estoque */ IF(NEW.TIPO_SAI = 'S') THEN VQTDE = -NEW.QTD_MOV; ELSE IF(NEW.TIPO_SAI = 'E') THEN VQTDE = +NEW.QTD_MOV; IF ((NEW.TIPO_SAI = 'S') OR (NEW.TIPO_SAI = 'E')) THEN UPDATE EST_PROD SET QTD_ATU_B = QTD_ATU_B + :VQTDE WHERE COD_PROD = NEW.COD_PROD; end ^ /* Trigger: TG_REM_ESTOQUE */ CREATE TRIGGER TG_REM_ESTOQUE FOR MOV_B ACTIVE AFTER DELETE POSITION 0 AS declare variable VQTDE NUMERIC(12,3); begin /* Adiciona Movimento ao estoque */ IF(OLD.TIPO_SAI = 'S') THEN VQTDE = +OLD.QTD_MOV; ELSE IF(OLD.TIPO_SAI = 'E') THEN VQTDE = -OLD.QTD_MOV; IF ((OLD.TIPO_SAI = 'S') OR (OLD.TIPO_SAI = 'E')) THEN UPDATE EST_PROD SET QTD_ATU_B = QTD_ATU_B + :VQTDE WHERE COD_PROD = OLD.COD_PROD; end ^ SET TERM ; ^ /*** ***/ / Stored Procedures / /*** ***/ SET TERM ^ ; ALTER PROCEDURE SP_EXTB_COMPRA ( NR_DOC VARCHAR(10), COD_FORN VARCHAR(5)) AS BEGIN /* Deleta Movimento de Venda */ DELETE FROM MOV_B WHERE NR_DOC = :NR_DOC AND COD_FORN = :COD_FORN AND TELA = 'C'; END ^ ALTER PROCEDURE SP_EXTB_LOTE ( COD_EMP INTEGER, COD_LOTE VARCHAR(6)) AS BEGIN /* Deleta Movimento de Lote */ DELETE FROM MOV_B WHERE COD_EMP = :COD_EMP AND COD_LOTE = :COD_LOTE AND TELA = 'L'; END ^ ALTER PROCEDURE SP_EXTB_VENDA ( COD_EMP INTEGER, COD_PED INTEGER) AS BEGIN /* Deleta Movimento de Venda */ DELETE FROM MOV_B WHERE COD_EMP = :COD_EMP AND COD_PED = :COD_PED AND TELA = 'V'; END ^ ALTER PROCEDURE SP_MOVB_COMPRA ( NR_DOC VARCHAR(10), COD_FORN VARCHAR(5)) AS BEGIN /* Deleta Movimento de Venda */ DELETE FROM MOV_B WHERE NR_DOC = :NR_DOC AND COD_FORN = :COD_FORN AND TELA = 'C'; /* Inclui Movimento de Venda */ INSERT INTO MOV_B (COD_MPROD, COD_PROD, TELA, DATA_MOVI, QTD_MOV, COD_EMP, NR_DOC, COD_FORN, TIPO_SAI) SELECT GEN_ID (GEN_MOV_B, 1), ITN.COD_PROD, 'C', CURRENT_TIMESTAMP, ITN.QTD_02, CAB.COD_EMP, ITN.NR_DOC, ITN.COD_FORN, IIF(CFO.TIPO_E_S = '1', 'E', iif(CFO.TIPO_E_S = '2', 'S', 'N')) FROM ENT_ITN ITN LEFT OUTER JOIN ENT_CAB CAB ON (CAB.NR_DOC = ITN.NR_DOC AND CAB.COD_FORN = ITN.COD_FORN) LEFT OUTER JOIN CFOP CFO ON (CFO.CFOP = CAB.CFOP)
Re: [delphi-br] [MAF] Processamento de informaçõe s em lote
iuahaiuhaauiahiuaha eu tava pensando em algo como uma TObjectList... mas essa da TQueue matou a pau também acho que seria interessante você substituir o timmer por algum evento disparado no momento que teu sockect recebe essa informação, para não ser necessário ficar lendo mesmo quando não esta recebendo nada... e se o tratamento dessa informação tiver que ser paralelo à aplicação, sugiro usar uma thread para processá-las.. o/ Em 21/05/2010 11:22, Dirlei Dionisio escreveu: Isse é o tipo de problema que me dá água na boca! Vamos lá. Seu problema pode ser resolvido com a estrutura de dados FIFO (First In First Out), também conhecida como FILA (o primeiro que entra é o primeiro que sai). O Delphi tem uma classe pra lidar com essa estrutura, se chama TQueue e fica na unit Contnrs. Nessa estrutura, há dois métodos principais: Push - para colocar um item no final da fila Pop - para remover o item que está no início da fila Na implementação em Delphi, os itens são do tipo Pointer. Você pode criar uma classe para encapsular as informações que recebe via socket. Se essa classe herdar de TInterfacedObject você nem precisará se preocupar com a desalocação desses objetos. O problema com a sua solução: Arrays dinâmicos precisam ser realocados na memória cada vez que você aumenta o tamanho dele. Dependendo da quantidade de itens no array e do quanto cada item ocupa em memória, isso pode ser uma operação cara. Independente do tamanho que chega o seu array e do quanto ele ocupa em memória, com certeza a solução usando uma FILA terá um desempenho melhor (além de ser bem mais elegante). Espero ter ajudado. Um abraço, Dirlei Dionísio http://MaisQueBomCodigo.blogspot.com Em Sex, 2010-05-21 às 13:47 +, Marcos Abreu Ferreira escreveu: Pessoal, tenho a seguinte situação: Recebo informações de um sistema via socket e essas informações teem que ser processadas na ordem que chegam e não podem ser processadas sem que o processamento da anterior termine. Tentei fazer usando o ClientDataSet, onde criei um campo autoincrement e outro com a informação a ser processada. Como posso receber umas 200 linhas de informações por segundo, o ClientDataSet se mostrou lento, pois preciso de uma resposta super rápida no processamento. Resolvi então trabalhar com array dinâmico, onde a cada vez que recebo uma informação, crio um elemento novo no array e salvo a informação lá. Tenho uma variável global onde controlo qual foi o último array processado e verificando quantos elementos tem o array, processos os faltantes. Coloquei um timer varrendo o array de 1 em 1 milisegundo. Qual a opinião de vocês quanto a minha solução? Teriam alguma dica sobre como melhora-la?
Re: [delphi-br] Consulta de vários dados em um unico campo
crie seu sql usando in:
where c.matricula in (1,24,23,25,6)
ou no caso... seu edtmatriculas..
o/
Em 19/05/2010 09:39, Herik escreveu:
Estou fazendo uma consulta para gerar um relatorio, esa cosnulta está
certinho, mais ele consulta apanas uma matricula no EDMATRICULAS.TEXT,
eu no caso preciso que ela consulte varias matriculas, ou seja, ao
colocar uma matricula e a virgula, outra matricula e a virgula, ele
consulte e gere o relatorio de todas as matriculas inseridas, até não
encontrar a virgula. Acredito precisar de um while mais eu nao tenho
ideia de como fazer.
Se alguem puder me ajuda reu agradeço...
Segue abaixo a consulta que estou usando
procedure btnOKOnClick(Sender: TfrxComponent);
begin
qLOCAL.sql.clear;
qCLIENTE.sql.clear;
qCLIENTE.sql.add('select distinct c.matricula, c.categoria, c.nome,
c.endereco, c.numero_imovel, c.hidrometro, c.complemento, c.ROTEIRO,');
qCLIENTE.sql.add('c.ECO_AGUA_RES, c.ECO_AGUA_COM, c.ECO_AGUA_IND,
c.ECO_AGUA_PUB, c.ECO_AGUA_UTP,');
qCLIENTE.sql.add('c.ECO_ESG_RES, c.ECO_ESG_COM, c.ECO_ESG_IND,
c.ECO_ESG_PUB, c.ECO_ESG_UTP, c.DT_INSTALACAO, l.nome,');
qCLIENTE.sql.add('s.cpf_cnpj, s.bairro, s.telefone, s.codope');
qCLIENTE.sql.add('from cliente c, sgcf s, local l');
qCLIENTE.sql.add(' where c.matricula = ' + EDMATRICULAS.TEXT);
qCLIENTE.sql.add('and c.matricula = s.matricula and c.i_local =
l.i_local');
QLOCAL.SQL.ADD('select * from servicos where i_servico = ' +
CBSERVICO.TEXT);
end;
Re: Res: [delphi-br] Re: Programador - valor cobrado por hora
Excelente colocação Em relação ao valor da hora cobrada, a empresa onde trabalho pratica o valor de R$ 80,00 que é o padrão de nossa região, mas tem muito free-lancer que cobra barato pelo serviço, isso desvaloriza e muito o nosso trabalho, deixei de desenvolver um sistema para uma empresa de Pet-Shoop pois o dono do PET conhecia um cara que estudou com ele e por isso ele ia cobrar R$ 500,00 o sistema e não iria cobrar a manutenção mensal. Vai competir como com um cara desses se o cliente ta interessado é no valor? Não sei qual as características do software do cara mais as vezes o barato sai caro. Att. Rodrigo Rossi rdrg_ro...@hotmail.com (45) 9963-1897 Cascavel - PR Em 19-05-2010 11:39, reginaldo silva escreveu: Já fiz muitos serviços free-lancer. O valor da minha hora hoje é de 90,00 como o amigo comentou, meu tempo livre é nas madrugadas e finais de semanas, então tem que valer a pena. Se o cliente não quiser pagar o valor que procure outronão acho certo que o cliente coloque o preço no meu serviço . quando vou a padaria comprar pão a balconista não aceitaria eu dizer que o pão está caro e só vou pagar metade do valor... isso seria desvalorizar o serviço do padeiro e desconsiderar o material empregado como farinha, óleo, fermento, etc Tem outro problema ao cobrar barato, pois muitos clientes acham que cobrando barato terão um serviço barato.( de baixa qualidade) Atenciosamente, Reginaldo Pci Power De: Thiago thiagomontez...@yahoo.com.br mailto:thiagomontezano%40yahoo.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Terça-feira, 18 de Maio de 2010 22:33:45 Assunto: [delphi-br] Re: Programador - valor cobrado por hora Bom meu caro, Quando faço serviço freelancer cobro R$ 75,00 a hora, conheço alguns que cobram R$90,00. Mas convenhamos nosso serviço tem que ser valorizado, e também o cliente irá pagar uma única vez e pronto acabou. Além de que no meu caso o tempo disponível é finais de semana e madrugadas então tem que compensar Valor X hora. E para mim este valor compensa. Atenciosamente, Thiago Montezano Analista de Sistemas Época - Comércio e Distribuição --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br, Alemão forumdel...@... escreveu Pessoal, estou pegando alguns trabalhos freela de programação em Delphi. Coisa bem simples, criação de alguns cadastros em um sistema ja existente. Gostaria de saber qual a média de valor por hora que vocês cobram, quem trabalha por hora. Alguma idéia? []s Alemão [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] Layout de Distribuição NFE
vc tem q incluir a assinatura do arquivo assinada pelo certificado digital da empresa. Em 17/05/2010 09:10, Berdam escreveu: Olá galera, estou tendo um problema no layout de distribuição da NFE, segui as normas do manual versão 2.0.2, porém está acusando um erro de Message de erro:Assinatura digital não é válida Alguém já passou por isso e talvez saiba a real causa ?? Verifiquei a nota e está tudo certo aparentemente. Alguém não tem algum exemplo da nota de layou de distribuição ?? Obrigado desde já. Segue o xml... ...
Re: [delphi-br] Acbr ou Emissor de NFe
cara... se vc vai comecar, sugiro usar o acbr, algum outro componente, ou criar suas próprias classes... mas de qualquer forma, enviando direto pro web service... dá um pouco de trabalho no início, mas as vantagens a longo prazo são grandes.. Nunca usei o programa emissor da RF, mas parece que ele é permitido para empresas até determinado porte, ou seja, não são todas as empresas que podem enviar a nf pelo programa deles.. outra coisa é que o cara vai ter q gerar um txt.. e ir no programa da receita pra enviar a nota... Em 17/05/2010 10:07, Eny Urias escreveu: Olá pessoal! Preciso implementar no sistema o envio de NFe... O meu cliente já utiliza o programa Emissor da receita... estou na duvida se inicio o trabalho com o ACBr ou simplesmente envio o txt para o Emissor da receita. Qual a vantagem de cada um? Algum já teve essa duvida?
Re: Res: RES: [delphi-br] Acbr ou Emissor de NFe
O certificado pode ser instalado em várias máquinas... somente as máquinas que tiverem o certificado instalado (não só o do contribuinte, mas sim toda a árvore de certificados) é que poderão assinar as notas... você pode instalar o certificado na sua máquina para testar no ambiente de homologação... Em 17/05/2010 15:33, Eny Urias escreveu: E como fazem as grandes empresas? Possuem mais de um certificado? Ou só uma maquina fica disponivel pra isso? Entranho... -- Eny Trova Urias Somos o que repetitivamente fazemos, portanto, a excelência não é um feito, mas um hábito- Aristóteles De: Rubem Rocha rubem.ro...@dtmanaus.com.br mailto:rubem.rocha%40dtmanaus.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Segunda-feira, 17 de Maio de 2010 14:57:26 Assunto: RES: [delphi-br] Acbr ou Emissor de NFe Tem que ter um certificado do contribuinte para poder acessar os ambientes de homologação. Não pode ser qualquer certificado. Tem que ser um certificado contendo os dados de contribuinte já autorizado na SEFAZ para acessar o ambiente de homologação. O certificado digital, seja A1(arquivo) ou A3(token), deve obrigatoriamente ser instalado no computador. Não pode apontar para um arquivo de rede simplesmente. Sds. 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 Eny Urias Enviada em: segunda-feira, 17 de maio de 2010 13:56 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: Res: [delphi-br] Acbr ou Emissor de NFe Nesse caso eu tenho que testar na maquina do cliente por causa do certificado? Ou existe alguma maneira de testar sem eu ter o certificado na maquina? Alias, outra duvida... no cliente, só o computador onde esta instalado o certificado é que as notas podem ser enviadas? Não dá pra fazer uso do certificado na rede? Agradeço a atenção de todos! -- Eny Trova Urias Somos o que repetitivamente fazemos, portanto, a excelência não é um feito, mas um hábito- Aristóteles De: Roni Rodrigo ronirodr...@yahoo.com.br mailto:ronirodrigo%40yahoo.com.br mailto:ronirodrigo%40yahoo.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Segunda-feira, 17 de Maio de 2010 13:01:26 Assunto: Re: [delphi-br] Acbr ou Emissor de NFe cara... se vc vai comecar, sugiro usar o acbr, algum outro componente, ou criar suas próprias classes... mas de qualquer forma, enviando direto pro web service... dá um pouco de trabalho no início, mas as vantagens a longo prazo são grandes.. Nunca usei o programa emissor da RF, mas parece que ele é permitido para empresas até determinado porte, ou seja, não são todas as empresas que podem enviar a nf pelo programa deles.. outra coisa é que o cara vai ter q gerar um txt.. e ir no programa da receita pra enviar a nota... Em 17/05/2010 10:07, Eny Urias escreveu: Olá pessoal! Preciso implementar no sistema o envio de NFe... O meu cliente já utiliza o programa Emissor da receita... estou na duvida se inicio o trabalho com o ACBr ou simplesmente envio o txt para o Emissor da receita. Qual a vantagem de cada um? Algum já teve essa duvida? [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] Listar Arquivos em TMemo
procure na guia Win 3.1 os componentes TFilesListBox e TDirectoryListBox... o/ Em 14/05/2010 20:50, cas.felippe escreveu: Olá pessoal tenho a seguinte duvida preciso colocar em TMemo uma lista de visualizção de aqrquivos como no dos em que as pastas e arquivos são mostrados na tela como uma lista alguem saberia como fazer?
Re: [delphi-br] ajuda com DBGRID
da uma olhada ai... http://scriptbrasil.com.br/forum/index.php?showtopic=103586pid=433423st=0#entry433423 é uma função pra copiar os dados do grid... mas vc pode ver como funciona a rotina pra percorrer teu dataset... o/ Em 11/05/2010 11:29, Richardson Freddo escreveu: Pessoal. Tenho um DBGRID na tela com registros.. então o usuário vai selecionar alguns registros aleatoriamente.. (MultiSectc) .. Agora é o seguinte.. eu quero pegar esses registros q ele selecionou e trabalhar com eles.. tipo assim sao boletos emitidos.. e agora, quero gerar os arquivos de remessa desses boletos.. ja tenho a rotina para gerar o arquivo .. so quer saber como fazer para ele gerar o arquivo de remessa para os boletos que ele selecionou no dbgrid.. entenderam? Valeww Richardson Marcelo Freddo. msn: freddodp...@hotmail.com mailto:freddodpvat%40hotmail.com Skype: r.freddo Rondonópolis/MT [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] Gerar chave pública e priva da
o próprio internet Explorer... ferramentas - opcoes da internet... certificados por aí... tem a opção exportar.. o/ Em 11/05/2010 15:28, Marlon Tiedt escreveu: Pessoal, estou precisando gerar chaves publicas e privadas a partir de um certificado PFX. Que programa eu posso usar para fazer isto? []s Marlon [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] [OFF-TOPIC] Compensa trocar SQL2000 pelo 2005Express ?
Olá... respondendo suas perguntas: 1) Acessando a base do 2000 pelo SSMS do 2005Express, somente para fins de consulta (o mesmo feito pelo QueryAnalyzer) há riscos de danificar a base de dados do 2000 ? Não... o acesso para consulta é feito pelo SQL Server Management Studio.. que é uma ferramenta para consulta conectar-se tando servidores 2000 como no 2005. Porém, a partir do momento que você anexar uma base criada no 2000 (Versão 8.0) no server do 2005 (versão 9...) a base será convertida para o novo formato e não será mais possível anexar novamente no 2000 (versão 8). O mesmo ocorre com backups: é possível restaurar um backup feito no 2000 para o 2005, porém o inverso não é possível. 2) Mesmo trocando por uma versão menos antiga (2005Express) há significativo ganho de performance nesta troca ? Não posso te dizer com certeza pq não cheguei a fazer um comparativo... mas me parece ser um pouco mais ágil que o 2000... A maior diferença que eu reparei foram nas ferramentas, funções, gerenciamento da base, replicação, segurança.. etc... 3) Há muita diferença na versão paga do 2005 em relação a versão free ? Procure os detalhes no site da Microsoft... mas a versão free é limitada (processadores, usuários, tamanho da base...) eu tb sinto falta da replicação, que só tem na versão paga. Acho que seja até bom migrar, uma vez que o 2000 não tem versão 64 bits.. São quse totalmente compatíveis.. muda muita pouca coisa nos seus fontes... na verdade nos fontes nao muda nada... muda alguma coisa na sintaxe do SQL se vc usar funções ou métodos que foram renomeados, receberam outros parametros, etc... espero ter ajudado.. o/ Em 11/05/2010 11:06, Albuquerque escreveu: Bom dia. Utilizamos atualmente o SQL2000, consequentemente toda manutenção na base é feita via EnterpriseManager. Instalamos o 2005Express apenas para fins de testes, uma vez que ele é free. Nossa empresa é de pequeno porte (Win2003Server + 17 terminais, base com 2gb após 5 anos de uso), e pretendemos reestruturar todo nosso sistema (fontes, banco, regras de negócio, etc.). Portanto peço ajuda aos mais experientes quanto a três dúvidas que surgiram: 1) Acessando a base do 2000 pelo SSMS do 2005Express, somente para fins de consulta (o mesmo feito pelo QueryAnalyzer) há riscos de danificar a base de dados do 2000 ? 2) Mesmo trocando por uma versão menos antiga (2005Express) há significativo ganho de performance nesta troca ? 3) Há muita diferença na versão paga do 2005 em relação a versão free ? (lembrem-se que somos uma pequena empresa !) Desde já agradeço a atenção dispensada. Att. Albuquerque [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Componente AutoExecutavel
encapsule a propriedade Automatico... por ex: property Automatico: Boolean read FAutomatico write setAutomatico; toda vez que alterar o valor da propriedade Automatico é chamado o método setAutomatico... ai vc verifica nele procedure TComponente.setAutomatico(Value: Boolean); begin if FAutomatico Value then begin FAutomatico := Value; if Fautomatico then Validar; end; end; essa me parece a melhor forma Em 07/05/2010 15:35, Jhosef Marks escreveu: E ai povo, to fazendo um componente que tem um metódo Validar. Quem for usar tem que colocar... Componente.Validar; para que ele faça o que tem que fazer... Agora eu criei uma propriedade Automatico; Só que não to conseguindo fazer com que o componente chame o Validar quando o automatico foi setado em true. Se eu faço isso no OnCreate do componente sempre vai acontecer a mesma coisa baseado no que configurei como default... Tentei usar o ComponentState mas em tempo de execução está vazio (ou seja []). Como eu consigo resolver isso??? Alguma dica??? Att, Jhosef Marks de Carvalho Blog: http://www.jhosefmarks.com.br http://www.jhosefmarks.com.br Jesus está voltando E se o meu povo, que se chama pelo meu nome, se humilhar, e orar, e buscar a minha face e se converter dos seus maus caminhos, então eu ouvirei dos céus, e perdoarei os seus pecados, e sararei a sua terra. (2 Cr 7:14) [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] Componente AutoExecutavel
encapsule a propriedade Automatico... por ex:
property Automatico: Boolean read FAutomatico write setAutomatico;
toda vez que alterar o valor da propriedade Automatico é chamado o
método setAutomatico... ai vc verifica nele
procedure TComponente.setAutomatico(Value: Boolean);
begin
if FAutomatico Value then
begin
FAutomatico := Value;
if Fautomatico then
Validar;
end;
end;
essa me parece a melhor forma
Em 07/05/2010 15:35, Jhosef Marks escreveu:
E ai povo, to fazendo um componente que tem um metódo Validar.
Quem for usar tem que colocar... Componente.Validar; para que ele faça
o que
tem que fazer...
Agora eu criei uma propriedade Automatico;
Só que não to conseguindo fazer com que o componente chame o Validar
quando
o automatico foi setado em true.
Se eu faço isso no OnCreate do componente sempre vai acontecer a mesma
coisa
baseado no que configurei como default...
Tentei usar o ComponentState mas em tempo de execução está vazio (ou seja
[]).
Como eu consigo resolver isso??? Alguma dica???
Att,
Jhosef Marks de Carvalho
Blog: http://www.jhosefmarks.com.br http://www.jhosefmarks.com.br
Jesus está voltando
E se o meu povo, que se chama pelo meu nome, se humilhar, e orar, e
buscar
a minha face e se converter dos seus maus caminhos, então eu ouvirei dos
céus, e perdoarei os seus pecados, e sararei a sua terra. (2 Cr 7:14)
[As partes desta mensagem que não continham texto foram removidas]
!-- #ygrp-mkp { border: 1px solid #d8d8d8; font-family:
Arial; margin: 10px 0; padding: 0 10px; } #ygrp-mkp hr { border: 1px
solid #d8d8d8; } #ygrp-mkp #hd { color: #628c2a; font-size: 85%;
font-weight: 700; line-height: 122%; margin: 10px 0; } #ygrp-mkp #ads
{ margin-bottom: 10px; } #ygrp-mkp .ad { padding: 0 0; } #ygrp-mkp .ad
a { color: #ff; text-decoration: none; } #ygrp-sponsor #ygrp-lc {
font-family: Arial; } #ygrp-sponsor #ygrp-lc #hd { margin: 10px 0px;
font-weight: 700; font-size: 78%; line-height: 122%; } #ygrp-sponsor
#ygrp-lc .ad { margin-bottom: 10px; padding: 0 0; } a { color:
#1e66ae; } #actions { font-family: Verdana; font-size: 11px; padding:
10px 0; } #activity { background-color: #e0ecee; float: left;
font-family: Verdana; font-size: 10px; padding: 10px; } #activity span
{ font-weight: 700; } #activity span:first-child { text-transform:
uppercase; } #activity span a { color: #5085b6; text-decoration: none;
} #activity span span { color: #ff7900; } #activity span .underline {
text-decoration: underline; } .attach { clear: both; display: table;
font-family: Arial; font-size: 12px; padding: 10px 0; width: 400px; }
.attach div a { text-decoration: none; } .attach img { border: none;
padding-right: 5px; } .attach label { display: block; margin-bottom:
5px; } .attach label a { text-decoration: none; } blockquote { margin:
0 0 0 4px; } .bold { font-family: Arial; font-size: 13px; font-weight:
700; } .bold a { text-decoration: none; } dd.last p a { font-family:
Verdana; font-weight: 700; } dd.last p span { margin-right: 10px;
font-family: Verdana; font-weight: 700; } dd.last p span.yshortcuts {
margin-right: 0; } div.attach-table div div a { text-decoration: none;
} div.attach-table { width: 400px; } div.file-title a, div.file-title
a:active, div.file-title a:hover, div.file-title a:visited {
text-decoration: none; } div.photo-title a, div.photo-title a:active,
div.photo-title a:hover, div.photo-title a:visited { text-decoration:
none; } div#ygrp-mlmsg #ygrp-msg p a span.yshortcuts { font-family:
Verdana; font-size: 10px; font-weight: normal; } .green { color:
#628c2a; } .MsoNormal { margin: 0 0 0 0; } o { font-size: 0; } #photos
div { float: left; width: 72px; } #photos div div { border: 1px solid
#66; height: 62px; overflow: hidden; width: 62px; } #photos div
label { color: #66; font-size: 10px; overflow: hidden; text-align:
center; white-space: nowrap; width: 64px; } #reco-category {
font-size: 77%; } #reco-desc { font-size: 77%; } .replbq { margin:
4px; } #ygrp-actbar div a:first-child { /* border-right: 0px solid
#000;*/ margin-right: 2px; padding-right: 5px; } #ygrp-mlmsg {
font-size: 13px; font-family: Arial, helvetica,clean, sans-serif;
*font-size: small; *font: x-small; } #ygrp-mlmsg table { font-size:
inherit; font: 100%; } #ygrp-mlmsg select, input, textarea { font: 99%
Arial, Helvetica, clean, sans-serif; } #ygrp-mlmsg pre, code {
font:115% monospace; *font-size:100%; } #ygrp-mlmsg * { line-height:
1.22em; } #ygrp-mlmsg #logo { padding-bottom: 10px; } #ygrp-mlmsg a {
color: #1E66AE; } #ygrp-msg p a { font-family: Verdana; } #ygrp-msg
p#attach-count span { color: #1E66AE; font-weight: 700; } #ygrp-reco
#reco-head { color: #ff7900; font-weight: 700; } #ygrp-reco {
margin-bottom: 20px; padding: 0px; } #ygrp-sponsor #ov li a {
font-size: 130%; text-decoration: none; } #ygrp-sponsor #ov li {
Re: [delphi-br] arquivo ini com delphi 6
eu já tive problemas parecidos com algumas funções...
mas o problema era a segurança do Windows7... achei ele meio chatinho
pra setar as permissões de rede com sistemas mais antigos, mas depois de
tudo configurados (permissões, firewall) não tive mais problema...
Em 07/05/2010 16:10, wdidi2003 escreveu:
Boa tarde a todos.
Tenho um programa que lê um arquivo ini em uma pasta compartilhda no
servidor (win-2003-sever). O programa executavel compilado em delphi 6
funciona muito bem em winxp. No win7 a função do Fileexists não
consegue ver este arquivo INI em uma pasta mapeada. Mas consegue
verificar se um arquivo INI existe em uma pasta local do win7.
Aparentemente isto não deva ser do Delphi e sim algum truque do Win7.
Gostaria de saber se alguem já se deparou com este problema?
Didi.
Sp-SP
!-- #ygrp-mkp { border: 1px solid #d8d8d8; font-family:
Arial; margin: 10px 0; padding: 0 10px; } #ygrp-mkp hr { border: 1px
solid #d8d8d8; } #ygrp-mkp #hd { color: #628c2a; font-size: 85%;
font-weight: 700; line-height: 122%; margin: 10px 0; } #ygrp-mkp #ads
{ margin-bottom: 10px; } #ygrp-mkp .ad { padding: 0 0; } #ygrp-mkp .ad
a { color: #ff; text-decoration: none; } #ygrp-sponsor #ygrp-lc {
font-family: Arial; } #ygrp-sponsor #ygrp-lc #hd { margin: 10px 0px;
font-weight: 700; font-size: 78%; line-height: 122%; } #ygrp-sponsor
#ygrp-lc .ad { margin-bottom: 10px; padding: 0 0; } a { color:
#1e66ae; } #actions { font-family: Verdana; font-size: 11px; padding:
10px 0; } #activity { background-color: #e0ecee; float: left;
font-family: Verdana; font-size: 10px; padding: 10px; } #activity span
{ font-weight: 700; } #activity span:first-child { text-transform:
uppercase; } #activity span a { color: #5085b6; text-decoration: none;
} #activity span span { color: #ff7900; } #activity span .underline {
text-decoration: underline; } .attach { clear: both; display: table;
font-family: Arial; font-size: 12px; padding: 10px 0; width: 400px; }
.attach div a { text-decoration: none; } .attach img { border: none;
padding-right: 5px; } .attach label { display: block; margin-bottom:
5px; } .attach label a { text-decoration: none; } blockquote { margin:
0 0 0 4px; } .bold { font-family: Arial; font-size: 13px; font-weight:
700; } .bold a { text-decoration: none; } dd.last p a { font-family:
Verdana; font-weight: 700; } dd.last p span { margin-right: 10px;
font-family: Verdana; font-weight: 700; } dd.last p span.yshortcuts {
margin-right: 0; } div.attach-table div div a { text-decoration: none;
} div.attach-table { width: 400px; } div.file-title a, div.file-title
a:active, div.file-title a:hover, div.file-title a:visited {
text-decoration: none; } div.photo-title a, div.photo-title a:active,
div.photo-title a:hover, div.photo-title a:visited { text-decoration:
none; } div#ygrp-mlmsg #ygrp-msg p a span.yshortcuts { font-family:
Verdana; font-size: 10px; font-weight: normal; } .green { color:
#628c2a; } .MsoNormal { margin: 0 0 0 0; } o { font-size: 0; } #photos
div { float: left; width: 72px; } #photos div div { border: 1px solid
#66; height: 62px; overflow: hidden; width: 62px; } #photos div
label { color: #66; font-size: 10px; overflow: hidden; text-align:
center; white-space: nowrap; width: 64px; } #reco-category {
font-size: 77%; } #reco-desc { font-size: 77%; } .replbq { margin:
4px; } #ygrp-actbar div a:first-child { /* border-right: 0px solid
#000;*/ margin-right: 2px; padding-right: 5px; } #ygrp-mlmsg {
font-size: 13px; font-family: Arial, helvetica,clean, sans-serif;
*font-size: small; *font: x-small; } #ygrp-mlmsg table { font-size:
inherit; font: 100%; } #ygrp-mlmsg select, input, textarea { font: 99%
Arial, Helvetica, clean, sans-serif; } #ygrp-mlmsg pre, code {
font:115% monospace; *font-size:100%; } #ygrp-mlmsg * { line-height:
1.22em; } #ygrp-mlmsg #logo { padding-bottom: 10px; } #ygrp-mlmsg a {
color: #1E66AE; } #ygrp-msg p a { font-family: Verdana; } #ygrp-msg
p#attach-count span { color: #1E66AE; font-weight: 700; } #ygrp-reco
#reco-head { color: #ff7900; font-weight: 700; } #ygrp-reco {
margin-bottom: 20px; padding: 0px; } #ygrp-sponsor #ov li a {
font-size: 130%; text-decoration: none; } #ygrp-sponsor #ov li {
font-size: 77%; list-style-type: square; padding: 6px 0; }
#ygrp-sponsor #ov ul { margin: 0; padding: 0 0 0 8px; } #ygrp-text {
font-family: Georgia; } #ygrp-text p { margin: 0 0 1em 0; } #ygrp-text
tt { font-size: 120%; } #ygrp-vital ul li:last-child { border-right:
none !important; } --
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] alguem tem algum código para liberar a travar o braço de uma catraca
vc precisa conhecer o protocolo da catraca... consulte a documentação do fabricante... provavelmente eles tenham alguma biblioteca que facilite esse trabalho Em 06/05/2010 21:02, Adenilson escreveu: Caros amigos, gostaria da ajuda dos senhores pois eu to querendo saber como faço para liberar o braço de uma catraca quando o usuário tiver acesso e travar quando não tiver. Gostaria da ajuda dos senhores. Desde já agradeço a compreensão de todos [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Paradox X Firebird
com certeza... a modelagem não é a forma mais prática a curto prazo... mas a médio prazo suas vantagens já compensam em muito o esforço inicial Já que está migrando para um sgdb, sugiro fazer uso dos recursos que ele oferece, não só o armazenamento de dados, mas principalmente triggers, procedures e views... vc vai conseguir fazer uma aplicação bem mais enxuta, rápida, modular, etc... etc... hehe o/ Em 07/05/2010 11:48, Leonardo Quinino escreveu: O ideal, e boa prática, limpa e enxuto, e que você, não faça P.O.G. é criar a base nova no firebird usando os recursos , tipos, tabelas, char sets, e afins, vazia, e criar um código para transferir os registros, vai demorar mais é verdade, mas ficará um banco de dados muito mais eficiente no final. Porque quando se migra pelas ferramentas do tipo IBPumb (como foi citada), ele traz os dados de forma muito rápida, porém, não vai lhe trazer com os recursos novos que o firebird oferece em relação ao paradox. Mas é só sugestão, você é que tem que avaliar prós e contras, custo x benefício, tempo x prazo de entrega. 2010/5/7 Marceloleite_rom...@yahoo.com.br Bom dia, usa o IbDataPump da clever components. ele cria o script para criação do banco e depois tambem migra os dados . Não dificil qualquer coisa posta ai vlw De: Richardson Freddomjrkon...@yahoo.com.brmjrkoning%40yahoo.com.br Para: Grupodelphi-br@yahoogrupos.com.brdelphi-br%40yahoogrupos.com.br Enviadas: Quinta-feira, 6 de Maio de 2010 17:38:41 Assunto: [delphi-br] Paradox X Firebird Pessoal. Tenho um sistema que usa Paradox.. preciso migrar para Firebird .. Qual a forma mais rapida e pratica de fazer isso? Tem algum programa que me ajuda ou vou ter que criar as tabelas tudo de novo? E os dados? Como faço para migra-los tambem? Aguardo. Obrigado. Richardson Marcelo Freddo. msn: freddodpvat@ hotmail.com Skype: r.freddo Rondonópolis/ MT [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] Delphi 2010 X SQL Server 2005 X Windows 2003
provavelmente o firewall do s1 ta bloquando a conexão Em 03/05/2010 11:14, Paulo Cesar Valadares escreveu: Bom dia Caros Amigos. Estou com um problema gravíssimo, tenho uma aplicação que migrei para o Delphi 2010 com banco de dados SQL Server 2005, na minha maquina e na Rede minha Interna funcionou normalmente. Atualizei o sistema no meu cliente colocando a aplicação no servidor dele que roda o Windows 2003 Server com o Banco de Dados SQL Server 2005 instalado nesse servidor que irei chamar de S1, e rodou normalmente a aplicação. Porem meu cliente possui outro servidor que irei chamar de S2 rodando o Windows 2003 Server que é o Servidor do Terminal Service dele, os usuários iram rodar o sistema através do terminal service, porem quando tento rodar o sistema no servidor S2 não consigo conectar no banco de dados. Inicialmente ele apresentava o seguinte erro. DBX Error: Driver could not be properly initialized. Client library may be missing, not installed properly, or of the wrong version. Apos muita luta descobri que tinha que instalar o Cliente do SQL Server 2005 no servidor S2 , pois bem fiz isso e o erro parou porem agora apresenta a seguinte mensagem. SQL State: 08001, SQL Error Code: 0 -- An error has occurred while establishing a connection to the server. When connecting to SQL Server 2005, this failure may be caused by the fact that under the default settings SQL Server does not allow remote connections. Entrei nas configurações do SQL Server e habilitei as conexões remotas , fiz todas as configurações possíveis no SQL Server e mesmo assim minha aplicação não consegue conectar no banco através do S2 apenas funcionando no S1. Alguém já teve esse problema ??? Sem Mais. [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] Encerrar Thread
a thread tem uma propriedade chamada suspended. se for true, a thread nao esta em execucao... vc tb pode suspende-la a qualquer momento chamando o método suspend ou Terminate.. suspend = congela a thread. Terminate = finaliza a execucao da thread Ex: if not MinhaThread.Suspended then begin MinhaThread.Terminate; Close; end; Em 30/04/2010 09:43, Eny Urias escreveu: Olá! Estou começando a trabalhar com threads... Mas estou com uma dúvida... Tenho um loop de atualização de dados... Mas como é um processo demorado, quero deixar disponível um botão para o usuário encerrar o programa. Como faço para que, ao pressionar o botão, o programa aguarde um aviso da thread dizendo que está liberada e aí eu possa encerrar a thread e o programa? Já procurei em tudo quanto é lugar e achei umas funções da API: PostThreadMessage e WaitforSingleObject... mas não consegui aplica-las. Alguem sabe como eu posso fazer isso? Desde já agradeço! -- Eny Trova Urias Somos o que repetitivamente fazemos, portanto, a excelência não é um feito, mas um hábito- Aristóteles [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re:[Resolvido] herança de f ormularios
basta que as propriedades da superclasse sejam declaradas na seção public ou protected assim, toda subclasse terá acesso às propriedades/metodos. Em 30/04/2010 14:11, lsbdevelopment escreveu: consegui resolver, porem meio gamb declarei um variavel publica tipo TppReport declarei uma property para ler a vaiavel e criei uma procedure exportar( passando a variavel publica) dai chamei a procedure no botao expoertar no botao do form filho, antes do inherited seto na variavel qual relatorio estou usando, clientes, ou produtos, etc. mais o que eu queria mesmo era enxergar no filho a propiedade. mais valeu mesmo assim. obrigado. --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br, lsbdevelopment lucianosbr...@... escreveu Olá colegas! como posso passar para o formulario pai um objeto para ele processar? pois criei um fomulario modelo para relatorios, e criei um metodo de exportar, uso report builder, entao o que pretendo fazer é ao clicar no botao e passar para esse metodo qual o relatorio estou usando. alguem pode me ajudar? [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Parâmetros para um execut ável
vc pode recuperar os parâmetros através da função ParamStr( indice ), onde índice é o nro do parametro q vc quer recuperar.. podem ser inúmeros parâmetros para o aplicativo. Em 29/04/2010 17:10, Sandro Ricardo Bueno escreveu: Olá amigos, boa tarde. Preciso de uma ajuda. Nós temos que criar um programa para um cliente que ele irá rodar através de um arquivo .BAT Até aí nenhum mistério, o problema é que este programa não pode ter 'tela' nenhuma, ficará 'invisível' ao usuário, mas tenho que passar dois parâmetros para ele. A idéia inicial seria colocar na linha do .BAT : Programa.EXE, Parâmetro-1,Parâmetro-02 Ou seja, os parâmetros seriam colocados na linha do bat... alguém tem alguma idéia de como posso fazer isso ?? Brigadão e Abraço a todos Sandro Ricardo [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] herança de formularios
vc esta falando de métodos anônimos.. eles são usados para passar um
bloco de código como parametro de um método...
1 - Crie uma referencia para o método
TRProcedure = reference to procedure;
2 - Declare e implemente o método para o qual você deseja passar o
procedimento, declarando um parâmetro que é o tipo do método.
procedure Executar(AProcedure: TRProcedure);
begin
// executa o método
AProcedure;
end;
3 - Quando quiser executar o procedimento, chame o método, passando um
outro método como parametro para ser executado dentro do método
chamado.. (confuso? hehe)
Executar(
procedure
var
i: integer;
begin
for i := 0 to 10 do
ShowMessage('...');
end);
espero que seja útil.
o/
Em 29/04/2010 17:38, lsbdevelopment escreveu:
Olá colegas!
como posso passar para o formulario pai um objeto para ele processar?
pois criei um fomulario modelo para relatorios, e criei um metodo de
esportar, uso report builder, entao o que pretendo fazer é ao clicar
no botao e passar para esse metodo qual o relatorio estou usando.
alguem pode me ajudar?
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] [DICA] Testar Delphi no Linux
que eu saiba tinha o Kylix... mas parece q ele foi descontinuado alguém sabe se retomaram o projeto? Em 29/04/2010 17:49, Darkzad escreveu: Mas isso é só na próxima versão do delphi correto? Em 29/04/10 16:54, Silvio Clecio escreveu: O pessoal fala sobre o Delphi já ter suporte para compilar para Linux, tenho muita curiosidade em ver isso, seria uma ótima dica se alguém postasse algo sobre isso. Quem tiver o Delphi que compila para Linux, faz o teste e mostre suas impressões, uma boa plataforma para testar é o recém chegado Ubuntu-10.04 Desktop, lançado hoje, disponível em: http://www.ubuntu.com/ http://www.ubuntu.com/ http://www.ubuntu.com/ http://www.ubuntu.com/ (32 bits: http://releases.ubuntu.com/10.04/ubuntu-10.04-desktop-i386.iso.torrent http://releases.ubuntu.com/10.04/ubuntu-10.04-desktop-i386.iso.torrent http://releases.ubuntu.com/10.04/ubuntu-10.04-desktop-i386.iso.torrent http://releases.ubuntu.com/10.04/ubuntu-10.04-desktop-i386.iso.torrent) (64 bits: http://releases.ubuntu.com/10.04/ubuntu-10.04-desktop-amd64.iso.torrent http://releases.ubuntu.com/10.04/ubuntu-10.04-desktop-amd64.iso.torrent http://releases.ubuntu.com/10.04/ubuntu-10.04-desktop-amd64.iso.torrent http://releases.ubuntu.com/10.04/ubuntu-10.04-desktop-amd64.iso.torrent) Não vale só falar eu testei, mostre algo, screenshot, vídeo, qualquer coisa _palpável_ ;) []'s Silvio Clécio [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda quanto a Form
ops... corrigindo... é fsStayOnTop... hehehe Em 26/04/2010 18:16, Roni Rodrigo escreveu: Tentou alterar a propriedade FormStyle para fsAlTop e exibir só com o Show? Em 26/04/2010 10:04, anckerdj escreveu: Leandro Augusto Soares wrote: Olá. uma idéia é você colocar o que o usuário digita numa variável de form que fica acima e ler essa variável a partir de um método. No form que tem o TEdit vc atualiza o TEdit através desse método, após o retorno do ShowModal. Acho que deve funcionar. A intenção é atualizar o TEdit a medida que vai sendo digitado no teclado virtual. Lista, Preciso da ajuda/idéia de Vcs. Estou desenvolvendo uma aplicação touch e fiz 2 formulários que possuem 1 teclado alfa e outro numérico respectivamente. Quando em outro form a pessoa toca o TEdit, tenho que mostrar o form (alfa ou numérico) acima e preencher o TEdit com os dados. Se eu usar ShowModal no form do teclado, não vou conseguir atualizar o TEdit... se não usar, a pessoa alterna entre os form's... Alguém consegue pensar numa solução que eu consiga deixar o form do teclado por cima do outro e atualizar o TEdit e apenas fechar o form do teclado quando o usuário apertar avançar ou cancelar? []'s marcelo [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] Ajuda quanto a Form
Tentou alterar a propriedade FormStyle para fsAlTop e exibir só com o Show? Em 26/04/2010 10:04, anckerdj escreveu: Leandro Augusto Soares wrote: Olá. uma idéia é você colocar o que o usuário digita numa variável de form que fica acima e ler essa variável a partir de um método. No form que tem o TEdit vc atualiza o TEdit através desse método, após o retorno do ShowModal. Acho que deve funcionar. A intenção é atualizar o TEdit a medida que vai sendo digitado no teclado virtual. Lista, Preciso da ajuda/idéia de Vcs. Estou desenvolvendo uma aplicação touch e fiz 2 formulários que possuem 1 teclado alfa e outro numérico respectivamente. Quando em outro form a pessoa toca o TEdit, tenho que mostrar o form (alfa ou numérico) acima e preencher o TEdit com os dados. Se eu usar ShowModal no form do teclado, não vou conseguir atualizar o TEdit... se não usar, a pessoa alterna entre os form's... Alguém consegue pensar numa solução que eu consiga deixar o form do teclado por cima do outro e atualizar o TEdit e apenas fechar o form do teclado quando o usuário apertar avançar ou cancelar? []'s marcelo [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] OFF: Banco de dados - Cadastro de empresas
Pessoal, Alguém tem ou poderia indicar algum banco com cadastro de empresas? Por favor me respondam OFF topic. Obrigado [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Formulário lento para Abrir
Olá, tenho uma tabela grande, quando mando abrir o formulário para lançar mais registros, o formulário está lento para abrir, uso DbExpress e firebird 2.1, quando abro o formulário, abro junto no on create o clientdataset que tem o sql 'selec * from tabela', gostaria de saber o que devo fazer para dar uma melhorada no desempenho do sistema, abro junto 3 tabelas menores, de onde uso os dados para preencher os DBLookupComboBox.
[delphi-br] Componente - TAsBarcode /Extras
Olá pessoal, estou precisando do componente TAsBarcode que no Delphi fica na aba Extras. Já procurei no Google mas todos os sites que possuíam download estão fora do AR. Por favor algum tem este componente? Se sim poderia me enviar? Agradeço desde já Qq coisa pode enviar por e-mail: r.marchi...@uol.com.br Att Rodrigo Alex Marchiori [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Componente - TAsBarcode /Extras
Ai pessoal já encontrei, se alguém precisar é só pedir. Att Rodrigo Alex Marchiori De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Rodrigo Alex Marchiori Enviada em: quarta-feira, 3 de março de 2010 21:44 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Componente - TAsBarcode /Extras Olá pessoal, estou precisando do componente TAsBarcode que no Delphi fica na aba Extras. Já procurei no Google mas todos os sites que possuíam download estão fora do AR. Por favor algum tem este componente? Se sim poderia me enviar? Agradeço desde já Qq coisa pode enviar por e-mail: r.marchi...@uol.com.br mailto:r.marchiori%40uol.com.br Att Rodrigo Alex Marchiori [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: RES: [delphi-br] Componente - TAsBarcode /Extras
Opa Ricardo tem razão! Ai pessoal segue o link com exemplo e junto tem o componente! http://www.planetadelphi.com.br/download/4001/como-imprimir-c%C3%B3digo-de-barras-em-relat%C3%B3rio-quick-report-utilizando-um-componente-free Att Rodrigo Alex Marchiori De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Ricardo César Cardoso Enviada em: quarta-feira, 3 de março de 2010 23:07 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Componente - TAsBarcode /Extras Sugestão: divulga o link onde vc encontrou. Fica mais fácil e polui menos a lista. Atte, Ricardo. 1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS. 2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor compreendida. 3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! --- Em qua, 3/3/10, Rodrigo Alex Marchiori r.marchi...@uol.com.br mailto:r.marchiori%40uol.com.br escreveu: De: Rodrigo Alex Marchiori r.marchi...@uol.com.br mailto:r.marchiori%40uol.com.br Assunto: RES: [delphi-br] Componente - TAsBarcode /Extras Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Data: Quarta-feira, 3 de Março de 2010, 21:52 Ai pessoal já encontrei, se alguém precisar é só pedir. Att Rodrigo Alex Marchiori De: delphi...@yahoogrup os.com.br [mailto:delphi...@yahoogrup os.com.br] Em nome de Rodrigo Alex Marchiori Enviada em: quarta-feira, 3 de março de 2010 21:44 Para: delphi...@yahoogrup os.com.br Assunto: [delphi-br] Componente - TAsBarcode /Extras Olá pessoal, estou precisando do componente TAsBarcode que no Delphi fica na aba Extras. Já procurei no Google mas todos os sites que possuíam download estão fora do AR. Por favor algum tem este componente? Se sim poderia me enviar? Agradeço desde já Qq coisa pode enviar por e-mail: r.marchiori@ uol.com.br mailto:r.marchiori %40uol.com. br Att Rodrigo Alex Marchiori [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] __ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.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] Update failed because the following set options have incor rect settings: 'concat_null_yelds_null
Criei uma VIEW indexada e tenho várias procedures referenciando a tabela em cima da qual a view foi criada. Tenho uma procedure que atualiza esta tabela, e quando executa, obtenho a seguinte mensagem: Update failed because the following set options have incorrect settings: concat_null_yelds_null Executando através do management Studio, tudo ok, sem maiores surpresas, porém ao executar através da aplicação desenvolvida em Delphi 5 e conectando através do BDE (esse já é um problema a parte... J), o erro acontece. Verifiquei que a conexão do Delphi com o banco, os seguintes SETs são executados: set quoted_identifier off set arithabort off set numeric_roundabort off set ansi_warnings off set ansi_padding off set ansi_nulls off set concat_null_yields_null off set cursor_close_on_commit off set implicit_transactions off set language us_english set dateformat mdy set datefirst 7 set transaction isolation level read committed Minha pergunta: existe como setar estas configurações de conexão no Delphi/BDE? [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: Problema na conexao com dbexpress
Ninguém passou por isso? Não consigo resolver. --- Em delphi-br@yahoogrupos.com.br, rodrigo galvao...@... escreveu Olá, meu delphi começou a dar problema com o sqlconnection quando vou conectar o projeto: Drive/Connection Registry File 'C:\User\Public\Documents\RAD Studio\dbExpress\dbxconnections.ini' not foud Que devo fazer para corrigir isto? Lembro que o arquivo existe dentro da pasta citada, mas o delphi não carrega. Obrigado pela ajuda. [As partes desta mensagem que não continham texto foram removidas] N
[delphi-br] Problema na conexao com dbexpress
Olá, meu delphi começou a dar problema com o sqlconnection quando vou conectar o projeto: Drive/Connection Registry File 'C:\User\Public\Documents\RAD Studio\dbExpress\dbxconnections.ini' not foud Que devo fazer para corrigir isto? Lembro que o arquivo existe dentro da pasta citada, mas o delphi não carrega. Obrigado pela ajuda. [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] NFe usando ACBR
Uso aqui no PR/SC sem problemas desde abril-2009...
Rodrigo ®¿®
De: Moacir - GMail prism...@gmail.com
Para: delphi-br@yahoogrupos.com.br
Enviadas: Seg, Outubro 26, 2009 2:39:56 PM
Assunto: [delphi-br] NFe usando ACBR
Pessoal,
Alguem ja implementou alguma coisa para NFE usando a ACBR ??
Em especial para uso aqui no RS ??
Estou pensando em usar a ACBR para isto, mas queria a opinião de quem ja
esta usando
Sucesso !!
Moacir
D7 + Zeos + Firebird 2.0/MySQL
ajama_1 escreveu:
Muito Obrigado Marcelo, deu certo, parabéns, solução simples e criativa.
- Original Message -
From: Marcelo Luiz Onhate marc...@systempro.com.br
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, October 22, 2009 8:06 AM
Subject: Re: [delphi-br] Evento do grid OnCellclick (herança)
Basicamente
Você precisa armarzenar oque já existe no OnCellClick em uma variável do
tipo TDBGridClickEvent e depois quando for executar o seu cell click
teste se existe algo nesta variável, se existe executa ela...
var AntigoCellClick: TDBGridClickEvent;
procedure Inicializa;
begin
AntigoCellClick:=grid.OnCellClick;
grid.OnCellClick:=MeuCellClick;
end;
procedure MeuCellClick(Column: TColumn);
begin
if Assigned(AntigoCellClick) then begin
AntigoCellClick(Column);
end;
//faz o resto do rolo...
end;
ajama_1 escreveu:
Pessoal, será que alguém sabe me informar como eu faço para atribuir
um evento a um evento já existente sem alterar o evendo que já existe ?
procedure TLib_SkinFrm.CClick_Ex(Column: TColumn);
begin
Lib_CellClick_ExC(Column);
end;
procedure TMainForm.StGridCellClick(Column: TColumn);
begin
ShowMessage('teste');
end;
Mais eu queria manter o evento que já exite em StGridCellClick,
quando efaço assim:
StGrid.OnCellClick := CClick_Ex;
ele apaga o evento anterior.
Desde já agradeço
--
*/System – Soluções em Sistemas de Informação
/*/Marcelo Luiz Onhate
Departamento de Desenvolvimento/
marc...@systempro.com.br mailto:marc...@systempro.com.br
www.systempro.com.br
http://www.systempro.com.br/(54) 3321-5888
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
