[delphi-br] Falha catastrófica - Ajuda Urgente
Salve, galera, Estou enfrentando um problema, no mínimo, cabeludo e preciso de toda ajuda possível. É o seguinte : Tem um sistema que outro consultor começou a desenvolver em Delphi 6 com MySql5. Tive de assumir o sistema e dar continuidade no mesmo. A única diferença é que uso o Delphi 7. Até aí, tudo bem. Não fosse por um problema : Quando baixo o executável na máquina do usuário e tento rodar o aplicativo, no momento em que passa pela criação do DataModule, ele dá a mensagem Falha Catastrófica e até roda o aplicativo, mas a partir daí, toda vez que o programa tenta acessar o banco de dados dá esse erro e não consegui resolver pois não consigo reproduzir o erro. Alguém Já passsou por isso ? Em tempo : Estou usando Delphi 7 com ADO para acessar o banco MYSQL na versão 5. 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] \restaurar cópia de banco mysql
Salve galera. To com um problemao. Peguei um projeto em Delphi/Mysql pra dar continuidade e copiei os arquivos do banco de dados Mysql no lugar certo,lá no pasta \DATA. O problema é que não estou conseguindo exergar as tabelas. Podem ajudar-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] Estrutura dos arquivos MPP e PPS
Salve, Galera. Por conta da necessidade de um projeto, vou precisar ler arquivos MPP (Gerados pelo MS-PROJECT) e gerar arquivos .PPS (Lidos/exibidos pelo MS-POWERPOINT). Preciso descobrir a estrutura destes arquivos. Uso Delphi 7. 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: RES: [delphi-br] Ajuca com SQL
Complicado, hein, Vinicius. Será que não é o HAVING ? Porque o LEFT OUTER JOIN vai retornar nulo se o registro não existir. A dúvida que fica é como o HAVING trataria isso ... --- Em qua, 1/4/09, Vinicius da Silva Pinto vinic...@cnen.gov.br escreveu: De: Vinicius da Silva Pinto vinic...@cnen.gov.br Assunto: RES: [delphi-br] Ajuca com SQL Para: delphi-br@yahoogrupos.com.br Data: Quarta-feira, 1 de Abril de 2009, 7:56 Grande Jose, olha, o resultado foi o mesmo, todas as duas opções (a minha e a sua com left outer join) deram o mesmo resultado. estou fazendo teste com coalesce... Vinicius Tenta assim : SELECT A.CDPEDIDO, A.DATAEVENTO, A.VALOR, SUM( G.VALORPAGTO ) FROM BDPEDIDOS A LEFT OUTER JOIN BDPAGAMENTOS G ON A.CDPEDIDO = G.CDPEDIDO WHERE A.DATAEVENTO = '01/04/2009' GROUP BY CDPEDIDO, DATAEVENTO, VALOR HAVING SUM(G.ValorPgto) A.valor Entendeu ? Vê se funciona. --- Em sex, 27/3/09, Vinicius da Silva Pinto vinic...@cnen. gov.br escreveu: De: Vinicius da Silva Pinto vinic...@cnen. gov.br Assunto: [delphi-br] Ajuca com SQL Para: delphi...@yahoogrup os.com.br Data: Sexta-feira, 27 de Março de 2009, 15:33 Ve se alguem pode me ajudar, já quebrei a cabeça e não obtive o resultado satisfatório. São duas tabelas, bem simples uma com os dados de um pedido com codigo, nome...e ValorTotal. Na outra tabela, a de pagamentos, só tem registro quando o cliente paga, pode ser a vista ou parcelado. As duas tabelas são unidas pelo campo CDpedido O que eu quero é o seguinte... um relação de todos os pedidos que ainda não pagaram o valor total. Fiz a seguinte query: SELECT A.CDPEDIDO, A.dataevento, A.valor AS VALORTOTAL, SUM(G.ValorPgto) AS TOTALPAGO FROM BDpedidos A, BDpagamentos G WHERE G.CDpedido = A.CDpedido AND A.DATAEVENTO = '01/04/2009' GROUP BY CDPEDIDO, DATAEVENTO, VALOR HAVING SUM(G.ValorPgto) A.valor Funciona, só que só aparecem os pedidos que já tiveram algum pagamento, os registros que estão na tabela principal que ainda não tiveram nenhum pagamento, não sai... Pergunta . como faço para aparecer tbm os registros que não tiveram pagamento. Agradeço qualquer ajuda ou dica. Vinicius 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] - - -- -- 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]
Re: [delphi-br] Ajuca com SQL
É só ler a tabela de pagamentos com LEFT OUTER JOIN ... Pois pelo que entendi ele está fazendo INNER JOIN, ou seja : considera apenas aqueles que tem registros em ambas as tabelas. --- Em sex, 27/3/09, Vinicius da Silva Pinto vinic...@cnen.gov.br escreveu: De: Vinicius da Silva Pinto vinic...@cnen.gov.br Assunto: [delphi-br] Ajuca com SQL Para: delphi-br@yahoogrupos.com.br Data: Sexta-feira, 27 de Março de 2009, 15:33 Ve se alguem pode me ajudar, já quebrei a cabeça e não obtive o resultado satisfatório. São duas tabelas, bem simples uma com os dados de um pedido com codigo, nome...e ValorTotal. Na outra tabela, a de pagamentos, só tem registro quando o cliente paga, pode ser a vista ou parcelado. As duas tabelas são unidas pelo campo CDpedido O que eu quero é o seguinte... um relação de todos os pedidos que ainda não pagaram o valor total. Fiz a seguinte query: SELECT A.CDPEDIDO, A.dataevento, A.valor AS VALORTOTAL, SUM(G.ValorPgto) AS TOTALPAGO FROM BDpedidos A, BDpagamentos G WHERE G.CDpedido = A.CDpedido AND A.DATAEVENTO = '01/04/2009' GROUP BY CDPEDIDO, DATAEVENTO, VALOR HAVING SUM(G.ValorPgto) A.valor Funciona, só que só aparecem os pedidos que já tiveram algum pagamento, os registros que estão na tabela principal que ainda não tiveram nenhum pagamento, não sai... Pergunta . como faço para aparecer tbm os registros que não tiveram pagamento. Agradeço qualquer ajuda ou dica. Vinicius 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] Ajuca com SQL
Tenta assim : SELECT A.CDPEDIDO, A.DATAEVENTO, A.VALOR, SUM( G.VALORPAGTO ) FROM BDPEDIDOS A LEFT OUTER JOIN BDPAGAMENTOS G ON A.CDPEDIDO = G.CDPEDIDO WHERE A.DATAEVENTO = '01/04/2009' GROUP BY CDPEDIDO, DATAEVENTO, VALOR HAVING SUM(G.ValorPgto) A.valor Entendeu ? Vê se funciona. --- Em sex, 27/3/09, Vinicius da Silva Pinto vinic...@cnen.gov.br escreveu: De: Vinicius da Silva Pinto vinic...@cnen.gov.br Assunto: [delphi-br] Ajuca com SQL Para: delphi-br@yahoogrupos.com.br Data: Sexta-feira, 27 de Março de 2009, 15:33 Ve se alguem pode me ajudar, já quebrei a cabeça e não obtive o resultado satisfatório. São duas tabelas, bem simples uma com os dados de um pedido com codigo, nome...e ValorTotal. Na outra tabela, a de pagamentos, só tem registro quando o cliente paga, pode ser a vista ou parcelado. As duas tabelas são unidas pelo campo CDpedido O que eu quero é o seguinte... um relação de todos os pedidos que ainda não pagaram o valor total. Fiz a seguinte query: SELECT A.CDPEDIDO, A.dataevento, A.valor AS VALORTOTAL, SUM(G.ValorPgto) AS TOTALPAGO FROM BDpedidos A, BDpagamentos G WHERE G.CDpedido = A.CDpedido AND A.DATAEVENTO = '01/04/2009' GROUP BY CDPEDIDO, DATAEVENTO, VALOR HAVING SUM(G.ValorPgto) A.valor Funciona, só que só aparecem os pedidos que já tiveram algum pagamento, os registros que estão na tabela principal que ainda não tiveram nenhum pagamento, não sai... Pergunta . como faço para aparecer tbm os registros que não tiveram pagamento. Agradeço qualquer ajuda ou dica. Vinicius 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] Erro doido no pascal
Já enfrentei erro semelhante no passado. No meu caso, resolvi inicializando as variáveis com zeros antes da primeira atribuição. --- Em sex, 27/3/09, Hudson Dias hudson_d...@yahoo.com.br escreveu: De: Hudson Dias hudson_d...@yahoo.com.br Assunto: [delphi-br] Erro doido no pascal Para: delphi-br@yahoogrupos.com.br Data: Sexta-feira, 27 de Março de 2009, 10:59 Ola gente, estou passando um pouco de raiva em um sistema logico no delphi 7 Var Selecao, quatd : real; Selecao := StrToFloat(Edit1. Text); quatd := DM.EstoqueUnid. asFload; if Selecao = quatd // aqui esta o erro then begin . . . end else showmessage( 'estoque insuficiente' ); O estrnho que criei duas saidas no momento do processo, uma delas pra a Selecao e outra quatd, ou seja, se a selecao = 3 e quatd = 3 logicamente tinha que dar true e não false como esta dando... Alguem ja passou por isso? Ou estes erro doido so acontece comigo? Atenciosamente Hudson Dias www.alcancedigital. com.br hud...@alcancedigit al.com.br (31)3434-6304 ou 8806-0649 [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] Tamanho EXE
Eu já utilizei esta opção sem querer ... daí, quando eu tentava rodar o EXE num equipamento que não tinha o Delphi instalado ele reclamava que estavam faltando os pacotes, que são necessários enviar junto com seu EXE. Recomendo cautela ao usar esta opção. --- Em ter, 17/3/09, Luciano Calenzani Simões simoesluci...@yahoo.com.br escreveu: De: Luciano Calenzani Simões simoesluci...@yahoo.com.br Assunto: [delphi-br] Tamanho EXE Para: Grupo_Delphi delphi-br@yahoogrupos.com.br Data: Terça-feira, 17 de Março de 2009, 10:25 Caros, vocês já utilizaram ou utilizam as opções de packages em Project/Options/ Packages? Fiz um teste aqui, deixei marcado somente os pacotes que são usados e marquei a opção Build with runtime packages e uma aplicação que tinha 2.1 MG ficou com 176kb. Só deixei o básico. Só que fiquei meio desconfiado, diminuiu muito. Luciano Calenzani Simões 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] 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]
RES: [delphi-br] Off: DIA MUNDIAL SEM CARRO (Sábad o 22/09)
Joel, Olha, tenho certeza que teve boa intenção quando mandou esta mensagem de repudio, mas quem vê pode achar que esse grupo é uma bagunça, claro que mensagens off-topic não são bem vindas, até porque jah recebemos muitas on-topic, mas creio que o moderador possa resolver isso sem criar conflito entre os membros. José Roberto -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Joel Alexandre Enviada em: segunda-feira, 24 de setembro de 2007 09:11 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Off: DIA MUNDIAL SEM CARRO (Sábado 22/09) Espero que criem o dia dos idiotas. Pelo menos neste dia todos que postam mensagens que não tem nada a ver com o assunto, coloquem a mão na consciência e deixam, pelo menos um dia, de fazer isso. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos __ Informação do NOD32 IMON 2545 (20070923) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br
[delphi-br] WebBrowser + Scripts
Boa Tarde, Criei um programinha simples, reunindo os streams de rádio e tv do brasil, imitando o Extreaming que alguns jah conhecem, agora queria executar este script script src=http://g1.globo.com/Portal/globonoticias/js/addNewsVertical.js; type=text/javascript/script dentro deste webBrowser, alguém tem alguma idéia, se alguém quiser ver o programinha que eh até infantil eu mando. José Roberto _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Edu Nicácio Enviada em: quinta-feira, 15 de março de 2007 17:12 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Sobre atalhos Estranho isso... está usando ExtractFilePath(Application.ExeName) para pegar o diretório do executável? Pode estar aí o problema... Abraço. -- Atenciosamente: Eduardo Cláudio Nicácio Analista Programador JR. Fábrica 02 - CTIS Tel.: (11) 3150-6834 rsn01.web03@ mailto:rsn01.web03%40telesp.com.br telesp.com.br - Original Message - From: blcksun954 To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Sent: Thursday, March 15, 2007 2:55 PM Subject: [delphi-br] Sobre atalhos Eu crio um arquivo de configuração no diretório onde meu programa está sendo executado. Até aqui tudo bem. O problema: se o programa for executado pela primeira vez a partir de um atalho, ele cria o arquivo de configuração na area de trabalho. Tem como descobrir se um executável está sendo executado diretamente ou através de um atalho? [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Imagem direto do site
Interessante essa dica, coloquei em um programa que uso para streaming e deu certissimo _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Desenvolvimento Sisponto (Anderson) Enviada em: quarta-feira, 31 de janeiro de 2007 08:54 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Imagem direto do site CONSIDERAÇÕES: - essa mensagem não é off topic - é possível sim baixar a imagem do site. Como? Assim: use o TWebBrowser. Dependendo da versão do delphi é necessário importar o activex. No delphi5 já tem. No 3 eu preferi instalar o activex. Procedimento: vá em importar controles activex e instale o microsoft internet controls.daí, na paleta ACTIVEX, vc vai ver o webbrowser. adicione ele e faça: WebBrowser1.Navigate(http://'www.sisponto.com.br'); o legal é q esse esquema dá certo até mesmo para acessar dispositivos locais, como o C: Abração! - Original Message - From: Hudson To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Sent: Tuesday, January 30, 2007 6:29 PM Subject: Re: [delphi-br] Imagem direto do site Não e off Criei um programa conectador ao mysql em um servidor, porem o mesmo tm o caminho das fotos... gostaria de link no programa tbm as fotos...quano o usuario navegace no registro, iria trocar a foto. diretorio das fotos http://www.divinaso http://www.divinasom.com.br/fotos/album1/ m.com.br/fotos/album1/ Sera q tm geito? - Original Message - From: Romario (Listas) To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Sent: Tuesday, January 30, 2007 4:16 PM Subject: Re: [delphi-br] Imagem direto do site Isso tem a ver com o Delphi ou é OFF TOPIC? Se for um OFF TOPIC (e você não informou no ASSUNTO), é possível sim. Basta ter o Firefox como navegador de Internet e a extensão List All Images instalada. Firefox: http://ftp-mozilla. http://ftp-mozilla.netscape.com/pub/mozilla.org/firefox/releases/2.0.0.1/wi n32/pt-BR/Firefox netscape.com/pub/mozilla.org/firefox/releases/2.0.0.1/win32/pt-BR/Firefox Setup 2.0.0.1.exe Extensão: http://releases. http://releases.mozilla.org/pub/mozilla.org/extensions/list_all_images/list _all_images-0.5-fx.xpi mozilla.org/pub/mozilla.org/extensions/list_all_images/list_all_images-0.5-f x.xpi Se não for OFF TOPIC, dê mais exemplos do que está fazendo para que possamos ajudar. Sds, Romario Hudson escreveu: Ola gente, tenho uma duvida com relação a imagens de site... tenho um album de foto em um site e no mesmo quero puxar as fotos para o programa... o caminho da imagem http://www.divinaso http://www.divinasom.com.br/images/_link.jpg m.com.br/images/_link.jpg http://www.divinaso http://www.divinasom.com.br/images/_link.jpg m.com.br/images/_link.jpg por exemplo. quero buscar diretamente do site... sera q isso e possivel? valeu gente ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo. http://br.yahoo.com/mailbeta/tudonovo/ com/mailbeta/tudonovo/ [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 2021 (20070130) __ Esta mensagem foi verificada pelo NOD32 Sistema Antivírus http://www.nod32. http://www.nod32.com.br com.br [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 2021 (20070130) __ 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]
RES: RES: [delphi-br] Compactar executavel - OFF
Bom Dia a todos, Esse assunto não termina mais ? José Roberto _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Moked - Tamara (Brazil) Enviada em: sexta-feira, 30 de junho de 2006 10:15 Para: delphi-br@yahoogrupos.com.br Assunto: RES: RES: [delphi-br] Compactar executavel - OFF Alguém me compreende...rs.. Tamara Clemente - Suporte Técnico Moked do Brasil - Consultoria de Segurança Empresarial Divisão MokInf de Informática PABX: (55-11) 5071-2748 [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] www.moked.com.br http://www.moked.com.br/ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Campus Enviada em: sexta-feira, 30 de junho de 2006 09:46 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Compactar executavel - OFF Sem falar que em muitos lugares do Brasil, a internet só chega pelas ondas de rádio. - Original Message - From: Moked - Tamara (Brazil) [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Friday, June 30, 2006 9:02 AM Subject: RES: RES: [delphi-br] Compactar executavel - OFF Luiz, Meu atual problema eh: meus clientes ñ tem um bom acesso a internet, sendo assim, meu arquivo de atualização tem q ser o menos pesado possível, pois ninguem gosta de fikar hrs a espera de baixar um arquivo. Conversando com o pessoal vi as desvantagens de compactar o executavel que devo atualizar nos meus clientes, mas se eu gerar um nv instalador(chamado de atualizador) sem compactar este ficará muito pesado, já compactado fika menos pesado. Bom, já fui praticamente chamada de pré-histórica aqui por ter dito da capacidade baixa de computadores, assim como a existencia ainda de internet até msm discada, mas esta é a realidade em q convivo em meus clientes. Ninguém coloca uma super máquina turbinada com uma super internet em uma portaria ou recepção. Obrigada, Tamara Clemente - Suporte Técnico Moked do Brasil - Consultoria de Segurança Empresarial Divisão MokInf de Informática PABX: (55-11) 5071-2748 [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] www.moked.com.br http://www.moked.com.br/ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Luiz Escobar Enviada em: quinta-feira, 29 de junho de 2006 18:01 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Compactar executavel - OFF Tamara, o WINZIP ou o ALZIP que é o que uso é acho até melhor... dá para voce fazer um AUTO-EXTRACT do seu executavel... assim a hora que seu cliente receber o EXE que na realidade é o seu EXE ZIPado, ele vai executar e ele vai se auto-descompactar no diretório que esta especificado na hora do ZIP... ;-) Eu cheguei no meio da conversa e não sei muito bem o que voce esta precisando/querendo, mas to tentando deduzir e ajudar ;-) Luiz Escobar - Original Message - From: Moked - Tamara (Brazil) To: delphi-br@yahoogrupos.com.br Sent: Thursday, June 29, 2006 1:02 PM Subject: RES: RES: [delphi-br] Compactar executavel - OFF Oi Danilo, Eu sei q parece querer complicar d+ as coisas, mas eis a minha realidade. No caso de compactar com o Winzip, por exemplo, eu obrigaria o meu cliente a ter o sistema em sua máquina para descompactar e finalmente instalar o meu sistema. Eu não posso me prender a esta circunstância. Mas é algo a ser discutido com a minha diretoria... Obrigada, Tamara Clemente - Suporte Técnico Moked do Brasil - Consultoria de Segurança Empresarial Divisão MokInf de Informática PABX: (55-11) 5071-2748 [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] www.moked.com.br http://www.moked.com.br/ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Danilo Valente Enviada em: quinta-feira, 29 de junho de 2006 12:46 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Compactar executavel - OFF Tamara, Quanto ao problema do download, seria muito mais interessante disponibilizar os arquivos compactados com o Winzip, por exemplo... Isso reduziria o tamanho dos dados para transmitir na Internet sem alterar o seu executável... Quanto ao tamanho dos arquivos na máquina do cliente, acredito que uma diferença total de 10MB ou 15MB para 40MB não será problema para o HD... Se for, o seu cliente precisa urgente de um upgrade... Danilo Valente - Original Message - From: Moked - Tamara (Brazil) To: delphi-br@yahoogrupos.com.br Sent: Thursday, June 29, 2006 9:56 AM Subject: RES: RES: [delphi-br] Compactar executavel - OFF HUahuhauhauhauhuahua pelo contrário, acho msm é q ñ tenho a mínima noção do q se trata por isso coloquei a questão na lista, pra q as pessoas mais experientes possam me auxiliar . E eu ñ vejo problemas em expor as minhas dúvidas, ñ tenho medo de criíticas o q ñ sei, ñ sei msm e estou a procura de saber. Assim como td mundo tb tenho prazos e cobranças (mil na minha condição, mas q ñ vem ao caso). O software foi
RES: [delphi-br] Usar o Boneco Mago
Tem como fazer com que ele fale(voz) ?
José Roberto
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Odair
Enviada em: terça-feira, 20 de junho de 2006 14:24
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Usar o Boneco Mago
Já sim. veja se isso o ajuda:
==
Quem nunca viu os tão tradicionais Agentes da Microsoft que são instalados
com o Word ou com excel? Agora quem nunca pensou em utilizar essa tecnologia
em seus programas? Pensando nisso...
fiz uma vasta busca pela internet. E essa busca resultou nesse resumão de
como utilizar os agentes em programas delphi.
Antes de começar a utilizar os agentes e seus programas delphi e necessário
a instalação de alguns componentes em seu pc. Alguns desses componentes são
opcionais. Ah! Você ira perder um bom tempo com Downloads.
1. Faça o Download do arquivo MSAgent.exe, pois este é o componente
essencial.
Observação Se o seu Sistema for Windows 2000 ou superior ignore esse Dica,
pois os componentes essenciais do Microsoft Agent já Foram instalados.
Local de Download:
http://activex.microsoft.com/activex/controls/agent2/MSagent.exe
2. Se você quer ouvir seu agenter falar, faça o download do arquivo
tv_enua.exe e o instale.
Local de Download:
http://activex.microsoft.com/activex/controls/agent2/tv_enua.exe
Para que nosso agente Fale em português é necessária a instalação de mais
dois arquivos.
http://www.htmlbible.com/MicrosoftSpeechComponents/
Role a pagina Ate ver a opção Português (Brasil) e baixe os dois Arquivos:
O lhttsptb.exe e o AgtX0416.
3. Para ele receber Comandos de Voz faça o Download de mais um Arquivo.
(Você precisa falar os comandos através do microfone). Faça o download do
arquivo o Microsoft Speech Recognition Engine.
Local de Download:
http://activex.microsoft.com/activex/controls/agent2/actcnc.exe
4. Em nosso pc configuramos quase tudo através do painel de controle para
você ter a opção de controlar, habilitar e gerenciar todas as Engines de
Reconhecimento e de Speech instaladas em seu sistema, Baixe e instale o
seguinte arquivo: spchcpl.exe.
Local de Download:
http://agent.microsoft.com/agent2/spchcpl.exe
5. Agora você só precisa baixar o character (Agentes) do Microsoft Agent.
Você pode encontrar vários Agentes no endereço abaixo.
http://www.msagentring.org/chars.htm
Muito Bem, agora você precisa importar o controle ActiveX dos agentes para o
Delphi:
1) Abra o Delphi
2) Clique em Component - Import ActiveX Control
3) Selecione o componente Microsoft Agent Control 2.0
4) Clique no botão Install... , OK...,Yes
5) Prossiga a instalação do controle
Um novo componente TAgent vai ser adicionado à palheta de componentes do
Delphi, na aba ActiveX.
Após a Instalação dos Arquivos Necessários Para controle do Agente, No meu
Caso Com Windows 98 SE, MSAgent.exe, tv_enua.exe, lhttsptb.exe e o AgtX0416
e Instalação do Componente TAgent.
REINICIE SEU COMPUTADOR:
Crie um novo projeto para testar a programação com agente. O programa vai
mostrar alguns comportamentos do personagem Peedy e fazê-lo falar.
No formulário coloque um componente Tagent, e um Tedit para digitar o texto
que o personagem vai falar.
Declare a Seguinte Variável na Opção Private da unit.
Agente: IAgentCtlCharacter;
No Evento FormCreate escreva:
Agent1.Connected := True;
Agent1.Characters.Load('Papagaio', 'Peedy.acs');
// Associar o agente à variável Agente
Agente := Agent1.Characters[' Papagaio '];
Agente.Show(0); // Aparecer 0-lentamente 1-instantaneamente
// Encenação de abertura
Agente.Play('Greet'); // Cumprimentar
Agente.Play('Announce'); // Anunciar
Agente.Speak('Ola Tudo Bem', EmptyStr); // Falar
Sleep(700); // Da uma pausa ao programa
Agente.Speak('Escreva um texto e clique no botão', EmptyStr);
Agente.Play('RestPose'); // Descansar
No Evento FormDestroy escreva:
Agente.Hide(0);
Agent1.Connected:=false;
No evento OnClick do Botão escreva:
Agente.Speak(edit1.Text,EmptyStr);
Prontinho Seu Programa Agora tem um agente que Fala e se move, igual ao da
Microsoft.
Abaixo segue algumas animações e sua descrição.
Animação Descrição
*
Acknowledge Balança a Cabeça
Alert Endireita a cabeça e levanta as sobrancelhas
Announce Levanta a mão
Blink Pisca os olhos
Confused Passa a mão na cabeça
Congratulate Faz sinal de positivo
Decline Levanta a mão e balança a cabeça
DontRecognize Leva a mão até a orelha
Explain Estende o braço para o lado
GestureDown Aponta para baixo
GestureLeft Aponta para a esquerda
GestureRight Aponta para a direita
GestureUp Aponta para cima
GetAttention Acena com a mão
GlanceDown Olha para baixo
GlanceLeft Olha para a esquerda
GlanceRight Olha para a direita
GlanceUp Olha para cima
Greet Faz gesto de boas vindas
Hide Desaparece
Hear_1 Estende as orelhas
Hear_2 Vira a cabeça para esquerda
Idle1_1 Enche o pulmão
Idle3_1 Começa a dormir
LookDown Olha para
RES: [delphi-br] off - UltraVNC
Seu micro usa windows xp ? Se positivo abra as portas no firewall do modem também Eu uso o ultra em todos os meus clientes com a ajuda do ddns José Roberto msn: [EMAIL PROTECTED] -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Hudson Enviada em: segunda-feira, 22 de maio de 2006 19:22 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] off - UltraVNC Gente... fiz tudo certo como vc mandou...mas nada deu certo... ip do modem 10.1.1.1 ip do meu pc 10.1.1.8 ip do modem na internet 201.8.47.43 mascara de sub-rede 255.0.0.0 conecte no modem com senha e login e no link Services/nat mudei Nat options para Nat Rule Entry cliquei em add criei 2 tipos... 1º IF name = all, Ruler Flavor = bimap, local ip from = 10.1.1.8, local ip to = 10.1.1.8 2º IF name = all, Ruler Flavor = rdr, local ip from = 10.1.1.8, local ip to = 10.1.1.8, Destination Port From: =5900, Destination Port To: = 5900... no ultravnc coloquei assim 201.8.47.43:5900 ma não deumesmo com server aberto ele não chega la... - Original Message - From: Hudson To: delphi-br@yahoogrupos.com.br Sent: Monday, May 22, 2006 2:02 PM Subject: [delphi-br] off - UltraVNC Ola! Gente estou enviando este topico afim de esclarecer algumas duvidas sobre o ultravnc... tenho um modem d-link 500G esta como router e preciso pois tenho 10 maquinas em rede Uso o UltraVNC para dar manutenção remota em clientes, o funcionamento e ok em modems brind... mas quando e router não da certo... quando tento conectar fora da empresa não da certo... mas a conexão funciona corretamente na rede internar... já tentei (201.58.215), (201.58.215:5900), (201.58.215/10.1.1.8), (201.58.215:80), (201.58.215/hudson) mas nenhum deu certoalguem sabe resolver isso? grato [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos __ NOD32 1.1553 (20060522) Information __ This message was checked by NOD32 antivirus system. http://www.eset.com ___ Abra sua conta no Yahoo! Mail: 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz. http://br.info.mail.yahoo.com/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE Links do Yahoo! Grupos Para visitar o site do seu grupo na web, acesse:http://br.groups.yahoo.com/group/delphi-br/ Para sair deste grupo, envie um e-mail para:[EMAIL PROTECTED] O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.
Re: [delphi-br] Programa que bloqueia programas/ internet/horários de uso do micro [OFF]
Anderson Coloca ele no disco virtual do grupo, eh mais prático para todos José Roberto Erivaldo [EMAIL PROTECTED] escreveu: Anderson .. envia para mim .. por favor !! [EMAIL PROTECTED] - Original Message - From: Jonatã Castelo Branco To: delphi-br@yahoogrupos.com.br Sent: Tuesday, May 09, 2006 7:48 AM Subject: Re: [delphi-br] Programa que bloqueia programas/internet/horários de uso do micro [OFF] Anderson, seu programa parece interessante e gostaria também de testá-lo. Meu email: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Valeu. Desenvolvimento (Anderson) escreveu: Claro! vou enviar para seu email. O pessoal tem pedido modificações específicas, que estão sendo feitas... portanto, se alguém quiser, e precisar de modificações, é só pedir... (A TODOS: Desculpem, não quero usar a lista para vender ou divulgar, apenas pra ajudar nas idéias do software, que foram idéias muito importantes, todas colocadas em prática...) Anderson - Original Message - From: Moked - Tamara (Brazil) To: delphi-br@yahoogrupos.com.br Sent: Monday, May 08, 2006 8:54 AM Subject: RES: [delphi-br] Programa que bloqueia programas/internet/horários de uso do micro [OFF] Oi Anderson, Onde vc disponibilizou para o pessoa poder testar o sistema? Queria dar uma olhada nele se fosse possível, pode ser? Obrigada, Tamara Clemente - Suporte Técnico Moked do Brasil - Consultoria de Segurança Empresarial Divisão MokInf de Informática PABX: (55-11) 5071-2748 [EMAIL PROTECTED] www.moked.com.br De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Desenvolvimento (Anderson) Enviada em: sábado, 6 de maio de 2006 10:16 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Programa que bloqueia programas/internet/horários de uso do micro [OFF] Pessoal, como enviei antes, eu fiz um sw para controlar o uso da internet em uma casa onde os pais não ficam o dia todo, e as crianças ficavam por conta de acessar a internet... na primeira versão que fiz e instalei nessa casa, já resolveram os problemas... Porém, pedi pra me ajudarem a testar... Pois bem, muitas pessoas (muitas mesmo!!!) se dispuseram a me ajudar. OBRIGADO AMIGOS!!! Algumas sugestões foram enviadas e foram feitas, como aumentar o nível de segurança, dentre outros... Uma sugestão que me foi enviada é uma lista negra, onde listo os programas/conteúdos que nunca devem ser abertos. Por exemplo, digito ORKUT, MSN, MICROSOFT INTERNET, FIREFOX, e esses programas não são mais abertos. Se por acaso quiser impedir que abra o site do yahoo, basta adicionar YAHOO tbém... Os outros programas são liberados/bloqueados de acordo com o horário. A hora do micro não pode ser alterada. Se for alterada, o micro volta a hora automaticamente. Sobre o preço, me sugeriram que pagariam até 500,00 por um software desses, mas sinceramente, eu não pagaria (pelo menos hj... rsrsrs). Eu tava pensando em vender por 100. Mas como eu tô colocando esse software no mercado, e ví que a procura foi grande, repensei o valor... Eu acho justo R$ 35,00. Foi o que me responderam tbém. Portanto, se alguém quiser adquirir o sw, pra poder revender ou mesmo instalar em casa, eu posso fornecer a versão completa por esse preço. Não me julgue mercantilista... Apenas quero um lugar no sol tbém.. rsrsrs Se alguém quiser o código fonte, podemos negociar. Se alguem quiser a versão pra testar mais, é só dizer. PS: Não sei se sabem, mas sou professor em um curso técnico, onde tento ensinar o pessoal a aprender Delphi... Durante minhas aulas e durante as aulas de outros professores, os alunos ficam constantemente procurando acessar ORKUT, MSN, páginas pornográficas, etc... Foi a solução!!! instalei o programa lá, e não tenho mais problemas... Muito obrigado mesmo pela ajuda. Esta lista é a melhor lista e mais educada que já participei. Anderson [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! . [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. __ Informação do NOD32 IMON 1.1523 (20060505) __ Esta
RES: [delphi-br] Software Free que é o quase a mesma coisa que o Delphi
Onde consigo esse lazarus ? José Roberto -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Welson Avelar Enviada em: terça-feira, 11 de abril de 2006 09:19 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Software Free que é o quase a mesma coisa que o Delphi Bom, implementando o Zeos no Lazarus, muita gente poderá desenvolver nele na moral. E tendo em vista que muitos soft's Open por aí veêm melhorando com o passar dos anos, eu não duvido que o Lazarus se torne realmente produtivo dentro de alguns anos. No início dele, muito se reclamava pelo fato de não ter uma lib com acesso a dados. Acho que já existe até, a UIB, agora não me lembro ao certo. Mas é ver, e esperar, pra crer. []'s. [-x-] Marcio William escreveu: LAZARUS! Mas tah bem longe disto. [-x-] = Nunca ande pelo caminho traçado, pois ele conduz somente até onde os outros já foram. Alexander Graham Bell = Welson de Avelar Soares Filho Analista/Programador Delphi Gemini Sistemas www.geminisistemas.com.br Juiz de Fora - Minas Gerais = - Yahoo! doce lar. Faça do Yahoo! sua homepage. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] PING EM MÁQUINAS COM XP
Eu tb montei um programa desse, depois me manda o seu para eu ver Sobre esse ping eh o seguinte, - abra o firewall do windows pelo painel de controle - clique na aba avançado - clique no primeiro botão configurações - clique na aba ICMP, e marque a primeira opção, dê ok Em tudo e esta resolvido seu problema. José Roberto -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Ruberval Cesar Campagna Enviada em: terça-feira, 11 de abril de 2006 09:50 Para: ListaDelphi Assunto: [delphi-br] PING EM MÁQUINAS COM XP Olá todos, Desenvolvi um aplicativo que monitorava a minha rede através do PING, pois tenho uma rede com IP´s fixos e precisava saber qual máquina respondia. O problema é que nas máquinas que rodam Windows XP o ping não responde, em virtude do firewall. Alguém tem alguma solução para este PROBLEMÃO? Abraço e obrigado, Ruberval. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Sms para celular
Veja o coolsms no baixaki Uso ele Só não manda para tim José Roberto -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de info.desenvolvimento Enviada em: quinta-feira, 6 de abril de 2006 11:27 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Sms para celular Tu queres um site onde podes enviar mensagens para qualquer operadora? Em qualquer lugar do mundo? - Original Message - From: Jeanne To: Undisclosed-Recipient:; Sent: Wednesday, April 05, 2006 12:30 PM Subject: [delphi-br] Sms para celular oi gente, alguem sabe algum codigo (free) para enviar mensagens para celular oi através de um sistema?? ___ Abra sua conta no Yahoo! Mail: 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz. http://br.info.mail.yahoo.com/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Aos Delphianos
Ontem aqui em goiania tivemos palestra microsoft e intel e também Teremos o prazer da borland no dia 30 José Roberto -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Topolniak Enviada em: quinta-feira, 16 de março de 2006 16:23 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Aos Delphianos Por nós aqui de Rondônia nao somos privilegiados com um evento desses gente? Poxa vida! fico lendo as mensagens e babando...pow galera Borlanddá a vez aqui pra gente tb vai! []'s Luciano Topolniak. - Original Message - From: Daniel Bastos [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Thursday, March 16, 2006 4:51 PM Subject: Re: [delphi-br] Aos Delphianos Com certeza... aki no Rio tb foi show... O mini-curso de StarTeam foi show. Só num gostei de uma coisa... A caneta da Borland veio com bug (num escreve, hauahau). abraço a todos Em 16/03/06, Fabiano A. C. [EMAIL PROTECTED] escreveu: Faço as palavras Do Andre e do Carlos com minhas também! ;-) Em Vitória (15/03) foi ótima, deu pra conhecer bem o Starteam, gostei da ferramenta, como o André falou abaixo, boa a idéia da Borland em apoiar o eclipse. E o Delphi 2006 tá cheio de novidades. Até ++ ! Fabiano - Original Message - From: Carlos Delfino Carvalho Pinheiro [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Thursday, March 16, 2006 8:24 AM Subject: Re: [delphi-br] Aos Delphianos Faço das palavras do André Nunes as minhas! Aqui em Fortaleza foi muito bom também, sou programador Java apaixonado usuário do Eclipse, Fiquei muito satisfeito de saber do apoio da Borland ao Eclipse e de sua opção em adota-lo como Base parao Peloton, nova IDE para desenvolvimento Java. No que se refere ao Delphi 2006, fiquei facinado, achei execelente os recursos disponíveis. Estão de parebens e espero que continuem crescendo, pois estão no caminho certo. E não sou eu que digo, basta ver a comunidade Delphi. []s Em 15/03/06, André Nunes [EMAIL PROTECTED] escreveu: Caros colegar, É com grande prazer que participei do Borland Tour, aqui em manaus, foi muito bom, e tive uma visão muito boa da ferramenta IDE é apaixonante. para minha felicidade foi aki no auditório da empresa, que beleza o Andreano (BORLAND) é uma pessoa de profundo conhecimento do assunto, fica aki meu agradecimento por ele ter vindo aki para manaus com seus parceiro e espero que tenha outros aki na city. um forte abraço. Andre Nunes Analista de Sistema Fucapi [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM *Yahoo! Grupos, um serviço oferecido por:* PUBLICIDADE http://br.ard.yahoo.com/SIG=12fibemq4/M=396553.7942726.8955932.2369893/D=brc lubs/S=2137111264:HM/Y=BR/EXP=1142452474/A=3365488/R=2/id=noscript/SIG=154hj lk1t/*http://lt.dell.com/lt/lt.aspx?CID=11593LID=319636DGC=BADGSeg=DHSDU RL=http://www1.la.dell.com/content/products/category.aspx/desktops?c%3dbr%26 l%3dpt%26s%3ddhs -- *Links do Yahoo! Grupos* - Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ - Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] [EMAIL PROTECTED] - O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html. -- Carlos Delfino Consultoria e Pesquisa Desenvolvimento de Softwares. Sun Certified Associate for Java Platform [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Select dentro de Select
Bom Dia, Eh possivel fazer um select desse dentro do Firebird, Na forma atual está dando erro select visita.vis_tipovisita,TABELA1.VALORTOTAL,TABELA2.VALORTOTAL from visita, (select visita.vis_tipovisita, sum(vis_valor) valortotal from visita where vis_pagtook='SIM' group by visita.vis_tipovisita) TABELA1, (select visita.vis_tipovisita, sum(vis_valor) valortotal from visita where vis_pagtook='NAO' group by visita.vis_tipovisita) TABELA2 WHERE visita.vis_tipovisita=TABELA1.vis_tipovisita AND visita.vis_tipovisita=TABELA2.vis_tipovisita Pois o ibexpert seleciona a terceira linha e dá o seguinte erro Invalid token. Dynamic SQL Error. SQL error code = -104. Token unknown - line 3, char 2. select. Aguardo dos mestres o apoio. José Roberto -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] URGENTE!!!!
Admin.bani esse aí -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Gustavo Sequeira Enviada em: quarta-feira, 15 de fevereiro de 2006 15:06 Assunto: [delphi-br] URGENTE *Assunto: Assine Contra Este Filme Repugnante! * *Não ignorem. Mensagem: URGENTE * Um filme nojento está sendo filmado para aparecer na América este ano, o qual mostra Jesus e seus discípulos como sendo homossexuais!!! Da mesma forma que uma peça que já tem estado em teatros por algum tempo. Se chama Corpus Christi que significa O Corpo de Cristo. É uma gozação revoltante do nosso Senhor. Mas nós podemos fazer diferença. É por isso que estou mandando esse email para todos vocês. Você poderia, por favor, adicionar o seu nome no final da lista desse email? Se você fizer isso, nós poderemos ser capazes de banir esse filme de ser mostrado na América. Aparentemente, algumas regiões da Europa já baniram o filme. Tudo que precisamos é de muitas assinaturas! Lembre-se, Jesus disse: Aquele que me negar diante dos homens, eu o negarei diante do meu Pai que está nos Céus. Por favor, não simplesmente Encaminhe!!! Por favor, selecione todo o texto, copie esta mensagem (CTRL + C), cole (CTRL+V) em uma nova mensagem e depois adicione o seu nome no final da lista e mande para todos os seus contatos. Quando as assinaturas da lista atingirem 500 nomes (ou seja quem for o nº 500 da lista), por favor mande-as para: [EMAIL PROTECTED]http://by111fd.bay111.hotmail.msn.com/cgi-bin/compose?ma ilto=1msg=68634EE0-322D-4043-AA54-764C2C940DA5start=0len=35781src=type= x[EMAIL PROTECTED]cc=bcc=subject=body=curmbox=--- -0001a=a8e139e936d537e9e9a57d8ddbf86fa468bb4199b1b97ae37540db99 944da7bbE depois comece de novo.. SE TRABALHARMOS JUNTOS PODEREMOS FAZER ISTO!!! Obrigado.! - -Lista--- 01.MechaielFarag, Perth, WA, Australia 02. John Rizkallah, Perth, WA, Australia 03. StewartRizkallah, Perth, WA, Australia 04. Michael Salib, Perth, Wa, Australia 05. Mark Nour,Melbourne, VIC, Australia 06. Marco Attia, Melbourne, VIC, Australia 07. Emil Sidra, Malbourne, VIc, Australia 08. VeronicaAbdou,Vic, Australia 09. RobertGundi, Vic, Australia 10. AmirMalek, Victoria, Australia 11. Margaret Malek, Victoria,Australia 12. Mohab Shukr 13. Rebecca Micallef, Sydney Australia 14. Stacey Moore, Sydney Australia 15. Sandy Sahyoun, Australia 16. Rebecca Sahyoun, Australia 17. Karolina Tipura, Sydney Australia 18. Tanya Likic, Sydney Australia 19. Tina Likic, Sydney Australia 20. Sima Mihaljevic, Sydney Australia 21. Joanna Mataic, Sydney Australia 22. Angela Music, Sydney Australia 23. Tereza Likic, Sydney Australia 24. Damir Music, Sydney Australia, 25. Suzi Music, Sydney Australia 26. Linda Kraljevic, Sydney Australia 27. Ana Sarac, Sydney Au stralia 28. Charley Martinez, Sydney Australia 29. Louisa Nelson, SYDNEY AUSTRALIA 30. Ernst Nelson, SYDNEY AUSTRALIA 31. Drae Nelson, SYDNEY AUSTRALIA 32.Elisa Jay To, Sydney Australia 33. Li-Ming Jay To, Sydney Australia, 34. Julie Vaigafa, Sydney Australia 35. Nigel Vaigafa, Sydney Australia 36. Joy Magele, Sydney Australia 37. Yvonne Feleti,Auckland New Zealand 38. Tala Feleti Auckland New Zealand 39. Henry Feleti, Auckland New Zealand 40. Sharlene Feleti, Auckland New Zealand 41. Samuel Feleti, Auckland New Zealand 42. Hayley Davis, Auckland New Zealand 43. Breta Lemana, Auckland New Zealand 44.theresa peni, Sydney Australia 45. Daniela Tramonte, Sydney New South Wales 46. Ayanthi Christopher, sydney, Australia 47.kimberley booth, sydney , australia 48. Stephanie cirillo,sydney,australia 49. Sam Maxted, canberra, australia 50.Samara Patch, canberra, Australia 51. Beth M. Canberra, australia 52. Jessica N. Canberra, australia 53. Lisa M. Canberra, australia 54. Owen S. Forbes creek, NSW, australia 55. Kathryn Mckinnon, S.A, Australia 56. Amos Bergstrom, New Zealand 57. Hannah Bergstrm, Maraetotara, New Zealand 58. Sarani Blackwell, QLD,Australia 59.Suzanne Batten, Te Kuiti, New Zealand 60. Phill Brandt, New Zealand 61.Justin Brandt, New Zealand 62. Chris Runciman, New Zealand 63.Susan Thomasen, New Zealand 64. Villette Haitoua, Auckland, New Zealand 65. Dave Munro,Auckland,New Zealand 66. Kirit Makan, Pukekohe, New Zealand 67. Pat Lam, Pukekohe, New Zealand 68. Steph Atkins, Pukekohe, New Zealand 69. Katrina Mika, Sydney, Australia 70. Daisy Halafihi, Auckland, New Zealand 71. Fono Sosene, Auckland, New Zealand 72. Paul Reddy, Auckland, New Zealand 73. Ray mond D'Souza, Auckland,New Zealand 74. Fay Braganza, Auckland, New Zealand 75. Neil Ribeiro, GOA, INDIA 76. Audrey Pinto, Goa, India 77. Sharon Rodrigues Dubai, UAE 78. Elvis D'Souza 79. Francis Jorge, Goa India 80. Kallen Valadares Goa, India. 81. Sherard Rodrigues Goa , India 82. Susana Pereira Dubai, UAE 83. Jai Yadav,Dubai-UAE 84. Joanna M Yadav, Dubai - U.A.E . 85. Latha Lourdes Iyer 86. Payal R. Mansukhani, Dubai, U.A.E. 87.
RES: [delphi-br] Desligar Windows XP
Vc pode usar o comando shutdown -s ou veja as possibilidades usando shutdown /? José Roberto -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de [EMAIL PROTECTED] Enviada em: domingo, 5 de fevereiro de 2006 10:12 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Desligar Windows XP Existem outras formas de desligar o windows dá uma passadinha no www.seven.com.br e procura as dicas para delphi. Clovis - Original Message - From: Felipe Souza To: delphi-br@yahoogrupos.com.br Sent: Saturday, February 04, 2006 8:06 PM Subject: Re: [delphi-br] Desligar Windows XP Obrigado amigo, funcionou perfeitamente, só umd etalhe, nao é free nao... hehehe Atenciosamente, Felipe Souza From: [EMAIL PROTECTED] [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] Desligar Windows XP Date: Fri, 3 Feb 2006 14:26:09 -0200 Tem um componente chama-se abf procura é free, dica tá no baixaki. Clovis - Original Message - From: Felipe Souza To: delphi-br@yahoogrupos.com.br Sent: Thursday, February 02, 2006 12:09 AM Subject: [delphi-br] Desligar Windows XP Amigos, Há algum tempo atrás eu tinha conseguido um comando o qual prometia desligar o Windows XP ao clicar em um botão, mas o mesmo somente fazia LogOFF, hoje não tenho mais este comando, gostaria da ajuda dos amigos para um comando que REALMENTE DESLIGUE o windows XP por completo (da mesma forma que clicar em iniciar-Desligar), será que alguém tem essa informação para compartilhar comigo? Agradeço desde já, Atenciosamente, Felipe Souza From: Walter Alves Chagas Junior [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: 'delphi-br@yahoogrupos.com.br' delphi-br@yahoogrupos.com.br Subject: RES: [delphi-br] Proteção anti-cópias Date: Wed, 1 Feb 2006 09:10:34 -0300 É ... Tens razão... A dica foi para IPs fixos. Se a rede trabalhar com IP Fixo é até válido, mas como isto é uma prática hoje em desuso no mercado, acho que a dica também deverá ser revista :) Mas... Acho que é facil adapta-la para IP dinâmicos, bastando retirar esta checagem, substituindo por existencias de arquivos, datas de arquivos, pastas, etc. Pode-se usar também o endereço MAC da placa de rede. Ninguem falou nisto ó! É como eu falei... Foi apenas uma dica. Na minha opinião, toda e qualquer dica, por mais viajada que seja, é válida aqui. Afinal de contas, a lista existe é pra isto mesmo. Hummm... Isto é assunto para mais de metro :) Acho que cada um deve escolher a melhor opção. Ou seja ... A que ele consegue e que melhor se adequa. Também concordo. Dicas de proteção são uma eterna polêmica nos foruns, mas na minha opinião, a melhor proteção contra pirataria é aquela desenvolvida por você mesmo. Mas... Quero deixar registrado... que discordo completamente... das soluções caras via Hardwares que prometem travar tudo. Eu já trabalhei com Hardlock, ele não tem segredo não mas tem um inconveniente sério: Se o cliente perder o bagulho, o programa dele não vai rodar e ele vai querer que você assuma este onus... Já tivemos este tipo de problema lá na CABTEC. Um chegado (amigo) meu... analisou as informações que passavam de-para a trava e o software... Desmontou um dispositivo, e quebrou a trava... colocando uma gambiarra na serial de dar inveja ao cara que martelou anos para inventar a joça. * vale lembrar que ele não tem formação acadêmica. * tudo aprendido na tora, nos livros e com outro amigos. Por favor, não vamos começar com esta discussão infundamentada de que o Diploma é ou não, faz ou não faz, etc... Deixa esse assunto de fora. Sei que este não é assunto para a lista... Mas até a alguns me mostraram (e experimentei para testes) um ship da TIM que permitia ligações/conferências... etc... sem pagar nada :) Ship escreve é com C e não com S. Tem sites aí na WEB que ensinam você a quebrar proteções e validadores de Chips de celulares GSM. Mas nisto existem dois meros probleminhas que podem lhe causar problemas futuros (para os que se julgam mais espertos que a esperteza): 1) Seu chip pode ter estes recursos disponíveis, mas a quebra dos limitadores podem ter comprometido o funcionamento dele pra outras coisas. 2)A operadora tem plenas condições de descobrir
RES: RES: RES: [delphi-br] Delphi + Quick Report + SQL
Mas eu acho que devia ter algo como um group by nos subs pois se não só retorna os valores mesmos diferente do select principal José Roberto -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Julio Abdala Enviada em: domingo, 5 de fevereiro de 2006 19:54 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: RES: [delphi-br] Delphi + Quick Report + SQL Roberto, acho que também não tá certa essa linha do subselect Where visita_pagar.vis_pagto_ok = 'NÃO' And visita_pagar.vis_tipovisita Is Not Null And visita_pagar.vis_tipovisita = visita.vis_tipovisita experimente simplesmente Where visita_pagar.vis_pagto_ok = 'NÃO' And visita_pagar.vis_tipovisita = visita.vis_tipovisita abs. Júio Abdala José Roberto [EMAIL PROTECTED] escreveu: A questão eh que só separa corretamente para o primeiro select no subselect ele coloca os mesmos valores desconsiderando o tipo da visita, veja o resultado que eu havia passado msn: [EMAIL PROTECTED] José Roberto -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Julio Abdala Enviada em: sábado, 4 de fevereiro de 2006 23:14 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Delphi + Quick Report + SQL olhando o teu sql e imaginando a tua tabela, me veio uma pergunta... ele realmente está agrupando por tipo de visita, mas.. não é por pagou ou não pago que ele quer o resultado? tipo de visita = avulta ou contrato, pagto_ok = sim ou não logo, se você deseja dividir as linhas em pagos e não pagos tem que incluir este campo na consulta e no group by. o resultado do sql tá correto para o que foi escrito, está agrupando por tipo de visita, se você deseja o dados por pagto_ok (sim ou não) inclua-o na consulta e no group by. Tente: select visita.vis_tipovisita, visita.vis_pagto_ok, sum(vis_valor) valortotal, (Select Sum(vis_valor) from visita visita_pagar Where visita_pagar.vis_pagto_ok = 'NÃO' And visita_pagar.vis_tipovisita Is Not Null And visita_pagar.vis_tipovisita = visita.vis_tipovisita And visita_pagar.vis_dt_inicio '01/01/2006') As Pagar, (Select Sum(vis_valor) from visita visita_paga Where visita_paga.vis_pagto_ok = 'SIM' And visita_paga.vis_tipovisita Is Not Null And visita_paga.vis_tipovisita = visita.vis_tipovisita And visita_paga.vis_dt_inicio '01/01/2006') As Pagou from visita where vis_tipovisita is not null and vis_dt_inicio '01/01/2006' group by visita.vis_tipovisita, visita.vis_pagto_ok abs. Júlio Abdala José Roberto [EMAIL PROTECTED] escreveu: Denner e Julio, Usando este igual vcs indicaram SQL pelo Ibexpert (Firebird) select vis_tipovisita, sum(vis_valor) valortotal, (Select Sum(vis_valor) from visita visita_pagar Where visita_pagar.vis_pagto_ok = 'NÃO' And visita_pagar.vis_tipovisita Is Not Null And visita_pagar.vis_tipovisita = visita.vis_tipovisita And visita_pagar.vis_dt_inicio '01/01/2006') As Pagar, (Select Sum(vis_valor) from visita visita_paga Where visita_paga.vis_pagto_ok = 'SIM' And visita_paga.vis_tipovisita Is Not Null And visita_paga.vis_tipovisita = visita.vis_tipovisita And visita_paga.vis_dt_inicio '01/01/2006') As Pagou from visita where vis_tipovisita is not null and vis_dt_inicio '01/01/2006' group by vis_tipovisita dá esse Resultado VIS_TIPOVISITA VALORTOTAL PAGAR PAGOU Avulsa 1204 249 1335 Contrato 380 249 1335 Se eu ignorar o tipo da visita, tirando do select inicial e do group by aí dá certo, mas aí não terei a separação que queria, mas por enquanto usarei desta forma, mas se alguém tiver alguma idéia, agradeço -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Denner Bizarria Branco Enviada em: sábado, 4 de fevereiro de 2006 07:23 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Delphi + Quick Report + SQL nos subselects coloca o alias que voce colocou na tabela nas condições... (Select Sum(vis_valor) from visita visita_paga Where visita_paga.vis_pagto_ok = 'SIM' And visita_paga.vis_tipovisita Is Not Null And visita_paga.vis_tipovisita = visita.vis_tipovisita And visita_paga.vis_dt_inicio '01/01/2006') As Pagou José Roberto wrote: Fiz dessa forma mas ainda não tá legal, select vis_tipovisita tipovisita, sum(vis_valor) valortotal, (select sum(vis_valor) from visita visita_pagar where vis_pagto_ok = 'NÃO' and visita.vis_tipovisita = visita_pagar.vis_tipovisita AND vis_tipovisita is not null) as Receber, (select sum(vis_valor) from visita visita_paga where vis_pagto_ok = 'SIM' AND vis_tipovisita is not null and visita.vis_tipovisita = visita_paga.vis_tipovisita and vis_dt_inicio '01/01/2006') as Pagou from visita where vis_tipovisita is not null and vis_dt_inicio '01/01/2006' group by vis_tipovisita O resultado ta
RES: [delphi-br] Instalação do jedi
Desculpem minha ignorancia mas o que o Jedi ? José Roberto -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Denner Bizarria Branco Enviada em: sexta-feira, 3 de fevereiro de 2006 15:37 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Instalação do jedi Na pasta inicial do jedi tem um arquivo de lotes install.bat só executa ele e passa o caminho do delphi, algo assim: C:\JVCLInstall C:\Arquiv~1\Borland\Delphi7\Bin\make.exe daí o instalador dele funciona legal... Adailton Cardoso dos Santos wrote: Bom dia a todos Caros amigos estou apanhando para instalar o jedi no Delphi 7 por favor alguem sabe um jeito pratico e facil ou alguema dica passo á passo pra este tipo de componente já tive que Reinstalar +/- uma três vezes. Grato Adailton Cardoso [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Delphi + Quick Report + SQL
Denner e Julio, Usando este igual vcs indicaram SQL pelo Ibexpert (Firebird) select vis_tipovisita, sum(vis_valor) valortotal, (Select Sum(vis_valor) from visita visita_pagar Where visita_pagar.vis_pagto_ok = 'NÃO' And visita_pagar.vis_tipovisita Is Not Null And visita_pagar.vis_tipovisita = visita.vis_tipovisita And visita_pagar.vis_dt_inicio '01/01/2006') As Pagar, (Select Sum(vis_valor) from visita visita_paga Where visita_paga.vis_pagto_ok = 'SIM' And visita_paga.vis_tipovisita Is Not Null And visita_paga.vis_tipovisita = visita.vis_tipovisita And visita_paga.vis_dt_inicio '01/01/2006') As Pagou from visita where vis_tipovisita is not null and vis_dt_inicio '01/01/2006' group by vis_tipovisita dá esse Resultado VIS_TIPOVISITA VALORTOTAL PAGAR PAGOU Avulsa 1204249 1335 Contrato380 249 1335 Se eu ignorar o tipo da visita, tirando do select inicial e do group by aí dá certo, mas aí não terei a separação que queria, mas por enquanto usarei desta forma, mas se alguém tiver alguma idéia, agradeço -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Denner Bizarria Branco Enviada em: sábado, 4 de fevereiro de 2006 07:23 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Delphi + Quick Report + SQL nos subselects coloca o alias que voce colocou na tabela nas condições... (Select Sum(vis_valor) from visita visita_paga Where visita_paga.vis_pagto_ok = 'SIM' And visita_paga.vis_tipovisita Is Not Null And visita_paga.vis_tipovisita = visita.vis_tipovisita And visita_paga.vis_dt_inicio '01/01/2006') As Pagou José Roberto wrote: Fiz dessa forma mas ainda não tá legal, select vis_tipovisita tipovisita, sum(vis_valor) valortotal, (select sum(vis_valor) from visita visita_pagar where vis_pagto_ok = 'NÃO' and visita.vis_tipovisita = visita_pagar.vis_tipovisita AND vis_tipovisita is not null) as Receber, (select sum(vis_valor) from visita visita_paga where vis_pagto_ok = 'SIM' AND vis_tipovisita is not null and visita.vis_tipovisita = visita_paga.vis_tipovisita and vis_dt_inicio '01/01/2006') as Pagou from visita where vis_tipovisita is not null and vis_dt_inicio '01/01/2006' group by vis_tipovisita O resultado ta assim TIPOVISITA VALORTOTAL RECEBER PAGOU Avulsa 12048091335 Contrato 3808091335 Ele dá os totais mas ignora o tipo de visita nos dois subselects José Roberto [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: RES: [delphi-br] Delphi + Quick Report + SQL
A questão eh que só separa corretamente para o primeiro select no subselect ele coloca os mesmos valores desconsiderando o tipo da visita, veja o resultado que eu havia passado msn: [EMAIL PROTECTED] José Roberto -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Julio Abdala Enviada em: sábado, 4 de fevereiro de 2006 23:14 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Delphi + Quick Report + SQL olhando o teu sql e imaginando a tua tabela, me veio uma pergunta... ele realmente está agrupando por tipo de visita, mas.. não é por pagou ou não pago que ele quer o resultado? tipo de visita = avulta ou contrato, pagto_ok = sim ou não logo, se você deseja dividir as linhas em pagos e não pagos tem que incluir este campo na consulta e no group by. o resultado do sql tá correto para o que foi escrito, está agrupando por tipo de visita, se você deseja o dados por pagto_ok (sim ou não) inclua-o na consulta e no group by. Tente: select visita.vis_tipovisita, visita.vis_pagto_ok, sum(vis_valor) valortotal, (Select Sum(vis_valor) from visita visita_pagar Where visita_pagar.vis_pagto_ok = 'NÃO' And visita_pagar.vis_tipovisita Is Not Null And visita_pagar.vis_tipovisita = visita.vis_tipovisita And visita_pagar.vis_dt_inicio '01/01/2006') As Pagar, (Select Sum(vis_valor) from visita visita_paga Where visita_paga.vis_pagto_ok = 'SIM' And visita_paga.vis_tipovisita Is Not Null And visita_paga.vis_tipovisita = visita.vis_tipovisita And visita_paga.vis_dt_inicio '01/01/2006') As Pagou from visita where vis_tipovisita is not null and vis_dt_inicio '01/01/2006' group by visita.vis_tipovisita, visita.vis_pagto_ok abs. Júlio Abdala José Roberto [EMAIL PROTECTED] escreveu: Denner e Julio, Usando este igual vcs indicaram SQL pelo Ibexpert (Firebird) select vis_tipovisita, sum(vis_valor) valortotal, (Select Sum(vis_valor) from visita visita_pagar Where visita_pagar.vis_pagto_ok = 'NÃO' And visita_pagar.vis_tipovisita Is Not Null And visita_pagar.vis_tipovisita = visita.vis_tipovisita And visita_pagar.vis_dt_inicio '01/01/2006') As Pagar, (Select Sum(vis_valor) from visita visita_paga Where visita_paga.vis_pagto_ok = 'SIM' And visita_paga.vis_tipovisita Is Not Null And visita_paga.vis_tipovisita = visita.vis_tipovisita And visita_paga.vis_dt_inicio '01/01/2006') As Pagou from visita where vis_tipovisita is not null and vis_dt_inicio '01/01/2006' group by vis_tipovisita dá esse Resultado VIS_TIPOVISITA VALORTOTAL PAGAR PAGOU Avulsa 1204 249 1335 Contrato 380 249 1335 Se eu ignorar o tipo da visita, tirando do select inicial e do group by aí dá certo, mas aí não terei a separação que queria, mas por enquanto usarei desta forma, mas se alguém tiver alguma idéia, agradeço -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Denner Bizarria Branco Enviada em: sábado, 4 de fevereiro de 2006 07:23 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Delphi + Quick Report + SQL nos subselects coloca o alias que voce colocou na tabela nas condições... (Select Sum(vis_valor) from visita visita_paga Where visita_paga.vis_pagto_ok = 'SIM' And visita_paga.vis_tipovisita Is Not Null And visita_paga.vis_tipovisita = visita.vis_tipovisita And visita_paga.vis_dt_inicio '01/01/2006') As Pagou José Roberto wrote: Fiz dessa forma mas ainda não tá legal, select vis_tipovisita tipovisita, sum(vis_valor) valortotal, (select sum(vis_valor) from visita visita_pagar where vis_pagto_ok = 'NÃO' and visita.vis_tipovisita = visita_pagar.vis_tipovisita AND vis_tipovisita is not null) as Receber, (select sum(vis_valor) from visita visita_paga where vis_pagto_ok = 'SIM' AND vis_tipovisita is not null and visita.vis_tipovisita = visita_paga.vis_tipovisita and vis_dt_inicio '01/01/2006') as Pagou from visita where vis_tipovisita is not null and vis_dt_inicio '01/01/2006' group by vis_tipovisita O resultado ta assim TIPOVISITA VALORTOTAL RECEBER PAGOU Avulsa 12048091335 Contrato 3808091335 Ele dá os totais mas ignora o tipo de visita nos dois subselects José Roberto [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Yahoo! Grupos, um serviço oferecido por:PUBLICIDADE - Links do Yahoo! Grupos Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] O uso que você faz do
[delphi-br] Delphi + Quick Report + SQL
Fiz dessa forma mas ainda não tá legal, select vis_tipovisita tipovisita, sum(vis_valor) valortotal, (select sum(vis_valor) from visita visita_pagar where vis_pagto_ok = 'NÃO' and visita.vis_tipovisita = visita_pagar.vis_tipovisita AND vis_tipovisita is not null) as Receber, (select sum(vis_valor) from visita visita_paga where vis_pagto_ok = 'SIM' AND vis_tipovisita is not null and visita.vis_tipovisita = visita_paga.vis_tipovisita and vis_dt_inicio '01/01/2006') as Pagou from visita where vis_tipovisita is not null and vis_dt_inicio '01/01/2006' group by vis_tipovisita O resultado ta assim TIPOVISITA VALORTOTAL RECEBER PAGOU Avulsa 1204809 1335 Contrato380 809 1335 Ele dá os totais mas ignora o tipo de visita nos dois subselects José Roberto -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] QuickReport + Delphi + SQL
Caros amigos desenvolvedores, Tenho uma duvida no delphi Tenho uma tabela de visitas a cliente. Nela existe a seguinte estrutura (parte dela) Tabela visita vis_tipo_visita (varchar(10) vis_pagto_ok char(3) ... Queria montar um relatório no quick report onde eu teria... tipo da visitareceber recebidas total avulsa 100,00 100,00 200,00 contrato 150,00 450,00 600,00 como eu poderia fazer isso ? pensei em dois sql´s mas no quick report preciso identificar uma sql senao ele não passa pro proximo registro Aguardo o apoio de vocês José Roberto -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] QuickReport + Delphi + SQL
Esses valores deveram ser pegos da tabela visita, exemplo Neste eu pego as visitas de acordo com o tipo Select vis_tipo_visita visita, sum(valor) valor Order by vis_tipo_visita Group by vis_tipo_visita Neste eu pego as visitas de acordo com o tipo E que jah foram pagas Select vis_tipo_visita visita, sum(valor) valor Where vis_pagto_ok ='SIM' Order by vis_tipo_visita Group by vis_tipo_visita Neste eu pego as visitas de acordo com o tipo E que não foram pagas ainda Select vis_tipo_visita visita, sum(valor) valor Where vis_pagto_ok ='NÃO' Order by vis_tipo_visita Group by vis_tipo_visita E lembrando que posso ter um tipo de visita que só tem paga ou não paga Ai minha intenção eh jogar tudo isso num mesmo relatorio Entendeu ? -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Julio Abdala Enviada em: quinta-feira, 2 de fevereiro de 2006 20:47 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] QuickReport + Delphi + SQL Cara, não consegui entender o que tu escreveu.. de onde vem aqueles valores? manda detalhes Júlio Abdala José Roberto [EMAIL PROTECTED] escreveu: Caros amigos desenvolvedores, Tenho uma duvida no delphi Tenho uma tabela de visitas a cliente. Nela existe a seguinte estrutura (parte dela) Tabela visita vis_tipo_visita (varchar(10) vis_pagto_ok char(3) ... Queria montar um relatório no quick report onde eu teria... tipo da visitareceber recebidas total avulsa 100,00 100,00 200,00 contrato 150,00 450,00 600,00 como eu poderia fazer isso ? pensei em dois sql´s mas no quick report preciso identificar uma sql senao ele não passa pro proximo registro Aguardo o apoio de vocês José Roberto -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Yahoo! Grupos, um serviço oferecido por:PUBLICIDADE - Links do Yahoo! Grupos Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. - Yahoo! doce lar. Faça do Yahoo! sua homepage. - Yahoo! doce lar. Faça do Yahoo! sua homepage. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] FileExists
Caro Uirá, Porque nao manda o teste e o problema que está tendo ? José Roberto Uirá Tupinambás Lima [EMAIL PROTECTED] escreveu: Pessoal, Estou com uma dúvida aqui, o comando FileExists do Delphi funciona para um drive mapeado na rede pois estou fazendo uns testes aqui e não estou obtendo sucesso, que outro comando posso utilizar para esse caso ? Qualquer ajuda será bem vinda Grato Uirá [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Yahoo! Grupos, um serviço oferecido por:PUBLICIDADE - Links do Yahoo! Grupos Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. José Roberto [EMAIL PROTECTED] - Yahoo! doce lar. Faça do Yahoo! sua homepage. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
