[delphi-br] deslocar uma imagem em linha reta ajuda
Preciso criar uma forma de deslocar um ponto sobre uma linha reta em um form a ideia e criar um tipo de escala, onde o ponto poderia movimentar de : exemplo posição 0 a posição 10 sobre uma linha reta conforme os valores indicados pelo usuario esse ponto é um Timage sobre um panel Grata pela ajuda de todos [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] classe do array
quero usar essa instrução dentro de um datamodule
mas da erro seria por falta de declarar
no uses algo?
o erro é VarArrayOf
with DM1.Dso_Usuario do
try
DM1.Cds_Usuario.Close;
DM1.Cds_Usuario.DataRequest(VarArrayOf([4,Dm1.ESTACAO]));
DM1.Cds_Usuario.Open;
except
on e: exception do
Application.MessageBox(PChar('Problemas ao consultar Dados Usuario!' +
#13 + 'Erro : ' + e.Message), 'Erro !', MB_ICONERROR + MB_OK);
end;
[As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] classe do array resolvido
Resolvido
faltava a referencia a unit Variants
valeu
--- Em ter, 27/7/10, Rubem Nascimento da Rocha djpardalro...@hotmail.com
escreveu:
De: Rubem Nascimento da Rocha djpardalro...@hotmail.com
Assunto: RE: [delphi-br] classe do array
Para: delphi-br delphi-br@yahoogrupos.com.br
Data: Terça-feira, 27 de Julho de 2010, 9:37
Classe de array??? Nada haver! VarArrayOf() retorna um array de valores do tipo
Variant. Fizeste um uses pra unit Variants?
Sds.
To: lista-del...@yahoogrupos.com.br; delphi-br@yahoogrupos.com.br
From: alessandraport...@yahoo.com.br
Date: Tue, 27 Jul 2010 05:35:22 -0700
Subject: [delphi-br] classe do array
quero usaressa instrução dentro de um datamodule
mas da erroseria por falta de declarar
no uses algo?
o erro é VarArrayOf
with DM1.Dso_Usuario do
try
DM1.Cds_Usuario.Close;
DM1.Cds_Usuario.DataRequest(VarArrayOf([4,Dm1.ESTACAO]));
DM1.Cds_Usuario.Open;
except
on e: exception do
Application.MessageBox(PChar('Problemas ao consultar Dados Usuario!' +
#13 + 'Erro : ' + e.Message), 'Erro !', MB_ICONERROR + MB_OK);
end;
__
CONVERSE COM SEUS AMIGOS E OS VEJA PELA WEBCAM NO MESSENGER. CLIQUE AQUI E VEJA
COMO.
http://www.windowslive.com.br/public/tip.aspx/view/84?product=2ocid=WLCRM:Live:Hotmail:Tagline:senDimensao:CONVERSECO85:-
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] sql simples mas nao funciona
Preciso buscar todos os clientes que não possuem pedidos tenho a tabela clientes e a tabela clientes já fiz assim: SELECT PED.*,CLI.CD_CLIENTE,CLI.FANTASIA FROM CLIENTE CLI LEFT OUTER JOIN PEDIDO PED ON (PED.CD_CLIENTE = CLI.CD_CLIENTE) WHERE CLI.CD_CLIENTE NOT IN (SELECT DISTINCT PED.CD_CLIENTE FROM PEDIDO PED) ORDER BY CLI.FANTASIA e nada e quando faço assim retorna errado o numero de pedidos para os clientes pois muitos possuem mais de 01 pedido e assim só apresenta 01 pedido SELECT CLI.CD_CLIENTE, PED.CD_CLIENTE, PED.CD_PEDIDO, count(PED.CD_PEDIDO) NPEDIDOS FROM PEDIDO PED LEFT OUTER JOIN CLIENTE CLI ON (CLI.CD_CLIENTE = PED.CD_CLIENTE ) GROUP BY 1,2,3 agradeço aos amigos que colaborarem preciso dos 2 tipos de retorno os que não possuem e os que possuem qual a quantidade? [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] sql simples mas nao funciona resolvido
Valeu amigos resolvido --- Em qui, 15/7/10, Humberto Oliveira holiveira.wordpr...@gmail.com escreveu: De: Humberto Oliveira holiveira.wordpr...@gmail.com Assunto: Re: [delphi-br] sql simples mas nao funciona Para: delphi-br@yahoogrupos.com.br Data: Quinta-feira, 15 de Julho de 2010, 10:24 A solução não é a melhor, porém funciona. É possível efetuar o select utilizando-se de joins de várias maneiras. /* Clientes que não possuem pedidos */ select CLI.* from CLIENTE CLI where not exists (select 1 from PEDIDO PED where PED.CD_CLIENTE = CLI.CD_CLIENTE) /* Clientes que possuem pedidos */ select CLI.* from CLIENTE CLI where exists (select 1 from PEDIDO PED where PED.CD_CLIENTE = CLI.CD_CLIENTE) - ou - select CLI.* from CLIENTE CLI join PEDIDO PED on (CLI.CD_CLIENTE = PED.CD_CLIENTE) Espero ter colaborado. Em 15 de julho de 2010 09:26, alessandra porto alessandraport...@yahoo.com.br escreveu: Preciso buscar todos os clientes que não possuem pedidos tenho a tabela clientes e a tabela clientes já fiz assim: SELECT PED.*,CLI.CD_CLIENTE,CLI.FANTASIA FROM CLIENTE CLI LEFT OUTER JOIN PEDIDO PED ON (PED.CD_CLIENTE = CLI.CD_CLIENTE) WHERE CLI.CD_CLIENTE NOT IN (SELECT DISTINCT PED.CD_CLIENTE FROM PEDIDO PED) ORDER BY CLI.FANTASIA e nada e quando faço assim retorna errado o numero de pedidos para os clientes pois muitos possuem mais de 01 pedido e assim só apresenta 01 pedido SELECT CLI.CD_CLIENTE, PED.CD_CLIENTE, PED.CD_PEDIDO, count(PED.CD_PEDIDO) NPEDIDOS FROM PEDIDO PED LEFT OUTER JOIN CLIENTE CLI ON (CLI.CD_CLIENTE = PED.CD_CLIENTE ) GROUP BY 1,2,3 agradeço aos amigos que colaborarem preciso dos 2 tipos de retorno os que não possuem e os que possuem qual a quantidade? [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] ajuda basica e fundamental??
preciso de uma dica em um sistema que estou mexendo não consigo encontrar onde estão determinado forms do projeto pelo que percebi foram salvos em diversas pastas diferentes dentro do disco C:\ e inclusas no projeto sem colocar todas na pasta do projeto. como posso fazer para descobrir pelo delphi a origem (pasta de cada unit) associada a esta Bendita aplicação??? Grata a todos que puderem ajudar estou usando o delphi 7 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] heranca ajudinha simples
amigos como faço para consultar o form pai quando não sei o nome dele no projeto e encontro somente isso no form filho. procedure TFmCadUsuarios.BtnGravarClick(Sender: TObject); begin inherited; end; existe algunha tecla ou associação que faço sobre a palavra inherited; que me leve ao codigo do form pai ? estou usando delphi 7 grata [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] heranca ajudinha simples
valeu resolvido --- Em sex, 11/6/10, anckerdj ancke...@yahoo.com.br escreveu: De: anckerdj ancke...@yahoo.com.br Assunto: Re: [delphi-br] heranca ajudinha simples Para: delphi-br@yahoogrupos.com.br Data: Sexta-feira, 11 de Junho de 2010, 15:24 alessandra porto wrote: amigos como faço para consultar o form pai quando não sei o nome dele no projeto e encontro somente isso no form filho. procedure TFmCadUsuarios.BtnGravarClick(Sender: TObject); begin inherited; end; existe algunha tecla ou associação que faço sobre a palavra inherited; que me leve ao codigo do form pai ? estou usando delphi 7 grata Olhe na declaração do TFmCadUsuarios neste mesmo Form. []'s ancker [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] ajuda por favor internal error LA30 delphi 7
ja tem dias que estou trabalhando em um projeto que peguei para continuar ele e desde que comecei esse erro tem dado trabalho não consigo achar isso os fontes não estão read only e roda tudo na mesma maquina procurei algo na web mas nada resolveu quem pode dar uma dica de como almenos tentar?? grata [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] rave preview maximizado como fazer?
Estou usando assim RvProject1.ProjectFile:='C:\ELO\RAVE\Entrega.rav'; RvProject1.Execute; o problema é que o preview aparece pequeno como faço para ao aparesentar o preview maximinizado ao abri-lo?? Grata pela ajuda [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] ajuda sql uso do or ?
Peguei um banco velho de cadastros de clientes que possui uma serie de erros e preciso pesquisar todos os clientes que estão cadastrados com SEXO diferente do padrão F ou M Algo como: SELECT NOME,SEXO FROM CLIENTE WHERE SEXO 'F' or 'M' mas assim não funcionou como faço para mostrar os registros que sejam diferentes de F ou M no firebird Grata a todos que colaborarem [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] meu ip na web como descobrir ?
peguei variso exemplos e ideias de como fazer isso mas não deu certo ainda minha ideia é colocar uma forma de meu cliente atraves de um botão em minha aplicação informe seu ip na web para eu que possa conectar lá pelo vnc e prestar assistencia como faço para capturar esse ip ? atraves de minha aplicação? 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]
[delphi-br] ajuda para um sql interessante
tenho tabela: TBPRODUTO id_produto id_grupo produto peso TBGRUPO id_grupo grupo preciso criar um sql que toda vez que for feito um pedido seja somado o peso do produto conforme o grupo que ele pertence id_grupo 1 = GELO id_grupo 2 = SORVETE id_grupo 3 = SALADA estou usando o firebird agradeço muito aos amigos que derem uma ideia de como fazer isso 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]
Re: [delphi-br] firebird erro na pesquisa motivo versao ajuda
vou tentar agora a tarde e dou a resposta aqui --- Em seg, 22/3/10, Humberto Oliveira holiveira.wordpr...@gmail.com escreveu: De: Humberto Oliveira holiveira.wordpr...@gmail.com Assunto: Re: [delphi-br] firebird erro na pesquisa motivo versao ajuda Para: delphi-br@yahoogrupos.com.br Data: Segunda-feira, 22 de Março de 2010, 9:32 Troque: GROUP BY 1 Por: GROUP BY PAC.CD_PACIENTE Veja se resolve. Em 19 de março de 2010 15:51, alessandra porto alessandraport...@yahoo.com.br escreveu: essa pesquisa fiz na versão 2.1 e deu certinho mas quando faço no mesmo banco rodando em um servidor com a versão 1.5 dá erro por causa da GROUP BY SELECT PAC.CD_PACIENTE,MAX(PAC.PACIENTE) PACIENTE,MAX(PAC.SEXO)SEXO,MAX(PAC.DTA_NASC) DTA_NASC, MAX(PAC.ENDERECO) PACENDERECO,MAX(PAC.CEP) PACCEP,MAX(PAC.EMAIL) PACEMAIL, MAX(FAT.DTA_CAD) DTA_FAT,MAX(FAT.CD_UNIDADE) FATUNIDADE,MAX(UNID.UNIDADE)UNIDADE, MAX(UNID.CD_UNIDADE)CDUNID ,MAX(PAC.CD_CIDADE) PACCIDADE,MAX(CID.CIDADE_CODIGO) CIDCDCIDADE, MAX(CID.CIDADE_DESCRICAO) CIDCIDADE,MAX(PAC.CD_BAIRRO) PACBAIRRO , MAX(BAI.BAIRRO_CODIGO) BAICDBAIRRO,MAX(BAI.BAIRRO_DESCRICAO) BAIBAIRRO,COUNT(FAT.CD_FATURA) NFATURAS FROM PACIENTE PAC LEFT OUTER JOIN FATURA FAT ON (FAT.CD_PACIENTE = PAC.CD_PACIENTE) LEFT OUTER JOIN UNIDADE UNID ON (UNID.CD_UNIDADE = FAT.CD_UNIDADE) LEFT OUTER JOIN CIDADE CID ON (CID.CIDADE_CODIGO = PAC.CD_CIDADE) LEFT OUTER JOIN BAIRRO BAI ON (BAI.BAIRRO_CODIGO = PAC.CD_BAIRRO) WHERE FAT.DTA_CAD IS NOT NULL GROUP BY 1 ORDER BY PACIENTE existe uma forma de resolver isso sem ter que mudar a versão do firebird ?? pois isso seria muito complexo para meu cliente grata pela sugestões __ 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] -- 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]
[delphi-br] firebird erro na pesquisa motivo versao ajuda
essa pesquisa fiz na versão 2.1 e deu certinho mas quando faço no mesmo banco rodando em um servidor com a versão 1.5 dá erro por causa da GROUP BY SELECT PAC.CD_PACIENTE,MAX(PAC.PACIENTE) PACIENTE,MAX(PAC.SEXO)SEXO,MAX(PAC.DTA_NASC) DTA_NASC, MAX(PAC.ENDERECO) PACENDERECO,MAX(PAC.CEP) PACCEP,MAX(PAC.EMAIL) PACEMAIL, MAX(FAT.DTA_CAD) DTA_FAT,MAX(FAT.CD_UNIDADE) FATUNIDADE,MAX(UNID.UNIDADE)UNIDADE, MAX(UNID.CD_UNIDADE)CDUNID ,MAX(PAC.CD_CIDADE) PACCIDADE,MAX(CID.CIDADE_CODIGO) CIDCDCIDADE, MAX(CID.CIDADE_DESCRICAO) CIDCIDADE,MAX(PAC.CD_BAIRRO) PACBAIRRO , MAX(BAI.BAIRRO_CODIGO) BAICDBAIRRO,MAX(BAI.BAIRRO_DESCRICAO) BAIBAIRRO,COUNT(FAT.CD_FATURA) NFATURAS FROM PACIENTE PAC LEFT OUTER JOIN FATURA FAT ON (FAT.CD_PACIENTE = PAC.CD_PACIENTE) LEFT OUTER JOIN UNIDADE UNID ON (UNID.CD_UNIDADE = FAT.CD_UNIDADE) LEFT OUTER JOIN CIDADE CID ON (CID.CIDADE_CODIGO = PAC.CD_CIDADE) LEFT OUTER JOIN BAIRRO BAI ON (BAI.BAIRRO_CODIGO = PAC.CD_BAIRRO) WHERE FAT.DTA_CAD IS NOT NULL GROUP BY 1 ORDER BY PACIENTE existe uma forma de resolver isso sem ter que mudar a versão do firebird ?? pois isso seria muito complexo para meu cliente grata pela sugestões 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]
[delphi-br] ajuda Sql parte 2
Amigo Fabio Schunig sua dica foi a que mais facil resolvel a questão select cli.id_cliente, max(cli.cliente) cliente, max(cmp.dta_ compra) dta_compra, count(cmp.id_ compras) contador from cliente cli left join compras cmp on (cmp.id_cliente = cli.id_cliente) group by cli.id_cliente Deu certinho agora o ''pro'' é que eu preciso por exemplo filtrar esses clientes por sexo como eu faria isso usando essa ideia Ja tentei de varias formas alterar mas dá erro por causa do group by como aproveitar essa formula que deu certo e alterar ela para conseguir fazer isso ? 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]
[delphi-br] ajuda em sql
esta é uma parte de uma pesquisa grande onde estou meio com duvidas preciso de uma ajudinha é o seguinte tenho 2 tabelas compras cliente id_compras id_cliente id_cliente cliente dta_compra preciso selecionar somente a ultima compra (dta_compra) dos clientes que possuem compras. Pode existir cliente que nunca comprou e deve retornar na pesquisa que ele possui (zero) compras. Portanto possui 70.000 clientes e 30.000 compras sendo que parte destes clientes comprou mais de uma vez e só preciso que retorne na pesquisa a ultima compra dele. E os demais que nunca compraram preciso listar eles como zero(compra) Grata pela atenção dos amigos que colaborarem 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]
[delphi-br] somar numero inteiro a uma data ajuda
Amigos Tentei de varias formas mas a coisa da erro na tabela os campos DTA_PEDIDO = date; NDIAS = Integer; a ideia e somar um certo numero de dias a uma data e comparar com o dia atual e jogar o resultado ao um campo calculado (VENCIDO) procedure TDm.Cds_FinanceiroCalcFields(DataSet: TDataSet); var DATA : Tdate; NDIAS : integer; begin DATA :=strtodate(Cds_FinanceiroDTA_PEDIDO.AsString); NDIAS :=Cds_FinanceiroNDIAS.AsInteger; if (DATA + NDIAS) = now then begin Cds_FinanceiroVENCIDO.AsString :=datetostr(now); end; Já fiz mil e uma tentativas e nada já usei Cds_FinanceiroDTA_PEDIDO.AsDateTime direto na variavel DATA e nada Deve ser simples a solução mas eu não consegui achar Agradeço aos amigos que puderem ajudar 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]
[delphi-br] sql ajuda para pensar
PRECISO SELECIONAR E SOMAR (VENDA.VALOR_VENDA) TODAS AS VENDAS QUE O DIA DA VENDA(VENDA.DTA_VENDA) SOMADO A 'X' DIAS (PRAZO.NDIAS) '7 DIAS POR EXEMPLO' É IGUAL AO 'VENCIMENTO' COMPARANDO ESSE DIA DE 'VENCIMENTO' ENCONTRADO AO DIA DE HOJE (DATA QUALQUER) PARA SABER SE ESTA DATA É O DIA DO 'VENCIMENTO' ENCONTRADO NA SOMA DE DIAS A DATA DA VENDA. TABELA VENDA TABELA PRAZO TABELA CLIENTE ID_VENDA ID_PRAZO ID_CLIENTE ID_CLIENTE NDIAS CLIENTE ID_PRAZO VALOR_VENDA DTA_VENDA RESUMO SOMAR UM DETERMINADO NUMERO DE DIAS A UMA DATA E COMPARAR O RESULTADO DA SOMA A OUTRA DATA INFORMADA. E AINDA TOTALIZAR VALORES DAS VENDAS, TUDO ISSO EM UMA UNICA PESQUISA SQL . SERÁ QUE É POSSIVEL FAZER ISSO?? Agradeço a atenção dos amigos que puderem colaborar 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]
[delphi-br] off gerar script com campo blob firebird (off)
Toda vez que gero script de tabela que possui campo blob o ibexpertproduz um arquivo extra com um tipo de endereçamento extra dos blobs e ao tentar rodar o script de inserção na tabela dá erro por causa do blob para gerar script de tabela que contenha campo blob e depois recuperar o conteudodo scrip de inserção em outro banco qual é o segredo? 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]
[delphi-br] Paradox em rede ajuda s.o.s
Em um cliente meu tem uma aplicação que usa paradox e não posso mudar ela ainda para firebird então precisei criar uma aplicação que grava no firebird e no paradox desta antiga o local tem 3 maquinas o servidor: contem o banco paradox alias = Estoque PATH = C:\BOMBA\DADOS NET DIR = C:\BOMBA\DADOS LOACAL SHARE = FALSE estação A acessa o paradox pelo mapeamento disco Z: PATH = Z:\DADOS NET DIR = Z:\DADOS LOACAL SHARE = TRUE Estação B acessa o paradox pelo mapeamento disco Z: contem o firebird eminha aplicação que tambem usa o mapeamento disco Z: para gravar no paradox PATH = Z:\DADOS NET DIR = Z:\DADOS LOACAL SHARE = TRUE Olhei em varios artigos na web sobre compartilhamento do BDE e continuo com os erros que creio seja por causa do tal LOCAL SHARE que no servidor só funciona no caso se for LOCAL SHARE = False nas estações aceita LOCAL SHARE = True Mas o servidor nada , só false Como Posso configurar essa coisa para parar de corromper os tais indices agradeço sua ajuda amigo já não aguento mais essa bomba 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]
Re: [delphi-br] Paradox em rede ajuda s.o.s
Cistiane pior que não funciona sim , mas não deixa colocar o LOCAL SHARE = True em todas as maquinas no servidor só aceita LOCAL SHARE = false esse é o problema preciso que seja LOCAL SHARE = True no servidor e em todas as estações obs: já tentei assim como vce me disse e não deu --- Em sex, 18/12/09, Cristiane Campanholo criscampanh...@terra.com.br escreveu: De: Cristiane Campanholo criscampanh...@terra.com.br Assunto: Re: [delphi-br] Paradox em rede ajuda s.o.s Para: delphi-br@yahoogrupos.com.br Data: Sexta-feira, 18 de Dezembro de 2009, 10:51 Alessandra, Se no PATH e no NET DIR você informar \\SERVIDOR\C\ BOMBA\DADOS (em todos, servidor e terminais), vai funcionar. Cristiane Campanholo - Original Message - From: alessandra porto To: lista-delphi@ yahoogrupos. com.br ; delphi...@yahoogrup os.com.br Sent: Friday, December 18, 2009 10:19 AM Subject: [delphi-br] Paradox em rede ajuda s.o.s Em um cliente meu tem uma aplicação que usa paradox e não posso mudar ela ainda para firebird então precisei criar uma aplicação que grava no firebird e no paradox desta antiga o local tem 3 maquinas o servidor: contem o banco paradox alias = Estoque PATH = C:\BOMBA\DADOS NET DIR = C:\BOMBA\DADOS LOACAL SHARE = FALSE estação A acessa o paradox pelo mapeamento disco Z: PATH = Z:\DADOS NET DIR = Z:\DADOS LOACAL SHARE = TRUE Estação B acessa o paradox pelo mapeamento disco Z: contem o firebird eminha aplicação que tambem usa o mapeamento disco Z: para gravar no paradox PATH = Z:\DADOS NET DIR = Z:\DADOS LOACAL SHARE = TRUE Olhei em varios artigos na web sobre compartilhamento do BDE e continuo com os erros que creio seja por causa do tal LOCAL SHARE que no servidor só funciona no caso se for LOCAL SHARE = False nas estações aceita LOCAL SHARE = True Mas o servidor nada , só false Como Posso configurar essa coisa para parar de corromper os tais indices agradeço sua ajuda amigo já não aguento mais essa bomba _ _ _ _ _ _ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com [As partes desta mensagem que não continham texto foram removidas] - - - - - - E-mail verificado pelo Terra Anti-Spam. Para classificar esta mensagem como spam ou não spam, clique aqui. Verifique periodicamente a pasta Spam para garantir que apenas mensagens indesejadas sejam classificadas como Spam. - - - - - - Esta mensagem foi verificada pelo E-mail Protegido Terra. Atualizado em 18/12/2009 [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]
Re: [delphi-br] ClientDataSet.DataRequest uso?
isso mesmo Andre é que como no email precisamos ser breve faço só a pergunta basica e ao entender a ideia eu aplico de forma mais ampla mas valeu a dica --- Em ter, 17/11/09, Andre Yahoo gyncow...@yahoo.com.br escreveu: De: Andre Yahoo gyncow...@yahoo.com.br Assunto: Re: [delphi-br] ClientDataSet.DataRequest uso? Para: delphi-br@yahoogrupos.com.br Data: Terça-feira, 17 de Novembro de 2009, 23:18 Desculpe me intrometer, mas se você estiver usando n-tier o melhor seria ter um método no servidor que montaria o filtro de acordo com as opções do cliente. Lembrem-se sempre: SQL é no servidor, o cliente somente mostra os dados e validações simples. _ _ _ _ __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta. messenger. yahoo.com/ 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]
[delphi-br] ClientDataSet.DataRequest uso?
como fazer uma pesquisa usando ClientDataSet.DataRequest comunicando com um provider . A ideia é usar em n tier pode ser um exemplo bem basico com 2 variaveis como produto,cod_produto Agradeço a todos que ajudarem como fazer a passagem dos parametros ClientDataSet para o provider?? 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]
Re: [delphi-br] ClientDataSet.DataRequest uso?
obrigada estou testando a segunda opção valeu --- Em ter, 17/11/09, Alisson Yahoo alss...@yahoo.com.br escreveu: De: Alisson Yahoo alss...@yahoo.com.br Assunto: Re: [delphi-br] ClientDataSet.DataRequest uso? Para: delphi-br@yahoogrupos.com.br Data: Terça-feira, 17 de Novembro de 2009, 16:45 Você quer fazer consultas no banco de dados? Se for esse o seu objetivo você deve usar o DatasetProvider com a propriedade Options-AllowComman dText = True, e definir a sentença SQL na propriedade CommandText do ClientDataset. Você pode também definir a consulta no Dataset na aplicação servidora, e abrir o Clientdataset na aplicação cliente. Na segunda opção você não vai alterar a propriedade Options-AllowComman dText do DatasetProvider. Espero ter ajudado em alguma coisa. _ _ _ _ __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta. messenger. yahoo.com/ 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]
[delphi-br] cliendataset1BeforeGetRecords ajuda
Quero passar valores para variavel PRODUTO_CODIGO que esta no evento BeforeGetRecords do clientdataset Cds_Produto isso é possivel? /// finalidade pesquisa atraves do BeforeGetRecords do provider procedure TDm.Cds_ProdutoBeforeGetRecords(Sender: TObject; var OwnerData: OleVariant); var PRODUTO_CODIGO:integer; PRODUTO_DESCRICAO:string; begin OwnerData := VarArrayOf([PRODUTO_CODIGO,PRODUTO_DESCRICAO]); end; procedure TForm1.Button1Click(Sender: TObject); begin with Dm.Cds_Produto do begin close; ? open; end; end; 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]
[delphi-br] uma ideia de como fazer
Tenho uma tabela no BD que possui por exemplo 10 registros gostaria de criar em um form algum tipo de exibir esses 10 registros com um checkbox para cada registro e quando marcado o checkbox eu estaria selecionando aquele registro para impressão a ideia é como criar o numero de checkbox conforme o numero de registros desta tabela? ou teria uma forma mais pratica para selecionar registros para ser impressos? agradeço a todos que colaborarem 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]
[delphi-br] cupom fiscal duvidas ?
Amigos uma aplicação para emitir cupom fiscal em uma impressora fiscal precisa ser registrada(a aplicação) em algum orgão do governo estadual ou federal? Grata pela atenção 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]
[delphi-br] ajuda para ler arquivo texto e gravar no BD
preciso ler um arquivo de word onde ele tem uma grade que contem registros assim: NOME: MARIA DA SILVA IDADE: 33 ANOS ESTADO CIVIL: CASADA MÃE: JOSEFA DA SILVA PAI : ANTONIO GABRIEL isso é o cadastro de uma pessoa que esta em uma pagina de word e nesta pagina tem 'N' cadastros de 'N' pessoas a ideia é ler e gravar em BD sendo cada pessoa um registro na tabela pessoa do BD. Como faço para o delphi ler cada parte do arquivo e gravar em seu CAMPO correspondente na tabela. NA TABELA DO BD NOME : MARIA DA SILVA IDADE :33 anos ESTADOCIVEIL : CASADA MAE : JOSEFA DA SILVA PAI: ANTONIO GABRIEL o texto do word segue uma formatação oque esta me faltando é a ideia de como a aplicação identificar a palavra que corresponde ao campo da tabela e copiar seu conteudo na tabela no BD. NOME : MARIA DA SILVA e o comando da aplicação coletar os demais dados desta pessoa contidos no arquivo word e ao chegar ao ultimo dado desta pessoa que seria o nome do pai PAI : ANTONIO GABRIEL gravar no BD e começar um novo registro a partir da palavra nome NOME: marcia da silva : : achou a palavra Nome a partir dela copie até encontrar a palavra IDADE a partir dela copie até encontrar a palavra 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]
[delphi-br] dbexpress + dbexpint.dll ajuda
estou usando o ddelphi 7 com firebird 2.1 em minha aplicação dbexpress uso o drive do interbase com dbexpint.dll em minha maquina que tem o delphi vai de boa mas na do cliente não funciona já coloquei a dbexpint.dll na pasta da aplicação no system, system32 e nada continua dando erro Alguem pode me dar uma dica de como resolver isso? obs: não falta a midas no cliente já coloquei tbem 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]
Re: [delphi-br] Re: dbexpress + dbexpint.dll ajuda
a aplicação não abre dá erro no windows --- Em qui, 22/10/09, simoesluciano simoesluci...@yahoo.com.br escreveu: De: simoesluciano simoesluci...@yahoo.com.br Assunto: [delphi-br] Re: dbexpress + dbexpint.dllajuda Para: delphi-br@yahoogrupos.com.br Data: Quinta-feira, 22 de Outubro de 2009, 17:52 Mas qual é o erro? Luciano C. Simões --- Em delphi...@yahoogrup os.com.br, alessandra porto alessandraporto11@ ... escreveu estou usando o ddelphi 7 com firebird 2.1 em minha aplicação dbexpress uso o drive do interbase com dbexpint.dll em minha maquina que tem o delphi vai de boa mas na do cliente não funciona já coloquei a dbexpint.dll na pasta da aplicação no system, system32 e nada continua dando erro Alguem pode me dar uma dica de como resolver isso? obs: não falta a midas no cliente já coloquei tbem 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]
[delphi-br] gravar htm em banco fdb ajuda
consegui em bulario na web e esta em varios arquivos html cada bula é um arquivo html e a ideia e gravar isso em um banco firebird em campo blob. O fato é como automatizar essa tarefa pois copiar e colar bula por bula de forma manual é impossivel pois 6000 arquivos cada arquivo tem na primeira linha é o nome do medicamento como fazer para automatizar essa tarefa para copiar a 1ª linha como nome do medicamento na tabela. Assim que conseguir isso se for de interesse dos amigos posso disponibilizar o arquivo no grupo para quem precisar Grata pela atenção 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]
[delphi-br] meio off bulario anvisa
amigos estou tentando achar um banco gdb ou fdb ou txt que contenha o bulario da anvisa estou desenvolvendo um sistema para uma determinada clinica e preciso deste bulario (já tentei na web e não achei para download) alguem pode ajudar? obrigada peal atenção 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]
[delphi-br] nota fiscal eletronica duvidas
amigos li a clube delphi 108 que fala sobre nota fiscal eletronica e fiquei com algumas duvidas : em um caso como este: tenho vendedores com notebook que não estão ligados a web , tem como eles emitirem nota eletronica e ao final do expediente enviar o arquivo via web? (se isso é aceito pela sefaz) e como isso é feito. a ideia seria desenvolver uma aplicação de controle de vendas que emitiria notas fiscais eletronicas e o bd da aplicação só seria atualizado ao conectar ao servidor da matriz talvez depois de 24 hs. isso é possivel? Grata pela atenção de todos 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]
[delphi-br] driver dbexpress firebird delphi 7
amigos existe algum drive gratuito para firebird acima de 1.5 ? estou usando o dbexpUIBfire15.dll mas preciso para firebird 2.0 e quando uso o nativo do interbase tá dando erros em campos com valores decimais somente na aplicação (grava certo no banco e recupera sem as casas decimais) alguem pode me ajudar grata a todos 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]
[delphi-br] lipidograma off
amigos estou criando um sistema para um laboratorio de analises e tenho tidodificuldades com algumas formulas de alguns exames alguem pode me ajudar? preciso da forma do calculo de perfil lipidico e do hemograma grata a todos que colaborarem 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]
[delphi-br] drive gratuito dbxfirebird alguem testou?
http://sites.google.com/site/dbxfirebird/download Neste endereço tem um drive gratuito, alguem testou? 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]
[delphi-br] ajudinha velho banco paradox
Em um cliente tem uma aplicação que ainda usa Paradox e do nada começou a não acessar via rede e surge a seguinte mensagem nas estações : Directory in use by earlier version of Paradox PDOXUSRS.LCX PARADOX.LCK já tentei deletar esses dois arquivos e nada Alguem sabe me dizer oque causa essa situação e como resolver isso? Grata 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]
[delphi-br] Contrato parceria ideia OFF
Amigos Estou com uma aplicação feita prontinha e estou pensando em propor a uma institução filantropica hospitalar uma parceria para instalar meu software sem custos para o hospital, para usar como referencia para outros clientes este hospital. O x da questão é que nem tenho ideia de como posso elaborar esse contrato de parceria. Alguem já fez isso e tem um caminho para me indicar Grato a todos pela atenção 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]
[delphi-br] componente imagem DICOM ?
Alguem conhece algum componente para manipular esse tipode imagem no delphi.ou indica algum exemplo onde eu possa ver como issoé feito Grata 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]
[delphi-br] dbexpress driver firebird free alguem conhece um bom?
Amigos alguem indica um drive que eu possa utilizar no delphi 7e firebird apartir do 2,0que seja free Grata pela atenção de todos abraços 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]
[delphi-br] dbexpress qual dll ajuda?
Estou usando delphi 7 e firebird 1.5.478 desenvolvi uma pequena aplicação que utiliza dbexpress quando rodo ela na maquina que tem delphi beleza , mas quando executo em maquina sem delhi dá erro de conexão. Sei que falta dll , as comuns como midas,gds32,dbexpint.dll já coloquei o erro deve ser alguma especifica para dbexpress naõ instalei nenhum drive especial é o nativo mesmo interbase do delphi 7 Alguem sabe me dizer onde esta esse erro? preciso colocar quais dll junto com a aplicação? abraços Grata pela atenção. 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]
[delphi-br] zoom em Timage ajuda
Amigos alguem já fez ou sabe como fazer para dar zoom em um Timage igual aquele recurso do MsPaint com click sobre a figura. aumenta a parte selecionada da imagem.(onde clickou) Agradeço aos que colaborarem Abraços a todos 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]
[delphi-br] gravar dvd ?
amigos preciso de um componente de preferencia free para gravar dvd no delphi de preferencia aquele que vce já testou e viu que realmente funciona Grata pela ajuda Abraços a todos 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]
[delphi-br] assistente de gravação cd do xp?
preciso saber como faço para char o assistnte de gravação de cd do xp
pelo delphi a ideia é usar com essa dica baixo:
Executar um programa e aguardar sua finalização antes de continuar411 -
Executar um programa e aguardar sua finalização antes de continuar
Inclua na seção uses: Windows
{ Esta função faz isto. }
function ExecAndWait(const FileName,
Params: string;
const WindowState: Word):
boolean;
var
SUInfo: TStartupInfo;
ProcInfo: TProcessInformation;
CmdLine: string;
begin
{ Coloca o nome do arquivo
entre aspas. Isto é necessário devido aos espaços contidos em nomes longos
}
CmdLine := '' + Filename + '' + Params;
FillChar(SUInfo, SizeOf(SUInfo), #0);
with SUInfo do begin
cb := SizeOf(SUInfo);
dwFlags := STARTF_USESHOWWINDOW;
wShowWindow := WindowState;
end;
Result := CreateProcess(nil, PChar(CmdLine), nil, nil, false,
CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil,
PChar(ExtractFilePath(Filename)), SUInfo, ProcInfo);
{ Aguarda até ser finalizado
}
if Result then begin
WaitForSingleObject(ProcInfo.hProcess, INFINITE);
{ Libera os Handles
}
CloseHandle(ProcInfo.hProcess);
CloseHandle(ProcInfo.hThread);
end;
end;
- Exemplo de uso:
ExecAndWait('c:\windows\notepad.exe', '', SW_SHOW);aqui qual o comando para
acionar o assitente???
grata pela atenção dos amigos
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]
[delphi-br] dica de como fazer ?
Preciso de ideias de como fazer para: Tenho N fotos em um banco esse nuemro pode variar muito conforme o cliente então preciso descarregar do banco o arquivo em disco ou em memoria e gravar em cd. Gravar ,receber do banco isso tudo é simples domino bem , preciso e de uma ideia de como fazer de forma simples e pratica o recebimento dessas fotos do banco. arquivo em disco? memoria? como se varia tanto o numero? Agradeço aos amigos que colaborarem 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]
Re: [delphi-br] Re: instalar componente delphi7 preeciso de ajuda
Walter
Deu certo
Muito obrigado
Deus esteja com vce Sempre...
Valeu mesmo
--- Em sáb, 30/5/09, Walter Chagas (Bol) wchag...@bol.com.br escreveu:
De: Walter Chagas (Bol) wchag...@bol.com.br
Assunto: Re: [delphi-br] Re: instalar componente delphi7 preeciso de ajuda
Para: delphi-br@yahoogrupos.com.br
Data: Sábado, 30 de Maio de 2009, 20:28
Alessandra, eu baixei esse pacote aí que voce falou.
Para instalar ela no Delphi 7, basta voce abrir a package VideoCapture_ d6,
abrir a unit DirectDraw.pas e ir na linha 145.
Mude a diretiva de compilação de {$IFDEF VER140} para {$IFDEF VER150} . Salve e
aí ela irá instalar.
[]s
Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
wchag...@bol. com.br
http://www.geocitie s.com/SiliconVal ley/Bay/1058
http://delphitocorp orerm.blogspot. com/
MSN: whitesockets@ hotmail.com
SKYPE: WalterChagasJr
- Original Message -
From: alessandra porto
To: delphi...@yahoogrup os.com.br
Sent: Saturday, May 30, 2009 7:56 PM
Subject: Re: [delphi-br] Re: instalar componente delphi7 preeciso de ajuda
o erro :
tentando instalar pelo VideoCapture_ d6.dpk
o erro ao compilar
Build
[Warning] DirectDraw.pas( 85): Unsafe type 'TRefGUID'
[Warning] DirectDraw.pas( 168): Unsafe type 'TDDBltFX'
[Error] DirectDraw.pas( 173): Type 'IDirectDrawSurface ' needs finalization
- not allowed in variant record
[Error] DirectDraw.pas( 180): Type 'IDirectDrawSurface ' needs finalization
- not allowed in variant record
[Error] DirectDraw.pas( 190): Type 'IDirectDrawSurface ' needs finalization
- not allowed in variant record
[Error] DirectDraw.pas( 197): Type 'IDirectDrawSurface ' needs finalization
- not allowed in variant record
[Error] DirectDraw.pas( 209): Type 'IDirectDrawSurface ' needs finalization
- not allowed in variant record
[Warning] DirectDraw.pas( 475): Unsafe type 'TDDPixelFormat_ DX5'
[Warning] DirectDraw.pas( 512): Unsafe type 'TDDPixelFormat_ DX6'
[Warning] DirectDraw.pas( 579): Unsafe type 'TDDOverlayFX'
[Error] DirectDraw.pas( 590): Type 'IDirectDrawSurface ' needs finalization
- not allowed in variant record
[Error] DirectDraw.pas( 592): Type 'IDirectDrawSurface ' needs finalization
- not allowed in variant record
[Warning] DirectDraw.pas( 720): Unsafe type 'Pointer'
[Warning] DirectDraw.pas( 732): Unsafe type 'TDDSurfaceDesc_ DX5'
[Warning] DirectDraw.pas( 744): Unsafe type 'Pointer'
[Warning] DirectDraw.pas( 767): Unsafe type 'TDDSurfaceDesc_ DX6'
[Warning] DirectDraw.pas( 779): Unsafe type 'Pointer'
[Warning] DirectDraw.pas( 813): Unsafe type 'TDDSurfaceDesc2'
[Warning] DirectDraw.pas( 825): Unsafe type 'Pointer'
[Warning] DirectDraw.pas( 877): Unsafe type 'Pointer'
[Warning] DirectDraw.pas( 879): Unsafe type 'Pointer'
[Warning] DirectDraw.pas( 881): Unsafe type 'Pointer'
[Warning] DirectDraw.pas( 883): Unsafe type 'Pointer'
[Warning] DirectDraw.pas( 885): Unsafe type 'Pointer'
[Warning] DirectDraw.pas( 907): Unsafe type 'Pointer'
[Warning] DirectDraw.pas( 916): Unsafe type 'Pointer'
[Warning] DirectDraw.pas( 919): Unsafe type 'Pointer'
[Warning] DirectDraw.pas( 947): Unsafe type 'Pointer'
[Warning] DirectDraw.pas( 956): Unsafe type 'Pointer'
[Warning] DirectDraw.pas( 959): Unsafe type 'Pointer'
[Warning] DirectDraw.pas( 989): Unsafe type 'Pointer'
[Warning] DirectDraw.pas( 998): Unsafe type 'Pointer'
[Warning] DirectDraw.pas( 1001): Unsafe type 'Pointer'
[Warning] DirectDraw.pas( 1039): Unsafe type 'Pointer'
[Warning] DirectDraw.pas( 1048): Unsafe type 'Pointer'
[Warning] DirectDraw.pas( 1051): Unsafe type 'Pointer'
[Warning] DirectDraw.pas( 1094): Unsafe type 'Pointer'
[Warning] DirectDraw.pas( 1096): Unsafe type 'Pointer'
[Warning] DirectDraw.pas( 1098): Unsafe type 'Pointer'
[Warning] DirectDraw.pas( 1137): Unsafe type 'Pointer'
[Warning] DirectDraw.pas( 1139): Unsafe type 'Pointer'
[Warning] DirectDraw.pas( 1168): Unsafe type 'Pointer'
[Warning] DirectDraw.pas( 1197): Unsafe type 'Pointer'
[Warning] DirectDraw.pas( 1199): Unsafe type 'Pointer'
[Warning] DirectDraw.pas( 1229): Unsafe type 'Pointer'
[Warning] DirectDraw.pas( 1258): Unsafe type 'Pointer'
[Warning] DirectDraw.pas( 1260): Unsafe type 'Pointer'
[Warning] DirectDraw.pas( 1290): Unsafe type 'Pointer'
[Warning] DirectDraw.pas( 1324): Unsafe type 'Pointer'
[Warning] DirectDraw.pas( 1326): Unsafe type 'Pointer'
[Warning] DirectDraw.pas( 1370): Unsafe type 'Pointer'
[Warning] DirectDraw.pas( 1372): Unsafe type 'Pointer'
[Warning] DirectDraw.pas( 1395): Unsafe type 'Pointer'
[Warning] DirectDraw.pas( 1397): Unsafe type 'Pointer'
[Warning] DirectDraw.pas( 1441): Unsafe type 'Pointer'
[Warning] DirectDraw.pas( 1443
Re: [delphi-br] Re: instalar componente delphi7 preeciso de ajuda
o erro : tentando instalar pelo VideoCapture_d6.dpk o erro ao compilar Build [Warning] DirectDraw.pas(85): Unsafe type 'TRefGUID' [Warning] DirectDraw.pas(168): Unsafe type 'TDDBltFX' [Error] DirectDraw.pas(173): Type 'IDirectDrawSurface' needs finalization - not allowed in variant record [Error] DirectDraw.pas(180): Type 'IDirectDrawSurface' needs finalization - not allowed in variant record [Error] DirectDraw.pas(190): Type 'IDirectDrawSurface' needs finalization - not allowed in variant record [Error] DirectDraw.pas(197): Type 'IDirectDrawSurface' needs finalization - not allowed in variant record [Error] DirectDraw.pas(209): Type 'IDirectDrawSurface' needs finalization - not allowed in variant record [Warning] DirectDraw.pas(475): Unsafe type 'TDDPixelFormat_DX5' [Warning] DirectDraw.pas(512): Unsafe type 'TDDPixelFormat_DX6' [Warning] DirectDraw.pas(579): Unsafe type 'TDDOverlayFX' [Error] DirectDraw.pas(590): Type 'IDirectDrawSurface' needs finalization - not allowed in variant record [Error] DirectDraw.pas(592): Type 'IDirectDrawSurface' needs finalization - not allowed in variant record [Warning] DirectDraw.pas(720): Unsafe type 'Pointer' [Warning] DirectDraw.pas(732): Unsafe type 'TDDSurfaceDesc_DX5' [Warning] DirectDraw.pas(744): Unsafe type 'Pointer' [Warning] DirectDraw.pas(767): Unsafe type 'TDDSurfaceDesc_DX6' [Warning] DirectDraw.pas(779): Unsafe type 'Pointer' [Warning] DirectDraw.pas(813): Unsafe type 'TDDSurfaceDesc2' [Warning] DirectDraw.pas(825): Unsafe type 'Pointer' [Warning] DirectDraw.pas(877): Unsafe type 'Pointer' [Warning] DirectDraw.pas(879): Unsafe type 'Pointer' [Warning] DirectDraw.pas(881): Unsafe type 'Pointer' [Warning] DirectDraw.pas(883): Unsafe type 'Pointer' [Warning] DirectDraw.pas(885): Unsafe type 'Pointer' [Warning] DirectDraw.pas(907): Unsafe type 'Pointer' [Warning] DirectDraw.pas(916): Unsafe type 'Pointer' [Warning] DirectDraw.pas(919): Unsafe type 'Pointer' [Warning] DirectDraw.pas(947): Unsafe type 'Pointer' [Warning] DirectDraw.pas(956): Unsafe type 'Pointer' [Warning] DirectDraw.pas(959): Unsafe type 'Pointer' [Warning] DirectDraw.pas(989): Unsafe type 'Pointer' [Warning] DirectDraw.pas(998): Unsafe type 'Pointer' [Warning] DirectDraw.pas(1001): Unsafe type 'Pointer' [Warning] DirectDraw.pas(1039): Unsafe type 'Pointer' [Warning] DirectDraw.pas(1048): Unsafe type 'Pointer' [Warning] DirectDraw.pas(1051): Unsafe type 'Pointer' [Warning] DirectDraw.pas(1094): Unsafe type 'Pointer' [Warning] DirectDraw.pas(1096): Unsafe type 'Pointer' [Warning] DirectDraw.pas(1098): Unsafe type 'Pointer' [Warning] DirectDraw.pas(1137): Unsafe type 'Pointer' [Warning] DirectDraw.pas(1139): Unsafe type 'Pointer' [Warning] DirectDraw.pas(1168): Unsafe type 'Pointer' [Warning] DirectDraw.pas(1197): Unsafe type 'Pointer' [Warning] DirectDraw.pas(1199): Unsafe type 'Pointer' [Warning] DirectDraw.pas(1229): Unsafe type 'Pointer' [Warning] DirectDraw.pas(1258): Unsafe type 'Pointer' [Warning] DirectDraw.pas(1260): Unsafe type 'Pointer' [Warning] DirectDraw.pas(1290): Unsafe type 'Pointer' [Warning] DirectDraw.pas(1324): Unsafe type 'Pointer' [Warning] DirectDraw.pas(1326): Unsafe type 'Pointer' [Warning] DirectDraw.pas(1370): Unsafe type 'Pointer' [Warning] DirectDraw.pas(1372): Unsafe type 'Pointer' [Warning] DirectDraw.pas(1395): Unsafe type 'Pointer' [Warning] DirectDraw.pas(1397): Unsafe type 'Pointer' [Warning] DirectDraw.pas(1441): Unsafe type 'Pointer' [Warning] DirectDraw.pas(1443): Unsafe type 'Pointer' [Warning] DirectDraw.pas(4747): Unsafe type 'PAnsiChar' [Warning] DirectDraw.pas(4748): Unsafe type 'PAnsiChar' [Warning] DirectDraw.pas(4748): Unsafe type 'Pointer' [Warning] DirectDraw.pas(4749): Unsafe type 'PWideChar' [Warning] DirectDraw.pas(4750): Unsafe type 'PWideChar' [Warning] DirectDraw.pas(4750): Unsafe type 'Pointer' [Warning] DirectDraw.pas(4757): Unsafe type 'PAnsiChar' [Warning] DirectDraw.pas(4758): Unsafe type 'PAnsiChar' [Warning] DirectDraw.pas(4758): Unsafe type 'Pointer' [Warning] DirectDraw.pas(4760): Unsafe type 'PWideChar' [Warning] DirectDraw.pas(4761): Unsafe type 'PWideChar' [Warning] DirectDraw.pas(4761): Unsafe type 'Pointer' [Warning] DirectDraw.pas(4772): Unsafe type 'Pointer' [Warning] DirectDraw.pas(4774): Unsafe type 'Pointer' [Warning] DirectDraw.pas(4776): Unsafe type 'Pointer' [Warning] DirectDraw.pas(4779): Unsafe type 'Pointer' [Warning] DirectDraw.pas(4781): Unsafe type 'Pointer' [Warning] DirectDraw.pas(4783): Unsafe type 'Pointer' [Warning] DirectDraw.pas(5588): Unsafe type 'Pointer' [Warning] DirectDraw.pas(5636): Unsafe type 'Pointer' [Fatal Error] DirectDraw.pas(5650): Could not compile used unit 'DXCommon.pas' --- Em sáb, 30/5/09, Joao Henrique Levada joaolev...@gmail.com escreveu: De: Joao Henrique Levada joaolev...@gmail.com Assunto: [delphi-br] Re:
[delphi-br] instalar componente delphi7 preeciso de ajuda
Achei esse componente para captura de video e descobri atraves do exemplo já compilado que vem junto, que ele resolve todo o meu problema pois ele cria um tipo de arquivo .ini no diretorio da aplicação guardando as configurações do componente quando configurado na aplicação pelo usuario (formato de compressão de video etc,etc). Assim ficaria mais facil distribuir minha aplicação pois não teria riscos do usuario fazer caca . eavcap onde baixei ele: http://www.torry.net/authorsmore.php?id=2477 TVideoCapture O problema é que estou usando delphi7 e o instalador com os fontes é somente para delphi 5 ou 6 no 7 dá erro já tentei instalar o componente de diversas formas e não consigo. Ficaria muito grata aos amigos que puderem ajudar Obrigada pela sua atenção. esta parte abaixo faz parte do readme do componente: /// TVideoCapture v.1.15 FWS 601 k 04 Dec 2002 By Egor Averchenkov. TVideoCapture - Delphi wrapper for DirectShow video capture functions. Code is based on Microsoft's AMCap StillCap samples from DirectX SDK and DScapture. Tested under Win98 Win2k DX8.1 with miniDV camcoder, Genius VideoCAM III, bt878 WDM TVTuner. DirectX 8 or later is required to capture bitmaps. Fully functional Source: Included Exe-Demo Included Download: CB5 D5 D6 /// TVideoCapture component with sources to capture video and bitmaps. D5, D6 and BCB5 compatible. Requires DirectShow. To capture single frames you need DX8. version 1.15 (c) Egor Averchenkov, 2001-02 e_g_...@mail.ru /// VCL component to capture video and single bitmaps. Reqiures DirectShow. Version 1.15 (c) Egor Averchenkov (e_g_...@mail.ru), 2001-2002 Latest revision: November 03, 2002. About. TVideoCapture - Delphi wrapper for DirectShow video capture functions. Code is based on Microsoft's AMCap StillCap samples from DirectX SDK and DScapture by orthkon * www.mp3.com/orthkon * orth...@mail.com Compatible with D5, D6 and BCB5. Tested under Win98 Win2k DX8.1 with miniDV camcoder, Genius VideoCAM III, bt878 WDM TVTuner. DX8 or later is required to capture bitmaps. I use this component in my software to capture bitmaps (and sometimes video) from Sony miniDV camcoder and webcams. !!! To compile demo you must have RxLib. Don't ask me where to get it !!! Sorry, I'm rather lazy to write anything else about. (o: If you have questions - e-mail me. 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]
[delphi-br] ajuda com o componente VideoCap1
Amigos Meu problema é o seguinte eu gostaria de que todas as vezes que começasse uma nova captura de video já ficasse definido que o mesmo seria com compressão maxima. o padrão é sem compressão Já olhei a unit do componente e não consegui alterar isso ele sempre apresenta o VideoCap1.dlgCompression para que o usuario não fique tendo sempre que informar a taxa de compressão eu gostaria de fixar sempre como a maxima alguem já teve esse probleminha e pode me dar uma dica de como resolver abraços 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]
Re: [delphi-br] Windows MediaPlayer em panel ??
Fabio resolvi o problema dei uma estudadinha aqui depois de sua dica e foi resolvido obrigada pela atenção T+ --- Em seg, 25/5/09, Fabio Thomaz fabio_...@yahoo.com.br escreveu: De: Fabio Thomaz fabio_...@yahoo.com.br Assunto: Re: [delphi-br] Windows MediaPlayer em panel ?? Para: delphi-br@yahoogrupos.com.br Data: Segunda-feira, 25 de Maio de 2009, 8:27 Alessandra, Se utilizar o Delphi 2005 ou superior vá em component - Import Component selecione a opção Import ActiveX Control, selecione Windows Media Player e por ai vai, nunca usei este tipo de objeto mas sei que é por ai. No delphi 7 é no menu Component - Import ActiveX Control. 2009/5/24 alessandra porto alessandraporto11@ yahoo.com. br fabio pode ate ser o ''pro'' é que eu en tenho ideia de como fazer isso --- Em dom, 24/5/09, Fabio Thomaz fabio_...@yahoo. com.brfabio_thz%40yahoo. com.br escreveu: De: Fabio Thomaz fabio_...@yahoo. com.br fabio_thz%40yahoo. com.br Assunto: Re: [delphi-br] Windows MediaPlayer em panel ?? Para: delphi...@yahoogrup os.com.br delphi-br%40yahoog rupos.com. br Data: Domingo, 24 de Maio de 2009, 19:18 Será que não foi um controle ActiveX importado? 2009/5/24 alessandra porto alessandraporto11@ yahoo.com. br Vi em uma aplicação o uso do Windows MediaPlayer wm um panel é o proprio aplicativo do windows não o componente mediaplayer do delphi Alguem sabe dizer como isso é feito? E o legal da coisa é que o windowsmediaplayer já entra abrindo seu arquivo media.avi de sua aplicação. obs:o aplicativo fica somente dentro do panel. Alguem pode dar uma dica de como fazer isso? Abraços a todos. Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com [As partes desta mensagem que não continham texto foram removidas] -- Fábio Thomaz RG System Informática Ltda - Desenvolvimento [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com [As partes desta mensagem que não continham texto foram removidas] -- Fábio Thomaz RG System Informática Ltda - Desenvolvimento Msn: fa...@rgsystem. com.br [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]
[delphi-br] Windows MediaPlayer em panel ??
Vi em uma aplicação o uso do Windows MediaPlayer wm um panel é o proprio aplicativo do windows não o componente mediaplayer do delphi Alguem sabe dizer como isso é feito? E o legal da coisa é que o windowsmediaplayer já entra abrindo seu arquivo media.avi de sua aplicação. obs:o aplicativo fica somente dentro do panel. Alguem pode dar uma dica de como fazer isso? Abraços a todos. 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]
Re: [delphi-br] Windows MediaPlayer em panel ??
fabio pode ate ser o ''pro'' é que eu en tenho ideia de como fazer isso --- Em dom, 24/5/09, Fabio Thomaz fabio_...@yahoo.com.br escreveu: De: Fabio Thomaz fabio_...@yahoo.com.br Assunto: Re: [delphi-br] Windows MediaPlayer em panel ?? Para: delphi-br@yahoogrupos.com.br Data: Domingo, 24 de Maio de 2009, 19:18 Será que não foi um controle ActiveX importado? 2009/5/24 alessandra porto alessandraporto11@ yahoo.com. br Vi em uma aplicação o uso do Windows MediaPlayer wm um panel é o proprio aplicativo do windowsnão o componente mediaplayer do delphi Alguem sabe dizer como isso é feito? E o legal da coisa é que o windowsmediaplayer já entra abrindo seu arquivo media.avi de sua aplicação. obs:o aplicativo fica somente dentro do panel. Alguem pode dar uma dica de como fazer isso? Abraços a todos. Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com [As partes desta mensagem que não continham texto foram removidas] -- Fábio Thomaz RG System Informática Ltda - Desenvolvimento [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]
[delphi-br] gauge ou progressbar ?
gauge ou progressbar ? Estou gravando um arquivo .avi em um campo blob e isso demora alguns segundos eu gostaria de criar uma forma visual pAra o usuario ficar olhando o progresso enquanto é gravado. mudar só o tipoi de cursor não chama muita atenção comno faço isso com um gauge ou um progressbar? De forma a ficar com um bom visual e eficiente ( começa no inicio da gravação e e vai de forma gradativa até o fim da gravação). Agradeço aos amigos que sugerirem Abraços 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]
[delphi-br] executar .avi com o componente MediaPlayer do delphi ?
estou fazendo assim:( obs: é um blob que vem de uma tabela)
procedure TFmPlayer.FormActivate(Sender: TObject);
var
b : TStream;
begin
if not Dm2.Cds_Filme.IsEmpty then
begin
b :=
Dm2.Cds_Filme.CreateBlobStream(Dm2.Cds_Filme.FieldByName('FILME'),bmRead);
end;
with MediaPlayer1 do
begin
/// a duvida esta aqui é fazer esse '' b '' que é b : TStream se
trnasformar em FileName
para o componente MediaPlayer executar o arquivo que vem da tabela.
/// ou posso executar o b : TStream direto no MediaPlayer ?
/// como fazer isso de forma mais pratica enxuta e claro mais eficiente?
FileName := 'c:\image\filme\05593.avi';
Open;
MediaPlayer1.DisplayRect := FmPlayer.ClientRect;
Display := FmPlayer;
Play;
end;
Sou grata a todos que ajudarem.
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]
[delphi-br] figuras para botoes e icones download?
Amigos alguem pode dar uma dica de onde conseguir boas images para botões e icones mais modernos ( futuristas) Tenho muitos aqui mais são antiguinhos. Agradeço a dica dos amigos Abraços a todos 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]
Re: [delphi-br] Delphi + Zeos em Terminal Ser vices, alguém usa?
Qual a utilidade deste componente como ele funciona --- Em qua, 6/5/09, Evandro Siqueira vans...@gmail.com escreveu: De: Evandro Siqueira vans...@gmail.com Assunto: Re: [delphi-br] Delphi + Zeos em Terminal Services, alguém usa? Para: delphi-br@yahoogrupos.com.br Data: Quarta-feira, 6 de Maio de 2009, 7:22 Bom dia Laureano, Eu utilizo Delphi 2007 com Zeos 6.6.2 no terminal service em um servidor Windows 2003 e SQL Server 2005 sem nenhum problema até agora. Vc pode especificar quais os problemas que encontrou? Talvez possamos encontrar uma solução para eles. Marcio F. Cruz escreveu: Olá Laureano, tudo bem? Depois, quando tiver um tempinho, dê uma olhada... http://sourceforge.net/search/?type_of_search=softwords=dddbxfacil http://sourceforge.net/search/?type_of_search=softwords=dddbxfacil Com Zeos em Windows Server, estava me dando pau... resolvi criar este componente acima para trabalhar num projeto aqui... Abraços! 2009/5/5 Laureano Araujo Nunes laureanonu...@yahoo.com.br mailto:laureanonunes%40yahoo.com.br Colegas, Gostaria de saber se alguém de vocês utiliza Delphi + Zeos em Windows Server, apartir de Terminal Services. Qualquer comentário é bem-vindo, obrigado. []´s Nunes Delphi 4 + PG 8.2 -- []’s. Evandro Siqueira Programador de Sistemas L’essentiel Lingerie (79) 3254-5511 Ramal 218 skype: evandro.lessentiel -- 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]
[delphi-br] campo blob video?
amigos como devo criar o campo blob na tabela do firebird para armazenar videos de forma a aproveitar melhor os recursos do banco campo tipo: blob subtipo tamanho etc como tenho certeza que amigos aqui da lista já fazem uso deste recurso na pratica gostaria de qual o formato mais apropriado do campo blob para o melhor aproveitamento Grata pela atenção 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]
[delphi-br] tscap32_delphi7_release ajuda
Baixei este componente e funciona bem captura a foto salva .Só não estou conseguindo fazer video avi estou usando o exemplo que acompanha o componente e ao capturar o .avi captura, só que ao tentar executar pelo media player do xp dá erro de formato alguem já passou por algo parecido ? agradeço aos que colaborarem 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]
[delphi-br] ajuda inserir figura em imagem
amigos preciso inserir uma figura (como uma seta por exemplo) sobre uma imagem tipo uma foto em um componente image O problema e que nem tenho ideia de como fazer isso , pois oque preciso é algo como marcar com uma seta uma determinada região de uma foto agradeço muito aos amigos que ajudarem com ideias ou mesmo pequeno exemplo de como fazer isso 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]
[delphi-br] como registrar uma aplicação(off)
amigos tenho uma aplicação hospitalar e gostaria de registrar ela para proteger os direitos autorais alguem conhece os passos para isso? 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]
[delphi-br] programa em execução?
como faço para saber pelo delphi se openoffice esta sendo executado? preciso criar um aviso ao usuario quando ele estiver com o openoffice aberto agradeço aos amigos que colaborarem 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]
[delphi-br] ajuda intervalo numerico
preciso fazer uma checagem de um intervalo numerio dentro de outro intervalo algo assim: intervalo1 (23 a 56) intervalo2 (30 a 45) preciso saber: existe algum numero do intervalo1 dentro do intervalo2 ? quais são os numeros existentes? qual a melhor forma de fazer isso? 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]
[delphi-br] mestre detalhe ajuda
como faço um mestre detalhe usando esses 2 componentes ibx com essas duas tabelas abaixo SimpleDataSet1(MESTRE) SQLQuery1(DETALHE) MESTRE COD_FUNC NOME_FUNC SETOR_FUNC DETALHE COD_FUNC INICIO_LICENCA FINAL_LICENCA Select * from FUNCIONARIOS Select * from LICENCA Where COD_FUNC=:cod_func 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]
[delphi-br] cores no delphi ajuda
preciso de uma dica de como criar cores difrentes para meus forms gosto do tom de azul claro tipo clGradientActiveCaption mas ela muda conforme algumas configuraçoes azul claro como obtenho essa cor ?? obs: sei que é por hexa mais qual corresponde a ela? 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]
[delphi-br] fast report x rave report quando usar?
fast report x rave report qual a vantagem de usar fast report ao inves de usar rave report que já vem com o delphi? preciso ter noção pois a empresa onde estou trabalhando usa fast report e sempre trabalhei com rave agradeço a opinião dos amigos 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]
[delphi-br] calcular percentual dif entre 2 valores ajuda
Tenho 2 valores 20,00 e 22,00 qual a diferença em percentual entre esses 2 valores qual a melhor forma de calcular isso? 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]
[delphi-br] Saber tamanho do arquivo
preciso gravar uma foto no BD e gostaria de fixar um tamanho limite da foto em kbytes para padronizar. alguem pode me dar algum exemplo de como medir o tamanho do arquivo(foto) antes de gravar?? Agradeço aos que ajudarem 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]
[delphi-br] Datasanap pesquisas ajuda basica?
estou aprendendo agora programar em ntier(DataSnap) e tenho um tanto de duvidas conforme exemplo abaixo: este é o servidor: SQLConnection1 SQLDataSet1(select * from CLIENTES ) DataSetProvider1 este é o cliente win32: SocketConnection1 ClientDataSet1 DataSource1 Dá certo, grava tudo certinho DM.cdsClientes.Append; //Incluir Cliente DM.cdsClientes.ApplyUpdates(0) //Grava no Banco de Dados o problema que estou enfrentando é pesquisar, mudar os parametros da pesquisa, coisas assim. onde faço essa mudança desses parametros no servidor? ou no cliente? se no cliente como fazer? tentei assim no cliente DM.ClientDataSet1.Close; DM.ClientDataSet1.CommandText:='SELECT * FROM CLIENTES WHERE ID_CLIENTES =:ID_CLI'; DM.ClientDataSet1.Params[0].AsInteger:=StrToInt(Edit1.Text); DM.ClientDataSet1.Open; e dá o seguinte erro CommandText changes are not allowed não é possivel fazer isso pelo ClientDataSet ?? achei alguns poucos exemplos na web, mas com pesquisas engessadas, não permitiam mudar os parametros de forma dinamica Agradeço de coração aos amigos que ajudarem Feliz 2009 a todos 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]
[delphi-br] sql ajuda
preciso de ideia de como fazer a seguinte pesquisa: retornar todas as faturas de um cliente, informando qual a fatura de (maior) e de (menor) data de cadastro, tabela cliente id_cliente cliente tabela fatura id_fatura id_cliente dta_fatura objetivo informar qual a data da primeira e da ultima fatura no mês P/ este cliente e se possivel informar o numero de faturas deste cliente neste mês em uma unica instrução sql agradeço aos amigos que colaborarem 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]
[delphi-br] sql max min ajuda
preciso retorvar o valor maximo e ninimo de determinado campo de uma tabela na mesma consulta somente uma informação estou conseguindo, unir as duas é que estou com dificuldades select min(CD_FATURA) as codigo_maximo FROM FATURA select MAX(CD_FATURA) as codigo_minimo FROM FATURA agradeço aos que ajudarem 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]
Re: [delphi-br] OFF +- Quero comprar o Delphi e o pr eço?
aproveitando gostaria de ter uma ideia de preço aproximado de cada versão disponivel no mercado ainda posso comprar o delphi 7 ? --- Em qui, 20/11/08, Claudiney Cogo [EMAIL PROTECTED] escreveu: De: Claudiney Cogo [EMAIL PROTECTED] Assunto: Re: [delphi-br] OFF +- Quero comprar o Delphi Para: delphi-br@yahoogrupos.com.br Data: Quinta-feira, 20 de Novembro de 2008, 12:13 Olá Jorge. Eu acredito que em qualquer uma das versões você não terá problema de migração, se trabalha com os componentes próprios do delphi somente ou se você mesmo produz os seus ou ainda se tem o código fonte dos componentes de terceiros. Agora se você utiliza componentes de terceiros e não tem os fontes aí sim pode ter problemas, caso estes componentes não tenham versão para o delphi escolhido. Aí o caminho é solicitar ao fabricante a atualização ou parar de usar e substituir por outro componente padrão. Agora quanto a versão Delphi 2009 ou RAD 2007 depende do uso. Se você só usa delphi win32, o Delphi 2009 vai resolver tudo. Se você trabalha com outras linguagens, como C++ ou desenvolvimento pra .NET, aí tem que ser o RAD 2007. Ou aguardar um pouco mais pelo RAD 2009 e o Prism. Acredito que seja isso. Mas de qualquer maneira o pessoal da Borland que frequenta a lista pode dar mais informações. Abraço. - - - - - - Claudiney Cogo N2 Sistemas e Soluções em Informática Av. São Paulo, 172 - 15º Andar - Sala 1505 Fone/Fax: (44) 3029-6053 - Maringá - Paraná www.n2solutions. com.br www.nfe.n2solutions .com.br www.studion2. com.br - Original Message - From: Jorge Ericsson To: [EMAIL PROTECTED] os.com.br Sent: Thursday, November 20, 2008 9:36 AM Subject: Re: [delphi-br] OFF +- Quero comprar o Delphi Também quero comprar o Delphi mas a minha dúvida é quanto a versão. Hoje eu trabalho com a versão Delphi 7 e fico na dúvida em Comprar o Delphi 2009 ou Rad Studio 2007. Alguém poderia me dá uma dica em qual das versão não teria problema de migração ? Queria algo barato, investimento inicial baixo mas que atender as minhas necessidades. Abraço. Jorge Ericsson [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 3625 (20081119) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset. com.br [As partes desta mensagem que não continham texto foram removidas] 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]
[delphi-br] firebird versão?
estou usando a 1.5.4.8 até agora esta otima qual versão superior posso migrar sem dores de cabeça? 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]
[delphi-br] sql calculo datas ajuda?
preciso ajuda para criar uma pesquisa sql que a partir de uma data somada a X dias seja comparada a data atual e retorne o numero de dias de vencimento já decorridos. TABELA VENDA id_venda id_prazo dta_venda id_cliente valor 1 3 20/10/2008 100 33,14 2 1 13/05/2008 123 100,22 3 4 20/10/2008 1001 199,13 4 4 10/11/2008 2080 1234,99 23 2 12/08/2008 1023 32,78 TABELA PRAZO id_prazo n_dias 1 30 2 45 3 60 4 90 Como base a data do dia Quantos dias de vencido tem cada venda? Obs: se possivel informar ainda alem das vendas vencidas, o valor total da soma das vendas vencidas. agradeço a todos que ajudarem com sujestões Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Clube Delphi 100
Concordo cresceu complicou --- Em dom, 2/11/08, JB [EMAIL PROTECTED] escreveu: De: JB [EMAIL PROTECTED] Assunto: Re: [delphi-br] Re: Clube Delphi 100 Para: delphi-br@yahoogrupos.com.br Data: Domingo, 2 de Novembro de 2008, 21:52 taí um bom motivo pra eu nao voltar a assinar ^_^ Att. -- _ ___ José Benedito Software Developer josebenedito@ gmail.com +55 19 8116-7826 2008/11/2 Elson Vinicius [EMAIL PROTECTED] com.br: Aproveitando o ensejo da edição nº 100 da ClubeDelphi e eu como assinate a dois anos da mesma gostaria de deixar aqui a minha insatisfação com a nova sistemática de vídeos adotadas pela DevMedia. O que me motivou a assinar a Clube Delphi foi primeiramente a possibilidade de acessar videos com conteúdo que me interessassem. Até ai tudo bem baixei varios Gb de video e assisti a grande maioria. Porem a DevMedia cresceu e a variedade de conteúdo também, pra sorte dos assinantes, mas como o download de videos era grande a DevMedia mudou para o sistema de créditos, atá ai, mais uma vez, tudo bem, pois a maioria dos videos estavam livres pra serem baixados e vistos pelos assinantes. Porem enfim, chegou o DevMedia Player, um sistema bacana que dificilmente acessa a internet e na hora de fechar é somente mantando o processo no gerenciador, sem contar que pra você assistir off-line tem que pedir permissão, autorização e compreensão a coisas nunca antes vistas (eu não consegui assistir nenhum video pelo DevMedia Player...alguem consegue?), enfim...ja falei de mais...Mas quero dizer que estou insatisfeito com a Devmedia, pois o carro chefe do grupo que são as video aulas, que nós assinantes pagamos para ver, e não estamos conseguindo mais. Infelizmente não renovei minha assinatura e não recomendo a ninguem. PS: o que escrevi aqui ja foi passado para a DevMedia, so quem bem mais completo e não obtive resposta. Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] ajuda para entender codigo
openoffice com delphi peguei esse exemplo na net que parece resolver meu problema mas estou com dificuldades para fazer funcionar caso algum amigo aqui da lista tenha paciencia para analisar e descobrir onde esta o erro ficaria muito grata. parece que a quantidade de \ que esta em excesso declare em uses ComObj procedure TForm1.Button1Click(Sender: TObject); var fOpenOffice : Variant; fDocument : Variant; fConnected : boolean; fDocumentOpened : boolean; fDesktop : Variant; wProperties : Variant; Texto, oDescBusca : variant; begin if VarIsEmpty(fOpenOffice) then fOpenOffice := CreateOleObject(\'com.sun.star.ServiceManager\'); fConnected := not (VarIsEmpty(fOpenOffice) or VarIsNull(fOpenOffice)); if not fConnected then abort; fDesktop := fOpenOffice.createInstance(\'com.sun.star.frame.Desktop\'); wProperties := VarArrayCreate([0, 0], varVariant); wProperties[0] := MakePropertyValue(fOpenOffice,\'Hidden\', false); try fDocument := fDesktop.loadComponentFromURL( \'file:///\'+ StripString(\'c:\\angela.doc\', \'\\\', \'/\') , \'_blank\', 0, wProperties); Texto := fDocument.GetText ; except fDocument := fDesktop.LoadComponentFromURL(\'private:factory/swriter\',\'_blank\', 0, VarArrayCreate([0, - 1], varVariant)); Texto := fDocument.GetText ; Texto.SetString(\'teste\'+ #13 + \'teste\'+#13); end; fDocumentOpened := not (VarIsEmpty(fDocument) or VarIsNull(fDocument)); oDescBusca := fDocument.createReplaceDescriptor; oDescBusca.SearchWords := True; oDescBusca.setSearchString (\'teste\'); oDescBusca.setReplaceString(\'angela\'); fDocument.replaceAll(oDescBusca); oDescBusca := Texto.getEnd; oDescBusca.SetString(\'x\'); if fDocumentOpened then begin // fDocument.Close(false); fDocumentOpened := false; fDocument := Unassigned; //fDesktop.Terminate; fDesktop := UnAssigned; end; fConnected := false; fOpenOffice := Unassigned; end; Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] delphi com OpenOffice ?
Quem tem uma dica de como, via delphi, criar um documento no OpenOffice? Como abrir um documento e substituir uma string por outra ? faço isso com o word preciso passar para o OpenOffice alguem pode ajudar dando uma ideia de como começar? grata Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] delphi com OpenOffice ?
olhei aqui não achei mas se vce puder mandar um pedacinho do codigo que vce desenvolvel já serve para ter uma ideia de onde começar preciso gravar um texto no open e substituir string nele via delphi --- Em qua, 29/10/08, Tatu [EMAIL PROTECTED] escreveu: De: Tatu [EMAIL PROTECTED] Assunto: RES: [delphi-br] delphi com OpenOffice ? Para: delphi-br@yahoogrupos.com.br Data: Quarta-feira, 29 de Outubro de 2008, 13:50 de uma olhada no historico..postei a um tempo atras um link com umas dicas boas sobre esse tema...caso nao encontre me avise..vou procurar novamente..! ! Santiago. NSR -Mensagem original - De: [EMAIL PROTECTED] os.com.br [mailto:[EMAIL PROTECTED] os.com.br] Em nome de alessandra porto Enviada em: quarta-feira, 29 de outubro de 2008 11:46 Para: lista-delphi@ yahoogrupos. com.br; [EMAIL PROTECTED] os.com.br Assunto: [delphi-br] delphi com OpenOffice ? Quem tem uma dica de como, via delphi, criar um documento no OpenOffice? Como abrir um documento e substituir uma string por outra ? faço isso com o word preciso passar para o OpenOffice alguem pode ajudar dando uma ideia de como começar? grata Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail. com. http://br.new. http://br.new. mail.yahoo. com/addresses mail.yahoo.com/ addresses [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: encontrar mes e ano a partir de uma data
boa essa dica sera que facil assim eu consigo retornar o mês por extenso?? --- Em ter, 28/10/08, deco0_07 [EMAIL PROTECTED] escreveu: De: deco0_07 [EMAIL PROTECTED] Assunto: [delphi-br] Re: encontrar mes e ano a partir de uma data Para: delphi-br@yahoogrupos.com.br Data: Terça-feira, 28 de Outubro de 2008, 17:27 Ou utilizar as funções ExtractMonth e ExtractYear dentro de DateUtil. ou ainda MonthOf e YearOf de DateUtils no delphi 7 --- Em [EMAIL PROTECTED] os.com.br, Rafael rafael.adorno@ ... escreveu Você pode utilizar a função FormatDateTime. Veja: Retornar Mês: FormatDateTime( 'mm', Data) Retornar Ano (4 dígitos): FormatDateTime( '', Data) Retornar Ano (2 dígitos): FormatDateTime( 'yy', Data) 2008/10/28 rzzanatta [EMAIL PROTECTED] .. Olá gosta dia que apartir de uma data tivesse uma função que me retornasse o mes e o ano. Exemplo... data - 28/10/2008 e retornasse o mes= 10 e ano = 2008 mas separados como faço isso? [As partes desta mensagem que não continham texto foram removidas] Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] ideias ajuda
preciso de ideias de como fazer essa pesquisa de forma mais eficiente
tenho que atraves de radiogroup deixar o usuario selecionar as opções que
farão parte da pesquisa , cada opção carrega uma variavel
tipo:
paciente: medico convenio unidade
geral geral geral geral
nome medico convenio unidade
paciente,medico,convenio,unidade
são tabelas do banco que se ligam atraves de
chaves.
fiz algo assim:
with DM3.Qry_Fatura_Fat do
begin
Active:=false;
sql.Clear;
SQL.Add(CORPO_SQL2+' WHERE (DTA_EMIS_GUIA = :INIC AND
DTA_EMIS_GUIA =:FIM)'+COND_FAT1+COND_FAT2+COND_FAT3+COND_FAT4+COND_FAT5+'
ORDER BY DTA_EMIS_GUIA ');
ParamByName('CD_CONV').AsInteger :=CD_CONVENIO_FAT;
ParamByName('INIC').AsDate :=EinicFat.Date;
ParamByName('FIM').AsDate :=EfinalFat.Date;
Active:=True;
end;
corposql é uma variavel que contem o sql principal
COND_FAT1+COND_FAT2+COND_FAT3+COND_FAT4+COND_FAT5
seria as variaveis que receberiam os valores escolhidos pelo usuario
o problema é como criar os
ParamByName('').Asinteger :=;
conforme a necessidade do usuario
pois nem sempre ele vai determinar valores todas as variaveis , há casos que
quando geral não é necessario criar o ParamByName('').Asinteger :=;
ficaria grata aos amigos que ajudarem com ideias de como fazer isso de forma
mais eficiente
obs. essa é só uma parte a pesquisa envolve um maior numero de tabelas(opções)
em uma só pesquisa
Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] ideias ajuda
josebenedito comecei a pegar a ideia vce tem um pedacinho de codigo ai que vce usa para clarear a ideia desde já agradeço sua atenção --- Em ter, 21/10/08, JB [EMAIL PROTECTED] escreveu: De: JB [EMAIL PROTECTED] Assunto: Re: [delphi-br] ideias ajuda Para: delphi-br@yahoogrupos.com.br Data: Terça-feira, 21 de Outubro de 2008, 8:43 coloca todos os parametros e passa todos para a query, os q nao utiliza passa o valor 0 por exemplo, e no sql vc verifica se o campo eh igual a variavel ou a variavel eh igual a 0... entendeu? 2008/10/21 alessandra porto alessandraporto11@ yahoo.com. br: preciso de ideias de como fazer essa pesquisa de forma mais eficiente tenho que atraves de radiogroup deixar o usuario selecionar as opções que farão parte da pesquisa , cada opção carrega uma variavel tipo: paciente: medico convenio unidade geralgeral geralgeral nome medico convenio unidade paciente,medico, convenio, unidade são tabelas do banco que se ligam atraves de chaves. fiz algo assim: with DM3.Qry_Fatura_ Fat do begin Active:=false; sql.Clear; SQL.Add(CORPO_ SQL2+' WHERE (DTA_EMIS_GUIA = :INIC AND DTA_EMIS_GUIA =:FIM)'+COND_ FAT1+COND_ FAT2+COND_ FAT3+COND_ FAT4+COND_ FAT5+' ORDER BY DTA_EMIS_GUIA '); ParamByName( 'CD_CONV' ).AsInteger :=CD_CONVENIO_ FAT; ParamByName( 'INIC').AsDate :=EinicFat.Date; ParamByName( 'FIM').AsDate :=EfinalFat. Date; Active:=True; end; corposql é uma variavel que contem o sql principal COND_FAT1+COND_ FAT2+COND_ FAT3+COND_ FAT4+COND_ FAT5 seria as variaveis que receberiam os valores escolhidos pelo usuario o problema é como criar os ParamByName( '').Asinteger :=; conforme a necessidade do usuario pois nem sempre ele vai determinar valores todas as variaveis , há casos que quando geral não é necessario criar o ParamByName( '').Asinteger :=; ficaria grata aos amigos que ajudarem com ideias de como fazer isso de forma mais eficiente obs. essa é só uma parte a pesquisa envolve um maior numero de tabelas(opções) em uma só pesquisa Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail. com. http://br.new. mail.yahoo. com/addresses [As partes desta mensagem que não continham texto foram removidas] -- Att. -- _ ___ José Benedito Software Developer josebenedito@ gmail.com +55 19 8116-7826 __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] ideias ajuda
otima ideia
valeu
--- Em ter, 21/10/08, BandaLemuel [EMAIL PROTECTED] escreveu:
De: BandaLemuel [EMAIL PROTECTED]
Assunto: Re: [delphi-br] ideias ajuda
Para: delphi-br@yahoogrupos.com.br
Data: Terça-feira, 21 de Outubro de 2008, 10:18
Eu Uso assim.
with Query do
begin
Close;
Sql.clear;
{ SQL Principal}
Sql.text:= 'SELECT * FROM TABELA ' ;
{ Verifica se filtra por codigo }
if RgFiltro.itemIndex = 0 then
begin
Sql.add ( ' WHERE CODIGO=:CODIGO ' );
ParamByName( 'CODIGO') .asinteger :=
StrToInt ( EdtCodigo.text );
end;
{ Se filtra por Periodo]}
if ( DtIni.Text '' ) and ( Dtfin.text '' ) then
begin
{ Uso este IF para verificar se no
SQL temo WHERE , se tiver é porque ja tem um filtro ai ele vai usar o AND
); }
if pos ( 'WHERE' , Sql.text ) 0
then
Sql.Add ( ' AND DATA
BETWEEN :DTINI AND :DTFIN ' )
else
Sql.add ( ' WHERE DATA
BETWEEN :DTINI AND :DTFIN' );
ParamByName( 'DTINI'). asdate :=
DtIni.Date;
ParamByName( 'DTFIN'). asdate:=
DtFin.date;
end
end;
Creio que seja isso o que vc quer... ai vc pode fazer o jeito que vc
precisar .
Wesley
From: alessandra porto
Sent: Tuesday, October 21, 2008 7:57 AM
To: [EMAIL PROTECTED] os.com.br
Subject: Re: [delphi-br] ideias ajuda
josebenedito
comecei a pegar a ideia vce tem um pedacinho de codigo ai que vce usa
para clarear a ideia
desde já agradeço sua atenção
--- Em ter, 21/10/08, JB josebenedito@ gmail.com escreveu:
De: JB josebenedito@ gmail.com
Assunto: Re: [delphi-br] ideias ajuda
Para: [EMAIL PROTECTED] os.com.br
Data: Terça-feira, 21 de Outubro de 2008, 8:43
coloca todos os parametros e passa todos para a query, os q nao
utiliza passa o valor 0 por exemplo, e no sql vc verifica se o campo
eh igual a variavel ou a variavel eh igual a 0... entendeu?
2008/10/21 alessandra porto alessandraporto11@ yahoo.com. br:
preciso de ideias de como fazer essa pesquisa de forma mais eficiente
tenho que atraves de radiogroup deixar o usuario selecionar as opções que
farão parte da pesquisa , cada opção carrega uma variavel
tipo:
paciente: medico convenio unidade
geral geral geral geral
nome medico convenio unidade
paciente,medico, convenio, unidade
são tabelas do banco que se ligam atraves de
chaves.
fiz algo assim:
with DM3.Qry_Fatura_ Fat do
begin
Active:=false;
sql.Clear;
SQL.Add(CORPO_ SQL2+' WHERE (DTA_EMIS_GUIA = :INIC AND
DTA_EMIS_GUIA =:FIM)'+COND_ FAT1+COND_ FAT2+COND_ FAT3+COND_ FAT4+COND_
FAT5+'
ORDER BY DTA_EMIS_GUIA ');
ParamByName( 'CD_CONV' ).AsInteger :=CD_CONVENIO_ FAT;
ParamByName( 'INIC').AsDate :=EinicFat.Date;
ParamByName( 'FIM').AsDate :=EfinalFat. Date;
Active:=True;
end;
corposql é uma variavel que contem o sql principal
COND_FAT1+COND_ FAT2+COND_ FAT3+COND_ FAT4+COND_ FAT5
seria as variaveis que receberiam os valores escolhidos pelo usuario
o problema é como criar os
ParamByName( '').Asinteger :=;
conforme a necessidade do usuario
pois nem sempre ele vai determinar valores todas as variaveis , há casos
que quando geral não é necessario criar o ParamByName( '').Asinteger :=;
ficaria grata aos amigos que ajudarem com ideias de como fazer isso de forma
mais eficiente
obs. essa é só uma parte a pesquisa envolve um maior numero de
tabelas(opções) em uma só pesquisa
Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua
cara @ymail.com ou @rocketmail. com.
http://br.new. mail.yahoo. com/addresses
[As partes desta mensagem que não continham texto foram removidas]
--
Att.
--
_ ___
José Benedito
Software Developer
josebenedito@ gmail.com
+55 19 8116-7826
_ _ _ _ __
Fale com seus amigos de graça com o novo Yahoo! Messenger
http://br.messenger .yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
__ Information from ESET NOD32 Antivirus, version of virus signature
database 3541 (20081021) __
The message was checked by ESET NOD32 Antivirus.
http://www.eset. com
[delphi-br] Zebedee melhora firebird web?
Estou olhando alguns artigos sobre Zebedee e fiquei meio em duvida e por isso resolvi perguntar direto aos amigos da lista minha aplicação usa firebird na web e é um tanto lenta O Zebedee pode ajudar melhorar a performace do firebird na web?? Grata pela atenção dos amigos. Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] tecla identificar ?
fiz assim
mas tentei colocar (ponto) e a (virgula)
#190 ,#188 mas da erro não identifica certo
como posso fazer isso de forma a aceitar somente numeros e ponto
agradeço a ajuda
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9',#8,#13]) then
begin
showmessage(''+DM.Usuario+''+ #13 + #13 +'Este Campo Aceita Somente
Números');
key :=#0;
end;
end;
Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] tecla identificar ? resolvido
valeu --- Em ter, 7/10/08, BandaLemuel [EMAIL PROTECTED] escreveu: De: BandaLemuel [EMAIL PROTECTED] Assunto: Re: [delphi-br] tecla identificar ? Para: delphi-br@yahoogrupos.com.br Data: Terça-feira, 7 de Outubro de 2008, 8:56 if not ( key in ['0'..'9',#8, #13,',',' .' ) then Ai ele aceita ponto e virgula Wesley From: alessandra porto Sent: Tuesday, October 07, 2008 8:26 AM To: lista-delphi@ yahoogrupos. com.br ; [EMAIL PROTECTED] os.com.br Subject: [delphi-br] tecla identificar ? fiz assim mas tentei colocar (ponto) e a (virgula) #190 ,#188 mas da erro não identifica certo como posso fazer isso de forma a aceitar somente numeros e ponto agradeço a ajuda procedure TForm1.Edit2KeyPres s(Sender: TObject; var Key: Char); begin if not (key in ['0'..'9',#8, #13]) then begin showmessage( ''+DM.Usuario+ ''+ #13 + #13 +'Este Campo Aceita Somente Números'); key :=#0; end; end; Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail. com. http://br.new. mail.yahoo. com/addresses [As partes desta mensagem que não continham texto foram removidas] __ Information from ESET NOD32 Antivirus, version of virus signature database 3499 (20081007) __ The message was checked by ESET NOD32 Antivirus. http://www.eset. com [As partes desta mensagem que não continham texto foram removidas] Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] ajuda criar formulario
Chamo meu formularios assim: if FmAgenda = nil then begin Application.CreateForm(TFmAgenda,FmAgenda); FmAgenda.ShowModal; end; A ideia e criar uma variavel para informar o nome do formulario que sera aberto naquele momento var formulario:string; formulario:=teste; if teste = nil then begin Application.CreateForm(T+teste,teste); teste.ShowModal; end; com string dá erro como posso fazer isso? fico agradecida aos colegas que ajudarem Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: ajuda criar formulario
joão tive dificuldade ai
não consegui chamar o form pelo buton click
veja o codigo abaixo
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure CriaForm(const NomeForm: string);
end;
var
Form1: TForm1;
implementation
uses Unit2;
{$R *.dfm}
initialization
RegisterClass( TForm1);
finalization
UnRegisterClass( TForm1);
procedure TForm1.CriaForm(const NomeForm: string);
var
TClasse : TPersistentClass;
Form : TForm;
begin
Form := nil;
TClasse := GetClass(NomeForm) ;
if (TClasse nil) {and TClasse.InheritsFro m(TForm)} then
Form := TFormClass(TClasse) .Create(self) ;
procedure TForm1.Button1Click(Sender: TObject);
begin
TClasse := GetClass(Form2) ;
if (TClasse nil) {and TClasse.InheritsFro m(TForm)} then
Form := TFormClass(TClasse) .Create(self) ;
end;
end.
não é necessario testar se o form esta registrado
obrigada pela paciencia
//
--- Em sex, 19/9/08, José Benedito [EMAIL PROTECTED] escreveu:
De: José Benedito [EMAIL PROTECTED]
Assunto: [delphi-br] Re: ajuda criar formulario
Para: delphi-br@yahoogrupos.com.br
Data: Sexta-feira, 19 de Setembro de 2008, 8:53
_('Form não registrado!' )
_() eh a função do gnugettext para controle de idioma das aplicações.
inteh
--- Em [EMAIL PROTECTED] os.com.br, José Benedito josebenedito@ ...
escreveu
tem que ser como string? para isso registre a classe na seção
initialization do form:
initialization
RegisterClass( TForm1);
finalization
UnRegisterClass( TForm1);
então no formulario que irá chamar vc nao precisa declarar no uses a
unit do form :) aí vc chama dessa maneira.
procedure TfrmPrincipal. CriaForm( const NomeForm: string);
var
TClasse : TPersistentClass;
Form : TForm;
begin
Form := nil;
TClasse := GetClass(NomeForm) ;
if (TClasse nil) {and TClasse.InheritsFro m(TForm)} then
Form := TFormClass(TClasse) .Create(self) ;
if not Assigned(Form) then
MessageDlg(_ ('Form não registrado!' ), mtError, [mbOK], 0)
else
begin
Form.Name := Self.Name + '_' + FormatFloat( '00', ComponentCount
+
1);
Form.Caption := Caption;// + ' ' + FormatFloat( '00',
ComponentCount + 1);
Form.Show;
end;
end;
espero ter ajudado, qq coisa estamos aih.
JB
Software Developer
[EMAIL PROTECTED]
--- Em [EMAIL PROTECTED] os.com.br, alessandra porto
alessandraporto11@ escreveu
Chamo meu formularios assim:
if FmAgenda = nil then
begin
Application. CreateForm( TFmAgenda, FmAgenda) ;
FmAgenda.ShowModal;
end;
A ideia e criar uma variavel para informar o nome do formulario
que
sera aberto naquele momento
var
formulario:string;
formulario:= teste;
if teste = nil then
begin
Application. CreateForm( T+teste,teste) ;
teste.ShowModal;
end;
com string dá erro como posso fazer isso?
fico agradecida aos colegas que ajudarem
Novos endereços, o Yahoo! que você conhece. Crie um email
novo
com a sua cara @ymail.com ou @rocketmail. com.
http://br.new. mail.yahoo. com/addresses
[As partes desta mensagem que não continham texto foram removidas]
Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] ajuda criar formulario
volta no icio do meu problema
como passar p/ AbreForm(Tnome,nome) ; o nome do Form2 atraves de uma string
veja ai abaixo
type
TForm1 = class(TForm)
Button3: TButton;
procedure Button3Click(Sender: TObject);
// procedure AbreForm (aClasseForm :TComponentClass; aForm:TForm);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
AClass: TClass;
formulario : string;
implementation
uses Unit2form;
{$R *.dfm}
procedure AbreForm(aClasseForm:TComponentClass; aForm: TForm);
begin
{: método para abrir form}
Application. CreateForm( aClasseForm, aForm);
try
aForm.ShowModal;
finally
aForm.Free;
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
AbreForm(Tform2,form2) ;
// volta no icio do meu problema
//como passar p/ AbreForm(Tnome,nome) ; o nome do Form2 atraves de uma string
//var srting;
///nome:=Form2;
//entende essa é a dificuldade
end;
end.
--- Em sex, 19/9/08, Luciano Angelini - uol [EMAIL PROTECTED] escreveu:
De: Luciano Angelini - uol [EMAIL PROTECTED]
Assunto: Re: [delphi-br] ajuda criar formulario
Para: delphi-br@yahoogrupos.com.br
Data: Sexta-feira, 19 de Setembro de 2008, 8:43
Bom dia Alessandra .
Eu utilizo esse método ...
type
procedure AbreForm (aClasseForm : TComponentClass; aForm: TForm);
procedure AbreForm(aClasseFor m: TComponentClass; aForm: TForm);
begin
{: método para abrir form}
Application. CreateForm( aClasseForm, aForm);
try
aForm.ShowModal;
finally
aForm.Free;
end;
end;
para utilizar no clique do componente ... MainMenu SpeedButton ...
Button ...
AbreForm(TNomedoFor mulario, NomedoFormulario) ;
Espero ter ajudado ...
Luciano Angelini
Prefeitura de Lupionópolis- Pr
alessandra porto escreveu:
Chamo meu formularios assim:
if FmAgenda = nil then
begin
Application. CreateForm( TFmAgenda, FmAgenda) ;
FmAgenda.ShowModal;
end;
A ideia e criar uma variavel para informar o nome do formulario que
sera aberto naquele momento
var
formulario:string;
formulario:= teste;
if teste = nil then
begin
Application. CreateForm( T+teste,teste) ;
teste.ShowModal;
end;
com string dá erro como posso fazer isso?
fico agradecida aos colegas que ajudarem
Novos endereços, o Yahoo! que você conhece. Crie um email novo com a
sua cara @ymail.com ou @rocketmail. com.
http://br.new. mail.yahoo. com/addresses
http://br.new. mail.yahoo. com/addresses
[As partes desta mensagem que não continham texto foram removidas]
Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: ajuda criar formulario ao josebenedito
desculpe josebenedito
mas cada vez fico mais confusa
tem como vce mandar um trecho de codigo simulando a unit
do form1 criando e chamando o form2
agradeço sua atenção
--- Em sex, 19/9/08, José Benedito [EMAIL PROTECTED] escreveu:
De: José Benedito [EMAIL PROTECTED]
Assunto: [delphi-br] Re: ajuda criar formulario
Para: delphi-br@yahoogrupos.com.br
Data: Sexta-feira, 19 de Setembro de 2008, 11:21
Form1:
Função CriaForm, e não é necessario incluir as units dos forms a serem
criados na clausula uses.
Nos forms q irao ser criados:
Ex:
Form2
initialization
RegisterClass( TForm2);
finalization
UnRegisterClass( TForm2);
Entao no Click do botaum no Form1 coloca CriaForm('TForm2' ).
entendeu?
JB
--- Em [EMAIL PROTECTED] os.com.br, alessandra porto
alessandraporto11@ ... escreveu
joão tive dificuldade ai
não consegui chamar o form pelo buton click
veja o codigo abaixo
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click( Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure CriaForm(const NomeForm: string);
end;
var
Form1: TForm1;
implementation
uses Unit2;
{$R *.dfm}
initialization
RegisterClass( TForm1);
finalization
UnRegisterClass( TForm1);
procedure TForm1.CriaForm( const NomeForm: string);
var
TClasse : TPersistentClass;
Form : TForm;
begin
Form := nil;
TClasse := GetClass(NomeForm) ;
if (TClasse nil) {and TClasse.InheritsFro m(TForm)} then
Form := TFormClass(TClasse) .Create(self) ;
procedure TForm1.Button1Click (Sender: TObject);
begin
TClasse := GetClass(Form2) ;
if (TClasse nil) {and TClasse.InheritsFro m(TForm)} then
Form := TFormClass(TClasse) .Create(self) ;
end;
end.
não é necessario testar se o form esta registrado
obrigada pela paciencia
/ /
--- Em sex, 19/9/08, José Benedito josebenedito@ ... escreveu:
De: José Benedito josebenedito@ ...
Assunto: [delphi-br] Re: ajuda criar formulario
Para: [EMAIL PROTECTED] os.com.br
Data: Sexta-feira, 19 de Setembro de 2008, 8:53
_('Form não registrado!' )
_() eh a função do gnugettext para controle de idioma das
aplicações.
inteh
--- Em [EMAIL PROTECTED] os.com.br, José Benedito josebenedito@
escreveu
tem que ser como string? para isso registre a classe na seção
initialization do form:
initialization
RegisterClass( TForm1);
finalization
UnRegisterClass( TForm1);
então no formulario que irá chamar vc nao precisa declarar no uses
a
unit do form :) aí vc chama dessa maneira.
procedure TfrmPrincipal. CriaForm( const NomeForm: string);
var
TClasse : TPersistentClass;
Form : TForm;
begin
Form := nil;
TClasse := GetClass(NomeForm) ;
if (TClasse nil) {and TClasse.InheritsFro m(TForm)} then
Form := TFormClass(TClasse) .Create(self) ;
if not Assigned(Form) then
MessageDlg(_ ('Form não registrado!' ), mtError, [mbOK], 0)
else
begin
Form.Name := Self.Name + '_' + FormatFloat( '00',
ComponentCount
+
1);
Form.Caption := Caption;// + ' ' + FormatFloat( '00',
ComponentCount + 1);
Form.Show;
end;
end;
espero ter ajudado, qq coisa estamos aih.
JB
Software Developer
jb@
--- Em [EMAIL PROTECTED] os.com.br, alessandra porto
alessandraporto11@ escreveu
Chamo meu formularios assim:
if FmAgenda = nil then
begin
Application. CreateForm( TFmAgenda, FmAgenda) ;
FmAgenda.ShowModal;
end;
A ideia e criar uma variavel para informar o nome do
formulario
que
sera aberto naquele momento
var
formulario:string;
formulario:= teste;
if teste = nil then
begin
Application. CreateForm( T+teste,teste) ;
teste.ShowModal;
end;
com string dá erro como posso fazer isso?
fico agradecida aos colegas que ajudarem
Novos endereços, o Yahoo! que você conhece. Crie um email
novo
com a sua cara @ymail.com ou @rocketmail. com.
http://br.new. mail.yahoo. com
[delphi-br] registros duplicados como achar?
estou usando assim SELECT ID_CONVENIO, Count(ID_CONVENIO) FROM CONVENIO GROUP BY ID_CONVENIO HAVING (Count(ID_CONVENIO))1 e não retorna nenhum só que quando tento atribuir o capo id_convenio desta tabela que já possui registros como chave primaria da tabela dá erro dizendo que possui 2 registros nesta tabela com o mesmo valor (id_convenio) existe uma outra forma de testar isso ?? Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] RadioGroup ajuda basica
como fazer para que ao precionar um botão deixe desmarcado todos os itens de um RadioGroup desta forma eu marco um procedure TForm1.Button1Click(Sender: TObject); begin RadioGroup1.ItemIndex:=0; end; e para desmarcar todos?? Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] view e procedure lenta ??
criei uma view no firebird e ao passar o parametro de pesquisa via ibexpert vejo que a consulta fica mais lenta (3x +) de quando eu faço essa mesma consulta direta sem a view , ela possui join em 3 tabelas tentei tambem com procedure de seleção e o desenpenho fica abaixo da busca direta tanto pelo ibexpert ou da aplicação testei com varias tabelas com view e procedure e as pesquisas ficam mais lentas do que a instrução direta seria isso uma configuração do servidor ou coisa assim?? Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] multicamadas ?
apresentei aos colegas alguns probleminhas que estou tendo com relação a velocidade do firebird na web e foram varios os que me deram a ideia de desenvolver em multicamadas datasnap para melhor a performace. já li muita coisa na internet gostei e continuo estudando logo começarei a desenvolver. gostaria de agradecer aos amigos que colaboraram e aproveitar para pedir se alguem tiver algum endereço de um bom material gratuito exemplos,apostilas,fontes ou coisas assim para indicar ficaria muito grata. abraço a todos Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] procedure firebird delphi ajuda
como faço para pesquisar via delphi com uma procedure de seleção como essa no firebird. Por exemplo buscar uma cidade com CIDADE_CODIGO = 147 ?? como ficaria o codigo no delphi ? preciso passar todos os parametros?? ou somente esse CIDADE_CODIGO ? CREATE PROCEDURE PROC_CIDADE_SELECT RETURNS ( UF_CODIGO INTEGER, CIDADE_CODIGO INTEGER, CIDADE_DESCRICAO VARCHAR(72), CIDADE_CEP VARCHAR(8)) AS BEGIN FOR SELECT UF_CODIGO, CIDADE_CODIGO, CIDADE_DESCRICAO, CIDADE_CEP FROM CIDADE INTO :UF_CODIGO, :CIDADE_CODIGO, :CIDADE_DESCRICAO, :CIDADE_CEP DO BEGIN SUSPEND; END END Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] firebird trocar por mysql para web
alguem indica a troca do firebird com delphi para mysql para resolver esse problema de lentidão do firebird na web delphi com mysql quais as possiveis fragilidades ? alguem que usa , qual sua opinião?? vale a pena começar a desenvolver para substituir?? Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] firebird web
tenho aplicação que usa o bd local e via web em algumas filiais noto que em alguns momentos o via web fica lento em algumas filiais. local ele esta otimo estou usando o firebird 1.5.478 com conexão direta com ip da web sem zebedee ou qualquer outra coisa uso os componentes da paleta interbase do delphi 7 para a conexão existe alguma configuração do firebird que melhore a performace dele na web?? Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] dbexpress ???
Vou desenvolver uma aplicação nova uso delphi7 e até agora usava a os componentes da palheta interbase agora vou passar a usar a DbExpress notei formas diferentes de retornar os registros para um dbgrid qual a forma mais eficaz de usar a dbExpress, não só para retornar para o grid mas com outras operações tbem usando os componentes : SQLConnection1 + SQLDataSet1 +DataSetProvider1+DataSource1 ?? ou assim SQLConnection1 + SimpleDataSet1 +DataSource1 já que o SimpleDataSet1 já possui seu proprio Provider ??? Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] modelo de bd para ferragista ajuda
amigos preciso desenvolver uma aplicação demonstração para uma ferragista mas estou meio sem ideias de como criar o bd (tabelas) conteudo das tabelas(campos) necessarios. se alguem puder me dar uma dica ou mesmo ceder um bd de exemplo para que eu possa criar o meu agradeço demais pois estou meio confusa nisso Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Rave pela aplicação ajuda
Preciso executar o Rave pela aplicaçao para criar um gerador de relatorios na aplicação testei assim: procedure TForm1.Button1Click(Sender: TObject); begin RvProject1.LoadDesigner:=true; end; e não abre o rave.exe como faço para dar certo? é possivel? Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] ajuda sql totalizar
preciso totalizar o valor de custo de determinado produto em uma venda algo como abaixo SELECT PROD.CD_PRODUTO,PROD.CUSTO,PROD.PRODUTO,VDA.CD_PRODUTO,VDA_CD.VENDA FROM PROD,VDA WHERE VDA.CD_PRODUTO = PROD.CD_PRODUTO AND VDA.CD_VENDA = 10 é uma soma de PROD.CUSTO Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses
