Re: [delphi-br] Como pegar os resultados dos campos virtuais via SQL e passar para um TEdit?
Duas maneiras
TEdit.Text := NomedaSuaQuery.FieldByName('Produto').AsString
ou
TEdit.Text := NomedaSuaQuery.Fields[0].AsString;
- Original Message -
From: Joandreiy Cordeiro
To: delphi-br
Sent: Monday, February 12, 2007 4:21 PM
Subject: [delphi-br] Como pegar os resultados dos campos virtuais via SQL e
passar para um TEdit?
Estou fasendo o seguinte select:
select DESCRICAO as Produto,
*SUM(QUANTIDADE)as Quantidade total,*
*SUM(VALOR_VENDA*QUANTIDADE)as Total da venda,*
*SUM(VALOR_VENDA*QUANTIDADE)-SUM(VALOR_CUSTO*QUANTIDADE)as Total do lucro,
*
from ITENS_PEDIDO group by DESCRICAO
como faço para pegar os resultados dos campos em negrito se eles são
campos virtuais criados em Run Time e passalos para um TEdit por exemplo?
--
Cordialmente,
Joandreiy Cordeiro
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] [URGENTE] Formatação Imp ressão Matricial
Como você faz pra imprimir? faz tudo na mão ou usa alguma rotina ou componente? Posta aí que agente te ajuda Bom Código Ricardo Berti - Original Message - From: Tiago de Assis Pimenta To: Grupo Delphi Sent: Monday, February 12, 2007 11:40 PM Subject: [delphi-br] [URGENTE] Formatação Impressão Matricial Galera, seguinte, preciso da seguinte informação. Tem como eu usar o write para fazer o seguinte. Na hora que chegar num determinado numero de caracter, ele pule para a proxima linha, mais ou menos no estilo das Celulas do Excel ??? Por ex.: Eu reservo um espaço de 50 caracteres para Descrição do Serviço na nota, se ele passar de 50, ele pula para a proxima linha, sem atrapalhar a coluna preço. Na nota ficaria assim DESCRIÇÃO | PREÇO TESTE TESTE TESTE TESTE TESTE TESTE TESTE TESTE TESTE TESTE R$ 40,00 OUTRO TESTE R$ 20,00 Tem como ? Tiago de Assis Pimenta MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] Skype: tiagopimenta_skype Gtalk: tiagopimenta [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: O Comando Case
Jorge, obrigado pela ajuda. Mas esse não eu o caso eu me refiro ao comando CASE OF do delphi(2005) não ao CASE WHEN de Select. Oque eu gostaria de fazer é o seguinte: case trim(UpperCase(sNome)) of 'Gabriel': Begin End; `Gustavo': Begin End; Pessoal o comando case não aceita comparação de strings? Alguma alternativa? Que não seja if if if? case trim(UpperCase(sTabela)) of 'FCHISTOR': Begin Como vai ter muitas comparações eu não gostaria que passasse em todas s opções como no if. qual a alternativa? --- Em delphi-br@yahoogrupos.com.br, Jorge Ericsson [EMAIL PROTECTED] escreveu Gabriel eu não sei qual o banco que vc utiliza, mas tente a condição abaixo caso esteje trabalhando com o ORACLE. SELECT CASE TRIM(TO_CHAR(TO_DATE(TO_CHAR(vCONT) || '/' || vMES_INPUT || '/' || vANO_INPUT,'dd-mm-') , 'Day')) WHEN 'Segunda-Feira' then 'Segunda' WHEN 'Terça-Feira' then 'Terça' WHEN 'Quarta-Feira' then 'Quarta' WHEN 'Quinta-Feira' then 'Quinta' WHEN 'Sexta-Feira' then 'Sexta' WHEN 'Sábado' then 'Sábado' WHEN 'Domingo' then 'Domingo' ELSE 'NENHUM' END INTO vDIA_SEMANA FROM DUAL; []´s Em 12/02/07, Gabriel Herdt [EMAIL PROTECTED] escreveu: Pessoal o comando case não aceita comparação de strings? Alguma alternativa? Que não seja if if if? case trim(UpperCase(sTabela)) of 'FCHISTOR': Begin Como vai ter muitas comparações eu nao gostaria que passa-se em todas as opções como no if. qual a alternativa? [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] AudioLab ou MMTools
Bom dia amigos da lista, Bom, gostaria da ajuda de vcs para gravação de som do microfone com delphi. O problema é o seguinte: Dentre todos os componentes que testei os mais poderosos que encontrei foram estes 2 que cito no titulo, porem, nenhum deles faz uma coisa muito importante que preciso. Por exemplo, o usuário começa a gravar e no final da gravação ele resolve voltar um pouco e regravar uma parte devido a que ele possa ter falado algo errado, desta forma o arquivo de áudio deveria sobrepor toda a gravação a partir do ponto em que ele recomeçou a gravar. Mais não consegui fazer isso com nenhum componente, nem com o TMediaPlayer e nem usando código nativo do delphi (mciSendCommand, sndPlaySound, e estas coisas todas)!!! Alguém por acaso utiliza alguns destes componentes que cito acima, ou conhece outros (pode ser pago) ou alguma outra forma de realizar este trabalho? Obs.: Este comportamento o Gravador de Som do Windows faz perfeitamente. Obrigado a todos que puderem responder e me ajudar!!! Alexandre da Silva.
Re: [delphi-br] Sistema de Lan House
Bom dia Ricardo , tem um cliente que me pediu para fazer um sistema para Lan House mais a falta de tempo nao permite desenvolver , topas fazer uma parceria ?? se sim favor entrar em contato pelo meu msn : [EMAIL PROTECTED] ou skype : itabytetec ou via e-mail : [EMAIL PROTECTED] JESUS TE AMA !!! - Original Message - From: Ricardo César Cardoso To: delphi-br@yahoogrupos.com.br Sent: Monday, February 12, 2007 9:51 AM Subject: Re: [delphi-br] Sistema de Lan House Estou finalizando um sistema de lan house (fase de personalização do projeto). Se quiser, posso elaborar um passo-a-passo ou se quiser mais posso negociar os fontes. É um sistema relativamente simples, já que na versão onde estou trabalhando não há necessidade de controlar execução de jogos e/ou programas. É só o controle de tempo de uso mesmo. Contato em PVT. Sds, Ricardo. Humberto [EMAIL PROTECTED] escreveu: Olá caros colegas. Eu irei pegar um sistema de Lan House para desenvolver, e gostaria de saber se algum de vcs já fez um e se pode me ajudar no sentido de por onde começar rsrs.. Imagino q seja usando Sockets etc.. Alguém pode me dar uma ajudinha? Vlw. [As partes desta mensagem que não continham texto foram removidas] __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Potenciação multibancos
Obrigada Jorge... consegui desta forma msm, e no Firebird eh dpower(base, expoente).. Obrigada pela atenção... Tamara Clemente Analista Desenvolvedor Em 12/02/07, Jorge Ericsson [EMAIL PROTECTED] escreveu: Desculpe Tamara mais eu entendi mal a sua questão, eu uso cálculos mesmo no próprio código e não uso no banco devido a migração traumática. Mas aqui vai o que tentei usar em cada banco que utilizo: oracle: select power( 7.42578 , 0.225 ) from dual; sql server: select power(3.000, -2) ou para extrair a raiz cúbica tbém que uso select power(27.0, (1./3)) Tente verifica na UDF do Firebird importa a função matemática, como eu não tenho ele aqui agora fica dificil te ajuda nele. Se não me engano deve ser Power tbém mas não tenho certeza. Espero ajudado, Jorge Ericsson Em 12/02/07, Tamara Clemente [EMAIL PROTECTED]tamara.grupos%40gmail.com escreveu: Se eu tb entendi bem, Ricardo...rs.. seria isso msm... tenho um controle de verificação de qual banco de trata, e ai então executo o sql de acordo com o banco... encontrei como faço em SQL Server, mas firebird e oracle ainda ñ, se puderem me ajudar, agradeço muito. Obrigada, Tamara Clemente Analista Desenvolvedor Em 12/02/07, Ricardo César Cardoso [EMAIL PROTECTED]ricardo_engsoft%40yahoo.com.br ricardo_engsoft%40yahoo.com.br escreveu: Se entendi bem, o Jorge faz o cálculo na aplicação e vc quer implementar uma UDF para cada banco, não é isso? Tamara Clemente [EMAIL PROTECTED] tamara.grupos%40gmail.com tamara.grupos%40gmail.com tamara.grupos%40gmail.com escreveu: Opa Jorge, obrigada pela atenção... O q eu preciso eh da sintaxe nos 3 bancos, sei q tem diferença... tenho td o esquema de trabalho com os 3 bancos, só preciso do select com potencia compativel com cada um deles... Obrigada, Tamara Clemente Analista Desenvolvedora Em 12/02/07, Jorge Ericsson [EMAIL PROTECTED]jericssonsup%40gmail.com jericssonsup%40gmail.com jericssonsup%40gmail.com escreveu: Sem problemas se vc utilizar três conexões com os bancos. Eu faço isso utilizando DBExpress (D7) e depois de gerar o dataset eu trabalho da forma que melhor me convier. Espero ter ajudado. Em 09/02/07, Tamara Clemente [EMAIL PROTECTED]tamara.grupos%40gmail.com tamara.grupos%40gmail.com tamara.grupos%40gmail.com tamara.grupos%40gmail.com escreveu: Boa noite povo, Td bem? Seguinte: estou com um problema na montagem de um comando sql, só q este comando tem q ter correspondencia em 3 bancos de dados distintos: SQLServer, Oracle e Firebird. Neste comando eu preciso fazer a operação de potencia... podem me ajudar?? Obrigada, Tamara Clemente Analista Desenvolvedor [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: O Comando Case
Gabriel Herdt wrote: Jorge, obrigado pela ajuda. Mas esse não eu o caso eu me refiro ao comando CASE OF do delphi(2005) não ao CASE WHEN de Select. Oque eu gostaria de fazer é o seguinte: case trim(UpperCase(sNome)) of 'Gabriel': Begin … … End; `Gustavo': Begin … End; Quanto a Delphi 8 em diante eu não sei, veja o que o help diz a você. Nas versões anteriores, case trabalha apenas com tipos enumeráveis, ou seja, char e números inteiros em geral. Ele não foi criado apenas pra bonito, mas porque o compilador pode gerar um código mais otimizado quando você tem comparações com estes tipos de dados. Para fazer um 'case' com string você tem dois caminhos. O mais prático é com a infinidade de ifs. Não fica muito elegante mas fica um código bem otimizado, caso a sua preocupação também seja performance. Procure colocar na frente aqueles if que têm mais chance de dar verdadeiro. Se for indiferente, tanto faz a ordem. Para que o seu código fique menos feio, chame procedures locais ao invés de criar um begin/end para cada opção. Caso maiúsculo e minúsculo sejam indiferentes, use SameText ao invés de string = string. O caminho mais elegante é criar uma classe para cada resposta, colocar a resposta correta como um método de classe e registrar todas as classes envolvidas em uma lista de classes. É uma solução bem mais escalável, mas se o que você precisa é apenas consultar alguns poucos nomes que nunca vão mudar, é melhor deixar esta solução de lado e ficar com ifs + procedures locais mesmo. -- Joao Morais -- 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] Passar Objeto entre Cliente e Servidor (DataSnap)
Estou migrando minha aplicação de d7+fb para d7+sql , tem algum macete, qual o melhor componente Aldinei _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Marcos Douglas Enviada em: segunda-feira, 12 de fevereiro de 2007 11:22 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Passar Objeto entre Cliente e Servidor (DataSnap) Exatamente. Um método como: function ToString: string; Vc poderia retornar uma string contendo: Campo=Valor; Campo=Valor; etc... -- Marcos Douglas Mensagem Original From: Marcelo Moacir Florindo marceloflorindo@ mailto:marceloflorindo%40gmail.com gmail.com To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Sent: Seg, Fevereiro 12, 2007 11:14 am Subject: Re: [delphi-br] Passar Objeto entre Cliente e Servidor (DataSnap) Método próprio do Objeto?? Falas em eu criar um método para isto?? Abraços; Em 12/02/07, Marcos Douglas [EMAIL PROTECTED] mailto:md%40delfire.net escreveu: Uma forma de fazer isso é converter o objeto para string utilizando um método próprio do objeto. Assim vc terá os dados do objeto. Quando passar para o server, este irá criar um novo objeto apartir dos dados em forma de string. -- Marcos Douglas Mensagem Original From: Bruno Lichot [EMAIL PROTECTED] mailto:blichot%40softpark.com.br com.br blichot%40softpark.com.br To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br delphi-br%40yahoogrupos.com.br Sent: Seg, Fevereiro 12, 2007 11:07 am Subject: Re: [delphi-br] Passar Objeto entre Cliente e Servidor (DataSnap) vc quer enviar um objeto ou dados simplesmente ? se for dados vc pode mandar um clientdataset como visto em chamadas remotas em meus exemplos um objeto nunca precisei passar, mas acrredito q deva ser passado como variant* e feito o type cast no server vc pode testar isso Marcelo Moacir Florindo escreveu: Senhores, Tenho um objeto que preciso enviar para o servidor. Estou tentando usar o VarArrayOf porém sem sucessos. Alguém ai teria uma maneira de facilitar o envio ou algum tutorial que me mostre o caminho das pedras?? Abraços a todos... Obrigado. -- -- []´s Bruno Lichot -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- Marcelo Moacir Florindo Analista/Desenvolvedor http://www.gestaote http://www.gestaotec.com.br c.com.br [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Catalogo de Componente Delphi
Bom dia PessoALL quem esta precisando de componentes principalmente da uma olhada neste site. http://www.vclcomponents.com Atenc Elazar ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/ -- 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] O Comando Case
Gabriel, pelo que vi até hoje do case, ele só aceita tipos enumerados. Abraços Celso Rivera [EMAIL PROTECTED] Gabriel Herdt [EMAIL PROTECTED] escreveu: Pessoal o comando case não aceita comparação de strings? Alguma alternativa? Que não seja if if if? case trim(UpperCase(sTabela)) of 'FCHISTOR': Begin Como vai ter muitas comparações eu nao gostaria que passa-se em todas as opções como no if. qual a alternativa? __ 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] Problema com DBExpress: unable to load dbexpint.dll
Poe as DLLs db*.dll (dbExpress) na pasta do seu aplicativo para evitar conflitos de versao. -- Atenciosamente, Vinicius S. L. Ribeiro [EMAIL PROTECTED] GNU/Linux User #293209. Get counted: http://counter.li.org/ Fellipe Henrique escreveu: Olá amigos, estou tendo um problemão com meu DBExpress... Tinha o Delphi7 instalado e instalei o BDS2006, pois bem.. eis que deu um conflito danado nos dois... o que fiz foi remover os dois delphis... mandei limpar o registro do windows... e instalei o BDS2006 do zero foi instalado com sucesso, sem problemas... mas na hora de abrir meu projeto no delphi... dá o erro: [b]unabled to load dbexpint.dll[/b] Como posso solucionar este problema? P.S.: procurei pelo meu HD e não encontrei nada do dbexpess... onde acho estes arquivos? ou uma instalação limpa do DBExpress? Desde já agradeço. []s -- _ Fellipe Henrique [EMAIL PROTECTED] mailto:fellipeh%40gmail.com [As partes desta mensagem que não continham texto foram removidas] ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/
Re: [delphi-br] Potenciação multibancos
Nesse caso nao seria melhor tratar esse calculo na aplicação, apenas trazendo os dados necessários do banco? Aí vc não precisaria verificar qual de banco se trata. Sds, Ricardo. Tamara Clemente [EMAIL PROTECTED] escreveu: Se eu tb entendi bem, Ricardo...rs.. seria isso msm... tenho um controle de verificação de qual banco de trata, e ai então executo o sql de acordo com o banco... encontrei como faço em SQL Server, mas firebird e oracle ainda ñ, se puderem me ajudar, agradeço muito. Obrigada, Tamara Clemente Analista Desenvolvedor Em 12/02/07, Ricardo César Cardoso [EMAIL PROTECTED] escreveu: Se entendi bem, o Jorge faz o cálculo na aplicação e vc quer implementar uma UDF para cada banco, não é isso? Tamara Clemente [EMAIL PROTECTED] tamara.grupos%40gmail.com escreveu: Opa Jorge, obrigada pela atenção... O q eu preciso eh da sintaxe nos 3 bancos, sei q tem diferença... tenho td o esquema de trabalho com os 3 bancos, só preciso do select com potencia compativel com cada um deles... Obrigada, Tamara Clemente Analista Desenvolvedora Em 12/02/07, Jorge Ericsson [EMAIL PROTECTED]jericssonsup%40gmail.com escreveu: Sem problemas se vc utilizar três conexões com os bancos. Eu faço isso utilizando DBExpress (D7) e depois de gerar o dataset eu trabalho da forma que melhor me convier. Espero ter ajudado. Em 09/02/07, Tamara Clemente [EMAIL PROTECTED]tamara.grupos%40gmail.com tamara.grupos%40gmail.com escreveu: Boa noite povo, Td bem? Seguinte: estou com um problema na montagem de um comando sql, só q este comando tem q ter correspondencia em 3 bancos de dados distintos: SQLServer, Oracle e Firebird. Neste comando eu preciso fazer a operação de potencia... podem me ajudar?? Obrigada, Tamara Clemente Analista Desenvolvedor [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] __ 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]
[delphi-br] Lotomania
Bom dia Pessoal Tenho que desenvolver um pequeno executável onde o formulário possue os mesmos numero da lotomania 00-99 e o numero da cartela. E o usuário vai informar apenas 20 numeros por cartela que ele quer e após isto o programa vai ter que pesquisar as cartelas que mais acertarem números em um sorteio de 50 numeros. Pergunta. Neste caso o ideal seria criar uma tabela com os 100 campos dos números da cartela e + o numero do bilhete? Se sim para mostrar este 100 numeros como vcs fariam para o usuário escolher? Qual componente usar? Desde já agradeço a aternção __ 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]
[delphi-br] Quick Report
Bom Dia, alguém tem ou sabe me informar aonde eu posso baixar o componente quick report professional para delphi 7? Procurei no google e não consegui sds Bender Desenvolvimento de Sistemas e Serviços Contábeis (Régis) (51) 98470699 Novo Hamburgo/RS MSN: [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Mudar BD
Estou migrnado uma aplicação de D+fb para D+sql, tem algum macete, qual o melhor componente? Aldieni _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Régis Bender Enviada em: terça-feira, 13 de fevereiro de 2007 09:47 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Quick Report Bom Dia, alguém tem ou sabe me informar aonde eu posso baixar o componente quick report professional para delphi 7? Procurei no google e não consegui sds Bender Desenvolvimento de Sistemas e Serviços Contábeis (Régis) (51) 98470699 Novo Hamburgo/RS MSN: [EMAIL PROTECTED] mailto:regissk8%40terra.com.br com.br [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Quick Report
O Delphi 7 vem com o quick report sem estar instalado por padrão. Para instalar, vá ao menu Component - Install Packages. Na caixa de diálogo que irá se abrir, clique no botão Add e encontro o diretório \bin do Delphi (a localização padrão é C:\Arquivos de Programas\Borland\Delphi7\bin). Selecione o arquivo dclqrt70.bpl e pronto. O Quick Report será instalado. Em 13/02/07, Régis Bender [EMAIL PROTECTED] escreveu: Bom Dia, alguém tem ou sabe me informar aonde eu posso baixar o componente quick report professional para delphi 7? Procurei no google e não consegui sds Bender Desenvolvimento de Sistemas e Serviços Contábeis (Régis) (51) 98470699 Novo Hamburgo/RS MSN: [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Aplicações para palm.
Bom dia Walter! O grande problema é que o pessoal não define o que quer ou precisa fazer. Por exemplo, o amigo que iniciou a thread apenas falou Palm sem especificar o modelo e sequer se ele está tratando de Smartphones. Digo isso pq recentemente tive que desenrolar um nó desses. Alguém na empresa iniciou um plano de compra de equipamentos Palm Tungstein e perguntou se era possível fazer a migração de uma determinada aplicação para eles. Eu disse que seria necessário refazer a aplicação já que a ferramenta (Delphi) não oferece este suporte e passei as alternativas que descrevi na minha primeira mensagem como caminhos possíveis. Nada ficou definido aquela época. Eis que agora recentemente me surgem com essa proposta novamente, mas trabalhando com os Treo 700WX. Quando respondi que era possível com poucas adaptações fazer a migração, quase fui crucificado. Disseram até que eu tinha feito corpo mole na época da primeira pergunta por que Palm é tudo Palm (pode isso?) e não tem diferença nenhuma. Aí toca explicar as diferenças, tecnologia e o escambau pra pessoas que não entendem nada de tecnologia. Foi um parto. E pra me livrar desse parto e aprender mais algumas coisas que eu estou estudando J2ME, por que pelo que eu entendi, futuramente eu só preciso saber se o Palm em questão suporta Java que aí sim posso dizer (sem ter que ficar explicando muito) se a aplicação é compatível ou não ou se pode ser migrada ou não, por que investir nas ferramentas citadas, poucas empresas querem e quando vc diz que não terá custo (teoricamente) adotando uma solução como o J2ME (nesse caso), todos ficam muito felizes, mesmo sem saber que custo disso, por que ele sempre existe. Não quis de maneira nenhuma defender esse ou aquele SO ou produto. Apenas dei indicações das tecnologias possíveis de serem aplicadas, mas não me aprofundei pq nunca trabalhei com as ferramentas citadas. Agora, só pra tirar uma dúvida, quanto custa uma licença do Satellite Forms? Walter Chagas (Yahoo) [EMAIL PROTECTED] escreveu: Ricardo, A linha Treo é uma linha de Smartphones, cujo Windows Mobile cai como uma luva nesta categoria. Pra você ter uma ideia, até os nokia recentes que são Symbiam na veia, estão migrando pro WM. Acredito plenamente que a Palm tenha dado o braço a torcer pelo fato do bill sair na frente (mais uma vez) e se por a frente da concorrência nesta categoria. Lembro bem lá pro ano de 2004 por aí quando a Microsoft tirou de linha os Sistemas operacionais PocketPC e Windows CE e unificou tudo no Windows Mobile (que nada mais é do que uma somatória de características do PocketPC e Windows CE mais os novos recursos implementados) Agora, saiu do segmento SmartPhone (veja bem), a coisa volta ao nicho do palm mesmo. Veja os modelos atuais da Palm, o Zire, o TX e o Tungsten E2. Todos eles trabalham com o Sistema Operacional PalmOS, os quais o Compact Framework AINDA não dá suporte. Mas pelo que já andei lendo na WEB, já estão tomando esta devida providência. Só não tem previsão de quando. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil [EMAIL PROTECTED] http://www.geocities.com/SiliconValley/Bay/1058 MSN: [EMAIL PROTECTED] --- Em delphi-br@yahoogrupos.com.br, Ricardo César Cardoso [EMAIL PROTECTED] escreveu Caro Walter, Por acaso já ouviu falar da linha TREO? Esses Palm's pode rodar SIM com Windows CE. Dá uma olhadela no link abaixo: http://www.palm.com/br/produtos/smartphones/treo700wx/detalhes.html Walter Chagas (Yahoo) [EMAIL PROTECTED] escreveu: Palm não trabalha com Windows CE. Quem trablaha com Windows CE é o PDA e entre PDA e Palm existem várias diferenças. As semelhanças são apenas no tamanho de ambos, que são portateis. Saiu disso daí, é tudo diferente, processador, hardware, sistema operacional, etc. Para Programação para PDA´s, você pode usar o Delphi 2006 que já traz suporte ao compact Framework (O 2005 não traz). Para programação para Palms, Duas boas ferramentas que eu te indico são o Satellite Forms, que usa programação em VB mas é uma ferramenta totalmente interativa e facil de programar nele. Ou então o PocketStudio que tem a IDE identica a do Delphi e usa o pascal como linguagem de programação. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil [EMAIL PROTECTED] http://www.geocities.com/SiliconValley/Bay/1058 MSN: [EMAIL PROTECTED] --- Em delphi-br@yahoogrupos.com.br, Ricardo César Cardoso ricardo_engsoft@ escreveu Existem vários caminhos dependendo do que vc quer: Se o seu Palm tiver Windows CE instalado pode tentar usar o próprio Delphi (só que tem que ser o 2005 ou 2006) instalando o .NET Compact Framework. Se vc já estiver familiarizado com aplicações .NET, não vai notar diferença nenhum.
RES: [delphi-br] Re: O Comando Case
Tente fazer desta forma
function CaseString(const s: string; const x: array of string): Integer;
var i: Integer;
begin
Result := -1;
for i := Low(x) to High(x) do begin
if s = x[i] then begin
Result:= i;
Break;
end;
end;
end;
Use desta forma
Case CaseString(ArquivoExtensao,['.QRP','.JPG','.PDF']) Of
0: showmessage('Quickreport');
1: showmessage('Imagem');
2: begin
showmessage('Adobe');
End;
End;
WELLINGTON
TECLE UP informática - Softwares - Hardwares - Redes
Analista / Programador de Sistemas
* [EMAIL PROTECTED]
Frase da semana: As pessoas que vencem neste mundo são as que procuram as
circunstâncias de que precisam e quando não as encontram, as criam
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Joao
Morais
Enviada em: terça-feira, 13 de fevereiro de 2007 09:17
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Re: O Comando Case
Gabriel Herdt wrote:
Jorge, obrigado pela ajuda. Mas esse não eu o caso eu me refiro ao
comando CASE OF do delphi(2005) não ao CASE WHEN de Select.
Oque eu gostaria de fazer é o seguinte:
case trim(UpperCase(sNome)) of 'Gabriel':
Begin
...
...
End;
`Gustavo': Begin
...
End;
Quanto a Delphi 8 em diante eu não sei, veja o que o help diz a você.
Nas versões anteriores, case trabalha apenas com tipos enumeráveis, ou seja,
char e números inteiros em geral. Ele não foi criado apenas pra bonito, mas
porque o compilador pode gerar um código mais otimizado quando você tem
comparações com estes tipos de dados.
Para fazer um 'case' com string você tem dois caminhos. O mais prático é com a
infinidade de ifs. Não fica muito elegante mas fica um código bem otimizado,
caso a sua preocupação também seja performance. Procure colocar na frente
aqueles if que têm mais chance de dar verdadeiro. Se for indiferente, tanto
faz a ordem. Para que o seu código fique menos feio, chame procedures locais ao
invés de criar um begin/end para cada opção. Caso maiúsculo e minúsculo sejam
indiferentes, use SameText ao invés de string = string.
O caminho mais elegante é criar uma classe para cada resposta, colocar a
resposta correta como um método de classe e registrar todas as classes
envolvidas em uma lista de classes. É uma solução bem mais escalável, mas se o
que você precisa é apenas consultar alguns poucos nomes que nunca vão mudar, é
melhor deixar esta solução de lado e ficar com ifs + procedures locais mesmo.
--
Joao Morais
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Links do Yahoo! Grupos
[delphi-br] Delphi desconectando Unidade
Tenho uma aplicação que le diretórios de um drive(H: meu servidor de FTP; e mostra o conteúdo em ListBox's conforme o diretório, o programa começa funcionando bem, porém depois de um certo tempo o conteúdo dos LisBox's ficam vazios(em branco) o que seria informção de não haver nada nos diretórios mas não e verdade pois ao encerrar o programa e executá-lo novamente o conteúdo nos ListBox's aparecem. Verifiquei que pelo Windows Explorer a conexão existe mas em um dado momento to DELPHI perde tal conexão e só ao reiniciar o programa é que ele enxerga novamente. alguem sabe o que eu deveria fazer para não acontecer mais isto ? grato Stainle
Res: [delphi-br] Sistema de Lan House
Dae galera
Seguinte, tb desenvolvi um sistema de lan house, na verdade ele ja ta rodando
mas nao esta 100% pronto. O que eu queria fazer é o seguinte, enquanto o micro
esta bloqueado para uso (uso um form tela cheia pra isso) nao permitir executar
nenhum programa. Tive alguns problemas com micros usando teclado multimidia.
Sera que isso é possivel??
Valeu
___
Jeferson Adoryan
Técnico em Desenvolvimento de Software
Objetiva Informática LTDA
Fone: (55) 3375 3828
Celular: (55) 8115 4544
Linux Counter #404063
Home Page: http://adoryan.byethost24.com
=
www.softtotal.com.br
www.firehost.com.br
Panambi - RS
- Mensagem original
De: Ricardo César Cardoso [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Segunda-feira, 12 de Fevereiro de 2007 9:51:36
Assunto: Re: [delphi-br] Sistema de Lan House
Estou finalizando um sistema de lan house (fase de personalização
do projeto). Se quiser, posso elaborar um passo-a-passo ou se quiser mais posso
negociar os fontes.
É um sistema relativamente simples, já que na versão onde estou trabalhando não
há necessidade de controlar execução de jogos e/ou programas. É só o controle
de tempo de uso mesmo.
Contato em PVT.
Sds,
Ricardo.
Humberto humbertogrupos@ terra.com. br escreveu:
Olá caros colegas.
Eu irei pegar um sistema de Lan House para desenvolver, e gostaria de saber se
algum de vcs já fez um e se pode me ajudar no sentido de por onde começar
rsrs.. Imagino q seja usando Sockets etc..
Alguém pode me dar uma ajudinha?
Vlw.
[As partes desta mensagem que não continham texto foram removidas]
_ _ _ _ __
Fale com seus amigos de graça com o novo Yahoo! Messenger
http://br.messenger .yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
!--
#ygrp-mlmsg {font-size:13px;font-family:arial,helvetica,clean,sans-serif;}
#ygrp-mlmsg table {font-size:inherit;font:100%;}
#ygrp-mlmsg select, input, textarea {font:99% arial,helvetica,clean,sans-serif;}
#ygrp-mlmsg pre, code {font:115% monospace;}
#ygrp-mlmsg * {line-height:1.22em;}
#ygrp-text{
font-family:Georgia;
}
#ygrp-text p{
margin:0 0 1em 0;
}
#ygrp-tpmsgs{
font-family:Arial;
clear:both;
}
#ygrp-vitnav{
padding-top:10px;
font-family:Verdana;
font-size:77%;
margin:0;
}
#ygrp-vitnav a{
padding:0 1px;
}
#ygrp-actbar{
clear:both;
margin:25px 0;
white-space:nowrap;
color:#666;
text-align:right;
}
#ygrp-actbar .left{
float:left;
white-space:nowrap;
}
.bld{font-weight:bold;}
#ygrp-grft{
font-family:Verdana;
font-size:77%;
padding:15px 0;
}
#ygrp-ft{
font-family:verdana;
font-size:77%;
border-top:1px solid #666;
padding:5px 0;
}
#ygrp-mlmsg #logo{
padding-bottom:10px;
}
#ygrp-vital{
background-color:#e0ecee;
margin-bottom:20px;
padding:2px 0 8px 8px;
}
#ygrp-vital #vithd{
font-size:77%;
font-family:Verdana;
font-weight:bold;
color:#333;
text-transform:uppercase;
}
#ygrp-vital ul{
padding:0;
margin:2px 0;
}
#ygrp-vital ul li{
list-style-type:none;
clear:both;
border:1px solid #e0ecee;
}
#ygrp-vital ul li .ct{
font-weight:bold;
color:#ff7900;
float:right;
width:2em;
text-align:right;
padding-right:.5em;
}
#ygrp-vital ul li .cat{
font-weight:bold;
}
#ygrp-vital a {
text-decoration:none;
}
#ygrp-vital a:hover{
text-decoration:underline;
}
#ygrp-sponsor #hd{
color:#999;
font-size:77%;
}
#ygrp-sponsor #ov{
padding:6px 13px;
background-color:#e0ecee;
margin-bottom:20px;
}
#ygrp-sponsor #ov ul{
padding:0 0 0 8px;
margin:0;
}
#ygrp-sponsor #ov li{
list-style-type:square;
padding:6px 0;
font-size:77%;
}
#ygrp-sponsor #ov li a{
text-decoration:none;
font-size:130%;
}
#ygrp-sponsor #nc {
background-color:#eee;
margin-bottom:20px;
padding:0 8px;
}
#ygrp-sponsor .ad{
padding:8px 0;
}
#ygrp-sponsor .ad #hd1{
font-family:Arial;
font-weight:bold;
color:#628c2a;
font-size:100%;
line-height:122%;
}
#ygrp-sponsor .ad a{
text-decoration:none;
}
#ygrp-sponsor .ad a:hover{
text-decoration:underline;
}
#ygrp-sponsor .ad p{
margin:0;
}
o {font-size:0;}
.MsoNormal {
margin:0 0 0 0;
}
#ygrp-text tt{
font-size:120%;
}
blockquote{margin:0 0 0 4px;}
.replbq {margin:4;}
--
__
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]
[delphi-br] Re: O Comando Case
O Problema é que terei muitas comparações. Eu não quero que passe em todos os if. Pois acho que vai prejudicar a performece. Vai ter mais de 200 If se eu fizer com if. Uma opção seria o case of ok? porem minha coparação é entre valores string e o Case só aceita comparação com numeros certo? --- Em delphi-br@yahoogrupos.com.br, Celso Rivera [EMAIL PROTECTED] escreveu Gabriel, pelo que vi até hoje do case, ele só aceita tipos enumerados. Abraços Celso Rivera [EMAIL PROTECTED] Gabriel Herdt [EMAIL PROTECTED] escreveu: Pessoal o comando case não aceita comparação de strings? Alguma alternativa? Que não seja if if if? case trim(UpperCase(sTabela)) of 'FCHISTOR': Begin Como vai ter muitas comparações eu nao gostaria que passa-se em todas as opções como no if. qual a alternativa? __ 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]
[delphi-br] Versão
Bom Dia ! Gostaria da opinião dos colegas da lista a respeito sobre as versões do Delphi. Atualmente, aonde trabalho, utiliza-se a versão do DELPHI 6 e estamos pensando em dá um update na versão. A principio qual seria a versão mais aconselhada para dá um update e os beneficios e impactos para a mudança desta versão !!! Desde já agradeço qualquer informação Atenciosamente Alessandro Yamasaki
[delphi-br] Problemas na Compilacao AMD64
- TRABALHO COM D7+IBX+FIREBIRD QDO COMPILO MEU SISTEMA EM UMA MAQUINA AMD64 BITS MEU SISTEMA NAUM ESTA FUNCIONANDO EM MAQUINAS P4 TENHO QUE APERTAR COM O BOTAO DIREITO NO EXECUTAVEL E COLOCAR EM MODO DE COMPATIBILIDADE WIN98 E QDO COMPILO EM MEU P4 FUNCIONA NORMALMENTE EM TODOS OS TIPOS DE MAQUINAS O QUE SERA QUE PODE ESTAR ACONTECENDO DE ERRADO ??? [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Problema com DBExpress: unable to load dbexpint.dll
Olá vinicius, descrobi o erro.. no Delphi 7 é dbexpint.dll no bds é dbxint30.dll é mole?!? valeu... []s Em 13/02/07, Vinicius S. L. Ribeiro [EMAIL PROTECTED] escreveu: Poe as DLLs db*.dll (dbExpress) na pasta do seu aplicativo para evitar conflitos de versao. -- Atenciosamente, Vinicius S. L. Ribeiro [EMAIL PROTECTED] vinilistas%40yahoo.com.br GNU/Linux User #293209. Get counted: http://counter.li.org/ Fellipe Henrique escreveu: Olá amigos, estou tendo um problemão com meu DBExpress... Tinha o Delphi7 instalado e instalei o BDS2006, pois bem.. eis que deu um conflito danado nos dois... o que fiz foi remover os dois delphis... mandei limpar o registro do windows... e instalei o BDS2006 do zero foi instalado com sucesso, sem problemas... mas na hora de abrir meu projeto no delphi... dá o erro: [b]unabled to load dbexpint.dll[/b] Como posso solucionar este problema? P.S.: procurei pelo meu HD e não encontrei nada do dbexpess... onde acho estes arquivos? ou uma instalação limpa do DBExpress? Desde já agradeço. []s -- _ Fellipe Henrique [EMAIL PROTECTED] fellipeh%40gmail.com mailto:fellipeh%fellipeh%25 40gmail.com [As partes desta mensagem que não continham texto foram removidas] ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/ -- _ Fellipe Henrique [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] [URGENTE] Formatação Im pressão Matricial
Boa Tarde Ricardo, faço tudo na mão, vou colar o código de como esta.
procedure Tfrmcadordserv.BitBtn1Click(Sender: TObject);
const
CNegrito = #27#71; // Define Caracter Negrito;
SNegrito = #27#72; // Define Caracter Não Negrito;
CExpandido = #14;
SExpandido = #20;
var
a: textfile;
begin
// Imprimindo Ordem de Serviço
assignfile(a,'c:\tmp\cupom.txt');
rewrite(A);
writeln(A,'=
==');
writeln(A,' BRANCO AUTO MECANICA - ESPECIALIZADA EM INJECAO
ELETRONICA ');
writeln(A,'AV. MESSIAS GONCALVES, 1363 - (17) 3325-8055
');
writeln(A,'=
==');
write(A,CNegrito + CExpandido + format('%-29s',['ORDEM DE SERVICO N: ' +
formatfloat('0',strtoint(edit1.text))]));
writeln(A,SNegrito + SExpandido + format('%10s',['DATA:
'+frmordserv.qrordserv.fieldbyname('data').asstring]));
writeln(A);
write(A,format('%-57s',['NOME DO CLIENTE: '+
qrcli.fieldbyname('nome').value]));
writeln(A,format('%-22s',['CELULAR: '+qrcli.fieldbyname('celular').value]));
write(A,format('%-57s',['ENDERECO: '+
qrcli.fieldbyname('endereco').value]));
writeln(A,format('%-22s',['BAIRRO : '+ qrcli.fieldbyname('bairro').value]));
write(A,format('%-57s',['CIDADE: '+ qrcli.fieldbyname('cidade').value]));
writeln(A,format('%-22s',['CEP.: '+ qrcli.fieldbyname('cep').value]));
write(A,format('%-35s',['TELEFONE: '+
qrcli.fieldbyname('telefone').value]));
write(A,format('%-22s',['CPF: '+ qrcli.fieldbyname('cpf').value]));
writeln(A,format('%-22s',['RG: ' + qrcli.fieldbyname('rg').value]));
writeln(A);
write(A,format('%-57s',['MARCA: '+
frmordserv.qrordserv.fieldbyname('marca').value]));
writeln(A,format('%-22s',['MODELO: '+
frmordserv.qrordserv.fieldbyname('modelo').value]));
write(A,format('%-35s',['COR: '+
frmordserv.qrordserv.fieldbyname('cor').value]));
write(A,format('%-22s',['PLACA: '+
frmordserv.qrordserv.fieldbyname('placa').value]));
writeln(A,format('%-22s',['KM DO VEICULO: '+edit3.text]));
writeln(A);
writeln(A,format('%-20s',['FUNCIONARIO: '+
frmordserv.qrordserv.fieldbyname('funcionario').value]));
writeln(A,'=
==');
write(A,format('%-40s',['DISCRIMANACAO']));
write(A,format('%-10s',['QTDE']));
write(A,format('%-18s',['PRECO UNITARIO']));
writeln(A,format('%-10s',['PRECO TOTAL']));
writeln(A,'=
==');
qrhistserv.first;
while not qrhistserv.eof do
begin
write(A,format('%-40s',[qrhistserv.fieldbyname('servico').value]));
write(A,format('%-10s',[qrhistserv.fieldbyname('qtde').value]));
write(A,format('%-18s',[formatfloat('##0.00',qrhistserv.fieldbyname('precoun
').value)]));
write(A,format('%-10s',[formatfloat('##0.00',qrhistserv.fieldbyname('total')
.value)]));
writeln(A);
qrhistserv.next;
end;
writeln(A,'=
==');
write(A,CNegrito + CExpandido + 'TOTAL R$: ');
writeln(A,format('%29.2f',[frmordserv.qrordserv.fieldbyname('total').asfloat
]));
writeln(A,SNegrito + SExpandido +
'===
');
writeln(A);
writeln(A);
writeln(A);
writeln(A);
//writeln(A,'___');
writeln(A,'ASSINATURA DO CLIENTE');
closefile(A);
Tiago de Assis Pimenta
MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED]
Skype: tiagopimenta_skype
Gtalk: tiagopimenta
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Ricardo Berti
Enviada em: terça-feira, 13 de fevereiro de 2007 09:14
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] [URGENTE] Formatação Impressão Matricial
Como você faz pra imprimir? faz tudo na mão ou usa alguma rotina ou
componente? Posta aí que agente te ajuda
Bom Código
Ricardo Berti
- Original Message -
From: Tiago de Assis Pimenta
To: Grupo Delphi
Sent: Monday, February 12, 2007 11:40 PM
Subject: [delphi-br] [URGENTE] Formatação Impressão Matricial
Galera, seguinte, preciso da seguinte informação.
Tem como eu usar o write para fazer o seguinte.
Na hora que chegar num determinado numero de caracter, ele pule para a
proxima linha, mais ou menos no estilo das Celulas do Excel ???
Por ex.: Eu reservo um espaço de 50 caracteres para Descrição do Serviço na
nota, se ele passar de 50, ele pula para a proxima linha, sem atrapalhar a
coluna preço.
Na nota ficaria assim
DESCRIÇÃO | PREÇO
TESTE TESTE TESTE TESTE TESTE
TESTE TESTE TESTE TESTE TESTE R$ 40,00
OUTRO TESTE R$ 20,00
Tem como ?
Tiago de Assis Pimenta
MSN: mailto:tiagopimenta@ mailto:tiagopimenta%40hotmail.com hotmail.com
tiagopimenta@ mailto:tiagopimenta%40hotmail.com hotmail.com
Skype: tiagopimenta_skype
Gtalk: tiagopimenta
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta
[delphi-br] Mensagem Estranha
Delphi 5 e Win 98, antigamente não acontecia isto; mudei algumas coisas no programa e agora ele executa normalmente até que num dado momento com a tela parada ele dá a mensagem : Canvas does Not Allow Drawing e depois a mensagem : Parâmetro Incorreto; não sei o que fazer, alguem saberia ??? grato Stainle
Re: [delphi-br] Re: Aplicações para palm.
Isso é coisa recente então!! O Treo, até o 650 só rodava Palm OS!! Ricardo César Cardoso [EMAIL PROTECTED] escreveu: Caro Walter, Por acaso já ouviu falar da linha TREO? Esses Palm's pode rodar SIM com Windows CE. Dá uma olhadela no link abaixo: http://www.palm.com/br/produtos/smartphones/treo700wx/detalhes.html Walter Chagas (Yahoo) escreveu: Palm não trabalha com Windows CE. Quem trablaha com Windows CE é o PDA e entre PDA e Palm existem várias diferenças. As semelhanças são apenas no tamanho de ambos, que são portateis. Saiu disso daí, é tudo diferente, processador, hardware, sistema operacional, etc. Para Programação para PDA´s, você pode usar o Delphi 2006 que já traz suporte ao compact Framework (O 2005 não traz). Para programação para Palms, Duas boas ferramentas que eu te indico são o Satellite Forms, que usa programação em VB mas é uma ferramenta totalmente interativa e facil de programar nele. Ou então o PocketStudio que tem a IDE identica a do Delphi e usa o pascal como linguagem de programação. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil [EMAIL PROTECTED] http://www.geocities.com/SiliconValley/Bay/1058 MSN: [EMAIL PROTECTED] --- Em delphi-br@yahoogrupos.com.br, Ricardo César Cardoso escreveu Existem vários caminhos dependendo do que vc quer: Se o seu Palm tiver Windows CE instalado pode tentar usar o próprio Delphi (só que tem que ser o 2005 ou 2006) instalando o .NET Compact Framework. Se vc já estiver familiarizado com aplicações .NET, não vai notar diferença nenhum. Inclusive há questão de dias atrás o Andreano divulgou um link com o caminho das pedras de como instalar e criar sua primeira aplicação com o .NET CF no Delphi 2006. A vantagem é que vc continua na mesma IDE e não desembolsa nada pra agregar esse novo pacote de desenvolvimento, já que no Delphi 2005 e 2006 o .NET é uma atualização disponível para usuários registrados. Se vc não quer sair muito da linguagem Pascal, mas quer um ambiente próprio para o desenvolvimento, o PocketStudio pode ser uma boa, se bem que não espere algo idêntico ao Delphi. A única ajuda que o PocketStudio dá é uma IDE. De resto a liguagem é Pascalzão mesmo, até com menos recursos do que a Delphi Language / Object Pascal. Caso vc queira um novo desafio, pode tentar J2ME que é o Java para dispositivos móveis. Particularmente estou estudando por conta isso aqui e estou achando super legal. Não sei se paralelo ou não a essa alternativa, vc pode também dar uma olhada no SuperWABA. Baixei o SuperWABA, mas até agora não instalei pra testar. Um dos motivos é justamente por conta de não saber como instalar ele e adaptar pra usar em companhia do Eclipse. Acredito que sejam estas as alternativas. Não notei ainda nenhum consenso entre qual é a melhor alternativa, mas estas 4 são as mais populares, cabendo ao desenvolvedor focar exatamente o que ele quer e /ou precisa. Sds, Ricardo. Angelo Zanini Paim escreveu:Sei que esse tópico já foi discutido aqui. O meu problema é que preciso fazer uma ferramenta para Palm. Quero começar a usar o PocketStudio, pois é bem parecido com Delphi. Alguém sabe se essa é a melhor saída? será que posso usar Java? Possuo um sistema de banco de dados em Delphi e preciso criar uma ferramenta para manter alguns poucos dados do banco de dados e também criar alguns contratos e sincronizar com o PC. Obrigado a Todos... Henrique Angelo __ 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] __ 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] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos Valfrid-Ly Silva Couto [EMAIL PROTECTED] [EMAIL PROTECTED] [EMAIL PROTECTED] ICQ 15114646 __ 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]
[delphi-br] OPORTUNIDADE RIO DE JANEIRO (DELPHI, BI,JAVA, TESTES, ETC.)
Galera Carnaval esta chegando e estou me antecipando para divulgar as oportunidades que ainda estamos trabalhando :-):-) Com isso gostaria de aproveitar e agradecer a todos os profissionais que nos enviaram currículos e que participaram dos processos seletivos e avisa-los que os candidatos que não foram aprovados e/ou não foram chamados devido a estarem fora do perfil solicitado pelo cliente que manteremos em nosso banco os currículos para futuras oportunidades. Qualquer duvida estaremos a disposição através dos contatos 021 4501 1041 - Jessica e/ou [EMAIL PROTECTED] OPORTUNIDADES RIO DE JANEIRO EM ABERTO * ANALISTA DE TESTES - 3 VAGAS Minimo de 4 anos de experiência no cargo Experiência em Ferramentas de testes Desejável experiência com Delphi e Banco de Dados SQL Server Currículo urgente com a experiência exigida e pretensão salarial para [EMAIL PROTECTED] com o nome da vaga no campo assunto do e-mail TESTES * ANALISTA PROGRAMADOR -3 vagas Experiência de 4 anos com Delphi 5, SQL Server. Experiência com analise e desenvolvimento de sistemas Desejável: UML Oracle Currículo urgente com a experiência exigida e pretensão salarial para [EMAIL PROTECTED] com o nome da vaga no campo assunto do e-mail ANALISTA PROGRAMADOR * PROGRAMADOR VBA EXCEL - 1 VAGA Pelo menos 2 anos de experiência nesse cargo; Bons conhecimentos de SQL (+ ou - um ano de experiência); Saber fazer consultas no banco SQL (o mais importante); Formação Superior ou em curso de Matemática; Excel avançado. Currículo urgente com a experiência exigida e pretensão salarial para [EMAIL PROTECTED] com o nome da vaga no campo assunto do e-mail PROGRAMADOR VBA * DESENVOLVEDOR SENIOR - 9 vagas Experiência de 5 anos em desenvolvimento delphi (30% Analista / 70% Desenvolvedor ) Nível Superior (pode ser incompleto). Linguagem Delphi e Banco de Dados SQL Server. Currículo urgente com a experiência exigida e pretensão salarial para [EMAIL PROTECTED] com o nome da vaga no campo assunto do e-mail DESENVOLVEDOR SENIOR * ANALISTA DE SISTEMAS - 2 VAGAS Experiência de mais de 05 anos em Desenvolvimento de Sistemas, confecção e encontro de cronograma, estimativa de duração de tarefas, confecção de plano de testes, experiências em especificação, modelagem de dados, homologação e organização. Desejável: UML; Vivencia em Automação comercial; Linux; Noções de PMBOK Currículo urgente com a experiência exigida e pretensão salarial para [EMAIL PROTECTED] com o nome da vaga no campo assunto do e-mail ANALISTA DE SISTEMAS * ANALISTA BI - 2 VAGAS Minimo de 4 anos de experiência no cargo Foco em Análise/BI Banco de Dados: SQL Linguagem: Delphi OBS: Pode ser um bom Analista de Sistemas que tenha noções de BI. Nível superior cursando Currículo urgente com a experiência exigida e pretensão salarial para [EMAIL PROTECTED] com o nome da vaga no campo assunto do e-mail ANALISTA BI * DESENVOLVEDOR ORACLE 4 anos de experiência com desenvolvimento Oracle PL/SQL ORACLE FORMS REPORTS Currículos urgente com a experiência exigida em formato .doc com pretensão salarial para [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] com o nome da vaga no campo assunto do e-mail ORACLE * ANALISTA SUPORTE Experiência de 2 anos com SQL Server nível avançado Domínio na elaboração e execução de queries via RM sistemas ou diretamente no Query Analiser. Domínio das ferramentas RM LABORE, CHRONUS , VITAE, com capacidade de abrir chamados na RM e acompanhar atendimentos. Experiência com automatização de processos. Experiência com instalação de softwares, acompanhamento e manutenção feita pelo suporte técnico. Experiência com Acompanhamento e homologação de sistemas Possibilidade de crescimento para a área de analise (requisitos ou testes) Currículo urgente com a experiência exigida e pretensão salarial para [EMAIL PROTECTED] com o nome da vaga no campo assunto do e-mail SUPORTE PROCESSOS FECHADOS * ESTAGIARIO DE INFRA ESTRUTURA * ANALISTA DE SISTEMAS PLENO - 1 VAGA * DESENVOLVEDOR DELPHI - 1 VAGA * DESIGNER - 1 VAGA * ADMINISTRADOR DE DADOS * Designer Web - TODOS OS CURRICULOS DEVEM SER ENCAMINHADOS EM FORMATO .DOC COM O NOME DA VAGA NO CAMPO ASSUNTO E QUALQUER DUVIDA DOS PROCESSOS PODEM SER TIRADAS PELO 021 45011041 - JESSICA OU 011 5507 5756 - JULIANA. [EMAIL PROTECTED] CONHEÇA A IMAGO ATRAVES DO NOSSO SITE : WWW.IMAGO.COM.BR http://www.imago.com.br/ AGRADEÇO A TODOS E UM EXCELENTE CARNAVAL :-):-):-) BJS BIANCA TEIXEIRA Esta mensagem, incluindo quaisquer anexos, é dirigida apenas ao seu destinatário e pode conter informação confidencial e/ou privilegiada e não passível de divulgação nos termos da legislação em vigor. Se você não for o destinatário ou a pessoa autorizada a
RES: [delphi-br] Imagem com transparência
Bom dia a todos. Caro Anderson RB, eu já tinha este DTDelphi, porém, em uma versão antiga. Por isso, novamente, agradeço sua ajuda. Abraço. _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Anderson RB Enviada em: segunda-feira, 12 de fevereiro de 2007 17:34 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Imagem com transparência Que bom que deu certo.. entre nesse link http://japaratuba. http://japaratuba.infonet.com.br/meep/lloydsoft/modules/news/ infonet.com.br/meep/lloydsoft/modules/news/ e baixe o DTDelphi que contem muitas dicas importantes para nos programadores, como essa que te passei.. Ate mais Anderson RB - Original Message - From: Eric To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Sent: Monday, February 12, 2007 7:43 AM Subject: RES: [delphi-br] Imagem com transparência Caro Anderson RB... Muito obrigado por sua ajuda. Implementando este código que você me passou e colocando a propriedade Transparent para True, resulta o efeito que desejo. Muito obrigado mesmo. Abraço. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] apagando conteudo da tabela
Bom dia pessoal!!! Bom estou desenvolvendo um sistema para uma oficina mecanica, estou usando database, table, datasource, dbnavigator!!! Bom compilo e entro no sistema, entro na telas de cadastros, cadastro algumas coisas, so que saio do sistema, e depois de um tempo o conteudo das tabelas apagam sozinhos!!! Já aconteceu isso com alguem? alguem pode me ajudar!!! Estou usando delphi 7.0 + paradox Vlw pessoal obrigado atenção.
Re: [delphi-br] apagando conteudo da tabela
Bem, antes de mais nada.. não use paradox.. esse banco é mto ruin, procure se informar sobre FireBird e como utilizar..aa se informe tb sobre SQL.. como criar Selects etc.. vc vai demorar mais pra fazer o sistema, mas vai ser um sistema de qualidade mto superior. Não entenda isso mal.. é apenas um conselho. =P - Original Message - From: walter_3wm To: delphi-br@yahoogrupos.com.br Sent: Tuesday, February 13, 2007 7:58 AM Subject: [delphi-br] apagando conteudo da tabela Bom dia pessoal!!! Bom estou desenvolvendo um sistema para uma oficina mecanica, estou usando database, table, datasource, dbnavigator!!! Bom compilo e entro no sistema, entro na telas de cadastros, cadastro algumas coisas, so que saio do sistema, e depois de um tempo o conteudo das tabelas apagam sozinhos!!! Já aconteceu isso com alguem? alguem pode me ajudar!!! Estou usando delphi 7.0 + paradox Vlw pessoal obrigado atenção. -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.441 / Virus Database: 268.17.37/682 - Release Date: 12/2/2007 13:23 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Unificar MainMenu
Galera, Alguém com a cabeça mais fresca que a minha, rsrs, pode me dar alguma dica sobre como unificar MainMenus de módulos diferentes? Vou explicar: temos diversos módulos [executáveis diferentes] e consequentemente componentes de menus diferentes. Vamos unificar diversos módulos, porém muitos items de menu de um módulo vão para o outro porque são repetidos. Será que tem alguma técnica pra copiar os itens e subitens de um mainmenu para outro? Já tentei de tudo: pegar o texto no dfm, arrastar e soltar, merge e etc. Acabou minha criatividade, rsrs.. Vlw -- *Adriano Santos*
[delphi-br] Re: Versão
Olha, se dinheiro lá não for problema, sugiro ir pro Delphi 2006. Se for, e vocês não tiverem pretensões de desenvolver aplicações dotNET (O que acho muito pouco provável), então o Turbo Delphi pode ser uma interessante alternativa. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil [EMAIL PROTECTED] http://www.geocities.com/SiliconValley/Bay/1058 MSN: [EMAIL PROTECTED] --- Em delphi-br@yahoogrupos.com.br, Alessandro Yamasaki [EMAIL PROTECTED] escreveu Bom Dia ! Gostaria da opinião dos colegas da lista a respeito sobre as versões do Delphi. Atualmente, aonde trabalho, utiliza-se a versão do DELPHI 6 e estamos pensando em dá um update na versão. A principio qual seria a versão mais aconselhada para dá um update e os beneficios e impactos para a mudança desta versão !!! Desde já agradeço qualquer informação Atenciosamente Alessandro Yamasaki
[delphi-br] Turbo Delphi Explorer + meus componentes (Duvi das e + Dúvidas)
Bom dia amigos da lista. Alguém sabe se ainda é possível ou não instalar componetes que eu criei, variando de componentes da VCL no Turbo Delphi Explorer? Por exemplo... eu criei uma variação de TEdit onde o Enter funciona como tab. Posso instalar esse componente no TDE? Não precisam responder como, mas sim se é possível ou mesmo se é contra a licença. Sds, Ricardo. __ 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]
[delphi-br] Re: Aplicações para palm. [Off]
Você falou, falou, falou e no final disse a mesma coisa que eu disse hehehe. Na verdade, a comunidade que trabalha com o meio, trata Palm e PDA como duas coisas diferentes. Um tem um tipo de arquitetura e processadores, sistema de arquivo e meio de gravação de um jeito. O outro o faz de forma diferente. O problema aqui na lista, e já de anos atrás, é que o pessoal mistura os dois e com o passar dos anos, aqui criou-se uma falsa ideia de que o Delphi ou com o Visual Studio pode programar pra eles também. Na verdade o Delphi 2006 dá suporte ao compact Framework (O Delphi 2005 não oferece este suporte) que permite você desenvolver para portáteis que usem, como sistema operacional, o Windows Mobile ou qualquer outro que trabalhe sobre o dotNET. Windows CE´s do 3.0 pra trás ou o PocketPC mesmo, não tem suporte ao CF portanto para programar neles, você terá que usar outra ferramenta. Da mesma forma que se o portatil usar como Sistema Operacional o PocketLinux (Por favor, não cometam o crime hediondo de perguntar aqui se o Kylix pode, se o Kylix compila..) não vai ter jeito. Se for um SO Symbiam, Jornada ou o Cassiopeia então sem chances. Você vai ter que procurar uma ferramenta de desenvolvimento que permita você programar para estes Sistemas Operacionais. O Palm ainda oferece uma boa gama de ferramentas de desenvolvimento, tais como o Bom Satellite Forms e o PocketStudio. O PocketStudio, para PalmOS, é uma boa pedida pra vocês porque a IDE dele é identica a do Delphi e a linguagem é o Pascal. Mas é só nisso que ambos se identificam. O Pocket não tem VCL, não aceita nada da VCL e tabelas no Palm não trabalham com linguagem SQL. Tudo no padrão da pesquisa binária e ordenação. Programar no PocketStudio é um tipo de programação massante mesmo. Tudo na mão. Se você precisar de programar pro Symbiam ou pro Jornada, a Metrowerks oferece derivações de seu carro Chefe, o Codewarrior, para programar nestes Sistemas Operacionais, mas a linguagem usada neles é o Czão mesmo e tudo tudo na mão. Chamada a bibliotecas e componentes. Programação massante TAMbém. E é como você mesmo disse Henrique, estas ferramentas são quase mágicas mesmo. Não se iludam que alguém vai achar alguma coisa aí que atenda perfeitamente aos pregadores de botão em form, tipo Delphi que tem até Wizard pra gerar cadastro de cliente. NÃO EXISTE! No segmento Windows Mobile e seus adjacentes (Windows CE, etc), a coisa é mais branda porque estes sistemas operacionais tem muita coisa de Windows de PC. Sendo assim a ferramenta de desenvolvimento oferece um canal de facilidades muito maior (Vide o Visual Studio 2005) MAS NÃO SÃO WINDOWS DE PC. Windows Mobile tem suas proprias API´s e Mensagens. não se iluda que basta mandar seu sistema pro portatil que ele vai rodar lá. Agora quanto a programação pra Palm ser Off e pra Windows Mobile não ser, não concordo. Acredito plenamente elas estarem no escopo da lista pois o que o pessoal aqui procura é como programar no Delphi para estes equipamentos. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil [EMAIL PROTECTED] http://www.geocities.com/SiliconValley/Bay/1058 MSN: [EMAIL PROTECTED] --- Em delphi-br@yahoogrupos.com.br, Henrique Netzka \(Vetor Sistemas\) [EMAIL PROTECTED] escreveu Odeio entrar nessas discussões sobre PN, mas só complementando o amigo... PDA = Personal Digital Assistant. Um Palm qualquer-coisa é um PDA, um HP iPAQ é um PDA, um Dell não-sei-o-quê é um PDA. Tudo é PDA. PDA é um computadorzinho portátil com touchscreen. Não necessariamente, mas vocês entenderam... Palm é um fabricante, o qual fabrica também o PalmOS (sistema operacional). Como é de se esperar, a programação para o PalmOS é diferente da programação para Windows Mobile. O Windows suporta até .NET Framework, e é muito fácil pra desenvolver porque você usa o Visual Studio ou o Delphi. Para PalmOS, o desenvolvimento é feito em outras linguagens, e não tem nenhuma interface mágica para fazer os sistemas.. Tem umas que são quase mágicas, mas no fim das contas você chuta tudo e resolve programar em notepad heheheh Resumindo... Programação pra Palm, nessa lista, é Off. Programação pra PDAs que utilizam Windows Mobile têm mais a ver com a lista :) Um abraço - Original Message - From: Walter Chagas (Yahoo) To: delphi-br@yahoogrupos.com.br Sent: Monday, February 12, 2007 11:37 AM Subject: [delphi-br] Re: Aplicações para palm. Palm não trabalha com Windows CE. Quem trablaha com Windows CE é o PDA e entre PDA e Palm existem várias diferenças. As semelhanças são apenas no tamanho de ambos, que são portateis. Saiu disso daí, é tudo diferente, processador, hardware, sistema operacional, etc. Para Programação para PDA´s, você pode usar o Delphi 2006 que já traz suporte ao compact Framework (O 2005 não traz). Para programação para Palms, Duas boas ferramentas que eu te indico são o Satellite Forms,
Re: [delphi-br] Turbo Delphi Explorer + meus compone ntes (Duvidas e + Dúvidas)
Umas das limitações da versão Explorer é exatamente essa. Sugiro que vc adquira a versão Professional, ela é vendida a $1200,00 se não me engano. - Original Message - From: Ricardo César Cardoso To: delphi-br@yahoogrupos.com.br Sent: Tuesday, February 13, 2007 11:24 AM Subject: [delphi-br] Turbo Delphi Explorer + meus componentes (Duvidas e + Dúvidas) Bom dia amigos da lista. Alguém sabe se ainda é possível ou não instalar componetes que eu criei, variando de componentes da VCL no Turbo Delphi Explorer? Por exemplo... eu criei uma variação de TEdit onde o Enter funciona como tab. Posso instalar esse componente no TDE? Não precisam responder como, mas sim se é possível ou mesmo se é contra a licença. Sds, Ricardo. __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.441 / Virus Database: 268.17.37/682 - Release Date: 12/2/2007 13:23 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Potenciação multibancos
O problema eh q eh gerada uma tabela paradox com os dados vindos do banco e em um campo deve conter este cálculo... mas este problema já foi resolvido! =] Obrigada pela atenção.. Tamara Clemente Analista Desenvolvedor Em 13/02/07, Ricardo César Cardoso [EMAIL PROTECTED] escreveu: Nesse caso nao seria melhor tratar esse calculo na aplicação, apenas trazendo os dados necessários do banco? Aí vc não precisaria verificar qual de banco se trata. Sds, Ricardo. Tamara Clemente [EMAIL PROTECTED] tamara.grupos%40gmail.com escreveu: Se eu tb entendi bem, Ricardo...rs.. seria isso msm... tenho um controle de verificação de qual banco de trata, e ai então executo o sql de acordo com o banco... encontrei como faço em SQL Server, mas firebird e oracle ainda ñ, se puderem me ajudar, agradeço muito. Obrigada, Tamara Clemente Analista Desenvolvedor Em 12/02/07, Ricardo César Cardoso [EMAIL PROTECTED]ricardo_engsoft%40yahoo.com.br escreveu: Se entendi bem, o Jorge faz o cálculo na aplicação e vc quer implementar uma UDF para cada banco, não é isso? Tamara Clemente [EMAIL PROTECTED] tamara.grupos%40gmail.com tamara.grupos%40gmail.com escreveu: Opa Jorge, obrigada pela atenção... O q eu preciso eh da sintaxe nos 3 bancos, sei q tem diferença... tenho td o esquema de trabalho com os 3 bancos, só preciso do select com potencia compativel com cada um deles... Obrigada, Tamara Clemente Analista Desenvolvedora Em 12/02/07, Jorge Ericsson [EMAIL PROTECTED]jericssonsup%40gmail.com jericssonsup%40gmail.com escreveu: Sem problemas se vc utilizar três conexões com os bancos. Eu faço isso utilizando DBExpress (D7) e depois de gerar o dataset eu trabalho da forma que melhor me convier. Espero ter ajudado. Em 09/02/07, Tamara Clemente [EMAIL PROTECTED]tamara.grupos%40gmail.com tamara.grupos%40gmail.com tamara.grupos%40gmail.com escreveu: Boa noite povo, Td bem? Seguinte: estou com um problema na montagem de um comando sql, só q este comando tem q ter correspondencia em 3 bancos de dados distintos: SQLServer, Oracle e Firebird. Neste comando eu preciso fazer a operação de potencia... podem me ajudar?? Obrigada, Tamara Clemente Analista Desenvolvedor [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] OFF TOPIC - INSTALAR Servico
vlw
obrigado pela forca
Em 12/02/07, Edu Nicácio [EMAIL PROTECTED] escreveu:
Aí eu teria que dar uma estudada mais a fundo para ver se há outros
parâmetros que podem ser passados ao serviço no momento da sua instalação.
Vou dar uma caçada aqui e qualquer coisa posto aqui na lista.
Abraço, e que bom que ajudei.
Boa sorte aí...
--
Atenciosamente:
Eduardo Cláudio Nicácio
Analista Programador JR.
Fábrica 02 - CTIS
Tel.: (11) 3150-6834
[EMAIL PROTECTED] rsn01.web03%40telesp.com.br
- Original Message -
From: Gabriel Filho
To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
Sent: Thursday, February 08, 2007 10:49 AM
Subject: Re: [delphi-br] OFF TOPIC - INSTALAR Servico
Ok,
Muito obrigado...
mas no qdo ele executar a instalacao do servico não vai aparecer aquela
mensagem em ingles dizendo que o o servico foi instalado com sucesso?
pois eu queria eveitar isso. Ou não tem como?
Em 08/02/07, Edu Nicácio [EMAIL PROTECTED]ecnicacio_2005%40yahoo.com.br
escreveu:
Sim.
Use o IS Tool para, no momento da instalação, após a gravação dos
arquivos
no diretório correspondente, ele executar o seu serviço passando o
parâmetros de instalação.
O trecho do script fica mais ou menos assim:
[Run]
Filename: {app}\ctis_service.exe; Flags: waituntilidle shellexec
runhidden; Parameters: /INSTALL; WorkingDir: {app}; MinVersion: 0,
4.0.1381sp6
Filename: {sys}\net.exe; Parameters: start CTIS FTP Scheduler
Service; WorkingDir: {sys}; Flags: shellexec waituntilidle runhidden;
MinVersion: 0,4.0.1381sp6; Languages:
Lembre-se de colocar esse bloco após o bloco [Files].
Outra coisa. Você pode iniciar seu serviço automaticamente chamando
net.exe e passando como parâmetros start Seu serviço.
Na remoção, faça o processo inverso, ou seja, use net.exe com os
parãmetros stop Seu serviço e depois desinstale-o.
Dê uma olhada:
[UninstallRun]
Filename: {sys}\net.exe; Parameters: stop CTIS FTP Scheduler
Service; WorkingDir: {sys}; Flags: shellexec waituntilidle runhidden;
MinVersion: 0,4.0.1381sp6; Languages:
Filename: {app}\ctis_service.exe; Parameters: /UNINSTALL; WorkingDir:
{app}; MinVersion: 0,4.0.1381sp6; Languages: ; Flags: waituntilidle
shellexec runhidden
Espero ter ajudado.
Abraços.
--
Atenciosamente:
Eduardo Cláudio Nicácio
Analista Programador JR.
Fábrica 02 - CTIS
Tel.: (11) 3150-6834
[EMAIL PROTECTED] rsn01.web03%40telesp.com.br
rsn01.web03%40telesp.com.br
- Original Message -
From: Gabriel Filho
To: delphi-br@yahoogrupos.com.br
delphi-br%40yahoogrupos.com.brdelphi-br%40yahoog
rupos.com.br
Sent: Thursday, February 08, 2007 9:59 AM
Subject: [delphi-br] OFF TOPIC - INSTALAR Servico
Bom dia pessoal...
Parece q tem bastante gente perguntando sobreo innosetup, mas fazer oq??
Gostaria de saber se alguem sabe se da pra criar um instalador de
servico
com o innosetup???
Desde já agradeço
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Filtrar somente campos vazios usando sql.add
Olá Galera,
Preciso muito resolver esse problema, podem me ajudar?
Preciso filtar somente campos vazios.
Segue abaixo a linha de codigo que estou usando.
if cb02.Text = 'Vazio' then
begin
dados.Dados_pedidos.Qry_pedidos.Close;
dados.Dados_pedidos.Qry_pedidos.SQL.Clear;
dados.Dados_pedidos.Qry_pedidos.SQL.Add('select * from
PEDIDOGERAL where PREVISAO_ENTREGA_CLIENTE is null');
end;
dados.Dados_pedidos.Qry_pedidos.Prepare;
dados.Dados_pedidos.Qry_pedidos.Open;
A mensagem de erro que recebo é: Invalid use of keyword. Token:select
Desde já grato,
Marcos Brandão
[delphi-br] DBX com Trigger e Generator
Olá, gostaria de saber como faço para poder usar DBX com trigger e generator, eu uso no MDO e funciona 100%, agora estou aprendendo a usar o DBX e está dando erro ao inserir os dados, gostaria de saber como devo proceder, uso SQLDataSet, Provider, ClienteDataSet e DataSource. Desde já agradeço a ajuda de todos. Att. Rodrigo ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/
Re: [delphi-br] Turbo Delphi Explor er + meus componentes (Duvidas e + Dúvi das)
Ricardo César Cardoso wrote: Alguém sabe se ainda é possível ou não instalar componetes que eu criei, variando de componentes da VCL no Turbo Delphi Explorer? Por exemplo... eu criei uma variação de TEdit onde o Enter funciona como tab. Posso instalar esse componente no TDE? Não precisam responder como, mas sim se é possível ou mesmo se é contra a licença. Li a licença uma vez e não vi nada contra, contanto que você não hackeie nenhum binário da IDE. Para instalar, coloque todas as units com a procedure Register mais os .res e .dcr dentro do package de usuário, recompile-o e reinicie a IDE. -- João Morais
Re: [delphi-br] Lotomania
Tenho um software que desenvolvi que faz isso. Se for do seu interesse entre em contato em PVT ou me add no msn [EMAIL PROTECTED] Eduardo giuvany ribeiro escreveu: Bom dia Pessoal Tenho que desenvolver um pequeno executável onde o formulário possue os mesmos numero da lotomania 00-99 e o numero da cartela. E o usuário vai informar apenas 20 numeros por cartela que ele quer e após isto o programa vai ter que pesquisar as cartelas que mais acertarem números em um sorteio de 50 numeros. Pergunta. Neste caso o ideal seria criar uma tabela com os 100 campos dos números da cartela e + o numero do bilhete? Se sim para mostrar este 100 numeros como vcs fariam para o usuário escolher? Qual componente usar? Desde já agradeço a aternção __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/
Re: [delphi-br] Turbo Delphi Explorer + meus compone ntes (Duvidas e + Dúvidas)
Segue documentação do site da borland: http://www.codegear.com/portals/0/documents/products/turbo/turbo_delphi_datasheet.pdf - Original Message - From: Joao Morais To: delphi-br@yahoogrupos.com.br Sent: Tuesday, February 13, 2007 12:34 PM Subject: Re: [delphi-br] Turbo Delphi Explorer + meus componentes (Duvidas e + Dúvidas) Ricardo César Cardoso wrote: Alguém sabe se ainda é possível ou não instalar componetes que eu criei, variando de componentes da VCL no Turbo Delphi Explorer? Por exemplo... eu criei uma variação de TEdit onde o Enter funciona como tab. Posso instalar esse componente no TDE? Não precisam responder como, mas sim se é possível ou mesmo se é contra a licença. Li a licença uma vez e não vi nada contra, contanto que você não hackeie nenhum binário da IDE. Para instalar, coloque todas as units com a procedure Register mais os .res e .dcr dentro do package de usuário, recompile-o e reinicie a IDE. -- João Morais -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.441 / Virus Database: 268.17.37/682 - Release Date: 12/2/2007 13:23 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Turbo Delphi Explorer + meus compone ntes (Duvidas e + Dúvidas)
Só pra facilitar, procure essa linha no pdf: Build and install new, open-source, or commercial components - Original Message - From: Joao Morais To: delphi-br@yahoogrupos.com.br Sent: Tuesday, February 13, 2007 12:34 PM Subject: Re: [delphi-br] Turbo Delphi Explorer + meus componentes (Duvidas e + Dúvidas) Ricardo César Cardoso wrote: Alguém sabe se ainda é possível ou não instalar componetes que eu criei, variando de componentes da VCL no Turbo Delphi Explorer? Por exemplo... eu criei uma variação de TEdit onde o Enter funciona como tab. Posso instalar esse componente no TDE? Não precisam responder como, mas sim se é possível ou mesmo se é contra a licença. Li a licença uma vez e não vi nada contra, contanto que você não hackeie nenhum binário da IDE. Para instalar, coloque todas as units com a procedure Register mais os .res e .dcr dentro do package de usuário, recompile-o e reinicie a IDE. -- João Morais -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.441 / Virus Database: 268.17.37/682 - Release Date: 12/2/2007 13:23 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] TLS + socket
Boa tarde pessoal, Gostaria de saber se vcs já utilizaram conexões via socket+tls+certificado é que tem um servico em c++ no qual preciso conectar, porem o mesmo só aceita conxão com TLS+certificado alguem ai pode me dar uma luz sobre isso?!?! desde já agradeço a todos [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Preciso Integrar DBF (Clipper) com o Oracle
Pessoal boa tarde, estou migrando para o Delphi 2006, antes utilizava Delphi 6, e preciso fazer um a aplicação onde possa integrar algumas tabelas DBF (Clipper) com o Oracle, para o caso do Oracle estou utilizando o componente Odac, e para o clipper utilizava o VK_DBF, alguém saberia me informar se existe esse do clipper para Delphi 2006 ??? ou teria outro para utilizar. Desde já agradeço, César Eduardo Teixeira Silva Programador CPD [EMAIL PROTECTED] www.ober.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Turbo Delphi Explorer + meus compone ntes (Duvidas e + Dúvidas)
Bem eu li claramente na documentação que não é possível inserir componentes externos. - Original Message - From: Joao Morais To: delphi-br@yahoogrupos.com.br Sent: Tuesday, February 13, 2007 12:34 PM Subject: Re: [delphi-br] Turbo Delphi Explorer + meus componentes (Duvidas e + Dúvidas) Ricardo César Cardoso wrote: Alguém sabe se ainda é possível ou não instalar componetes que eu criei, variando de componentes da VCL no Turbo Delphi Explorer? Por exemplo... eu criei uma variação de TEdit onde o Enter funciona como tab. Posso instalar esse componente no TDE? Não precisam responder como, mas sim se é possível ou mesmo se é contra a licença. Li a licença uma vez e não vi nada contra, contanto que você não hackeie nenhum binário da IDE. Para instalar, coloque todas as units com a procedure Register mais os .res e .dcr dentro do package de usuário, recompile-o e reinicie a IDE. -- João Morais -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.441 / Virus Database: 268.17.37/682 - Release Date: 12/2/2007 13:23 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Pegar o MAC do micro - duvidas
Amigo, desculpe, mas esta função não pega um MAC e sim CRIA aleatóriamente um virtual. Tanto é, que cada vez que vc pedir o MAC vai vir um numero diferente.. Luiz Escobar Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase DOS - Clipper/Assembler xBase SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k LINUX - LAZARUS/Kylix/MySQL; http://www.megasistema.com.br - Original Message - From: Rodrigo Madureira Barbosa To: delphi-br@yahoogrupos.com.br Sent: Monday, February 12, 2007 6:29 PM Subject: RES: [delphi-br] Pegar o MAC do micro - duvidas Tenho uma aqui... se servir... aí está... function CoCreateGuid(var guid: TGUID): HResult; stdcall; far external 'ole32.dll'; function GetMACAddress: string; var g: TGUID; i: Byte; begin Result := ''; CoCreateGUID(g); for i := 2 to 7 do Result := Result + IntToHex(g.D4[i], 2); end; Fui... Rodrigo. _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Thiago Filiano (America Soft) Enviada em: segunda-feira, 12 de fevereiro de 2007 15:33 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Pegar o MAC do micro - duvidas não estou com essa rotina aqui.. mas amanhã se conseguir coloco aqui sim! Luiz Escobar escreveu: se quizer mandar ela pra gente dar uma olhada acho q fica mais facil... Luiz Escobar Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase DOS - Clipper/Assembler xBase SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k LINUX - LAZARUS/Kylix/MySQL; http://www.megasist http://www.megasistema.com.br ema.com.br http://www.megasist http://www.megasistema.com.br ema.com.br - Original Message - From: Thiago Filiano (America Soft) To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Monday, February 12, 2007 3:16 PM Subject: Re: [delphi-br] Pegar o MAC do micro - duvidas então Luiz, tenho sim.. e eh aqui q esta o problema.. minha rotina esta pegando o MAC certinho, mas acontece que tem cliente que esta dizendo que o cabo está desconectado.. mas mesmo assim está identificando o MAC dele. a rotina foi feita para identificar o MAC somente com placa de rede ativa. não sei o que esta ocorrendo :( []'s Thiago Luiz Escobar escreveu: Bom vc tem alguma rotina para ler direto do dispositivo ? pq acho q as q tenho são usando API´s Creio que isso seria de grande ajuda para todos. obrigado. Luiz Escobar Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase DOS - Clipper/Assembler xBase SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k LINUX - LAZARUS/Kylix/MySQL; http://www.megasist http://www.megasistema.com.br ema.com.br http://www.megasist http://www.megasistema.com.br ema.com.br http://www.megasist http://www.megasistema.com.br ema.com.br http://www.megasist http://www.megasistema.com.br ema.com.br - Original Message - From: Andre Veloso de Mesquita To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Friday, February 09, 2007 8:25 PM Subject: Re: [delphi-br] Pegar o MAC do micro - duvidas Nota: No Windows é possível trocar o MAC. O MAC não será trocado na placa de rede, mas sim na camada lógica do Windows. Logo, quando vc ler o MAC, tente lê-lo no dispositivo e não usando uma API qq do Windows. [ ]'s - Original Message - From: Luiz Escobar [EMAIL PROTECTED] mailto:escobar%40megasistema.com.br .com.br mailto:escobar%40megasistema.com.br mailto:escobar%40megasistema.com.br To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Friday, February 09, 2007 5:22 PM Subject: Re: [delphi-br] Pegar o MAC do micro - duvidas BLZ Thiago.. Bom o modem não tem MAC-address, pode até ter um código de indentificação, mas não sei como pegar isso MAC-address é um número de série gravador na sua placa de rede, cada uma tem o seu (acontece de repetir, mas é raro, então esqueca isso por enquanto, mas saiba que acontece!).. SIM, tendo ou não o cabo conectado vc vai ter sempre o mesmo número MAC. exemplo de MAC : 00:0A:E6:40:1B:49 ou 000A:E640:1B49 ou 000AE6401B49 é um valor de 48 bit´s. então a cada 281.474.976.710.655 vai se repetir rsrsrsrs não é bem assim não, mas deixa isso pra lá heheheheh O que pode mudar
RE: [delphi-br] Re: O Comando Case
A sentença CASE só pode ser usada com tipos de dados ordinais (integer,
char, byte, boolean) e tipos enumerados. Se quiser usar com string, sugiro
fazer uso da função AnsiIndexStr().
Exemplo:
procedure TForm1.Button1Click(Sender: TObject);
var
lBusca: String;
lStrings: array of String;
begin
lBusca := 'DA';
SetLength(lStrings, 4);
lStrings[0] := 'RUBEM';
lStrings[1] := 'ROCHA';
case AnsiIndexStr(lBusca, lStrings) of
0: ShowMessage('Achou a palavra');
-1: ShowMessage('Não achou a palavra');
end;
end;
Sds.
From: Gabriel Herdt [EMAIL PROTECTED]
Reply-To: delphi-br@yahoogrupos.com.br
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] Re: O Comando Case
Date: Tue, 13 Feb 2007 10:42:00 -
Jorge, obrigado pela ajuda. Mas esse não eu o caso eu me refiro ao
comando CASE OF do delphi(2005) não ao CASE WHEN de Select.
Oque eu gostaria de fazer é o seguinte:
case trim(UpperCase(sNome)) of 'Gabriel':
Begin
End;
`Gustavo': Begin
End;
Pessoal o comando case não aceita comparação de strings?
Alguma alternativa? Que não seja if if if?
case trim(UpperCase(sTabela)) of 'FCHISTOR': Begin
Como vai ter muitas comparações eu não gostaria que passasse em
todas
s opções como no if.
qual a alternativa?
--- Em delphi-br@yahoogrupos.com.br, Jorge Ericsson
[EMAIL PROTECTED] escreveu
Gabriel eu não sei qual o banco que vc utiliza, mas tente a
condição abaixo
caso esteje trabalhando com o ORACLE.
SELECT CASE TRIM(TO_CHAR(TO_DATE(TO_CHAR(vCONT) || '/' ||
vMES_INPUT || '/'
|| vANO_INPUT,'dd-mm-') , 'Day'))
WHEN 'Segunda-Feira' then 'Segunda'
WHEN 'Terça-Feira' then 'Terça'
WHEN 'Quarta-Feira' then 'Quarta'
WHEN 'Quinta-Feira' then 'Quinta'
WHEN 'Sexta-Feira' then 'Sexta'
WHEN 'Sábado' then 'Sábado'
WHEN 'Domingo' then 'Domingo'
ELSE 'NENHUM'
END INTO vDIA_SEMANA FROM DUAL;
[]´s
Em 12/02/07, Gabriel Herdt [EMAIL PROTECTED] escreveu:
Pessoal o comando case não aceita comparação de strings?
Alguma alternativa? Que não seja if if if?
case trim(UpperCase(sTabela)) of 'FCHISTOR': Begin
Como vai ter muitas comparações eu nao gostaria que passa-se em
todas
as opções como no if.
qual a alternativa?
[As partes desta mensagem que não continham texto foram removidas]
_
MSN Hotmail, o maior webmail do Brasil. http://www.hotmail.com
Re: [delphi-br] Pegar o MAC do micro - duvidas
É verdade, Luiz! A função CoCreateGUID() cria um novo GUID (Global Unique IDentifier). Se quiser saber como pegar o MAC Address real do micro, consulte http://www.swissdelphicenter.ch/en/showcode.php?id=651 Sds. From: Luiz Escobar [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] Pegar o MAC do micro - duvidas Date: Tue, 13 Feb 2007 13:43:37 -0200 Amigo, desculpe, mas esta função não pega um MAC e sim CRIA aleatóriamente um virtual. Tanto é, que cada vez que vc pedir o MAC vai vir um numero diferente.. Luiz Escobar Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase DOS - Clipper/Assembler xBase SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k LINUX - LAZARUS/Kylix/MySQL; http://www.megasistema.com.br - Original Message - From: Rodrigo Madureira Barbosa To: delphi-br@yahoogrupos.com.br Sent: Monday, February 12, 2007 6:29 PM Subject: RES: [delphi-br] Pegar o MAC do micro - duvidas Tenho uma aqui... se servir... aí está... function CoCreateGuid(var guid: TGUID): HResult; stdcall; far external 'ole32.dll'; function GetMACAddress: string; var g: TGUID; i: Byte; begin Result := ''; CoCreateGUID(g); for i := 2 to 7 do Result := Result + IntToHex(g.D4[i], 2); end; Fui... Rodrigo. _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Thiago Filiano (America Soft) Enviada em: segunda-feira, 12 de fevereiro de 2007 15:33 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Pegar o MAC do micro - duvidas não estou com essa rotina aqui.. mas amanhã se conseguir coloco aqui sim! Luiz Escobar escreveu: se quizer mandar ela pra gente dar uma olhada acho q fica mais facil... Luiz Escobar Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase DOS - Clipper/Assembler xBase SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k LINUX - LAZARUS/Kylix/MySQL; http://www.megasist http://www.megasistema.com.br ema.com.br http://www.megasist http://www.megasistema.com.br ema.com.br - Original Message - From: Thiago Filiano (America Soft) To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Monday, February 12, 2007 3:16 PM Subject: Re: [delphi-br] Pegar o MAC do micro - duvidas então Luiz, tenho sim.. e eh aqui q esta o problema.. minha rotina esta pegando o MAC certinho, mas acontece que tem cliente que esta dizendo que o cabo está desconectado.. mas mesmo assim está identificando o MAC dele. a rotina foi feita para identificar o MAC somente com placa de rede ativa. não sei o que esta ocorrendo :( []'s Thiago Luiz Escobar escreveu: Bom vc tem alguma rotina para ler direto do dispositivo ? pq acho q as q tenho são usando API´s Creio que isso seria de grande ajuda para todos. obrigado. Luiz Escobar Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase DOS - Clipper/Assembler xBase SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k LINUX - LAZARUS/Kylix/MySQL; http://www.megasist http://www.megasistema.com.br ema.com.br http://www.megasist http://www.megasistema.com.br ema.com.br http://www.megasist http://www.megasistema.com.br ema.com.br http://www.megasist http://www.megasistema.com.br ema.com.br - Original Message - From: Andre Veloso de Mesquita To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Friday, February 09, 2007 8:25 PM Subject: Re: [delphi-br] Pegar o MAC do micro - duvidas Nota: No Windows é possível trocar o MAC. O MAC não será trocado na placa de rede, mas sim na camada lógica do Windows. Logo, quando vc ler o MAC, tente lê-lo no dispositivo e não usando uma API qq do Windows. [ ]'s - Original Message - From: Luiz Escobar [EMAIL PROTECTED] mailto:escobar%40megasistema.com.br .com.br mailto:escobar%40megasistema.com.br mailto:escobar%40megasistema.com.br To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Friday, February 09, 2007 5:22 PM Subject: Re: [delphi-br] Pegar o MAC do micro - duvidas BLZ Thiago.. Bom o modem não tem MAC-address, pode até ter um código de indentificação, mas não sei como pegar isso MAC-address é um
Re: [delphi-br] Turbo Delphi Explorer + meus compone ntes (Duvidas e + Dúvidas)
Então na dúvida não faça =D Afinal melhor não fazer e saber q não está fazendo nada errado do que arriscar. Ou ainda entrar em contato com a Borland para saber. - Original Message - From: Joao Morais To: delphi-br@yahoogrupos.com.br Sent: Tuesday, February 13, 2007 2:35 PM Subject: Re: [delphi-br] Turbo Delphi Explorer + meus componentes (Duvidas e + Dúvidas) Humberto wrote: Só pra facilitar, procure essa linha no pdf: Build and install new, open-source, or commercial components Isto o povo já tá cansado de saber, agora o povo quer saber se está infringindo a licença ao compilar código, seja próprio ou de terceiros, no package de usuário. Segundo a licença que eu li uma única vez, com meu inglês arrastado, não diz nem que sim nem que não. -- João Morais -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.441 / Virus Database: 268.17.37/682 - Release Date: 12/2/2007 13:23 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Listar computadores da rede
Preciso de uma função/componente que liste todos os nomes E IP´s dos computadores da rede. ALLguem tem algo parecido ? Luiz Escobar Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase DOS - Clipper/Assembler xBase SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k LINUX - LAZARUS/Kylix/MySQL; http://www.megasistema.com.br
[delphi-br] mudar bd
Preciso mudar minha aplicação para usar o MS-SQL, existe algo importante a saber em relação a usar o FB? Qual o melhor compnente de acesso? Aldinei _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Humberto Enviada em: terça-feira, 13 de fevereiro de 2007 14:40 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Turbo Delphi Explorer + meus componentes (Duvidas e + Dúvidas) Segue documentação do site da borland: http://www.codegear http://www.codegear.com/portals/0/documents/products/turbo/turbo_delphi_dat asheet.pdf .com/portals/0/documents/products/turbo/turbo_delphi_datasheet.pdf - Original Message - From: Joao Morais To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Sent: Tuesday, February 13, 2007 12:34 PM Subject: Re: [delphi-br] Turbo Delphi Explorer + meus componentes (Duvidas e + Dúvidas) Ricardo César Cardoso wrote: Alguém sabe se ainda é possível ou não instalar componetes que eu criei, variando de componentes da VCL no Turbo Delphi Explorer? Por exemplo... eu criei uma variação de TEdit onde o Enter funciona como tab. Posso instalar esse componente no TDE? Não precisam responder como, mas sim se é possível ou mesmo se é contra a licença. Li a licença uma vez e não vi nada contra, contanto que você não hackeie nenhum binário da IDE. Para instalar, coloque todas as units com a procedure Register mais os .res e .dcr dentro do package de usuário, recompile-o e reinicie a IDE. -- João Morais -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.441 / Virus Database: 268.17.37/682 - Release Date: 12/2/2007 13:23 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Listar computadores da rede
http://www.swissdelphicenter.ch/en/showcode.php?id=2177 From: Luiz Escobar [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: [YAHOO] Delphi BR delphi-br@yahoogrupos.com.br Subject: [delphi-br] Listar computadores da rede Date: Tue, 13 Feb 2007 15:40:50 -0200 Preciso de uma função/componente que liste todos os nomes E IP´s dos computadores da rede. ALLguem tem algo parecido ? Luiz Escobar Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase DOS - Clipper/Assembler xBase SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k LINUX - LAZARUS/Kylix/MySQL; http://www.megasistema.com.br _ MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br
RE: [delphi-br] Turbo Delphi Explorer + meus compo nentes (Duvidas e + Dúvidas)
Humberto, não é permitido instalar novos componentes no Turbo Explorer, esta funcionalidade está disponível no Turbo Professional. Você pode adquirir em N vezes através do www.borlandshop.com.br []'s Andreano Lanusse | CodeGear Product Line Manager | phone. +1-(831) 431-5051 | mobile. +1 (831) 332-5100 CodeGear http://www.codegear.com http://www.codegear.com/ Artigos: http://dn.codegear.com/br http://dn.codegear.com/br Blogs: http://blogs.codegear.com/andreanolanusse http://blogs.codegear.com/andreanolanusse [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Listar computadores da rede
Aproveitando o gancho.. tb preciso rs - Original Message - From: Luiz Escobar To: [YAHOO] Delphi BR Sent: Tuesday, February 13, 2007 2:40 PM Subject: [delphi-br] Listar computadores da rede Preciso de uma função/componente que liste todos os nomes E IP´s dos computadores da rede. ALLguem tem algo parecido ? Luiz Escobar Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase DOS - Clipper/Assembler xBase SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k LINUX - LAZARUS/Kylix/MySQL; http://www.megasistema.com.br -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.441 / Virus Database: 268.17.37/682 - Release Date: 12/2/2007 13:23 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Turbo Delphi Explorer + meus compone ntes (Duvidas e + Dúvidas)
Exatamente.. somente no professional - Original Message - From: Andreano Lanusse To: delphi-br@yahoogrupos.com.br Sent: Tuesday, February 13, 2007 2:57 PM Subject: RE: [delphi-br] Turbo Delphi Explorer + meus componentes (Duvidas e + Dúvidas) Humberto, não é permitido instalar novos componentes no Turbo Explorer, esta funcionalidade está disponível no Turbo Professional. Você pode adquirir em N vezes através do www.borlandshop.com.br []'s Andreano Lanusse | CodeGear Product Line Manager | phone. +1-(831) 431-5051 | mobile. +1 (831) 332-5100 CodeGear http://www.codegear.com http://www.codegear.com/ Artigos: http://dn.codegear.com/br http://dn.codegear.com/br Blogs: http://blogs.codegear.com/andreanolanusse http://blogs.codegear.com/andreanolanusse [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.441 / Virus Database: 268.17.37/682 - Release Date: 12/2/2007 13:23 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: Listar computadores da rede
vê se ajuda: procedure FindComputers(Workgroup: string; aResList: TStrings); var eNumHandle : THandle; WorkgroupRS : TNetResource; Buf : array[1..500] of TNetResource; BufSize : DWORD; Entries : DWORD; Result : integer; sComputer: String; begin if not Assigned(aResList) then Exit; aResList.Clear; WorkGroup := Workgroup + #0; FillChar(WorkGroupRS, SizeOf(WorkGroupRS), 0); with WorkgroupRS do begin dwScope := 2; dwType := 3; dwDisplayType := 1; dwUsage := 1; lpRemoteName := @Workgroup[1]; end; WNetOpenEnum(Resource_GlobalNet, ResourceType_Any, 0, @WorkgroupRS, ENumHandle); repeat Entries := 1; BufSize := SizeOf(Buf); Result := WNetENumResource(ENumHandle, Entries, @Buf, BufSize); if (result = NO_Error) and (Entries = 1) then begin sComputer:= StrPas(Buf[1].lpRemoteName); aResList.Add(Copy(sComputer, 3, Length(sComputer)-2)); end; until (Entries 1) or (Result NO_Error); WNetCloseENum(ENumHandle); end; --- Em delphi-br@yahoogrupos.com.br, Luiz Escobar [EMAIL PROTECTED] escreveu Preciso de uma função/componente que liste todos os nomes E IP´s dos computadores da rede. ALLguem tem algo parecido ? Luiz Escobar Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase DOS - Clipper/Assembler xBase SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k LINUX - LAZARUS/Kylix/MySQL; http://www.megasistema.com.br
Re: [delphi-br] Pegar o MAC do micro - duvidas
Valeu Rubens vou dar uma olhada Luiz Escobar Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase DOS - Clipper/Assembler xBase SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k LINUX - LAZARUS/Kylix/MySQL; http://www.megasistema.com.br - Original Message - From: Rubem Nascimento da Rocha To: delphi-br@yahoogrupos.com.br Sent: Tuesday, February 13, 2007 3:27 PM Subject: Re: [delphi-br] Pegar o MAC do micro - duvidas É verdade, Luiz! A função CoCreateGUID() cria um novo GUID (Global Unique IDentifier). Se quiser saber como pegar o MAC Address real do micro, consulte http://www.swissdelphicenter.ch/en/showcode.php?id=651 Sds. From: Luiz Escobar [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] Pegar o MAC do micro - duvidas Date: Tue, 13 Feb 2007 13:43:37 -0200 Amigo, desculpe, mas esta função não pega um MAC e sim CRIA aleatóriamente um virtual. Tanto é, que cada vez que vc pedir o MAC vai vir um numero diferente.. Luiz Escobar Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase DOS - Clipper/Assembler xBase SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k LINUX - LAZARUS/Kylix/MySQL; http://www.megasistema.com.br - Original Message - From: Rodrigo Madureira Barbosa To: delphi-br@yahoogrupos.com.br Sent: Monday, February 12, 2007 6:29 PM Subject: RES: [delphi-br] Pegar o MAC do micro - duvidas Tenho uma aqui... se servir... aí está... function CoCreateGuid(var guid: TGUID): HResult; stdcall; far external 'ole32.dll'; function GetMACAddress: string; var g: TGUID; i: Byte; begin Result := ''; CoCreateGUID(g); for i := 2 to 7 do Result := Result + IntToHex(g.D4[i], 2); end; Fui... Rodrigo. _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Thiago Filiano (America Soft) Enviada em: segunda-feira, 12 de fevereiro de 2007 15:33 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Pegar o MAC do micro - duvidas não estou com essa rotina aqui.. mas amanhã se conseguir coloco aqui sim! Luiz Escobar escreveu: se quizer mandar ela pra gente dar uma olhada acho q fica mais facil... Luiz Escobar Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase DOS - Clipper/Assembler xBase SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k LINUX - LAZARUS/Kylix/MySQL; http://www.megasist http://www.megasistema.com.br ema.com.br http://www.megasist http://www.megasistema.com.br ema.com.br - Original Message - From: Thiago Filiano (America Soft) To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Monday, February 12, 2007 3:16 PM Subject: Re: [delphi-br] Pegar o MAC do micro - duvidas então Luiz, tenho sim.. e eh aqui q esta o problema.. minha rotina esta pegando o MAC certinho, mas acontece que tem cliente que esta dizendo que o cabo está desconectado.. mas mesmo assim está identificando o MAC dele. a rotina foi feita para identificar o MAC somente com placa de rede ativa. não sei o que esta ocorrendo :( []'s Thiago Luiz Escobar escreveu: Bom vc tem alguma rotina para ler direto do dispositivo ? pq acho q as q tenho são usando API´s Creio que isso seria de grande ajuda para todos. obrigado. Luiz Escobar Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase DOS - Clipper/Assembler xBase SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k LINUX - LAZARUS/Kylix/MySQL; http://www.megasist http://www.megasistema.com.br ema.com.br http://www.megasist http://www.megasistema.com.br ema.com.br http://www.megasist http://www.megasistema.com.br ema.com.br http://www.megasist http://www.megasistema.com.br ema.com.br - Original Message - From: Andre Veloso de Mesquita To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Friday, February 09, 2007 8:25 PM Subject: Re: [delphi-br] Pegar o MAC do micro - duvidas Nota: No Windows é possível trocar o MAC. O MAC não será trocado na placa de rede, mas sim na camada lógica do Windows. Logo, quando vc ler o MAC, tente lê-lo no dispositivo e não usando uma API qq do Windows. [ ]'s - Original Message - From:
[delphi-br] Palavras acentuadas: Delphi 7 e firebird 1.5
Olá pessoal ! Tenho uma pesquisa onde os dados do campo estão acentuados. Quando faço, por exemplo, select * from tabela campo='palavra acentuada' o dephi me retorna um erro. Alguém tem alguma dica ? Desde de já agradeço! Abraços, Ricardo Cabral __ 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] Pegar o MAC do micro - duvidas
Legal Rubens ela funcionou, deu exatamente o mesmo numero que a que eu tinha... Bom agora preciso ver qual das duas é melhor, vou ver como alterar o MAC da placa de rede vou fazer a alteração e rodar as duas e ver qual me traz o numero real e qual me traz o que eu alterei.. só espero que nao acontece das duas voltarem com o numero alterado.. ehhehehehehe. Luiz Escobar Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase DOS - Clipper/Assembler xBase SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k LINUX - LAZARUS/Kylix/MySQL; http://www.megasistema.com.br - Original Message - From: Rubem Nascimento da Rocha To: delphi-br@yahoogrupos.com.br Sent: Tuesday, February 13, 2007 3:27 PM Subject: Re: [delphi-br] Pegar o MAC do micro - duvidas É verdade, Luiz! A função CoCreateGUID() cria um novo GUID (Global Unique IDentifier). Se quiser saber como pegar o MAC Address real do micro, consulte http://www.swissdelphicenter.ch/en/showcode.php?id=651 Sds. From: Luiz Escobar [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] Pegar o MAC do micro - duvidas Date: Tue, 13 Feb 2007 13:43:37 -0200 Amigo, desculpe, mas esta função não pega um MAC e sim CRIA aleatóriamente um virtual. Tanto é, que cada vez que vc pedir o MAC vai vir um numero diferente.. Luiz Escobar Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase DOS - Clipper/Assembler xBase SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k LINUX - LAZARUS/Kylix/MySQL; http://www.megasistema.com.br - Original Message - From: Rodrigo Madureira Barbosa To: delphi-br@yahoogrupos.com.br Sent: Monday, February 12, 2007 6:29 PM Subject: RES: [delphi-br] Pegar o MAC do micro - duvidas Tenho uma aqui... se servir... aí está... function CoCreateGuid(var guid: TGUID): HResult; stdcall; far external 'ole32.dll'; function GetMACAddress: string; var g: TGUID; i: Byte; begin Result := ''; CoCreateGUID(g); for i := 2 to 7 do Result := Result + IntToHex(g.D4[i], 2); end; Fui... Rodrigo. _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Thiago Filiano (America Soft) Enviada em: segunda-feira, 12 de fevereiro de 2007 15:33 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Pegar o MAC do micro - duvidas não estou com essa rotina aqui.. mas amanhã se conseguir coloco aqui sim! Luiz Escobar escreveu: se quizer mandar ela pra gente dar uma olhada acho q fica mais facil... Luiz Escobar Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase DOS - Clipper/Assembler xBase SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k LINUX - LAZARUS/Kylix/MySQL; http://www.megasist http://www.megasistema.com.br ema.com.br http://www.megasist http://www.megasistema.com.br ema.com.br - Original Message - From: Thiago Filiano (America Soft) To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Monday, February 12, 2007 3:16 PM Subject: Re: [delphi-br] Pegar o MAC do micro - duvidas então Luiz, tenho sim.. e eh aqui q esta o problema.. minha rotina esta pegando o MAC certinho, mas acontece que tem cliente que esta dizendo que o cabo está desconectado.. mas mesmo assim está identificando o MAC dele. a rotina foi feita para identificar o MAC somente com placa de rede ativa. não sei o que esta ocorrendo :( []'s Thiago Luiz Escobar escreveu: Bom vc tem alguma rotina para ler direto do dispositivo ? pq acho q as q tenho são usando API´s Creio que isso seria de grande ajuda para todos. obrigado. Luiz Escobar Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase DOS - Clipper/Assembler xBase SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k LINUX - LAZARUS/Kylix/MySQL; http://www.megasist http://www.megasistema.com.br ema.com.br http://www.megasist http://www.megasistema.com.br ema.com.br http://www.megasist http://www.megasistema.com.br ema.com.br http://www.megasist http://www.megasistema.com.br ema.com.br - Original Message - From: Andre Veloso de Mesquita To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Friday, February 09, 2007 8:25 PM Subject: Re: [delphi-br] Pegar o MAC do
Re: [delphi-br] Listar computadores da rede
tenho. manda uma mensagem em OFF q eu mando. mas veja: só em off. :P And - Original Message - From: Luiz Escobar To: [YAHOO] Delphi BR Sent: Tuesday, February 13, 2007 2:40 PM Subject: [delphi-br] Listar computadores da rede Preciso de uma função/componente que liste todos os nomes E IP´s dos computadores da rede. ALLguem tem algo parecido ? Luiz Escobar Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase DOS - Clipper/Assembler xBase SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k LINUX - LAZARUS/Kylix/MySQL; http://www.megasistema.com.br __ Informação do NOD32 IMON 2057 (20070213) __ 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]
[delphi-br] Colocar Plano de Fundo em Relatorio - Rave
Boa Tarde a todos.. Estou com uma duvida simlpes aparentemente.. será que no Rave.. tem como colocar uma figura como plano de fundo no relatorio. Junior - Araraquara/SP [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Canvas does not allow drawing
alguém sabe porque dá este erro executando um programa em Delphi 5 com o Win98 grato Stainle
Re: [delphi-br] [URGENTE] Formatação Imp ressão Matricial
Ae Brother,
não esqueci de você não, só que estou ocupadaço, mas assim que eu tiver um
tempo vou dar uma olhada legal no teu código... Mas caso você descobrir antes
como fazer, posta na lista, pra agente saber!
Abraços
Ricardo Berti
- Original Message -
From: Tiago de Assis Pimenta
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, February 13, 2007 9:56 AM
Subject: RES: [delphi-br] [URGENTE] Formatação Impressão Matricial
Boa Tarde Ricardo, faço tudo na mão, vou colar o código de como esta.
procedure Tfrmcadordserv.BitBtn1Click(Sender: TObject);
const
CNegrito = #27#71; // Define Caracter Negrito;
SNegrito = #27#72; // Define Caracter Não Negrito;
CExpandido = #14;
SExpandido = #20;
var
a: textfile;
begin
// Imprimindo Ordem de Serviço
assignfile(a,'c:\tmp\cupom.txt');
rewrite(A);
writeln(A,'=
==');
writeln(A,' BRANCO AUTO MECANICA - ESPECIALIZADA EM INJECAO
ELETRONICA ');
writeln(A,' AV. MESSIAS GONCALVES, 1363 - (17) 3325-8055
');
writeln(A,'=
==');
write(A,CNegrito + CExpandido + format('%-29s',['ORDEM DE SERVICO N: ' +
formatfloat('0',strtoint(edit1.text))]));
writeln(A,SNegrito + SExpandido + format('%10s',['DATA:
'+frmordserv.qrordserv.fieldbyname('data').asstring]));
writeln(A);
write(A,format('%-57s',['NOME DO CLIENTE: '+
qrcli.fieldbyname('nome').value]));
writeln(A,format('%-22s',['CELULAR: '+qrcli.fieldbyname('celular').value]));
write(A,format('%-57s',['ENDERECO: '+
qrcli.fieldbyname('endereco').value]));
writeln(A,format('%-22s',['BAIRRO : '+ qrcli.fieldbyname('bairro').value]));
write(A,format('%-57s',['CIDADE: '+ qrcli.fieldbyname('cidade').value]));
writeln(A,format('%-22s',['CEP.: '+ qrcli.fieldbyname('cep').value]));
write(A,format('%-35s',['TELEFONE: '+
qrcli.fieldbyname('telefone').value]));
write(A,format('%-22s',['CPF: '+ qrcli.fieldbyname('cpf').value]));
writeln(A,format('%-22s',['RG: ' + qrcli.fieldbyname('rg').value]));
writeln(A);
write(A,format('%-57s',['MARCA: '+
frmordserv.qrordserv.fieldbyname('marca').value]));
writeln(A,format('%-22s',['MODELO: '+
frmordserv.qrordserv.fieldbyname('modelo').value]));
write(A,format('%-35s',['COR: '+
frmordserv.qrordserv.fieldbyname('cor').value]));
write(A,format('%-22s',['PLACA: '+
frmordserv.qrordserv.fieldbyname('placa').value]));
writeln(A,format('%-22s',['KM DO VEICULO: '+edit3.text]));
writeln(A);
writeln(A,format('%-20s',['FUNCIONARIO: '+
frmordserv.qrordserv.fieldbyname('funcionario').value]));
writeln(A,'=
==');
write(A,format('%-40s',['DISCRIMANACAO']));
write(A,format('%-10s',['QTDE']));
write(A,format('%-18s',['PRECO UNITARIO']));
writeln(A,format('%-10s',['PRECO TOTAL']));
writeln(A,'=
==');
qrhistserv.first;
while not qrhistserv.eof do
begin
write(A,format('%-40s',[qrhistserv.fieldbyname('servico').value]));
write(A,format('%-10s',[qrhistserv.fieldbyname('qtde').value]));
write(A,format('%-18s',[formatfloat('##0.00',qrhistserv.fieldbyname('precoun
').value)]));
write(A,format('%-10s',[formatfloat('##0.00',qrhistserv.fieldbyname('total')
.value)]));
writeln(A);
qrhistserv.next;
end;
writeln(A,'=
==');
write(A,CNegrito + CExpandido + 'TOTAL R$: ');
writeln(A,format('%29.2f',[frmordserv.qrordserv.fieldbyname('total').asfloat
]));
writeln(A,SNegrito + SExpandido +
'===
');
writeln(A);
writeln(A);
writeln(A);
writeln(A);
//writeln(A,'___');
writeln(A,' ASSINATURA DO CLIENTE');
closefile(A);
Tiago de Assis Pimenta
MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED]
Skype: tiagopimenta_skype
Gtalk: tiagopimenta
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Ricardo Berti
Enviada em: terça-feira, 13 de fevereiro de 2007 09:14
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] [URGENTE] Formatação Impressão Matricial
Como você faz pra imprimir? faz tudo na mão ou usa alguma rotina ou
componente? Posta aí que agente te ajuda
Bom Código
Ricardo Berti
- Original Message -
From: Tiago de Assis Pimenta
To: Grupo Delphi
Sent: Monday, February 12, 2007 11:40 PM
Subject: [delphi-br] [URGENTE] Formatação Impressão Matricial
Galera, seguinte, preciso da seguinte informação.
Tem como eu usar o write para fazer o seguinte.
Na hora que chegar num determinado numero de caracter, ele pule para a
proxima linha, mais ou menos no estilo das Celulas do Excel ???
Por ex.:
Re: [delphi-br] Pegar o MAC do micro - duvidas
É ainda num deu. os dois são alterados quando mudo o MAC... continuemos a tentar.. hehehehehe Luiz Escobar Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase DOS - Clipper/Assembler xBase SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k LINUX - LAZARUS/Kylix/MySQL; http://www.megasistema.com.br - Original Message - From: Rubem Nascimento da Rocha To: delphi-br@yahoogrupos.com.br Sent: Tuesday, February 13, 2007 3:27 PM Subject: Re: [delphi-br] Pegar o MAC do micro - duvidas É verdade, Luiz! A função CoCreateGUID() cria um novo GUID (Global Unique IDentifier). Se quiser saber como pegar o MAC Address real do micro, consulte http://www.swissdelphicenter.ch/en/showcode.php?id=651 Sds. From: Luiz Escobar [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] Pegar o MAC do micro - duvidas Date: Tue, 13 Feb 2007 13:43:37 -0200 Amigo, desculpe, mas esta função não pega um MAC e sim CRIA aleatóriamente um virtual. Tanto é, que cada vez que vc pedir o MAC vai vir um numero diferente.. Luiz Escobar Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase DOS - Clipper/Assembler xBase SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k LINUX - LAZARUS/Kylix/MySQL; http://www.megasistema.com.br - Original Message - From: Rodrigo Madureira Barbosa To: delphi-br@yahoogrupos.com.br Sent: Monday, February 12, 2007 6:29 PM Subject: RES: [delphi-br] Pegar o MAC do micro - duvidas Tenho uma aqui... se servir... aí está... function CoCreateGuid(var guid: TGUID): HResult; stdcall; far external 'ole32.dll'; function GetMACAddress: string; var g: TGUID; i: Byte; begin Result := ''; CoCreateGUID(g); for i := 2 to 7 do Result := Result + IntToHex(g.D4[i], 2); end; Fui... Rodrigo. _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Thiago Filiano (America Soft) Enviada em: segunda-feira, 12 de fevereiro de 2007 15:33 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Pegar o MAC do micro - duvidas não estou com essa rotina aqui.. mas amanhã se conseguir coloco aqui sim! Luiz Escobar escreveu: se quizer mandar ela pra gente dar uma olhada acho q fica mais facil... Luiz Escobar Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase DOS - Clipper/Assembler xBase SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k LINUX - LAZARUS/Kylix/MySQL; http://www.megasist http://www.megasistema.com.br ema.com.br http://www.megasist http://www.megasistema.com.br ema.com.br - Original Message - From: Thiago Filiano (America Soft) To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Monday, February 12, 2007 3:16 PM Subject: Re: [delphi-br] Pegar o MAC do micro - duvidas então Luiz, tenho sim.. e eh aqui q esta o problema.. minha rotina esta pegando o MAC certinho, mas acontece que tem cliente que esta dizendo que o cabo está desconectado.. mas mesmo assim está identificando o MAC dele. a rotina foi feita para identificar o MAC somente com placa de rede ativa. não sei o que esta ocorrendo :( []'s Thiago Luiz Escobar escreveu: Bom vc tem alguma rotina para ler direto do dispositivo ? pq acho q as q tenho são usando API´s Creio que isso seria de grande ajuda para todos. obrigado. Luiz Escobar Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase DOS - Clipper/Assembler xBase SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k LINUX - LAZARUS/Kylix/MySQL; http://www.megasist http://www.megasistema.com.br ema.com.br http://www.megasist http://www.megasistema.com.br ema.com.br http://www.megasist http://www.megasistema.com.br ema.com.br http://www.megasist http://www.megasistema.com.br ema.com.br - Original Message - From: Andre Veloso de Mesquita To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Friday, February 09, 2007 8:25 PM Subject: Re: [delphi-br] Pegar o MAC do micro - duvidas Nota: No Windows é possível trocar o MAC. O MAC não será trocado na placa de rede, mas sim na camada lógica do Windows. Logo, quando vc ler o MAC, tente lê-lo no dispositivo e não usando uma API qq do Windows.
Re: [delphi-br] Re: Listar computadores da rede
ajudou muito.. agora que tenhos os nomes dos computadores da rede, só falta pegar os respequitivos IP´s... Luiz Escobar Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase DOS - Clipper/Assembler xBase SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k LINUX - LAZARUS/Kylix/MySQL; http://www.megasistema.com.br - Original Message - From: Murillo Proença To: delphi-br@yahoogrupos.com.br Sent: Tuesday, February 13, 2007 4:19 PM Subject: [delphi-br] Re: Listar computadores da rede vê se ajuda: procedure FindComputers(Workgroup: string; aResList: TStrings); var eNumHandle : THandle; WorkgroupRS : TNetResource; Buf : array[1..500] of TNetResource; BufSize : DWORD; Entries : DWORD; Result : integer; sComputer: String; begin if not Assigned(aResList) then Exit; aResList.Clear; WorkGroup := Workgroup + #0; FillChar(WorkGroupRS, SizeOf(WorkGroupRS), 0); with WorkgroupRS do begin dwScope := 2; dwType := 3; dwDisplayType := 1; dwUsage := 1; lpRemoteName := @Workgroup[1]; end; WNetOpenEnum(Resource_GlobalNet, ResourceType_Any, 0, @WorkgroupRS, ENumHandle); repeat Entries := 1; BufSize := SizeOf(Buf); Result := WNetENumResource(ENumHandle, Entries, @Buf, BufSize); if (result = NO_Error) and (Entries = 1) then begin sComputer:= StrPas(Buf[1].lpRemoteName); aResList.Add(Copy(sComputer, 3, Length(sComputer)-2)); end; until (Entries 1) or (Result NO_Error); WNetCloseENum(ENumHandle); end; --- Em delphi-br@yahoogrupos.com.br, Luiz Escobar [EMAIL PROTECTED] escreveu Preciso de uma função/componente que liste todos os nomes E IP´s dos computadores da rede. ALLguem tem algo parecido ? Luiz Escobar Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase DOS - Clipper/Assembler xBase SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k LINUX - LAZARUS/Kylix/MySQL; http://www.megasistema.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Problema com DBExpress: unable to load dbexpint.dll
eu nao uso BDS. Delphi eu parei no 7. Bom q vc achou o problema =) Abraxx -- Atenciosamente, Vinicius S. L. Ribeiro [EMAIL PROTECTED] GNU/Linux User #293209. Get counted: http://counter.li.org/ Fellipe Henrique escreveu: Olá vinicius, descrobi o erro.. no Delphi 7 é dbexpint.dll no bds é dbxint30.dll é mole?!? valeu... []s Em 13/02/07, Vinicius S. L. Ribeiro [EMAIL PROTECTED] mailto:vinilistas%40yahoo.com.br escreveu: Poe as DLLs db*.dll (dbExpress) na pasta do seu aplicativo para evitar conflitos de versao. -- Atenciosamente, Vinicius S. L. Ribeiro [EMAIL PROTECTED] mailto:vinilistas%40yahoo.com.br vinilistas%40yahoo.com.br GNU/Linux User #293209. Get counted: http://counter.li.org/ http://counter.li.org/ Fellipe Henrique escreveu: Olá amigos, estou tendo um problemão com meu DBExpress... Tinha o Delphi7 instalado e instalei o BDS2006, pois bem.. eis que deu um conflito danado nos dois... o que fiz foi remover os dois delphis... mandei limpar o registro do windows... e instalei o BDS2006 do zero foi instalado com sucesso, sem problemas... mas na hora de abrir meu projeto no delphi... dá o erro: [b]unabled to load dbexpint.dll[/b] Como posso solucionar este problema? P.S.: procurei pelo meu HD e não encontrei nada do dbexpess... onde acho estes arquivos? ou uma instalação limpa do DBExpress? Desde já agradeço. []s -- _ Fellipe Henrique [EMAIL PROTECTED] mailto:fellipeh%40gmail.com fellipeh%40gmail.com mailto:fellipeh%fellipeh%25 40gmail.com [As partes desta mensagem que não continham texto foram removidas] ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/ http://br.yahoo.com/mailbeta/tudonovo/ -- _ Fellipe Henrique [EMAIL PROTECTED] mailto:fellipeh%40gmail.com [As partes desta mensagem que não continham texto foram removidas] ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/
[delphi-br] COMO FAÇO PRA COMPRAR O REPORT BUILDER AQUI NO BRASIL
Alguem sabe dizer como faço pra comprar o Reporet Builder aqui no Brasil, aonde comprar? Obrigado Antonio -- This message has been scanned for viruses and dangerous content by MailScanner, and is believed to be clean. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Listar computadores da rede
Pelo o q eu me lembre se vc tem o nome do computador, consegue estabelecer conexão, sem a necessidade do IP. - Original Message - From: Luiz Escobar To: delphi-br@yahoogrupos.com.br Sent: Tuesday, February 13, 2007 4:19 PM Subject: Re: [delphi-br] Re: Listar computadores da rede ajudou muito.. agora que tenhos os nomes dos computadores da rede, só falta pegar os respequitivos IP´s... Luiz Escobar Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase DOS - Clipper/Assembler xBase SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k LINUX - LAZARUS/Kylix/MySQL; http://www.megasistema.com.br - Original Message - From: Murillo Proença To: delphi-br@yahoogrupos.com.br Sent: Tuesday, February 13, 2007 4:19 PM Subject: [delphi-br] Re: Listar computadores da rede vê se ajuda: procedure FindComputers(Workgroup: string; aResList: TStrings); var eNumHandle : THandle; WorkgroupRS : TNetResource; Buf : array[1..500] of TNetResource; BufSize : DWORD; Entries : DWORD; Result : integer; sComputer: String; begin if not Assigned(aResList) then Exit; aResList.Clear; WorkGroup := Workgroup + #0; FillChar(WorkGroupRS, SizeOf(WorkGroupRS), 0); with WorkgroupRS do begin dwScope := 2; dwType := 3; dwDisplayType := 1; dwUsage := 1; lpRemoteName := @Workgroup[1]; end; WNetOpenEnum(Resource_GlobalNet, ResourceType_Any, 0, @WorkgroupRS, ENumHandle); repeat Entries := 1; BufSize := SizeOf(Buf); Result := WNetENumResource(ENumHandle, Entries, @Buf, BufSize); if (result = NO_Error) and (Entries = 1) then begin sComputer:= StrPas(Buf[1].lpRemoteName); aResList.Add(Copy(sComputer, 3, Length(sComputer)-2)); end; until (Entries 1) or (Result NO_Error); WNetCloseENum(ENumHandle); end; --- Em delphi-br@yahoogrupos.com.br, Luiz Escobar [EMAIL PROTECTED] escreveu Preciso de uma função/componente que liste todos os nomes E IP´s dos computadores da rede. ALLguem tem algo parecido ? Luiz Escobar Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase DOS - Clipper/Assembler xBase SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k LINUX - LAZARUS/Kylix/MySQL; http://www.megasistema.com.br [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.441 / Virus Database: 268.17.37/682 - Release Date: 12/2/2007 13:23 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: O Comando Case
Transforme a STRING em NÚMERO:
Só terá inconvenientes se dois nomes derem a mesma combinação
numérica.
procedure SuaRotina(const Nome: string);
var
I, J: integer;
begin
J := 0;
for I := 1 to Length(Nome) do
J := J + Ord(Nome[I]);
case J of
502: begin // 'GABRIEL'
end;
553: begin // 'GUSTAVO'
end;
end;
end;
Mario Hardt
Blumenau-SC
--- Em delphi-br@yahoogrupos.com.br, Rubem Nascimento da Rocha
[EMAIL PROTECTED] escreveu
A sentença CASE só pode ser usada com tipos de dados ordinais
(integer,
char, byte, boolean) e tipos enumerados. Se quiser usar com string,
sugiro
fazer uso da função AnsiIndexStr().
Exemplo:
procedure TForm1.Button1Click(Sender: TObject);
var
lBusca: String;
lStrings: array of String;
begin
lBusca := 'DA';
SetLength(lStrings, 4);
lStrings[0] := 'RUBEM';
lStrings[1] := 'ROCHA';
case AnsiIndexStr(lBusca, lStrings) of
0: ShowMessage('Achou a palavra');
-1: ShowMessage('Não achou a palavra');
end;
end;
Sds.
From: Gabriel Herdt [EMAIL PROTECTED]
Reply-To: delphi-br@yahoogrupos.com.br
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] Re: O Comando Case
Date: Tue, 13 Feb 2007 10:42:00 -
Jorge, obrigado pela ajuda. Mas esse não eu o caso eu me refiro ao
comando CASE OF do delphi(2005) não ao CASE WHEN de Select.
Oque eu gostaria de fazer é o seguinte:
case trim(UpperCase(sNome)) of 'Gabriel':
Begin
End;
`Gustavo': Begin
End;
Pessoal o comando case não aceita comparação de strings?
Alguma alternativa? Que não seja if if if?
case trim(UpperCase(sTabela)) of 'FCHISTOR': Begin
Como vai ter muitas comparações eu não gostaria que passasse
em
todas
s opções como no if.
qual a alternativa?
--- Em delphi-br@yahoogrupos.com.br, Jorge Ericsson
jericssonsup@ escreveu
Gabriel eu não sei qual o banco que vc utiliza, mas tente a
condição abaixo
caso esteje trabalhando com o ORACLE.
SELECT CASE TRIM(TO_CHAR(TO_DATE(TO_CHAR(vCONT) || '/' ||
vMES_INPUT || '/'
|| vANO_INPUT,'dd-mm-') , 'Day'))
WHEN 'Segunda-Feira' then 'Segunda'
WHEN 'Terça-Feira' then 'Terça'
WHEN 'Quarta-Feira' then 'Quarta'
WHEN 'Quinta-Feira' then 'Quinta'
WHEN 'Sexta-Feira' then 'Sexta'
WHEN 'Sábado' then 'Sábado'
WHEN 'Domingo' then 'Domingo'
ELSE 'NENHUM'
END INTO vDIA_SEMANA FROM DUAL;
[]´s
Em 12/02/07, Gabriel Herdt gabrielherdt@ escreveu:
Pessoal o comando case não aceita comparação de strings?
Alguma alternativa? Que não seja if if if?
case trim(UpperCase(sTabela)) of 'FCHISTOR': Begin
Como vai ter muitas comparações eu nao gostaria que passa-se
em
todas
as opções como no if.
qual a alternativa?
[As partes desta mensagem que não continham texto foram
removidas]
_
MSN Hotmail, o maior webmail do Brasil. http://www.hotmail.com
Re: [delphi-br] COMO FAÇO PRA COMPRAR O REPORT BUILD ER AQUI NO BRASIL
Se não em engano no site da Gupta vc pode obter essas informações http://www.guptabrasil.com.br/index1.asp - Original Message - From: TONI To: delphi-br@yahoogrupos.com.br Sent: Tuesday, February 13, 2007 5:30 PM Subject: [delphi-br] COMO FAÇO PRA COMPRAR O REPORT BUILDER AQUI NO BRASIL Alguem sabe dizer como faço pra comprar o Reporet Builder aqui no Brasil, aonde comprar? Obrigado Antonio -- This message has been scanned for viruses and dangerous content by MailScanner, and is believed to be clean. [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.441 / Virus Database: 268.17.37/682 - Release Date: 12/2/2007 13:23 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Listar computadores da rede
o q eu tenho faz o inverso. traz o nome da maquina pelo ip e ve quais ip estao respondendo esse modelo ai e só os micros q tem compartilhamento. no meu caso, não... é melhor um pouco... se esse modelo resolve, blz... mas se precisar de algo como eu citei, estou à disposição. and. - Original Message - From: Luiz Escobar To: delphi-br@yahoogrupos.com.br Sent: Tuesday, February 13, 2007 4:19 PM Subject: Re: [delphi-br] Re: Listar computadores da rede ajudou muito.. agora que tenhos os nomes dos computadores da rede, só falta pegar os respequitivos IP´s... Luiz Escobar Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase DOS - Clipper/Assembler xBase SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k LINUX - LAZARUS/Kylix/MySQL; http://www.megasistema.com.br - Original Message - From: Murillo Proença To: delphi-br@yahoogrupos.com.br Sent: Tuesday, February 13, 2007 4:19 PM Subject: [delphi-br] Re: Listar computadores da rede vê se ajuda: procedure FindComputers(Workgroup: string; aResList: TStrings); var eNumHandle : THandle; WorkgroupRS : TNetResource; Buf : array[1..500] of TNetResource; BufSize : DWORD; Entries : DWORD; Result : integer; sComputer: String; begin if not Assigned(aResList) then Exit; aResList.Clear; WorkGroup := Workgroup + #0; FillChar(WorkGroupRS, SizeOf(WorkGroupRS), 0); with WorkgroupRS do begin dwScope := 2; dwType := 3; dwDisplayType := 1; dwUsage := 1; lpRemoteName := @Workgroup[1]; end; WNetOpenEnum(Resource_GlobalNet, ResourceType_Any, 0, @WorkgroupRS, ENumHandle); repeat Entries := 1; BufSize := SizeOf(Buf); Result := WNetENumResource(ENumHandle, Entries, @Buf, BufSize); if (result = NO_Error) and (Entries = 1) then begin sComputer:= StrPas(Buf[1].lpRemoteName); aResList.Add(Copy(sComputer, 3, Length(sComputer)-2)); end; until (Entries 1) or (Result NO_Error); WNetCloseENum(ENumHandle); end; --- Em delphi-br@yahoogrupos.com.br, Luiz Escobar [EMAIL PROTECTED] escreveu Preciso de uma função/componente que liste todos os nomes E IP´s dos computadores da rede. ALLguem tem algo parecido ? Luiz Escobar Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase DOS - Clipper/Assembler xBase SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k LINUX - LAZARUS/Kylix/MySQL; http://www.megasistema.com.br [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 2057 (20070213) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Canvas does not allow drawing
Quando eu usava Delphi 5 com Win98/95 dava isso direto, da uma olhada na painel de controle Sistema Desenpenho, e veja como esta o Nivel de Memoria Virtual. é algo referente ao gerenciamento de memória, faça um teste.. abra um Form ele usa 4% de recurso, ao fechar ele so libera 3% assim vai ate o windows travar. vc pode tentar um gerenciador de memoria FastMM ou migrar pra Delphi 7, na epoca tive que fazer isso, mudar para o D7 Em 13/02/07, stainle2003 [EMAIL PROTECTED] escreveu: alguém sabe porque dá este erro executando um programa em Delphi 5 com o Win98 grato Stainle -- Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] AudioLab ou MMTools
Não usei nenhum dos dois, fiz a minha propria biblioteca usando o ACM do windows o HELP do DELPHI é bem completo sobre as funções, mas não encina a lógica da coisa..(tipo, qual função tem que vir primeiro e qual tem que vir depois) Quanto a mediaplay, mciSend, e outras do mesmo genero, vc NÃO vai conseguir fazer isso com elas.. Agora pra que vc quer fazer isso ? EX: Gravar, voltar um pouco e regravar encima.!!??? Porque simplesmente não fechar abre outro depois coloca tudo no COOLEDIT e faz uma edição !? Não poderia ser assim ? PS: com a MMTools vc conseguiria fazer isso, mas sei não, nao achei ela muito pratica em alguns aspectos. Quanto a AudioLAB nao me lembro mais dela... não posso opinar. DICA: sempre grave em WAV formato RAW, é MUTO mais facil fazer o q vc quer fazer Luiz Escobar Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase DOS - Clipper/Assembler xBase SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k LINUX - LAZARUS/Kylix/MySQL; http://www.megasistema.com.br - Original Message - From: djxandytche To: delphi-br@yahoogrupos.com.br Sent: Tuesday, February 13, 2007 8:43 AM Subject: [delphi-br] AudioLab ou MMTools Bom dia amigos da lista, Bom, gostaria da ajuda de vcs para gravação de som do microfone com delphi. O problema é o seguinte: Dentre todos os componentes que testei os mais poderosos que encontrei foram estes 2 que cito no titulo, porem, nenhum deles faz uma coisa muito importante que preciso. Por exemplo, o usuário começa a gravar e no final da gravação ele resolve voltar um pouco e regravar uma parte devido a que ele possa ter falado algo errado, desta forma o arquivo de áudio deveria sobrepor toda a gravação a partir do ponto em que ele recomeçou a gravar. Mais não consegui fazer isso com nenhum componente, nem com o TMediaPlayer e nem usando código nativo do delphi (mciSendCommand, sndPlaySound, e estas coisas todas)!!! Alguém por acaso utiliza alguns destes componentes que cito acima, ou conhece outros (pode ser pago) ou alguma outra forma de realizar este trabalho? Obs.: Este comportamento o Gravador de Som do Windows faz perfeitamente. Obrigado a todos que puderem responder e me ajudar!!! Alexandre da Silva. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Preciso Integrar DBF (Clipper) com o Oracle
tenta instalar o VKDBF no Delphi 2006 pra ver.. Em 13/02/07, Cesar - Informatica [EMAIL PROTECTED] escreveu: Pessoal boa tarde, estou migrando para o Delphi 2006, antes utilizava Delphi 6, e preciso fazer um a aplicação onde possa integrar algumas tabelas DBF (Clipper) com o Oracle, para o caso do Oracle estou utilizando o componente Odac, e para o clipper utilizava o VK_DBF, alguém saberia me informar se existe esse do clipper para Delphi 2006 ??? ou teria outro para utilizar. Desde já agradeço, César Eduardo Teixeira Silva Programador CPD [EMAIL PROTECTED] cesar.silva%40ober.com.br www.ober.com.br [As partes desta mensagem que não continham texto foram removidas] -- Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: Aplicações para palm.
A ultima vez que compramos quando eu trabalhava lá na Cabtec, ela custava 450 dolares a versão 6.0. Voce tinha direito a suporte e upgrades. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil [EMAIL PROTECTED] http://www.geocities.com/SiliconValley/Bay/1058 MSN: [EMAIL PROTECTED] --- Em delphi-br@yahoogrupos.com.br, Ricardo César Cardoso [EMAIL PROTECTED] escreveu Bom dia Walter! O grande problema é que o pessoal não define o que quer ou precisa fazer. Por exemplo, o amigo que iniciou a thread apenas falou Palm sem especificar o modelo e sequer se ele está tratando de Smartphones. Digo isso pq recentemente tive que desenrolar um nó desses. Alguém na empresa iniciou um plano de compra de equipamentos Palm Tungstein e perguntou se era possível fazer a migração de uma determinada aplicação para eles. Eu disse que seria necessário refazer a aplicação já que a ferramenta (Delphi) não oferece este suporte e passei as alternativas que descrevi na minha primeira mensagem como caminhos possíveis. Nada ficou definido aquela época. Eis que agora recentemente me surgem com essa proposta novamente, mas trabalhando com os Treo 700WX. Quando respondi que era possível com poucas adaptações fazer a migração, quase fui crucificado. Disseram até que eu tinha feito corpo mole na época da primeira pergunta por que Palm é tudo Palm (pode isso?) e não tem diferença nenhuma. Aí toca explicar as diferenças, tecnologia e o escambau pra pessoas que não entendem nada de tecnologia. Foi um parto. E pra me livrar desse parto e aprender mais algumas coisas que eu estou estudando J2ME, por que pelo que eu entendi, futuramente eu só preciso saber se o Palm em questão suporta Java que aí sim posso dizer (sem ter que ficar explicando muito) se a aplicação é compatível ou não ou se pode ser migrada ou não, por que investir nas ferramentas citadas, poucas empresas querem e quando vc diz que não terá custo (teoricamente) adotando uma solução como o J2ME (nesse caso), todos ficam muito felizes, mesmo sem saber que custo disso, por que ele sempre existe. Não quis de maneira nenhuma defender esse ou aquele SO ou produto. Apenas dei indicações das tecnologias possíveis de serem aplicadas, mas não me aprofundei pq nunca trabalhei com as ferramentas citadas. Agora, só pra tirar uma dúvida, quanto custa uma licença do Satellite Forms? Walter Chagas (Yahoo) [EMAIL PROTECTED] escreveu: Ricardo, A linha Treo é uma linha de Smartphones, cujo Windows Mobile cai como uma luva nesta categoria. Pra você ter uma ideia, até os nokia recentes que são Symbiam na veia, estão migrando pro WM. Acredito plenamente que a Palm tenha dado o braço a torcer pelo fato do bill sair na frente (mais uma vez) e se por a frente da concorrência nesta categoria. Lembro bem lá pro ano de 2004 por aí quando a Microsoft tirou de linha os Sistemas operacionais PocketPC e Windows CE e unificou tudo no Windows Mobile (que nada mais é do que uma somatória de características do PocketPC e Windows CE mais os novos recursos implementados) Agora, saiu do segmento SmartPhone (veja bem), a coisa volta ao nicho do palm mesmo. Veja os modelos atuais da Palm, o Zire, o TX e o Tungsten E2. Todos eles trabalham com o Sistema Operacional PalmOS, os quais o Compact Framework AINDA não dá suporte. Mas pelo que já andei lendo na WEB, já estão tomando esta devida providência. Só não tem previsão de quando. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil [EMAIL PROTECTED] http://www.geocities.com/SiliconValley/Bay/1058 MSN: [EMAIL PROTECTED] --- Em delphi-br@yahoogrupos.com.br, Ricardo César Cardoso ricardo_engsoft@ escreveu Caro Walter, Por acaso já ouviu falar da linha TREO? Esses Palm's pode rodar SIM com Windows CE. Dá uma olhadela no link abaixo: http://www.palm.com/br/produtos/smartphones/treo700wx/detalhes.html Walter Chagas (Yahoo) wchagas@ escreveu: Palm não trabalha com Windows CE. Quem trablaha com Windows CE é o PDA e entre PDA e Palm existem várias diferenças. As semelhanças são apenas no tamanho de ambos, que são portateis. Saiu disso daí, é tudo diferente, processador, hardware, sistema operacional, etc. Para Programação para PDA´s, você pode usar o Delphi 2006 que já traz suporte ao compact Framework (O 2005 não traz). Para programação para Palms, Duas boas ferramentas que eu te indico são o Satellite Forms, que usa programação em VB mas é uma ferramenta totalmente interativa e facil de programar nele. Ou então o PocketStudio que tem a IDE identica a do Delphi e usa o pascal como linguagem de programação. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchagasj@
RE: [delphi-br] Re: O Comando Case
Minha solução ainda é melhor, pq já usa uma função pronta pra isso, que o
próprio Object Pascal já te fornece. Sds.
From: Mario Hardt [EMAIL PROTECTED]
Reply-To: delphi-br@yahoogrupos.com.br
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] Re: O Comando Case
Date: Tue, 13 Feb 2007 19:40:48 -
Transforme a STRING em NÚMERO:
Só terá inconvenientes se dois nomes derem a mesma combinação
numérica.
procedure SuaRotina(const Nome: string);
var
I, J: integer;
begin
J := 0;
for I := 1 to Length(Nome) do
J := J + Ord(Nome[I]);
case J of
502: begin // 'GABRIEL'
end;
553: begin // 'GUSTAVO'
end;
end;
end;
Mario Hardt
Blumenau-SC
--- Em delphi-br@yahoogrupos.com.br, Rubem Nascimento da Rocha
[EMAIL PROTECTED] escreveu
A sentença CASE só pode ser usada com tipos de dados ordinais
(integer,
char, byte, boolean) e tipos enumerados. Se quiser usar com string,
sugiro
fazer uso da função AnsiIndexStr().
Exemplo:
procedure TForm1.Button1Click(Sender: TObject);
var
lBusca: String;
lStrings: array of String;
begin
lBusca := 'DA';
SetLength(lStrings, 4);
lStrings[0] := 'RUBEM';
lStrings[1] := 'ROCHA';
case AnsiIndexStr(lBusca, lStrings) of
0: ShowMessage('Achou a palavra');
-1: ShowMessage('Não achou a palavra');
end;
end;
Sds.
From: Gabriel Herdt [EMAIL PROTECTED]
Reply-To: delphi-br@yahoogrupos.com.br
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] Re: O Comando Case
Date: Tue, 13 Feb 2007 10:42:00 -
Jorge, obrigado pela ajuda. Mas esse não eu o caso eu me refiro ao
comando CASE OF do delphi(2005) não ao CASE WHEN de Select.
Oque eu gostaria de fazer é o seguinte:
case trim(UpperCase(sNome)) of 'Gabriel':
Begin
End;
`Gustavo': Begin
End;
Pessoal o comando case não aceita comparação de strings?
Alguma alternativa? Que não seja if if if?
case trim(UpperCase(sTabela)) of 'FCHISTOR': Begin
Como vai ter muitas comparações eu não gostaria que passasse
em
todas
s opções como no if.
qual a alternativa?
--- Em delphi-br@yahoogrupos.com.br, Jorge Ericsson
jericssonsup@ escreveu
Gabriel eu não sei qual o banco que vc utiliza, mas tente a
condição abaixo
caso esteje trabalhando com o ORACLE.
SELECT CASE TRIM(TO_CHAR(TO_DATE(TO_CHAR(vCONT) || '/' ||
vMES_INPUT || '/'
|| vANO_INPUT,'dd-mm-') , 'Day'))
WHEN 'Segunda-Feira' then 'Segunda'
WHEN 'Terça-Feira' then 'Terça'
WHEN 'Quarta-Feira' then 'Quarta'
WHEN 'Quinta-Feira' then 'Quinta'
WHEN 'Sexta-Feira' then 'Sexta'
WHEN 'Sábado' then 'Sábado'
WHEN 'Domingo' then 'Domingo'
ELSE 'NENHUM'
END INTO vDIA_SEMANA FROM DUAL;
[]´s
Em 12/02/07, Gabriel Herdt gabrielherdt@ escreveu:
Pessoal o comando case não aceita comparação de strings?
Alguma alternativa? Que não seja if if if?
case trim(UpperCase(sTabela)) of 'FCHISTOR': Begin
Como vai ter muitas comparações eu nao gostaria que passa-se
em
todas
as opções como no if.
qual a alternativa?
[As partes desta mensagem que não continham texto foram
removidas]
_
MSN Hotmail, o maior webmail do Brasil. http://www.hotmail.com
_
MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br
RE: [delphi-br] COMO FAÇO PRA COMPRAR O RE PORT BUILDER AQUI NO BRASIL
Brother, não tem revendedor dele aqui no Brasil. Tem que comprar direto no site do fabricante. http://www.digital-metaphors.com Sds. From: TONI [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] COMO FAÇO PRA COMPRAR O REPORT BUILDER AQUI NO BRASIL Date: Tue, 13 Feb 2007 17:30:26 -0300 Alguem sabe dizer como faço pra comprar o Reporet Builder aqui no Brasil, aonde comprar? Obrigado Antonio -- This message has been scanned for viruses and dangerous content by MailScanner, and is believed to be clean. [As partes desta mensagem que não continham texto foram removidas] _ MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br
RES: [delphi-br] [URGENTE] Formatação Im pressão Matricial
Opa ... valeu Ricardo ... to tentando achar em foruns alguma coisa assim do
tipo mas até agora não consegui achar uma solução ...
Abraço
Tiago de Assis Pimenta
MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED]
Skype: tiagopimenta_skype
Gtalk: tiagopimenta
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Ricardo Berti
Enviada em: terça-feira, 13 de fevereiro de 2007 18:02
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] [URGENTE] Formatação Impressão Matricial
Ae Brother,
não esqueci de você não, só que estou ocupadaço, mas assim que eu tiver um
tempo vou dar uma olhada legal no teu código... Mas caso você descobrir
antes como fazer, posta na lista, pra agente saber!
Abraços
Ricardo Berti
- Original Message -
From: Tiago de Assis Pimenta
To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
Sent: Tuesday, February 13, 2007 9:56 AM
Subject: RES: [delphi-br] [URGENTE] Formatação Impressão Matricial
Boa Tarde Ricardo, faço tudo na mão, vou colar o código de como esta.
procedure Tfrmcadordserv.BitBtn1Click(Sender: TObject);
const
CNegrito = #27#71; // Define Caracter Negrito;
SNegrito = #27#72; // Define Caracter Não Negrito;
CExpandido = #14;
SExpandido = #20;
var
a: textfile;
begin
// Imprimindo Ordem de Serviço
assignfile(a,'c:\tmp\cupom.txt');
rewrite(A);
writeln(A,'=
==');
writeln(A,' BRANCO AUTO MECANICA - ESPECIALIZADA EM INJECAO
ELETRONICA ');
writeln(A,' AV. MESSIAS GONCALVES, 1363 - (17) 3325-8055
');
writeln(A,'=
==');
write(A,CNegrito + CExpandido + format('%-29s',['ORDEM DE SERVICO N: ' +
formatfloat('0',strtoint(edit1.text))]));
writeln(A,SNegrito + SExpandido + format('%10s',['DATA:
'+frmordserv.qrordserv.fieldbyname('data').asstring]));
writeln(A);
write(A,format('%-57s',['NOME DO CLIENTE: '+
qrcli.fieldbyname('nome').value]));
writeln(A,format('%-22s',['CELULAR: '+qrcli.fieldbyname('celular').value]));
write(A,format('%-57s',['ENDERECO: '+
qrcli.fieldbyname('endereco').value]));
writeln(A,format('%-22s',['BAIRRO : '+ qrcli.fieldbyname('bairro').value]));
write(A,format('%-57s',['CIDADE: '+ qrcli.fieldbyname('cidade').value]));
writeln(A,format('%-22s',['CEP.: '+ qrcli.fieldbyname('cep').value]));
write(A,format('%-35s',['TELEFONE: '+
qrcli.fieldbyname('telefone').value]));
write(A,format('%-22s',['CPF: '+ qrcli.fieldbyname('cpf').value]));
writeln(A,format('%-22s',['RG: ' + qrcli.fieldbyname('rg').value]));
writeln(A);
write(A,format('%-57s',['MARCA: '+
frmordserv.qrordserv.fieldbyname('marca').value]));
writeln(A,format('%-22s',['MODELO: '+
frmordserv.qrordserv.fieldbyname('modelo').value]));
write(A,format('%-35s',['COR: '+
frmordserv.qrordserv.fieldbyname('cor').value]));
write(A,format('%-22s',['PLACA: '+
frmordserv.qrordserv.fieldbyname('placa').value]));
writeln(A,format('%-22s',['KM DO VEICULO: '+edit3.text]));
writeln(A);
writeln(A,format('%-20s',['FUNCIONARIO: '+
frmordserv.qrordserv.fieldbyname('funcionario').value]));
writeln(A,'=
==');
write(A,format('%-40s',['DISCRIMANACAO']));
write(A,format('%-10s',['QTDE']));
write(A,format('%-18s',['PRECO UNITARIO']));
writeln(A,format('%-10s',['PRECO TOTAL']));
writeln(A,'=
==');
qrhistserv.first;
while not qrhistserv.eof do
begin
write(A,format('%-40s',[qrhistserv.fieldbyname('servico').value]));
write(A,format('%-10s',[qrhistserv.fieldbyname('qtde').value]));
write(A,format('%-18s',[formatfloat('##0.00',qrhistserv.fieldbyname('precoun
').value)]));
write(A,format('%-10s',[formatfloat('##0.00',qrhistserv.fieldbyname('total')
.value)]));
writeln(A);
qrhistserv.next;
end;
writeln(A,'=
==');
write(A,CNegrito + CExpandido + 'TOTAL R$: ');
writeln(A,format('%29.2f',[frmordserv.qrordserv.fieldbyname('total').asfloat
]));
writeln(A,SNegrito + SExpandido +
'===
');
writeln(A);
writeln(A);
writeln(A);
writeln(A);
//writeln(A,'___');
writeln(A,' ASSINATURA DO CLIENTE');
closefile(A);
Tiago de Assis Pimenta
MSN: mailto:tiagopimenta@ mailto:tiagopimenta%40hotmail.com hotmail.com
tiagopimenta@ mailto:tiagopimenta%40hotmail.com hotmail.com
Skype: tiagopimenta_skype
Gtalk: tiagopimenta
_
De: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
[mailto:[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br] Em
nome de Ricardo Berti
Enviada em: terça-feira, 13 de fevereiro de 2007 09:14
Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
Assunto: Re: [delphi-br] [URGENTE] Formatação Impressão Matricial
Como você faz pra imprimir?
Re: [delphi-br] apagando conteudo da tabela
Sinto não concordar com o Humberto, mas não acho que o Paradox seja ruim, muito menos para aplicações pequenas como parece ser o seu caso. Suas tabelas seguramente não estão apagando sózinhas. Existe na sua aplicação alguma instrução (ou conjunto delas) que estão fazendo isto. Veja se voce não está recriando suas tabelas ao entrar na aplicação, ou usando alguma instrução emptytable. Procure por instruções tipo NomedaTabela.delete ou se não está gravando registros brancos por cima dos que haviam lá. Uso Paradox há mais de 20 anos, sem problemas e nunca vi uma tabela ser apagada ( ou coisa que o valha) sozinha. Edison - Original Message - From: Humberto [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Tuesday, February 13, 2007 11:56 AM Subject: Re: [delphi-br] apagando conteudo da tabela Bem, antes de mais nada.. não use paradox.. esse banco é mto ruin, procure se informar sobre FireBird e como utilizar..aa se informe tb sobre SQL.. como criar Selects etc.. vc vai demorar mais pra fazer o sistema, mas vai ser um sistema de qualidade mto superior. Não entenda isso mal.. é apenas um conselho. =P - Original Message - From: walter_3wm To: delphi-br@yahoogrupos.com.br Sent: Tuesday, February 13, 2007 7:58 AM Subject: [delphi-br] apagando conteudo da tabela Bom dia pessoal!!! Bom estou desenvolvendo um sistema para uma oficina mecanica, estou usando database, table, datasource, dbnavigator!!! Bom compilo e entro no sistema, entro na telas de cadastros, cadastro algumas coisas, so que saio do sistema, e depois de um tempo o conteudo das tabelas apagam sozinhos!!! Já aconteceu isso com alguem? alguem pode me ajudar!!! Estou usando delphi 7.0 + paradox Vlw pessoal obrigado atenção. -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.441 / Virus Database: 268.17.37/682 - Release Date: 12/2/2007 13:23 [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos
[delphi-br] Relatorio tipo etiqueta - Delphi 2005 - sistema de mala direta
Pessoal boa tarde Eu estou desenvolvendo um sistema de mala direta e tenho de fazer impressão de etiquetas ... alguem sabe como fazer isso .. ?? qual é a melhor ferramenta para desenvolver Rave x Crystal ?? me ajudem por favor ... muito obrigado
[delphi-br] Exportar para o OpenOffice
Boa tarde a todos, Eu possuo uma aplicação em delphi 6 / SQL Server 2000 que exporta várias consultas para o Excel. O programa abre o excel, exporta os dados e ao final o usuário salva diretamente no Excel, a planilha gerada. Eu usei para isso uma rotina que peguei na net, que usa a unit ComOBj. Agora a direção da empresa que eu presto serviço determinou que usasse mos o OpenOffice (na verdade BrOffice). Como dá para imaginar as exportações do sistema não funcionam com o Calc. Alguém poderia me ajudar neste sentido? Uma solução que eu pensei, seria, o programa gerar um arquivo em algum formato que o Calc do OpenOffice pudesse ler. Obrigado, Giovanny Carvalho
Re: [delphi-br] apagando conteudo da tabela
walter_3wm escreveu: Bom dia pessoal!!! Bom estou desenvolvendo um sistema para uma oficina mecanica, estou usando database, table, datasource, dbnavigator!!! Bom compilo e entro no sistema, entro na telas de cadastros, cadastro algumas coisas, so que saio do sistema, e depois de um tempo o conteudo das tabelas apagam sozinhos!!! Já aconteceu isso com alguem? alguem pode me ajudar!!! Estou usando delphi 7.0 + paradox Vlw pessoal obrigado atenção. coloque na ultima linha da sua instrucao table1.post; table1.refresh; mas uma dica melhor ainda seria mudar do paradoidox para um banco mais seguro mysql, firebird, oracle, etc... eu particularmente trabalho com mysql, ja que estou desenvolvendo uma aplicacao fechada para 1 unico cliente ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/
Re: [delphi-br] Delphi X Word
Olá Adauri
Copie o conteudo do RichEdit para o clipboard e depois manda um paste
special
word.pastespecial;
creio que assim ele vai copiar tudo formatado e colar no doc. do word.
[]'s
Bruno Souza
Adauri Antonio Camacho Junior escreveu:
Bom dia a todos.
Eu tenho um RichEdit formatado( cores, fontes ), preciso que gere um
documento no Word exatamente igual o texto que esta no meu RichEdit.
Hoje estou fazendo desta forma.
var
Word : Variant;
begin
Word := CreateOleObject('Word.Application');
Word.Visible := True;
Word.Documents.Add;
Word.Selection.InsertAfter(Texto.Text);
O texto vai para o Word, mas sem nenhuma formatação. Alguém pode me
ajudar ?
Obrigado
--
Adauri Antonio Camacho Junior - Analista de Sistemas
BIOSALC - SISTEMAS E SOLUÇÕES
Rua Capitão Adelmio Norberto da Silva, 415 | Ribeirão Preto - SP
Brasil | 14025-670
(+55 (16) 3913-0760 . Ê +55 (16) 3911-7127
[EMAIL PROTECTED] mailto:adauri.camacho%40biosalc.com.br
| www.biosalc.com.br
--
Aviso Legal: esta mensagem eletrônica pode conter informações
privilegiadas e/ou confidenciais, portanto, fica o seu receptor
notificado de que qualquer disseminação, distribuição ou cópia não
autorizada é estritamente proibida. Se você entende que recebeu esta
mensagem indevidamente ou por engano, por favor, informe este fato ao
remetente e apague-a de seu computador.
[As partes desta mensagem que não continham texto foram removidas]
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.1.411 / Virus Database: 268.17.36/681 - Release Date: 11/02/2007
Re: [delphi-br] Filtrar somente campos vazios usando sql.add
Olá amigos,
Já Resolvi o problema, os comandos estavam corretos, havia um problema de
vinculo no banco de dados que já foi resolvido.
Assim mesmo Obrigado..
Marcos Brandão
- Original Message -
From: maneirinhos
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, February 13, 2007 12:33 PM
Subject: [delphi-br] Filtrar somente campos vazios usando sql.add
Olá Galera,
Preciso muito resolver esse problema, podem me ajudar?
Preciso filtar somente campos vazios.
Segue abaixo a linha de codigo que estou usando.
if cb02.Text = 'Vazio' then
begin
dados.Dados_pedidos.Qry_pedidos.Close;
dados.Dados_pedidos.Qry_pedidos.SQL.Clear;
dados.Dados_pedidos.Qry_pedidos.SQL.Add('select * from
PEDIDOGERAL where PREVISAO_ENTREGA_CLIENTE is null');
end;
dados.Dados_pedidos.Qry_pedidos.Prepare;
dados.Dados_pedidos.Qry_pedidos.Open;
A mensagem de erro que recebo é: Invalid use of keyword. Token:select
Desde já grato,
Marcos Brandão
[As partes desta mensagem que não continham texto foram removidas]
