Re: [delphi-br] Re: Procuro sistema ERP completo com fontes
Tirou as letras do meu teclado, eheh. Em 22 de abril de 2010 14:56, Carlos Aquino escreveu: > > > 500 reais os fontes do seu sistema ? > > Desculpe me, mas seu sistema deve ser uma merda. > > Em 20 de abril de 2010 10:00, Erick | TI Sprinter Cargo < > > t...@sprintercargo.com.br > escreveu: > > > > > > > Sem problemas amigão ! > > > > me add no msn - er...@bluon.com.br 40bluon.com.br> > > > > abraco ! > > > > > > > - Original Message - > > From: "Paulo Coutinho" 40prsolucoes.com>> > > To: > 40yahoogrupos.com.br>> > > Sent: Tuesday, April 20, 2010 9:51 AM > > Subject: Re: [delphi-br] Re: Procuro sistema ERP completo com fontes > > > > Olá Erick, > > > > Você negocia ele somente por dinheiro? > > > > Pois tenho 3 outros ERPs que comprei pelo mercado livre, mas não me > atendem > > pois não tem as funcionalidades que eu queria, então derrepente poeriamos > > trocar esses 3 sistemas com fontes e tudo pelo seu, e se quiser ainda > faço > > um serviço relacionado a web para você pela minha empresa. > > > > O que acha? > > > > -- > > Atenciosamente, > > Paulo Coutinho. > > Blog: www.prsolucoes.com/blog > > Site: www.prsolucoes.com > > Msn: pa...@prsolucoes.com 40prsolucoes.com> > > Skype: paulo.prsolucoes > > Consultor Certificado Bindows > > > > Em 19 de abril de 2010 08:53, Erick | TI Sprinter Cargo < > > t...@sprintercargo.com.br 40sprintercargo.com.br>> escreveu: > > > > > > > > > > > > Amigo tenho um erp porem nao tem paf nem nf-e. > > > As demais tem tudo..peco 500 reais > > > se tiver interesse me add msn - er...@bluon.com.br > > > 40bluon.com.br> > > > abs > > > > > > > > > - Original Message - > > > From: Paulo Coutinho > > > To: delphi-br@yahoogrupos.com.br > > > 40yahoogrupos.com.br> > 40yahoogrupos.com.br> > > > Sent: Sunday, April 18, 2010 5:14 AM > > > Subject: [delphi-br] Re: Procuro sistema ERP completo com fontes > > > > > > Este sistema parece ser o ideal. > > > > > > > > > > > > http://produto.mercadolivre.com.br/MLB-130445515-vision-erp-ecf-tef-nfepaf-fonte-delphi-2007-e-fireb-_JM > > > > > > Alguém tem ele ou algum outro parecido, que tenha estas > funcionalidades? > > > > > > Alguém indica? > > > > > > -- > > > Atenciosamente, > > > Paulo Coutinho. > > > Blog: www.prsolucoes.com/blog > > > Site: www.prsolucoes.com > > > Msn: pa...@prsolucoes.com 40prsolucoes.com> > > 40prsolucoes.com> > > > Skype: paulo.prsolucoes > > > Consultor Certificado Bindows > > > > > > Em 18 de abril de 2010 04:47, Paulo Coutinho > > > > > > > > >escreveu: > > > > > > > Olá, > > > > > > > > Estou procurando um sistema ERP completo que tenha os fontes, pago ou > > > não. > > > > > > > > Deverá conter as seguintes funcionalidades: > > > > > > > > 1 - PDV com ECF > > > > > > > > 2 - Permitir vender e dividir o valor em diferentes formas de > > pagamento. > > > > Exemplo: > > > > 2.1 - Vendi 1 PC de 3 mil reais, então ne mesma venda o clinte > > > > pagar assim: > > > > 2.1.1 - 1mil em dinheiro > > > > 2.1.2 - 500 reais em cartão > > > > 2.1.3 - 500 reais em boleto > > > > 2.1.4 - 500 reais em um cheque > > > > 2.1.5 - 500 reais em um outro cheque > > > > > > > > 3 - Tabela de preço, onde eu possa escolher qual preço usar para > aquele > > > > produto. Exemplo: > > > > 3.1 - Produto: MOUSE > > > > 3.1.1 - Preço 1 - 10,00 > > > > 3.1.2 - Preço 2 - 12,50 > > > > 3.1.1 - Preço 3 - 13,00 > > > > 3.2 - O "nome do preço" na tabela de preço poderá ser qualquer > > > > texto, como "preço em dinheiro", "preço cartão 3x", "preço cartão 6x" > > > > > > > > > > > > Se posuir NF-e melhor ainda. > > > > > > > > Eu achei vários sistemas, mas o problema é que sempre fica faltando > > > algumas > > > > destas funcionalidades. > > > > > > > > -- > > > > Atenciosamente, > > > > Paulo Coutinho. > >
Re: [delphi-br] Lendo o texto PDF
Eu passei por essa e sem poder gastar um centavo resolvi com uma "gambiarra": Na GNUWin32 (opensource), tem um aplicativo console com o nome sugestivo de pdf2txt.exe Em 8 de fevereiro de 2010 17:18, Marcelo Moacir Florindo < marceloflori...@gmail.com> escreveu: > > > Colegas, > Consigo ler o texto de um pdf? > > Explicando: > > O usuário salvará documentos em pdf e quando necessitar fazer uma pesquisa > o > sistema deverá verificar o texto dos pdfs, que estarão salvos em um > diretório especifico. > > Obrigado a todos, > > -- > Marcelo Moacir Florindo > Analista/Desenvolvedor > http://www.gestaotec.com.br > > [As partes desta mensagem que não continham texto foram removidas] > > > -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com http://www.guionardofurlan.com.br [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> <*> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages <*> Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] PDF
Eu também fiquei um bom tempo atrás de uma solução open-source Mas o que quebrou o galho foi o aplicativo pdf2txt que faz parte do gnuwin. Dá uma olhada lá: http://gnuwin32.sourceforge.net/ Em 21 de janeiro de 2010 14:02, felipearaujolopes < felipearaujolo...@yahoo.com.br> escreveu: > > > Galera, boa tarde > > Preciso desenvolver uma aplicação no qual eu pegue os dados de um arquivo > PDF e jogue em um arquivo texto identificando a pagina no qual foi copiada. > > Fiz isso utilizando umas dll paga, mas a dll tem muito erro de caracter. > > Alguem sabe outro meio de fazer tal processo? > -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com http://www.guionardofurlan.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] BDE funciona de 2 modos diferentes
Não sei o porque desse problema com o BDE. Mas, já que vc está usando firebird ou interbase (pela extensão do banco), porque não usa os componentes adequados (DBX, MDO, ZEOS, etc) e se livra do BDE? Em 23 de janeiro de 2010 10:08, Alisson Yahoo escreveu: > > > Alguém sabe me dizer porque em algumas máquinas o path do BDE funciona > configurado como "servidor:c:\pasta\bd.gdb" e em algumas tenho que > configurar como "\\servidor\c:\pasta\bd.gdb"? Inclusive em algumas máquinas > > param de funcionar e eu tenho que mudar essa configuração, ou seja, ora > funciona de um jeito, ora funciona de outro. > > -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com http://www.guionardofurlan.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Turbo Delphi
Se o problema é dinheiro pra licença e vc não for/quiser/poder partir pra binários "genéricos" pode tentar o Lazarus/FPC que são OS e tem (me) surpreendido positivamente. 2010/1/21 Andrei Luís > > > De fato, a resposta veio rápida: > > "Andrei -- > > Thanks for your interest > > Sadly, no, you are not authorized to distribute those binaries. But even if > you were, it wouldn't make any difference -- we no longer issue keys for > those products. > > Nick" > > So... no way. > > > [] > Andrei > > 2010/1/21 Jackson Gomes - Tools&Comps > > > > > > > Alguém sabe se é permitido a distribuição do Turbo Explorer? For free, > > > claro. Porque eu tenho os .iso aqui e poderia jogar em algum disco > > virtual > > > se for permitido. > > > > não acredito que eles vão permitir isso, pq o que eles querem é que vc > use > > o > > Delphi 2010. mas manda um e-mail pro Nick Hodges, ele sempre responde... > > > > Nick.Hodges @ embarcadero . com > > > > Jackson Gomes > > Tools&Comps - Controle de Usuários para Desenvolvedores CodeGear > > Web Site: http://www.toolsandcomps.com > > Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps > > e-mail <http://groups.yahoo.com/group/toolsandcomps%0Ae-mail>: > > > jack...@toolsandcomps.com > > Fone: 27 3389 1138 - 8811 0324 > > > > -- > > http://jacklovesdelphi.blogspot.com - Delphi, Intraweb, etc > > > > -- > > Devhost - Webhost para desenvolvedores Delphi > > http://www.devhost.com.br > > devh...@devhost.com.br > > > > > > > > > > > > > > > > > [As partes desta mensagem que não continham texto foram removidas] > > > -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com http://www.guionardofurlan.com.br [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> <*> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages <*> Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Persistir Set of Type
Como o pessoal já esclareceu o assunto, só vou adicionar um fato que
aconteceu aqui.
Eu substituí o delphi pelo fpc/lazarus, e no caso de ter que persistir o
conteúdo de um set, não deu certo usar o cast.
Não sei se isso é coisa do FPC, mas solucionei da seguinte maneira:
type
TMeusTipos = (aTipo1, aTipo2, aTipo3);
TMeuSet = set of TMeusTipos;
function MeuSetToInt(const S: TMeuSet): Integer;
var P : PLongInt;
begin
P:=...@s;
Result:=P^;
end;
function IntToMeuSet(const I: Integer): TMeuSet;
var P: PLongInt;
begin
P:=...@result;
P^:=I;
end;
2009/12/11 Higor
>
>
> Gostaria de saber se é possível gravar no banco de dados o estado de uma
> variavel do tipo set of Type Enum. Se não estou enganado, uma vez vi um
> código delphi que gerava um número inteiro de um set e gravava num
> arquivo.ini.
>
> ex:
>
> Type TMeuTipo = (a,b,c,d);
> type TMeuTipoSet = set of TMeuTipo;
>
> var tiposet: TMeuTipoSet;
> begin
> //usuário faz algo em tela que resulta em:
> tiposet := [b,d];
> cds.FieldByName('campo').value := tiposet; //isso é possível?
>
> //para depois em algum momento ao carregar o form eu possa:
> tiposet := cds.FieldByName('campo').value;
> end;
>
> obrigado desde já,
> Higor Granzoto
>
>
>
--
Timeo hominem unius libri
Cogito ergo sum - Carpe diem
[]s
Guionardo Furlan
http://guionardo.blogspot.com
http://www.guionardofurlan.com.br
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
delphi-br-ow...@yahoogrupos.com.br
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
delphi-br-unsubscr...@yahoogrupos.com.br
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] Comercializar Software
AHUHAUHAUHAUHUAHAUHAUAHUAHUAH, essa foi pra terminar a semana! 2009/12/3 EmbarcaDelphi > Uma faca serve para passar manteiga no pau -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com http://www.guionardofurlan.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] [MAF] Criptografia AES 256Bits
Eheheh, vou chutar que deve ser o salário de peões de obra, tipo 2 salários-mínimos + vale-transporte + ticket-refeição. 2009/11/9 Marcos Ferreira > > > Ricardo, > > O que é não é o importante, o importante é de onde vem e de quem é. São > dados de folha de pagamento Sabe quando um descobre o salário do outro > e > ai fica aquela fofoca na empresa. Internamente esse é um dos assuntos mais > sigilosos nas empresas. > > Só não me perguntem que empresa é essa, mesmo por que não tenho acesso aos > valores reais da folha de pagamento. Todo o desenvolvimento é feito sobre > uma base de dados fictícia. > > Att, > > Marcos A. Ferreira > > São Paulo - Brasil > > MSN: maferre...@hotmail.it > > Google Talk: maf.decisiva > > Skype: m_abreuferreira > > Esta mensagem pode conter informação confidencial e/ou privilegiada. Se > você > não for o destinatário ou a pessoa autorizada a receber esta mensagem, não > pode usar, copiar, ou divulgar as informações nela contidas ou tomar > qualquer ação baseada nestas informações. Se você recebeu esta mensagem por > engano, por favor, avise imediatamente o remetente, respondendo o email e > em > seguida, apague-o. > > Agradecemos sua cooperação. > > This message may contain confidential and/or privileged information. If you > are not the addressee or authorized to receive this for the addressee, you > must not use, copy, disclose or take any action based on this message or > any > information herein. If you have received this message in error, please, > advise the sender immediately by reply e-mail and delete this message. > > Thank you for your cooperation. > > Antes de imprimir pense em sua responsabilidade e compromisso com o MEIO > AMBIENTE. > > ENVIRONMENT commitment and responsibility, think about Before Printing. > > _ > > From: delphi-br@yahoogrupos.com.br [mailto: > delphi-br@yahoogrupos.com.br ] On > Behalf Of Ricardo César Cardoso > Sent: segunda-feira, 9 de novembro de 2009 16:08 > To: delphi-br@yahoogrupos.com.br > Subject: Re: [delphi-br] [MAF] Criptografia AES 256Bits > > > Se ele contar, deixa de ser sigilosa ;p > > Abraço, > Ricardo. > > 1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS. > 2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor > compreendida. > 3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! > > --- Em seg, 9/11/09, Dirlei Dionísio <mailto:dirlei%40gmail.com > com> escreveu: > > > De: Dirlei Dionísio > <mailto:dirlei%40gmail.com> > com> > > > Assunto: Re: [delphi-br] [MAF] Criptografia AES 256Bits > > Para: delphi...@yahoogrup > > <mailto:delphi-br%40yahoogrupos.com.br > > > > os.com.br > > Data: Segunda-feira, 9 de Novembro de 2009, 0:21 > > Marcos, > > > > AES é um algoritmo bem popular, com implementação na > > maioria das linguagens. > > Em Delphi existe essa aqui que implementa vários > > algoritmos de criptografia, > > incluindo o Rijndael (ou AES): > > http://www.cityinth <http://www.cityinthesky.co.uk/cryptography.html> > > esky.co.uk/cryptography.html > > > > Se você nunca lidou com criptografia, recomendo alguma > > leitura para se > > informar. Na Wikipedia você encontrará boas > > informações. > > > > Mas me diga uma coisa: que tipo de informação é tão > > sigilosa que precise ser > > criptografada com um AES de 256 bits? > > > > [ ]'s > > Dirlei. > > > > > > 2009/11/8 Marcos > <mailto:m.abreuferreira%40hotmail.com > > > > hotmail.com> > > > > > > > > > > > Pessoal, > > > > > > Estou precisando criar uma DLL com duas funções, uma > > para criptografar e > > > outra para decriptografar seguindo o padrão AES com > > 256bits. Nunca mexi com > > > criptografia, ou seja, não sei nem estimar o tempo de > > desenvolvimento para > > > isso. Alguém teria algum material, componente que > > pudesse me ajudar? > > > > > > Att, > > > > > > Marcos A. Ferreira > > > > > > > > > > > > > > > [As partes desta mensagem que não continham texto foram > > removidas] > > > > > > > > > > > > -- > > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER > > ESTA MENSAGEM >>>>> > > > > Links do Yahoo! Grupos > > > > > > > > > > __ > Veja quais são os
Re: [delphi-br] Contador no e-mail
On 30/09/2009 05:27, Henry Maltz wrote: > 'text/html', porém quando abro o > e-mail ele só mostra o html sem executar o código php. O problema é que o código html/php será lido na máquina do cliente, pelo leitor ou via webmail. E nenhum dos dois processa código php. Talvez, usando a tag , mas muitos clientes de email não a lerão, como o gmail. -- -- /Timeo hominem unius libri Cogito ergo sum - Carpe diem/ Guionardo Furlan http://guionardo.blogspot.com http://www.guionardofurlan.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] [Converter JPEG para PDF]
Na gnuwin32 tem um aplicativo jpeg2ps.exe que transforma o jpeg para postscript. E aqui ( http://pages.cs.wisc.edu/~ghost/doc/cvs/Ps2pdf.htm ) vc consegue o pdf a partir do ps. Veja se te atende. 2009/8/28 Ricardo César Cardoso : > > > Acho que o mais próximo é usar um gerador de relatórios como o FortesReports > por exemplo... Ou algum componente de terceiros. > []'sRicardo. > > 1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS. > > 2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor > compreendida. > > 3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! > > --- Em sex, 28/8/09, Marcio escreveu: > > De: Marcio > Assunto: [delphi-br] [Converter JPEG para PDF] > Para: delphi-br@yahoogrupos.com.br > Data: Sexta-feira, 28 de Agosto de 2009, 11:29 > > > > Oi pessoal.. > > Algum conhece alguma maneira de converter uma imagem JPEG em PDF ?? > > Em DELPHI 7 . > > > > > > > > > > > > > > > > __ > Veja quais são os assuntos do momento no Yahoo! +Buscados > http://br.maisbuscados.yahoo.com > > [As partes desta mensagem que não continham texto foram removidas] > > -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com http://www.guionardofurlan.com.br
Re: [delphi-br] [OFF] Quem fez o download do OCR Delphi?
SpyBanker é o virus que o Avira detectou aqui. Nem abri o zip. 2009/8/10 OCRDelphi : > > > Galera, > > Fiz um demo com uma rotina que abre um BMP (criptografado ou não) e > passa o conteúdo desse BMP para um TEdit. > O BMP contem caracteres, o OCR que desenvolvi captura e transforma em > string. Estou fazendo uma nova maneira de login. O usuário digita a > senha e a rotina verifica se são iguis, dessa forma, com um BMP > criptografado e com OCR é quase impossível de alguém vir a decifrar a > senha. Mais segurança para o programa. > > Deixei um demo no 4Share para vocês testarem. O link é: > http://www.4shared.com/file/124008714/ab795c0f/Login_Senha_OCR.html > > Um membro da lista disse que estava com vírus, mas não é verdade. Faça o > download do arquivo zipado e peçam para varrer o arquivo com seu > anti-virus. Até no 4Shared, o próprio antivírus deles informa que não > contem vírus. > Eu não tenho intenção de passar vírus para ninguém. Sou programador e > estou participando da lista Delphi-BR também. > > Agradeço a todos que testarem este programinha e venha a fazer um > comentário sobre ele. > > ocrdel...@gmail.com > > -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com http://www.guionardofurlan.com.br
Re: [delphi-br] Rede Lenta
Alguns pontos a considerar. Numa rede 100Mbps, teríamos a taxa de transferência MÁXIMA teórica de 12,5 MB/s. Isso numa situação ideal, com um switch que faz seu trabalho direitinho e o cabeamento 100%. Seu executável de 22MB não pode carregar integralmente em menos de 1 segundo, por razões óbvias. O que pode ocorrer é o loader carregar somente o necessário para a execução inicial, e ir carregando o resto de acordo com a necessidade. Mesmo com a opção de carga sob demanda, dependendo do número de estações, há sim o comprometimento da transferência. Aqui na lista já foram discutidas várias formas de se fazer o update automático dos aplicativos nas estações. Não tem nada de complicado. Não entendi isso de o windows não ver diferença em atualizações pequenas. Versão em cache? É a primeira vez que leio sobre isso. Um abraço. 2009/7/2 Leandro : > > > me desculpa mas meu sistema tbm mantem o executavel de 22mb no servidor e n > demora mais de 1 seg para executar.. e tenho certeza q n deixa a rede > lenta!! ainda mais q soh se abre o executavel no maximo umas 4x ao dia em > cada terminal, se ele esta reclamando de estar lenta ha algum problema > fisico mesmo ou no servidor.. e eh muito complicado esse negocio de colocar > o executavel nas estacoes.. as vezes o windows n ve muita diferença em > atualizacoes pequenas.. mesmo trocando a versao do arquivo e fazendo com q > execute a versao q ja esta em cache e nao a q foi atualizada! > > 2009/7/2 Eduardo Silva dos Santos > >> >> >> O ideal é manter os atalhos nas estações e criar um esquema pra atualizar. >> Manter o executável no servidor é condenar a rede a ficar lenta, imagina o >> tráfego de dados a cada execução do sistema? >> >> coloca o exe nas estações que vai ficar 100% >> >> Att, >> ... >> Eduardo Silva dos Santos >> DRD SISTEMAS >> (27) 3218-4201 >> (27) 9961-7095 >> MSN: eduardo@gmail.com >> Site: http://www.drdsistemas.com.br/ >> ... >> >> >> 2009/7/2 l_o_angelini >> >> > >> >> > >> > >> > Boa Tarde a todos >> > >> > Estou com a seguinte caso, tem um rede local com um servidor, nele roda >> > o >> > FireBird 2.1, esta instalado o sistema de contabilidade publica, nessa >> rede >> > tem 12 maquinas que acessa, o sistema funciona dessa forma, é criado um >> > atalho nas maquinas cliente do executavel que esta no servidor, esse >> > executavel tem aproximadamente 25 mb, a rede tem dois hub(a rede fica >> > num >> > predio, um hub embaixo e outro em cima), sendo os hub e as placas >> > 10/100, >> de >> > uns tempos pra ca a rede esta ficando lenta quanto executa o atalho, >> > gostaria de saber se trocasse os hub´s e as placa para 10/100/1000 >> > resolveria esse problema ou a mudança não faria tanta diferença, ia me >> > esquecendo a configuração do Servidor: Intel Core 2 Duo E6400 2.13 ghz, >> MB >> > Asus P5W DH Deluxe, 2 mb memoria DDR2 667 mhz, Windows XP SP3. >> > >> > >> > >> >> [As partes desta mensagem que não continham texto foram removidas] >> >> >> > > -- > Leandro, MuTukA > > [As partes desta mensagem que não continham texto foram removidas] > > -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com http://www.guionardofurlan.com.br
Re: [delphi-br] (ENUM TYPES) Procedimentos genérico s
Pesquise por sobrecarga (overload) de procedures/functions. No próprio
help já tem a informação que vc precisa.
Pra ajudar mais um pouco, algum código:
function ObterDigitalizacaoDB(const Tipo: TDigitalizacaoModulo):
string; overload;
function ObterDigitalizacaoDB(const Tipo: TDigitalizacaoPessoa):
string; overload;
function ObterDigitalizacao(DB: string): TDigitalizacaoModulo; overload;
function ObterDigitalizacao(DB: string): TDigitalizacaoPessoa; overload;
Digitando esse código na seção interface da unit e teclando
alt-ctrl-c, o código será preenchido na seção implementation (como vc
deve saber). Aí é só completar.
** procedure DefinirDigitalizacaoDescricao(ListDescricao, ListTipo: TStrings);
Não vai funcionar pois a assinatura de parâmetros é igual nas duas
procedures. O compilador não vai saber qual usar.
É preciso encontrar outra solução.
Espero que tenha sido claro.
Aquele abraço.
2009/7/2 Elazar Dornelles Ceza :
>
>
> Pessoal, bom dia
>
> Tenho alguns tipos enumerados e estou obtendo informações a respeito dos
> mesmos, no entanto gostaria de escrever rotinas genericas para obter estas
> informações conforme o 'tipo' passado como parametro.
>
> Neste momento eu tenho os seguintes tipos e arrays para armazenar as
> informações que vou precisar referente aos tipos.
>
> type
> TDigitalizacaoModulo = (dzmReconhecimento, dzmEncaminhamento, dzmEscritura,
> dzmRegistroProcuracao);
> TDigitalizacaoPessoa = (dzpTodos, dzpFisica, dzpJuridica, dzpTabelionato);
>
> const
> DigitalizacaoModuloDB: array[TDigitalizacaoModulo] of string = ('R', 'E',
> 'S', 'X');
> DigitalizacaoModuloDescricao: array[TDigitalizacaoModulo] of string =
> ('Reconhecimento', 'Encaminhamento', 'Escritura', 'Registro Procuração');
>
> DigitalizacaoPessoaDB: array[TDigitalizacaoPessoa] of string = ('A', 'F',
> 'J', 'T');
> DigitalizacaoPessoaDescricao: array[TDigitalizacaoPessoa] of string =
> ('Todos', 'Física', 'Juridica', 'Tabelionato');
>
> Para obter as informações de cada eu uso estas 3 funções para obter
> informações de um determinado Enum, como quero deixar 'genéreo'...gostaria
> de ter apenas 3 funções que poderiam ser utilizadas para qualquer tipo, será
> possivel?
>
> .
> function ObterDigitalizacaoModuloDB(Tipo: TDigitalizacaoModulo): string;
> function ObterDigitalizacaoModulo(DB: string): TDigitalizacaoModulo;
> procedure DefinirDigitalizacaoModuloDescricao(ListDescricao, ListTipo:
> TStrings);
>
> function ObterDigitalizacaoPessoaDB(Tipo: TDigitalizacaoPessoa): string;
> function ObterDigitalizacaoPessoa(DB: string): TDigitalizacaoPessoa;
> procedure DefinirDigitalizacaoPessoaDescricao(ListDescricao, ListTipo:
> TStrings);
>
> ..
> .
> .
> .
>
> { TDigitalizacaoModulo }
> function ObterDigitalizacaoModuloDB(Tipo: TDigitalizacaoModulo): string;
> begin
> Result := DigitalizacaoModuloDB[Tipo];
> end;
>
> function ObterDigitalizacaoModulo(DB: string): TDigitalizacaoModulo;
> var
> tDModulo: TDigitalizacaoModulo;
> begin
> for tDModulo := Low(TDigitalizacaoModulo) to High(TDigitalizacaoModulo) do
> begin
> if DigitalizacaoModuloDB[tDModulo] = DB then
> Result := tDModulo;
> end;
> end;
>
> procedure DefinirDigitalizacaoModuloDescricao(ListDescricao, ListTipo:
> TStrings);
> var
> tDModulo: TDigitalizacaoModulo;
> begin
> if Assigned(ListDescricao) then
> ListDescricao.Clear;
>
> if Assigned(ListTipo) then
> ListTipo.Clear;
>
> for tDModulo := Low(TDigitalizacaoModulo) to High(TDigitalizacaoModulo) do
> begin
> if Assigned(ListDescricao) then
> ListDescricao.Add(DigitalizacaoModuloDescricao[tDModulo]);
>
> if Assigned(ListTipo) then
> ListTipo.Add(DigitalizacaoModuloDB[tDModulo]);
> end;
> end;
>
> { TDigitalizacaoPessoa }
> function ObterDigitalizacaoPessoaDB(Tipo: TDigitalizacaoPessoa): string;
> begin
> Result := DigitalizacaoPessoaDB[Tipo];
> end;
>
> function ObterDigitalizacaoPessoa(DB: string): TDigitalizacaoPessoa;
> var
> tDPessoa: TDigitalizacaoPessoa;
> begin
> for tDPessoa := Low(TDigitalizacaoPessoa) to High(TDigitalizacaoPessoa) do
> begin
> if DigitalizacaoPessoaDB[tDPessoa] = DB then
> Result := tDPessoa;
> end;
> end;
>
> procedure DefinirDigitalizacaoPessoaDescricao(ListDescricao, ListTipo:
> TStrings);
> var
> tDModulo: TDigitalizacaoPessoa;
> begin
> if Assigned(ListDescricao) then
> ListDescricao.Clear;
>
> if Assigned(ListTipo) then
> ListTipo.Clear;
>
> for tDModulo := Low(TDigitalizacaoPessoa) to High(TDigitalizacaoPessoa) do
> begin
>
Re: [delphi-br] TList ou TObjectList para Stream
Matou a pau, eheh. Vou guardar essa dica no caderninho. Abração 2009/7/1 Edelson Regis de Lima : > > > Fala Guionardo, tranquilo? > > Então, eu acabei resolvendo esse problema com um TClientDataSet mesmo, ao > invés de um TList. Ficou muito mais simples. > Eu uso um campo do tipo blob (TBlobField) para armazenar outros > TClientDataSets já convertidos em TMemoryStream. > Ou seja, cada registro desse TClientDataSet contem outro TClientDataSet. E > eu ainda posso criar outros campos para servir como passagem de parametros. > E no final eu dou um TClientDataSet.SaveToStream, e obtenho a minha stream > com todos os TClientDataSets embutidos. > Ficou bem mais simples dessa maneira. > > Mas valew pela dica assim mesmo! > > Abraços, > > Edelson. > > 2009/6/30 Guionardo Furlan > >> >> >> Minha sugestão. >> Mantenha a estrutura do TList de ClientDataSets. >> Crie um TMemoryStream (MS) >> Faça um loop para varrer o TList. >> Para cada item: >> - vc escreve um LongInt (N) (representando o tamanho dos dados [Data, >> acho que é essa propriedade que guarda os dados do CDS] do CDS >> respectivo) no MS >> - escreve o conteúdo do Data do CDS no MS >> >> Quando for ler, é só varrer o MS obtendo o tamanho dos dados pelo >> primeiro longint (N) e ler N bytes para a propriedade Data do CDS. Se >> ainda houver dados no MS, repita o procedimento, criando novo CDS. >> >> São quase 11 horas da noite, eheh. Deu pra entender a minha idéia? >> >> 2009/6/23 Edelson Regis de Lima >: >> >> > >> > >> > Boa tarde! >> > >> > Pesssoal, alguem sabe se tem como gerar um TMemoryStream a partir de um >> > TList? >> > O TStringList até tem um SaveToStream, porém não salva os objetos >> contidos >> > na lista, somente strings. >> > >> > Basicamente é o seguinte... preciso transportar vários ClientDataSets, e >> a >> > melhor maneira é transformar em Stream primeiro. >> > Só que eu não quero transportar um a um, eu quero "empacotar" todos os >> > ClientDataSets numa Stream só. >> > >> > Aí pensei em colocar todos os ClientDataSets em um TList (ou algo do >> > genero), e transformar esse TList em Stream. Só que o TList não tem o >> > SaveToStream. >> > Alguém sabe? >> > Ou se alguem tiver alguma outra sugestão de fazer esse empacotamento, >> > sem >> > usar Lists, também será bem vinda... >> > >> > Até mais, >> > >> > Edelson. >> > >> > [As partes desta mensagem que não continham texto foram removidas] >> > >> > >> >> -- >> Timeo hominem unius libri >> Cogito ergo sum - Carpe diem >> >> []s >> Guionardo Furlan >> http://guionardo.blogspot.com >> http://www.guionardofurlan.com.br >> >> > > [As partes desta mensagem que não continham texto foram removidas] > > -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com http://www.guionardofurlan.com.br
Re: [delphi-br] TList ou TObjectList para Stream
Minha sugestão. Mantenha a estrutura do TList de ClientDataSets. Crie um TMemoryStream (MS) Faça um loop para varrer o TList. Para cada item: - vc escreve um LongInt (N) (representando o tamanho dos dados [Data, acho que é essa propriedade que guarda os dados do CDS] do CDS respectivo) no MS - escreve o conteúdo do Data do CDS no MS Quando for ler, é só varrer o MS obtendo o tamanho dos dados pelo primeiro longint (N) e ler N bytes para a propriedade Data do CDS. Se ainda houver dados no MS, repita o procedimento, criando novo CDS. São quase 11 horas da noite, eheh. Deu pra entender a minha idéia? 2009/6/23 Edelson Regis de Lima : > > > Boa tarde! > > Pesssoal, alguem sabe se tem como gerar um TMemoryStream a partir de um > TList? > O TStringList até tem um SaveToStream, porém não salva os objetos contidos > na lista, somente strings. > > Basicamente é o seguinte... preciso transportar vários ClientDataSets, e a > melhor maneira é transformar em Stream primeiro. > Só que eu não quero transportar um a um, eu quero "empacotar" todos os > ClientDataSets numa Stream só. > > Aí pensei em colocar todos os ClientDataSets em um TList (ou algo do > genero), e transformar esse TList em Stream. Só que o TList não tem o > SaveToStream. > Alguém sabe? > Ou se alguem tiver alguma outra sugestão de fazer esse empacotamento, sem > usar Lists, também será bem vinda... > > Até mais, > > Edelson. > > [As partes desta mensagem que não continham texto foram removidas] > > -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com http://www.guionardofurlan.com.br
[delphi-br] Footer em StringGrid
Buenas pessoal, estou fazendo um aplicativo no Lazarus/FPC. Até o momento, a IDE/compilador supriu todas as necessidades do desenvolvimento. Mas tenho um form de cadastro de pedidos/items de pedidos no qual há um stringgrid que recebe várias informações de agrupamento. Por exemplo: |Categoria 1 | 4 items | 400,00 | |Categoria 2 | 2 items | 250,00 | ... Gostaria de fazer um total na última linha, mas teria que ser do tipo "Fixed row" como no título. Se não houver saída, vou fazer uma alteração no StringGrid para colocar essa necessidade. Tenho duas idéias, a primeira é só criar um OnDrawCell e "pintar" a célula; a segunda seria implementar mesmo um sistema de Rodapé (vai ser um saco, nesse momento). Entretanto, acho que alguém já deve ter pensado nisso antes. Então, alguém conhece algum componente que ajude no meu problema? -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com http://www.guionardofurlan.com.br
Re: [delphi-br] Particionamento...
Em delphi? 2009/5/7 EmbarcaDelphi > > > E aà pessoal > > Alguém sabe algo sobre particionamento de Pen-Drive? > -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com http://www.guionardofurlan.com.br
Re: [delphi-br] Calcular tempo restante
TempoRestante := TempoDecorrido * BarraProgresso.Position / BarraProgresso.Max;
2009/4/16 Edelson Regis de Lima :
>
>
> Olá pessoal.
>
> Digamos que eu uma ProgressBar com o Max = 1000.
> Faço um loop de 1 até ProgressBar.Max, e em cima dela eu quero calcular o
> Tempo Decorrido, e o Tempo Restante que falta para completar o loop (igual
> ao tempo restante em uma tela de download).
> O Tempo decorrido é fácil, faço da seguinte maneira:
>
> TempoDecorrido := FormatDateTime('hh:nn:ss', TempoAtual - TempoInicial);
>
> Para calcular o TempoRestante eu teria que fazer uma regrinha de três:
> para TempoDecorrido = ProgressBar.Position
> então X = ProgressBar.Max
>
> Aí fiz o seguinte:
>
> TempoRestante := (TempoDecorrido * BarraProgresso.Max) /
> BarraProgresso.Position ;
>
> Mas isso não dá certo...
> Já tentei transformar o TempoDecorrido em segundos antes de fazer a conta,
> mas dá uns tempos doidos... só no final que dá certo, que é quando a termina
> o loop e o TempoRestante fica igual a zero.
>
> Se alguém souber onde estou comendo bola...
>
> Abraços,
>
> Edelson.
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
--
Timeo hominem unius libri
Cogito ergo sum - Carpe diem
[]s
Guionardo Furlan
http://guionardo.blogspot.com
http://www.guionardofurlan.com.br
Re: [delphi-br] Database Desktop
Dá pra colocar o XP nessa máquina? Eu e meu irmão temos dois Vaio VGN-CR320E. O dele está com o vista que veio instalado. O meu está com o XP SP3. Nâo existem drivers no site da sony para o xp, mas dei um jeito e consegui deixar tudo funcionando após uma mega busca por todos os dispositivos. Lado a lado, é visível a vantagem do XP em cima do Vista. Se fosse vc, eu não pensaria duas vezes. 2009/3/24 Adenes Junior : > Comprei um Sony Vaio com Windows Vista, instalei o Delphi 7 mais quando abro > o Database Desktop dar problema de compatibilidade, não mostras os botões de > salvar e demais... já fui em propriedades de aplicativo e coloquei executar > com compatibilidade Windows XP, mesmo assim continua do mesmo jeito. O que > eu devo fazer? > > [As partes desta mensagem que não continham texto foram removidas] > > -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com http://www.guionardofurlan.com.br
Re: [delphi-br] Pacotes (BPL) ajuda
Fala jipeiro, dá uma olhada aqui: http://www.techtips.com.br/programacao/modularizao-de-aplicativos-single-package/ From: Wainer Sent: Wednesday, March 25, 2009 12:31 PM To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Pacotes (BPL) ajuda Amigos depois de um sistema pronto, comecei a usar pacotes, ate ai tudo bem, porem quando fui utilizar comecou a pedir outras bpl , que dever ver inerentes ao delphi , foram so 41, imagina para distribuir isto, a vem a pergunta, estas bpls que foram solicitadas tem como ja ficar incorporada ao meu sistema ou todas na minha bpl obrigado Wainer 16--6697 16-9101-1757 Wisa soft 16-3721-7187 o[|||]o ▓-o---▓ CJ3A - 49
Re: [delphi-br] Lendo TMemoryStream
Você poderia postar algum código? 2009/2/20 Thiago Filiano > > Galera, > > Estou tendo uma dificuldade grande, e não estou encontrando algo que me dê > essa luz. > > Tenho um Record, com 2 propriedades, e o mesmo eu incluo em um MemoryStream > para enviar via socket. Na outra ponta, recebo o memoryStream, mas não > consigo receber esses dados novamente no formato do meu record. > > Me fiz claro? > > Caso alguém que conheça uma forma de fazer essa leitura, qualquer ajuda será > muito bem vinda! -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com http://www.guionardofurlan.com.br
Re: [delphi-br]BuscaCEP (104MB de dados)
Mais uma solução pro problema do cep: http://www.pc2consultoria.com/index.php?option=com_content&task=view&id=298&Itemid=73 -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
Re: [delphi-br] Mais de uma condição com "FormatDa tetime"!!!
> IF FormatDateTime('hh:nn:ss',NOW) > '09:15:00' and
> FormatDateTime('hh:nn:ss',Now) < '17:59:59' then
Estão faltando os parênteses aí, pra isolar as comparações entre o AND.
Faça assim:
IF (FormatDateTime('hh:nn:ss',NOW) > '09:15:00') and
(FormatDateTime('hh:nn:ss',Now) < '17:59:59') then
2009/1/29 rafaelpinto19 :
>
>
> BOa noite pessoal,
>
> Estou desenvolvendo um Registro de Pontos de Funcionários por
> senha mesmo, até eu implementar um ponto por código de Barras, Mas
> estou tento o Seguinte PROBLEMA:
>
> No Programa, o Funcionário chega, Coloca sua senha e registra
> sua entrada...Mas tem até uma CERTA hora pra ele resgistrar sua
> entrada, pois SE passar... Vem umja mensagem dizenzo q só o SUPERVISOR
> poderá fazer o registro do Mesmo. Para fazer essa condição Eu usei o "
> FormatDateTime" desse Jeito:
>
> IF FormatDateTime('hh:nn:ss',NOW) > '09:15:00' then
> Begin
> ShowMessage('Horário Excedido! Favor Pedir para o
> Administrador Registrar sua Entrada!');
> End;
>
> Até aí Funciona Legal
>
> Agora quero que todo dia Após 18:00 da tarde, o Programa esteja
> LIBERADO para resgistrar o Final de expediente de Cada um...
>
> Eu tento colocar desse jeito:
>
> IF FormatDateTime('hh:nn:ss',NOW) > '09:15:00' and
> FormatDateTime('hh:nn:ss',Now) < '17:59:59' then
>
--
Timeo hominem unius libri
Cogito ergo sum - Carpe diem
[]s
Guionardo Furlan
http://guionardo.blogspot.com
Re: [delphi-br] Condições com Hora!
O tipo datetime é um float em que 1 é igual a 1 dia, e 1 hora equivale a 1/24 e assim por diante. Dessa forma, 12 horas valem 0,5. Assim, é só vc testar se Frac(suahora)<0.5 pra saber se suahora é de manhã. Fácil, não? Aquele abraço. 2009/1/22 rafaelpinto19 : > > > Boa Tarde Galera, > > Pessoal, eu sei que é uma coisa bem básica, mas não estou > conseguindo resolver este problema: > > Quero Só colocar uma condição com Hora...exemplo... Se HORA < = > 11:59 tem que aparecer na Label1.Caption:= "Bom DIA" Se não := "BOA > TARDE". Parece Ser uma coisa Bem Simples, mas não estou conseguindo > resolver. Não sei se precisa colocar uma variável. Não sei se tem qu > econverter... Se alguém puder ajudar...iria ficar muito grato -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
Re: [delphi-br] Problemas com MDOQuery
Não sei quanto ao resto do pessoal, mas acho pouca informação do problema pra poder ajudar. Quem sabe algum código fonte ou SQL ajudaria. Abração 2009/1/19 Mário Antonio de A. Pagnozzi : > Amigos, > > Estou tendo o seguinte problema. > > Tenho um função que chama um MDOQuery de acordo com a data de hoje, e > cada momento que é dado um update no bando de dados é chamada a função > novamente. > > Ocorre o seguinte, minha tabela estava com 7 itens, e derrepente quando > se chamava essa função minha aplicação fechava, não detectei erro no > script e então apaguei os registros e a partir deste momento voltou a > funcionar normalmente. > > Alguem saberia me explicar o porque disso para que eu possa estar > arrumando? > > Grato. > > -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
[delphi-br] Expressões regulares
Buenas pessoal Tenho alguns arquivos textos contendo artigos científicos e estou desenvolvendo um aplicativo que bota ordem na bagunça, buscando as palavras chave no meio do texto. Como a fonte dos artigos é variada, posso obter, por exemplo as palavras-chave nos seguintes formatos: Palavras-chave: Adiposidade corporal. Capacidade funcional. Composição corporal. Key words: Body composition. Body adiposity. Functional capacity. --> Identificador + DOIS PONTOS + valores separados por ponto Keywords: Boost pressure Diesel engine Neuro-fuzzy ANFIS --> Identificador + DOIS PONTOS + Valores separados por inicial maiúscula --> Padrão tag, com valores separados por vírgula e terminados por ponto Key words: low level laser therapy; endodontic surgery; postoperative pain. --> Identificador + DOIS PONTOS + valores separados por ponto-e-vírgula + terminador CR+LF Key Words: ankle instability, subtalar joint injury, ankle dysfunction --> Identificador + DOIS PONTOS + valores separados por vírgula + terminador CR+LF Pensei em usar Expressões regulares para identificar estes textos, mas não sei como fazer para montar estas expressões. Alguém tem uma sugestão de como posso fazer esta "captura" de dados? Grato por qualquer ajuda Aquele abraço -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
Re: [delphi-br] Dúvida com TStringList
Usar a propriedade Duplicates do TStringList não resolve teu problema? 2008/12/15 deco0_07 : > Tem como eu descobrir o indice de um determinada linha do StringList? > > ex... > > tenho um edit com as linha que nao quero copiar > usar um for pra percorrer todas as linhas e num if verificar se a linha > que esta no stringlist é igual a que esta no edit > > o problema é que nao consigo pegar o indice dessa linha... > ja usei indexof, mas se tenho linhas com valores repetidos ele ignora > tbm... > > vlww's > > -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
Re: [delphi-br] ref. listbox
Datamodule? Isso não está certo. O DM não pode conter um ListBox.
Mas pra criar um listbox em runtime, faça o seguinte dentro de um
método do seu form.
var LB : TListBox;
begin
LB:=TListBox.Create(seuform);
LB.Parent:=seuform;
//Posicione o listbox definindo valores para as propriedades Left e Top
LB.Items.Add('Valor1');
LB.Items.Add('Valor2');
end;
2008/12/24 Omar Marques :
> Salve amigos.
>
> Alguém tem alguma dicas de como criar um tlistbox e preenchê-lo em tempo de
> execução. Estou usando ele num Data module.
>
> Obrigado.
>
> Omar M. Haddad
> Analista de Sistemas
>
> Veja quais são os assuntos do momento no Yahoo! +Buscados
> http://br.maisbuscados.yahoo.com
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
--
Timeo hominem unius libri
Cogito ergo sum - Carpe diem
[]s
Guionardo Furlan
http://guionardo.blogspot.com
Re: [delphi-br] Tabela paradox nao abre - nao edita - nao adiciona - AJUDA URGENTE
É claro que não é fácil trocar o sistema de dados assim. Mas a questão é que eu já havia confirmado a dica do Coutinho. E como vc havia mostrado que as tabelas tinham menos de 5000 linhas não achei que fosse algo tão difícil. Este é um volume pequeno de dados. De qualquer forma, boa sorte com seu problema. Espero que o solucione logo. Aquele abraço e boas festas. 2008/12/23 Walter Chagas (Bol) : > O povo sugere as coisas como se fossem banais de serem feitas. Assim: A > migração é a toque de caixa, barbada, dois tempos troca um pelo outro e tá > pronto e rodando > > Fala SÉrio! > > []s > > Walter Alves Chagas Junior > Belo Horizonte - MG - Brazil > wchag...@bol.com.br > http://www.geocities.com/SiliconValley/Bay/1058 > http://delphitocorporerm.blogspot.com/ > MSN: whitesock...@hotmail.com > SKYPE: WalterChagasJr > > ----- Original Message - > From: Guionardo Furlan > To: delphi-br@yahoogrupos.com.br > Sent: Tuesday, December 23, 2008 8:51 AM > Subject: Re: [delphi-br] Tabela paradox nao abre - nao edita - nao adiciona > - AJUDA URGENTE > > Isso mesmo. > E ainda mais, a pergunta que nunca deixa de ser feita quando alguém > fala em BDE, eheh > > Não dá pra colocar alguma coisa melhor aí? Firebird, por exemplo? > > Aquele abraço > > 2008/12/22 Coutinho - Yahoo : >> Colega >> Parece que vc andou perdendo os parâmetros de configuração do BDE. >> Verifique se estão configurados o NetDir, etc... se não, reinstale o BDE >> e o problema se resolverá... >> >> Abraços >> Emanuel Coutinho >> >> nillgolv escreveu: >> >>> >>> Pessoal, fiz um teste de abrir o cadastro de clientes via rede >>> intranet, funcionou normal, mas após dois dias aconteceu que não abre >>> o banco de dados. Consigo abrir o sofware e não aparece a tabela >>> aberta, os campos aparecem todos em banco, este erro não sei se foi >>> queda de energia, mas aconteceu cair a faze de energia neste dia do erro. >>> >>> Uso Delphi 7 - Tabelas Paradox (com 4.955 registros) >>> >>> Aparece assim> >>> Detail Table Open operation failed. Table: Registros.db >>> >>> Preciso urgente desta ajuda para fazer voltar a funcionar o cadastro >>> de clientes. >>> >>> Grato... >>> >>> >> >> > > -- > Timeo hominem unius libri > Cogito ergo sum - Carpe diem > > []s > Guionardo Furlan > http://guionardo.blogspot.com > > [As partes desta mensagem que não continham texto foram removidas] > > -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
Re: [delphi-br] Tabela paradox nao abre - nao edita - nao adiciona - AJUDA URGENTE
Isso mesmo. E ainda mais, a pergunta que nunca deixa de ser feita quando alguém fala em BDE, eheh Não dá pra colocar alguma coisa melhor aí? Firebird, por exemplo? Aquele abraço 2008/12/22 Coutinho - Yahoo : > Colega > Parece que vc andou perdendo os parâmetros de configuração do BDE. > Verifique se estão configurados o NetDir, etc... se não, reinstale o BDE > e o problema se resolverá... > > Abraços > Emanuel Coutinho > > nillgolv escreveu: > >> >> Pessoal, fiz um teste de abrir o cadastro de clientes via rede >> intranet, funcionou normal, mas após dois dias aconteceu que não abre >> o banco de dados. Consigo abrir o sofware e não aparece a tabela >> aberta, os campos aparecem todos em banco, este erro não sei se foi >> queda de energia, mas aconteceu cair a faze de energia neste dia do erro. >> >> Uso Delphi 7 - Tabelas Paradox (com 4.955 registros) >> >> Aparece assim> >> Detail Table Open operation failed. Table: Registros.db >> >> Preciso urgente desta ajuda para fazer voltar a funcionar o cadastro >> de clientes. >> >> Grato... >> >> > > -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
Re: [delphi-br] Como encontrar um Node em um XMLDocument e incluir um ChildNode, independente onde o Node esteja?
Uses XMLIntf; function FindNode(nome: string; Root: IXMLNode): IXMLNode; var i: Integer; begin Result := nil; i := 0; while (i < Root.ChildNodes.Count) and (Result = nil) do if SameText(Root.ChildNodes.Nodes[i].NodeName, nome) then Result := Root.ChildNodes.Nodes[i] else begin Result := FindNode(nome, Root.ChildNodes.Nodes[i]); Inc(i); end; end; Com esta function vc tem o IXMLNode que procura ou nil, se ele não existir. A primeira chamada Root deve fazer referência à propriedade DocumentElement do IXMLDocument que vc estiver usando . Tendo o node, é só chamar o método AddChild dele para adicionar o que vc quiser. Na hora de codificar, não ficou exatamente como o algoritmo que citei antes. Mas deve funcionar. 2008/12/22 Fellipe Henrique : > Olá Guionardo, poderia exemplificar? Tentei fazer porém não consegui pegar > os sub-nodes > > Att > Fellipe H. > > 2008/12/20 Guionardo Furlan > >> Começando com o root >> >> 1.Verificar se o nome do node atual é o que vc está procurando. >> 2. Se for sim, retorna o node e encerra. >> 3. Se não, verifica se existem subnodes. >> 4. Se não, retorna nil e encerra. >> 5. Se sim, faz um loop percorrendo todos os subnodes e, usando >> recursividade, chama o procedimento para cada subnode. >> >> Mais ou menos isso. >> >> 2008/12/19 Fellipe Henrique >: >> >> > Amigos, preciso vasculhar um XML inteiro e achar um Node, e ao achar >> > adicionar um ChildNode nele, como faço isso? Sendo que o Node pode estar >> em >> > qualquer lugar na estrutura do XML? >> > >> > Obrigado -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
Re: [delphi-br] Como encontrar um Node em um XMLDocument e incluir um ChildNode, independente onde o Node esteja?
Começando com o root 1.Verificar se o nome do node atual é o que vc está procurando. 2. Se for sim, retorna o node e encerra. 3. Se não, verifica se existem subnodes. 4. Se não, retorna nil e encerra. 5. Se sim, faz um loop percorrendo todos os subnodes e, usando recursividade, chama o procedimento para cada subnode. Mais ou menos isso. 2008/12/19 Fellipe Henrique : > Amigos, preciso vasculhar um XML inteiro e achar um Node, e ao achar > adicionar um ChildNode nele, como faço isso? Sendo que o Node pode estar em > qualquer lugar na estrutura do XML? > > Obrigado > > -- > _ > T.·.F.·.A.·. > Fellipe Henrique > Blog: www.digitumsoft.com.br/blogs/fellipeh > -- > CAMPANHA POR UMA INTERNET SEGURA > Proteja o endereço de seus amigos como estou protegendo o seu. Ao enviar > mensagens use SEMPRE o "Cco" (cópia oculta). > Assim TODOS os endereços estarão preservados. E, claro, antes de encaminhar > um e-mail, delete todas as informações que apareçam no corpo do e-mail e que > possam ser usadas por hackers. > ### > > [As partes desta mensagem que não continham texto foram removidas] > > -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
Re: [delphi-br] Problema com MDO
Resolvi o problema,
era mancada minha. O form, quando é chamado faz uma limpa nos
componentes de edição (TDBEdits, TDBLookupCombos, etc) que serão
criados. TAmbém dava um FREE nos componentes de acesso (query, dataset
ou qualquer outra coisa).
Mudei o modo de chamada. Pra cada chamada, uma nova instância do form
é criada sem componentes. Aí a coisa funciona.
2008/12/19 Guionardo Furlan :
> Mas o Dataset não cria automaticamente (ou deveria)? A questão é que
> por ser uma rotina genérica, o form busca as informações do field no
> dataset.
>
> 2008/12/18 Coutinho - Yahoo :
>> Oi Colega.
>>
>> Você não criou os TFields, a solução para isso é acessar os campos
>> usando Dataset.fieldbyname('nome_do_campo').value.
>> Eu particularmente tiparia o campo, colocando .AsString, asFloat, ou
>> asInteger, conforme o campo que você estiver acessando
>> Principalmente se estiver atribuindo valores ao campo.
>>
>> Espero ter ajudado
>>
>> Sds
>> Emanuel Coutinho
>>
>> Guionardo Furlan escreveu:
>>
>>>
>>> Buenas pessoal,
>>>
>>> Estou desenvolvendo um form que recebe um dataset (query, sqldataset,
>>> table, etc) e monta automaticamente um dbgrid e uma série de
>>> tdbedits/tdblookupcombos para edição dos dados.
>>> Até aqui, funcionou adequadamente, inclusive com o controle de PK's e
>>> campos lookup.
>>>
>>> Aí, resolvi fazer a chamada só indicando a tabela e os campos que
>>> usaria e o próprio form se encarrega de criar o TMDODataset e o
>>> TDataSource para ligar com o banco de dados.
>>>
>>> Só que acontece uma coisa estranha. Quando crio o componente, seja ele
>>> TMDOQuery ou TMDODataSet, defino o valor da consulta SQL, o DataBase,
>>> o Transaction via código.
>>> Executando o Open do query ou dataset não dá nenhuma exceção.
>>> Mas a propriedade Fields continua nil, o que me impossibilita acessar
>>> os dados pelos componentes do formulário.
>>>
>>> Quando o formulário obtém um dataset criado na IDE, tudo funciona
>>> perfeitamente.
>>>
>>> Olha aí o código pra criar o MDODataSet
>>>
>>> var
>>> Q: TMDODataSet;
>>> begin
>>> Q:=TMDODataSet.Create(sbEdit); // sbEdit é um scrollbox onde ficam
>>> os componentes de edição
>>> Q.DataBase:=DM.DB; // DM é o DataModule e DB é o TMDODataBase,
>>> devidamente conectado
>>> Q.Transaction:=DM.Trans;
>>> Q.SQL.Text:=SQLSelect; // SQLSelect é uma string criada
>>> dinamicamente de acordo com os campos fornecidos
>>> Q.DeleteSQL.Text:=SQLDelete; // idem
>>> Q.InsertSQL.Text:=SQLInsert;
>>> Q.ModifySQL.Text:=SQLUpdate;
>>> Q.RefreshSQL.Text:=SQLRefresh;
>>> Q.Open; // Abre sem problemas
>>> if not Assigned(Q.Fields) then // Aqui é que a coisa para. Q.Fields
>>> é NIL, mesmo com o dataset aberto.
>>> ShowMessage('Fields é NIL');
>>>
>>> Alguma idéia do que pode ser?
>>> Acho que vou mudar pra zeos se não encontrar uma solução pra esse
>>> problema.
>>>
>>> --
>>> Timeo hominem unius libri
>>> Cogito ergo sum - Carpe diem
>>>
>>> []s
>>> Guionardo Furlan
>>> http://guionardo.blogspot.com <http://guionardo.blogspot.com>
>>>
>>>
>>
>>
>
>
>
> --
> Timeo hominem unius libri
> Cogito ergo sum - Carpe diem
>
> []s
> Guionardo Furlan
> http://guionardo.blogspot.com
>
--
Timeo hominem unius libri
Cogito ergo sum - Carpe diem
[]s
Guionardo Furlan
http://guionardo.blogspot.com
Re: [delphi-br] Problema com MDO
Mas o Dataset não cria automaticamente (ou deveria)? A questão é que
por ser uma rotina genérica, o form busca as informações do field no
dataset.
2008/12/18 Coutinho - Yahoo :
> Oi Colega.
>
> Você não criou os TFields, a solução para isso é acessar os campos
> usando Dataset.fieldbyname('nome_do_campo').value.
> Eu particularmente tiparia o campo, colocando .AsString, asFloat, ou
> asInteger, conforme o campo que você estiver acessando
> Principalmente se estiver atribuindo valores ao campo.
>
> Espero ter ajudado
>
> Sds
> Emanuel Coutinho
>
> Guionardo Furlan escreveu:
>
>>
>> Buenas pessoal,
>>
>> Estou desenvolvendo um form que recebe um dataset (query, sqldataset,
>> table, etc) e monta automaticamente um dbgrid e uma série de
>> tdbedits/tdblookupcombos para edição dos dados.
>> Até aqui, funcionou adequadamente, inclusive com o controle de PK's e
>> campos lookup.
>>
>> Aí, resolvi fazer a chamada só indicando a tabela e os campos que
>> usaria e o próprio form se encarrega de criar o TMDODataset e o
>> TDataSource para ligar com o banco de dados.
>>
>> Só que acontece uma coisa estranha. Quando crio o componente, seja ele
>> TMDOQuery ou TMDODataSet, defino o valor da consulta SQL, o DataBase,
>> o Transaction via código.
>> Executando o Open do query ou dataset não dá nenhuma exceção.
>> Mas a propriedade Fields continua nil, o que me impossibilita acessar
>> os dados pelos componentes do formulário.
>>
>> Quando o formulário obtém um dataset criado na IDE, tudo funciona
>> perfeitamente.
>>
>> Olha aí o código pra criar o MDODataSet
>>
>> var
>> Q: TMDODataSet;
>> begin
>> Q:=TMDODataSet.Create(sbEdit); // sbEdit é um scrollbox onde ficam
>> os componentes de edição
>> Q.DataBase:=DM.DB; // DM é o DataModule e DB é o TMDODataBase,
>> devidamente conectado
>> Q.Transaction:=DM.Trans;
>> Q.SQL.Text:=SQLSelect; // SQLSelect é uma string criada
>> dinamicamente de acordo com os campos fornecidos
>> Q.DeleteSQL.Text:=SQLDelete; // idem
>> Q.InsertSQL.Text:=SQLInsert;
>> Q.ModifySQL.Text:=SQLUpdate;
>> Q.RefreshSQL.Text:=SQLRefresh;
>> Q.Open; // Abre sem problemas
>> if not Assigned(Q.Fields) then // Aqui é que a coisa para. Q.Fields
>> é NIL, mesmo com o dataset aberto.
>> ShowMessage('Fields é NIL');
>>
>> Alguma idéia do que pode ser?
>> Acho que vou mudar pra zeos se não encontrar uma solução pra esse
>> problema.
>>
>> --
>> Timeo hominem unius libri
>> Cogito ergo sum - Carpe diem
>>
>> []s
>> Guionardo Furlan
>> http://guionardo.blogspot.com <http://guionardo.blogspot.com>
>>
>>
>
>
--
Timeo hominem unius libri
Cogito ergo sum - Carpe diem
[]s
Guionardo Furlan
http://guionardo.blogspot.com
[delphi-br] Problema com MDO
Buenas pessoal,
Estou desenvolvendo um form que recebe um dataset (query, sqldataset,
table, etc) e monta automaticamente um dbgrid e uma série de
tdbedits/tdblookupcombos para edição dos dados.
Até aqui, funcionou adequadamente, inclusive com o controle de PK's e
campos lookup.
Aí, resolvi fazer a chamada só indicando a tabela e os campos que
usaria e o próprio form se encarrega de criar o TMDODataset e o
TDataSource para ligar com o banco de dados.
Só que acontece uma coisa estranha. Quando crio o componente, seja ele
TMDOQuery ou TMDODataSet, defino o valor da consulta SQL, o DataBase,
o Transaction via código.
Executando o Open do query ou dataset não dá nenhuma exceção.
Mas a propriedade Fields continua nil, o que me impossibilita acessar
os dados pelos componentes do formulário.
Quando o formulário obtém um dataset criado na IDE, tudo funciona perfeitamente.
Olha aí o código pra criar o MDODataSet
var
Q: TMDODataSet;
begin
Q:=TMDODataSet.Create(sbEdit); // sbEdit é um scrollbox onde ficam
os componentes de edição
Q.DataBase:=DM.DB; // DM é o DataModule e DB é o TMDODataBase,
devidamente conectado
Q.Transaction:=DM.Trans;
Q.SQL.Text:=SQLSelect; // SQLSelect é uma string criada
dinamicamente de acordo com os campos fornecidos
Q.DeleteSQL.Text:=SQLDelete; // idem
Q.InsertSQL.Text:=SQLInsert;
Q.ModifySQL.Text:=SQLUpdate;
Q.RefreshSQL.Text:=SQLRefresh;
Q.Open; // Abre sem problemas
if not Assigned(Q.Fields) then // Aqui é que a coisa para. Q.Fields
é NIL, mesmo com o dataset aberto.
ShowMessage('Fields é NIL');
Alguma idéia do que pode ser?
Acho que vou mudar pra zeos se não encontrar uma solução pra esse problema.
--
Timeo hominem unius libri
Cogito ergo sum - Carpe diem
[]s
Guionardo Furlan
http://guionardo.blogspot.com
Re: [delphi-br] DAT
Pelo que entendi as linhas seguem um padrão: * Identificador * Título * Ano; Duração; País, outras informações que não entendi * ??;??; Data; Classificação etária * Regiões do DVD? * Sinopse Mais abaixo, na área que fala dos atores, a coisa saiu dos padrões. Não vejo como relacionar cada ator com cada filme. Mas facilite as coisas pra gente e explique o contexto desse aplicativo (que parece ser um arquivo de filmes). 2008/12/3 BandaLemuel <[EMAIL PROTECTED]>: > pessoal o arquivo esta assim... Abri no notepad... > > [V13] > [Movies] > Back to School > 1986;0;96;USA;0;0;#1;;-1;0;1;1;0;0 > KP;0090685;01/12/2008;PG-13 > 0,1,2,3,4 > To help his discouraged son get through college, a funloving and obnoxious > rich businessman decides to enter the school as a student himself. > > 00-00-00-00-00-E- > "Friends"|#WAcross the Hall > 1994;;22;USA;0;0;#1;;-1;0;1;1;0;0 > KR#;0108778;01/12/2008;TV-PG > 5,6,7,8,9 > The lives, loves, and laughs of six young friends living in Manhattan. > > 00-00-00-00-00-E- > Spider-Man|#ASpiderman > 2002;1;121;USA;0;0;#1;;-1;0;1;1;0;0 > ATS!;0145487;01/12/2008;PG-13 > 10,11,12,13,14 > When bitten by a genetically modified spider, a nerdy, shy, and awkward high > school student gains spider-like abilities that he eventually must use to > fight evil as a superhero after tragedy befalls his family. > > 00-00-00-00-00-E- > Iron Man|#IIronman > 2008;2;126;USA;0;0;#1;;-1;0;1;1;0;0 > ATDSV;0371746;01/12/2008;PG-13 > 4,15,16,17,18 > When wealthy industrialist Tony Stark is forced to build an armored suit > after a life-threatening incident, he ultimately decides to use its > technology to fight against evil. > > 00-00-00-00-00-E- > [Actors] > Rodney Dangerfield > Sally Kellerman > Burt Young > Keith Gordon > Robert Downey Jr. > Jennifer Aniston > Courteney Cox > Lisa Kudrow > Matt LeBlanc > Matthew Perry > Tobey Maguire > Willem Dafoe > Kirsten Dunst > James Franco > Cliff Robertson > Terrence Howard > Jeff Bridges > Gwyneth Paltrow > Leslie Bibb > [Directors] > Alan Metter > Sam Raimi > Jon Favreau > [TheEnd] > > > Wesley > > From: Silvio Clécio > Sent: Wednesday, December 03, 2008 12:29 PM > To: delphi-br@yahoogrupos.com.br > Subject: Res: [delphi-br] DAT > > Olá pessoal, > > Brother, nos passe mais detalhes, eu tenho um exemplo de uma agenda que o > *.dat é um simples arquivo de texto, então com mais detalhes a gente pode > ver como acessar esse *.dat aí, blz?! > > []'s, Silvio Clécio > Contatos/Blog > Skype: silvioprog > E-mail, Yahoo! Messenger: [EMAIL PROTECTED] > Gmail, Google Talk: [EMAIL PROTECTED] > Hotmail, MSN: [EMAIL PROTECTED] > BlogSpot: http://silvioclecio.blogspot.com/ > > > De: BandaLemuel <[EMAIL PROTECTED]> > Para: delphi-br@yahoogrupos.com.br > Enviadas: Quarta-feira, 3 de Dezembro de 2008 8:42:17 > Assunto: [delphi-br] DAT > > Lista > > Como que eu posso acessar um BD do tipo .dat pelo delphi 7 > > vlw... Wesley -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
Re: [delphi-br] Gerar XML de TClientDataSet com Detail
Deixa eu ver se entendi direito: vc precisa que dentro das tags que
representam as linhas do cds pai, existam outras tags representando as
linhas do cds filho?
Ou estou muito enganado, ou o CDS não tem essa funcionalidade.
Então, eu sugiro que vc use um TXMLDocument ou outro similar (na JCL
tem) e monte na unha da mesma forma que exemplifiquei no email
anterior.
2008/11/27 Reginaldo Donizete Felix <[EMAIL PROTECTED]>:
> Desta forma nao vou ter as tags xml formatadas certinhas
> e preciso seguir um padrao xml .
> os ClientDataSet tem que ser criados dinamicamente tambem.
>
> 2008/11/27 Guionardo Furlan <[EMAIL PROTECTED]>
>
>> Acho que não vai funcionar desse jeito, pelo que entendo do CDS.
>> Mas vc poderia criar outro CDS, com todos os campos do pai e do filho
>> e com dois loops aninhados preencher com os dados desejados.
>> Depois, teria um XML só.
>> Mas é POG!!!
>>
>> 2008/11/27 Reginaldo Donizete Felix
>> <[EMAIL PROTECTED]>:
>>
>>
>> > Tenho um TClienteDataSet chamado cdsPAI gerado dinamicamente e este
>> possui
>> > seu DataSource dsrPAI,
>> >
>> > e este tem seus registros detalhes de um outro TClienteDataSet
>> > denominado
>> > cdsfilho, e neste filho coloquei a propriedade MasterSource para o
>> dsrPai.
>> >
>> > No codigo coloquei o seguinte codigo :
>> >
>> > cdsPai.CreateDataSet ;
>> > cdsPai.Open;
>> > cdsPai.Insert;
>> > cdsPai.FieldByName('CodCidade').AsString := '01' ;
>> > cdsPai.FieldByName('NomeCidade').AsString := 'SAO PAULO' ;
>> > cdsPai.Post ;
>> >
>> > cdsFilho.CreateDataSet ;
>> > cdsFilho.Open;
>> > cdsFilho.Insert;
>> > cdsFilho.FieldByName('CodCidade').AsString := '01' ;
>> > cdsFilho.FieldByName('CodRua').AsString := '01' ;
>> > cdsFilho.FieldByName('NomeRua').AsString := 'RUA FULANA DE TAL' ;
>> > cdsFilho.Post ;
>> >
>> > CdsPai.SaveToFile('CDS_CIDADE.xml');
>> >
>> > ---
>> >
>> > No Xml do pai ele so gera dele proprio as tags XML e nao gera do filho
>> > como faço para fazer ele gerar do filho
>> >
>> > O XML QUE GEROU FOI O SEGUINTE
>> > > > Version="2.0">> > fieldtype="string" WIDTH="20"/>> > fieldtype="string" WIDTH="20"/>
>> >
>> > COMO FAÇO PARA GERAR JUNO NO XML O FILHO TAMBEM ???
>> >
>>
>> --
>> Timeo hominem unius libri
>> Cogito ergo sum - Carpe diem
>>
>> []s
>> Guionardo Furlan
>> http://guionardo.blogspot.com
>>
>>
>>
>
> --
> Reginaldo D. Felix
> [EMAIL PROTECTED]
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
--
Timeo hominem unius libri
Cogito ergo sum - Carpe diem
[]s
Guionardo Furlan
http://guionardo.blogspot.com
Re: [delphi-br] Gerar XML de TClientDataSet com Detail
Acho que não vai funcionar desse jeito, pelo que entendo do CDS.
Mas vc poderia criar outro CDS, com todos os campos do pai e do filho
e com dois loops aninhados preencher com os dados desejados.
Depois, teria um XML só.
Mas é POG!!!
2008/11/27 Reginaldo Donizete Felix <[EMAIL PROTECTED]>:
> Tenho um TClienteDataSet chamado cdsPAI gerado dinamicamente e este possui
> seu DataSource dsrPAI,
>
> e este tem seus registros detalhes de um outro TClienteDataSet denominado
> cdsfilho, e neste filho coloquei a propriedade MasterSource para o dsrPai.
>
> No codigo coloquei o seguinte codigo :
>
> cdsPai.CreateDataSet ;
> cdsPai.Open;
> cdsPai.Insert;
> cdsPai.FieldByName('CodCidade').AsString := '01' ;
> cdsPai.FieldByName('NomeCidade').AsString := 'SAO PAULO' ;
> cdsPai.Post ;
>
> cdsFilho.CreateDataSet ;
> cdsFilho.Open;
> cdsFilho.Insert;
> cdsFilho.FieldByName('CodCidade').AsString := '01' ;
> cdsFilho.FieldByName('CodRua').AsString := '01' ;
> cdsFilho.FieldByName('NomeRua').AsString := 'RUA FULANA DE TAL' ;
> cdsFilho.Post ;
>
> CdsPai.SaveToFile('CDS_CIDADE.xml');
>
> ---
>
> No Xml do pai ele so gera dele proprio as tags XML e nao gera do filho
> como faço para fazer ele gerar do filho
>
> O XML QUE GEROU FOI O SEGUINTE
> Version="2.0"> fieldtype="string" WIDTH="20"/> fieldtype="string" WIDTH="20"/>
>
> COMO FAÇO PARA GERAR JUNO NO XML O FILHO TAMBEM ???
>
--
Timeo hominem unius libri
Cogito ergo sum - Carpe diem
[]s
Guionardo Furlan
http://guionardo.blogspot.com
Re: [delphi-br] Erros durante a compilação
Além disso, vc já pensou em modularizar usando packages? Aí vc pode compilar cada módulo isoladamente em seu pacote. 2008/11/26 Luciano Calenzani Simões <[EMAIL PROTECTED]>: > Você verificou como está a memória RAM disponível no momento do erro? > O Delphi, independente de versão, é um guloso de RAM. Ao fechar units ele > não libera a memória antes ocupada por ela, ou seja, o BDS.exe (delphi.exe, > ...) vai ocupando cada vez mais memória. > > Luciano Calenzani Simões -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
Re: [delphi-br] Capturar URL sem os garranchos...
Uso o IE7.
Não sei onde está a sua dúvida.
Faça o seguinte.
function obtemurl(texto: string): string;
var p : integer;
begin
delete(texto,1,1); // exclui a primeira aspa
p:=Pos('"',texto); // localiza a segunda aspa
if p>0 then
Result:=Copy(texto,1,p-1)
else
Result:='';
end;
2008/10/31 Onjahyr - GMAIL <[EMAIL PROTECTED]>:
> O problema é que uso a virgula como separador, aí que tá, eu queria
> pegar somente a URL, quanto a retirar as aspas não é problema, mas se eu
> tirar a virgula a função que trabalha com a URL capturada vai embaralhar
> tudo
> Alguém saberia como pegar somente a URL sem o caption, etc
>
> No IE, funcionou aqui com a versão 7 trazendo todo o lixo também... vc
> deve tá usando a versão 6 né?
>
> Guionardo Furlan escreveu:
>
>>
>> Experimentei aqui, e no IE não retornou nada. Mas no Firefox, retornou
>> uma string com três ítems entre aspas e separados por vírgula:
>> O primeiro é a url, o segundo o título da página e o terceiro veio em
>> branco.
>> Procure a primeira vírgula e exclua da string tudo que vem após.
>>
>> .
>>
>>
>
>
--
Timeo hominem unius libri
Cogito ergo sum - Carpe diem
[]s
Guionardo Furlan
http://guionardo.blogspot.com
Re: [delphi-br] Capturar URL sem os garranchos...
Experimentei aqui, e no IE não retornou nada. Mas no Firefox, retornou
uma string com três ítems entre aspas e separados por vírgula:
O primeiro é a url, o segundo o título da página e o terceiro veio em branco.
Procure a primeira vírgula e exclua da string tudo que vem após.
2008/10/31 Onjahyr - GMAIL <[EMAIL PROTECTED]>:
> E aí pessoal
>
> A função abaixo captura a url segundo o navegador informado, porém, vem
> a URL com o caption da janela e outras parafernalhas :)
> Será que há uma opção no "RequestData" que me traga somente a URL e nada
> mais? (Quanto a vir com as aspas tudo bem).
>
> function GetURL(Service: string): String;
> var
> ClDDE : TDDEClientConv;
> temp : PChar;
> begin
> Result := '';
> //create a new DDE Client object
> ClDDE := TDDEClientConv.Create( nil );
> with ClDDE do
> begin
> SetLink(Service,'WWW_GetWindowInfo');
> temp := RequestData(',,1'); //'0x' (mesma coisa)
> Result := StrPas(temp);
> StrDispose(temp);
> CloseLink;
> end;
>
> ClDDE.Free;
> end;
>
> Edit1.Text := GetURL('Firefox');
> ou
> Edit1.Text := GetURL('IExplore');
> ou
> Edit1.Text := GetURL(' Mosaic');
> ...
>
> Agradeço
>
>
--
Timeo hominem unius libri
Cogito ergo sum - Carpe diem
[]s
Guionardo Furlan
http://guionardo.blogspot.com
Re: [delphi-br] Re: Relatório Mestre Detalhe em Delphi a partir de arq. XML
Carregue os dados de cada xml para um cds e faça as ligações de master/detail. Depois disso, é só linkar com o gerenciador de relatório como um dataset qualquer. 2008/10/27 Wellington Genar <[EMAIL PROTECTED]>: > Olá Guionardo, obrigado, > Espero que sim. Pelo que pesquisei é o caminho, só que ainda não > consegui desatar esse nó. Vc. já viu isso funcionando? Como fica o > relacionamento na hora do loop de impressão? > Sds. > > Wellington > > --- Em delphi-br@yahoogrupos.com.br, "Guionardo Furlan" > <[EMAIL PROTECTED]> escreveu >> >> Clientdataset não resolveria? >> >> 2008/10/27 Wellington Genar <[EMAIL PROTECTED]>: > >> > Olá, >> > >> > Quero imprimir arquivos XML gerados por outro sistema. São > registros >> > mestre/detalhe em arquivos XML distintos. Com um único arquivo > XML, foi >> > tranquilo, mas não consegui mesclar dois ou mais. Alguem sabe > dizer >> > como fazer isso diretamente, sem ter que carregar os XMLs para o > Banco >> > de dados? Quero fazer isso na máquina cliente, sem trafego no > servidor. >> > Vou precisar de cabeçalho, corpo, totalizaçoes e quebras. Tenho >> > preferência pela utilização do QReport e/ou Rave. >> > >> > Agradeço sugestões >> > >> > Abraço a todos >> > >> > sds >> > >> > Wellington Genar >> > >> > >> >> >> >> -- >> Timeo hominem unius libri >> Cogito ergo sum - Carpe diem >> >> []s >> Guionardo Furlan >> http://guionardo.blogspot.com >> > > -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
Re: [delphi-br] Relatório Mestre Detalhe em Delphi a partir de arq. XML
Clientdataset não resolveria? 2008/10/27 Wellington Genar <[EMAIL PROTECTED]>: > Olá, > > Quero imprimir arquivos XML gerados por outro sistema. São registros > mestre/detalhe em arquivos XML distintos. Com um único arquivo XML, foi > tranquilo, mas não consegui mesclar dois ou mais. Alguem sabe dizer > como fazer isso diretamente, sem ter que carregar os XMLs para o Banco > de dados? Quero fazer isso na máquina cliente, sem trafego no servidor. > Vou precisar de cabeçalho, corpo, totalizaçoes e quebras. Tenho > preferência pela utilização do QReport e/ou Rave. > > Agradeço sugestões > > Abraço a todos > > sds > > Wellington Genar > > -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
Re: [delphi-br] Abrir tela na primeira execução do sistema
Flag é uma informação de sinalização. No seu caso, no mesmo lugar em que vc guarda as configurações do sistema, pode criar mais uma informação que seria o tal Flag. Para isso, vc pode usar um arquivo ini ou uma tabela do bd, de acordo com a sua necessidade. Como vc está guardando as configurações? 2008/10/8 Eduardo Melo <[EMAIL PROTECTED]> > > Ola, Guionardo, > Desculpe a pergunta, mas sou novato. O que seria Flag? > E no caso para guardar as informações seria em um arquivo? > > Grato > > Att > > Eduardo Melo > 3º Sistemas de Informação > > Em 07/10/08, Guionardo Furlan <[EMAIL PROTECTED]> escreveu: > > > > Vc pode ter no local onde vc guarda as configurações, um flag que > > indica se o sistema já inicializou. > > Quando rodar, o sistema deve verificar se o flag é falso (sinal de que > > é a primeira vez) e chamar o form de configuração. > > Este, quando terminar a configuração, deve setar o flag para verdadeiro. > > Pronto. > > > > 2008/10/7 Ricardo Mendes <[EMAIL PROTECTED] >: > > > Olá galera, gostaria de uma ajuda de vcs. > > > Eu tenho um tela onde tenho o cadastro da empresa...e nela possuiu > > algumas > > > configurações que podem ser configuradas para o funcionamentoa do > > sistema. > > > Mas eu gostaria que essa tela fosse aberta na primeira execução do > > sistema. > > > > > > Porém eu posso a vir a abrir essa tela a partir do cadastro...para mexer > > nas > > > configurações.. > > > > > > Uso delphi 7 e Firebird > > > > > > > -- > > Timeo hominem unius libri > > Cogito ergo sum - Carpe diem > > > > []s > > Guionardo Furlan > > http://guionardo.blogspot.com > > > > > > [As partes desta mensagem que não continham texto foram removidas] > > -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
Re: [delphi-br] Similaridade entre duas Strings
Elogio de vez em quando vai bem, eheh. Bom, tá aí o código, testado por aqui e funcionando. No meu cálculo manual deu diferença ao comparar os nomes JOÃO e JONAS porque não considerei a diferença de tamanho das strings. Não é um componente, é uma função. unit GStrings; interface /// Obtém a similaridade entre duas strings retornando um valor entre 0 e 1 function Similaridade(Origem, Destino: string): Single; implementation uses SysUtils, GuioUtils; function Similaridade(Origem, Destino: string): Single; var i: Integer; SimCar: Integer; // Similaridade de caracteres SimOrd: Integer; // Similaridade de ordem Lista: array of string; function Validacao: Boolean; begin Result := (Length(Origem) > 0) and (Length(Destino) > 0); end; procedure SimilaridadeCaracter; var j: Integer; begin SimCar := 0; for j := 1 to Length(Origem) do if Pos(Origem[j], Destino) > 0 then Inc(SimCar); end; procedure RemoveNaoCoincidentes(var s1, s2: string); begin i := 1; while i <= Length(s1) do if Pos(s1[i], s2) = 0 then Delete(s1, i, 1) else Inc(i); end; procedure GeraLista; var npalavras: Integer; // Número de "palavras" j, k: Integer; begin npalavras := (Sqr(Length(Origem)) + Length(Origem)) div 2; SetLength(Lista, npalavras); i := 0; for j := 1 to Length(Origem) do // j recebe o tamanho de cada palavra for k := 1 to Length(Origem) - j + 1 do // k recebe a posicao de cada palavra begin Lista[i] := Copy(Origem, k, j); Inc(i); end; end; procedure SimilaridadeOrdem; var j: Integer; begin SimOrd := 0; for j := 0 to Length(Lista) - 1 do if Pos(Lista[j], Destino) > 0 then Inc(SimOrd); Result := Result * (SimOrd / Length(Lista)); SetLength(Lista, 0); end; begin // 1. Transformar os textos para a mesma caixa e remover espaços em branco Origem := AnsiUpperCase(Trim(RemoveAcentos(Origem))); Destino := AnsiUpperCase(Trim(RemoveAcentos(Destino))); // 2a. Verificar se os textos são vazios: se forem, similaridade 0 e sai if not Validacao then begin Result := 0; Exit; end; // 2b. Verificar se os textos são iguais: se forem, similaridade 100% // e termina o processo if SameText(Origem, Destino) then begin Result := 1; Exit; end; // 3. para cada caracter do texto origem verificar se ele existe no texto // destino, e em caso positivo, incrementar 1 no contador de similaridade. SimilaridadeCaracter; // 4. o quociente contador / número de caracteres no destino indica a // similaridade sem considerar a ordem dos caracteres. Result := SimCar / Length(Destino); if Result = 0 then Exit; // 5. considerando a ordem, remove-se os caracteres da origem que não // existem no destino e os caracteres do destino que não existem na // origem, igualando os dois textos RemoveNaoCoincidentes(Origem, Destino); RemoveNaoCoincidentes(Destino, Origem); // 6. agora, com uma função que gere uma lista de "palavras" formadas // pelos caracteres da origem, da seguinte forma: // origem ajustada: "peto", com os caracteres não coincidentes removidos, // a lista gerada seria a seguinte // p, e, t, o, pe, et, to, pet, eto, peto: 4 caracteres = 10 palavras // map = m, a, p, ma, ap, map: 3 caracteres = 6 palavras // jorge = j, o, r, g, e, jo, or, rg, ge, jor, org, rge, jorg, orge, // jorge: 5 caracteres = 15 palavras // O número de "palavras" dentro da lista é definido pela fórmula // 0,5j^2+0,5j, onde j é o número de caracteres do texto origem ajustado. GeraLista; // Cada palavra da lista encontrada dentro da palavra destino ajustada // incrementa uma unidade no contador de similaridade de ordem. // A similaridade de ordem é o quociente do contador sobre o número de // palavras da lista. SimilaridadeOrdem; end; end. - PS: Duas referências no código (guioutils e RemoveAcentos) não estão disponíveis. É que minha função de remoção de acentos usa uma tecnologia avançadíssima com algoritmos genéticos e inteligência artificial, portanto não disponibilizarei de grátis aqui. :-) 2008/10/8 Roberto <[EMAIL PROTECTED]>: > Guionardo, tu tá de sacanagem, né.. > > Quando descansar bem, completa a explanação com um componente aqui prá nois, > > Matou a cobra, agora mostra o componente (se ainda houver fosfato). > > Parabéns e entenda a brincadeira como elogio > > Abraço > Roberto (RJ) > > - Original Message - > From: Guionardo Furlan > To: delphi-br@yahoogrupos.com.br > Sent: Tuesday, October 07, 2008 10:13 PM > Subject: Re: [delphi-br] Similaridade entre duas Strings > > um bom exercício, vou dar meu palpite: > > 1. transformar os textos para a mesma caixa (alta ou baixa) > 2. Verificar se os textos são iguais: se forem, similaridade 100% e > termina o processo. > 3. para cada caracter do texto origem verificar se ele
Re: [delphi-br] Abrir tela na primeira execução do sistema
Vc pode ter no local onde vc guarda as configurações, um flag que indica se o sistema já inicializou. Quando rodar, o sistema deve verificar se o flag é falso (sinal de que é a primeira vez) e chamar o form de configuração. Este, quando terminar a configuração, deve setar o flag para verdadeiro. Pronto. 2008/10/7 Ricardo Mendes <[EMAIL PROTECTED]>: > Olá galera, gostaria de uma ajuda de vcs. > Eu tenho um tela onde tenho o cadastro da empresa...e nela possuiu algumas > configurações que podem ser configuradas para o funcionamentoa do sistema. > Mas eu gostaria que essa tela fosse aberta na primeira execução do sistema. > > Porém eu posso a vir a abrir essa tela a partir do cadastro...para mexer nas > configurações.. > > Uso delphi 7 e Firebird > -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
Re: [delphi-br] Similaridade entre duas Strings
um bom exercício, vou dar meu palpite: 1. transformar os textos para a mesma caixa (alta ou baixa) 2. Verificar se os textos são iguais: se forem, similaridade 100% e termina o processo. 3. para cada caracter do texto origem verificar se ele existe no texto destino, e em caso positivo, incrementar 1 no contador de similaridade. 4. o quociente contador / número de caracteres no destino indica a similaridade sem considerar a ordem dos caracteres. Por exemplo, "pedto" e "pedro" são similares 4 caracteres em 5, indicando 80% de similaridade sem verificação de ordem. 5. considerando a ordem, remove-se os caracteres da origem que não existem no destino e os caracteres do destino que não existem na origem, igualando os dois textos 6. agora, com uma função que gere uma lista de "palavras" formadas pelos caracteres da origem, da seguinte forma: origem ajustada: "peto", com os caracteres não coincidentes removidos, a lista gerada seria a seguinte p, e, t, o, pe, et, to, pet, eto, peto: 4 caracteres = 10 palavras map = m, a, p, ma, ap, map: 3 caracteres = 6 palavras jorge = j, o, r, g, e, jo, or, rg, ge, jor, org, rge, jorg, orge, jorge: 5 caracteres = 15 palavras O número de "palavras" dentro da lista é definido pela fórmula 0,5j^2+0,5j, onde j é o número de caracteres do texto origem ajustado. Cada palavra da lista encontrada dentro da palavra destino ajustada incrementa uma unidade no contador de similaridade de ordem. A similaridade de ordem é o quociente do contador sobre o número de palavras da lista. No exemplo acima, temos a mesma ordem dos caracteres e portanto, 100% de similaridade por ordem. Multiplicando os dois quocientes, teríamos um fator de similaridade entre as palavras, neste caso, 80% x 100% = 80% com outro exemplo, poderíamos ter: JOAO e JONAS As letras J, O, A e O existem todas dentro de JONAS, portanto temos 100% até aqui Fazendo a intersecção, temos os dois textos ajustados: JOAO e JOA com a lista de palavras temos J (1), O (1), A (1), O (1), JO (1), OA (1), AO (0), JOA (1), OAO (0), JOAO (0), somando 7 coincidências em 10 possibilidades, resultando em 70%. Multiplicando os dois quocientes, temos 70% de similaridade. Agora é só codificar pra OP e ver se a coisa serve. PS: fiz isso depois da janta, e meio cansado. Provavelmente deve haver um algoritmo mais elaborado, usando redes neurais, ou até mesmo uma função do delphi que resolve a parada. Mas é legal pra gente queimar um pouco de fosfato fora dos problemas comuns. 2008/10/7 Osmar Souza <[EMAIL PROTECTED]>: > Olá Pessoal, > > Alguem já precisou comparar a similaridade entre duas strings e > supor a porcetagem de similaridade entre elas? > > Exemplo: > > Em uma caixa de texto a pessoa digitou "pedto". O sistema analisou > e pergunta se o que ele esta procurando não é "pedro". Como no Google. > > Estou precisando de um algoritimo desses para tentar diminuir o > número de erros no cadastro. Como os requisitos do sistema diz que o > nome é o mais importante e que o resto não é necessário, vemos uma > mesma pessoa jurídica, por exemplo, cadastradas de 10 formas diferentes. -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
Re: [delphi-br] <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Eu já sugeri isso antes. Mas não surtiu o efeito desejado. 2008/9/22 Jackson Gomes - Tools&Comps <[EMAIL PROTECTED]> > > Será que o pessoal faz isso? Bem que podia né? -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
Re: [delphi-br] comunicação via satelite
Como vc vai fazer (só) o software, os caras que te contratam devem te passar todas informações sobre o hardware utilizado. A partir daí vc pode começar a trabalhar. Antes disso, nem o padre quemedo adivinha. 2008/8/20 felipe govoni <[EMAIL PROTECTED]>: > bom dia > > recebi uma proposta para desenvolver um software de comunicação, > so que essa comunicação e via satelite, mas nao faço a menos ideia > de como posso fazer isso. Essa cominicação é igual a internet? > > agradeço qualquer ajuda. > > -- > Felipe Govoni > - > Programador > Fone 8472-8718 > > [As partes desta mensagem que não continham texto foram removidas] > > -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
Re: [delphi-br] Mudar de win xp para linux
Que banco de dados? Vc poderia dar mais informações? 2008/8/19 auriston.delphi <[EMAIL PROTECTED]>: > Uma empresa a quem presto serviço, adquiriu um servidor Hp, e a revenda > instalou o linux, e a primeira vez que vou usar um servidor linux. > > Veio instalado o samba, como procedo a transferencia do banco de dados, > e so copiar ou tem que restaurar ? > > sds > > -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
Re: [delphi-br] Evitar que sistema seja fechado
No form principal, use o evento onclosequery 2008/8/15 Leodinei Bielak <[EMAIL PROTECTED]> > > Olá. > Estamos tendo problema com as aplicações de alguns bancos. > Elas simplesmente fecham o sistema sem aviso. > Tem alguma maneira de evitar isso? Talvez tratar alguma mensagem do windows? > Obrigado. -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
Re: [delphi-br] Como escrever uma consulta para escolher o procedimento com menor periodicidade
Não precisa mudar as estruturas, o case vc coloca somente nas querys ou nas views. 2008/8/13 Sandro <[EMAIL PROTECTED]>: > Seria uma alternativa, mas de qualquer forma teria que mexer na estrutura da > tabela pois para cada periodicidade gravo apenas S, A, B, T. Este campo é > alfanumerico mas com uma posição apenas. > Mas é uma boa sugestão. > > Obrigado. > > 2008/8/13 Guionardo Furlan <[EMAIL PROTECTED]> > >> Como vc está lidando com items seriados (no caso a classificação da >> periodicidade), vc poderia atribuir um escore relativo ao período, tal >> como: >> >> Trianual = 1095 >> Bianual = 730 >> Anual = 365 >> Semestral = 183 >> >> Assim, sem ter que se preocupar com mudar a estrutura das tabelas, >> poderia usar um case que retornasse o escore. Por fim, ordene pelo >> escore e terá a informação que procura. >> >> 2008/8/13 Sandro <[EMAIL PROTECTED] >: >> >> > Boa tarde, estou com uma duvida cruel aqui. >> > Trabalho em um empresade medicina do trabalho e me deparei com a >> > seguinte >> > questão tenho funcionarios que podem ter varios riscos que podem ter >> varios >> > procedimentos, ocorre então o seguinte pode ocorrer de ter funcionarios >> com >> > alguns riscos que contem o mesmo procedimento com a mesma periodicidade >> ou >> > procedimentos iguais com periodicidades diferentes (anual, bianual etc.) >> > ocorre que quando acontece isso tenho que escolher apenas um deles. Isso >> > fica relativamente facial quando tenho 2 procedimentos iguais com a >> > mesma >> > periodicidade, mas complica bastante quando tenho 2 ou mais >> > procedimentos >> > com periodicidades diferentes. >> > Tabela de procedimentos medicos com os seguintes campos: >> > CodProcedimento, >> > NomeProcedimento, Periodicidade, SiglaProcedimento. >> > Os codigos de procedimentos são incrementados de um a medida em que >> > inserimos um novo procedimento, podem conter procedimentos com o mesmo >> nome >> > (evidente, como dito acima) as siglas para procedimentos iguais são >> iguais e >> > as periodicidades para procedimentos iguais são diferentes. >> > >> > *Exemplo:* >> > >> > *codprocedimento NomeProcedimento >> > Periodicidade siglaprocedimento* >> > * 1 RX >> > TORAX A RX-T* >> > * 2 RX >> > TORAX B RX-T* >> > * 3 RX >> > TORAX T RX-T * >> > * 4 HEMOGRAMA E PLAQUETAS >> > S HEMPL* >> > >> > A = ANUAL >> > B = BIANUAL >> > T = TRIANUAL >> > S = SEMESTRAL >> > >> > Como fazer uma consulta que escolha dentre procedimentos iguais o de >> menor >> > periodicidade. >> > Deve ser levado em conta que para que eu traga os exames que determinado >> > funcionario deve fazer eu tenho que primeiro consultar seus riscos e a >> > partir destes trazer seus exames satisfazendo a consulta acima >> questionada. >> > >> > Espero ter sido bastante claro pois a questão é bem complexa mesmo. >> > Desde já agradeço a todos. >> > Sandro Cardoso Guimaraes >> > >> > [As partes desta mensagem que não continham texto foram removidas] >> > >> > >> >> -- >> Timeo hominem unius libri >> Cogito ergo sum - Carpe diem >> >> []s >> Guionardo Furlan >> http://guionardo.blogspot.com >> >> >> > > [As partes desta mensagem que não continham texto foram removidas] > > -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
Re: [delphi-br] Como escrever uma consulta para escolher o procedimento com menor periodicidade
Como vc está lidando com items seriados (no caso a classificação da periodicidade), vc poderia atribuir um escore relativo ao período, tal como: Trianual = 1095 Bianual = 730 Anual = 365 Semestral = 183 Assim, sem ter que se preocupar com mudar a estrutura das tabelas, poderia usar um case que retornasse o escore. Por fim, ordene pelo escore e terá a informação que procura. 2008/8/13 Sandro <[EMAIL PROTECTED]>: > Boa tarde, estou com uma duvida cruel aqui. > Trabalho em um empresade medicina do trabalho e me deparei com a seguinte > questão tenho funcionarios que podem ter varios riscos que podem ter varios > procedimentos, ocorre então o seguinte pode ocorrer de ter funcionarios com > alguns riscos que contem o mesmo procedimento com a mesma periodicidade ou > procedimentos iguais com periodicidades diferentes (anual, bianual etc.) > ocorre que quando acontece isso tenho que escolher apenas um deles. Isso > fica relativamente facial quando tenho 2 procedimentos iguais com a mesma > periodicidade, mas complica bastante quando tenho 2 ou mais procedimentos > com periodicidades diferentes. > Tabela de procedimentos medicos com os seguintes campos: CodProcedimento, > NomeProcedimento, Periodicidade, SiglaProcedimento. > Os codigos de procedimentos são incrementados de um a medida em que > inserimos um novo procedimento, podem conter procedimentos com o mesmo nome > (evidente, como dito acima) as siglas para procedimentos iguais são iguais e > as periodicidades para procedimentos iguais são diferentes. > > *Exemplo:* > > *codprocedimento NomeProcedimento > Periodicidade siglaprocedimento* > * 1 RX > TORAX A RX-T* > * 2 RX > TORAX B RX-T* > * 3 RX > TORAX T RX-T * > * 4 HEMOGRAMA E PLAQUETAS > S HEMPL* > > A = ANUAL > B = BIANUAL > T = TRIANUAL > S = SEMESTRAL > > Como fazer uma consulta que escolha dentre procedimentos iguais o de menor > periodicidade. > Deve ser levado em conta que para que eu traga os exames que determinado > funcionario deve fazer eu tenho que primeiro consultar seus riscos e a > partir destes trazer seus exames satisfazendo a consulta acima questionada. > > Espero ter sido bastante claro pois a questão é bem complexa mesmo. > Desde já agradeço a todos. > Sandro Cardoso Guimaraes > > [As partes desta mensagem que não continham texto foram removidas] > > -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
Re: [delphi-br] Hash MAP no Delphi
Vc pode fazer isso simplificadamente usando um objeto TStringList Verifique as propriedades Name e Value. Qual seria seu real objetivo? 2008/8/7 Alison Zen <[EMAIL PROTECTED]>: > Olá galera, tudo bem? > > O eu mais uma vez por aqui hoje. > > Seguinte, alguem já fez ou já viu algo sobre Hash Map no Delphi??? > > -- > Atenciosamente > Alison Zen > > [As partes desta mensagem que não continham texto foram removidas] > > -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
Re: [delphi-br] algo como o Decision cube
Eu nunca usei qualquer cube. Fucei alguma coisa no componente que vinha no delphi 6, mas não achei utilidade pra ele na época e desde então nunca mais fui atrás. Alguém pode me dar um exemplo de utilização? 2008/8/5 Rubem Nascimento da Rocha <[EMAIL PROTECTED]>: > > http://sourceforge.net/projects/fxds > Enhanced Borland Decision Cube 2.1 for Delphi > > Free e open-source. > Fuçem! > > Sds. > > > To: delphi-br@yahoogrupos.com.br > From: [EMAIL PROTECTED] > Date: Tue, 5 Aug 2008 10:10:14 -0300 > Subject: Re: [delphi-br] algo como o Decision cube > > Fala Rafael! > > Já ouviu falar do FastCube? Do mesmo fabricante do FastReport? > Dá uma olhada lá! > > []s > > - Original Message - > From: Rafael Jorge > To: delphi-br > Sent: Tuesday, August 05, 2008 7:36 AM > Subject: [delphi-br] algo como o Decision cube > > existe algum componente pago ou free que tenhas as funcionalidades do > decision cube so que sendo acessado por DBexpress? > obrigado > t+ > > -- > -- > Rafael jorge alves (Analista/desenvolvedor) > > www.sistemafocus.com.br > sistema focus de gestão comercial e serviços em informatica. > > __ > Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de > relacionamentos com até 6,000 fotos! > http://www.amigosdomessenger.com.br > > -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
Re: [delphi-br] Verificar se existe o arquivo através de um ip
uma opção independente de permissões seria um aplicativo rodando na
máquina alvo que utilizaria sockets para comunicar com os clientes.
2008/7/23 fabio giro <[EMAIL PROTECTED]>:
> Se no servidor, o administrador lhe der permissão, então será possível.
>
> --- Em qua, 23/7/08, Rubem Nascimento da Rocha <[EMAIL PROTECTED]>
> escreveu:
>
> De: Rubem Nascimento da Rocha <[EMAIL PROTECTED]>
> Assunto: RE: [delphi-br] Verificar se existe o arquivo através de um ip
> Para: delphi-br@yahoogrupos.com.br
> Data: Quarta-feira, 23 de Julho de 2008, 15:58
>
> Meu caro, só é possível vc conseguir acessar a pasta raiz da unidade C:\ de
> um micro remoto se, e somente se, vc tiver um usuário e senha do
> administrador da máquina. Por exemplo, se vc quiser checar o arquivo
> C:\ArquivoProcurado .txt no computador 192.168.1.10, teria que fazer algo
> nesse sentido:
>
> if FileExists(' \\192.168. 1.10\c$\ArquivoP rocurado. txt') then
> { ... }
>
> Mas pra isso funcionar, na hora o Windows vai te pedir o nome de usuário e
> senha, preferencialmente do administrador desse computador. Ou seja, sem
> chance pra vc!
>
> Sds.
>
> _ _ __
>
> To: [EMAIL PROTECTED] os.com.br
> From: [EMAIL PROTECTED] com.br
> Date: Wed, 23 Jul 2008 14:50:00 -0300
> Subject: [delphi-br] Verificar se existe o arquivo através de um ip
>
> Salve pessoal!
>
> Alguém sabe se existe uma maneira de verificar se existe um determinado
> arquivo através de um ip sabendo o caminho desse arquivo na máquina
> possuidora desse mesmo ip?
> A como faria para copiá-lo caso não exista?
> Ex: no ip 192.168.1.10, C:\ArquivoProcurado .txt
>
> Valew!!
>
> []s
>
> _ _ _ _ _ _
> Receba GRÁTIS as mensagens do Messenger no seu celular quando você estiver
> offline. Conheça o MSN Mobile!
> http://mobile. live.com/ signup/signup2. aspx?lc=pt- br
>
> Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua
> cara @ymail.com ou @rocketmail.com.
> http://br.new.mail.yahoo.com/addresses
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
--
Timeo hominem unius libri
Cogito ergo sum - Carpe diem
[]s
Guionardo Furlan
http://guionardo.blogspot.com
Re: [delphi-br] <<< :: Visualizar Imagens ::.. >>>
Use TImage para manipular o "tamanho de exibição" das imagens, pelas propriedades height, width. Proportional e stretch devem ser True. Para acessar arquivos jpg, use a unit jpeg. 2008/7/21 Juliano Silva - Yahoo <[EMAIL PROTECTED]>: > > Pessoal, estou montando um sistema que terei que visualizar uma série de > imagens, inicialmente em miniaturas e depois quando a pessoa clicar duas > vezes exibirá em tamanho maior... > > Alguem sabe como fazer para visualizar como no Windows Explorer? em > Miniaturas? > > Juliano Silva -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
Re: [delphi-br] Compilando
Não há referência de onde está esta "expressão muito complicada"? Isso está me cheirando a uma necessidade urgente de refatoração. 2008/7/20 Ioney Hotmail <[EMAIL PROTECTED]>: > Bom Dia, > > se alguem puder me ajudar! > > Eu to com um probleminha chato, pq quando eu compilo o meu sistema ele ta > dando esse error: > > Expression too complicated > > [As partes desta mensagem que não continham texto foram removidas] > > -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
Re: [delphi-br] Como filtrar arquivos em um diretorio
Além da dica do Adriano, vc pode trabalhar com findfirst e findnext. Dá uma olhada no help. 2008/7/18 bene20032004 <[EMAIL PROTECTED]>: > Como filtrar arquivos em um diretorio ? > Ex:Quero filtrar todos os arquivos com extensão TXT.. -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
Re: [delphi-br] Formatador de codigo delphi.
Dê uma olhada no gexperts, há um plugin experimental que faz o code formatting. 2008/7/2 Jota Pyl Gmail <[EMAIL PROTECTED]>: > Boa noite. > > Estou tentando instalar o DelForExp no delphi 2007. > > Baixei a ultima versão, instalo e fica OK. > > Mas quando entro no d2007 e tento formatar, começa a dar erro de acces > violation na DelForEx10.dll e quando tento ir fechando os erro dá erro na > vcl100.bpl, edaí pra sair só CTRL+ALT+DEL. > > Alguem colega já passou por isso ? > > Grato pela atenção. > > Joao Paulo. > > [As partes desta mensagem que não continham texto foram removidas] > > -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
Re: [delphi-br] Bug's do Delphi 8/2005/2006/2007 e os próximos..
Só uma MORDIDA pessoal. Por favor, retirem o texto que não acrescenta nada à mensagem (respostas de 3 níveis, rodapés, etc). Facilita bastante a leitura dos e-mails. 2008/7/7 Eduardo Silva dos Santos <[EMAIL PROTECTED]>: > Eu entendi perfeitamente, e tenho acompanhado todos os updates, quanto à -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
Re: [delphi-br] Colocar um diretório no PATH do Windows
Tá na mão http://www.delphi3000.com/articles/article_3669.asp 2008/7/7 José Mário Silva Guedes <[EMAIL PROTECTED]>: > Juro que procurei mas acho que o Google brigou comigo... > > Tem como incluir na variável PATH um determinado diretório? > > Extendendo a pergunta, tem como criar uma variável de sistema nova? > > Obrigado pela paciência, > > -- > José Mário Silva Guedes > Analista Programador Delphi > http://pgviavel.blogspot.com/ > > [As partes desta mensagem que não continham texto foram removidas] > > -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
Re: [delphi-br] Dúvida com Record
Ops, destructors não existem em records. 2008/7/4 Guionardo Furlan <[EMAIL PROTECTED]>: > Opa, acho que isso resolve minha questão: > > http://delphi.about.com/od/adptips2006/qt/newdelphirecord.htm > > constructors e destructors automáticos. > > 2008/7/4 Davi Eduardo Borges Wall <[EMAIL PROTECTED]>: >> >> Muito legal as perguntas e respostas! >> >> Eu ainda diria para você tomar de costume sempre que possível inicializar >> variáveis. É uma boa prática de programação e evita problemas futuros. >> >> []'s >> >> >> >> De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Joao >> Morais >> Enviada em: sexta-feira, 4 de julho de 2008 15:37 >> >> Para: delphi-br@yahoogrupos.com.br >> Assunto: Re: [delphi-br] Dúvida com Record >> >> Guionardo Furlan wrote: >> > TReg = record >> > private >> > FInicializado: Boolean; >> > FData: array of string; >> > function GetCount: Integer; >> > function SetCount(const Value: Integer); >> > public >> > property Count: Integer read GetCount write SetCount; >> > property Data[Index: Integer] read GetData write SetData; >> > end; >> > >> > 1. Quando eu defino uma variável com o tipo TReg, o campo FInicializado >> > Booleano é *sempre* criado como False? >> >> Ao instanciar uma classe, sim. Record eu me arrisco a dizer que não, uma >> vez que ele não tem uma rotina de inicialização como uma classe. >> >> Se a variável desse record for global, possivelmente ele será >> inicializado. Se for dentro de uma procedure, function ou method, mais >> provável que não. >> >> > 2. Após vários processos em que o tamanho da array de strings FData é >> > modificado, pode ocorrer vazamento de memória? >> >> Não. Array dinâmico possui contagem de referência e ele é destruído tão >> logo saia de escopo, assim como acontece com ansi strings. >> >> > Num sistema, criei um record similar a este, e depois disso, começaram a >> > aparecer mensagens do FastMM falando sobre vazamento de memória com tipos >> > string, que não estou conseguindo identificar. >> >> Você cria alguma coisa dinamicamente, tal como instância de classes ou >> através da procedure new? Talvez a string esteja em um array, e este >> array esteja associado a alguma outra área de memória, tal como um >> objeto ou uma variável dinâmica? >> >> > No NG, recebi dicas para utilizar classes ao invés de records, mas foi o >> > que >> > me pareceu mais econômico, já que as variáveis record serão acessadas >> > localmente, dentro de outras classes. >> >> A única economia ao utilizar record é não precisar instanciar, e seus >> métodos receberem um parâmetro a menos (que no caso da classe é o >> ponteiro da instância) mas será que realmente vale a economia? >> >> Joao Morais >> > > -- > Timeo hominem unius libri > Cogito ergo sum - Carpe diem > > []s > Guionardo Furlan > http://guionardo.blogspot.com > -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
Re: [delphi-br] Dúvida com Record
Opa, acho que isso resolve minha questão: http://delphi.about.com/od/adptips2006/qt/newdelphirecord.htm constructors e destructors automáticos. 2008/7/4 Davi Eduardo Borges Wall <[EMAIL PROTECTED]>: > > Muito legal as perguntas e respostas! > > Eu ainda diria para você tomar de costume sempre que possível inicializar > variáveis. É uma boa prática de programação e evita problemas futuros. > > []'s > > > > De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Joao > Morais > Enviada em: sexta-feira, 4 de julho de 2008 15:37 > > Para: delphi-br@yahoogrupos.com.br > Assunto: Re: [delphi-br] Dúvida com Record > > Guionardo Furlan wrote: > > TReg = record > > private > > FInicializado: Boolean; > > FData: array of string; > > function GetCount: Integer; > > function SetCount(const Value: Integer); > > public > > property Count: Integer read GetCount write SetCount; > > property Data[Index: Integer] read GetData write SetData; > > end; > > > > 1. Quando eu defino uma variável com o tipo TReg, o campo FInicializado > > Booleano é *sempre* criado como False? > > Ao instanciar uma classe, sim. Record eu me arrisco a dizer que não, uma > vez que ele não tem uma rotina de inicialização como uma classe. > > Se a variável desse record for global, possivelmente ele será > inicializado. Se for dentro de uma procedure, function ou method, mais > provável que não. > > > 2. Após vários processos em que o tamanho da array de strings FData é > > modificado, pode ocorrer vazamento de memória? > > Não. Array dinâmico possui contagem de referência e ele é destruído tão > logo saia de escopo, assim como acontece com ansi strings. > > > Num sistema, criei um record similar a este, e depois disso, começaram a > > aparecer mensagens do FastMM falando sobre vazamento de memória com tipos > > string, que não estou conseguindo identificar. > > Você cria alguma coisa dinamicamente, tal como instância de classes ou > através da procedure new? Talvez a string esteja em um array, e este > array esteja associado a alguma outra área de memória, tal como um > objeto ou uma variável dinâmica? > > > No NG, recebi dicas para utilizar classes ao invés de records, mas foi o que > > me pareceu mais econômico, já que as variáveis record serão acessadas > > localmente, dentro de outras classes. > > A única economia ao utilizar record é não precisar instanciar, e seus > métodos receberem um parâmetro a menos (que no caso da classe é o > ponteiro da instância) mas será que realmente vale a economia? > > Joao Morais > -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
[delphi-br] Dúvida com Record
Buenas pessoal, postei esta mesma dúvida no newsgroup da u-br. No D2007, tenho um record similar a este. TReg = record private FInicializado: Boolean; FData: array of string; function GetCount: Integer; function SetCount(const Value: Integer); public property Count: Integer read GetCount write SetCount; property Data[Index: Integer] read GetData write SetData; end; function TReg.GetCount: Integer; begin if not FInicializado then begin SetLength(FData,0); FInicializado:=True; end; Result:=Length(FData); end; procedure TReg.SetCount(const Value: Integer); begin if Value in [0..255] then SetLength(FData,Value); end; function TReg.GetData(const Index: Integer): string; begin if (Index>=0) and (Index=0) and (Indexhttp://guionardo.blogspot.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] subestoque
Ok. O uso de view não vai deixar o sistema mais lento, pois nesse caso, cada subestoque terá "n" linhas, em que "n" será o número de produtos que vc trabalha. Este número não vai aumentar significativamente. Por exemplo, se vc tiver um mix de 100 produtos divididos em 5 locais de estoque, sua tabela de estoque terá 500 linhas. Nada pesado para um view. As movimentações deverão acionar triggers que ajustam a quantidade de produtos na tabela de estoque. 2008/6/27 Sandro <[EMAIL PROTECTED]>: > Olá Guionardo, > > "Subestoque seria uma distribuição dos produtos por locais diferentes?" > Isso, a idéia é que tenha um estoque central e N outros estoques menores > espalhados, mas acessando a mesma base de dados e dentro da mesma rede. > Segundo dados levantados deverão ser gerados em média 100.000 registros ao > mês, para movimentação de saída e devoluções. > Neste caso usar View, com o passar do tempo, o sistema não pode ficar lento? > Será que teria outra maneira para trabalhar com estoque central e > subestoque? > > Sandro > > - Original Message - > From: Guionardo Furlan > To: delphi-br@yahoogrupos.com.br > Sent: Thursday, June 26, 2008 9:35 PM > Subject: Re: [delphi-br] subestoque > > Subestoque seria uma distribuição dos produtos por locais diferentes? > Se for, vc pode identificar os produtos por dois campos, um > identificador que contém o código do produto e um localizador que > indica onde ele está armazenado. Esse duplo identificador vai estar > presente nas tabela de produto e nas tabelas de movimentação. > > O estoque total pode ser visto por uma view que soma os estoques > agrupando por identificador. > > Compliquei? > > 2008/6/26 Sandro <[EMAIL PROTECTED]>: >> Boa tarde, >> >> Estou iniciando um projeto onde terei que controlar estoque e subestoque. >> Tudo em uma única base de dados. >> Alguém já desenvolveu algo do genero? >> Gostaria de sugestão e opnião. >> >> Grato >> >> Sandro >> >> [As partes desta mensagem que não continham texto foram removidas] >> >> > > -- > Timeo hominem unius libri > Cogito ergo sum - Carpe diem > > []s > Guionardo Furlan > http://guionardo.blogspot.com > > [As partes desta mensagem que não continham texto foram removidas] > > -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
Re: [delphi-br] Alto Processamento
Dê uma olhada nas "finalization" das units, se existirem. Ou nos métodos destroy das classes. 2008/6/27 lucaoliveira7 <[EMAIL PROTECTED]>: > Trabalho com WinXP/Delphi6/Oracle9 > > Tem um programa aqui que provavelmente uma 500 pessoas já puseram a > mão e o que eu observo é que no momento que se fecha o aplicativo o > processamento da máquina vai 100% de uso da CPU durante uns 10 segundos. > Executando um debug eu percebo que não há elevação do processamento > até a última linha, o problema aparece quando é dado um Terminate aí o > processamento vai lá nas alturas. > Alguém tém idéia do que possa estar acontecendo e tb alguém conhece > algum programa que possa ver quais queries estão sendo executadas para > eu tentar achar o "culpado" por este processamento estranhamente alto? > > Grato > > -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
Re: [delphi-br] subestoque
Subestoque seria uma distribuição dos produtos por locais diferentes? Se for, vc pode identificar os produtos por dois campos, um identificador que contém o código do produto e um localizador que indica onde ele está armazenado. Esse duplo identificador vai estar presente nas tabela de produto e nas tabelas de movimentação. O estoque total pode ser visto por uma view que soma os estoques agrupando por identificador. Compliquei? 2008/6/26 Sandro <[EMAIL PROTECTED]>: > Boa tarde, > > Estou iniciando um projeto onde terei que controlar estoque e subestoque. > Tudo em uma única base de dados. > Alguém já desenvolveu algo do genero? > Gostaria de sugestão e opnião. > > Grato > > Sandro > > [As partes desta mensagem que não continham texto foram removidas] > > -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
Re: [delphi-br] Erro - O pipe esta sendo fechado
Parece que recriar tudo de novo resolve problemas de inconsistências dos dados. 2008/6/24 Helton <[EMAIL PROTECTED]>: > Guionardo > > Fiz isso q vc citou e funcionou. > > O que não consigo entender eh que foi feito um backup/restore, que na > minha visão realizaria o que vc indicou. > > []´s > > 2008/6/23 Guionardo Furlan <[EMAIL PROTECTED]>: > >> Acessar o banco com uma ferramenta tipo EMS Firebird Manager, extrair >> o metadata e recriar tudo não funcionaria? >> >> 2008/6/21 Helton <[EMAIL PROTECTED]>: >> >>> Pessoal >>> >>> Tenho uma aplicação delphi acessando um base em firebird 1.5 que >>> funcionava perfeitamente até o momento de uma queda de energia essa >>> semana. Com a queda de energia o banco foi corrompido, mas corrigida >>> tranquilamente com gfix. >>> Agora estamos tendo problemas. >>> Quando o sistema esta aberto apenas no servidor tudo funciona >>> perfeitamente, mas qndo temos mais de um usuário, depois de alguns >>> minutos, ocorre o erro "unable to complete network request to host >>> 10.1.1.81. Error writing data to the connection. O pipe esta sendo >>> fechado". Ja fizemos o teste e chegamos a colocar o banco em outra >>> maquina, mas o problema persiste. >>> Pelo q entendi na mensagem o problema seria na rede (talvez algo em >>> virtude da queda de energia), mas nenhum outro problema existe na >>> rede. >>> >>> Alguem ja viu algo desse tipo? >>> Alguma sugestão? >>> >>> Desde ja agradeço. >>> >>> -- >>> Hélton R. Nunes >>> [EMAIL PROTECTED] >>> >>> -- >>> Hélton R. Nunes >>> [EMAIL PROTECTED] >>> >>> >> >> -- >> Timeo hominem unius libri >> Cogito ergo sum - Carpe diem >> >> []s >> Guionardo Furlan >> http://guionardo.blogspot.com >> > > -- > Hélton R. Nunes > [EMAIL PROTECTED] > -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
Re: [delphi-br] Erro - O pipe esta sendo fechado
Acessar o banco com uma ferramenta tipo EMS Firebird Manager, extrair o metadata e recriar tudo não funcionaria? 2008/6/21 Helton <[EMAIL PROTECTED]>: > Pessoal > > Tenho uma aplicação delphi acessando um base em firebird 1.5 que > funcionava perfeitamente até o momento de uma queda de energia essa > semana. Com a queda de energia o banco foi corrompido, mas corrigida > tranquilamente com gfix. > Agora estamos tendo problemas. > Quando o sistema esta aberto apenas no servidor tudo funciona > perfeitamente, mas qndo temos mais de um usuário, depois de alguns > minutos, ocorre o erro "unable to complete network request to host > 10.1.1.81. Error writing data to the connection. O pipe esta sendo > fechado". Ja fizemos o teste e chegamos a colocar o banco em outra > maquina, mas o problema persiste. > Pelo q entendi na mensagem o problema seria na rede (talvez algo em > virtude da queda de energia), mas nenhum outro problema existe na > rede. > > Alguem ja viu algo desse tipo? > Alguma sugestão? > > Desde ja agradeço. > > -- > Hélton R. Nunes > [EMAIL PROTECTED] > > -- > Hélton R. Nunes > [EMAIL PROTECTED] > > -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
Re: [delphi-br] Funcao
Se entendi direito, 'casa' retornaria 'a', 'c', e 's'. É isso que vc precisa? 2008/6/3 Ioney Hotmail <[EMAIL PROTECTED]>: > eu tenho um edit e nele esta digitado 'casa', tem alguma funcao pra saber > QUAIS LETRAS ou NUMEROS foram digitado no edit? -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
Re: [delphi-br] Programa para gerar glyphs desabilitados
Não é o peixe, mas pega a vara aí. Vc pode transformar uma cor em grayscale da seguinte forma: function CorToCinza(Cor: TColor): TColor; var R,G,B : Byte; C: Longint; begin C := ColorToRGB(Value); R := C; G := C shr 8; B := C shr 16; c := Trunc(R * 0.56 + G * 0.33 + B * 0.11); Result := RGBToColor(c, c, c); end; Daí pra pegar todos os pixels do glyph e transformar e gray, é um pulo. Aquele abraço. end; 2008/6/4 psdias2 (Yahoo) <[EMAIL PROTECTED]>: > Pessoal: > > Há alguns anos, encontrei na Internet um programinha > que, a partir de um pequeno bitmap colorido, gerava > uma imagem igual, mas "desabilitada" (em tons de cinza), > para ser usada, por exemplo, em SpeedButtons ou BitBtns, > aparecendo quando a propriedade Enabled está como False. > > Alguém sabe informar o nome/endereço de algum programa > desse tipo ? (de preferência, freeware) > > Grato pela atenção de todos > Paulo > > [As partes desta mensagem que não continham texto foram removidas] > > -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
[delphi-br] Netiqueta
Caros colegas, é fora de tópico em relação ao delphi, mas gostaria de sugerir que ao redigir suas mensagens, prestassem atenção ao quote e ao conteúdo desnecessário e repetido. Algumas mensagens vem com 2 linhas de resposta e mais 50 de quotes antigos, sem falar daquelas que vem com código html aparecendo. Pra quem, como eu, lê pelo webmail do google, as mensagens ficam seriadas pelo thread e enormes, dificultando a leitura. A dica é limpar o texto desnecessário e redigir em texto simples (não-html). Aquele abraço -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
Re: [delphi-br] TXT para variavel
O jeito mais cômodo é usar tstringlist, loadfromfile. Veja aí no help. 2008/4/29 Filippe Maymone <[EMAIL PROTECTED]>: > > GAlera boa tarde > > Eu tenho um arquivo TXT com alguns codigos exemplo: > > 01,03,120,301,359,623,700 > > Eu preciso pegar desse TXT esses codigos e jogar para uma variavel string. > > Teria como fazer isso ?? > > Abraços, -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
Re: [delphi-br] Re: Socket Server
Opa, também gostaria de exemplos do uso de threads com serversocket. 2008/5/28 José Mário Silva Guedes <[EMAIL PROTECTED]>: > Luciano, sugiro, assim como os colegas, o uso de Threads. > > Se precisar postos alguns exemplos de como faço por aqui. > > Muitos dos problemas que eu tinha com soquete se resolveram quando passei a > tratar cada conexão em threads. > > [As partes desta mensagem que não continham texto foram removidas] > > -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
Re: [delphi-br] Delphi via wine
Vc roda a IDE ou o aplicativo feito em delphi? Porque tentei instalar o D7 e deu pau na hora de rodar. 2008/5/28 Alan Vieceli <[EMAIL PROTECTED]>: > só tive problema com o BDE..o resto funcionou blz... > como ninguem mais usa BDE, então ta tudo tranquilo :P > > Evaldo escreveu: > >> >> Bom dia, alguém tem experiência em rodar o Delphi via wine? >> >> caso positivo, teve algum problema? -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
Re: [delphi-br] Salvar instrução SQL em arquivo texto, com os parâmetros preenchidos
Acho que isso resolverá, mas não testei.
function TDM.QueryToLog(Q: TQuery): string;
var
i: Integer;
r: string;
begin
Result := Q.SQL.Text;
for i := 0 to Q.Params.Count - 1 do
begin
case Q.Params.Items[i].DataType of
ftString, ftDate, ftDateTime: r := QuotedStr(Q.Params[i].AsString);
else
r := Q.Params[i].AsString;
end;
Result := ReplaceText(Result, ':' + Q.Params.Items[i].Name, r);
end;
end;
2008/5/9 José Mário Silva Guedes <[EMAIL PROTECTED]>:
>
> Olá amigos!
>
> Estou precisando salvar algumas querys em texto, para fins de log.
>
> Acontece que tiro proveito dos parâmetros. Portanto, quando dou
> "IBQuery1.SQL.SaveToFile('c:\teste.sql')", o resultado é parecido com este:
>
> select * from tabela where (CAMPO1 = :PARAMETRO1)
>
> É possível fazer algo parecido, porém com o :PARAMETRO1 preenchido?
>
> Obrigado e bom fim de semana a todos.
>
> --
> José Mário Silva Guedes
> Analista Programador Delphi
> http://pgviavel.blogspot.com/
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
--
Timeo hominem unius libri
Cogito ergo sum - Carpe diem
[]s
Guionardo Furlan
http://guionardo.blogspot.com
Re: [delphi-br] Solução Seria eliminar Filtro????
BDE... Argh! Qual a chance de trocar por um SGDB de verdade? Sugestão rápida: Firebird. Aí, vc teria muito mais recursos e eficiência no trato aos dados. 2008/4/30 Sandro <[EMAIL PROTECTED]>: > > Bom dia! > Peguei um sistema ja pronto com o seguinte problema, o programador anterior > implementou os modulos de contas a receber e pagar utilizando uma tela de > entrada onde o usuário escolhe se quer visualizar contas baixadas, em > aberto, por periodo, por valor por cliente todos os tipos de possibilidades > possíveis para o usuário visualizar o lançamento da maneira que ele > desejar. > Mas a questão é que isso foi implemetado utilizando-se de filtro (BD > PARADOX)depois de ecolher o lançameto que ele quer visualizar o mesmo clica > em visualizar e o sistema implementa o filtro necessário àquela pesquisa e > abre o formulario principal. São duas tabelas, uma receber onde constam os > lançamentos e outra Ireceber onde o usuário formaliza a baixa sendo que > esta > ireceber é uma DETAIL da receber. > O que ocorre é que a uns tempos atras o sistema TODO ao abrir, estava > implementado para abrir todas as tabelas deste cerca de 300 tabelas abertas > ao mesmo tempo (em uma rede de 10 maquinas com um servidor dedicado ao BD) > o > que começou a me causar problemas de falta de memória na maioria dos > computadores (Todos minimo celeron 1.1 com 512 rede 10/100 com swith). > Durante este tempo em que todas as tab. eram abertas ao mesmo tempo os > modulos receber e pagar deste sistema por incrivel que pareça funcionavam > muito bem. Quando digo muito bem quero dizer que quando o usuário baixava > um > determinado lançamento esta baixa era quase instantanea. > Mas eu tive que resolver o problema de falata de memoria. E fiz da seguinte > forma simplesmente acabei com as funçoes que abriam todas as tabelas ao > entrar no sistema e agora só abro as mesmas quando necessito (on Demanda) > ou > seja quando estou com o modulo receber aberto só estou com as tabelas > necessárias àquele modulo aberta, quando antes estavam todas as tab. do > sistema abertas. O sistema todo ficou muito mais leve, o problema de falta > de memoria foi resolvido. > Mas para o meu espanto tanto o modulo de receber (só baixa) quanto pagar > (só > baixa) ficaram extremamente lentos cerca de 5m para realizarem uma baixa. > Intervi novamente da seguinte forma verifiquei nas duas tabelas do sistema > receber quais eventos eram estartados desde o momentos em que as tabelas > são > abertas até o momento em que elas são fechadas ( o formulario de receber é > composto por dois grids um para mostrar os dados da tab receberr e outro > para a tab. ireceber.) fiz o seguinte removi todos os eventos (on insert, > on > after insert, onedit, Before post, after post) ao inves de fazer as baixas > direto dentro da grid da tab ireceber, inseri campos edit, dateedit, enfim > todoas os campos da grid ireceber eu inseri campos identicos logo abaixo da > grid e passei a mesma para read only ou seja a baixa que era feita na grid > agora é feita em componetes tEdit e os eventos que eram estartados na tab > ireceber eu inseri em um botão, nomeado de efetuar baixa, que contem todos > os processos de verificação utilizados nos eventos citados acima da tab. > Ireceber. > O sistema melhorou muito quando efetuei a primeira baixa depois de > implemetado isso tudo. Porem esta ocorrendo o seguinte se faço mais que > cinco baixas direto sem fechar o sistema ele volta a ficar lento como > antes. > (Normalmento processamos a cada entrada neste modulos cerca de 20 a 25 > baixas. > Qual seria a solução definitiva e viavel para essa situação. (A lentidão se > da na hora do sistema baixar o lançamento e dar o feedback para o usuario > na > grid ou seja dar o refresh na tab receber e remover aquele registo do > filtro > utilizado na consulta.) -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
Re: [delphi-br] Método p/ obter a data metade entre duas datas ?????
Assim, funciona
DataMedia:=DataInicial+(DataFinal-DataInicial)/2;
2008/4/25 Consultores Software <[EMAIL PROTECTED]>:
>
> >>> Isso não funciona, pois não se pode dividir por 2 o resultado da subtração
> de duas datas, como se fosse calcular a média aritimética entre dois
> números.
>
> Inclusive, fiz o seguinte teste:
>
> procedure TfrmPrincipal.Button4Click(Sender: TObject);
> var dt: TDateTime;
> begin
> dt := (StrToDate('31/01/2008') - StrToDate('01/01/2008')) / 2;
> ShowMessage(DateToStr(dt)); // -> deu 14/01/1900
> end;
> O correto é sempre usar funções específicas para datas que não tem erro.
>
> 2008/4/25 Joao Morais <[EMAIL PROTECTED]>:
>
>
> > Consultores Software wrote:
> > > uses DateUtils;
> > >
> > > function DaysBetween(const ANow, AThen: TDateTime): Integer;
> > > db := DaysBetween(data2, data1);
> > > meio := db div 2;
> > > data_meio := IncDate(data1, meio);
> >
> > data_meio := (data_fim - data_inicio) / 2;
> >
> > >
> > >
> > > 2008/4/25 Flavio <[EMAIL PROTECTED] >:
>
> > >
> > >> Olá pessoal, bom dia,
> > >>
> > >> estou querendo obter a data do meio entre duas datas, mas não estou
> > >> conseguindo construir o algoritimo. Exemplo:
> > >>
> > >> data1 = '10/10/2000 10:10:10';
> > >> data2 = '12/10/2000 10:10:10';
> > >> resultado = '11/10/2000 10:10:10';
> > >>
> > >> Mas perceba q o mês, dia, horas, etc, poderá receber quaisquer valores
> > >> suportados.
--
Timeo hominem unius libri
Cogito ergo sum - Carpe diem
[]s
Guionardo Furlan
http://guionardo.blogspot.com
Re: [delphi-br] DataModule publico no sistema
Algo está errado aqui. Como vc está trabalhando com datamodules e não compreende o uso de units? Desculpe, mas acho que vc pulou páginas no livro. Se está querendo "fazer programas na base do componente", já te aviso que o início é bem bonito, mas quando a coisa complicar, vc vai notar que perdeu tempo aprendendo como as coisas realmente funcionam. Fica aí a dica. 2008/4/14 Jose Eduardo Victorino <[EMAIL PROTECTED]>: > > Eu sou muito novo ,, como faço isto?? > > Guionardo Furlan <[EMAIL PROTECTED]> escreveu: Coloque-o na cláusula uses > na unit de cada form. > > > > 2008/4/13 Jose Eduardo Victorino <[EMAIL PROTECTED]>: > > > > Ola amigos preciso que meu datamodule seja visto em todos os meus forms,, > > pois tem as configuracoes do meu bco de dados que esta em mysql > > > > XP,, delphi 7.. > > -- > Timeo hominem unius libri > Cogito ergo sum - Carpe diem > > []s > Guionardo Furlan > http://guionardo.blogspot.com > > > > > - > Abra sua conta no Yahoo! Mail, o único sem limite de espaço para > armazenamento! > > [As partes desta mensagem que não continham texto foram removidas] > > -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
Re: [delphi-br] DataModule publico no sistema
Coloque-o na cláusula uses na unit de cada form. 2008/4/13 Jose Eduardo Victorino <[EMAIL PROTECTED]>: > > Ola amigos preciso que meu datamodule seja visto em todos os meus forms,, > pois tem as configuracoes do meu bco de dados que esta em mysql > > XP,, delphi 7.. -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
Re: [delphi-br] Como mesclar 4 arquivos bmps em um só arquivo
Não testei, mas é um caminho. Defina o tamanho do bitmap final, com as propriedades width e height. * Essa parte é feia, e deve haver outra maneira bem mais elegante, mas foi o que me ocorreu agora. Faça um duplo loop em cada bitmap origem (carregue-os antes) para varrer todos os pixels (x,y) acessando suas propriedades Canvas.Pixels e copiando para o Canvas.Pixels do Bitmap final. Para o bitmap 1, não precisa alterar o offset. Para o 2, some a largura do bitmap1 ao x do bitmap final Para o 3, some a altura do bitmap1 ao y do bitmap final Para o 4, some a altura do bitmap1 ao y e a largura do bitmap1 ao x do bitmap final. Confuso? Deve funcionar se todos os 4 bitmaps forem do mesmo tamanho. Aquele abraço. Em 03/04/08, psdias2 (Yahoo) <[EMAIL PROTECTED]> escreveu: > > Pessoal: > > Alguém sabe como fazer o seguinte ? > > Tenho que mesclar 4 arquivos BMP em um único arquivo (também BMP). > Imaginem que os 4 arquivos eram uma foto grande, que foi dividida em 4 > pedaços iguais (com um "corte" em forma de cruz, bem na parte central da > foto). > > Assim: > > - O PARTE1.BMP deve ficar no canto superior esquerdo do novo BMP > - O PARTE2.BMP deve ficar no canto superior direito do novo BMP > - O PARTE3.BMP deve ficar no canto inferior esquerdo do novo BMP > - O PARTE4.BMP deve ficar no canto inferior direito do novo BMP > > Eu sei como ler os 4 arquivos, usando o objeto TBitMap, mas não sei como > gerar o novo arquivo -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
Re: [delphi-br] Re: Problemas com Sistema compilado
Ops, falha nossa. Em 26/03/08, Ricardo César Cardoso <[EMAIL PROTECTED]> escreveu: > Não é use midaslib? > > Atte, > Ricardo. > > Guionardo Furlan <[EMAIL PROTECTED]> escreveu: > coloque no seu datamodule, ou form que contenha os datasets. > > uses midas -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
Re: [delphi-br] Re: Problemas com Sistema compilado
coloque no seu datamodule, ou form que contenha os datasets. uses midas Em 26/03/08, Tux Wi-FI <[EMAIL PROTECTED]> escreveu: > > Saudações Galera, > > O problema era a falta da DLL midas.dll > > Obrigado a todos. > > ps: Tem como "juntar" essa DLL no .EXE, para que eu envie para o > cliente apenas um arquivo? -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
Re: [delphi-br] Word to PDF
No news delphi da u-br teve uma dúvida igualzinha à sua. Foi vc? eheh Dentro da gnuwin32 tem um aplicativo pdf2txt. Se o que vc quer são os textos, tá aí uma opção free e eficaz pro teu problema. Em 25/03/08, Sérgio T. Uetanabaro <[EMAIL PROTECTED]> escreveu: > Olá Lista!! > > > Alguém usa algum componente de geração de WORD para PDF? Vi q tem muitos > dirvers de impressora mas o que realmente preciso é passar um arquivo do > WORD e ele me retornar uma strem do PDF gerada, em linha de código. Alguém > usa esse tipo de componente? Poderia me indicar? -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
Re: [delphi-br] Sugestão/Opnião de Chave Primária.
1. COD_LOJA+COD_VENDA Em 25/03/08, Ricardo Lima <[EMAIL PROTECTED]> escreveu: > > > Pessoal gostaria da opnião de voçês sobre qual melhor forma de montar > essa chave primária. > > Um software de automação comercial que tem um escritório e n lojas > espalhadas no Brasil, todas as operações realizadas nas lojas vão para o > escritório(consolidadas), > como exemplo a tabela de vendas, tenho que montar a chave primaria de > forma que quandos os dados chegarem no escritório não de conflitos, a > primcicio tenho duas possibilidades: > > Exemplo baseado na tabela de vendas. > > 1- Montar uma chave composta, COD_VENDA(auto_inc) + COD_LOJA, > > Ou > > 2-Montar uma chave simples com diferentes ranges, COD_VENDA(auto_inc). > Ex.: Loja 1 - range 1000/1999 > Loja 2 - range 2000/2999 > Loja n - range n000/n999 > > Qual dessas duas opção na opnião de voçês devo utilziar? -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
Re: [delphi-br] Existe a possibilidade de herdar uma tela, sem que a tela principal esteja no projeto?
E não dá pra usar packages? Acho que vai resolver seu problema.
Em 25/03/08, Fellipe Henrique <[EMAIL PROTECTED]> escreveu:
>
> Nao.. sistema normal mesmo... tipo, por os arquivos principais numa Library
> e tals..
>
> []s
>
> Em 25/03/08, Guionardo Furlan <[EMAIL PROTECTED]> escreveu:
> >
> > Packages?
> >
> > Em 25/03/08, Fellipe Henrique <[EMAIL PROTECTED] >
> > escreveu:
> > >
> > > Olá amigos, queria colocar algumas telas principais, e os projetos
> > herdarem
> > > elas, porém pra não ficar confuso no projeto, tem jeito dessas telas
> > > principais, não ficarem no projeto? Como eu faço pra herdar algum Form,
> > que
> > > não esteja no projeto?
> >
--
Timeo hominem unius libri
Cogito ergo sum - Carpe diem
[]s
Guionardo Furlan
http://guionardo.blogspot.com
Re: [delphi-br] Existe a possibilidade de herdar uma tela, sem que a tela principal esteja no projeto?
Packages? Em 25/03/08, Fellipe Henrique <[EMAIL PROTECTED]> escreveu: > > Olá amigos, queria colocar algumas telas principais, e os projetos herdarem > elas, porém pra não ficar confuso no projeto, tem jeito dessas telas > principais, não ficarem no projeto? Como eu faço pra herdar algum Form, que > não esteja no projeto? -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
Re: [delphi-br] Imagem em RichEdit
O RichEdit original não suporta imagens ou tabelas. Talvez o da JediVCL suporte. Mas dê uma olhada nesse link http://www.delphi3000.com/articles/article_1819.asp?SK=RichEdit Em 12/03/08, Leandro - Grupos <[EMAIL PROTECTED]> escreveu: > Salve Galera > > Criei um Editor de texto em uma aplicação minha e meu cliente solicitou a > possibilidade de inserir imagens neste editor, é possivel fazer isso... > procurei na net, mas não achei nada sobre isso > > Obs: Utilizo o RichEdit... -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
Re: [delphi-br] Duvida com Calculo
Quando vc está transformando string em float, tá entrando junto os
separadores de milhar.
É só remover os danados antes do strtofloat que funciona.
Em 03/03/08, inacio_mecena <[EMAIL PROTECTED]> escreveu:
>
>
> Ola pessoal boa tarde.. seguinte to com um problema aki.. q nao
> verdade mais é por falta de conhecimento.. to começando agora..
>
> mas vamos la...
>
> seguinte eu to criando um modulo de recebimento de caixa.. dai vem um
> problema abaixo segue o codigo q escrevi qdo o valor da abaixo de
> 1.000,00 da tudo certo mais qdo o valor é acima de 999 tipo 1.000,00
> ele fala q o valor nao é um ponto flutuante valido.. como posso
> contornar isso??
>
> dinheiro := RxCalcEdit2.Text;
> cartao := Edit3.Text;
> cheque := Edit2.Text;
> total := FloatToStr(StrToFloat(dinheiro) + StrToFloat(cartao) +
> StrToFloat(cheque));
> saldo.Caption := FormatFloat('###,###,###,##0.00',StrToFloat(total));
> saldo.visible := true;
> // calcular troco
> troco := FloatToStr(StrToFloat(saldo.Caption) -
> StrToFloat(label4.caption));
> label5.Caption := FormatFloat('###,###,###,##0.00',StrToFloat(troco));
> label5.Visible := true;
> //calcular carteira
> total2 := FloatToStr(StrToFloat(label4.Caption) -
> StrToFloat(saldo.Caption));
> Edit4.Text := FormatFloat('###,###,###,##0.00',StrToFloat(total2));
>
--
Timeo hominem unius libri
Cogito ergo sum - Carpe diem
[]s
Guionardo Furlan
http://guionardo.blogspot.com
Re: [delphi-br] Atualizador automatico
Cada vez que o cliente abre o aplicativo, ele acaba usando a rede para passar todo o arquivo do executável. Em alguns casos isso lentifica demais toda a rede (imagine 40 ou mais estações). E se a rede for lenta naturalmente ou o acesso for remoto, cada vez que inicializar o aplicativo, terá que ser feito o "download" completo, causando demora desnecessária. Além do caso de ter que esperar todo mundo se desconectar para atualizar. Fora os erros esotéricos do windows que diz que ainda tem alguém conectado no sistema, mesmo que nenhum cliente esteja ligado, forçando um reboot no servidor. Bom, acho que são alguns bons motivos. Aquele abraço. Em 22/02/08, Davi Eduardo Borges Wall <[EMAIL PROTECTED]> escreveu: > > > E por que vc discorda? > > De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de > Guionardo Furlan > Enviada em: sexta-feira, 22 de fevereiro de 2008 08:06 > Para: delphi-br@yahoogrupos.com.br > Assunto: Re: [delphi-br] Atualizador automatico > > Será mesmo uma boa idéia? Discordo. > > Eu deixaria uma versão do executável no servidor, com um arquivo texto > indicando a versão. > Nos clientes, um aplicativo inicializador compararia a versão do > executável local com a versão do executável remoto. Em caso de > diferença, copiará do servidor. > Por último, o aplicativo inicializador chama o executável localmente. > > Em 22/02/08, Consultores Software <[EMAIL PROTECTED] > <mailto:consultoressoftware%40gmail.com> > escreveu: > > > > Antes de pensar num atualizador, não seria mais fácil deixar um executável > > só no servidor e mapear para que cada usuário tenha acesso a ele via rede, > > do que distribuir várias cópias ? Assim, você teria que atualizar uma vez > > só. Um ponto crítico aí é que, para atualizar esse aplicativo, todos os > > usuários terão que sair dele em suas máquinas, a menos que o servidor seja > > linux, que permite sobrescrever o exe mesmo que ele esteja em uso . > > > > Em 22/02/08, Carlos <[EMAIL PROTECTED] > <mailto:ca_programador007%40yahoo.com.br> > escreveu: > > > > > > Olá amigos, > > > > > > Tenho um aplicativo onde o banco de dados fica no servidor e cada maquina > > > tem um executavel .exe para acessar o banco de dados. > > > Muitas vezes eu preciso atualizar o .exe e preciso ir de máquina em > > > máquina para atualizar o arquivo, e isso é muito chato porque são várias > > > máquinas. > > > Eu sei que existe uma forma fácil de resolver isso, utilizando um > > > atualizador automático que fica direto no servidor e todos os usuarios > > > quando executam o executavel busca a atualizacao no servidor. > > > Gostaria de saber como faz isso. Alguem me ajuda a começar? Nem sei por > > > onde começar. > > > > > > Obrigado e aguardo ajuda. > > > Carlos > > > > -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
Re: [delphi-br] Atualizador automatico
Será mesmo uma boa idéia? Discordo. Eu deixaria uma versão do executável no servidor, com um arquivo texto indicando a versão. Nos clientes, um aplicativo inicializador compararia a versão do executável local com a versão do executável remoto. Em caso de diferença, copiará do servidor. Por último, o aplicativo inicializador chama o executável localmente. Em 22/02/08, Consultores Software <[EMAIL PROTECTED]> escreveu: > > Antes de pensar num atualizador, não seria mais fácil deixar um executável > só no servidor e mapear para que cada usuário tenha acesso a ele via rede, > do que distribuir várias cópias ? Assim, você teria que atualizar uma vez > só. Um ponto crítico aí é que, para atualizar esse aplicativo, todos os > usuários terão que sair dele em suas máquinas, a menos que o servidor seja > linux, que permite sobrescrever o exe mesmo que ele esteja em uso . > > Em 22/02/08, Carlos <[EMAIL PROTECTED]> escreveu: > > > > Olá amigos, > > > > Tenho um aplicativo onde o banco de dados fica no servidor e cada maquina > > tem um executavel .exe para acessar o banco de dados. > > Muitas vezes eu preciso atualizar o .exe e preciso ir de máquina em > > máquina para atualizar o arquivo, e isso é muito chato porque são várias > > máquinas. > > Eu sei que existe uma forma fácil de resolver isso, utilizando um > > atualizador automático que fica direto no servidor e todos os usuarios > > quando executam o executavel busca a atualizacao no servidor. > > Gostaria de saber como faz isso. Alguem me ajuda a começar? Nem sei por > > onde começar. > > > > Obrigado e aguardo ajuda. > > Carlos > > -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
[delphi-br] Propagar message entre form e frame contido no form
O subject ficou uma droga, por isso vou tentar explicar melhor aqui. Tenho um form principal, com um PageControl e alguns TabSheets. Em cada TabSheet, há um frame com os módulos do aplicativo. Em alguns frames (que não tem o evento onkeypress/down/up) existem componentes como TMenuItem ou TEdits que respondem a eventos de teclado. Até aí tudo bem. Mas quando, no form principal, o foco está fora do componente do frame, não há resposta aos atalhos de teclado. Então, pensei em colocar um evento onkeypress ou onkeydown no form principal e passar uma mensagem para o frame que está no tabsheet ativo, com a tecla pressionada. Achei alguma coisa com sendmessage e perform, mas não deu muito certo (erro de estouro de pilha) no fonte abaixo. procedure TfPrincipal2.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key = VK_F6 then begin if not Assigned(fPrincipal) then Application.CreateForm(TfPrincipal, fPrincipal); fPrincipal.ShowModal; end else if Pages.ActivePage=tsJogos then FDj.Perform(WM_KEYDOWN,Key,0); FDj é o frame contido no tabsheet tsJogos Alguma idéia do que fazer? Grato pela ajuda. -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
Re: [delphi-br] Programa com parâmetros, linha de comando.
E saber quantos parâmetros foram passados com ParamCount Em 12/02/08, José Mário Silva Guedes <[EMAIL PROTECTED]> escreveu: > Você consegue recuparar um parâmetro através do comando ParamStr(Indice). -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
Re: [delphi-br] Datas formato Americano
Se a data é uma string, vc pode usar copy para separar as partes. Por exemplo var dia, mes, ano : integer; datastr: string; begin datastr:='20080122'; dia:=StrToIntDef(Copy(datastr,7,2),0); mes:=StrToIntDef(Copy(datastr,5,2),0); ano:=StrToIntDef(Copy(datastr,1,4),0); end; Tendo dia, mes e ano, é só usar encodedate para obter um resultado TDateTime. Ou se for transformar para o formato desejado em string, faça diretamente datastr:=Copy(datastr,7,2)+'/'+Copy(datastr,5,2)+'/'+copy(DataStr,1,4); Em 10/02/08, Celio Bernardo <[EMAIL PROTECTED]> escreveu: > > Amigos tenho uma data no formato 'MMDD' tipo '20080122' >e quero transforma-la em 22/01/2008. > >PS: Parece ser muito simples, mas depois de horas trabalhando nao consigo > mais pensar. -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
Re: [delphi-br] DbExpress SqlQuery
Então há algo de errado com o código. Vc precisaria ter um SELECT e um FROM nessas primeiras linhas (SQL[0] e SQL[1]) Em 04/02/08, Doretto <[EMAIL PROTECTED]> escreveu: > > Bom dia > > No Sql[1] esta em branco !!! > > Doretto. > > > - Original Message - >From: Guionardo Furlan >To: delphi-br@yahoogrupos.com.br >Sent: Saturday, February 02, 2008 3:00 PM >Subject: Re: [delphi-br] DbExpress SqlQuery > > O que tem na query anterior? (SQL[1]) >Que erro é? > > Em 01/02/08, Doretto <[EMAIL PROTECTED]> escreveu: > > > Boa tarde >> >> Como eu faço esta consulta ? >> >> Edit2.Text:='PAULO' >> >> Qcli.Close; >> Qcli.Sql[2]:='Where Nome Like "'+Edit2.Text+'%"'; >> Qcli.Open; >> >> Esta dando erro >> >> Doretto. >> -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
Re: [delphi-br] Abrir formulário dentro de outro
Em 31/01/08, Jackson Gomes - Tools&Comps <[EMAIL PROTECTED]> escreveu: > > > A vantagen dessa técnica é aproveitar os muitos eventos que o TForm tem e o > TFrame não tem. OnCreate, por exemplo... Resolvi este tipo de problema criando um Create override no frame. public constructor Create(AOwner: TComponent); override; destructor Destroy; override; -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
Re: [delphi-br] DbExpress SqlQuery
O que tem na query anterior? (SQL[1]) Que erro é? Em 01/02/08, Doretto <[EMAIL PROTECTED]> escreveu: > Boa tarde > > Como eu faço esta consulta ? > > Edit2.Text:='PAULO' > > Qcli.Close; >Qcli.Sql[2]:='Where Nome Like "'+Edit2.Text+'%"'; >Qcli.Open; > > Esta dando erro > > Doretto. > -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
Re: [delphi-br] Copiar/Recortar Imagem
É uma solução que me ocorreu agora. Mas acho que serve pra dar uma idéia. 1. Definir o tamanho da área do CROP 2. Criar um TBitmap 3. Definir Width e Height do BitMap para o tamanho da área do CROP 4. Copiar os pixels da área de CROP para o BitMap usando a propriedade PIXELS do CANVAS de AMBOS. 5. Salvar o BitMap 6. Liberar o BitMap (eheh) Deve funcionar. Talvez haja coisa pronta em alguma API por aí (li em algum lugar, alguma coisa sobre GDI, mas não tenho certeza). Em 24/01/08, Delphi 2005 - BR <[EMAIL PROTECTED]> escreveu: > > Prezados amigos > > Estou desenvolvendo uma aplicação para estacionamento. > O usuário irá tirar uma foto das vagas. > Depois no sistema ele irá marcar as vagas nesta foto, ou seja, fazer um > retangulo em cima de cada vaga > nesta hora eu vou ter as coordenadas x e y iniciais e finais. > Como faço para pegar através desta coordenadas a vaga que ele desenhou e > jogar para outro image ? > Veja ele pode ter 5 vagas em uma imagem e o sistema deverá gerar cinco > imagens (cada uma das vagas) > da imagem original. -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
Re: [delphi-br] Extrair endereços de emailsl em uma página web
Faça uma procura por qualquer string que inicie por "mailto:"; E termine com um ">". Isso, se o html contiver os emails em formato de link. Para uma lista em modo texto, faça a procura por "@". A partir da posição encontrada, volte até encontrar um delimitador (espaço, <, ou outros [verifique no código html]). Continue para o fim da string, procurando por outro delimitador. Sabendo o início e o fim, é só adicionar nos items do combobox. O código, vc escreve. Em 28/01/08, Draweppe <[EMAIL PROTECTED]> escreveu: > > Olá Srs > > Qual a melhor forma de extrair emails em uma página da web? > > Eu já consigo pegar o código html de uma página que está no webbrowser e > transportar para um memo. > -- > var > iall : IHTMLElement; > > begin > > if Assigned(WebBrowser1.Document) then > begin > iall := (WebBrowser1.Document AS IHTMLDocument2).body; > > while iall.parentElement <> nil do > > begin > iall := iall.parentElement; > end; > memo1.Text := iall.outerHTML; > end; > > -- > > Falta eu poder extrair o(s) email(s) dessa página e transportar, por > exemplo, para um combobox . > > Certo da colaboração, desde já agradeço > -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
