Re: RES: [delphi-br] [OFF] Referente a nova lei...
O software-livre está mudando o mundo... =) Edu Nicácio www.ecnsoft.net - Original Message - From: Leandro To: delphi-br@yahoogrupos.com.br Sent: Tuesday, August 25, 2009 11:19 PM Subject: Re: RES: [delphi-br] [OFF] Referente a nova lei... ta vendo como é necessário uma base pra conseguir interpretar o que o outro amigo disse! 2009/8/25 Ricardo César Cardoso ricardo_engs...@yahoo.com.br Só uma dúvida: você acha software livre uma afronta? Se for isso, tá bem equivocado. Software livre é uma coisa. Querer fazer software de baixa qualidade (e um suposto preço baixo) é totalmente diferente. Meu ponto de vista sobre o software livre é o de uma alternativa a quem não pode (sejam empresas ou usuário finais) ou não tem um orçamento tão alto para investir em software. Quanto tempo demorou para Oracle e Microsoft oferecerem versões gratuitas para seus produtos? Ou até versões com uma instalação e configuração um pouco mais simplificada (MSSQL Compact) []'s 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 ter, 25/8/09, galdariah galdar...@yahoo.com.brgaldariah%40yahoo.com.br escreveu: De: galdariah galdar...@yahoo.com.br galdariah%40yahoo.com.br Assunto: Re: RES: [delphi-br] [OFF] Referente a nova lei... Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Data: Terça-feira, 25 de Agosto de 2009, 22:29 E o Software Livre? de linux a blogs com códigos fontes prontos do tipo compile e venda por 50 reais? Isso sim é uma afronta aos trabalhadores! !! não é silvio programador? __ 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] -- Leandro, MuTukA [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG - www.avg.com Version: 8.5.409 / Virus Database: 270.13.65/2324 - Release Date: 08/24/09 12:55:00 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: VIRUS
Ou pode ser que haja mais alguma coisa por vir... Manja Teoria da Conspiração? Hehehe... Agora, vírus bugado? Deve ter sido feito em VB... =) Abraço. Edu Nicácio www.ecnsoft.net - Original Message - From: Luís Antônio To: delphi-br@yahoogrupos.com.br Sent: Saturday, August 22, 2009 8:31 AM Subject: RES: [delphi-br] Re: VIRUS Bom... no meu caso tive que reinstalar o Delphi ... ele apagou alguns arquivos .dcu . depois voltou ao normal com a reinstalaçao. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Leandro Enviada em: sábado, 22 de agosto de 2009 04:18 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Re: VIRUS sabe oq eu acho? q isso eh markting.. soh pra chamar a atenção! pois o virus nao faz nada e ainda por cima faz um backup rs 2009/8/22 Silvio Clecio silviop...@yahoo.com.br mailto:silvioprog%40yahoo.com.br Em 21/8/2009 15:40, eliflaviob escreveu: Neste link tem informações: http://info.abril.com.br/noticias/seguranca/virus-ataca-desenvolvedores-delp hi-19082009-2.shl http://info.abril.com.br/noticias/seguranca/virus-ataca-desenvolvedores-delp hi-19082009-2.shl Eli Junto com isso: --- Leia também: Sai a versão 2009 do Delphi (02/09/2008) --- Quer ver? Abra o link e observe a esquerda da página. -- Silvio Clecio -- Leandro, MuTukA [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG - www.avg.com Version: 8.5.409 / Virus Database: 270.13.63/2317 - Release Date: 08/21/09 06:04:00 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Programa no tray icon
No próprio JEDI VCL existe um componente (JvTrayIcon) que você poderá utilizar. O menu pode ser um TPopupMenu, da paleta Standard. Crie as funcionalidades que precisa nesse menu, e na propriedade PopupMenu do JvTrayIcon, você passa esse menu. Qual a versão do Delphi está usando? Se não me engano, a partir do Delphi 2006 ele já vem com o TTrayIcon como componente já instalado, pronto para usar. Abraço. Eduardo Nicácio http://www34.brinkster.com/ecnsoft - Original Message - From: Marcos Abreu Ferreira m.abreuferre...@hotmail.com To: lista-del...@yahoogrupos.com.br; delphi-br@yahoogrupos.com.br Sent: Friday, June 05, 2009 4:44 PM Subject: [delphi-br] Programa no tray icon Pessoal, estou querendo fazer um servidor que recebe informações por socket. Ele já está funcionando, mas queria fazer uma alteração nele. No form principal somente informo uma coisas sem muita utilizadade. Queria colocar o sistema somente para rodar minimizado na tray icon e se clicasse sobre o icone com o botao direito do mouse, me aparecesse um menu para abrir 3 possiveis forms de configuração do sistema. Alguém conhece um componente para fazer isso, em especial o menu? Att, Marcos A. Ferreira São Paulo - BrasilMSN: maferre...@hotmail.itgoogle 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. _ More than messages-check out the rest of the Windows LiveT. http://www.microsoft.com/windows/windowslive/ [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM No virus found in this incoming message. Checked by AVG - www.avg.com Version: 8.5.339 / Virus Database: 270.12.52/2153 - Release Date: 06/03/09 18:00:00 -- No virus found in this outgoing message. Checked by AVG - www.avg.com Version: 8.5.339 / Virus Database: 270.12.52/2153 - Release Date: 06/03/09 18:00:00 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Atributos de uma classe
Paulo, basicamente você deverá definir os aributos que sua classe terá, e criar os métodos para ler e gravar esses atributos. Alguns deles podem ser somente leitura, como o atributo Count que temos, por exemplo, em um TStringList. Dá uma pensada, uma analisada de como está sua classe hoje e o que você quer que ela faça. Se tiver alguma dificuldade, me contato em privado. Abraço. Eduardo Nicácio http://www34.brinkster.com/ecnsoft - Original Message - From: Paulo Coutinho To: delphi-br@yahoogrupos.com.br Sent: Tuesday, April 21, 2009 5:04 AM Subject: Re: [delphi-br] Atributos de uma classe Se eu estou postando aqui é porque já procurei e não achei, pois este é um assunto desconhecido por mim, posso então não estar buscando da forma correta. Mas sem problemas, como sempre já achei sozinho mesmo. Não custa nada ajudar. Se for assim ninguém vai ajudar ninguém aqui, pois tudo tem no google :) É só uma questão de boa vontade, assim como respondo a várias perguntas mesmo tendo no google. 2009/4/20 Rubem Nascimento da Rocha djpardalro...@hotmail.com Retificando: é RTTI (Run-Time Type Infomation)! Sds. To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br From: djpardalro...@hotmail.com djpardalrocha%40hotmail.com Date: Mon, 20 Apr 2009 12:06:58 + Subject: RE: [delphi-br] Atributos de uma classe Se, e somente se, os atributos de sua classe estiverem declarados como published, basta usar as rotinas de RTI (Run-Time Type Information) contidas na unit TypInfo. Tem material a botão na Internet mostrando como fazer isso. Quem procura, acha! Boa sorte. Sds. To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br From: pa...@prsolucoes.com paulo%40prsolucoes.com Date: Mon, 20 Apr 2009 00:54:26 -0300 Subject: [delphi-br] Atributos de uma classe Olá galera, Alguém sabe como eu consigo saber os atributos e os valores dos atributos da minha classe. Exemplo: Classe Produto |__ Atributos |Nome |Quantidade |Preco -- Atenciosamente, Paulo Coutinho. Blog: www.prsolucoes.com/blog Site: www.prsolucoes.com Msn: pa...@prsolucoes.com paulo%40prsolucoes.com [As partes desta mensagem que não continham texto foram removidas] __ Emoticons e Winks super diferentes para o Messenger. Baixe agora, é grátis! http://specials.br.msn.com/ilovemessenger/pacotes.aspx [As partes desta mensagem que não continham texto foram removidas] __ Messenger 2009: Instale já! http://download.live.com [As partes desta mensagem que não continham texto foram removidas] -- Atenciosamente, Paulo Coutinho. Blog: www.prsolucoes.com/blog Site: www.prsolucoes.com Msn: pa...@prsolucoes.com [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG - www.avg.com Version: 8.0.238 / Virus Database: 270.12.1/2070 - Release Date: 04/20/09 17:56:00 -- -- No virus found in this outgoing message. Checked by AVG - www.avg.com Version: 8.0.238 / Virus Database: 270.12.1/2070 - Release Date: 04/20/09 17:56:00 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Cartões no Formulário
Olá. Algo parecido com o que você quer saiu em uma edição da Clube Delphi, em que o Adriano Santos mostrava como trabalhar com webcams no Delphi. O código-fonte deve estar disponível no site da revista. Vale a pena dar uma olhada lá. Abraço. Eduardo Nicácio http://www34.brinkster.com/ecnsoft - Original Message - From: Infogil To: delphi-br@yahoogrupos.com.br Sent: Tuesday, April 21, 2009 6:27 PM Subject: [delphi-br] Cartões no Formulário Olá Srs Estou Querendo Construir um formulário que mostre alguns registros de uma tabela de Funcionários, como: fotos, telefone, endereço e etc, como se fosse uns cartões de visita em uma tabela em que cada célula fosse um cartão. Eu poderia criar isso em HTML, mas eu queria em um formulário do Windows mesmo. Alguém poderia me dar uma dica de como fazer isso. Certo da Colaboração desde já agradeço. Gilvan Costa Natal - RN [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG - www.avg.com Version: 8.0.238 / Virus Database: 270.12.1/2070 - Release Date: 04/20/09 17:56:00 -- -- No virus found in this outgoing message. Checked by AVG - www.avg.com Version: 8.0.238 / Virus Database: 270.12.1/2070 - Release Date: 04/20/09 17:56:00 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Criptografia
Eu uso esse pacote aqui: http://www.cityinthesky.co.uk/ (DCPcrypt Cryptographic Component Library v2) E o programinha que fíz é esse aqui: http://www34.brinkster.com/ecnsoft/file_encoder-decoder.asp Fiquem à vontade para estudar, analisar e entender como funciona. Abraços. Edu Nicácio http://www34.brinkster.com/ecnsoft - Original Message - From: Daniel Augusto Bastos To: delphi-br@yahoogrupos.com.br Sent: Thursday, April 09, 2009 12:07 AM Subject: Re: [delphi-br] Criptografia Ahh sim, só lembrei agora. IDEA é um algorítmo de criptografia freeware para aplicativos não comerciais. É sempre bom se atentar para este detalhe :) Abs Daniel Augusto Bastos 2009/4/8 Daniel Augusto Bastos danbas...@gmail.com É um tipo de criptografia que é fácil de ser quebrada por força bruta. Por coicidência, estava procurando sobre criptografia a pouco tempo. Achei este link aqui que me pareceu bem interessânte. http://www.efg2.com/Lab/Library/Delphi/MathFunctions/Cryptography.htm veja a linha da taleba onde está R2, R4, R5, R6. Teoricamente são algorítmos de criptografia RC2, RC4, RC5 e RC6, respectivamente. Digo teoricamente pois não pude testar mais do que o RC2 por falta de tempo, e, também não pude conferir se o resultado é realmente o esperado, mas, os comentários da unit dizem ser. Tem muitos nesta página, então, pelo menos 1 tem que funcionar :) hauahua Abs Daniel Augusto Bastos 2009/4/8 felipe govoni govoni.fel...@gmail.com estou colocando meu codigo aqui, gostaria da opinião de voces sobre a segurança disso. function ValorAsc(Letra: shortstring): Byte; Export; stdcall; begin if Length(letra) 0 then ValorAsc := Ord(Letra[1]) else ValorAsc := 0; end; function cripto(Texto: shortstring) :shortstring; Export; stdcall; var Cont, Cod :Integer; Retorna :wideString; begin for Cont := 1 to Length(texto) do begin Cod := ValorAsc(Copy(texto, Cont, 1)); Retorna := Retorna + Chr(Cod + 57(*valor texto ser adicionado - pode ser modificado*)); end; cripto := Retorna; end; 2009/4/8 Walter Chagas (Bol) wchag...@bol.com.br Não é que cada uma destes padrões de criptografia seja melhor que o outro. Cada uma tem suas próprias características que os diferenciam. O que manda muito na criptografia é o tamanho da chave de codificação. Voce pode ver isto nos sites seguros (Quando aparece o cadeado no rodapé do browser num site https). Quanto maior a chave, maior a segurança do dado pois maior o tempo que esta chave levaria para ser quebrada via força bruta. Atualmente elas estão em 128 ou 256 bits não me lembro bem. 128 é mais seguro que 64 que é mais segura que 32 e por aí vai. procure estudar um pouco sobre criptografia para entender o que é e pra que é usada e como é fundamental a chave de codificação. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br wchagasj%40bol.com.br http://www.geocities.com/SiliconValley/Bay/1058 http://delphitocorporerm.blogspot.com/ MSN: whitesock...@hotmail.com whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: Reginaldo Donizete Felix To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Wednesday, April 08, 2009 10:53 AM Subject: [delphi-br] Criptografia Qual é o melhor algoritimo de criptografia ? IDEA, CAST128, GOST, BLOWFISH, TWOFISH Vou suar para enviar arquivos textos na web e preciso saber qual o melhor para usar na minha aplicação. Obrigado -- Reginaldo D. Felix regife...@hotmail.com regifelix%40hotmail.com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Felipe Govoni - GOVONI Sistemas Fone 8472-8718 www.govoni.com.br [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG - www.avg.com Version: 8.0.238 / Virus Database: 270.11.42/2042 - Release Date: 04/05/09 10:54:00 -- -- No virus found in this outgoing message. Checked by AVG - www.avg.com Version: 8.0.238 / Virus Database: 270.11.42/2042 - Release Date: 04/05/09 10:54:00 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Somar horas, minutos e segundos em now()
Inclua a unit DateUtils no seu programa e use os métodos: IncMinute() IncSecond() Ex: DataAtual := Now; IncMinute(DataAtual,3); IncSecond(DataAtual,25); Para incrementar uma data, use valores positivos. Para decrementar, use valores negativos. Fácil assim! Aproveite e dê uma olhada em outros métodos disponíveis nessa Unit. Abraço. Edu Nicácio http://www34.brinkster.com/ecnsoft - Original Message - From: Roberto To: delphi-br@yahoogrupos.com.br Sent: Thursday, April 02, 2009 3:52 PM Subject: RES: [delphi-br] Somar horas, minutos e segundos em now() Luiz, obrigado, somente to necessitando somar, é para um temporizador do tipo rele assim Ligar rele as 22:53 durante 1h23m transcorrido este tempo desliga rele, Acontece que já fiz isto trezentas vezes, mais hoje to cum branco na memória e se me permite a franqueza um pouco de preguiça. Pode? Roberto Se não me engano tem uma função pra isso, mas não lembro, mas na pior das hipóteses, transforma tudo em segundos soma e volta pra hh:mm:ss Lembre-se se passar de 23:59:59, deve-se voltar para 00:xx:xx e aumentar +1 na data, no caso de estar trabalhando com data também... ou manter o valor de horas mesmo tipo 50h23m44s ou 2 dias 02h23m44s ai vai depender da necessidade... []s Luiz Escobar From: Roberto Sent: Thursday, April 02, 2009 3:33 PM To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Subject: [delphi-br] Somar horas, minutos e segundos em now() procedure TForm1.Button1Click(Sender: TObject); var Tempo : TTime; Begin // Necessito somar now() + 3 minutos e 25 segundos . COMO FAÇO ISSO? POR FAVOR Tempo := Now( ) + 2h3m:25s; label2.Caption := TimetoStr(tempo); end; Roberto [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG - www.avg.com Version: 8.0.238 / Virus Database: 270.11.35/2033 - Release Date: 03/31/09 13:05:00 -- -- No virus found in this outgoing message. Checked by AVG - www.avg.com Version: 8.0.238 / Virus Database: 270.11.35/2033 - Release Date: 03/31/09 13:05:00 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] certificado
Essa certificação digital você pode conseguir com as agências certificadores autorizadas pelo Governo Federal. A VerySign e a CertiSign fazem esse serviço. Abraço. Edu Nicácio http://www34.brinkster.com/ecnsoft - Original Message - From: Cleiton Maciel - Yahoo To: Delphi-Br Sent: Tuesday, March 31, 2009 8:37 AM Subject: [delphi-br] certificado Bom dia for all! Galera to usando a versão NF-e para testes, pra conhecer o programa e passar pro meu cliente. Validou todos registro, mas para assinar precisa de um CERTIFICADO que não possuo. Alguém pode me informar onde consigo esse certificado pra versão teste de nf-e? entrei no site www.iti.gov.br e não vi nada relacionado a versão teste. Algum parceiro pode passar a dica? Abraços. [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG - www.avg.com Version: 8.0.238 / Virus Database: 270.11.33/2031 - Release Date: 03/30/09 17:56:00 -- -- No virus found in this outgoing message. Checked by AVG - www.avg.com Version: 8.0.238 / Virus Database: 270.11.33/2031 - Release Date: 03/30/09 17:56:00 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] DBGRID + JEDI + 2 linhas
Isso aconteceu comigo ontem, mas quem me informou foi o Firefox. Ele simplesmente impediu que eu acessasse essa página. Parece que o servidor foi infectado nos últimos 90 dias. Não sei como está hoje. Abraço. Edu Nicácio http://www34.brinkster.com/ecnsoft - Original Message - From: Ricardo César Cardoso To: delphi-br@yahoogrupos.com.br Sent: Monday, March 30, 2009 10:54 PM Subject: Re: [delphi-br] DBGRID + JEDI + 2 linhas Fui acessar essa página aqui e tanto o AVG quanto o Norton fizeram o maior auê indicando que tinha um trojan/worm nessa página... Dá pra confiar? Atte, Ricardo. Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! --- Em seg, 30/3/09, Daniel Augusto Bastos danbas...@gmail.com escreveu: De: Daniel Augusto Bastos danbas...@gmail.com Assunto: Re: [delphi-br] DBGRID + JEDI + 2 linhas Para: delphi-br@yahoogrupos.com.br Data: Segunda-feira, 30 de Março de 2009, 14:11 Que eu conheça, não tem essa opção na Jedi. Na verdade não sei se existe algum componente que faça o que vc necessita. Quando preciso desenvolver alguma coisa com um grid que fuja muito do padrão, atualmente to usando o componente KGrid ( http://www.tkweb. eu/en/delphicomp /kgrid.html) Mas ai vc faz as coisas na mão mesmo. Abs Daniel Augusto Bastos 2009/3/29 Tatu t...@nsr.com. br Boa tarde. Com o componente jedi tenho dentro dentro de uma grid a opção de ter 2 linhas por registro ?. Nos demo e propriedade não ache nada nesse sentido. Um detalhe, de preferência não quero sair do jedi para esta opção, porem se não tem outro jeito...paciê ncia.. Santiago NSR Informática. [As partes desta mensagem que não continham texto foram removidas] - - -- -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas] 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] -- No virus found in this incoming message. Checked by AVG - www.avg.com Version: 8.0.238 / Virus Database: 270.11.33/2031 - Release Date: 03/30/09 17:56:00 -- -- No virus found in this outgoing message. Checked by AVG - www.avg.com Version: 8.0.238 / Virus Database: 270.11.33/2031 - Release Date: 03/30/09 17:56:00 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Trabalhar com Muitos Labels
Você terá que fazer um loop mais ou menos assim: //Para cada componente do formulário for i:= 0 to Form1.ComponentCount -1 do //Se for do tipo TLabel if Form1.Component[i] is TLabel then begin //Atribui ao Caption do Label a string armazenada no Banco de Dados Form1.Component[i].Caption := TblTabelaValor.String; //Move a tabela para o próximo registro TblTabelaValor.MoveNext; end; Espero ter ajudado. Abraço. Edu Nicácio http://www34.brinkster.com/ecnsoft - Original Message - From: Joao Henrique Levada To: delphi-br@yahoogrupos.com.br Sent: Saturday, March 28, 2009 3:38 PM Subject: [delphi-br] Re: Trabalhar com Muitos Labels Meu caro, um TLabel, comum, não tem uma lista de labels dentro dele. Ele é único e deve ser acessado pelo seu nome: Label1.Caption... Se tiver outros 35 labels... terá de fazer Label2.Caption, Label3.Caption... e assim por diante. -- No virus found in this incoming message. Checked by AVG - www.avg.com Version: 8.0.238 / Virus Database: 270.11.30/2025 - Release Date: 03/26/09 20:05:00 -- -- No virus found in this outgoing message. Checked by AVG - www.avg.com Version: 8.0.238 / Virus Database: 270.11.30/2025 - Release Date: 03/26/09 20:05:00 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Arquivos de Ajuda
Arquivos html puros, com Javascipt, executados em um form com um panel, um button (fechar) e um TWebBrowser. Dessa forma também disponibilizo online. Abraço Edu Nicácio http://www34.brinkster.com/ecnsoft - Original Message - From: Luciano Calenzani Simões To: delphi-br@yahoogrupos.com.br Sent: Wednesday, March 25, 2009 8:07 AM Subject: [delphi-br] Arquivos de Ajuda Quais tecnologias vocês estão usando para fazer o help de suas aplicações? Luciano Calenzani Simões Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG - www.avg.com Version: 8.0.238 / Virus Database: 270.11.27/2021 - Release Date: 03/24/09 16:00:00 -- -- No virus found in this outgoing message. Checked by AVG - www.avg.com Version: 8.0.238 / Virus Database: 270.11.30/2025 - Release Date: 03/26/09 20:05:00 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] [MAF] Executar e fechar aplicativo
Dá sim. Para executar, no evento OnCreate do seu formulário principal, chame o método ShellExecute() da API do Windows (declare a unit ShellAPI no uses). Para encerrar esta aplicação quando você fechar seu programa, dê uma olhada nessas duas dicas (pelo Caption do programa, ou pelo nome do executável): http://www.linhadecodigo.com.br/Dica.aspx?id=690 Espero ter ajudado. Abraço Edu Nicácio http://www34.brinkster.com/ecnsoft - Original Message - From: Marcos Abreu Ferreira To: delphi-br@yahoogrupos.com.br ; lista-del...@yahoogrupos.com.br Sent: Tuesday, March 17, 2009 9:30 AM Subject: [delphi-br] [MAF] Executar e fechar aplicativo Pessoal, tenho uma aplicação que depende de outra estar rodando também. Já descobri como fazer para saber se a outra aplicação está funcionando ou não. Agora gostaria de saber se é possível executar essa segunda aplicação automaticamente quando eu abrir o meu aplicativo e fechar essa aplicação quando eu sair da minha. Att, Marcos A. Ferreira São Paulo - BrasilMSN: maferre...@hotmail.itgoogle 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. __ Show them the way! Add maps and directions to your party invites. http://www.microsoft.com/windows/windowslive/products/events.aspx [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG - www.avg.com Version: 8.0.238 / Virus Database: 270.11.22/2015 - Release Date: 03/20/09 19:01:00 -- -- No virus found in this outgoing message. Checked by AVG - www.avg.com Version: 8.0.238 / Virus Database: 270.11.24/2017 - Release Date: 03/22/09 17:51:00 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Resolução do monitor
Já tentou ajustar as propriedades Anchors do seus componentes? Setando corretamente as quatro propriedades, você (e seus usuários) poderá rodar o software em qualquer resolução. Abraço. Edu Nicácio http://www34.brinkster.com/ecnsoft - Original Message - From: Alexandre To: delphi-br@yahoogrupos.com.br Sent: Wednesday, March 18, 2009 9:40 AM Subject: Re: [delphi-br] Resolução do monitor Já procurei tudo o que você imaginar, o problema é que nenhum exemplo resolveu meu problema, em todos os exemplos meus componentes não ficavam corretamente na tela. Alex - Original Message - From: Alexandre Rodrigues To: delphi-br@yahoogrupos.com.br Sent: Tuesday, March 17, 2009 1:20 PM Subject: Re: [delphi-br] Resolução do monitor Cara, vai no google e digita: delphi resolução O segundo link vai te levar para uma mensagem antiga da lista que mostra como fazer isso. E como diz uma amigo coloca nosso, quem procura acha Alexandre escreveu: Pessoal alguem pode me ajudar a configurar meu programa para uma determinada resolução?fiz meu programa para o padrão 800X600 mas alguns clientes querem que o programa execute em 1024x800 em tela cheia, tem alguma forma de fazer o programa autodimensionar a tela e os componentes de acordo com a resolução da tela??? Alex [As partes desta mensagem que não continham texto foram removidas] __ Information from ESET NOD32 Antivirus, version of virus signature database 3939 (20090316) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG - www.avg.com Version: 8.0.238 / Virus Database: 270.11.22/2015 - Release Date: 03/20/09 19:01:00 -- -- No virus found in this outgoing message. Checked by AVG - www.avg.com Version: 8.0.238 / Virus Database: 270.11.24/2017 - Release Date: 03/22/09 17:51:00 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] alguém sabe como compactar arquivos contidos em uma pasta? algum componente?
Se quiser fazer isso com o WinRAR sem aparecer a janela, use o esquema abaixo: ShellExecute(HANDLE,'Open','winrar.exe','parametros','diretorio',SW_HIDE); Não esqueça de incluir a unit ShellAPI no uses da sua classe. Se quiser construir algo personalizado, dá uma estudada na biblioteca Zlib e nos componentes OnGuard. Abraço. Edu Nicácio http://www34.brinkster.com/ecnsoft - Original Message - From: guimaraesrodrigo23 To: delphi-br@yahoogrupos.com.br Sent: Wednesday, March 18, 2009 2:21 PM Subject: [delphi-br] alguém sabe como compactar arquivos contidos em uma pasta? algum componente? alguém sabe como compactar arquivos contidos em uma pasta? terei uma pasta com todos os arquivos com extensao .jpg quero compactar todos eles em um unico arquivo e COM SENHA. detalhe: fiz isso usando os comandos do winrar, mas ele fica aparecendo aquela janela do dos, portanto não serve. se alguém puder ajudar. abraço -- No virus found in this incoming message. Checked by AVG - www.avg.com Version: 8.0.238 / Virus Database: 270.11.22/2015 - Release Date: 03/20/09 19:01:00 -- -- No virus found in this outgoing message. Checked by AVG - www.avg.com Version: 8.0.238 / Virus Database: 270.11.24/2017 - Release Date: 03/22/09 17:51:00 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Form principal da aplicação aparec er minimizado na barra de tarefas.
Puts Walter, como faz tempo, acho que você já deve ter achado a solução, mas em todo caso, faça o seguinte: Adicione um TTrayIcon ao seu formulário Defina sua propriedade Visible como true Rode sua aplicação. Verá que independente do estado do form principal, o TrayIcon da aplicação sempre aparece ao lado do relógio. Para incrementar, adicione um TPopupMenu, programe alguns itens (minimizar, restaurar, fechar, ajuda, etc) e vai ficar show! Espero ter ajudado. Abraço. Edu Nicácio http://www34.brinkster.com/ecnsoft - Original Message - From: Walter Chagas (Bol) To: lista-del...@yahoogrupos.com.br ; Grupo Delphi-BR Sent: Monday, March 16, 2009 11:51 PM Subject: [delphi-br] Form principal da aplicação aparecer minimizado na barra de tarefas. Boa noite pessoal, Num projeto aqui, temos o form principal que ao ser exibido ele fica aberto na tela. Porém, eu abri o Autocad aqui e ele, além de exibir a tela principal, exibe ela minimizada na barra de tarefas simultaneamente (Não precisa que o usuário clique no botão minimizar pra isto). Fica então a tela principal aberta no desktop e o icone minimizado na barra de tarefas. Qual propriedade no form eu mexo pra que meu projeto faça isto? Veja bem. Não to querendo minimizar aplicação no trayicon ao lado do relogio. Não é isto que estou pedindo. Agradeço, desde já, a qualquer ajuda que me for dada []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 [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG - www.avg.com Version: 8.0.238 / Virus Database: 270.11.22/2015 - Release Date: 03/20/09 19:01:00 -- -- No virus found in this outgoing message. Checked by AVG - www.avg.com Version: 8.0.238 / Virus Database: 270.11.24/2017 - Release Date: 03/22/09 17:51:00 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Gpedit.msc com delphi
Acho que já responderam, mas tem um utilitário na Web, cujo nome agora eu não me recordo, que monitora o Registry do Windows (o Spybot Search Destroy também faz isso), e mostra exatamente qual(is) chave(s) foi(ram) alterada(s) após a execução de um programa, por exemplo. Acho que vale a pena verificar isso. Abraço. Eduardo C. Nicácio Analista de Sistemas - Original Message - From: Maycon Sanches Amaro To: delphi-br@yahoogrupos.com.br Sent: Friday, March 06, 2009 12:00 PM Subject: [delphi-br] Gpedit.msc com delphi Pessoal alguem sabe como eu coloco regras no gpedit.msc pelo delphi? Primeiramente preciso bloquear o papel de parede, desativando as configuracoes de video ta blz mas o usuario ainda consegue alterar clicando com o botao direito em cima de uma imagem e clicando em 'definir como plano de fundo'. Quando eu coloco a regra pelo gpedit ele bloqueia tudo, fica blzinha. -- Maycon Sanches Amaro -- No virus found in this incoming message. Checked by AVG - www.avg.com Version: 8.0.237 / Virus Database: 270.11.8/1985 - Release Date: 03/05/09 07:54:00 -- -- No virus found in this outgoing message. Checked by AVG - www.avg.com Version: 8.0.237 / Virus Database: 270.11.8/1985 - Release Date: 03/05/09 07:54:00 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Aplicativo tipo MSN
Você pode usar dois componentes da suíte Jedi para isso: o JvTrayIcon e o JvDesktopAlert. Dê uma pesquisada pois ambos são fáceis de se utilizar. Abraço. Eduardo C. Nicácio - Original Message - From: Emerson To: delphi-br@yahoogrupos.com.br Sent: Tuesday, July 29, 2008 7:40 PM Subject: Re: [delphi-br] Aplicativo tipo MSN Pesquise por TMsn, eu uso é funciona muito bem. - Original Message - From: HNS Informática To: Delphi Br Sent: Tuesday, July 29, 2008 3:56 PM Subject: [delphi-br] Aplicativo tipo MSN Alguém sabe me dizer se existe algum componente que faz com que a aplicação Delphi (Delphi5) minimize na tela no canto inferior direito, tipo MSN, e que abra janelinha de mensagens pequena embaixo tipo como no msn quando alguém entra online? para fazer propaganda de produtos, etc? abraços Charles A. Chiodi [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] No virus found in this incoming message. Checked by AVG - http://www.avg.com Version: 8.0.138 / Virus Database: 270.5.7/1580 - Release Date: 29/7/2008 17:26 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda com Importação de dados em TXT
Existe uma forma mais fácil de fazer a importação desses dados. Dê uma procurada na ajuda do Delphi pela função ExtractStrings(). Ela faz exatamente o que você precisa. Não lembro qual banco de dados você usa, mas já pensou em criar uma Stored Procedure que faça essa importação? Abraço. Eduardo C. Nicácio Analista de Sistemas - Original Message - From: itasouza To: delphi-br@yahoogrupos.com.br Sent: Sunday, June 22, 2008 10:49 AM Subject: [delphi-br] Ajuda com Importação de dados em TXT Importação e exportação de dados em TXT Bom dia.. Conseguir contar os espaços deu certo a inserção dos dados, mais só gravou a primeira linha, debugei o código e não encontrei problemas, verifiquei que estava usando o comando Next; não gerava erro mais só gravava a primeira linha, substituir por Readln e agora gera o erro: Project SysSam.exe raised exception class EInOutError with message 'I/O error 6'. Process stopped. Use Step or Run to continue. Como usar o comando POS ou Readln, para que grave todas as linhas? Layout de importação: 3351781;MARIA DA PENHA CAUS;69601640797;055;021;46671479;015;46687415;013;48879253; 3351781;MARIA DA PENHA CAUS;69601640797;055;021;46671479;015;46687415;013;48879253; 3351781;MARIA DA PENHA CAUS;69601640797;055;021;46671479;015;46687415;013;48879253; 3351781;MARIA DA PENHA CAUS;69601640797;055;021;46671479;015;46687415;013;48879253; Código com os espaços corretos: while not Eof(fArq) do //Enquanto não chegar ao fim do arquivo begin Application.ProcessMessages; Readln(farq, linha); //Lê a linha e posiciona o cursor na próxima frmImportacao.Caption := 'Lendo Linha: ' + IntToStr(i) + ' de: ' + IntToStr(ProgressBar1.Max); //Buscando pelo Parâmetro codigo, para verificar se já existe na tabela //DM.cdsImportacao.Params.ParamByName('codigo').asString := Trim (Copy(Linha, 1, 8)); DM.cdsImportacao.Open; //Abre o CDS // if DM.cdsImportacao.IsEmpty then //Se Não existir o registro DM.cdsImportacao.Append //Insira os dados da linha atual else //Senão, se o registro já existir DM.cdsImportacao.Edit; //Coloca em modo de edição para atualizar os campos //Aqui os campos recebem as linhas lidas DM.cdsImportacaocod_integracao.AsString :=Trim(Copy(Linha, 1, 7 )); DM.cdsImportacaonome.AsString :=Trim(Copy(Linha, 9, 19 )); DM.cdsImportacaocontato.AsString :=Trim(Copy(Linha, 31, 9 )); DM.cdsImportacaoddi.AsString :=Trim(Copy(Linha, 41, 3 )); DM.cdsImportacaoddd.AsString :=Trim(Copy(Linha, 45, 3 )); DM.cdsImportacaofone.AsString :=Trim(Copy(Linha, 49, 8 )); DM.cdsImportacaoddd_2.AsString :=Trim(Copy(Linha, 58, 3 )); DM.cdsImportacaofone_2.AsString :=Trim(Copy(Linha, 62, 8 )); DM.cdsImportacaoddd_3.AsString :=Trim(Copy(Linha, 71, 3 )); DM.cdsImportacaofone_3.AsString :=Trim(Copy(Linha, 75, 8 )); DM.cdsImportacao.Post; //Salve o registro em memória DM.cdsImportacao.ApplyUpdates(0); //Aplica as atualizações em memória no banco DM.cdsImportacao.Close; //Fecha o CDS } Inc(i); ProgressBar1.Position := ProgressBar1.Position + 1; Next; end; Agradeço a ajuda -- No virus found in this incoming message. Checked by AVG. Version: 8.0.100 / Virus Database: 270.4.1/1514 - Release Date: 23/6/2008 07:17 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Como saber quanto tempo
Uma dica: use FPA (análise por ponto de função). Se quiser material para estudo, me contate em privado. Abraço. Atenciosamente: Eduardo Cláudio Nicácio Analista de Sistemas Pleno CTIS Tecnologia S/A Tel.: (11) 3150-6233 [EMAIL PROTECTED] - Original Message - From: Vinicius Santos - MSI To: delphi-br@yahoogrupos.com.br Sent: Wednesday, February 27, 2008 1:02 PM Subject: Re: [delphi-br] Como saber quanto tempo Mario, para ser sincero, eu não cobraria por hora e sim pelo produto final. Coloque as cartas na mesa, quantos usuários irão usar o programa ? treinamento ? bugs certamente vão aparecer depois de um tempo ! Leve em considerção o tamanho da empresa(cliente). É difícil falar, um programa pode ser mais caro simplismente por ser mais rápido ou por ser mais fácil(lembre-se diferencial !), é isso que o mercado pede... Vinicius dos Santos Analista de Desenvolvimento Júnior MSI SOLUÇÕES Av. Dr. Altino Arantes, 131 Sala 145 - 146 Centro - Ourinhos/Sp - Brasil Fone/Fax: +55 (14) 3324-8181 www.msisolucoes.com.br - Original Message - From: Mario Rodrigues To: delphi-br@yahoogrupos.com.br Sent: Wednesday, February 27, 2008 12:54 PM Subject: Re: [delphi-br] Como saber quanto tempo Vinicius, Valeu...pelas dicas...sobre o tempo...cara como disse...são...10 Tbl's...9Forms (incluindo o menu inicial)e que terá uns 15 relatorios...entre graficos e listagens...vo ser sincero...nao acho q va demorar mais que 15hs(pois ja tenho os form's mais ou menos prontos e os relatorios tbmas dai multiplicando 15*18=270..por um sistema?tu achas q ta certo? ou é o meu valor por hora q ta errado? 2008/2/27 Vinicius Santos - MSI [EMAIL PROTECTED]: Cara, essa é sempre uma questão muito delicada ! Quanto cobrar por um trabalho ? seja ele qual for... Vc tem que ver sua experiência, o resultado final, vc considera o seu sistema de qualidade acima da encontrada no mercado ? seu produto tem algum diferencial ? vc como profissional tem algum diferencial ? Cobre mais se vc sabe e garante mais !! Quanto ao tempo de desenvolvimento é muito difícil falar, vai depender da sua experiência com Delphi, quais componentes vc irá usar, e a complexidade da aplicação... Vinicius dos Santos Analista de Desenvolvimento Júnior MSI SOLUÇÕES Av. Dr. Altino Arantes, 131 Sala 145 - 146 Centro - Ourinhos/Sp - Brasil Fone/Fax: +55 (14) 3324-8181 www.msisolucoes.com.br - Original Message - From: Mario Rodrigues To: delphi-br@yahoogrupos.com.br Sent: Wednesday, February 27, 2008 12:36 PM Subject: [delphi-br] Como saber quanto tempo Srs, Preciso de uma ajuda dos experientes amigos Tenho uma duvida...como saber o tempo para o desenvolvimento de um sistema? Por exemplo um sistema com 10 Tbl's...9Forms (incluindo o menu inicial)e que terá uns 15 relatorios...entre graficos e listagens... E gostaria de saber tb a opiniao dos srs sobre o valor a ser cobrado! O calculo que faço é o seguinte pego o salario(R$2200,00)...divido pea quantidade de horas mesais((6h/dia*5dias)*4semanas)...ou seja 2200/120=18,...arredondando R$18,00por hora...é justo? [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Form Diferente
Olá Ghuilherme, tudo bem?! Cara, uma solução que uso há tempos e nunca me trouxe problemas foi criar uma imagem bitmap com a parte externa do contorno que você quer (no caso um caminhão) em uma cor sólida, como magenta ou verde claro. Depois, dentro das propriedades desse form, no Delphi, sete a cor de transparência para a mesma cor que você utilizou ao criar a imagem. Remova as bordas do form (setar como none) e voilá! Seu form com um desenho de caminhão está pronto!!! Nota: tem que ser imagem BMP pois o JPG usa compressão e a cor sólida (por exemplo, fúcsia) acaba virando um monte de meios tons da cor original... Abraço. Atenciosamente: Eduardo Cláudio Nicácio Analista de Sistemas Pleno CTIS Tecnologia S/A Tel.: (11) 3150-6233 [EMAIL PROTECTED] - Original Message - From: Guilherme Alves To: [EMAIL PROTECTED] ; delphi-br@yahoogrupos.com.br Sent: Wednesday, February 13, 2008 4:41 PM Subject: [delphi-br] Form Diferente Oi galera, Eu estou fazendo um sistema e gostaria de fazer um form de login diferente.. por exemplo... eu já vi form ser arrendondado e quadrado. Gostaria de fazer um form parecido com um carro ou caminhão, algo que lembre transportadora.. algo do tipo.. Existe isso? Eu sei que vai ficar bem estranho... mas gostaria de saber se isso existe Obrigado, Guilherme - 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] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Executar exe como se fosse atalho
Procure no Help do Delphi pelas rotinas ShellExecute() e ShellExecuteEx(). Um dos parâmetros passados é justamente o diretório de início do arquivo que você está abrindo. Qualquer coisa dá um grito aí. Abraço. Atenciosamente: Eduardo Cláudio Nicácio Analista de Sistemas Pleno CTIS Tecnologia S/A Tel.: (11) 3150-6839 [EMAIL PROTECTED] - Original Message - From: edersonecris To: delphi-br@yahoogrupos.com.br Sent: Monday, November 12, 2007 4:09 PM Subject: [delphi-br] Executar exe como se fosse atalho Boa Tarde Pessoal estou com um grande problema aqui. Estou precisando executar um EXE externo ao meu de um programa de terceiros. Só que para fazer isso eu preciso executar ele como se tivesse clicado no atalho dele (atalhos tem a propriedade iniciar em:). Tem como eu definir esta propriedade através de programação? Atualmente estou fazendo assim : winexec('c:\projetos\Menu.exe', SW_ShowNormal); Mas desse jeito o exe externo da erro. Se eu clico diretamente em cima do exe da erro tb. tem que ser por atalho. Se alguém puder me ajudar agradeço imensamente. Ou se alguém souber como eu executo um atalho através do meu programa tb irá ajudar, ai eu faço uma gabiarra. VLW -- Éderson Cassiano Bologna [EMAIL PROTECTED] sKYPE: edersoncassiano MSN: [EMAIL PROTECTED] www.microtechshop.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Função para PARAR e INICIAR Serviço do MySql
Puts, tem certeza que você não sabe? Deu uma pesquisada antes?? Pode tentar o seguinte: //para iniciar o MySQL ShellExecute(0,'open','net.exe','start MySQL',nil,SW_HIDE); //para parar o MySQL ShellExecute(0,'open','net.exe','stop MySQL',nil,SW_HIDE); Condição: o MySQL deve estar instalado como serviço. Abraço. Atenciosamente: Eduardo Cláudio Nicácio Analista de Sistemas Pleno CTIS Tecnologia S/A Tel.: (11) 3150-6839 [EMAIL PROTECTED] - Original Message - From: Jorge Ericsson Sent: Monday, November 12, 2007 9:41 PM Subject: [delphi-br] Função para PARAR e INICIAR Serviço do MySql Olá pessoal, Alguém sabe ou usa uma função para PARAR e/ou INICIAR o serviço do MySql ? Valew... -- Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3965.2992 / 3039.1768 Brasília - DF [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Criação de Atalho
Pelo ISTool é ainda mais fácil: Na seção Ícones, quando estiver criando um novo atalho, coloque o caminho do diretório do executável em Executar em. Após compilar o instalador, verifique os atalhos corretamente configurados. Abraço. Atenciosamente: Eduardo Cláudio Nicácio Analista de Sistemas Pleno CTIS Tecnologia S/A Tel.: (11) 3150-6839 [EMAIL PROTECTED] - Original Message - From: Daniel Bastos To: delphi-br@yahoogrupos.com.br Sent: Tuesday, November 13, 2007 10:05 AM Subject: Re: [delphi-br] Criação de Atalho Pena que eu não sabia disso a alguns anos atraz :,) Em 13/11/07, Alexandre Rodrigues [EMAIL PROTECTED] escreveu: Não precisa criar um segundo executável para isso é só adicionar a tag WorkingDir: 'caminho' na declaração do ícone. Segue exemplo abaixo. [Icons] Name: {commondesktop}\'Nome Icone'; Filename: {app}\programa.exe; IconFilename: {app}\programa.exe; WorkingDir: {app}; Tasks: desktopicon; IconIndex: 0 Daniel Bastos escreveu: Tive o mesmo problema em um executável no qual foi criado uma instalação com o inno setup. Mas justamente por causa que o inno não criava o atalho com o parametro Iniciar em. O mais estranho, é que nem neste caso, o ExtractFilePath deu certo. A forma que eu resolvi foi criar um segundo executável, para recriar os atalhos que era executado no final da instalação do inno setup. Mas particularmente não sei se o inno continua com o mesmo problema .. pois isso já faz uns 3 anos que aconteceu Em 09/11/07, Alexandre Rodrigues [EMAIL PROTECTED]alexandre_rodrigues_poa%40yahoo.com.br mailto:alexandre_rodrigues_poa%40yahoo.com.br escreveu: Já passei por isso é uma questão configuração que está errada, você utiliza o InnoSetup/IsTool? Ricardo César Cardoso escreveu: Bom dia Amigos! Desenvolvi uma aplicação onde guardo alguns parâmetros em arquivos INI, inclusive o caminho do banco de dados que a aplicação usa.Montei um arquivo de instalação para este software e até ai tudo normal. Coloquei na antes da criação do form e conexão com o banco de dados uma rotina que verifica onde está o arquivo de inicialização, e ao encontrá-lo, o software pega os parâmetros iniciais como idioma a utilizar e caminho da base de dados (nesse caso o mesmo do arquivo executável). Caso não encontre, cria este arquivo com algumas configurações padrão. O problema ocorre quando vou executar o software pelo atalho criado no Desktop. Nesse caso não sei porque, mas o programa não encontra os parâmetros iniciais e tenta criar o arquivo com esses parâmetros no próprio desktop, mesmo existindo o arquivo de inicialização na pasta do software. É como se o Windows ignorasse a existência dessa pasta e usasse a pasta onde está o atalho. Agora se vou até a pasta do software e crio o atalho manualmente, tudo funciona perfeitamente. O que devo fazer? Grato, Ricardo. - 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] ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/ http://br.yahoo.com/mailbeta/tudonovo/ [As partes desta mensagem que não continham texto foram removidas] ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] FileExists - Case Insentive
Se não estou enganado essa característica é do próprio Windows. Li em algum lugar que algumas funções do Delphi fazem distinções entre maiúsculas e minúsculas, mas não lembro ao certo sobre qual assunto estava tratando. Em todo caso, dê uma procurada no Help do Delphi por case insensitive ou not case sensitive. Deve haver alguma coisa. Abraço. Atenciosamente: Eduardo Cláudio Nicácio Analista de Sistemas Pleno CTIS Tecnologia S/A Tel.: (11) 3150-6839 [EMAIL PROTECTED] - Original Message - From: Maria das Graças . To: delphi-br@yahoogrupos.com.br Sent: Tuesday, November 13, 2007 10:28 AM Subject: Re: [delphi-br] FileExists - Case Insentive if FileExists(PCHAR('ArQuiVo.dbf')) then else ShowMessage('Arquivo não encontrado!'); Graça Vandinei Santos [EMAIL PROTECTED] escreveu: Bom dia, Delphianos! Estou tendo problema em testar a existência de arquivos num diretório, devido ao tipo de letra (maiúscula ou minúscula) que o nome dele possa estar escrito. Exemplo: Nome do arquivo: Arquivo.dbf if FileExists('ArQuiVo.dbf') then else ShowMessage('Arquivo não encontrado!'); // Arquivo não encontrado por causa do Q e V (maiúsculos) Sei que poderia usar o função UpperCase() ou LowerCase() para converter todo o nome para maiúscula ou minúscula, mas eu teria que mudar o nome de todos arquivos e não quero fazer isso porque estou trabalhando com arquivos gerados por outro sistema. Pergunto: existe alguma diretiva que torne a função FileExist, case insensitive? Desde já eu agradeço a ajuda. Um abraço. Vandinei A. Santos Analista Programador em Delphi [As partes desta mensagem que não continham texto foram removidas] - 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] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Espelhar imagens
Se não estiver usando algum componente de terceiros, sugiro que você faça a cópia pixel a pixel da imagem de origem para a de destino, porém, posicionando os pixels de acordo com o tipo de espelhamento: - Espelhar na horizontal: inverter os pixels de x a n - Espelhar na vertical: inverter os pixels de y a n. Exemplo: for i := 1 to img1.width do for j := img2.width downto 1 do img2.pixel[j] := img1.pixel[i]; Acredito que é por aí. Poste o resultado depois, ok? Abraço. Atenciosamente: Eduardo Cláudio Nicácio Analista de Sistemas Pleno CTIS Tecnologia S/A Tel.: (11) 3150-6839 [EMAIL PROTECTED] - Original Message - From: Alessandro Magno To: delphi-br@yahoogrupos.com.br Sent: Wednesday, October 17, 2007 4:15 PM Subject: [delphi-br] Espelhar imagens Galera, Preciso saber se no delphi tem jeito de Espelhar um Timage alguém tem alguma dica??? Até Java Script faz isso, mas já procurei na net e não encontrei nada para Delphi. Atenciosamente, Alessandro Magno [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [Bulk] Re: [delphi-br] [MAF] Apostila programacao em redes
Acredito que antes de construir um sistema confiável, e utilizar um banco de dados confiável, é adquirir um servidor confiável! De nada adianta você gastar semanas tornando sua aplicação tolerante a falhas se o hardware onde ela vai rodar é capenga! Hoje você encontra boas opções de servidores por menos de R$ 10 mil. Analise juntamente com seu cliente as necessidades de hardware, e boa compra. Atenciosamente: Eduardo Cláudio Nicácio Analista de Sistemas Pleno CTIS Tecnologia S/A Tel.: (11) 3150-6839 [EMAIL PROTECTED] - Original Message - From: Marcos Abreu Ferreira To: delphi-br@yahoogrupos.com.br Sent: Monday, October 15, 2007 10:53 AM Subject: [Bulk] Re: [delphi-br] [MAF] Apostila programacao em redes Pois é, e como o banco de dados vai conter movimentacao financeira, é de extrema importancia que o banco de dados seja confiável. Alguem na lista trabalha com PostGre? Att, Marcos Abreu Ferreira From: Eduardo Silva dos Santos Sent: Monday, October 15, 2007 9:39 AM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] [MAF] Apostila programacao em redes Olá Marcos, rapaz.. nem pense em usar access para armazenar dados em um sistema que vai rodar em rede, isso vai te dar uma dor de cabeça danada. uma opção simples de instalar é o FireBird, mas lembre-se de avisar ao cliente para fazer backup todo dia, porque infelizmente frequentemente acontece casos onde o banco de dados acaba sendo corrompido por N monivos. Em 15/10/07, Marcos Abreu Ferreira [EMAIL PROTECTED] escreveu: Pessoal, Até hoje as minhas experiências com Delphi somente se limitaram a desenvolver alguns sistemas sem banco de dados e dois sistemas monousuário. Recentemente um cliente me pediu para desenvolver uma aplicação relativamente simples, mas que deveria rodar em rede. Minha idéia é desenvolver em Delphi 7 com o Access, mas nunca fiz uma programação em rede, alguém teria alguma apostila ou poderia me dar algumas dicas básicas do conceito de se travar registro, quando devo travar, etc. e tal... A instalação e configuração do Firefox ou Postgre são complicadas para o usuário final fazer sozinho? Ou daria para automatizar isso? Att, Marcos Abreu Ferreira São Paulo - SP +55 1172289827 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. [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ ... [As partes desta mensagem que não continham texto foram removidas] Mensagens neste tópico (0) Responder (através da web) | Adicionar um novo tópico Mensagens | Arquivos | Fotos | Links | Banco de dados -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Alterar configurações via web (Requer Yahoo! ID) Alterar configurações via e-mail: Alterar recebimento para lista diária de mensagens | Alterar formato para o tradicional Visite seu Grupo | Termos de uso do Yahoo! Grupos | Sair do grupo Atividade nos últimos dias a.. 4Novos usuários Visite seu Grupo Yahoo! Mail Conecte-se ao mundo Proteção anti-spam Muito mais espaço Yahoo! Barra Instale grátis Buscar sites na web Checar seus e-mails . Yahoo! Grupos Crie seu próprio grupo A melhor forma de comunicação . __,_. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Enterprise X Professional
O compilador é o mesmo... agora, otimizações de performance são de responsabilidade do desenvolvedor... Queries mal estruturadas, tabelas sem índices, joins toscos, TUDO em log... nem a versão mega-blaster-enterprise-advance melhora um programa mal feito. Abraço. Atenciosamente: Eduardo Cláudio Nicácio Analista de Sistemas Pleno Fábrica 02 - CTIS Tel.: (11) 3150-6841 [EMAIL PROTECTED] - Original Message - From: dsoftware . To: delphi-br@yahoogrupos.com.br Sent: Friday, October 05, 2007 8:38 AM Subject: Re: [delphi-br] Enterprise X Professional E quem usa: - banco de dados robusto tipo Sql Server ou Oracle? - aplicações acessadas pelo Conexão de Trabalho Remota do Windows Server 2003 (Cliente Terminal)? - grande número de usuários acessando a aplicação ao mesmo tempo via rede local e via internet(pelo Cliente Terminal)? - executável com mais de 40mb O Turbo Delphi atende bem nessas condições? Mani Alexandre Rodrigues [EMAIL PROTECTED] escreveu: Tu não pensa em em adquirir as versões turbo do delphi? No teu caso acho mais recomendado, já que tu não usa .net ou c++. Walter Maldonado Junior escreveu: Galera, eu estou desenvolvendo um aplicativo e não utilizo banco de dados nem anda. Utilizo bastante os componentes JEDI e uma suíte de componentes que chama SDL Suite, pra estatística e etc... Gostaria de uma opinião de vcs... Qual versão do Delphi eu devo comprar?? Professional ou Enterprise?? Grato pela atenção Abraços Walter [As partes desta mensagem que não continham texto foram removidas] ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos 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] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Delphi X Windows Vista
Essa eu arrisco: Turbo Delphi Professional. Além de possuir uma boa quantidade de componentes, tem o que mais falta à versão Explorer: suporte a componentes de terceiros. Avalie bem se é isso mesmo que você necessita e vai fundo. Abraço. Atenciosamente: Eduardo Cláudio Nicácio Analista de Sistemas Pleno Fábrica 02 - CTIS Tel.: (11) 3150-6841 [EMAIL PROTECTED] - Original Message - From: Edison Garcia To: delphi-br@yahoogrupos.com.br Sent: Thursday, October 04, 2007 5:02 PM Subject: [delphi-br] Delphi X Windows Vista Qual seria a versão do Delphi mais indicada para alguem que irá comprar uma cópia agora, e irá utiliza-lo e desenvolver praticamente só para máquinas utilizando o Windows Vista. Não pretende desenvolver nada para Web e sim aplicações para administrativas internas utilizando MySQL. Obrigado Edison [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] informações da máquina
A suite JediVCL possui componentes para recuperar informações do sistema (TJvComputerInfoEx). Se você não achar viável (ou possível) instalá-la, amanhã te passo um form que criei para um aplicativo que traz exatamente essas informações, e ainda possibilita a gravação em um arquivo txt. Abraço. Atenciosamente: Eduardo Cláudio Nicácio Analista de Sistemas Pleno Fábrica 02 - CTIS Tel.: (11) 3150-6841 [EMAIL PROTECTED] - Original Message - From: pcinfowave To: delphi-br@yahoogrupos.com.br Sent: Monday, October 01, 2007 5:42 PM Subject: [delphi-br] informações da máquina Ola amigos... Preciso de uma função que me retorne alguns dados da máquina: -Processador e sua velocidade; -Memória RAM -HD - espaço total e espaço livre E se possivel, uma funçao para alterar o nome do micro na rede. Alguem poderia dar uma ajuda? De já agradeço. []´ Paulo [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] mala direta delphi
Saiu exatamente o que você quer há algumas edições na ClubeDelphi. Dá uma procurada no site da DevMedia por Delphi + Outlook. Abraço. Atenciosamente: Eduardo Cláudio Nicácio Analista de Sistemas Pleno Fábrica 02 - CTIS Tel.: (11) 3150-6841 [EMAIL PROTECTED] - Original Message - From: Logos To: delphi-br@yahoogrupos.com.br Sent: Tuesday, September 25, 2007 1:46 PM Subject: [delphi-br] mala direta delphi galera, alguem tem alguem exemplo de mala direta com delphi? uso d7+firebird+dbexpress+reportbuilder...obrigadu - Original Message - From: Adriano Santos To: delphi-br@yahoogrupos.com.br Sent: Tuesday, September 25, 2007 1:15 PM Subject: Re: [delphi-br] Re: Dúvida - sistema de Impressão de cheques ! Oi Fernando, Tudo bem? Cara, como os colegas disseram você deve colocar a dll no diretório da sua aplicação. Quanto a declaração das funções e da variável de retorno, você pode declarar onde quiser. No exemplo que fiz pra ClubeDelphi coloquei tudo na unit principal, mas poderia fazer a declaração em qualquer lugar, basta fazer a chamada correta. Se observar vai ver que toda as declarações estão no form principal e nos forms secundários dou um use unit do form principal e com isso consigo chamar as funções das dll que estão declaradas no principal. Se quiser me manda mensagem em PVT ou acesse meu blog e mande sua dúvida. -- Adriano Santos Desenvolvedor Delphi desde 1998. Professor e programador PHP. Bacharel em Comunicação Social pela Universidade Cruzeiro do Sul, SP. Colunista e Comissão Editorial da revista ClubeDelphi. http://www.delphitodelphi.blogspot.com Fernando de Simas respondeu: É simples, você declara elas na unit principal, e se for usá-las em outros formulários, bastá chama-las a partir da unit principal. Espero ter ajudado. Qualquer coisa meu msn é : [EMAIL PROTECTED] mailto:simas.programador%40hotmail.com To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.brFrom: [EMAIL PROTECTED] mailto:itasouza%40yahoo.com.brDate: Tue, 25 Sep 2007 12:51:22 +Subject: [delphi-br] Re: Dúvida - sistema de Impressão de cheques ! Bom dia Fernando, agradeço a ajuda, mais se possível me responde o seguinte:As declarações de function são feitas em cada unit de cada tela ou efeita na unit da tela principal?A declaração da variável Retorno: Integer; e feita apenas na tela principal? Agradeceria se pudesse verificar as declarações das function que estão no código descrito.Atenciosamente __ 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 http://mobile.live.com/signup/signup2.aspx?lc=pt-br [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.488 / Virus Database: 269.13.30/1030 - Release Date: 25/9/2007 08:02 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Delphi+Postgre
Tempos atrás saiu na SQLMagazine uma comparação entre os principais bancos free do mercado, entre eles: SQL Server 2005 Express IBM DB2 Express Oracle 10 Express Postgre SQL MySQL Firebird O artigo fornece informações com imparcialidade. Cabe a nós decidirmos qual SGBD utilizar para cada caso. Vale a pena dar uma conferida. Link para a revista: http://www.devmedia.com.br/sqlmagazine/pagina.asp Abraço. Atenciosamente: Eduardo Cláudio Nicácio Analista de Sistemas Pleno Fábrica 02 - CTIS Tel.: (11) 3150-6841 [EMAIL PROTECTED] - Original Message - From: Tatu To: delphi-br@yahoogrupos.com.br Sent: Tuesday, September 25, 2007 9:54 AM Subject: RES: [delphi-br] Delphi+Postgre nao abra a caixa de pandora.....rsrsrsrsrssrrs... Bom, pessoalmente acredito que uma discusão sobre este tema é sempre muito boaClaro, sempre que esteja envolvido o delphi no meio. Utilizo o Postgresl ha 5 anos, migrei meu sistema de automação comercial de todos meus clientes e minha felicidade com ese casamento, delphi, postgresql, Zeoslib he pura alegria. Não pretendo entrar no merito da comparação entre estes 2 bancos de dados, apenas dizer que do lado do postgresl, vc pode durmir tranquilo sem medo de ser feliz. O forum de postgresql nao para de crescer, e tem mais, antes vc falava de postgresql o pessoal perguntava que diabohe isso..Depois torciam o nariz, mas tarde começaram a comparar com o sql server, depois o pessoal do oracle começou a ver ele com certa simpatia, e hoje vc tem sites que fazer comparações entre postgresl x oracle. Resumindo se tiver que entrar na era do postgresql entre sem medo. Santiago. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Hudson Enviada em: terça-feira, 25 de setembro de 2007 09:43 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Delphi+Postgre Ola gente, Uma certa vez ouvir falar que o PostgreSQL era mais rapido do que o Firebird bom tenho acesso as duas tecnologia, mas estou ainda com o firebird Qual a opnião da lista? - Original Message - From: Ricardo César Cardoso To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Sent: Tuesday, September 25, 2007 8:34 AM Subject: Re: [delphi-br] Delphi+Postgre Parabéns pela inicativa. É sempre bom ter mais fontes de pesquisa. Sucesso! Ricardo. José Mário Silva Guedes jmarioguedes@ mailto:jmarioguedes%40gmail.com gmail.com escreveu: Olá! Já eu sou tão fã deste cenário que me atrevi a criar um blog sobre o assunto: Delphi + Zeos + PostgreSQL http://pgviavel. http://pgviavel.blogspot.com blogspot.com Rápido, eficiente. Minha única crítica é criar um processo do postgres.exe para cada conexão. [As partes desta mensagem que não continham texto foram removidas] Flickr agora em português. Você clica, todo mundo vê. Saiba mais. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Como Copiar ARQUIVO para uma pasta...
Só atente para o fato de que o segundo parâmetro não pode ser apenas o nome do diretório. Deve conter também o nome do arquivo de destino, mesmo que seja um nome diferente do original. Exemplo: var Arquivo : string; Origem, Destino : string; begin Arquivo := ExtractFileName(OpenDialog1.FileName); Origem := ExtractFilePath(OpenDialog1.FileName); Destino := editDestino.Text; if CopyFile(PChar(Origem+Arquivo), PChar(Destino+Arquivo), false) then ShowMessage('Arquivo copiado com sucesso!) else ShowMessage('Falha na cópia do arquivo!); end; Observação: a função ExtractFilePath extrai o caminho do arquivo e seu último caractere é a barra invertida '\' em Windows XP e mais recentes, porém não termina com essa barra em Windows 2000 para baixo. Para isso, crie mais uma funçãozinha assim: Function FormatFilePath(APath: string): string; begin if APath[Length(Apath)] = '\' then Result := APath else Result := APath + '\'; end; O Delphi possui uma função nativa que inclui essa barra, mas agora não lembro seu nome. Dê uma procurada, talvez seja mais fácil utilizar. Abraço, e espero ter ajudado. Atenciosamente: Eduardo Cláudio Nicácio Analista de Sistemas Pleno Fábrica 02 - CTIS Tel.: (11) 3150-6841 [EMAIL PROTECTED] - Original Message - From: Ruth To: delphi-br@yahoogrupos.com.br Sent: Tuesday, September 18, 2007 5:21 PM Subject: Re: [delphi-br] Como Copiar ARQUIVO para uma pasta... Boa Tarde Ribamar é só usar a funcao CopyFile(Origem, Destino, True). Olha o help do delphi q da uma esclarecida. - Original Message - From: Ribamar Sousa To: delphi-br@yahoogrupos.com.br Sent: Tuesday, September 18, 2007 4:40 PM Subject: [delphi-br] Como Copiar ARQUIVO para uma pasta... Boa Tarde pessoal, estou querendo saber como eu eu faço para copiar um arquivo que o usuario vai selecionar para uma pasta especificada por mim... Exemplo: O Usuario vai selecionar uma IMAGEM no caminho: C:\Meus Documentos\Imagens\FOTO.JPG e na hora que for salvar... quero COPIAR para uma pasta especifica: C:\Projeto\Imagens\ Espero ter sido claro. Desde já agradeço. Abraços Flickr agora em português. Você clica, todo mundo vê. http://www.flickr.com.br/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Como Copiar ARQUIVO para uma pasta...
Valeu Rubem! Eu já sabia da existência dessa função, só não lembrava o nome!!! rs Fica aí a dica para o pessoal! Abraços. Atenciosamente: Eduardo Cláudio Nicácio Analista de Sistemas Pleno Fábrica 02 - CTIS Tel.: (11) 3150-6841 [EMAIL PROTECTED] - Original Message - From: Rubem Nascimento da Rocha To: delphi-br@yahoogrupos.com.br Sent: Wednesday, September 19, 2007 10:49 AM Subject: RE: [delphi-br] Como Copiar ARQUIVO para uma pasta... O Delphi já possui uma função já pronta que faz o mesmo trabalho dessa sua função FormatPath(). Ela se chama IncludeTrailingBackslash(). Informe-se sobre ela no help do Delphi. Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Tue, 18 Sep 2007 18:30:51 -0300 Subject: Re: [delphi-br] Como Copiar ARQUIVO para uma pasta... Só atente para o fato de que o segundo parâmetro não pode ser apenas o nome do diretório. Deve conter também o nome do arquivo de destino, mesmo que seja um nome diferente do original. Exemplo: var Arquivo : string; Origem, Destino : string; begin Arquivo := ExtractFileName(OpenDialog1.FileName); Origem := ExtractFilePath(OpenDialog1.FileName); Destino := editDestino.Text; if CopyFile(PChar(Origem+Arquivo), PChar(Destino+Arquivo), false) then ShowMessage('Arquivo copiado com sucesso!) else ShowMessage('Falha na cópia do arquivo!); end; Observação: a função ExtractFilePath extrai o caminho do arquivo e seu último caractere é a barra invertida '\' em Windows XP e mais recentes, porém não termina com essa barra em Windows 2000 para baixo. Para isso, crie mais uma funçãozinha assim: Function FormatFilePath(APath: string): string; begin if APath[Length(Apath)] = '\' then Result := APath else Result := APath + '\'; end; O Delphi possui uma função nativa que inclui essa barra, mas agora não lembro seu nome. Dê uma procurada, talvez seja mais fácil utilizar. Abraço, e espero ter ajudado. -- Atenciosamente: Eduardo Cláudio Nicácio Analista de Sistemas Pleno Fábrica 02 - CTIS Tel.: (11) 3150-6841 [EMAIL PROTECTED] - Original Message - From: Ruth To: delphi-br@yahoogrupos.com.br Sent: Tuesday, September 18, 2007 5:21 PM Subject: Re: [delphi-br] Como Copiar ARQUIVO para uma pasta... Boa Tarde Ribamar é só usar a funcao CopyFile(Origem, Destino, True). Olha o help do delphi q da uma esclarecida. - Original Message - From: Ribamar Sousa To: delphi-br@yahoogrupos.com.br Sent: Tuesday, September 18, 2007 4:40 PM Subject: [delphi-br] Como Copiar ARQUIVO para uma pasta... Boa Tarde pessoal, estou querendo saber como eu eu faço para copiar um arquivo que o usuario vai selecionar para uma pasta especificada por mim... Exemplo: O Usuario vai selecionar uma IMAGEM no caminho: C:\Meus Documentos\Imagens\FOTO.JPG e na hora que for salvar... quero COPIAR para uma pasta especifica: C:\Projeto\Imagens\ Espero ter sido claro. Desde já agradeço. Abraços Flickr agora em português. Você clica, todo mundo vê. http://www.flickr.com.br/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] __ Receba GRÁTIS as últimas novidades do esporte direto no seu Messenger! http://signup.alerts.live.com/alerts/login.do?PINID=37485679returnURL=http://www.nivea.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] AcroPDFLib_TLB
Segue o link para o site do DevMedia: http://www.devmedia.com.br/javamagazine/download.asp E para os downloads dos artigos da edição 49: http://www.devmedia.com.br/JavaMagazine/downloads/Ed_49.htm Faça o download do projeto: Pesquisas com Apache Lucene Abraço. Atenciosamente: Eduardo Cláudio Nicácio Analista de Sistemas Pleno Fábrica 02 - CTIS Tel.: (11) 3150-6841 [EMAIL PROTECTED] - Original Message - From: Ricardo César Cardoso To: delphi-br@yahoogrupos.com.br Sent: Thursday, September 13, 2007 9:08 AM Subject: Re: [delphi-br] AcroPDFLib_TLB Qual era o número da edição dessa revista, Edu? Fiquei intessado, mas acho que não vi essa revista por aqui não... Edu Nicácio [EMAIL PROTECTED] escreveu: Cara, saiu um artigo na JavaMagazine do mês passado com uma aplicação de exemplo que faz exatamente isso que você precisa. Tipos de documentos suportados: - Microsoft Office (.doc, .xls, .ppt) - Adobe PDF - HTML, XML, etc - Arquivos texto Dá uma procurada nas bancas que você acha. Pode até entrar no portal DevMedia e fazer o download desse exemplo, customizando-o às suas necessidades. Abraço. -- Atenciosamente: Eduardo Cláudio Nicácio Analista de Sistemas Pleno Fábrica 02 - CTIS Tel.: (11) 3150-6841 [EMAIL PROTECTED] - Original Message - From: Camoloze To: delphi-br@yahoogrupos.com.br Sent: Tuesday, September 11, 2007 4:38 PM Subject: RES: [delphi-br] AcroPDFLib_TLB Vixi dano-se, O negócio tem que ser mesmo na munheca, abrir docto por docto, pesquisar e atualizar o banco. Porque quando você abre um pdf no controle ActiveX, você só consegue tirar o foco dele com o mouse ( clicando em outro controle no Form , nem com teclas de atalho vai... ). Roberto Camoloze De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Guionardo Furlan Enviada em: terça-feira, 11 de setembro de 2007 16:19 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] AcroPDFLib_TLB Hmm, não é isso que preciso. A idéia é a seguinte. Tenho pastas e subpastas com vários pdfs (são documentos normais, não-digitalizados, ou seja, texto e imagem separados). O aplicativo indexador varreria todas as pastas, abrindo os pdfs, procurando por Keyword: e salvando em um BD o path e nome do PDF, e os keywords. Aí, quando eu precisasse de algum material sobre, p. ex.: biomecânica, o aplicativo procuraria no BD os artigos que contivessem o termo nos keywords. Em 11/09/07, Camoloze [EMAIL PROTECTED] mailto:camoloze%40imatec.com.br escreveu: Se o documento PDF passou por OCR ai tudo bem, Você pode utilizar o controle ActiveX, e dentro dele dar um CTRL+F e localizar o texto desejado. -- 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] [As partes desta mensagem que não continham texto foram removidas] Flickr agora em português. Você clica, todo mundo vê. Saiba mais. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] AcroPDFLib_TLB
Cara, esse ActiveX disponibiliza um componente que é IGUAL ao Acrobat Reader. Logo, funções como busca de texto, impressão, copiar/colar devem estar disponíveis. Importe para sua paleta ActiveX no Delphi, utilize em um novo projeto (Form) e dê uma estudada. Abraço. Atenciosamente: Eduardo Cláudio Nicácio Analista de Sistemas Pleno Fábrica 02 - CTIS Tel.: (11) 3150-6841 [EMAIL PROTECTED] - Original Message - From: Camoloze To: delphi-br@yahoogrupos.com.br Sent: Tuesday, September 11, 2007 3:24 PM Subject: RES: [delphi-br] AcroPDFLib_TLB Se o documento PDF passou por OCR ai tudo bem, Você pode utilizar o controle ActiveX, e dentro dele dar um CTRL+F e localizar o texto desejado. Se não, só com o Acrobat completo ou outra ferramenta para fazer OCR. Roberto Camoloze De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Guionardo Furlan Enviada em: terça-feira, 11 de setembro de 2007 14:57 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] AcroPDFLib_TLB Com esse activex dá pra ter acesso ao texto dos PDF's? Faz tempo comecei um projeto de um indexador de artigos científicos. Tenho mais de 1000 aqui, coletados de periódicos científicos. E seria bem legal poder pesquisar pelos keywords. Em 11/09/07, Edu Nicácio [EMAIL PROTECTED] mailto:ecnicacio_2005%40yahoo.com.br escreveu: Para isso você deve ter o Acrobat instalado. Quando instalado, ele disponibiliza alguns componentes ActiveX que podem ser utilizados na sua aplicação. Se você for distribuir a aplicação e não quiser enviar junto o Acrobat, terá que empacotar esses componentes junto com o instalador e criar processos de registro dos mesmos no sistema do usuário. - Original Message - From: Alessandro DUARTE de Moraes To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Tuesday, September 11, 2007 11:06 AM Subject: Re: [delphi-br] AcroPDFLib_TLB Faça vc mesmo! No Delphi 7 basta vc ir no menu Component / Import ActiveX Control e selecionar o Adobe Acrobat ... e criar as units. -- 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] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] AcroPDFLib_TLB
Cara, saiu um artigo na JavaMagazine do mês passado com uma aplicação de exemplo que faz exatamente isso que você precisa. Tipos de documentos suportados: - Microsoft Office (.doc, .xls, .ppt) - Adobe PDF - HTML, XML, etc - Arquivos texto Dá uma procurada nas bancas que você acha. Pode até entrar no portal DevMedia e fazer o download desse exemplo, customizando-o às suas necessidades. Abraço. Atenciosamente: Eduardo Cláudio Nicácio Analista de Sistemas Pleno Fábrica 02 - CTIS Tel.: (11) 3150-6841 [EMAIL PROTECTED] - Original Message - From: Camoloze To: delphi-br@yahoogrupos.com.br Sent: Tuesday, September 11, 2007 4:38 PM Subject: RES: [delphi-br] AcroPDFLib_TLB Vixi dano-se, O negócio tem que ser mesmo na munheca, abrir docto por docto, pesquisar e atualizar o banco. Porque quando você abre um pdf no controle ActiveX, você só consegue tirar o foco dele com o mouse ( clicando em outro controle no Form , nem com teclas de atalho vai... ). Roberto Camoloze De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Guionardo Furlan Enviada em: terça-feira, 11 de setembro de 2007 16:19 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] AcroPDFLib_TLB Hmm, não é isso que preciso. A idéia é a seguinte. Tenho pastas e subpastas com vários pdfs (são documentos normais, não-digitalizados, ou seja, texto e imagem separados). O aplicativo indexador varreria todas as pastas, abrindo os pdfs, procurando por Keyword: e salvando em um BD o path e nome do PDF, e os keywords. Aí, quando eu precisasse de algum material sobre, p. ex.: biomecânica, o aplicativo procuraria no BD os artigos que contivessem o termo nos keywords. Em 11/09/07, Camoloze [EMAIL PROTECTED] mailto:camoloze%40imatec.com.br escreveu: Se o documento PDF passou por OCR ai tudo bem, Você pode utilizar o controle ActiveX, e dentro dele dar um CTRL+F e localizar o texto desejado. -- 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] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] desenvolver jogo de truco
Dá uma olhada aqui: http://www.google.com.br/search?hl=pt-BRq=truco+open-sourcemeta= E aqui: http://sourceforge.net/search/?type_of_search=softwords=Truco Você pode utilizar o código-fonte para analisar as regras e aplicá-las ao Delphi. Boa sorte. Abraço. Atenciosamente: Eduardo Cláudio Nicácio Analista de Sistemas Pleno Fábrica 02 - CTIS Tel.: (11) 3150-6841 [EMAIL PROTECTED] - Original Message - From: helson moraes To: delphi-br@yahoogrupos.com.br Sent: Monday, September 10, 2007 8:15 PM Subject: [delphi-br] desenvolver jogo de truco Aí galera vou desenvolver um jogo de truco em delphi, para ser utilizado com servidor e cliente e gostaria de saber se vc's conhecem algo sobre isso Pode ser tipo só uma API ou algo assim que tenha as cartas e controle as jogadas a troca de msg's com o servidor eu esquematizo. Valew desde já Helson Moraes Desenvolvedor de Sistemas - DTI - UPF Flickr agora em português. Você clica, todo mundo vê. Saiba mais. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] AcroPDFLib_TLB
Para isso você deve ter o Acrobat instalado. Quando instalado, ele disponibiliza alguns componentes ActiveX que podem ser utilizados na sua aplicação. Se você for distribuir a aplicação e não quiser enviar junto o Acrobat, terá que empacotar esses componentes junto com o instalador e criar processos de registro dos mesmos no sistema do usuário. Espero ter ajudado. Abraço. Atenciosamente: Eduardo Cláudio Nicácio Analista de Sistemas Pleno Fábrica 02 - CTIS Tel.: (11) 3150-6841 [EMAIL PROTECTED] - Original Message - From: Alessandro DUARTE de Moraes To: delphi-br@yahoogrupos.com.br Sent: Tuesday, September 11, 2007 11:06 AM Subject: Re: [delphi-br] AcroPDFLib_TLB Faça vc mesmo! No Delphi 7 basta vc ir no menu Component / Import ActiveX Control e selecionar o Adobe Acrobat ... e criar as units. Alessandro DUARTE de Moraes - Original Message - From: Evaldo To: delphi-br@yahoogrupos.com.br Sent: Tuesday, September 11, 2007 10:29 AM Subject: [delphi-br] AcroPDFLib_TLB Alguém tem ou sabe onde encontro a AcroPDFLib_TLB do Adobe Reader 8.0? Flickr agora em português. Você clica, todo mundo vê. http://www.flickr.com.br/ [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,46e6984c869793827817435 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] DELPHI 7 FREE
Adriano, acho que o que você quiz dizer é que o Turbo Delphi Professional não é free... o Explorer é sim, inclusive para uso comercial. Basta se cadastrar no site da CodeGear e eles enviam a chave de ativação do produto. Aqui na empresa, pros sistemas simples que desenvolvo, utilizo o Turbo Explorer... e estou seriamente pensando em adquirir uma licença do Turbo Professional... Não dá para viver sem componentes de terceiros... hehehe Abraço. Atenciosamente: Eduardo Cláudio Nicácio Analista de Sistemas Pleno Fábrica 02 - CTIS Tel.: (11) 3150-6841 [EMAIL PROTECTED] - Original Message - From: Adriano Santos (Devmedia) To: delphi-br@yahoogrupos.com.br Sent: Wednesday, September 05, 2007 6:59 PM Subject: Re: [delphi-br] DELPHI 7 FREE O Turbo não é Free. O Turbo nada mais é que as versões do Delphi separadas em pequenos pacotes, ou seja, se não tem dinheiro para comprar o BDS 2006 inteiro você compra apenas o Turbo Delphi que tem apenas a versão para Win32. Há aqueles que não usam nada mais do que a versão Win32, por isso foi criado o Turbo Delphi, assim fica mais acessível. -- Adriano Santos Desenvolvedor Delphi desde 1998. Professor e programador PHP. Bacharel em Comunicação Social pela Universidade Cruzeiro do Sul, SP. Colunista e Comissão Editorial da revista ClubeDelphi. http://www.delphitodelphi.blogspot.com Hudson respondeu: o turbo delphi e free? - Original Message - From: Edu Nicácio To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Tuesday, September 04, 2007 1:28 PM Subject: Re: [delphi-br] DELPHI 7 FREE Por que não utilizar o Turbo Delphi Explorer (2006)? Só não dá para instalar componentes e mais alguns detalhes... de resto, é igual ao Delphi 2006.] Abraço. -- Atenciosamente: Eduardo Cláudio Nicácio Analista de Sistemas Pleno Fábrica 02 - CTIS Tel.: (11) 3150-6841 [EMAIL PROTECTED] mailto:eduardo.nicacio%40ctis.com.br - Original Message - From: Leslyn Fernandes To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Tuesday, September 04, 2007 12:23 PM Subject: Re: [delphi-br] DELPHI 7 FREE Oi gente... Quanto ao tal delphi 7 free, eu acho que não, mas existe alguma versão acadêmica do delphi 7? att, LF On 9/3/07, Ricardo Cabral [EMAIL PROTECTED] mailto:cabral.ricardo%40yahoo.com.br wrote: Outro dia um amigo me falou que depois de um determinado tempo o delphi mais antigo fica free. É vedade ? Nunca ouvi falar nisso ! Abraços, Ricardo Flickr agora em português. Você clica, todo mundo vê. Saiba mais. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.485 / Virus Database: 269.13.5/990 - Release Date: 4/9/2007 22:36 -- Boa leitura, -- *Adriano Santos* Desenvolvedor Delphi desde 1998. Professor e programador PHP. Bacharel em Comunicação Social pela Universidade Cruzeiro do Sul, SP. Colunista e Comissão Editorial da revista ClubeDelphi. Blog: Delphi to Delphi http://www.delphitodelphi.blogspot.com -- http://www.devmedia.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] off topic: Custo de um bd Oracle
Qual a real necessidade de utilizar o Oracle? Um IBM DB2 Express ou PostgreSQL ou ainda o Firebird são tão bons quanto... E não custam nada! Abraço. Atenciosamente: Eduardo Cláudio Nicácio Analista de Sistemas Pleno Fábrica 02 - CTIS Tel.: (11) 3150-6841 [EMAIL PROTECTED] - Original Message - From: [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Wednesday, September 05, 2007 8:09 AM Subject: Re: [delphi-br] off topic: Custo de um bd Oracle oracle xp é free... mas tem a versao personal edition que custa em torno de R$ 350 a R$ 400 a copia e poderia ser utilizada por vc. ate + Edison Garcia escreveu: Ola a todos Alguem teria uma idéia aproximada do custo de um bd Oracle que atendesse a uma pequena empresa (digamos max de 10 estações) ? obrigado Edison Garcia -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.485 / Virus Database: 269.13.5/988 - Release Date: 4/9/2007 09:14 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Excluir arquivos com IdFTP
Cara, tente o seguinte: //--- if IdFTP.Connected then try IdFTP.Delete('seu_arquivo'); except on E: Exception do IdFTP.RaiseExceptionForLastCmdResult(E); end; //--- Não testei aqui... mas não custa nada tentar! Abraço. Atenciosamente: Eduardo Cláudio Nicácio Analista de Sistemas Pleno Fábrica 02 - CTIS Tel.: (11) 3150-6841 [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: off topic: Custo de um bd Oracle
Exatamente por isso que questionei essa escolha! Para 10 usuários acredito que o volume de dados não justifique a compra de uma licença de Oracle (ou DB2 ou SQLServer). Para esses casos (assim como para inúmeros outros, com muito mais usuários) acho mais adequado que se analise as alterantivas open-source/ freewares. MySQL, PostgreSQL, Firebird, etc, já estão por aí há um bom tempo e são mais do que testadas. Um forte abraço. Atenciosamente: Eduardo Cláudio Nicácio Analista de Sistemas Pleno Fábrica 02 - CTIS Tel.: (11) 3150-6841 [EMAIL PROTECTED] - Original Message - From: Josir Gomes To: delphi-br@yahoogrupos.com.br Sent: Wednesday, September 05, 2007 4:44 PM Subject: [delphi-br] Re: off topic: Custo de um bd Oracle Olá pessoal, Existe a versão free do Oracle, chamada Oracle XE, cujas únicas limitações são o tamanho da base (4Gb) e só aceitar 1 processador no servidor. Funciona muito bem e eu utilizo com 30 usuários simultaneos e o bichinho roda que é uma beleza. A Oracle criou essa versão justamente para tentar impedir o crescimento dos bancos opensource tipo Firebird e PostgreSQL. Edu, a real necessidade de se utilizar Oracle?? É o melhor banco que existe atualmente, o mais estável, o que tem mais recursos e é o mais utilizado. Quem consegue chegar um pouco perto é o DB2 e o PostgreSQL. Mas aí a discussão vai para outra seara.. Mas concordo com vc. Se vc vai começar algo do zero e acha que o seu banco vai ter + de 4GB, dê preferência para o PostgreSQL ou para o Firebird. Saudações, Josir. Enviado por: Edu Nicácio [EMAIL PROTECTED] ecnicacio_2005 Qua, 5 de Set de 2007 9:41 am Qual a real necessidade de utilizar o Oracle? Um IBM DB2 Express ou PostgreSQL ou ainda o Firebird são tão bons quanto... E não custam nada! Abraço. -- Atenciosamente: Eduardo Cláudio Nicácio Analista de Sistemas Pleno Fábrica 02 - CTIS Tel.: (11) 3150-6841 [EMAIL PROTECTED] - Original Message - From: [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Wednesday, September 05, 2007 8:09 AM Subject: Re: [delphi-br] off topic: Custo de um bd Oracle oracle xp é free... mas tem a versao personal edition que custa em torno de R$ 350 a R$ 400 a copia e poderia ser utilizada por vc. ate + Edison Garcia escreveu: Ola a todos Alguem teria uma idéia aproximada do custo de um bd Oracle que atendesse a uma pequena empresa (digamos max de 10 estações) ? obrigado Edison Garcia [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Retirar sinais de uma data
AnsiReplaceStr() ou AnsiReplaceText(); Ambos os métodos estão na Unit StrUtils... dá uma procurada lá... Abraço. Atenciosamente: Eduardo Cláudio Nicácio Analista de Sistemas Pleno Fábrica 02 - CTIS Tel.: (11) 3150-6841 [EMAIL PROTECTED] - Original Message - From: Ricardo Cabral To: delphi-br@yahoogrupos.com.br Sent: Monday, September 03, 2007 5:02 PM Subject: Re: [delphi-br] Retirar sinais de uma data Paulo, Não sei se já existe no delphi, mas eu uso essa para qualquer string. Espero ter ajudado. Ricardo Cabral Function Tffuncoes.numeros(valor : string) : string; // Limpa string e deixa soimente numeros var i : integer; xvalor : string; xnum : String; begin xvalor:=trim(valor); xnum:='0123456789'; valor:=''; for i := 1 to Length(xvalor) do begin if pos(copy(xvalor,i,1),xnum)0 then valor:=valor+copy(xvalor,i,1); end; result:=valor; end; pcinfowave [EMAIL PROTECTED] escreveu: Ola amigos, Alguem podria me passar uma função que retire os sinais de uma data, deixando apenas os numeros? Obrigado! []´ Paulo Flickr agora em português. Você clica, todo mundo vê. Saiba mais. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] DELPHI 7 FREE
Por que não utilizar o Turbo Delphi Explorer (2006)? Só não dá para instalar componentes e mais alguns detalhes... de resto, é igual ao Delphi 2006.] Abraço. Atenciosamente: Eduardo Cláudio Nicácio Analista de Sistemas Pleno Fábrica 02 - CTIS Tel.: (11) 3150-6841 [EMAIL PROTECTED] - Original Message - From: Leslyn Fernandes To: delphi-br@yahoogrupos.com.br Sent: Tuesday, September 04, 2007 12:23 PM Subject: Re: [delphi-br] DELPHI 7 FREE Oi gente... Quanto ao tal delphi 7 free, eu acho que não, mas existe alguma versão acadêmica do delphi 7? att, LF On 9/3/07, Ricardo Cabral [EMAIL PROTECTED] wrote: Outro dia um amigo me falou que depois de um determinado tempo o delphi mais antigo fica free. É vedade ? Nunca ouvi falar nisso ! Abraços, Ricardo Flickr agora em português. Você clica, todo mundo vê. Saiba mais. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Forçar Autenticação na Rede
Dê uma procurada pelo comando NET SHARE no help do Windows. Você pode usar um script de inicialização, que, quando executado, mapeia os diretórios remotos em unidades locais, utilizando usuário e senha. Simples assim. Abraço. Atenciosamente: Eduardo Cláudio Nicácio Analista de Sistemas Pleno Fábrica 02 - CTIS Tel.: (11) 3150-6841 [EMAIL PROTECTED] - Original Message - From: Anderson Furtilho To: delphi-br@yahoogrupos.com.br Sent: Monday, September 03, 2007 10:36 AM Subject: [delphi-br] Forçar Autenticação na Rede Saudações amigos da lista! Amigos, atualmente eu faço assim if FileExists('\\dados\sef\teste.exe') then ; Caso o usuario ja tenha entrado no windows explorer acessado esta pasta e digitado seu usuario e senha ai funciona legal. Mas quando o usuario liga o computador e ja roda meu programa o comando assim nao funfa, pois ainda nao foi digitado o usuario e senha para abrir a conexão nesta pasta. Existe uma forma de forçar o usuario a se conectar nesta pasta acima e digitar seu usuario e senha ? Se algum amigo ja passou por este problema puder dar uma dica, ficarei agradecido! Um forte abraço a todos Anderson Flickr agora em português. Você clica, todo mundo vê. http://www.flickr.com.br/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Datas
Dê uma olhada na Unit DateUtils... há dezenas de funções para manipulação de datas... Abraço. Atenciosamente: Eduardo Cláudio Nicácio Analista de Sistemas Pleno Fábrica 02 - CTIS Tel.: (11) 3150-6841 [EMAIL PROTECTED] - Original Message - From: Samuel M. Basso To: Delphi ; Delphi - BR Sent: Friday, August 24, 2007 7:58 AM Subject: [delphi-br] Datas Olá pessoal! Gostaria de saber se o delphi tem possibilidades por exemplo de eu saber qtas semanas tem no mes corrente e a data inicial e final de cada semana. Exemplo Agosto/2007 Numero semanas: 5 Semana 1: 01/08/07 a 04/08/07 Semana 2: 05/08/07 a 11/08/07 Valeu!! Flickr agora em português. Você clica, todo mundo vê. http://www.flickr.com.br/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Manipulando arquivos de texto.
Dá uma estudada na unit StrUtils que há métodos lá para fazer isso que você precisa... porém, não seria melhor mudar esse layout de arquivo não? Usar espaço como caractere separador de campo é meio complicado... você poderia usar ponto e vírgula (;), dois pontos (:), pipe (|), etc. Seria mais fácil saber onde termina um campo e começa o outro. PS - O método que vai te ajudar é ExtractStrings. Dê uma olhada nos parâmetros que ele pede, e boa sorte. Abraço, e espero ter ajudado... Atenciosamente: Eduardo Cláudio Nicácio Analista de Sistemas Pleno Fábrica 02 - CTIS Tel.: (11) 3150-6841 [EMAIL PROTECTED] - Original Message - From: tiago_baroni To: delphi-br@yahoogrupos.com.br Sent: Thursday, August 23, 2007 3:35 PM Subject: [delphi-br] Manipulando arquivos de texto. Eu tenho um arquivo de texto com o seguinte formato [NOME] [TELEFONE] [EMAIL] Essas informações são separadas por espaços. Por exemplo, se eu quizer selecionar somente o e-mail de cada uma cas linhas e adicionar para um Memo. Como eu posso fazer isso??? [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] DBEDIT X EDIT
Server is too busy... Dá para pedir para o pessoal verificar esse erro Bruno? Valeu... Atenciosamente: Eduardo Cláudio Nicácio Analista de Sistemas Pleno Fábrica 02 - CTIS Tel.: (11) 3150-6841 [EMAIL PROTECTED] - Original Message - From: Bruno Lichot To: delphi-br@yahoogrupos.com.br Sent: Thursday, August 23, 2007 5:39 PM Subject: RES: [delphi-br] DBEDIT X EDIT Pega minha apostila de desenvolvimento Client/Server com D7 e FireBird no meu link de downloads gratuitos e comprove :D http://cc.codegear.com/Author/795118 abs BL De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Adevaldo Oliveira Enviada em: quinta-feira, 23 de agosto de 2007 15:20 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] DBEDIT X EDIT Ola!!! Estou montando um pequeno sistema, em delphi versao 7, sou inicinante em linguagem visual, estou com a seguinte duvida, tenho um formulario onde cadastro fornecedores, atualmente uso o dbedit e trabalho direto com a tabela, ouvi que o melhor e usar o edit e so usar a tabela quando for efetuar a gravação. Isso procede??? uso o paradox mas estou mudando para o firebird 2.0 com ibexpert. Gratos!!! Adevaldo Flickr agora em português. Você clica, todo mundo vê. Saiba mais. [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 2479 (20070823) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Threads
Sim, e de muitas maneiras! Recomendo a leitura do livro Delphi - Guia Essencial. Comprei por apenas R$ 25,00 na Livros Técnicos Vitória e foi uma das melhores aquisições que já fiz... Há um capitulo inteiro dedicado a programação concorrente (multi-threading), com diversas formas de aplicação: classe TThread, classe TFuture, Mutexes, etc. Abraço. Atenciosamente: Eduardo Cláudio Nicácio Analista de Sistemas Pleno Fábrica 02 - CTIS Tel.: (11) 3150-6841 [EMAIL PROTECTED] - Original Message - From: Evaldo To: delphi-br@yahoogrupos.com.br Sent: Friday, August 24, 2007 9:59 AM Subject: [delphi-br] Threads Delphi da suporte a tarefas muti-threads ? Onde consigo material sobre o assunto? Flickr agora em português. Você clica, todo mundo vê. http://www.flickr.com.br/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] [OFF-TOPIC] IIS
Bom dia. Esse erro genérico 500 não esclarece muita coisa. Sugestão: vá até seu Internet Explorer, em configurações, e Avançado e desmarque o item Mostrar mensagens de erro amigáveis. Assim fica mais fácil saber qual o erro exato que está ocorrendo. Qualquer coisa, poste aí. Abraço. Atenciosamente: Eduardo Cláudio Nicácio Analista Programador Fábrica 02 - CTIS Tel.: (11) 3150-6841 [EMAIL PROTECTED] - Original Message - From: Rubem Nascimento da Rocha To: delphi-br@yahoogrupos.com.br Sent: Tuesday, August 14, 2007 8:55 AM Subject: [delphi-br] [OFF-TOPIC] IIS Pessoal, estou apanhando feio, e peço ajuda aos mais esclarecidos do que eu! Estou tentando configurar o IIS no meu Windows XP Professional no micro da empresa, e mesmo desinstalando e reinstalando, configurando a segurança de diretório, seguindo diversos tutoriais que vi na web (baixei três!), não resolveu meu problema. Toda vez que termino a tentativa de configurar o IIS, e tento chamar a página de teste para verificar se o IIS foi instalado (http://localhost/localstart.asp), me acusa o seguinte erro: HTTP 500 - erro interno do servidor Internet Explorer Peço ajuda aos colegas para me ajudarem com este problema, pois preciso configurar meu IIS no micro da empresa para dar manutenção aos sistemas web desenvolvidos em ASP. Grato pela atenção. __ Conheça o Windows Live Spaces, a rede de relacionamentos conectada ao Messenger! http://spaces.live.com/signup.aspx [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Trabalhando com serviços
Para instalar serviços aqui eu recorro ao InnoSetup. Muito bom mesmo. Já para a inicialização automática, o colega deve alterar a propriedade StartType para stAuto. Assim, ele automaticamente iniciará junto com o Windows, independente de ter alguém logado no micro. Outros modos são: stBoot stDisabled stManual stSystem Se seu serviço necessita interagir com a área de trabalho (mostrar mensagens, abrir forms, etc) é melhor deixar a propriedade Interactive como true. Caso contrário, a interação com o usuário não funcionará. Agora essa dica do /silent no momento da instalação foi 10! Valeu mesmo. Abraço a todos. Atenciosamente: Eduardo Cláudio Nicácio Analista Programador JR. Fábrica 02 - CTIS Tel.: (11) 3150-6841 [EMAIL PROTECTED] - Original Message - From: Desenvolvimento (Anderson) To: delphi-br@yahoogrupos.com.br Sent: Thursday, August 02, 2007 2:31 PM Subject: Re: [delphi-br] Trabalhando com serviços então Thiago... pra instalar, vc roda ele através de um parâmetro... no caso: NomeDoPrograma.EXE /install daí ele instala a aplicação. após reiniciar o micro, já tá rodando ou então, pra já rodar, basta clicar 2x nele. boa sorte. and - Original Message - From: Thiago Filiano (America Soft) To: delphi-br@yahoogrupos.com.br Sent: Thursday, August 02, 2007 1:35 PM Subject: Re: [delphi-br] Trabalhando com serviços No seu serviço, Anderson, altere a propriedde Interactive para False. aproveitando aqui, alguém saberia dizer como faço para o serviço após ser instalado, ser iniciado? *Thiago Filiano * Desenvolvimento (Anderson) escreveu: Boa tarde, criei uma aplicação pra rodar como serviço... tá tudo 100%. instala, desinstala... mas queria fazer esse processo em modo silecioso, pra não ficar exibindo mensagem de OK ou ERRO... já tentei: /q /u /s /silent /quiet alguém sabe qual parâmetro devo usar? Obrigado And. [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 2433 (20070802) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Redimencsionar TreeView em tempo de execução
Para isso vc terá que usar o TSplitter, presente na paleta Aditional. Abraço. Atenciosamente: Eduardo Cláudio Nicácio Analista Programador Fábrica 02 - CTIS Tel.: (11) 3150-6841 [EMAIL PROTECTED] - Original Message - From: Elias Magalhães da Paixão Junior To: delphi-br@yahoogrupos.com.br Sent: Friday, June 22, 2007 1:08 AM Subject: RES: [delphi-br] Redimencsionar TreeView em tempo de execução Alterar a largura do treeView, com o arrastar de mouse do usuário. Ele aproxima o mouse da borda, aparece aquela setinha ele segura e puxa, alterando, imediatamente a largura do form. Como a gente faz com as janelas não maximizadas. Elias Magalhães da Paixão Junior ___ Análise de Sistemas e Banco de Dados Consultoria e desenvolvimento de programas, sistemas e websites Tel.: (0XX21) 8262-7955 _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rubem Nascimento da Rocha Enviada em: sexta-feira, 22 de junho de 2007 00:57 Para: delphi-br@yahoogrupos.com.br Assunto: RE: [delphi-br] Redimencsionar TreeView em tempo de execução Prioridade: Alta O que vc quer dizer com redimensionar um TTreeView? Seja mais claro! Sds. To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.brFrom os.com.brFrom: [EMAIL PROTECTED] mailto:eliasmpj%40yahoo.com.brDate com.brDate: Fri, 22 Jun 2007 00:52:54 -0300Subject: [delphi-br] Redimencsionar TreeView em tempo de execução Grandes mestres do delphi,Alguém sabe como redimensiono uma treeview em tempo de execução???Elias Magalhães da Paixão Junior[As partes desta mensagem que não continham texto foram removidas] __ Receba GRÁTIS as mensagens do Messenger no seu celular quando você estiver offline. Conheça o MSN Mobile! http://mobile. http://mobile.live.com/signup/signup2.aspx?lc=pt-br live.com/signup/signup2.aspx?lc=pt-br [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Data no delphi
Dê uma olhada na Unit DateUtils, lá tem o que você precisa. Abraço. Atenciosamente: Eduardo Cláudio Nicácio Analista Programador Fábrica 02 - CTIS Tel.: (11) 3150-6841 [EMAIL PROTECTED] - Original Message - From: Daniel To: delphi-br@yahoogrupos.com.br Sent: Thursday, June 21, 2007 3:28 PM Subject: Res: [delphi-br] Data no delphi Velhosincrementar dias...tu vai ter que fazer pelo menos tres funções A ordem das funções não altera o resultado... //incrementar dias Function TFrmTelaPrincipal.IncDias(Data: TDate; Valor: Integer): TDate; Var A, M, D: Word; Begin DecodeDate(Data, A,M,D); D:=D+Valor; If D DiasNoMes(Data) then Begin D:= 1; M:= M+1; End; If M = 13 then Begin M:= 1; A:= A+1; End; Result := strToDate(FormatFloat('00/',D)+ FormatFloat('00/',M)+IntToStr(A)); End; //agora VC precisa saber qual o mês, ja que temos meses de 30, 31 28 e 29 dias Function TFrmTelaPrincipal.DiasnoMes(Data: TDate): Integer; Var Y, M, D:Word; Dias: Integer; Begin Dias := 0; DecodeDate(data, Y,M,D); //Especificando o número de dias em cada mês If M = 1 then Dias := 31; If M = 2 then // chama a funtcion AnoBis para verificar anos bissestos Begin If Anobis(Y) then Dias := 29 Else Dias := 28; End; Case M of 3: Dias := 31; 4: Dias := 30; 5: Dias := 31; 6: Dias := 30; 7: Dias := 31; 8: Dias := 31; 9: Dias := 30; 10: Dias := 31; 11: Dias := 30; 12: Dias := 31; End; Result := Dias; End; //voce deve saber que o mes de fevereiro...possui 28 ou 29 dias a depender do ano (bissesto ou não), portanto, precisa-se verificar o ano tbm Function TFrmTelaPrincipal.AnoBis(Ano: Integer): Boolean; Var Resto : Integer; Begin Resto := Ano mod 4;//obtendo o resto da divisão do ano por 4 If Resto = 0 then Result := True//Bissexto Else Result := False;// Não Bissexto End; Melhor que isso, so pescar de bomba...rsrs Administrador - Daniel Lima Dantas (CRA/BA - 14.390) Av. Presidente Dutra, 3300 - 1º Andar Sala 03 - Feira de Santana -BA Fone - 75-3488-1439 / 3625-9322 / www.admsystem.inf.net ---Mensagem original--- De: rzzanatta Data: 21/06/2007 15:09:00 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Data no delphi Olá gostaria de saber como faço pra adicionar 7 dias a partir da data de hoje por ex. var data : tdatetime; begin data := data + 7; end; desse jeito nao funciona, como faço? __ Información de NOD32, revisión 2342 (20070621) __ Este mensaje ha sido analizado con NOD32 antivirus system http://www.nod32.com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Barra de Tarefas
Dê uma procurada nas mensagens da lista, pois semana passada foram passados vários meios de se fazer isso. Basicamente: Delphi 2006/2007 - TTrayIcon JEDI - JvTrayIcon Terceiros - TTrayIcon Abraço. Atenciosamente: Eduardo Cláudio Nicácio Analista Programador Fábrica 02 - CTIS Tel.: (11) 3150-6841 [EMAIL PROTECTED] - Original Message - From: Régis Bender To: delphi-br@yahoogrupos.com.br Sent: Friday, June 22, 2007 8:10 AM Subject: [delphi-br] Barra de Tarefas Bom dia, alguém sabe me dizer como eu faço para deixar meu programa em execução mas apenas com o icone na barra de tarefas? tipo o kazaa sds Bender Desenvolvimento de Sistemas e Serviços Contábeis (Régis) (51) 98470699 Novo Hamburgo/RS MSN: [EMAIL PROTECTED] www.regisbender.com.br [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Impressao de documento word
Utilize a unit ShellAPI ShellExecute(0,'print','C:\SeuDocumento.doc',nil,nil,SW_SHOWNORMAL); Simples assim. Para documentos do Word, no momento da instalação do Office, são criadas entradas em HKEY_CLASSES_ROOT que habilitam as opções 'open', 'print' etc para esses documentos. Outra forma de fazer isso é via Ole, mas aí não custa dar uma pesquisada... Abraços. Atenciosamente: Eduardo Cláudio Nicácio Analista Programador Fábrica 02 - CTIS Tel.: (11) 3150-6841 [EMAIL PROTECTED] - Original Message - From: Doretto To: delphi-br@yahoogrupos.com.br Sent: Friday, June 22, 2007 6:18 PM Subject: [delphi-br] Impressao de documento word Boa tarde !!! Tenho o seguinte problema: Tenho um cadastro de produtos e vou ter que amarrar a esta tabela um arquivo do Word c/ varias informacoes e quando eu imprimir um pedido usando este produto vou ter que imprimir este texto. Amarrar um arquivo Word no produto eu ja consegui, o problema esta sendo em imprimir este arquivo via Delphi5.. Tem como ? Abraço Doretto [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Campo negativo
Assim: if Valor1 = Valor2 then Valor3 := Valor1 - Valor 2 else Valor3 := Valor2 - Valor1; Note que se os valores forem iguais, tanto faz qual número será subtraído, uma vez que o resultado dará 0 (zero) de qualquer forma. Espero ter ajudado. Abraço. Atenciosamente: Eduardo Cláudio Nicácio Analista Programador Fábrica 02 - CTIS Tel.: (11) 3150-6841 [EMAIL PROTECTED] - Original Message - From: Rodrigo Magno To: delphi-br@yahoogrupos.com.br Sent: Wednesday, June 20, 2007 11:59 AM Subject: [delphi-br] Campo negativo Amigos Delphianos, Estou precisando de como fazer o seguinte, tem uma condição aonde que : Valor1- Valor2 = Valor3 aonde que se o valor3 for negativo tenho q fazer a ordem inversa, assim : valor2-valor1 = valor3. Alguem poderia me falar como podera fazer isto ? Obs : Como posso descobrir se o valor e negativo Rodrigo Magno * [EMAIL PROTECTED] msn [EMAIL PROTECTED] __ Novo Yahoo! Cadê? - Experimente uma nova busca. http://yahoo.com.br/oqueeuganhocomisso [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: RES: RES: [delphi-br] BUG Delphi 2007 - Nada de usar o ClientDataSet, DataSnap,Remote Data Module, BSS....
E o pior é que a EDS dá suporte em Unix, Oracle, Linux e o que mais resolverem implementar aqui... é só uma questão de contrato.. Mas fazer o que... são eles que decidem como gastar... paciência... Abraços. Atenciosamente: Eduardo Cláudio Nicácio Analista Programador Fábrica 02 - CTIS Tel.: (11) 3150-6841 [EMAIL PROTECTED] - Original Message - From: Joao Morais To: delphi-br@yahoogrupos.com.br Sent: Tuesday, June 19, 2007 11:43 AM Subject: Re: RES: RES: [delphi-br] BUG Delphi 2007 - Nada de usar o ClientDataSet, DataSnap,Remote Data Module, BSS Edu Nicácio wrote: compraram servidores com Intel 32 bits, SO Windows 2003 e SGBD SQL Server 2005... Ou seja, foram na contramão porque a solução Microsoft era mais barata, coisa de 100 mil reais... É verdade. É que eles fizeram um concurso pra ver qual servidor é configurado mais rápido sem botar a mão no teclado. g -- Joao Morais [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Serviço
Realmente esta é uma parte 'obscura', onde não encontramos facilmente material. Quando precisei desenvolver alguns serviços aqui na empresa, e mesmo para meus projetos em casa, tive que me virar sozinho. Dê uma olhada no help do Delphi sobre o TServiceApplication. Pode ser que muitas de suas dúvidas sejam esclarecidas. Se ainda assim não conseguir implementar alguma coisa, volte a mandar mensagens. Abraço. Atenciosamente: Eduardo Cláudio Nicácio Analista Programador Fábrica 02 - CTIS Tel.: (11) 3150-6841 [EMAIL PROTECTED] - Original Message - From: Leandro To: delphi-br@yahoogrupos.com.br ; delphi-total Sent: Tuesday, June 19, 2007 1:09 PM Subject: [delphi-br] Serviço Pessoal boa tarde, Seguinte, eu quero aprender a trabalhar com serviços do windows e já tenho uma idéia de como fazer, mas eu não consegui arrumar nenhuma material explicativo, ou nenhum exemplo... será que vcs podem me ajudar com algum mateiral/link/exemplo ?? obrigado pessoal. Leandro A. Nunes [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Atualização de Versão de Sis tema em Rede
Uma edição da ClubeDelphi (acho que a 79) trouxe um exemplo de um atualizador via FTP para arquivos. Dê uma procurada no site www.devmedia.com.br pois lá você pode baixar os fontes e dar uma estudada. Abraços. Atenciosamente: Eduardo Cláudio Nicácio Analista Programador Fábrica 02 - CTIS Tel.: (11) 3150-6841 [EMAIL PROTECTED] - Original Message - From: Raphae Fonseca To: delphi-br@yahoogrupos.com.br Sent: Tuesday, June 05, 2007 2:51 PM Subject: [delphi-br] Atualização de Versão de Sistema em Rede Boa tarde amigos da lista. Estou precisando desenvolver um atualizador de executáveis do sistema via rede. Algum amigo já desenvolveu algo parecido e poderia me dar algumas dicas??? No aguardo Raphael __ Novo Yahoo! Cadê? - Experimente uma nova busca. http://yahoo.com.br/oqueeuganhocomisso [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Biblioteca de imagens
Tem também esse: www.themexp.com Abraços. Atenciosamente: Eduardo Cláudio Nicácio Analista Programador Fábrica 02 - CTIS Tel.: (11) 3150-6834 [EMAIL PROTECTED] - Original Message - From: Ismair Alves To: delphi-br@yahoogrupos.com.br Sent: Sunday, April 22, 2007 11:24 AM Subject: Re: [delphi-br] Biblioteca de imagens Oi, Da uma olhada em: http://www.wincustomize.com http://www.kde-look.org Em 21/04/07, Adriano Santos (Yahoo) [EMAIL PROTECTED] escreveu: Galera, Tô querendo atualizar meu sistema com uns ícones mais modernos, tipo do Windows XP, Office 2007 ou algo assim. Incluir, alterar, excluir e talz. Alguém tem alguma biblioteca legal ou link que possa me passar? Achei uma legal, mas não tem muitos ícones pra usar, a maioria não se encaixa muito com as aplicações que eu desenvolvo. Coloquei a biblioteca que encontrei disponível para download no meu blog, quem quiser pode pegar. www.delphitodelphi.blogspot.com Vlw -- -- Adriano Santos Desenvolvedor Delphi desde 1998. Professor e programador PHP. Bacharel em Comunicação Social pela Universidade Cruzeiro do Sul, SP. Colunista e Comissão Editorial da revista ClubeDelphi. -- Ismair C. Alves msn: [EMAIL PROTECTED] PontoConf Soluções em Software Livre. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Tratamento de Imagens no Delphi [Como comprimir?]
Você tentou salvar essas imagens como JPEG antes de enviá-las para o banco de dados? Ou as está salvando como JPEG? Na revista ClubeDelphi desse mês há algumas dicas de como transformar um Bitmap (BMP) em Jpeg, definindo, inclusive, o nível de compressão do mesmo. Abraço. Atenciosamente: Eduardo Cláudio Nicácio Analista Programador Fábrica 02 - CTIS Tel.: (11) 3150-6834 [EMAIL PROTECTED] - Original Message - From: Ismair Alves To: delphi-br@yahoogrupos.com.br Sent: Sunday, April 22, 2007 11:20 AM Subject: Re: [delphi-br] Tratamento de Imagens no Delphi [Como comprimir?] Eu tava com esse mesmo problema, a solucao que eu encontrei foi pedir pro pessoal da criacao (esse e o dpto que cuida da parte de imagens da onde eu trabalho), pra diminuir as imagens que eu tinha que gravar no programa dos representantes, um exemplo: uma imagem de 175 k passou pra 45 k, mais ou menos isso. Eu tinha pensado antes de fazer isso em compactar a imagem, so que o tempo que ia gastar pra recuperar a imagem do BD e depois descompactar e jogar na tela ia ser muito grande, ia ficar com um lag que o pessoal de vendas nao ia gostar muito. Att Em 20/04/07, Vinicius Florido [EMAIL PROTECTED] escreveu: Uma coisa que deve ser levada em questão é o tempo entre compactar e arquivar depois descompactar para vizualizar. Se for uma imagem jpeg não vale a pena esse custo de processamento em oposto ao ganho em compressão que é muito insignificante. E caso for imagens BMP é mais fácil converter para JPEG antes. Mas só vale mesmo a compressão se você tiver que realmente salvar BMP no banco. Se precusar de rotinas de compactação só falar... _ De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em nome de Sérgio T. Uetanabaro Enviada em: quinta-feira, 19 de abril de 2007 17:43 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: RES: [delphi-br] Tratamento de Imagens no Delphi [Como comprimir?] Para utilizar compressao acredito que vc vai ter q fazer isso na mao. Comprimir antes de gravar e descomprimir para depois mostrar. A nao ser q tenha componentes pronto para isso, mas nao conheço nenhum. []´s Sergio _ De: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br [mailto:[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br] Em nome de Berdam Enviada em: quinta-feira, 19 de abril de 2007 11:44 Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Assunto: Re: [delphi-br] Tratamento de Imagens no Delphi [Como comprimir?] existe o tipo de campo blob, ele permite inserção de imagens. Són sei a taxa de compressão. silvano_monteiro escreveu: Boa tarde pessoal Estou com uma questao. Queria a opniao de vcs sobre qual a melhor maneira de se gravar uma imagem em um bando de Dados para q ela fique mais leve possivel. Se existe alguma maneira da imagem ser comprimida ao Gravar ou existe alguma rotina pra gravar ela q ocupe pouco espaco no Banco de Dados. Eu estou utilizando D7 + Firebird Alguem poderia me ajudar??? Desde ja Agradeco Silvano Monteiro Cuiabá-MT [As partes desta mensagem que não continham texto foram removidas] _ E-mail classificado pelo Identificador de Spam Inteligente. Para alterar a categoria classificada, visite o Terra Mail http://mail.terra.com.br/cgi-bin/imail.cgi?+_u=jvp.vinicius_l=1,1177015631 .867734.32405.assuan.hst.terra.com.br,17786,Des15,Des15 _ Esta mensagem foi verificada pelo E-mail Protegido Terra http://mail.terra.com.br/ . Scan engine: McAfee VirusScan / Atualizado em 19/04/2007 / Versão: 5.1.00/5013 Proteja o seu e-mail Terra: http://mail.terra.com.br/ [As partes desta mensagem que não continham texto foram removidas] -- Ismair C. Alves msn: [EMAIL PROTECTED] PontoConf Soluções em Software Livre. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Registro do Windows
Cara, dá uma olhada na apresentação em PPT no link abaixo. É sobre técnicas de segurança da Microsoft, então acredito que queira dar uma olhada, pois fala exatamente sobre privilégios de usuários, segurança, etc. Dá uma olhada lá. Link original: http://www.technetbrasil.com.br/Downloads/TechEd/SEG10_Sdias.ppt Fonte (Google): http://www.google.com.br/search?hl=pt-BRq=executar+programa+como+usu%C3%A1rio+diferente+linha+comandometa= Abraço. Atenciosamente: Eduardo Cláudio Nicácio Analista Programador Fábrica 02 - CTIS Tel.: (11) 3150-6834 [EMAIL PROTECTED] - Original Message - From: Daniel Lucena To: delphi-br@yahoogrupos.com.br Sent: Sunday, April 22, 2007 1:42 PM Subject: Res: [delphi-br] Registro do Windows Adriano, Não resolveu! Inclusive, eu já havia testado essa possibilidade antes! Para funcionar com HKEY_CURRENT_USER eu teria que criar um novo registro para cada usuário, ou seja, lançar novamente no registro do windows as configurações para funcionamento do sistema para cada usuario do windows: versão, banco de dados, servidor, etc... Solucionaria em parte o problema, mas não seria a solução ótima, pois caso um dos usuários alterasse algum caminho, como por exemplo, a pasta padrão para o backup, os demais usuarios ficariam desatualizados! O que realmente necessito é alterar as permissões da chave no registro do windows via delphi! De qualquer forma, muito obrigado pela sugestão! Daniel Vitor Eng. de Computação - Mensagem original De: Adriano Santos - Direção de Arte [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Domingo, 22 de Abril de 2007 10:40:22 Assunto: Re: [delphi-br] Registro do Windows Troque o local da chave que vc salva. De HKEY_LOCAL_ MACHINE para HKEY_CURRENT_ USER que é o usuário atual da máquina. Provavelmente isso resolverá. Daniel Lucena respondeu: Olá senhores, Tenho um sistema que utiliza o registro do windows para armazenar alguns dados necessários para seu funcionamento, tais como: endereço do banco de dados, versão, etc... Funciona perfeitamente em contas do windows com nivel de administrador , porém, não permite escrita e nem leitura dos registros em conta limitada. Se alterar manualmente as permissões, via regedit, da chave do sistema (HKEY_LOCAL_ MACHINE\Software \MeuPrograma) , consigo também fazer leitura e escrita nos registros. Logo, o que eu preciso é fazer isso automaticamente! Ao criar a chave no registro do windows, preciso definir permissão para todos os usuários poderem fazer leitura e escrita nesta chave específica. Uso as funções abaixo para realizar leitura e escrita no registro do windows: //gravar //chamada da função GravaRegistroString (HKEY_LOCAL_ MACHINE,' Software\ MeuPrograma' ,'Banco', 'c:\banco' ); //função function GravaRegistroString (Raiz: Dword; Chave, Valor, Dado:string) :boolean; var Registro : TRegistry; begin try Registro := TRegistry.Create; Registro.RootKey := Raiz; Registro.OpenKey (Chave, True); Registro.WriteStrin g (valor, dado); Registro.CloseKey; Registro.Free; result := true; except result := false; end; end; //ler //chamada da função edit1.text := LeRegistroString( HKEY_LOCAL_ MACHINE,' SOFTWARE\ MeuPrograma' ,'Banco') ; //função function LeRegistroString( Raiz: Dword; Chave, Valor:string) :string; var Registro : TRegistry; begin try Registro := TRegistry.Create; Registro.RootKey := Raiz; Registro.OpenKey (Chave, false); result := Registro.ReadString (valor); Registro.CloseKey; Registro.Free; except result := ''; end; end; Muito obrigado a todos mais uma vez pela força! Daniel Vitor Eng. de Computação _ _ _ _ __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger .yahoo.com/ http://br.messenger .yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] - - - - - - No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.463 / Virus Database: 269.5.7/771 - Release Date: 21/4/2007 11:56 -- - - - - - - *Adriano Santos* __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Galeria de Foto
Na JVCL há alguns componentes para o que você está precisando. Procure por JvImageList e JvImageThumbs (acho que é isso). Abraço. Atenciosamente: Eduardo Cláudio Nicácio Analista Programador Fábrica 02 - CTIS Tel.: (11) 3150-6834 [EMAIL PROTECTED] - Original Message - From: Ricardo Mendes To: delphi-br@yahoogrupos.com.br Sent: Friday, April 20, 2007 5:18 PM Subject: [delphi-br] Galeria de Foto Dae galera...preciso de um help de vcs... Preciso criar uma galeria de fotos...ou seja, Tenho um cadastro de cliente, que o mesmo pode colocar muitas fotos... terei que trabalhar com miniaturas e imagem grande... Eu não queria fazer isso utilizando um monte de Timagem...pois eu teria q fazer o codigo todo na mão... Será que tem algum componente q faça algo parecido... Aguardo ajuda.. Ricardo Mendes TotalSat - Rastreamento de Veículos Departamento de Informática E-mail: [EMAIL PROTECTED] Tel. (41) 2109-7717 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Impressão de Imagem.
Você poderá usar a mesma rotina ShellExecute que já foi discutida diversas vezes aqui. Só atente-se para o fato de a extensão JPG possuir uma entrada em print Tipos de arquivos em Opções de Pastas do Windows. ShellExecute(0,'print','C:\imagens\imagem.jpg',nil,nil,SW_SHOWNORMAL); Se quiser que não apareça o diálogo de impressão pode passar como último parâmetro SW_HIDE. Espero ter ajudado. Abraço. Atenciosamente: Eduardo Cláudio Nicácio Analista Programador Fábrica 02 - CTIS Tel.: (11) 3150-6834 [EMAIL PROTECTED] - Original Message - From: Régis Bender To: delphi-br@yahoogrupos.com.br Sent: Tuesday, April 10, 2007 8:39 AM Subject: [delphi-br] Impressão de Imagem. Bom dia Pessoal. Tenho uma imagem em um determinado caminho (c:\imagens\imagem.jpg) e gostaria de imprimir esta imagem direto pelo delphi sem visualizar. Alguém pode me ajudar? sds Bender Desenvolvimento de Sistemas e Serviços Contábeis (Régis) (51) 98470699 Novo Hamburgo/RS MSN: [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Impressão de Imagem.
Complementando a resposta anterior, segue abaixo o comando que funcionaria em meu sistema: Windows XP Pro SP2 Office 2003 Pro ShellExecute(Application.Handle, 'printto','C:\imagens\imagem.jpg',nil, nil, SW_SHOWNORMAL); OBS - Meu sistema não possui nenhuma impressora instalada, e a que está definida como padrão é Microsoft Office Document Writer. Veja a descrição do documento JPG em Tipos de Documentos: Ação: printto Comando: rundll32.exe C:\WINNT\system32\shimgvw.dll,ImageView_PrintTo /pt %1 %2 %3 %4 Usar DDE: sim (checado) Mensagem DDE: vazio Aplicativo: shimgvw Aplicativo DDE não sendo executado: vazio Tópico: System Espero ter ajudado. Abraço. Atenciosamente: Eduardo Cláudio Nicácio Analista Programador Fábrica 02 - CTIS Tel.: (11) 3150-6834 [EMAIL PROTECTED] - Original Message - From: Edu Nicácio To: delphi-br@yahoogrupos.com.br Sent: Wednesday, April 11, 2007 10:01 AM Subject: Re: [delphi-br] Impressão de Imagem. Você poderá usar a mesma rotina ShellExecute que já foi discutida diversas vezes aqui. Só atente-se para o fato de a extensão JPG possuir uma entrada em print Tipos de arquivos em Opções de Pastas do Windows. ShellExecute(0,'print','C:\imagens\imagem.jpg',nil,nil,SW_SHOWNORMAL); Se quiser que não apareça o diálogo de impressão pode passar como último parâmetro SW_HIDE. Espero ter ajudado. Abraço. -- Atenciosamente: Eduardo Cláudio Nicácio Analista Programador Fábrica 02 - CTIS Tel.: (11) 3150-6834 [EMAIL PROTECTED] - Original Message - From: Régis Bender To: delphi-br@yahoogrupos.com.br Sent: Tuesday, April 10, 2007 8:39 AM Subject: [delphi-br] Impressão de Imagem. Bom dia Pessoal. Tenho uma imagem em um determinado caminho (c:\imagens\imagem.jpg) e gostaria de imprimir esta imagem direto pelo delphi sem visualizar. Alguém pode me ajudar? sds Bender Desenvolvimento de Sistemas e Serviços Contábeis (Régis) (51) 98470699 Novo Hamburgo/RS MSN: [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] [OFF-TOPIC] - Totalmente OFF -Prob lema na gravação de dados no CDR
Nada que o Google não faça por você: http://www.google.com.br/search?source=ighl=pt-BRq=velocidade+m%C3%ADnima+grava%C3%A7%C3%A3o+CD-Rmeta= Abraço. Eduardo C. Nicácio Usuário BDog_SP Santo André - SP - Original Message - From: Leonardo To: delphi-br@yahoogrupos.com.br Sent: Wednesday, April 11, 2007 10:25 AM Subject: [delphi-br] [OFF-TOPIC] - Totalmente OFF -Problema na gravação de dados no CDR Desculpa postar isto mas ja tem uma semana que vasculho na Net a procura de uma resposata e nao encontro nada concreto. Adquiri um PC , e para minha surpresa fui gravar alguns dados(musica) no CD com o Nero e nao consegui diminuir a velocidade de gravação. No WinXP propriedade do CDRW consigo colocar uma txa de gravação de ate 2x mas no Nero so grava com + 16x . No windos MediaPlay ocorre o mesmo problema ele grava sempre com uma taxa alta. Ja gravei em uma outra midia com uma velocidade de 8x portanto nao é o Drive Ja li algo que a midia tem uma taxa minima de gravação assim como uma taxa maxima , isto é real? Alguem tem uma ideia? Agradeço desde ja [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Dúvida inserindo valor
Você pode usar o componente da JVCL para formatação de IPs para isso. Abraço. Atenciosamente: Eduardo Cláudio Nicácio Analista Programador Fábrica 02 - CTIS Tel.: (11) 3150-6834 [EMAIL PROTECTED] - Original Message - From: Rodrigo Brito To: delphi-br@yahoogrupos.com.br Sent: Thursday, April 05, 2007 1:17 PM Subject: [delphi-br] Dúvida inserindo valor Estou com a seguinte dúvida tenho um campo que cadastro o IP se a pessoa digitar o ip 73 , como faço para ele completar com 073 após salvar estou com problemas pq uns digitam com 0 e outros sem o 0 , ai fica com ip repetida -- Rodrigo Brito Informática Franco e Barbosa Advogados Av. Rio Branco n.º 103, 19º e 20º andares Rio de Janeiro, RJ - Brasil Tel (+55 21) 2122-8300 Fax (+55 21) 2122-8613 [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Semana do ano
Dê uma olhada no Help do Delphi e procure pela unit DateUtils. Há um monte de rotinas prontas lá para o que você precisa. Abraço. Atenciosamente: Eduardo Cláudio Nicácio Analista Programador Fábrica 02 - CTIS Tel.: (11) 3150-6834 [EMAIL PROTECTED] - Original Message - From: Natanael Rodrigues To: delphi-br@yahoogrupos.com.br Sent: Thursday, April 05, 2007 11:44 AM Subject: [delphi-br] Semana do ano Existe componente ou função que retorne de acordo com o número da semana do ano e o númedo do dia semana(Seg-Do o dia do calendário? Por exemplo: A Semana numero: 14 O dia da Semana: 4 retornaria 05/04/2007 Grato. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: RES: RES: [delphi-br] Access Denied usando DCOMConnection
Só para lembrar, essa é uma lista de Delphi. Não há motivos para haver Evangelizadores Java, Visual Studio, Oracle ou Linux aqui. Entendeu, Ricardo? Atenciosamente: Eduardo Cláudio Nicácio Analista Programador JR. Fábrica 02 - CTIS Tel.: (11) 3150-6834 [EMAIL PROTECTED] - Original Message - From: Bruno Lichot To: delphi-br@yahoogrupos.com.br Sent: Tuesday, April 03, 2007 11:16 AM Subject: RES: RES: RES: [delphi-br] Access Denied usando DCOMConnection Sua palavra de motivaçao realmente me emociona e me da o motivo d q por isso q tenho lutado mesmo So tenho a agradecer Abs BL De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Ricardo César Cardoso Enviada em: terça-feira, 3 de abril de 2007 10:56 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: RES: [delphi-br] Access Denied usando DCOMConnection Cuidado pra não ser crucificado ;) Sds, Ricardo. Bruno Lichot [EMAIL PROTECTED] mailto:blichot%40softpark.com.br escreveu: Salve Ricardo! Esta é a minha função na equipe CodeGear, pode ser? Abs BL De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Ricardo César Cardoso Enviada em: segunda-feira, 2 de abril de 2007 16:02 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Access Denied usando DCOMConnection CodeGear Product Evangelist Pode isso? Sds, Ricardo Bruno Lichot [EMAIL PROTECTED] mailto:blichot%40softpark.com.br mailto:blichot%40softpark.com.br escreveu: Cara Usar COM+ para aplica' ES ntier e mta furada, é lento, tem varias incompatibilidades, trava mto.. emfim... pode naum ser firewal, pode ser o proxy dele q vc naum instalou direito no cliente ou incopmpativel com o SO, entre vários oputro problemas q naum me lembro. Se vc quer desenvolvero comercialmente com performance, disponibilidade, segurança e escalabilidade, use Borland Socket Server. Mais informações em [EMAIL PROTECTED] .com.br E no meu link de downloads no code central, e td gratuito. O link esta abaixo da minha assinatura Abraços, Bruno Lichot CodeGear Product Evangelist http://www.codegear.com http://cc.codegear.com/Author/795118 De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Leonardo - Lalur informática Enviada em: segunda-feira, 2 de abril de 2007 14:58 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: [delphi-br] Access Denied usando DCOMConnection Alguem já passou por esse problema ao tentar conectar o DCOMConnection? Acesso negado... Já verifiquei firewall, permissoes, etc... Obrigado! Leonardo [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 2162 (20070402) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 2162 (20070402) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 2166 (20070403) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Off - Vagas para programadores web com perfil Jr.
Boa tarde. A CTIS Tecnologia S/A, empresa com grande atuação e sólida reputação no mercado de TI, está contratando 5 profissionais com o perfil abaixo: Conhecimentos intermediários em: - ASP - VB - HTML - XML - Javascript - SQL Server 2000 As vagas são para profissionais de perfil Jr (pelo menos 6 meses de experiência comprovada), que trabalharão com desenvolvimento de sistemas Web alocados dentro da Telefonica S/A (Rua Sete de Abril, República, São Paulo). Os currículos devem ser encaminhados para: Giovana Fay ([EMAIL PROTECTED]). Obrigado a todos e fiquem à vontade para repassar esse email aos seus contatos. Atenciosamente: Eduardo Cláudio Nicácio Analista Programador Fábrica 02 - CTIS Tel.: (11) 3150-6834 [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Acesso remoto
Procure na ajuda do Windows. Basta pressionar F1 na área de trabalho para chamá-la. Abraço. Atenciosamente: Eduardo Cláudio Nicácio Analista Programador JR. Fábrica 02 - CTIS Tel.: (11) 3150-6834 [EMAIL PROTECTED] - Original Message - From: nillgolv To: delphi-br Sent: Friday, March 30, 2007 9:35 PM Subject: [delphi-br] Acesso remoto Alguém pode me informar o fonte de acesso remoto para: DESLIGAR e REINICIAR maquinas na rede. Grato [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Fechando as conexões com o Delphi
Se o firebird estiver rodando como um serviço do Windows (o mais comum) execute a rotina abaixo quando clicar um botão, ou selecionar um item em um menu, por exemplo: ShellExecute(Application.Handle,'open','net.exe','pause Firebird',nil,SW_SHOWNORMAL); Substitua o Firebird pelo nome registrado na lista de serviços do Windows. Substitua o SW_SHOWNORMAL por SW_HIDE caso não queira que seja exibida a janela do prompt onde o comando é executado. Para 'despausar' o serviço, execute o comando abaixo: ShellExecute(Application.Handle,'open','net.exe','continue Firebird',nil,SW_SHOWNORMAL); Você encontra mais opções para o net.exe na própria ajuda do Windows. Espero ter ajudado. Abraço. Atenciosamente: Eduardo Cláudio Nicácio Analista Programador JR. Fábrica 02 - CTIS Tel.: (11) 3150-6834 [EMAIL PROTECTED] - Original Message - From: Evandro . To: delphi-br@yahoogrupos.com.br Sent: Wednesday, March 28, 2007 11:07 AM Subject: [delphi-br] Fechando as conexões com o Delphi Olá, tem como fechar todas a Conexão do Firebird pelo Delphi ?? e depois outra função que Execute ??? a unica forma que conheço é a manual indo no Painel de controle e Pausando o Firebird, mais preciso disso em Run Time pelo delphi.. Obrigado, Evandro! __ MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] windowstate = maximized
Procure no help do Delphi Win32 pela propriedade Anchors dos componentes. É o melhor jeito de fazer um formulário se adaptar a qualquer resolução. Uma sugestão: projeto seu formulário para 800x600 (são pouquíssimos os que utilizam algo abaixo disso) e configure adequadamente a propriedade Anchors dos componentes para que seu formulário possa crescer de maneira consistente. Abraço. Atenciosamente: Eduardo Cláudio Nicácio Analista Programador JR. Fábrica 02 - CTIS Tel.: (11) 3150-6834 [EMAIL PROTECTED] - Original Message - From: suporte To: delphi-br@yahoogrupos.com.br Sent: Wednesday, March 28, 2007 11:58 AM Subject: [delphi-br] windowstate = maximized quero um form maximizado que rode tanto em 800x600 quanto as resolucoes 1024x800 e acima sem truncamentos de componentes ou aparecimento de barras de scroll ao se mudar de resoulucao. eu seto windowstate= maximized mas ate que width e height eu posso criar os componentes?? nao posso exceder os 800 de width? 600 de height? grato . [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Componente de Captura de Vídeo
Tempos atrás saiu na ClubeDelphi um artigo do Adriano Santos em que ele usava o componente TCamera. Só não sei se ele acessa os 4 canais como solicitado. Dá uma procurada aí que com certeza vc acha mais alguma coisa. Abraço. Atenciosamente: Eduardo Cláudio Nicácio Analista Programador JR. Fábrica 02 - CTIS Tel.: (11) 3150-6834 [EMAIL PROTECTED] - Original Message - From: willer To: delphi-br@yahoogrupos.com.br Sent: Wednesday, March 28, 2007 3:05 PM Subject: [delphi-br] Componente de Captura de Vídeo Olá, Alguém conhece algum componente de captura de vídeo que consiga acessar 4 canais de uma placa de captura? TEnho uma placa ARGUS de 4 canais, só que os componentes que tenho(TSCAP, e DSPACK) só conseguem detectar o primeiro canal da placa. Qualquer dica é bem-vinda. Willer Alves da Costa. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] chamando o desfragmentador de disco pe la aplicação
Você poderia ter procurado nas Opções de Pasta do Windows. Lá, além da extensão, você obtem informações do programa associado, parâmetros, como abrir, imprimir, editar, etc cada arquivo no computador. Olha o que eu descobri: ShellExecute(Application.Handle,'open','Caminho\do\seu\arquivo.msc',nil,nil,SW_SHOWNORMAL); Ou então: ShellExecute(Application.Handle,'open','mmc.exe','Caminho\do\seu\arquivo.msc',nil,SW_SHOWNORMAL); Veja o comando para abrí-los: C:\WINNT\system32\mmc.exe %1 %* Ou seja, usando Winexec(...) você não poderá abri-lo diretamente, por não se tratar de um arquivo 'executável'. Espero ter ajudado. Abraço. Atenciosamente: Eduardo Cláudio Nicácio Analista Programador Fábrica 02 - CTIS Tel.: (11) 3150-6834 [EMAIL PROTECTED] - Original Message - From: Gustavo André de Freitas To: delphi-br@yahoogrupos.com.br Sent: Monday, March 26, 2007 4:45 PM Subject: [delphi-br] chamando o desfragmentador de disco pela aplicação Pessoal, estou tentando chamar o desfragmentador de disco de dentro da aplicação delphi, mas não estou conseguindo, estou usando o seguinte codigo. WinExec ('c:\windows\system32\dfrg.msc', 1); não abre de forma alguma, na verdade, nenhum arquivo com extensão .msc consigo abrir com o comando WinExec, tem algum outro comando...? procurei o final de semana todo na net e não encontrei nenhum codigo neste sentido...aguardo ajuda dos amigos! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] TRAYICON
A suite Jedi tem esse componente, assim como diversos outros. A edição desse 81 da ClubeDelphi traz um artigo abrangendo 20 componentes da JVCL, e o JvTrayIcon está entre eles! Espero ter ajudado. Abraço. Eduardo C. Nicácio Usuário BDog_SP Santo André - SP - Original Message - From: Logos To: delphi-br@yahoogrupos.com.br Sent: Tuesday, March 20, 2007 11:09 PM Subject: [delphi-br] TRAYICON Pessoal tenho uma aplicacao que ao executar vai para o trayicon perto do relogio. e mostra um icone que especifiquei na aplicacao. alguem sabe como fazer para esse icone ficar animado? brilhar... ou coisa do tipo? - Original Message - From: Nilton To: delphi-br@yahoogrupos.com.br Sent: Tuesday, March 20, 2007 10:45 PM Subject: RES: [delphi-br] DEBATE: Tratando Concorrência de Dados em Delphi Achei fantástica a sugestão! _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rubem Nascimento da Rocha Enviada em: terça-feira, 20 de março de 2007 21:43 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] DEBATE: Tratando Concorrência de Dados em Delphi Prioridade: Alta Srs., Existem assuntos que julgo pertinentes pra nossa profissão como desenvolvedor de sistemas, e acredito que como a maioria dos profissionais que aqui nesta lista estão inscritos a preocupação com a integridade física e relacional em um banco de dados é algo imprescindível. Já vi pessoas relatando problemas sobre erros de deadlock em sistemas aplicativos, quer sejam no ramo comercial ou industrial, e acredito que seria uma boa oportunidade nós discutirmos sobre este assunto. Me refiro ao controle de concorrência em um banco de dados. Quem estudou em faculdade, sabe do que estou falando. Quem tem apenas a experiência adquirida no trabalho, tb já deve ter passado por isso quando suas aplicações começavam a assinalar mensagens de erro mencionando a palavra 'deadlock' durante uma operação de alteração de dados em uma tabela. Pois é, é a mesma coisa. Proponho que nesta lista nós, colegas da área experimentados no assunto, possamos discutir um meio de controlar, de forma conceitual e genérica, para qualquer banco de dados (se possível) como efetuar este tipo de controle em nossas aplicações, ou mesmo como detectar isto em nossos bancos de dados através das linguagens por eles disponibilizadas (PL/SQL do Oracle, TransactSQL do SQL Server, Informix 4GL do Informix, etc.). Enfim, srs., o que proponho não é apenas uma forma implícita de helpdesk, como já fi circular em muitas listas de discussão, e sim propor uma discussão verdadeiramente técnica sobre o tema. Ao moderador, espero contar com a colaboração de incentivar os colegas com mais experiência com desenvolvimento de sistemas a colocar suas idéias e expor suas experiências a fim de que todos possam se beneficiar com esta discussão. Afinal, a lista serve para isto, para discutir, de preferência temas técnicos com propostas, sugestões, idéias, ... e não meramente usar este recurso como um helpdesk ou um help on-line. Gratos pela atenção, Rubem Rocha Manaus, AM __ MSN Busca: fácil, rápido, direto ao ponto. http://search. http://search.msn.com.br msn.com.br [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.446 / Virus Database: 268.18.15/728 - Release Date: 20/3/2007 08:07 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Processar Arquivos - FTP
Esta dica foi postada aqui semana passada. Tenta dar uma olhada nas mensagens anteriores que com certeza ela está lá. Abraço. Atenciosamente: Eduardo Cláudio Nicácio Analista Programador JR. Fábrica 02 - CTIS Tel.: (11) 3150-6834 [EMAIL PROTECTED] - Original Message - From: Diogo Viegas To: delphi-br@yahoogrupos.com.br Sent: Thursday, March 15, 2007 9:50 AM Subject: [delphi-br] Processar Arquivos - FTP Srs, Alguém teria alguma rotina que verifique se o arquivo a ser processado não está em uso por um servidor FTP ou outro serviço qualquer? Tenho um driver que carrega arquivos de um diretório, processa e carrega para o banco de dado e por algum motivo quem está descarregando o arquivo no diretório que eu busco os arquivos avisa que o serviço que envia por parte dele trava. Assim só quero processar arquivos que estão 100% entregues. Obrigado. Att. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Processar Arquivos - FTP
Acho que não preciso dizer mais nada!!! Hehehe Mas aí vai mais uma dica: imagine que seu arquivo é grande (tipo, 500MB) e há um processo que está gravando dados nesse arquivo. A função descrita indicará que o arquivo está em uso somente se o processo não tiver finalizado a gravação no arquivo. Como o Walter explicou, o notepad e outros editores simples não bloqueiam o arquivo para edição... eles abrem com GENERIC_READ e depois usam GENERIC_WRITE para salvar. Se precisar de algo, dá um toque aí... Abraço. Atenciosamente: Eduardo Cláudio Nicácio Analista Programador JR. Fábrica 02 - CTIS Tel.: (11) 3150-6834 [EMAIL PROTECTED] - Original Message - From: Walter Alves Chagas Junior To: delphi-br@yahoogrupos.com.br Sent: Thursday, March 15, 2007 11:14 AM Subject: RES: [delphi-br] Processar Arquivos - FTP Alguns programas bloqueiam o arquivo para uso, como é o caso do Word, do Query Analyser e do AutoCad. Alguns outros, como o Notepad, por exemplo, não fazem isto. Tanto que voce pode abrir um mesmo aquivo em 3 blocos de notas simultaneamente e salvar em qualquer um deles. E a função trabalha sobre a API do Windows né... []s Walter Alves Chagas Junior Projeto e desenvolvimento de sistemas Telemont Engenharia de telecomunicações S/A Belo Horizonte - MG - Brasil [EMAIL PROTECTED] Fone: (31) 3389-8217 Fax: (31) 3389-8215 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Diogo Viegas Enviada em: quinta-feira, 15 de março de 2007 11:07 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Processar Arquivos - FTP Blz Edu achei a function abaixo. O problema é que se abro o arquivo log.txtvia notepad e escrevo qualquer coisa nele e NÃO salvo, a function me retorna dizendo que o arquivo não está em uso. function IsFileInUse(fName : string) : boolean; var HFileRes : HFILE; begin Result := false; if not FileExists(fName) then exit; HFileRes := CreateFile(pchar(fName), GENERIC_READ or GENERIC_WRITE,0 {this is the trick!}, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0); Result := (HFileRes = INVALID_HANDLE_VALUE); if not Result then begin CloseHandle(HFileRes); end; end; // codigo para validação da funcion acima: if IsFileInUse('C:\log.txt') then Showmessage('arquivo não pode ser processado') else ShowMessage('arquivo pode ser processado'); Alguma dica? Em 15/03/07, Edu Nicácio [EMAIL PROTECTED] escreveu: Esta dica foi postada aqui semana passada. Tenta dar uma olhada nas mensagens anteriores que com certeza ela está lá. Abraço. -- Atenciosamente: Eduardo Cláudio Nicácio Analista Programador JR. Fábrica 02 - CTIS Tel.: (11) 3150-6834 [EMAIL PROTECTED] rsn01.web03%40telesp.com.br - Original Message - From: Diogo Viegas To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Thursday, March 15, 2007 9:50 AM Subject: [delphi-br] Processar Arquivos - FTP Srs, Alguém teria alguma rotina que verifique se o arquivo a ser processado não está em uso por um servidor FTP ou outro serviço qualquer? Tenho um driver que carrega arquivos de um diretório, processa e carrega para o banco de dado e por algum motivo quem está descarregando o arquivo no diretório que eu busco os arquivos avisa que o serviço que envia por parte dele trava. Assim só quero processar arquivos que estão 100% entregues. Obrigado. Att. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Sobre atalhos
Estranho isso... está usando ExtractFilePath(Application.ExeName) para pegar o diretório do executável? Pode estar aí o problema... Abraço. Atenciosamente: Eduardo Cláudio Nicácio Analista Programador JR. Fábrica 02 - CTIS Tel.: (11) 3150-6834 [EMAIL PROTECTED] - Original Message - From: blcksun954 To: delphi-br@yahoogrupos.com.br Sent: Thursday, March 15, 2007 2:55 PM Subject: [delphi-br] Sobre atalhos Eu crio um arquivo de configuração no diretório onde meu programa está sendo executado. Até aqui tudo bem. O problema: se o programa for executado pela primeira vez a partir de um atalho, ele cria o arquivo de configuração na area de trabalho. Tem como descobrir se um executável está sendo executado diretamente ou através de um atalho? [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Formatar Porcentagem
Use assim: Format('%f%%',[SeuValor]); Para acrescentar o símbolo % você deve incluí-lo duas vezes na string a ser formatada... Abraço. Atenciosamente: Eduardo Cláudio Nicácio Analista Programador JR. Fábrica 02 - CTIS Tel.: (11) 3150-6834 [EMAIL PROTECTED] - Original Message - From: Ricardo César Cardoso To: delphi-br@yahoogrupos.com.br Sent: Monday, March 12, 2007 3:07 PM Subject: Re: [delphi-br] Formatar Porcentagem Até onde eu me lembro, o %p é usado para valores do tipo Pointer. Eu tentaria %8.2f % (o segundo sinal de porcentagem servindo com um string).. Sds, Ricardo Humberto [EMAIL PROTECTED] escreveu: Bem.. eu nunca usei o format.. porém meio q por dedução.. o %m vem de monetary.. tentou algo como %p ?? p de Percent =D - Original Message - From: galvao_em To: delphi-br@yahoogrupos.com.br Sent: Monday, March 12, 2007 11:39 AM Subject: [delphi-br] Formatar Porcentagem Olá, eu uso o método abaixo para deixar o valor com a forma de R$ 5.123,33 rlSaldo.Caption:=Format('%m',[FrmTotalizacaoValesEmpresa.cdsTotalGeralMostra_Saldo.AsFloat]); Gostaria de saber como posso fazer para deixar o valor com a forma 12,05%, utilizando este mesmo método. Att. rodrigo ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/ -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.446 / Virus Database: 268.18.9/719 - Release Date: 12/3/2007 08:41 [As partes desta mensagem que não continham texto foram removidas] __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] NMFTP e idFTP problemas
Verifique se os arquivos estão sendo baixados como binários ou ASCII. Abraço. Atenciosamente: Eduardo Cláudio Nicácio Analista Programador JR. Fábrica 02 - CTIS Tel.: (11) 3150-6834 [EMAIL PROTECTED] - Original Message - From: [ Mutuka ] To: delphi-br@yahoogrupos.com.br Sent: Thursday, March 08, 2007 11:39 AM Subject: [delphi-br] NMFTP e idFTP problemas Estou com o seguinte problema meu projeto de Update do sistema fiz usando o NMFTP q funcionava perfeitamento utilizando um FTP local no meu servidor, agora q passei para um servidor de FTP Web estou tendo problemas com o executavel, eles vem danificados, tanto no remotehost q eh meu servidor ftp quanto no terra isso ocorre ou seja o problema n eh os servidores e sim o componente, ai fiz variso teste e descobri q com o idFTP esse problema n ocorre, mas teria q modificar meu sistema inteiro para trocar, se alguem tiver uma luz para resolver este problema do NMFTP agradeço o executavel baixado pelo remotehost acusa q n eh um aplicativo win32 valido ja baixado pelo terra gera um erro de arquivo do windows e eh fechado fico no aguardo... Leandro... [ Mutuka ] __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Como faço para compartilhar uma past a via código?
Recomendo que leia o help do comando net na ajuda do Windows para maiores detalhes, mas ficará basicamente assim: ShellExecute(0,PChar('net.exe'),PChar(' share DIRETORIO ' + seuDiretorio), nil, nil, SW_HIDE); Digamos que os valores convertidos sejam esses: ShellExecute(0,PChar('net.exe'),PChar(' share FB2.0 ' + 'C:\Firebird2.0\bin'), nil, nil, SW_HIDE); Este comando criará um compartilhamento chamado FB2.0 mapeado no caminho C:\Firebird2.0\bin. Para acessar o compartilhamento há duas formas: através do IP da máquina ou através do nome da mesma. Assim: \\10.0.0.125\FB2.0 ou \\EstacaoSergio\FB2.0 Bem, é isso. Qualquer dúvida quanto aos procedimentos, dê uma procurada no Help do Delphi. Tem muita coisa lá. Abraço e espero ter ajudado. Atenciosamente: Eduardo Cláudio Nicácio Analista Programador JR. Fábrica 02 - CTIS Tel.: (11) 3150-6834 [EMAIL PROTECTED] - Original Message - From: Daniel Lucena To: delphi-br Sent: Thursday, March 08, 2007 4:37 PM Subject: [delphi-br] Como faço para compartilhar uma pasta via código? Olá senhores, Como faço para compartilhar uma pasta via código? Tenho uma aplicação que possui alguns arquivos dentro da pasta, e precisão ser acessados remotamente, porém, preciso fazer o compartilhamento no momento da instalação! Alguma idéia??? obs: não quero mapear unidade, quero apenas compartilhar a pasta Obrigado a todos! Daniel Vitor Eng. de Computação __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Componente para carregar PDF no Delphi
Cara, você pode usar o próprio ActiveX do Acrobat Reader para essa tarefa. Adicione-o à sua paleta ActiveX, insira-o em um form, maximize-o (propriedade align = alClient) e use-o!!! A única limitação é que a máquina onde o programa será instalado deverá ter o Acrobat Reader. Seria interessante que você levasse o componente junto com sua aplicação (tem que ler a licença da Adobe para ver se é permitido), ou colocar como pré-requisito para a instalação da sua aplicação que o computador possua o Acrobat instalado. Só não sei se é viável adicionar o instalador do Acrobat no seu próprio instalador... são 23MB... Abraço. Atenciosamente: Eduardo Cláudio Nicácio Analista Programador JR. Fábrica 02 - CTIS Tel.: (11) 3150-6834 [EMAIL PROTECTED] - Original Message - From: Marcio Cruz To: delphi-br@yahoogrupos.com.br Sent: Thursday, March 08, 2007 4:51 PM Subject: [delphi-br] Componente para carregar PDF no Delphi Alguém conhece? Obrigado [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Sobre Lázarus
Por que então a Borland não co-patrocina o projeto, a exemplo do que fazer a Sun com o NetBeans e a IBM com o Eclipse? Ou não há interesse da Borland em disseminar a SUA plataforma? Não adianta falar que há os Turbo Explorer's da vida, pois são limitados... além disso, NetBeans e Eclipse possuem comunidades enormes, com dezenas de milhares de programadores... será que o Turbo Delphi possui alo parecido? Não está na hora da Borland rever (ao menos uma parte) seu modelo de negócio? Abraços. Atenciosamente: Eduardo Cláudio Nicácio Analista Programador Fábrica 02 - CTIS Tel.: (11) 3150-6834 [EMAIL PROTECTED] - Original Message - From: Andreano Lanusse To: delphi-br@yahoogrupos.com.br Sent: Friday, March 02, 2007 8:10 PM Subject: RE: [delphi-br] Sobre Lázarus depois disso tudo, você ainda acham que é bom? recomendam? Lazarus existe a muito tempo e não evolui quase nada... []'s Andreano [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Executar um comando no dos e aguardar execução
Cara, aqui testei com scripts .bat, que era o escopo original da aplicação. Então sugeri que usássemos componentes Indy, e mantive a opção do usuárioe executar scripts também! Para chamá-la, faça assim: var ExitCode : DWORD; begin if Sto_ShellExecute('cmd.exe', 'C:\SCRIPT\teste.bat', ExitCode, 0, true) then if ExitCode = 0 then MessageBox(0,'Script executado com sucesso!','Fim',MB_OK+MB_ICONINFORMATION) else MessageBox(0,PChar('Erro ao executar o script. Código de saída: ' + IntToStr(ExitCode)),'Erro',MB_OK+MB_ICONERROR); end; Valores passados: 'cmd.exe' - nome do programa 'C:\SCRIPT\teste.bat' - parâmetro (está incompleto) ExitCode - variável DWORD que recebe o código de saída. Código 279 indica Time out, por exemplo. 0 - Tempo de espera em milissegundos true - indica para rodar oculto. A função retorna true ou false. True indica que o procedimento rodou normalmente. False indica que houve uma exceção ou o tempo limite foi atingido (código de saída 279). Se precisar de mais alguma coisa aí dê um grito ;) Abraço. Atenciosamente: Eduardo Cláudio Nicácio Analista Programador Fábrica 02 - CTIS Tel.: (11) 3150-6834 [EMAIL PROTECTED] - Original Message - From: Natanael Rodrigues To: delphi-br@yahoogrupos.com.br Sent: Monday, March 05, 2007 8:34 AM Subject: RES: [delphi-br] Executar um comando no dos e aguardar execução podes mandar um exemplo de como se chama a aplicação? Aqui não ta rodando. Devo estar fazendo algo de errado. Att, -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Edu Nicácio Enviada em: sexta-feira, 2 de março de 2007 17:09 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Executar um comando no dos e aguardar execução Tenho uma função que faz isso aqui e funciona certnho. Sugiro que teste antes de colocar em produção. Segue: -- // FileName : nome do documento ou programa que será aberto. // Parameters: parâmetros de linha de comando. // ExitCode : código de saída da aplicação (disponível apenas se Wait 0). // Wait : maximo de tempo a aguardar, até a aplicação ser finalizada [milissegundos]. // depois de atingido esse tempo, a aplicação é finalizada e // False é retornado como resultado. // 0 = não aguarda a aplicação, retorna imediatamente. // Hide : True = aplicação roda invisível em background. // Result : True = aplicação foi iniciada corretamente // False = aplicação não pôde ser iniciada, ou o Timeout expirou // Source : http://www.martinstoeckli.ch/delphi/delphi.html#AppStart function Sto_ShellExecute(const FileName, Parameters: String; var ExitCode: DWORD; const Wait: DWORD = 0; const Hide: Boolean = False): Boolean; var myInfo: SHELLEXECUTEINFO; iWaitRes: DWORD; begin // prepare SHELLEXECUTEINFO structure ZeroMemory(@myInfo, SizeOf(SHELLEXECUTEINFO)); myInfo.cbSize := SizeOf(SHELLEXECUTEINFO); myInfo.fMask := SEE_MASK_NOCLOSEPROCESS or SEE_MASK_FLAG_NO_UI; myInfo.lpFile := PChar(FileName); myInfo.lpParameters := PChar(Parameters); myInfo.lpDirectory := PChar(ExtractFileDrive(FileName)); if Hide then myInfo.nShow := SW_HIDE else myInfo.nShow := SW_SHOWNORMAL; // start file ExitCode := 0; Result := ShellExecuteEx(@myInfo); // if process could be started if Result then begin // wait on process ? if (Wait 0) then begin iWaitRes := WaitForSingleObject(myInfo.hProcess, Wait); // timeout reached ? if (iWaitRes = WAIT_TIMEOUT) then begin Result := False; TerminateProcess(myInfo.hProcess, 0); end; // get the exitcode GetExitCodeProcess(myInfo.hProcess, ExitCode); end; // close handle, because SEE_MASK_NOCLOSEPROCESS was set CloseHandle(myInfo.hProcess); end; end; -- Abraço. -- Atenciosamente: Eduardo Cláudio Nicácio Analista Programador JR. Fábrica 02 - CTIS Tel.: (11) 3150-6834 [EMAIL PROTECTED] - Original Message - From: Natanael Rodrigues To: delphi-br@yahoogrupos.com.br Sent: Friday, March 02, 2007 10:34 AM Subject: RES: [delphi-br] Executar um comando no dos e aguardar execução EX: ExecAndWait('start G:\BACKUPS\rar.exe', '', SW_SHOW); ExecAndWait('rar a -e G:\BACKUPS\backup.rar *.*', '', SW_SHOW); -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Gabriel Filho Enviada em: sexta-feira, 2 de março de 2007 10:20 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Executar um comando no dos e
Re: [delphi-br] Executar um comando no dos e aguardar execução
Tenho uma função que faz isso aqui e funciona certnho. Sugiro que teste antes de colocar em produção. Segue: // FileName : nome do documento ou programa que será aberto. // Parameters: parâmetros de linha de comando. // ExitCode : código de saída da aplicação (disponível apenas se Wait 0). // Wait : maximo de tempo a aguardar, até a aplicação ser finalizada [milissegundos]. // depois de atingido esse tempo, a aplicação é finalizada e // False é retornado como resultado. // 0 = não aguarda a aplicação, retorna imediatamente. // Hide : True = aplicação roda invisível em background. // Result: True = aplicação foi iniciada corretamente // False = aplicação não pôde ser iniciada, ou o Timeout expirou // Source: http://www.martinstoeckli.ch/delphi/delphi.html#AppStart function Sto_ShellExecute(const FileName, Parameters: String; var ExitCode: DWORD; const Wait: DWORD = 0; const Hide: Boolean = False): Boolean; var myInfo: SHELLEXECUTEINFO; iWaitRes: DWORD; begin // prepare SHELLEXECUTEINFO structure ZeroMemory(@myInfo, SizeOf(SHELLEXECUTEINFO)); myInfo.cbSize := SizeOf(SHELLEXECUTEINFO); myInfo.fMask := SEE_MASK_NOCLOSEPROCESS or SEE_MASK_FLAG_NO_UI; myInfo.lpFile := PChar(FileName); myInfo.lpParameters := PChar(Parameters); myInfo.lpDirectory := PChar(ExtractFileDrive(FileName)); if Hide then myInfo.nShow := SW_HIDE else myInfo.nShow := SW_SHOWNORMAL; // start file ExitCode := 0; Result := ShellExecuteEx(@myInfo); // if process could be started if Result then begin // wait on process ? if (Wait 0) then begin iWaitRes := WaitForSingleObject(myInfo.hProcess, Wait); // timeout reached ? if (iWaitRes = WAIT_TIMEOUT) then begin Result := False; TerminateProcess(myInfo.hProcess, 0); end; // get the exitcode GetExitCodeProcess(myInfo.hProcess, ExitCode); end; // close handle, because SEE_MASK_NOCLOSEPROCESS was set CloseHandle(myInfo.hProcess); end; end; Abraço. Atenciosamente: Eduardo Cláudio Nicácio Analista Programador JR. Fábrica 02 - CTIS Tel.: (11) 3150-6834 [EMAIL PROTECTED] - Original Message - From: Natanael Rodrigues To: delphi-br@yahoogrupos.com.br Sent: Friday, March 02, 2007 10:34 AM Subject: RES: [delphi-br] Executar um comando no dos e aguardar execução EX: ExecAndWait('start G:\BACKUPS\rar.exe', '', SW_SHOW); ExecAndWait('rar a -e G:\BACKUPS\backup.rar *.*', '', SW_SHOW); -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Gabriel Filho Enviada em: sexta-feira, 2 de março de 2007 10:20 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Executar um comando no dos e aguardar execução posta ai como vc esta usando esta funcao Em 02/03/07, Natanael Rodrigues [EMAIL PROTECTED] escreveu: Este eu testei mas não rola... por exemplo o comando start G:\BACKUPS\rar.exe não executa, quando eu rodo pelo winexec ele já executa. sds. -Mensagem original- De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br]Em nome de Gabriel Filho Enviada em: sexta-feira, 2 de março de 2007 09:53 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] Executar um comando no dos e aguardar execução Retirado do Dtdelphi 2.8 Inclua na seção uses: Windows { Esta função faz isto. } function ExecAndWait(const FileName, Params: string; const WindowState: Word): boolean; var SUInfo: TStartupInfo; ProcInfo: TProcessInformation; CmdLine: string; begin { Coloca o nome do arquivo entre aspas. Isto é necessário devido aos espaços contidos em nomes longos } CmdLine := '' + Filename + '' + Params; FillChar(SUInfo, SizeOf(SUInfo), #0); with SUInfo do begin cb := SizeOf(SUInfo); dwFlags := STARTF_USESHOWWINDOW; wShowWindow := WindowState; end; Result := CreateProcess(nil, PChar(CmdLine), nil, nil, false, CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil, PChar(ExtractFilePath(Filename)), SUInfo, ProcInfo); { Aguarda até ser finalizado } if Result then begin WaitForSingleObject(ProcInfo.hProcess, INFINITE); { Libera os Handles } CloseHandle(ProcInfo.hProcess); CloseHandle(ProcInfo.hThread); end; end; - Exemplo de uso:
Re: [delphi-br] OFF TOPIC... PENTIUN´s.....
Depende da aplicação. Se ela foi desenvolvida tendo em vista um sistema multi-processado (como os dual core) deveria exibir uma melhor performance quando executando sobre este hardware. Se ela não foi desenvolvida com multiprocessamento em mente, geralmente há uma degradação da performance, pois o sistema operacional gastará mais recursos para gerenciar a execução desse programa em dois processadores. Dando uma olhada na net devemos achar material, benchmarks, etc, a respeito. Alguns bons sites: www.xbitlabs.com www.tomshardware.com www.anandtech.com www.viperlair.com www.clubedohardware.com.br E outros mais. Abraço. Atenciosamente: Eduardo Cláudio Nicácio Analista Programador JR. Fábrica 02 - CTIS Tel.: (11) 3150-6834 [EMAIL PROTECTED] - Original Message - From: Walter Alves Chagas Junior [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Wednesday, February 28, 2007 8:13 AM Subject: RES: [delphi-br] OFF TOPIC... PENTIUN´s. Aplicações científicas Eu mesmo tinha dito que reparei uma lentidão adicional no AltoQi que a minha esposa usa no Pentium Dual Core. Não sei te dizer então se as aplicações científicas sofrem algum impacto com esta arquitetura de processador. []s Walter Alves Chagas Junior Projeto e desenvolvimento de sistemas Telemont Engenharia de telecomunicações S/A Belo Horizonte - MG - Brasil [EMAIL PROTECTED] Fone: (31) 3389-8217 Fax: (31) 3389-8215 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Edu Nicácio Enviada em: terça-feira, 27 de fevereiro de 2007 21:05 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] OFF TOPIC... PENTIUN´s. Exatamente Walter. Agora estão aparecendo alguns jogos que utilizam pesadamente multiprocessamento. Antes deles, apenas o Quake III. Aplicações que se dão melhor com um Dual Core: Bancos de Dados Servidores de aplicações Java Aplicações científicas Aplicações multimídia Geoprocessamento Programas de agendamento (batch) Aqui mesmo na Telefonica são poucos os sistemas que utilizam algum módulo pesadamente baseado em multithreading. Então, não podemos apenas basear a performance de um processador apenas pela pontuação que ele conseguiu em determinado benchmark. Alguns softwares farão melhor uso de múltiplas CPUs que outros. Mas Escobar, para sanar suas dúvidas, se não estou tão desatualizado, segue uma listinha: Pentium 4 Série 5xx - ??? Pentium 4 Série 6xx - Série de 64 bits com 2MB de cache. Não é dual core. Processo de 90nm. Pentium 4 Série 7xx - Antigos Extreme Edition com suporte a 64bits, HT e 3MB de cache L3. Processo de 90nm. Pentium 4 Série D 8xx - Dual core com 2MB de cache, 64 bits, não suporta HT, com exceção dos modelos Extreme Edition. Processo de 90nm. Pentium 4 Série D 9xx - Dual core com 4MB de cache, 64 bits, suporta HT apenas nos modelos Extreme Edition. Processo de 65nm. Intel Core Solo - Baseados na arquitetura do Pentium M. 64 bits, não suporta HT. Um único core. 2MB de cache. Intel Core Duo - Idem. 64 bits, não possui HT. 2 cores, podendo ter 2 ou 4MB de cache L2 compartilhado. AMD Athlon 64 - 64bits, até 1MB de cache L2. Single core. Instruções SSE2, SSE3 e SSE4. Não possui HT. Controladora de memória integrada. AMD Athlon 64 X2 - 64 bits, até 2MB de cache L2. Dual core. Instruções SSE2, SSE3 e SSE4. Não possui HT. Controladora de memória integrada. AMD Turion 64 - 64 bits, até 1MB de cache L2. Mesmas instruções. Apenas para notebooks. Acho que é isso. Se errei em alguma descrição, me desculpe, não tive tempo de pesquisar mais a fundo. Espero ter ajudado. Um abraço. Atenciosamente: Eduardo Cláudio Nicácio Analista Programador JR. Fábrica 02 - CTIS Tel.: (11) 3150-6834 [EMAIL PROTECTED] - Original Message - From: Walter Alves Chagas Junior [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Tuesday, February 27, 2007 3:59 PM Subject: RES: [delphi-br] OFF TOPIC... PENTIUN´s. Eu acredito plenamente que os Dual sei lá das contas, tem um propósito que NÃO NECESSÁRIAMENTE PRECISA abranger a toda a gama de aplicativos que o utilizem. Uma base de dados Firebird ou SQL Server vai ser uma boa pedida no Dual. Mas será que um contas a pagar aí da vida demandaria tanto??? O foda disso tudo é o tal do vendedor com o tal do cartola []s Walter Alves Chagas Junior Projeto e desenvolvimento de sistemas Telemont Engenharia de telecomunicações S/A Belo Horizonte - MG - Brasil [EMAIL PROTECTED] Fone: (31) 3389-8217 Fax: (31) 3389-8215 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Luiz Escobar Enviada em: terça-feira, 27 de fevereiro de 2007 15:31 Para: [YAHOO] Delphi BR Assunto: [delphi-br
Re: [delphi-br] OFF TOPIC... PENTIUN´s.....
Exatamente Walter. Agora estão aparecendo alguns jogos que utilizam pesadamente multiprocessamento. Antes deles, apenas o Quake III. Aplicações que se dão melhor com um Dual Core: Bancos de Dados Servidores de aplicações Java Aplicações científicas Aplicações multimídia Geoprocessamento Programas de agendamento (batch) Aqui mesmo na Telefonica são poucos os sistemas que utilizam algum módulo pesadamente baseado em multithreading. Então, não podemos apenas basear a performance de um processador apenas pela pontuação que ele conseguiu em determinado benchmark. Alguns softwares farão melhor uso de múltiplas CPUs que outros. Mas Escobar, para sanar suas dúvidas, se não estou tão desatualizado, segue uma listinha: Pentium 4 Série 5xx - ??? Pentium 4 Série 6xx - Série de 64 bits com 2MB de cache. Não é dual core. Processo de 90nm. Pentium 4 Série 7xx - Antigos Extreme Edition com suporte a 64bits, HT e 3MB de cache L3. Processo de 90nm. Pentium 4 Série D 8xx - Dual core com 2MB de cache, 64 bits, não suporta HT, com exceção dos modelos Extreme Edition. Processo de 90nm. Pentium 4 Série D 9xx - Dual core com 4MB de cache, 64 bits, suporta HT apenas nos modelos Extreme Edition. Processo de 65nm. Intel Core Solo - Baseados na arquitetura do Pentium M. 64 bits, não suporta HT. Um único core. 2MB de cache. Intel Core Duo - Idem. 64 bits, não possui HT. 2 cores, podendo ter 2 ou 4MB de cache L2 compartilhado. AMD Athlon 64 - 64bits, até 1MB de cache L2. Single core. Instruções SSE2, SSE3 e SSE4. Não possui HT. Controladora de memória integrada. AMD Athlon 64 X2 - 64 bits, até 2MB de cache L2. Dual core. Instruções SSE2, SSE3 e SSE4. Não possui HT. Controladora de memória integrada. AMD Turion 64 - 64 bits, até 1MB de cache L2. Mesmas instruções. Apenas para notebooks. Acho que é isso. Se errei em alguma descrição, me desculpe, não tive tempo de pesquisar mais a fundo. Espero ter ajudado. Um abraço. Atenciosamente: Eduardo Cláudio Nicácio Analista Programador JR. Fábrica 02 - CTIS Tel.: (11) 3150-6834 [EMAIL PROTECTED] - Original Message - From: Walter Alves Chagas Junior [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Tuesday, February 27, 2007 3:59 PM Subject: RES: [delphi-br] OFF TOPIC... PENTIUN´s. Eu acredito plenamente que os Dual sei lá das contas, tem um propósito que NÃO NECESSÁRIAMENTE PRECISA abranger a toda a gama de aplicativos que o utilizem. Uma base de dados Firebird ou SQL Server vai ser uma boa pedida no Dual. Mas será que um contas a pagar aí da vida demandaria tanto??? O foda disso tudo é o tal do vendedor com o tal do cartola []s Walter Alves Chagas Junior Projeto e desenvolvimento de sistemas Telemont Engenharia de telecomunicações S/A Belo Horizonte - MG - Brasil [EMAIL PROTECTED] Fone: (31) 3389-8217 Fax: (31) 3389-8215 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Luiz Escobar Enviada em: terça-feira, 27 de fevereiro de 2007 15:31 Para: [YAHOO] Delphi BR Assunto: [delphi-br] OFF TOPIC... PENTIUN´s. Não creio que seja tão OFF assim, afinal to vendo muita gente reclamando do DELPHI com os DUAL CORE´s... Agora gente, essa INTEL também não resolve... TEMOS: Pentium4 - HT Pentium - D Dual Core Core 2 Dual Core 2 Quad Agora o que me intriga mais ainda, qual é a diferença entre P4-HT, P-D, Dual-Core, Core 2 Dual. Ainda não achei ninguem com uma explicação boa sobre as diferenças entre eles Sem conta é qual deles tem a melhor performance, para ambiente grafico 3D (OpenGL e Direct-X), um amigo comprou um Pentium-D (805 acho) tudo bem ele é 2.66, FSB533 e meu Pentium4-HT é 3.0ghz FSB800, dá um show nele.. na hora de por pra processar algo pessado, (jogo com OPENGL ou DIRECTX) por exemplo, audio (cooledit/stream)... sem conta as linhas EXTREME... mas deixa elas quetas... Luiz Escobar Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase DOS - Clipper/Assembler xBase SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k LINUX - LAZARUS/Kylix/MySQL; http://www.megasistema.com.br -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito
Re: [delphi-br] Componentes Edit com fontes free.
Os componentes Jedi não servem? Há o JvValidator para validar praticamente qualquer campo de formulário. Dê uma olhada. Abraço. Atenciosamente: Eduardo Cláudio Nicácio Analista Programador JR. Fábrica 02 - CTIS Tel.: (11) 3150-6834 [EMAIL PROTECTED] - Original Message - From: [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Thursday, February 22, 2007 7:45 PM Subject: [delphi-br] Componentes Edit com fontes free. Colegas Alguem tem alguma fonte de componente edit para me disponibilizar por favor? Ou se isso é pedir muito, alguem tem um tutorial para eu mesmo montar meus componentes edit para valor, data, cnpj, cpf etc? Muito obrigado. []´s Tiano. ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Registro do Windows
Duas coisas estão ocorrendo no seu código abaixo: 1º - Vc tem que ter permissão de gravação no Registry. Usuários avançados, depuradores e administradores possuem essa permissão; 2º - Antes de abrir a chave especificada, você deve informar a chave raiz, assim: const MyKey = 'SOFTWARE\EDUARDO\PROGRAMA'; var Reg : TRegistry; begin //cria um novo objeto TRegistry Reg := TRegistry.Create; try //altere para a chave que vc quiser. Essas são constantes numéricas. Reg.RootKey := HKEY_LOCAL_MACHINE //se conseguir abrir a chave (segundo parametro false indica para não criá-la) if Reg.OpenKey(MyKey,false) then begin //TODO seu código aqui end else //se não conseguir abrir a chave, mostra uma mensagem de erro ao usuário MessageBox(0,'Não foi possível abrir a chave do registro do Windows!','Erro',MB_OK+MB_ICONERROR); finally //descarrega o recurso Reg.Free; end; end; Qualquer coisa dá um grito aí que te explico melhor. Abraço. - Original Message - From: Ronaldo Assis Alves To: delphi-br@yahoogrupos.com.br Sent: Friday, February 16, 2007 8:27 PM Subject: [delphi-br] Registro do Windows Pessoal, Estou com um problema. Preciso gravar uma informação no registro do Windows sempre que for iniciar um programa, então fiz uma interface para que o usuário escolha o programa e quando confirmar, o meu aplicativo faça das devidas alterações no registro do Windows e em seguida chame o programa. Este é o código, ele compila e executa sem problemas, mas quando vou verificar no registro do windows, ele não muda nada... procedure TForm1.ListBox1KeyPress(Sender: TObject; var Key: Char); const Raiz : String = 'HKEY_LOCAL_MACHINE\SOFTWARE\Ambev\SIV'; var Registro : TRegistry; f:textfile; a:String; begin a:=extractfilepath(paramstr(0))+'\siv.bat'; system.assignfile(f,a); system.rewrite(f); if key=#13 then begin registro:=tregistry.Create; registro.OpenKey(raiz,true); if listbox1.ItemIndex=0 then begin registro.WriteString('DiretorioSistema','\\server\siv_server\'); registro.WriteString('DirArquivoP','p:\Promax\int\1897004\gmr\pmt\'); registro.WriteString('DirCargaMapeado','\\server\siv_server\Carga\'); registro.WriteString('DirCopiaLocal','C:\SIV\Copiados\'); registro.WriteString('DirDescargaLocal','C:\SIV\Descarga\'); registro.WriteString('DirDescargaRemota','c:\SIV\Descarga\Remoto\'); registro.WriteString('DirDescargaServer','\\server\siv_server\Descarga\'); registro.WriteString('DirTransmitidos','C:\SIV\Transmitidos\'); registro.WriteString('DirVersoesMapeado','\\server\siv_server\Versoes\'); system.writeln(f,'start \\server\siv_server\default.hta'); end else begin registro.WriteString('DiretorioSistema','\\promax\siv_server\'); registro.WriteString('DirArquivoP','p:\Promax\int\1897104\gmr\pmt\'); registro.WriteString('DirCargaMapeado','\\promax\siv_server\Carga\'); registro.WriteString('DirCopiaLocal','C:\SIV\Copiados\'); registro.WriteString('DirDescargaLocal','C:\SIV\Descarga\'); registro.WriteString('DirDescargaRemota','c:\SIV\Descarga\Remoto\'); registro.WriteString('DirDescargaServer','\\promax\siv_server\Descarga\'); registro.WriteString('DirTransmitidos','C:\SIV\Transmitidos\'); registro.WriteString('DirVersoesMapeado','\\promax\siv_server\Versoes\'); system.writeln(f,'start \\promax\siv_server\default.hta'); end; system.CloseFile(f); registro.CloseKey; registro.Free; winexec('siv.bat',sw_hide); sleep(2000); application.terminate; end; end; Alguém sabe se este método está furado ou se falta alguma coisa? Ou alguma dica de como mesclar um arquvo .REG sem confirmação já ajuda Obrigado Ronaldo Assis [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] OFF TOPIC - INSTALAR Servico
Aí eu teria que dar uma estudada mais a fundo para ver se há outros parâmetros que podem ser passados ao serviço no momento da sua instalação. Vou dar uma caçada aqui e qualquer coisa posto aqui na lista. Abraço, e que bom que ajudei. Boa sorte aí... Atenciosamente: Eduardo Cláudio Nicácio Analista Programador JR. Fábrica 02 - CTIS Tel.: (11) 3150-6834 [EMAIL PROTECTED] - Original Message - From: Gabriel Filho To: delphi-br@yahoogrupos.com.br Sent: Thursday, February 08, 2007 10:49 AM Subject: Re: [delphi-br] OFF TOPIC - INSTALAR Servico Ok, Muito obrigado... mas no qdo ele executar a instalacao do servico não vai aparecer aquela mensagem em ingles dizendo que o o servico foi instalado com sucesso? pois eu queria eveitar isso. Ou não tem como? Em 08/02/07, Edu Nicácio [EMAIL PROTECTED] escreveu: Sim. Use o IS Tool para, no momento da instalação, após a gravação dos arquivos no diretório correspondente, ele executar o seu serviço passando o parâmetros de instalação. O trecho do script fica mais ou menos assim: [Run] Filename: {app}\ctis_service.exe; Flags: waituntilidle shellexec runhidden; Parameters: /INSTALL; WorkingDir: {app}; MinVersion: 0, 4.0.1381sp6 Filename: {sys}\net.exe; Parameters: start CTIS FTP Scheduler Service; WorkingDir: {sys}; Flags: shellexec waituntilidle runhidden; MinVersion: 0,4.0.1381sp6; Languages: Lembre-se de colocar esse bloco após o bloco [Files]. Outra coisa. Você pode iniciar seu serviço automaticamente chamando net.exe e passando como parâmetros start Seu serviço. Na remoção, faça o processo inverso, ou seja, use net.exe com os parãmetros stop Seu serviço e depois desinstale-o. Dê uma olhada: [UninstallRun] Filename: {sys}\net.exe; Parameters: stop CTIS FTP Scheduler Service; WorkingDir: {sys}; Flags: shellexec waituntilidle runhidden; MinVersion: 0,4.0.1381sp6; Languages: Filename: {app}\ctis_service.exe; Parameters: /UNINSTALL; WorkingDir: {app}; MinVersion: 0,4.0.1381sp6; Languages: ; Flags: waituntilidle shellexec runhidden Espero ter ajudado. Abraços. -- Atenciosamente: Eduardo Cláudio Nicácio Analista Programador JR. Fábrica 02 - CTIS Tel.: (11) 3150-6834 [EMAIL PROTECTED] rsn01.web03%40telesp.com.br - Original Message - From: Gabriel Filho To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Thursday, February 08, 2007 9:59 AM Subject: [delphi-br] OFF TOPIC - INSTALAR Servico Bom dia pessoal... Parece q tem bastante gente perguntando sobreo innosetup, mas fazer oq?? Gostaria de saber se alguem sabe se da pra criar um instalador de servico com o innosetup??? Desde já agradeço [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] [Off-topic] Programa para criar ap resentação de sistemas
Gostaria apenas de lembrá-los que pirataria (cracks, seriais, keygens, etc) não é permitida na lista. Pensem se gostariam de gastar 2.000 horas desenvolvendo um sistema para que inúmeras pessoas não pagassem nada por ele. Não sei vocês, mas desenvolvimento é meu ganha pão... Abraços. Atenciosamente: Eduardo Cláudio Nicácio Analista Programador JR. Fábrica 02 - CTIS Tel.: (11) 3150-6834 [EMAIL PROTECTED] - Original Message - From: Elazar Dornelles Ceza To: delphi-br@yahoogrupos.com.br Sent: Friday, February 09, 2007 7:34 AM Subject: RES: [delphi-br] [Off-topic] Programa para criar apresentação de sistemas Bom dia; Tenho interesse, tens como enviar uma copia ou link pra que possa baixar. Atenc. Elazar -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Juliana Duque Enviada em: quinta-feira, 8 de fevereiro de 2007 23:05 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] [Off-topic] Programa para criar apresentação de sistemas Olá.. Eu tenho o Camtasia, e é muito bom mesmo... tenho o crack dele.. se quiser, posso enviar num ftp.. []'s, Juliana Ricardo Berti [EMAIL PROTECTED] escreveu: Olá, Segundo a crítica, um dos melhores que tem é o Camtasia, mas se não m engano é pago! Mas é um bom software! Dá uma busca no Google que você acha rapidinho Bom Código Berti... Ricardo Berti - Original Message - From: Leonardo - Lalur informática To: delphi-br@yahoogrupos.com.br Sent: Thursday, February 08, 2007 5:11 PM Subject: [delphi-br] [Off-topic] Programa para criar apresentação de sistemas Boa tarde pessoal! Vocês utilizam algum programa daqueles que vai gravando o que você faz no micro e grava voz também para criar apresentações de sistemas?? Caso sim, existe algum free? Aguardo retorno, obrigado! Leonardo [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Carga horária programador
Existe sim, o SINDPD. Dê uma procurada que você acha o contato com os caras. Abraços. Atenciosamente: Eduardo Cláudio Nicácio Analista Programador JR. Fábrica 02 - CTIS Tel.: (11) 3150-6834 [EMAIL PROTECTED] - Original Message - From: Humberto To: delphi-br@yahoogrupos.com.br Sent: Wednesday, February 07, 2007 11:24 AM Subject: Re: [delphi-br] Carga horária programador Q eu saiba isso é definido pelo Sindicato.. mas não sei nem qual o sindicato e nem se existe algum site sobre isso. Tb estou interessado no assunto. - Original Message - From: Marcos André To: delphi-br@yahoogrupos.com.br Sent: Wednesday, February 07, 2007 9:39 AM Subject: [delphi-br] Carga horária programador Olá Pessoal, gostaria de saber se existe alguma lei que define a carga horária semanal de um programador, será que alguém pode me dizer ou enviar um link, algo que responda esta pergunta? Muito obrigado... -- Um abraço Marcos André [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.432 / Virus Database: 268.17.28/672 - Release Date: 6/2/2007 10:22 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] OFF TOPIC - INSTALAR Servico
Sim. Use o IS Tool para, no momento da instalação, após a gravação dos arquivos no diretório correspondente, ele executar o seu serviço passando o parâmetros de instalação. O trecho do script fica mais ou menos assim: [Run] Filename: {app}\ctis_service.exe; Flags: waituntilidle shellexec runhidden; Parameters: /INSTALL; WorkingDir: {app}; MinVersion: 0,4.0.1381sp6 Filename: {sys}\net.exe; Parameters: start CTIS FTP Scheduler Service; WorkingDir: {sys}; Flags: shellexec waituntilidle runhidden; MinVersion: 0,4.0.1381sp6; Languages: Lembre-se de colocar esse bloco após o bloco [Files]. Outra coisa. Você pode iniciar seu serviço automaticamente chamando net.exe e passando como parâmetros start Seu serviço. Na remoção, faça o processo inverso, ou seja, use net.exe com os parãmetros stop Seu serviço e depois desinstale-o. Dê uma olhada: [UninstallRun] Filename: {sys}\net.exe; Parameters: stop CTIS FTP Scheduler Service; WorkingDir: {sys}; Flags: shellexec waituntilidle runhidden; MinVersion: 0,4.0.1381sp6; Languages: Filename: {app}\ctis_service.exe; Parameters: /UNINSTALL; WorkingDir: {app}; MinVersion: 0,4.0.1381sp6; Languages: ; Flags: waituntilidle shellexec runhidden Espero ter ajudado. Abraços. Atenciosamente: Eduardo Cláudio Nicácio Analista Programador JR. Fábrica 02 - CTIS Tel.: (11) 3150-6834 [EMAIL PROTECTED] - Original Message - From: Gabriel Filho To: delphi-br@yahoogrupos.com.br Sent: Thursday, February 08, 2007 9:59 AM Subject: [delphi-br] OFF TOPIC - INSTALAR Servico Bom dia pessoal... Parece q tem bastante gente perguntando sobreo innosetup, mas fazer oq?? Gostaria de saber se alguem sabe se da pra criar um instalador de servico com o innosetup??? Desde já agradeço [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Abrir form antes do principal
Velhinho, não vou me alongar muito aqui, mas o que estou imaginando é que você quer cadastrar a empresa que adquiriu seu software, certo? Então faça o seguinte: Crie um formulário chamado frmLicenca Insira nele os campos necessários para cadastramento: Por exemplo: Nome Data de aquisição CGC/CNPJ Endereço Telefone Contato No evento OnCreate desse form, introduza um código mais ou menos assim: cont SUA_EMPRESA_KEY : 'SOFTWARE\SUA_EMPRESA\SEU_SISTEMA'; var Reg : TRegistry; begin Reg := TRegistry.Create; try Reg.RootKey := HKEY_LOCAL_MACHINE; if Reg.OpenKey(SUA_EMPRESA_KEY,false) then begin if Reg.ReadInteger('Licenciado') = 1 //está licensiado then exit else MessageBox('O produto não está licensiado. Por favor, preencha o formulário...','Produto não licenciado',MB_OK+MB_ICONWARNING); end; finally Reg.Free; end; No evento OnClick do botão btnCadastro do seu form de cadastro da licença, digite algo como: procedue TfrmLicenca.btnCadastroClick(Sender: TObject); var Reg : TRegistry; begin // Procedimento igual ao anterior Reg := TRegistry.Create; try Reg.RootKey = HKEY_LOCAL_MACHINE; //true indica que a chave deve ser criada caso não exista if Reg.OpenKey(SUA_EMPRESA_KEY,true) then begin //grava informações da empresa Reg.WriteString('Empresa',edtNomeEmpresa.Text); Reg.WriteBinary('DataAquisição',StrToDateTime(edtDataAquisicao.Text)); Reg.WriteBinary('CGC-CNPJ',edtCGC-CNPJ.Text); Reg.WriteString('Endereco',edtEndereco.Text); Reg.WriteString('Telefone',edtTelefone.Text); Reg.WriteString('Contato',edtContato.Text); //indica que está licenciado Reg.WriteInteger('Licenciado',1); end; finally Reg.Free; end; end; Pronto. Cada vez que seu programa for executado o formulário de verificação de licença será executado e, caso verifique que há uma licença válida, segue carregando os demais forms. Na unidade principal do seu projeto (program) utilize a mesma lógica que é usada em splash forms no Delphi. Você encontra inúmeros exemplos na internet... me recuso a colocar código aqui. Espero ter ajudado. Um abraço. Atenciosamente: Eduardo Cláudio Nicácio Analista Programador JR. Fábrica 02 - CTIS Tel.: (11) 3150-6834 [EMAIL PROTECTED] - Original Message - From: Edison DRP To: delphi-br@yahoogrupos.com.br Sent: Sunday, February 04, 2007 9:11 PM Subject: Re: [delphi-br] Abrir form antes do principal Simplificando ao máximo: Ao iniciar seu sistema, verifique se já existe empresa cadastrada, e não havendo, mostre o form de cadastramento. se já houver não mostre. Edison - Original Message - From: nillgolv [EMAIL PROTECTED] To: delphi-br delphi-br@yahoogrupos.com.br Sent: Sunday, February 04, 2007 3:26 PM Subject: [delphi-br] Abrir form antes do principal Pessoal, Venho pedir uma ajuda pois não consigo fazer, algo que ja vi em software. Quero que após ter isntalado o projeto, que ao executa-lo após a instalação, ele da show do form cadastro da empresa, sendo assim após já ter cadastrado ele não apresente mais o form ao abrir o projeto e se precisar de abrir depois que seja no menu. Acredito que deu para entender. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Chamar form pelo nome. Help-me!
Já deu uma olhada nas mensagens de 10 dias atrás??? Abraço. Atenciosamente: Eduardo Cláudio Nicácio Analista Programador JR. Fábrica 02 - CTIS Tel.: (11) 3150-6834 [EMAIL PROTECTED] - Original Message - From: thi_nazireu To: delphi-br@yahoogrupos.com.br Sent: Monday, January 29, 2007 11:51 AM Subject: [delphi-br] Chamar form pelo nome. Help-me! Galera, boa tarde! to com um problema aqui. Vcs sabem como acessar um form pelo nome? situação: Quero acessar determinados forms por parâmentro, para isso terei uma lista onde é difinido o nome do form a ser acessado, referenciado pelo seu parametro. ex: parametro: FORMULARIO-1 = form1 assim o parametro que irei passar eh FORMULARIO-1 e entao sera chamado o form1 atraves de uma funcao generica: Application.CreatForm('T'+nomeform, nomeform); Application.ShowModal. onde nomeform é uma variável do tipo string tem como converter essa string em TClass e TForm.. ou mesmo acessar dessa maneira?? é possível fazer algo assim? Aguardo sugestões. Obrigado a todos. Thiago Filiano 11-8288-4402 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Componente que analise estrutura de dois bancos e gera sql para sincronizar.
Procure por IBComparer ou algo assim. Saiu um tempo atrás na ClubeDelphi. Abraços. -- Edu Nicácio - Original Message - From: scarvalh2707 To: delphi-br@yahoogrupos.com.br Sent: Tuesday, January 30, 2007 7:05 PM Subject: [delphi-br] Re: Componente que analise estrutura de dois bancos e gera sql para sincronizar. Caro Jorge, Se voce descubrir um programa que faz isso me avise, pois seria uma mão na roda para mim. Tenho que atualizar frequentemente 15 bancos de dados firebird, a solução foi criar um programa que se conecta automaticamente a cada um deles e roda um script, padronizando as bases de dados. Boa sorte. Sérgio Ricardo Andrade de Carvalho Justiça Federal - SP --- Em delphi-br@yahoogrupos.com.br, Jorge Ericsson [EMAIL PROTECTED] escreveu Quais bancos vc utiliza ? Se tiver algo como Firebird ou Interbase, vc poderá usar o IBPump. []´s 2007/1/30, Ricardo Lima Mariz [EMAIL PROTECTED]: Pessoal alguem conhece algum componente que checa a estrutura de dois bancos de dados ou banco e script e gere a Sql de update para os dois ficarem sincronizados, pretendo fazer isso para fazer update do banco de dados. At. Ricardo [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Banco apropriado
A versão free do DB2 (IBM) não tem limitação quanto ao tamanho do banco de dados. Suas limitações são: Usa no máximo 4GB de RAM Usa no máximo 2 processadores Essa questão de processadores pode ser facilmente resolvida com os Xeon ou Opteron multi-core... já quanto à limitação de 4GB de RAM, deve ser feito um estudo mais elaborado sobre os problemas que isso pode causar. Maquininha legal para esse volume de dados: 2 Intel Xeon 5300 (4 núcleos cada) 8GB de RAM 3 HDs SCSI 15.000rpm e 150GB em RAID 5 (300GB livres totais, 150GB para replicação) 2 Interfaces Giga-Ethernet http://www.supermicro.com/products/nfo/multi-core.cfm?pg=SS http://www.micronsistemas.com.br/micdualserver_07.htm Abraço. Atenciosamente: Eduardo Cláudio Nicácio Analista Programador JR. Fábrica 02 - CTIS Tel.: (11) 3150-6834 [EMAIL PROTECTED] - Original Message - From: Eduardo To: delphi-br@yahoogrupos.com.br Sent: Saturday, January 27, 2007 6:13 PM Subject: Re: [delphi-br] Re: Banco apropriado A versão FREE do Oracle tem limite de tamanho, acho que com esta quantidade de registro deve superar fácil o tamanho máximo. Eduardo Ricardo Bianchin escreveu: Pois eh, vai da historia pessoal do programador, com o q ele ja conviveu eu ia responder q eu experimentaria o firebird pra ver como se comporta pois ateh agora nao me decepcionou mas a minha maior tabela tem so 100.000 registros nao tudo aquilo e tb nao experimentei com 500 conexoes simultaneas! Ja q vc citou o MySQL desconfio q estes dois free se equiparem e a versao free do oracle? to por fora. vale conferir? ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Robustex do banco
Dêem uma olhada na SQL Magazine de dezembro. Foi feita uma comparação entre: MySQL PostgreSQL Firebird SQLServer 2005 Express Oracle 10g Express IBM DB2 Express O resultado? Depende da utilização do banco. Aconselho a lerem. Abraço. Eduardo C. Nicácio - Original Message - From: Fellipe Henrique To: delphi-br@yahoogrupos.com.br Sent: Thursday, January 25, 2007 10:03 PM Subject: Re: [delphi-br] Robustex do banco Bem, quanto à potencia do banco nao há o que discutir da IBM e do Oracle... mas se estourar o tamanho do Free, deverão comprar um normal, aí que o bicho pega... o SQL Server é mais barato que os das IBM e o Oracle ou estou errado? []s Em 25/01/07, Francisco Thiago [EMAIL PROTECTED] escreveu: Desculpem cair de paraquedas... ... Mas se for pra deixar de usar o Firebird ou PostGress com o argumento de usar um banco grande free... Você tem escolhas melhores que SQL Server... Entre elas, destaco o DB2 da IBM (Veja bem, estamos falando da IBM!) e o Oracle XE (acho que é este mesmo o nome da versão Free do ORACLE)... Antes de usar o SQLServer, lembre-se que a Microsoft é a mesma responsável pelo Windows e pelo Access! Quanto a aguentar mais de 500 clientes concorrentes (concorrendo a quem ferra o banco primeiro, claro), acredito que o Firebird 1.5.4 já dê conta do recado sim... O 1.0 já não sei e o 2.0 não sou testemunha para falar qqr coisa dele. []'s Francisco Thiago de Almeida Se é verdade que todos os caminhos levam a Deus, porque será que nem todas estradas levam ao mesmo lugar? - Original Message - From: Fellipe Henrique Cara, seguinte opinião própria e vivida neste assunto... parte para SQL Express, gratuito até 4GB, e suporta muito mais conexões que Firebird, MySQL, Postgress e tals... Se a base passar dos 4GB, o seu cliente, terá dinheiro pra comprar a versão normal do SQL Server na boa... pra aplicações grandes o melhor mesmo eh SGBDs grandes... []s Fellipe H. Em 25/01/07, Alessandro DUARTE de Moraes [EMAIL PROTECTED]duarte%40santacasarg.com.br escreveu: Cara, o volume de dados não é problema, mas sim o número de acessos. Sei que a versão 1.0 do Firebird não aguentaria muito bem esse tranco, mas não sei te dizer como a 2.0 se comporta ... creio que já possa suportar. O que certamente tens que tomar cuidado é com o servidor e a estrutura da tua rede, pois o servidor precisa ser uma máquina boa de processamento e ter placas de rede e switchs confíáveis. Vi alguém comentar sobre o PostGres ... cara, não sei se foi alguma burrice minha, mas já testei uma vez esse banco e achei muito ruim o acesso dele, principalmente com um volume de gravações e exclusões grandes ... na versão que usei precisava executar um tal de vacuum (acho que é assim que se escreve) para o banco reestruturar os índices ... achei isso simplesmente ridículo. Trabalho também com MySql, e acho que pode ser uma opção, embora creio que deve estar no mesmo nível que o Firebird 2.0. Para tirar essa dúvida visite o site www.firebase.com.br que deve ter algum DOC sobre isso, ou então faça uma consulta ao Cantú (dono do site) que tem um ótimo conhecimento nesse banco. Abraços, Alessandro. - Original Message - From: Aldinei Simoes To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br%40yahoog rupos.com.br Sent: Thursday, January 25, 2007 7:44 AM Subject: [delphi-br] Robustex do banco Bom dia Tenho uma aplicação rodando D7 mais firebird com 90 clientes concorrentes com muitas transações, preciso implementar esta aplicação em outro cliente que tera uma base de 10.000.000 de registros e 500 clientes concorrentes, o firebird suporta?, caso contrato qual seria indicado Aldinei -- ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/ -- _ Fellipe Henrique [EMAIL PROTECTED] Venham até a borda, ele disse. Eles disseram: Nós temos medo. Venham até a borda, ele insistiu. Eles foram, Ele os empurrou... E eles voaram. (Guillaume Apollinaire) [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Desmembrar string
Jeito mais fácil ainda (não esqueça de declarar a unidade StrUtils em uses): var Strings : TStringList; i : integer; begin Strings := TStringList.Create; try ExtractStrings(['\'],[' '],Pchar(sua_string),Strings); //manipula a StringList aqui finally Strings.Free; end; end; O procedimento ExtractStrings recebe como parâmetros os seguintes valores: 1º - Caractere separador ('\') 2º - Caractere de espaço em branco (' ') 3º - Sua string (usando PChar(sua_string)) 4º - Uma StringList que receberá as strings separadas. Espero ter ajudado. Abraço. Atenciosamente: Eduardo Cláudio Nicácio Analista Programador JR. Fábrica 02 - CTIS Tel.: (11) 3150-6834 [EMAIL PROTECTED] - Original Message - From: Eduardo To: delphi-br@yahoogrupos.com.br Sent: Wednesday, January 24, 2007 7:02 PM Subject: Re: [delphi-br] Desmembrar string Ta na mão. function SeparaTexto(pTexto : String; pSeparador : Char) : TStringList; var i : Integer; s : String; begin s := ''; for i := 1 to Length(pTexto) do begin if pTexto[i] pSeparador then s := s + pTexto[i] else begin Result.Add(Trim(s)); s := ''; end; end; end; Eduardo Lucas escreveu: Preciso desmembrar o caminho de pastas de arquivos, exemplo: tenho uma string com \pasta1\arquivos\dados preciso separar isto em 3 strings: pasta1 arquivos dados lembrando que não da pra usar o copy porque os nomes das pastas podem ser de varios tamanhos. Alguém tem uma dica? Desde ja agradeço. Lucas. ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/ [As partes desta mensagem que não continham texto foram removidas]