[delphi-br] Podem me ajudar? Form Transparente, dúvida de aprendiz!
Olá Pessoal! Bem gente estou tentando inserir um form transparente na aplicação que estou desenvolvendo, o exemplo abaixo retirei lá do planeta delphi, mas devido ao meu pouco conhecimento não estou conseguindo. Por favor podem me dar uma mão? Como implementar a situação abaixo? atenciosamente, werelli procedure TransparentForm; // // Gera um form transparente. // Requer a referencia do form em sua declaração tipo: // // procedure TForm1.InvisibleForm; // ^ // var FullRgn, ClientRgn, ButtonRgn: THandle; Margin, X, Y: Integer; begin Margin := (Width - ClientWidth) div 2; FullRgn := CreateRectRgn(0, 0, Width, Height); X := Margin; Y := Height - ClientHeight - Margin; ClientRgn := CreateRectRgn(X, Y, X + ClientWidth, Y + ClientHeight); CombineRgn(FullRgn, FullRgn, ClientRgn, RGN_DIFF); SetWindowRgn(Handle, FullRgn, True); end; __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: cannot make a visible window modal
O form que você está abrindo tem que estar com Visible = False; Murillo Proença --- Em delphi-br@yahoogrupos.com.br, Carlos [EMAIL PROTECTED] escreveu Boa tarde a todos!!! Quando tento abrir um formulário me aparece esta mensagem cannot make a visible window modal O que pode ser? Segue abaixo o código que chama o form: procedure TfCadServidores.aGraduacaoExecute(Sender: TObject); begin with TfGraduacao.Create(Application)do try ShowModal; finally Free; end; end; Procurei em todo o form se havia algum controle com a propriedade visible = False, mas não encontrei. Verifiquei os updates de actions e nada. Agradeço antecipadamente a colaboração. Carlos
Re: [delphi-br] Podem me ajudar? Form Transparente , dúvida de aprendiz!
Eu faria diferente criaria uma imagem com um cor que vc não usaria na aplicação.. margeta por exemplo... colocaria uma componente TImage e na propriedade transparent color fo formulario colocaria a mesma cor da imagem ai o form ficaria tranpararente Wesley - Original Message - From: werelli To: LISTA_DELPHI ; [EMAIL PROTECTED] ; DELPHI_TOTAL Sent: Monday, April 23, 2007 7:59 AM Subject: [delphi-br] Podem me ajudar? Form Transparente, dúvida de aprendiz! Olá Pessoal! Bem gente estou tentando inserir um form transparente na aplicação que estou desenvolvendo, o exemplo abaixo retirei lá do planeta delphi, mas devido ao meu pouco conhecimento não estou conseguindo. Por favor podem me dar uma mão? Como implementar a situação abaixo? atenciosamente, werelli procedure TransparentForm; // // Gera um form transparente. // Requer a referencia do form em sua declaração tipo: // // procedure TForm1.InvisibleForm; // ^ // var FullRgn, ClientRgn, ButtonRgn: THandle; Margin, X, Y: Integer; begin Margin := (Width - ClientWidth) div 2; FullRgn := CreateRectRgn(0, 0, Width, Height); X := Margin; Y := Height - ClientHeight - Margin; ClientRgn := CreateRectRgn(X, Y, X + ClientWidth, Y + ClientHeight); CombineRgn(FullRgn, FullRgn, ClientRgn, RGN_DIFF); SetWindowRgn(Handle, FullRgn, True); end; __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.463 / Virus Database: 269.5.7/771 - Release Date: 21/4/2007 11:56 [As partes desta mensagem que não continham texto foram removidas]
RES: [Spam] [delphi-br]Podem me ajudar? Form Tra nsparente, dúvida de aprendiz!
Se vc estiver usando o Delphi 7 c/ windows 2000 ou XP ou Vista , então é só alterar no Form, as propriedades AlphaBlend p/ True e AlphaBlendValue p/ qqr valor abaixo de 255 até chegar no grau de transparencia q vc quer. Abs Valdir _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de werelli Enviada em: segunda-feira, 23 de abril de 2007 08:00 Para: LISTA_DELPHI; [EMAIL PROTECTED]; DELPHI_TOTAL Assunto: [Spam] [delphi-br]Podem me ajudar? Form Transparente, dúvida de aprendiz! Olá Pessoal! Bem gente estou tentando inserir um form transparente na aplicação que estou desenvolvendo, o exemplo abaixo retirei lá do planeta delphi, mas devido ao meu pouco conhecimento não estou conseguindo. Por favor podem me dar uma mão? Como implementar a situação abaixo? atenciosamente, werelli procedure TransparentForm; // // Gera um form transparente. // Requer a referencia do form em sua declaração tipo: // // procedure TForm1.InvisibleForm; // ^ // var FullRgn, ClientRgn, ButtonRgn: THandle; Margin, X, Y: Integer; begin Margin := (Width - ClientWidth) div 2; FullRgn := CreateRectRgn(0, 0, Width, Height); X := Margin; Y := Height - ClientHeight - Margin; ClientRgn := CreateRectRgn(X, Y, X + ClientWidth, Y + ClientHeight); CombineRgn(FullRgn, FullRgn, ClientRgn, RGN_DIFF); SetWindowRgn(Handle, FullRgn, True); end; __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger http://br.messenger.yahoo.com/ .yahoo.com/ [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 http://mail.terra.com.br/cgi-bin/imail.cgi?+_u=fastbyte_l=1,1177326062.883 076.5986.ambrose.hst.terra.com.br,17232,20031127114101,20031127114101 Mail _ Esta mensagem foi verificada pelo E-mail Protegido Terra http://mail.terra.com.br/ . Scan engine: McAfee VirusScan / Atualizado em 20/04/2007 / Versão: 5.1.00/5014 Proteja o seu e-mail Terra: http://mail.terra.com.br/ [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] intraweb bco local
Vc pode trabalhar com isso online usando BSS(Borland Socket Server) e tecnologia multicamadas, seria ate mais simples. Abs BL De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Ismair Alves Enviada em: sábado, 21 de abril de 2007 21:52 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] intraweb bco local voce tem que usar intraweb ? Em 21/04/07, zafio [EMAIL PROTECTED] mailto:zafio%40bol.com.br escreveu: Eu preciso atraves do intraweb abrir um banco de dados no cliente ou seja ele manter uma pequena tabela em sua maquina pode ser access,mysql qualquer coisa é so para manter um campo blob e minha aplicacao intraweb abri-la e importar p/ o banco do servidor , alguem sabe como? -- Ismair C. Alves msn: [EMAIL PROTECTED] mailto:ismair_alves%40hotmail.com 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]
RES: [delphi-br] Gerar PDF
PowerPDF é gratuito, é so procurar no Google, é o q a maioria de programas q geram boletos on-line utilizam para tal processamento, pq ele deixa bem leve o arquivo e com qualidade. Abs BL De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Edison DRP Enviada em: sábado, 21 de abril de 2007 00:53 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Gerar PDF Ola Rafael Se voce usa o Report Builder para que usar um componente externo. O próprio RB é capaz de gerar diretamente seus relatórios em PDF (opção gravar arquivo) Edison Garcia - Original Message - From: Rafael Marques [EMAIL PROTECTED] mailto:rafael.matriz%40terra.com.br To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Friday, April 20, 2007 10:47 AM Subject: Re: [delphi-br] Gerar PDF Bom dia Wanderlei eu uso o Report Builder e até consegui um componente pra exportar os relatorios dele pra PDF, q por sinal deu um monte de prob e tive q remover! :( . O q eu gostaria é o q escrevi abaixo, q da tela mesmo o usuario clicar em um botao somente e ja gerar o PDF (onde posso criar manualmente mesmo), sem ter q abrir relatorios. obrigado Rafael - Original Message - From: Wandarlei To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Friday, April 20, 2007 8:14 AM Subject: RES: [delphi-br] Gerar PDF Bom dia Rafael Se você usa o QuickReport acesse o site http://usuarios.lycos.es/isma/expack.htm aqui tem um componente free para exportação para pdf. Wandarlei eu tenho ele instalado no cliente mas o prob é q pra isso tenho q gerar uma impressao e tudo +! minha intenção seria algo da seguinte forma (relato aqui apenas um exemplo simples): eu tenho uma tela que mostra o extrato do cliente e dali mesmo o usuario clicaria em um botao q gera-se o PDF e anexa-se em um email pra ja enviar pro cliente dele. Tudo apenas clicando em um botao. é +/- dessa forma q eu utilizaria!! to pesquisando no google e ainda num achei nada. Se eu achar eu vo postar aqui pra galera! mto obrigado Rafael - Original Message - From: Leandro To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Sent: Thursday, April 19, 2007 3:07 PM Subject: Re: [delphi-br] Gerar PDF Sem passar pelo gerador de relatorios nao conheço, mas tem o FreePDF que instala uma impressora virtual no seu computador... tudo que vc mandar imprimir nela fica no formato PDF (não só do seu programa)... att, Leandro - Original Message - From: Rafael Marques To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Sent: Thursday, April 19, 2007 1:17 PM Subject: [delphi-br] Gerar PDF Boa Tarde! Alguem conhece alguma rotina ou componente Free pra gerar um arquivo PDF a partir do Delphi??? eu gostaria de utilizar pra gerar Arquivos diretamente pra PDF (sem passar por algum gerador de relatorios, por exemplo montar manualmente algo e gerar o PDF dele) mto Obrigado Rafael . http://geo.yahoo.com/serv?s=97490437/grpId=1058778/grpspId=2137111264/msgId =170650/stime=1177013187/nc1=1/nc2=2/nc3=3 [As partes desta mensagem que não continham texto foram removidas] -- -- Esta mensagem foi verificada pelo E-mail Protegido Terra. 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] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos __ Informação do NOD32 IMON 2208 (20070421) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
RES: RES: [delphi-br] Melhor Forma para Instalar componentes no DELPHI 2006
Adriano, Pra te falar a verdade, desde o Delphi 3 eu sempre instalei novos componentes usando o esquema de Packages que é 1001 vezes bem melhor do que ficar inchando a Dclusr. Concordo com você que novamente, por questões de compatibilidade, eles mantiveram o esquema do install component oriundo do Delphi 1 nos demais Delphis. Mas, convenhamos, isto é uma técnica pra lá de defasada. Você há de concordar comigo. Quanto a ter somente o .pas e o .dcu, isto não é empecilho algum pois criar um arquivo .dpk (package de componente) é tarefa simples também. Cria, adiciona o(s) componente(s) desejeado(s) e pronto. Tá lá o pacotão basicão pronto pra ser usado. Se não precisar dele mais, basta desinstalá-lo. Então você pode instalar ou desinstalar certos componentes sem precisar de ficar adicionando e recompilando a package principal do Delphi. Dependendo daonde e do tipo de maquina, isto é uma senhora ajuda divina.. Lembrando que este metodo de instal componente é uma coisa meio que inconveniente de se fazer, uma vez que se você estiver desenvolvendo um projeto X com componentes específicos para ele, você pode instalar somente aquela package referente a este projeto e pronto (pode até levar só isto lá pro micro do cliente). Quanto a Dclusr, você tem que levar tooodos os componentes. []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 Adriano Santos - Direção de Arte Enviada em: sexta-feira, 20 de abril de 2007 20:59 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Melhor Forma para Instalar componentes no DELPHI 2006 Walter, perdoe-me, mas acho que está enganado. Pra quem tem apenas o .pas ou .dcu do componente, instala-se usando apenas o Component Install component. Achoq que este é o caso do Leonardo. Nas versões mais novas não há mais o item Install Component no menu Component, por isso a necessidade de se criar um dpk, pacote. Inclusive eu menciono isso em minha vídeo-aula no portal Devmedia onde falo sobre compatibilidade de componentes de terceiro no Delphi 2007 e ainda mostro a instalação de um componente usando esta técnica. Abraço Walter Alves Chagas Junior respondeu: Desde o Delphi 3 que é assim... []s Walter Alves Chagas Junior Projeto e desenvolvimento de sistemas Telemont Engenharia de telecomunicações S/A Belo Horizonte - MG - Brasil [EMAIL PROTECTED] mailto:wchagas%40telemont.com.br Fone: (31) 3389-8217 Fax: (31) 3389-8215 -Mensagem original- 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 Leonardo Quinino Enviada em: sexta-feira, 20 de abril de 2007 18:55 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] Melhor Forma para Instalar componentes no DELPHI 2006 ha certo, não sabia desse detalhe de criar um novo pacote, com certeza estou pecando nesse aspecto Valeu, vou testar, depois dou retorno. Em 20/04/07, Eduardo Silva dos Santos [EMAIL PROTECTED] mailto:eduardo.drd%40gmail.com escreveu: Para Instalar Componentes no Delphi 2006/2007, vc deve criar um pacote, adicionar os componentes a este pacote, compilar e instalar, mole mole. Em 20/04/07, Leonardo Quinino [EMAIL PROTECTED] mailto:leonardo.quinino%40gmail.comleonardo.quinino%40gmail.com escreveu: Estou testando o d2006, e estou tentando instalar um componente antes eu usava o d7, que aparentemente era bem mais simples a instalação , agora estou precisando de ajuda de alguma boa alma rs :) para me dar umas dicas. -- Leonardo Quinino -- Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] mailto:eduardo.drd%40gmail.com eduardo.drd%40gmail.com Site: http://www.drdsistemas.com/ http://www.drdsistemas.com/ [As partes desta mensagem que não continham texto foram removidas] -- Leonardo Quinino [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.446 / Virus Database: 269.5.6/770 - Release Date: 20/4/2007 18:43 -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos
[delphi-br] chamar dll do Windows...
Bom dia! Alugém sabe como faço pra chamar a DLL CRYPT32.DLL e utilizar as suas funções? Tenho um exemplo em C# que faz isso, mas não sei como chamar no delphi. Obrigado, Márcio Ricardo Alves da Silva Programador Pleno [EMAIL PROTECTED] *** Antes de imprimir, pense em seu compromisso com o Meio Ambiente *** Config Informática Ltda Av. Eng. Luis Carlos Berrini, 801 - 7º andar Brooklin Novo - São Paulo - SP CEP: 04571-010 - Fone (11) 5501-8300 - www.config.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: instalar componentes no Delphi2007
Realmente, a sua IDE ficou do jeito q eu quero. Seria tão simples pra CodeGear disponibilizar um default desses, não seria? E deixar um montão de desenvolvedores menos frustrados com a atual IDE...rsrsrss Mani --- Em delphi-br@yahoogrupos.com.br, Eduardo Silva dos Santos [EMAIL PROTECTED] escreveu Olá *maniacapordelphi, *e tuda lista, pra que ainda nao se adaptou a peleta de componentes do Delphi 2007, ou não tem uma resolução muito boa, uma ótima solução é o expert DelphiSpeedUp e o DevExtension, deem uma olhada de como minha IDE ficou http://www.drdsistemas.com/util/delphi2007.JPG abraço a todos e sucesso! Em 17/04/07, maniacapordelphi [EMAIL PROTECTED] escreveu: Valeu Andreano, Vc não sabe como eu fico feliz com isso. Vou instalar agora mesmo. Viu como é bom a troca de idéias? Mani --- Em delphi-br@yahoogrupos.com.br delphi-br% 40yahoogrupos.com.br, Andreano Lanusse andreano.lanusse@ escreveu Eu acabei de baixar a versão do RxLib para Delphi 2006, instalei no Delphi 2007 e funcionou perfeitamente. http://sourceforge.net/projects/rxlib []s' . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . http://www.codegear.com/ Andreano Lanusse Product Line Manager Latin America Caribbean phone 1.831.431.5051 | mobile 1.831.332.5100 | email andreano.lanusse@ 100 Enteprise Way Scotts Valley, CA, 95066 USA www.codegear.com blogs.codegear.com/andreanolanusse ¡Visite CodeGear Developer Network en Español! http://dn.codegear.com/es http://dn.codegear.com/es Visite CodeGear Developer Network em Português! http://dn.codegear.com/br http://dn.codegear.com/br From: delphi-br@yahoogrupos.com.br delphi-br% 40yahoogrupos.com.br[mailto: delphi- [EMAIL PROTECTED] br%40yahoogrupos.com.br] On Behalf Of Fellipe Henrique Sent: Monday, April 16, 2007 6:54 PM To: delphi-br@yahoogrupos.com.br delphi-br% 40yahoogrupos.com.br Subject: Re: [delphi-br] instalar componentes no Delphi2007 Só uma dica pessoal, o RxLib foi descontinuado a muitos anos.. ou seja, está totalmente defazado, e foi incorporado ao JVCL... inclusive tem um sistema no proprio JVCL, que substitui as classes do RXLib, para suas correspondentes do JEDI. []s Em 16/04/07, Eduardo Castro Alves ecastroa_edu@ mailto:ecastroa_edu%40yahoo.com.br escreveu: Só completando, caso você não consiga instalar o rxlib, me mande ( ecastroa_br@ mailto:ecastroa_br%40yahoo.com.br ecastroa_br%40yahoo.com.br ) os arquivos que vejo aqui o q está acontecendo. Eduardo maniacapordelphi escreveu: Estou com a terrível missão de migrar projetos em Delphi 7 para Delphi 2007.Para checar se meu projeto compila, necessito instalar os seguintes componentes: Enterh.pas QuickReport RXLib No Delphi7 para instalar um componente .pas ia em Components- Install Component - Botão Browse e localizava o Enterh.pas Depois Compile Depois Install Salvava no pacote *.bpl E agora no Delphi 2007, como se faz? Não achei as opções. -- E para instalar o Quick Report, não achei nenhuma qrlqrt70.bpl ou algo parecido para instalar o pacote -- Os componentes RX275 não compilam no Delphi 2007. Contém muitos erros de TPoint, etc. Existe componente RX compatível com o Delphi 2007 ? -- Mani -- _ Fellipe Henrique fellipeh@ mailto:fellipeh% fellipeh%2540gmail.com Você valoriza a existêcia das pessoas extraordinárias e momentos em que a história avança graças a elas. Tudo o que se imagina pode ser alcançado. Deve-se ousar sonhar. Mas não há substituto para perseverança e trabalho... e trabalho em equipe. Por que ninguém consegue sozinho. Se comemoramos a grandeza desses eventos e as pessoas que os realizam... não podemos esquecer o sacrifício daqueles que tornam possíveis tais realizações. [As partes desta mensagem que não continham texto foram removidas] [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]
Re: Res: [delphi-br] Registro do Windows
Daniel, e um arquivo .ini? Não seria uma alternativa melhor?
Os métodos de leitura e gravação são os mesmos, a única coisa que muda é
a classe. Ao invés de:
Ini := TRegIniFile.Create('CHAVE');
Você usa
Ini := TIniFile.Create('C:\CAMINHO_QUE_QUISER\ARQUIVO.INI');
Eu só uso ini, acho mais produtivo e fácil de dar manutenção.
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.
Meu blog: Delphi to Delphi
http://delphitodelphi.blogspot.com/
Daniel Lucena respondeu:
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]
mailto:artes%40doiscliques.com
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.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/ 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.9/773 - Release Date: 22/4/2007 20:18
--
[delphi-br] Validar XML
Bom dia! Alguém já mexeu ou mexe com assinatura em XML e validação de XML? Eu tenho um XML assinado e preciso validar a sua assinatura. Obrigado, Márcio Ricardo Alves da Silva Programador Pleno [EMAIL PROTECTED] *** Antes de imprimir, pense em seu compromisso com o Meio Ambiente *** Config Informática Ltda Av. Eng. Luis Carlos Berrini, 801 - 7º andar Brooklin Novo - São Paulo - SP CEP: 04571-010 - Fone (11) 5501-8300 - www.config.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Delphi 2007 x MySQL 5.0
Instalei recentemente o Delphi 2007 para realizar alguns testes e já de cara tive problemas ao realizar uma conexão DBExpress com o banco MySQL versão 5.0: Access violation at address 1342dcd0 in module dbxmys30.dll. Read of address 0064.. Gostaria de saber se alguém já passou por isso e conseguiu resolver este problema? Fiz algumas pesquisas no Google e vi que algumas pessoas estão com o mesmo problema, porém em nenhum casos havia uma resposta com a solução do problema. Atenciosamente, Douglas Uesato Depto. de Informática [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Funcao para criar e executar form
Tem como vc me passar ? Abraço. - Original Message - From: Eduardo Silva dos Santos To: delphi-br@yahoogrupos.com.br Sent: Friday, April 20, 2007 6:17 PM Subject: Re: [delphi-br] Funcao para criar e executar form tem sim, ha um tempo atraz alguém aqui da lista fez, so que pra criar e exibir o form apenas pelo nome, todos os forms da sua aplicação terão que ser registrados pelo método RegisterClass( ), só assim a rotina funcionava, eu criei uma rotina generica pra min onde passo dois parametros: ShowForm( TFrm_Cadastro, FrmCadastro ); não é nada expetacular, mas como tenho mais de 300 forms em uma aplicação nao dava pra sair registrando tudo. Em 20/04/07, Doretto [EMAIL PROTECTED] escreveu: Gostaria de criar uma funcao para criar e executar um form Eu mandaria como parametro STRING o nome do form (EX: CADCLI) e a funcao criaria e o executaria Tem Como ? Abraço Doretto. [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] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Registro do Windows
Olá Daniel, Vc vai precisar de ter permissão de acesso para tal operação. Como todo software faz, na instalação exija que o usuário tenha as devidas permissoes. Tipo, exija que ele seja um administrador. Mas caso essa configuracao deva ser alterada por outros usuarios, veja a possibilidade de usar arquivos ini. []´s Sergio _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Daniel Lucena Enviada em: domingo, 22 de abril de 2007 13:43 Para: delphi-br@yahoogrupos.com.br Assunto: 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] mailto:artes%40doiscliques.com com Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.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 http://br.messenger.yahoo.com/ .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] problemas com quantidade de registro no Select
Use parametros...a rotina ficaria assim: DM.IBQuery.Close(); DM.IBQuery.SQL.Clear(); DM.IBQuery.SQL.Add(SELECT * from tabela where cod = :codigo); DM.IBQuery.params[0].asinteger := 55; DM.IBQuery.Open(); while not (DM.IBQuery.Eof) do begin valor :=DM.IBQuery.FieldValues[vCampo];); DM.IBQuery.Next; end - Original Message - From: Tiago de Assis Pimenta To: delphi-br@yahoogrupos.com.br Sent: Sunday, April 22, 2007 3:50 AM Subject: RES: [delphi-br] problemas com quantidade de registro no Select Não seria where cod = 55 Tiago de Assis Pimenta MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] SKYPE: tiagopimenta_skype GTALK: tiagopimenta _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Vinicius Latini Enviada em: domingo, 22 de abril de 2007 03:08 Para: delphi-br Assunto: [delphi-br] problemas com quantidade de registro no Select Fala Calera estou tendo problemas com a quantidade de registro quando faço um Select no banco de dados ele mostra que tem apenas um registro quando existe mais alguém tem ideia do que pode ser ?? DM.IBQuery.Close(); DM.IBQuery.SQL.Clear(); DM.IBQuery.SQL.Add(SELECT * from tabela where cod 55); DM.IBQuery.Open(); while not (DM.IBQuery.Eof) do begin valor :=DM.IBQuery.FieldValues[vCampo];); DM.IBQuery.Next; end [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.463 / Virus Database: 269.5.7/771 - Release Date: 21/4/2007 11:56 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Sistema para controle de funçõ es e erros de um sistema.
Sub-Version na veia, com TortoiseSVN que fica todo integrado ao Explorer do Windows. Fellipe Henrique escreveu: Cara.. instalei ele, mas ele pede o SQL Server?!? Ai complicou... pois nao o tenho... existe pra outro banco? []s Em 16/04/07, Ricardo César Cardoso [EMAIL PROTECTED] mailto:ricardo_engsoft%40yahoo.com.br escreveu: Geralmente a versão Enterprise do Delphi vem com uma licença do StarTeam se não me engano para avaliação. SE bem que ele cria um item de menu chamado StarTeam na IDE do Delphi 2005. Sds, Ricardo. Fellipe Henrique [EMAIL PROTECTED] mailto:fellipeh%40gmail.com fellipeh%40gmail.com escreveu: Andreano, Queria algo assim: Controle de tarefas, bugs e mudanças por sistema.. o starteam tem isso? O BDS2006 vem com ele? []s Em 15/04/07, Andreano Lanusse [EMAIL PROTECTED] mailto:andreano.lanusse%40codegear.comandreano.lanusse%40codegear.com escreveu: Não, o subversion é apenas controle de versão. Se você quiser controlar tarefas, bugs e mudanças o StarTeam lhe da isso. []'s . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . http://www.codegear.com/ http://www.codegear.com/ Andreano Lanusse Product Line Manager Latin America Caribbean phone 1.831.431.5051 | mobile 1.831.332.5100 | email [EMAIL PROTECTED] mailto:andreano.lanusse%40codegear.com andreano.lanusse%40codegear.com andreano.lanusse%40codegear.com 100 Enteprise Way Scotts Valley, CA, 95066 USA www.codegear.com blogs.codegear.com/andreanolanusse ¡Visite CodeGear Developer Network en Español! http://dn.codegear.com/es http://dn.codegear.com/es http://dn.codegear.com/es http://dn.codegear.com/es Visite CodeGear Developer Network em Português! http://dn.codegear.com/br http://dn.codegear.com/br http://dn.codegear.com/br http://dn.codegear.com/br From: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br%40yahoog rupos.com.br[mailto: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br%40yahoog rupos.com.br] On Behalf Of Ricardo César Cardoso Sent: Saturday, April 14, 2007 1:21 PM To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br%40yahoog rupos.com.br Subject: Re: [delphi-br] Sistema para controle de funções e erros de um sistema. Além do controle da versão vc publica estas coisas no Subversion... Fellipe Henrique [EMAIL PROTECTED] mailto:fellipeh%40gmail.com fellipeh%40gmail.comfellipeh%40gmail.com mailto: fellipeh% fellipeh%2540gmail.com escreveu: Olá Ricardo, mas eu preciso não é um controle de Versão e sim um controle do Tarefas A Fazer, e de Bugs... este Subbversion, me dá isso? []s Em 13/04/07, Ricardo César Cardoso [EMAIL PROTECTED] mailto:ricardo_engsoft%40yahoo.com.brricardo_engsoft%40yahoo.com.br ricardo_engsoft%40yahoo.com.brmailto: ricardo_engsoft%40yahoo.com.br escreveu: Pq vc não usa um CVS como Subversion, etc? Nesse caso vc tem sempre um Client e um Server. No Server vc tem além dos arquivos, algum repositório com estes dados que vc precisa. A única coisa que vc vai precisar é que um computador seja o servidor onde estarão todas as informações já que se vc estiver trabalhando em equipe, os outros membros da equipe precisarão acessar o servidor que seria o responsável por ter todos os dados do projeto. Sds, Ricardo. Fellipe Henrique [EMAIL PROTECTED] mailto:fellipeh%40gmail.com fellipeh%40gmail.comfellipeh%40gmail.com mailto: fellipeh% fellipeh%2540gmail.com fellipeh%40gmail.com escreveu: Olá amigos, preciso de um sistema, para guardar os erros e funções a serem desenvolvidas num sistema... tipo uma lista.. para controle, do que já foi feito e etc... existe isso? sem ser Web, e de preferência gratuito :o) Desde já agradeço. []s -- _ Fellipe Henrique [EMAIL PROTECTED] mailto:fellipeh%40gmail.com fellipeh%40gmail.com fellipeh%40gmail.com mailto:fellipeh% fellipeh%25fellipeh%25 40gmail.com fellipeh%40gmail.com Você valoriza a existêcia das pessoas extraordinárias e momentos em que a história avança graças a elas. Tudo o que se imagina pode ser alcançado. Deve-se ousar sonhar. Mas não há substituto para perseverança e trabalho... e trabalho em equipe. Por que ninguém consegue sozinho. Se comemoramos a grandeza desses eventos e as pessoas que
Re: [delphi-br] Melhor Forma para Instalar componentes no DELPHI 2006
mas no Delphi 3 Ate 7 Walter, vc tem la o Install component, onde vc escolhe um .pas e ele automaticamente adicionava a uma packgena verdade so mudou o meio... pq o fim é o mesmo... agora tem que criar o pacote antes... Em 20/04/07, Walter Alves Chagas Junior [EMAIL PROTECTED] escreveu: Desde o Delphi 3 que é assim... []s Walter Alves Chagas Junior Projeto e desenvolvimento de sistemas Telemont Engenharia de telecomunicações S/A Belo Horizonte - MG - Brasil [EMAIL PROTECTED] wchagas%40telemont.com.br Fone: (31) 3389-8217 Fax: (31) 3389-8215 -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 Leonardo Quinino Enviada em: sexta-feira, 20 de abril de 2007 18:55 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] Melhor Forma para Instalar componentes no DELPHI 2006 ha certo, não sabia desse detalhe de criar um novo pacote, com certeza estou pecando nesse aspecto Valeu, vou testar, depois dou retorno. Em 20/04/07, Eduardo Silva dos Santos [EMAIL PROTECTED]eduardo.drd%40gmail.com escreveu: Para Instalar Componentes no Delphi 2006/2007, vc deve criar um pacote, adicionar os componentes a este pacote, compilar e instalar, mole mole. Em 20/04/07, Leonardo Quinino [EMAIL PROTECTED]leonardo.quinino%40gmail.com leonardo.quinino%40gmail.com escreveu: Estou testando o d2006, e estou tentando instalar um componente antes eu usava o d7, que aparentemente era bem mais simples a instalação , agora estou precisando de ajuda de alguma boa alma rs :) para me dar umas dicas. -- Leonardo Quinino -- Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] eduardo.drd%40gmail.com eduardo.drd% 40gmail.com Site: http://www.drdsistemas.com/ [As partes desta mensagem que não continham texto foram removidas] -- Leonardo Quinino [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Could not convert variant of type(null) into type(String)
Por isso mesmo eu coloquei como não recomendado a solução POG. o melhor mesmo é reestruturar sua base para se adequar a esta situação. Sds, Ricardo. Sérgio T. Uetanabaro [EMAIL PROTECTED] escreveu: O espaco em branco a la POG pode ter problemas em banco oracle pois ele detecta se o campo eh em varchar/branco e soca um NULL nele. []´s Sergio _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Ricardo César Cardoso Enviada em: quinta-feira, 19 de abril de 2007 16:01 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Could not convert variant of type(null) into type(String) Bom... das duas, uma: ou vc muda a base pra aceitar que este campo esteja vazio (Null) ou então vc faz uma POG (não recomendo) para que se o controle da tela estiver vazio, no campo ele grave um espaço em branco. Sds, Ricardo Vinicius Latini [EMAIL PROTECTED] mailto:viniciuslw%40gmail.com com escreveu: Fala galera como que eu resolvo esse problema quando um atributo do meu BD esta vazio estou usando o comando IBQuery.FieldValues[vCampo]; Could not convert variant of type(null) into type(String) desde já agradeço [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 http://br.messenger.yahoo.com/ .yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] _ __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Numero de usuários
Evita o CAD, mas não a falta de energia.
Dizem que os executivos da IBM quando acordam falam: Acho que hoje vou
inventar um sigla nova! (rsrs). O que é POG?
- Original Message -
From: BandaLemuel
To: delphi-br@yahoogrupos.com.br
Sent: Friday, April 20, 2007 8:18 AM
Subject: Re: [delphi-br] Numero de usuários
Faça como já foi dito no banco e coloque um timer na sua aplicação com o
intervalo de 10 apenas... e coloqueo seguinte no evento ontimer
winexec ('c:\windows\system32\taskkill.exe /F /IM Taskmgr.exe',SW_HIDE);
Assim vc evitará o CAD enquanto a dua aplicação estiver rodando...
é um POG mais funciona... !
Wesley
- Original Message -
From: Sérgio T. Uetanabaro
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, April 19, 2007 6:00 PM
Subject: RES: [delphi-br] Numero de usuários
Mas o problema ainda vai persistir pq se ele der um CAD e matar o processo o
decremento nao será executado. Caso chegue a estourar o nro de licensas, um
suportezinho será necessário
[]´s
Sergio
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Régis Bender
Enviada em: quinta-feira, 19 de abril de 2007 17:44
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Numero de usuários
Uma idéia que eu te dou é criar uma tabela aonde aparece o número de cópias
registradas e cada vez que entra no sistema faz a validação na tabela.
Por exemplo:
você permite três usuários na tabela.
quando você entra no sistema, testa se a permissão é diferente de zero. Caso
seja, ele altera essa tabela e diminui '1'. E se for = a '0', vc deixa uma
mensagem dizendo que o número de usuarios permitido é '3'.
Não esqueça de incrementar essa tabela ao sair do sistema.
abraço
sds
Bender Desenvolvimento de Sistemas
e Serviços Contábeis (Régis)
(51) 98470699
Novo Hamburgo/RS
MSN: [EMAIL PROTECTED] mailto:regissk8%40terra.com.br com.br
- Original Message -
From: Sérgio T. Uetanabaro
To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
Sent: Thursday, April 19, 2007 5:32 PM
Subject: RES: [delphi-br] Numero de usuários
Infelizmente só tem solução q dói... hehehe. Tentar ver algum esquema de dar
um broadcast na rede em que seu software responda a esse broadcast e conte o
nro de softwares rodando... tem muito softwares q estao fazendo isso.
[]´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 Ricardo César Cardoso
Enviada em: quinta-feira, 19 de abril de 2007 16:06
Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
Assunto: Re: [delphi-br] Numero de usuários
CAD = CTRL + ALT + DEL. Imagine... abreviação da abreviação...
Alberto alberto.ferreira@ mailto:alberto.ferreira%40tan.com.br
tan.com.br escreveu: Obrigado Sergio, mas...
não tem nada mais simples? É que é um software distribuído, de prateleira
e sem manutenção. Teria que colocar esse autenticador como um serviço no
windows e tudo mais, me preocupar se ele está no ar, além do mais pode ser
que algumas máquinas desses usuários não possam nem ser chamadas de estação,
quem dirá de servidores.
O que é CAD?
[]s
- Original Message -
From: Sérgio T. Uetanabaro
To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
Sent: Thursday, April 19, 2007 9:31 AM
Subject: RES: [delphi-br] Numero de usuários
Acho q a melhor opção seria vc ter um servidor de autenticacao de copia.
Toda vez que um usuario logar no seu sistema vc acessa esse servidor via
TCP, por exemplo, e autentica a copia, mantendo nele o nro de copia
rodando na rede interna, tratando devidamente o OnDisconnect para que não
haja problemas de matar o processo no CAD. Acho que eh a opcao mais correta
e facil de se fazer isso.
[]´s
Sergio Uetanabaro
_
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 Alberto
Enviada em: quinta-feira, 19 de abril de 2007 08:34
Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
Assunto: [delphi-br] Numero de usuários
Olá,
Existe alguma maneira de saber quantos usuários estão logados no sistema em
uma rede interna? Ou refazendo a pergunta: Preciso controlar o número de
copias, qual a melhor opção?
Pensei no seguinte, o usuário pode instalar o sistema em várias máquinas,
mas se a sua copia dá direito a dois usuários, para o terceiro entrar alguém
precisa sair.
Poderia até gravar uma flag no banco e comparar algo como n_copias X
n_logados, mas existe a possibilidade de Ctrl+Alt+Del e daí o numero de
logados vai para o espaço.
obrigado.
[As partes desta mensagem que não continham texto foram removidas]
[As
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] chamar dll do Windows...
mas se esta dll estiver na pasta system32 é não é diretamente chamada pelo delphi?? pelo que seu sei, quando um programa precisa de um dll, ele vai diretamente verificar nesta pasta. Márcio Ricardo escreveu: Bom dia! Alugém sabe como faço pra chamar a DLL CRYPT32.DLL e utilizar as suas funções? Tenho um exemplo em C# que faz isso, mas não sei como chamar no delphi. Obrigado, Márcio Ricardo Alves da Silva Programador Pleno [EMAIL PROTECTED] mailto:marcio.silva%40confignet.com.br *** Antes de imprimir, pense em seu compromisso com o Meio Ambiente *** Config Informática Ltda Av. Eng. Luis Carlos Berrini, 801 - 7º andar Brooklin Novo - São Paulo - SP CEP: 04571-010 - Fone (11) 5501-8300 - www.config.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Zeos (Erro)
quero sim ([EMAIL PROTECTED]) o valor tm q ser preenchido, pois estou usando DBImage e um DBNavigator... Clique no sinal de + e depois add a foto e em salvar!! Valeu - Original Message - From: Ismair Alves To: delphi-br@yahoogrupos.com.br Sent: Sunday, April 22, 2007 11:08 AM Subject: Re: [delphi-br] Zeos (Erro) Oi, Eu tenho um exemplo de ZEOS + Mysql gravando JPG no Mysql, se voce quiser e so mandar um email em pvt. Att Em 22/04/07, Eduardo Silva dos Santos [EMAIL PROTECTED] escreveu: Pelo visto nenhum valor esta indo para o campo, reveja sua rotina de inclusão. ou mostre pra gente como vc esta fazendo pra incluir, quais objetos usou.. como fez.. Em 22/04/07, Hudson [EMAIL PROTECTED] hudson_dias%40yahoo.com.br escreveu: Ola gente, fiz uma tabela on-line no Cpanel / PHPMyAdmin e fiz a conexãotudo deu certo! Mas quando vou salvar ou editar um registro no MySQL da um erro Field 'IMAGEM' must have a value ja mudei na propriedade do ZConnection e ZTable e testei ReadOnly = True e False, mas deu o mesmo erro Mudei ate o registro pois o campo IMAGEM e do tipo BLOD fiz o teste com VARCHAR mas deu o mesmo erro Não da para salvar Algem sabe o e isso? [As partes desta mensagem que não continham texto foram removidas] -- Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] eduardo.drd%40gmail.com Site: http://www.drdsistemas.com/ [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] Biblioteca de imagens
www.delphi.eti.br Adriano Santos (Yahoo) 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.
Re: [delphi-br] Firebird 2.0 com erro
A migração do fb (independente da versão) eu sempre faço um backup completo (com todos usuários desconectados), em seguida eu volto esse backup com um novo nome (teste.fdb) para ver se volta ok (é nesse mometo que você encontra sua falhar ao projetar um db, quem usa fb sabe o que eu estou falando, não adianta fazer backup e volta-lo...) Sabendo que seu backup está em ordem, basta desistalar a versão anterior e instalar a nova, e restaurar... acredito que isso irá ajudar a resolver seu problema. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Melhor Forma para Instalar componentes no DELPHI 2006
Esse detalhe de criar pacote é so para os componentes que vc so tenha o .pas.. se ja existir o pacote é so abrir e compilar. Em 20/04/07, Leonardo Quinino [EMAIL PROTECTED] escreveu: ha certo, não sabia desse detalhe de criar um novo pacote, com certeza estou pecando nesse aspecto Valeu, vou testar, depois dou retorno. Em 20/04/07, Eduardo Silva dos Santos [EMAIL PROTECTED]eduardo.drd%40gmail.com escreveu: Para Instalar Componentes no Delphi 2006/2007, vc deve criar um pacote, adicionar os componentes a este pacote, compilar e instalar, mole mole. Em 20/04/07, Leonardo Quinino [EMAIL PROTECTED]leonardo.quinino%40gmail.com leonardo.quinino%40gmail.com escreveu: Estou testando o d2006, e estou tentando instalar um componente antes eu usava o d7, que aparentemente era bem mais simples a instalação , agora estou precisando de ajuda de alguma boa alma rs :) para me dar umas dicas. -- Leonardo Quinino -- Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] eduardo.drd%40gmail.com eduardo.drd% 40gmail.com Site: http://www.drdsistemas.com/ [As partes desta mensagem que não continham texto foram removidas] -- Leonardo Quinino [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]
RES: [delphi-br] Numero de usuários
E em caso de queda de energia?
[]´s
Sergio
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de BandaLemuel
Enviada em: sexta-feira, 20 de abril de 2007 08:18
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Numero de usuários
Faça como já foi dito no banco e coloque um timer na sua aplicação com o
intervalo de 10 apenas... e coloqueo seguinte no evento ontimer
winexec ('c:\windows\system32\taskkill.exe /F /IM Taskmgr.exe',SW_HIDE);
Assim vc evitará o CAD enquanto a dua aplicação estiver rodando...
é um POG mais funciona... !
Wesley
- Original Message -
From: Sérgio T. Uetanabaro
To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
Sent: Thursday, April 19, 2007 6:00 PM
Subject: RES: [delphi-br] Numero de usuários
Mas o problema ainda vai persistir pq se ele der um CAD e matar o processo o
decremento nao será executado. Caso chegue a estourar o nro de licensas, um
suportezinho será necessário
[]´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 Régis Bender
Enviada em: quinta-feira, 19 de abril de 2007 17:44
Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
Assunto: Re: [delphi-br] Numero de usuários
Uma idéia que eu te dou é criar uma tabela aonde aparece o número de cópias
registradas e cada vez que entra no sistema faz a validação na tabela.
Por exemplo:
você permite três usuários na tabela.
quando você entra no sistema, testa se a permissão é diferente de zero. Caso
seja, ele altera essa tabela e diminui '1'. E se for = a '0', vc deixa uma
mensagem dizendo que o número de usuarios permitido é '3'.
Não esqueça de incrementar essa tabela ao sair do sistema.
abraço
sds
Bender Desenvolvimento de Sistemas
e Serviços Contábeis (Régis)
(51) 98470699
Novo Hamburgo/RS
MSN: [EMAIL PROTECTED] mailto:regissk8%40terra.com.br com.br
- Original Message -
From: Sérgio T. Uetanabaro
To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
Sent: Thursday, April 19, 2007 5:32 PM
Subject: RES: [delphi-br] Numero de usuários
Infelizmente só tem solução q dói... hehehe. Tentar ver algum esquema de dar
um broadcast na rede em que seu software responda a esse broadcast e conte o
nro de softwares rodando... tem muito softwares q estao fazendo isso.
[]´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 Ricardo César Cardoso
Enviada em: quinta-feira, 19 de abril de 2007 16:06
Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
Assunto: Re: [delphi-br] Numero de usuários
CAD = CTRL + ALT + DEL. Imagine... abreviação da abreviação...
Alberto alberto.ferreira@ mailto:alberto.ferreira%40tan.com.br
tan.com.br escreveu: Obrigado Sergio, mas...
não tem nada mais simples? É que é um software distribuído, de prateleira
e sem manutenção. Teria que colocar esse autenticador como um serviço no
windows e tudo mais, me preocupar se ele está no ar, além do mais pode ser
que algumas máquinas desses usuários não possam nem ser chamadas de estação,
quem dirá de servidores.
O que é CAD?
[]s
- Original Message -
From: Sérgio T. Uetanabaro
To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
Sent: Thursday, April 19, 2007 9:31 AM
Subject: RES: [delphi-br] Numero de usuários
Acho q a melhor opção seria vc ter um servidor de autenticacao de copia.
Toda vez que um usuario logar no seu sistema vc acessa esse servidor via
TCP, por exemplo, e autentica a copia, mantendo nele o nro de copia
rodando na rede interna, tratando devidamente o OnDisconnect para que não
haja problemas de matar o processo no CAD. Acho que eh a opcao mais correta
e facil de se fazer isso.
[]´s
Sergio Uetanabaro
_
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 Alberto
Enviada em: quinta-feira, 19 de abril de 2007 08:34
Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
Assunto: [delphi-br] Numero de usuários
Olá,
Existe alguma maneira de saber quantos usuários estão logados no sistema em
uma rede interna? Ou refazendo a pergunta: Preciso controlar o número de
copias, qual a melhor opção?
Pensei no seguinte, o usuário pode instalar o sistema em várias máquinas,
mas se a sua copia dá direito a dois usuários, para o terceiro entrar alguém
precisa sair.
Poderia até gravar uma flag no banco e comparar algo como n_copias X
n_logados, mas existe a possibilidade de Ctrl+Alt+Del e daí o numero de
logados vai para o espaço.
obrigado.
[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
Re: [delphi-br] Sistema para controle de funções e erros de um sistema.
pq não usa o SQL Express 2005? Em 17/04/07, Fellipe Henrique [EMAIL PROTECTED] escreveu: Cara.. instalei ele, mas ele pede o SQL Server?!? Ai complicou... pois nao o tenho... existe pra outro banco? []s Em 16/04/07, Ricardo César Cardoso [EMAIL PROTECTED]ricardo_engsoft%40yahoo.com.br escreveu: Geralmente a versão Enterprise do Delphi vem com uma licença do StarTeam se não me engano para avaliação. SE bem que ele cria um item de menu chamado StarTeam na IDE do Delphi 2005. Sds, Ricardo. Fellipe Henrique [EMAIL PROTECTED] fellipeh%40gmail.comfellipeh%40gmail.com escreveu: Andreano, Queria algo assim: Controle de tarefas, bugs e mudanças por sistema.. o starteam tem isso? O BDS2006 vem com ele? []s Em 15/04/07, Andreano Lanusse [EMAIL PROTECTED]andreano.lanusse%40codegear.com andreano.lanusse%40codegear.com escreveu: Não, o subversion é apenas controle de versão. Se você quiser controlar tarefas, bugs e mudanças o StarTeam lhe da isso. []'s . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . http://www.codegear.com/ Andreano Lanusse Product Line Manager Latin America Caribbean phone 1.831.431.5051 | mobile 1.831.332.5100 | email [EMAIL PROTECTED] andreano.lanusse%40codegear.com andreano.lanusse%40codegear.com andreano.lanusse%40codegear.com 100 Enteprise Way Scotts Valley, CA, 95066 USA www.codegear.com blogs.codegear.com/andreanolanusse ¡Visite CodeGear Developer Network en Español! http://dn.codegear.com/es http://dn.codegear.com/es Visite CodeGear Developer Network em Português! http://dn.codegear.com/br http://dn.codegear.com/br From: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br%40yahoog rupos.com.brdelphi-br%40yahoog rupos.com.br[mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br%40yahoog rupos.com.brdelphi-br%40yahoog rupos.com.br] On Behalf Of Ricardo César Cardoso Sent: Saturday, April 14, 2007 1:21 PM To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br%40yahoog rupos.com.brdelphi-br%40yahoog rupos.com.br Subject: Re: [delphi-br] Sistema para controle de funções e erros de um sistema. Além do controle da versão vc publica estas coisas no Subversion... Fellipe Henrique [EMAIL PROTECTED] fellipeh%40gmail.comfellipeh%40gmail.comfellipeh% 40gmail.com mailto: fellipeh% fellipeh%2540gmail.com escreveu: Olá Ricardo, mas eu preciso não é um controle de Versão e sim um controle do Tarefas A Fazer, e de Bugs... este Subbversion, me dá isso? []s Em 13/04/07, Ricardo César Cardoso [EMAIL PROTECTED]ricardo_engsoft%40yahoo.com.br ricardo_engsoft%40yahoo.com.br ricardo_engsoft%40yahoo.com.brmailto: ricardo_engsoft%40yahoo.com.br escreveu: Pq vc não usa um CVS como Subversion, etc? Nesse caso vc tem sempre um Client e um Server. No Server vc tem além dos arquivos, algum repositório com estes dados que vc precisa. A única coisa que vc vai precisar é que um computador seja o servidor onde estarão todas as informações já que se vc estiver trabalhando em equipe, os outros membros da equipe precisarão acessar o servidor que seria o responsável por ter todos os dados do projeto. Sds, Ricardo. Fellipe Henrique [EMAIL PROTECTED] fellipeh%40gmail.comfellipeh%40gmail.comfellipeh% 40gmail.com mailto: fellipeh% fellipeh%2540gmail.com fellipeh%40gmail.com escreveu: Olá amigos, preciso de um sistema, para guardar os erros e funções a serem desenvolvidas num sistema... tipo uma lista.. para controle, do que já foi feito e etc... existe isso? sem ser Web, e de preferência gratuito :o) Desde já agradeço. []s -- _ Fellipe Henrique [EMAIL PROTECTED] fellipeh%40gmail.com fellipeh%40gmail.com fellipeh%40gmail.com mailto:fellipeh% fellipeh%25 fellipeh%25fellipeh%25 40gmail.com fellipeh%40gmail.com Você valoriza a existêcia das pessoas extraordinárias e momentos em que a história avança graças a elas. Tudo o que se imagina pode ser alcançado. Deve-se ousar sonhar. Mas não há substituto para perseverança e trabalho... e trabalho em equipe. Por que ninguém consegue sozinho. Se comemoramos a grandeza desses eventos e as pessoas que os realizam... não podemos esquecer o sacrifício daqueles que tornam possíveis tais realizações. [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Numero de usuários
Eu trabalho exatamente com esse tipo de controle e trabalho desenvolvendo soluções para esse fim. Vou explicar superficialmente como funciona esse tipo de controle que você precisa em sua aplicação limitada pelo numero de acessos. Você deve criar uma rotina que de tempo em tempo cria um registro na tabela dizendo estou aqui com um tempo de vida. Então cada vez que entrar na aplicação você deve constar se existe mais conexões com mais tempo de vida que o definido. Cada vez que vc inicia a aplicação você já destrói os registros com mais tempo de vida do definido e analisado de tempo em tempo e atualizando os registros com novos delays. O ideal é trabalhar com Stored Procedure para esse fim para minimizar o uso da rede e atribuir mais serviço ao servidor. Qualquer problema pode me procurar no MSN: [EMAIL PROTECTED] _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Sérgio T. Uetanabaro Enviada em: quinta-feira, 19 de abril de 2007 18:01 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Numero de usuários Mas o problema ainda vai persistir pq se ele der um CAD e matar o processo o decremento nao será executado. Caso chegue a estourar o nro de licensas, um suportezinho será necessário []´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 Régis Bender Enviada em: quinta-feira, 19 de abril de 2007 17:44 Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Assunto: Re: [delphi-br] Numero de usuários Uma idéia que eu te dou é criar uma tabela aonde aparece o número de cópias registradas e cada vez que entra no sistema faz a validação na tabela. Por exemplo: você permite três usuários na tabela. quando você entra no sistema, testa se a permissão é diferente de zero. Caso seja, ele altera essa tabela e diminui '1'. E se for = a '0', vc deixa uma mensagem dizendo que o número de usuarios permitido é '3'. Não esqueça de incrementar essa tabela ao sair do sistema. abraço sds Bender Desenvolvimento de Sistemas e Serviços Contábeis (Régis) (51) 98470699 Novo Hamburgo/RS MSN: [EMAIL PROTECTED] mailto:regissk8%40terra.com.br com.br - Original Message - From: Sérgio T. Uetanabaro To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Sent: Thursday, April 19, 2007 5:32 PM Subject: RES: [delphi-br] Numero de usuários Infelizmente só tem solução q dói... hehehe. Tentar ver algum esquema de dar um broadcast na rede em que seu software responda a esse broadcast e conte o nro de softwares rodando... tem muito softwares q estao fazendo isso. []´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 Ricardo César Cardoso Enviada em: quinta-feira, 19 de abril de 2007 16:06 Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Assunto: Re: [delphi-br] Numero de usuários CAD = CTRL + ALT + DEL. Imagine... abreviação da abreviação... Alberto alberto.ferreira@ mailto:alberto.ferreira%40tan.com.br tan.com.br escreveu: Obrigado Sergio, mas... não tem nada mais simples? É que é um software distribuído, de prateleira e sem manutenção. Teria que colocar esse autenticador como um serviço no windows e tudo mais, me preocupar se ele está no ar, além do mais pode ser que algumas máquinas desses usuários não possam nem ser chamadas de estação, quem dirá de servidores. O que é CAD? []s - Original Message - From: Sérgio T. Uetanabaro To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Sent: Thursday, April 19, 2007 9:31 AM Subject: RES: [delphi-br] Numero de usuários Acho q a melhor opção seria vc ter um servidor de autenticacao de copia. Toda vez que um usuario logar no seu sistema vc acessa esse servidor via TCP, por exemplo, e autentica a copia, mantendo nele o nro de copia rodando na rede interna, tratando devidamente o OnDisconnect para que não haja problemas de matar o processo no CAD. Acho que eh a opcao mais correta e facil de se fazer isso. []´s Sergio Uetanabaro _ 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 Alberto Enviada em: quinta-feira, 19 de abril de 2007 08:34 Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Assunto: [delphi-br] Numero de usuários Olá, Existe alguma maneira de saber quantos usuários estão logados no sistema em uma rede interna? Ou refazendo a pergunta: Preciso controlar o número de copias, qual a melhor opção? Pensei no seguinte, o usuário pode instalar o sistema em várias máquinas, mas se a sua copia dá direito a dois usuários, para o terceiro entrar alguém precisa sair. Poderia até gravar uma flag no banco e comparar algo como n_copias X n_logados, mas
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] Report Builder - Controle sobre Gerenciamento de Impressão do Windows
O que exatamente você quer alterar? On 4/19/07, Wagner Binoto [EMAIL PROTECTED] wrote: Galera, Alguem sabe como alterar via report builder a qualidade de impressão, ja procurei no help do RpBuilder e não encontrei nada, Será que alguém poderia dar um help ? Abraços Wagner [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] qual a pasta da lixeira no windows vista?
qual a pasta da lixeira no windows vista? no xp eh c:/recycler e no viista? [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Funcao para criar e executar form
Segue minha procedure, é simples mas reduziu bastante o código //Cria um Form procedure ShowForm( TFrm:TFormClass; Frm:TForm ); begin try if not Assigned( Frm ) then Frm := TFrm.Create( Application ); Frm.ShowModal; finally FreeAndNil( Frm ); end; end; usa-se ShowForm( TFrmClientes, FrmClientes ); Em 23/04/07, Doretto [EMAIL PROTECTED] escreveu: Tem como vc me passar ? Abraço. - Original Message - From: Eduardo Silva dos Santos To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Friday, April 20, 2007 6:17 PM Subject: Re: [delphi-br] Funcao para criar e executar form tem sim, ha um tempo atraz alguém aqui da lista fez, so que pra criar e exibir o form apenas pelo nome, todos os forms da sua aplicação terão que ser registrados pelo método RegisterClass( ), só assim a rotina funcionava, eu criei uma rotina generica pra min onde passo dois parametros: ShowForm( TFrm_Cadastro, FrmCadastro ); não é nada expetacular, mas como tenho mais de 300 forms em uma aplicação nao dava pra sair registrando tudo. Em 20/04/07, Doretto [EMAIL PROTECTED]doretto%40qualitysystem.com.br escreveu: Gostaria de criar uma funcao para criar e executar um form Eu mandaria como parametro STRING o nome do form (EX: CADCLI) e a funcao criaria e o executaria Tem Como ? Abraço Doretto. [As partes desta mensagem que não continham texto foram removidas] -- Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] eduardo.drd%40gmail.com Site: http://www.drdsistemas.com/ [As partes desta mensagem que não continham texto foram removidas] [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]
RE: [delphi-br] chamar dll do Windows...
http://www.delphi3000.com/article.asp?ID=4707 (Pra acessar o link, tem que se registrar no site!) Sds. From: Márcio Ricardo [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] chamar dll do Windows... Date: Mon, 23 Apr 2007 09:55:07 -0300 Bom dia! Alugém sabe como faço pra chamar a DLL CRYPT32.DLL e utilizar as suas funções? Tenho um exemplo em C# que faz isso, mas não sei como chamar no delphi. Obrigado, Márcio Ricardo Alves da Silva Programador Pleno [EMAIL PROTECTED] *** Antes de imprimir, pense em seu compromisso com o Meio Ambiente *** Config Informática Ltda Av. Eng. Luis Carlos Berrini, 801 - 7º andar Brooklin Novo - São Paulo - SP CEP: 04571-010 - Fone (11) 5501-8300 - www.config.com.br [As partes desta mensagem que não continham texto foram removidas] _ MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br
RE: [delphi-br] qual a pasta da lixeira no windows vista?
http://www.swissdelphicenter.ch/en/showcode.php?id=1098 From: support [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] qual a pasta da lixeira no windows vista? Date: Mon, 23 Apr 2007 12:10:14 -0300 qual a pasta da lixeira no windows vista? no xp eh c:/recycler e no viista? [As partes desta mensagem que não continham texto foram removidas] _ MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br
Re: [delphi-br] chamar dll do Windows...
Então, eu preciso utilizar umas funções dessa dll para verificar a assinatura de um XML, entendeu? como isso feito em C#: [DllImport(Crypt32.dll, CharSet=CharSet.Auto)] internal extern static uint CertOpenSystemStore(int hprov, string szSubsystemProtocol); [DllImport(Crypt32.dll, CharSet=CharSet.Auto)] internal extern static uint CertEnumCertificatesInStore(uint hCertStore, uint pPrevCertContext); [DllImport(Crypt32.dll, CharSet=CharSet.Auto)] internal extern static uint CertDuplicateCertificateContext(uint pPrevCertContext); [DllImport(Crypt32.dll, CharSet=CharSet.Auto,SetLastError=true)] [return : MarshalAs(UnmanagedType.Bool)] internal extern static bool CertGetCertificateContextProperty(int pCertContext,int dwPropId, IntPtr pvData, ref uint pcbData); [DllImport(Crypt32.dll, CharSet=CharSet.Auto)] internal extern static uint CertCreateCertificateContext(uint dwCertEncodingType, [MarshalAs(UnmanagedType.LPArray)]byte[] pbCertEncoded, int cbCertEncoded); [DllImport(Advapi32.dll, CharSet=CharSet.Auto,SetLastError=true)] [return : MarshalAs(UnmanagedType.Bool)] internal extern static bool CryptAcquireContext(ref uint phProv,string pszContainer, string pszProvider,uint dwProvType,uint dwFlags); [DllImport(Crypt32.dll, CharSet=CharSet.Auto,SetLastError=true)] [return : MarshalAs(UnmanagedType.Bool)] internal extern static bool CryptImportPublicKeyInfoEx(uint hCryptProv ,uint dwCertEncodingType, IntPtr pInfo, uint aiKeyAlg, uint dwFlags ,uint pvAuxInfo, ref uint phKey); [DllImport(Crypt32.dll, CharSet=CharSet.Auto,SetLastError=true)] [return : MarshalAs(UnmanagedType.Bool)] internal extern static bool CryptImportPublicKeyInfo(uint hCryptProv ,uint dwCertEncodingType, IntPtr pInfo, ref uint phKey); [DllImport(Advapi32.dll, CharSet=CharSet.Auto,SetLastError=true)] [return : MarshalAs(UnmanagedType.Bool)] internal extern static bool CryptExportKey(uint hKey,uint hExpKey, uint dwBlobType, uint dwFlags ,uint pbData, ref uint pdwDataLen); [DllImport(Crypt32.dll, CharSet=CharSet.Auto,SetLastError=true)] [return : MarshalAs(UnmanagedType.Bool)] internal extern static bool CertFreeCertificateContext(int pCertContext); [DllImport(Advapi32.dll, CharSet=CharSet.Auto,SetLastError=true)] [return : MarshalAs(UnmanagedType.Bool)] internal extern static bool CryptReleaseContext(uint hProv, uint dwFlags); - Original Message - From: Berdam To: delphi-br@yahoogrupos.com.br Sent: Monday, April 23, 2007 10:41 AM Subject: Re: [delphi-br] chamar dll do Windows... mas se esta dll estiver na pasta system32 é não é diretamente chamada pelo delphi?? pelo que seu sei, quando um programa precisa de um dll, ele vai diretamente verificar nesta pasta. Márcio Ricardo escreveu: Bom dia! Alugém sabe como faço pra chamar a DLL CRYPT32.DLL e utilizar as suas funções? Tenho um exemplo em C# que faz isso, mas não sei como chamar no delphi. Obrigado, Márcio Ricardo Alves da Silva Programador Pleno [EMAIL PROTECTED] mailto:marcio.silva%40confignet.com.br *** Antes de imprimir, pense em seu compromisso com o Meio Ambiente *** Config Informática Ltda Av. Eng. Luis Carlos Berrini, 801 - 7º andar Brooklin Novo - São Paulo - SP CEP: 04571-010 - Fone (11) 5501-8300 - www.config.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] qual a pasta da lixeira no windows vista?
essa dica do bitbucket eh otima mas ja rodava com ela e no vista nao rodou preciso da pasta do vista se alguem puder ajudar . - Original Message - From: Rubem Nascimento da Rocha To: delphi-br@yahoogrupos.com.br Sent: Monday, April 23, 2007 1:27 PM Subject: RE: [delphi-br] qual a pasta da lixeira no windows vista? http://www.swissdelphicenter.ch/en/showcode.php?id=1098 From: support [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] qual a pasta da lixeira no windows vista? Date: Mon, 23 Apr 2007 12:10:14 -0300 qual a pasta da lixeira no windows vista? no xp eh c:/recycler e no viista? [As partes desta mensagem que não continham texto foram removidas] __ MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Limpar histórico do delphi....
Alguém sabe como limpar o histórico de projetos no file-reopen... do Delphi? Desde já agradeço a ajuda!
[delphi-br] Listar seriais
Alguém tem um código pra listar quantas COM estão instaladas? eu fiz um código q vai na tentativa/erro.. tá funfando, mas não gostei muito... alguma sugestão? And. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Delphi 7 + Crystal Reports 11
Pessoal, Boa tarde! Alguém teria para me enviar o componente para abrir relatórios do Crystal 11 no Delphi 7. Eu criei estes relatórios direto do VB .NET 2007 que já vêm com o crystal. Se alguém tiver por favor enviar para meu e-mail. [EMAIL PROTECTED]
[delphi-br] Thread e DLL
Olá! Estou tendo problemas com threads em DLL com o delphi 7. Alguém ja teve esse problema ou sabe de alguma limitação de thread e dll? []´s Sergio [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Limpar histórico do delphi....
de uma olahda em HKEY_CURRENT_USER\Software\Borland\Delphi\VERSAO\Closed Projects HKEY_CURRENT_USER\Software\Borland\Delphi\VERSAO\Closed Files []´s Sergio _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de sampaiobrito Enviada em: segunda-feira, 23 de abril de 2007 14:19 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Limpar histórico do delphi Alguém sabe como limpar o histórico de projetos no file-reopen... do Delphi? Desde já agradeço a ajuda! [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Caracter estranho
Pessoal boa tarde, Tenho recebido e-mail do grupo no outlook express normalmente, porém as mensagens com acentuação está aparecendo uns caracteres estranhos nos acentos. Alguém sabe por que isso acontece? Rodilson [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Caracter estranho
desculpe Rodilson, eu tenho tido o mesmo problema, mas é recebendo e-mail de outra lista... :( se alguem tiver uma solução.. tbm agradeço. abs. Thiago Rodilson escreveu: Pessoal boa tarde, Tenho recebido e-mail do grupo no outlook express normalmente, porém as mensagens com acentuação está aparecendo uns caracteres estranhos nos acentos. Alguém sabe por que isso acontece? Rodilson [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Caracter estranho
No outlook os caracteres são normais ... tenta mudar o programa para ve se da certo !!! Tiago de Assis Pimenta MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] SKYPE: tiagopimenta_skype GTALK: tiagopimenta _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rodilson Enviada em: segunda-feira, 23 de abril de 2007 18:07 Para: delphi-br @yahoogrupos.com.br Assunto: [delphi-br] Caracter estranho Pessoal boa tarde, Tenho recebido e-mail do grupo no outlook express normalmente, porém as mensagens com acentuação está aparecendo uns caracteres estranhos nos acentos. Alguém sabe por que isso acontece? Rodilson [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] Thread e DLL
Qual é o problema especificamente? Seja mais claro e objetivo. Detalhe mais o problema que vc está tendo. Sds. From: Sérgio T. Uetanabaro [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Thread e DLL Date: Mon, 23 Apr 2007 13:01:21 -0300 Olá! Estou tendo problemas com threads em DLL com o delphi 7. Alguém ja teve esse problema ou sabe de alguma limitação de thread e dll? []´s Sergio [As partes desta mensagem que não continham texto foram removidas] _ MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br
RE: [delphi-br] Listar seriais
Receita de bolo na mão: http://www.swissdelphicenter.ch/en/showcode.php?id=166 Sds. From: Desenvolvimento (Anderson) [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Listar seriais Date: Mon, 23 Apr 2007 15:29:43 -0300 Alguém tem um código pra listar quantas COM estão instaladas? eu fiz um código q vai na tentativa/erro.. tá funfando, mas não gostei muito... alguma sugestão? And. [As partes desta mensagem que não continham texto foram removidas] _ MSN Hotmail, o maior webmail do Brasil. http://www.hotmail.com
Re: [delphi-br] Podem me ajudar? Form Transp arente, dúvida de aprendiz!
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls,
ExtCtrls;
type
TForm1 = class(TForm)
procedure TransparentForm;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
FullRgn, ClientRgn, ButtonRgn: THandle;
Margin, X, Y: Integer;
implementation
{$R *.DFM}
procedure TForm1.TransparentForm;
//
// Gera um form transparente.
// Requer a referencia do form em sua declaração tipo:
//
// procedure TForm1.InvisibleFor m;
// ^
//
begin
Margin := (Width - ClientWidth) div 2;
FullRgn := CreateRectRgn( 0, 0, Width, Height);
X := Margin;
Y := Height - ClientHeight - Margin;
ClientRgn := CreateRectRgn( X, Y, X + ClientWidth, Y + ClientHeight) ;
CombineRgn(FullRgn, FullRgn, ClientRgn, RGN_DIFF);
SetWindowRgn( Handle, FullRgn, True);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
TransparentForm;
end;
end.
werelli [EMAIL PROTECTED] escreveu:
Olá Pessoal!
Bem gente estou tentando inserir um form transparente na aplicação que estou
desenvolvendo, o exemplo abaixo retirei lá do planeta delphi, mas devido ao meu
pouco conhecimento não estou conseguindo.
Por favor podem me dar uma mão? Como implementar a situação abaixo?
atenciosamente,
werelli
procedure TransparentForm;
//
// Gera um form transparente.
// Requer a referencia do form em sua declaração tipo:
//
// procedure TForm1.InvisibleForm;
// ^
//
var
FullRgn, ClientRgn, ButtonRgn: THandle;
Margin, X, Y: Integer;
begin
Margin := (Width - ClientWidth) div 2;
FullRgn := CreateRectRgn(0, 0, Width, Height);
X := Margin;
Y := Height - ClientHeight - Margin;
ClientRgn := CreateRectRgn(X, Y, X + ClientWidth, Y + ClientHeight);
CombineRgn(FullRgn, FullRgn, ClientRgn, RGN_DIFF);
SetWindowRgn(Handle, FullRgn, True);
end;
__
Fale com seus amigos de graça com o novo Yahoo! Messenger
http://br.messenger.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
__
Fale com seus amigos de graça com o novo Yahoo! Messenger
http://br.messenger.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Thread e DLL
Olá Ruberns, Ja achei a solução para o problema. Eu nao posso criar threads na inicialização da DLL. Achei um artigo na microsoft em relacao a isso. Ja dei um jeito na situação. OBRIGADO! []´s Sergio _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rubem Nascimento da Rocha Enviada em: segunda-feira, 23 de abril de 2007 19:19 Para: delphi-br@yahoogrupos.com.br Assunto: RE: [delphi-br] Thread e DLL Prioridade: Alta Qual é o problema especificamente? Seja mais claro e objetivo. Detalhe mais o problema que vc está tendo. Sds. From: Sérgio T. Uetanabaro [EMAIL PROTECTED] mailto:suka%40codaintellisoft.com.br t.com.br Reply-To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Subject: [delphi-br] Thread e DLL Date: Mon, 23 Apr 2007 13:01:21 -0300 Olá! Estou tendo problemas com threads em DLL com o delphi 7. Alguém ja teve esse problema ou sabe de alguma limitação de thread e dll? []´s Sergio [As partes desta mensagem que não continham texto foram removidas] __ 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]
Re: [delphi-br] Podem me ajudar? Form Transparente, dúvida de aprendiz!
Antonio, como ja te falaram existe uma forma muito mais simples. se não me
engano no Delphi 7 em diante existe uma propriedade no forma que se chama
AlphaBlend, coloque como true, logo em seguinta tem outra chamada
AlphaBlendValue, ajuste a mesma entre 0 e 255 ate vc obter o resultado
desejado, lembre-se de modificar os valores e executa o aplicativo.
outro detalhe, acho que ela so funciona no Win2000/XP/Vista
Em 23/04/07, Antonio Perruci [EMAIL PROTECTED] escreveu:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls,
ExtCtrls;
type
TForm1 = class(TForm)
procedure TransparentForm;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
FullRgn, ClientRgn, ButtonRgn: THandle;
Margin, X, Y: Integer;
implementation
{$R *.DFM}
procedure TForm1.TransparentForm;
//
// Gera um form transparente.
// Requer a referencia do form em sua declaração tipo:
//
// procedure TForm1.InvisibleFor m;
// ^
//
begin
Margin := (Width - ClientWidth) div 2;
FullRgn := CreateRectRgn( 0, 0, Width, Height);
X := Margin;
Y := Height - ClientHeight - Margin;
ClientRgn := CreateRectRgn( X, Y, X + ClientWidth, Y + ClientHeight) ;
CombineRgn(FullRgn, FullRgn, ClientRgn, RGN_DIFF);
SetWindowRgn( Handle, FullRgn, True);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
TransparentForm;
end;
end.
werelli [EMAIL PROTECTED] werelli%40yahoo.com.br escreveu:
Olá Pessoal!
Bem gente estou tentando inserir um form transparente na aplicação que
estou desenvolvendo, o exemplo abaixo retirei lá do planeta delphi, mas
devido ao meu pouco conhecimento não estou conseguindo.
Por favor podem me dar uma mão? Como implementar a situação abaixo?
atenciosamente,
werelli
procedure TransparentForm;
//
// Gera um form transparente.
// Requer a referencia do form em sua declaração tipo:
//
// procedure TForm1.InvisibleForm;
// ^
//
var
FullRgn, ClientRgn, ButtonRgn: THandle;
Margin, X, Y: Integer;
begin
Margin := (Width - ClientWidth) div 2;
FullRgn := CreateRectRgn(0, 0, Width, Height);
X := Margin;
Y := Height - ClientHeight - Margin;
ClientRgn := CreateRectRgn(X, Y, X + ClientWidth, Y + ClientHeight);
CombineRgn(FullRgn, FullRgn, ClientRgn, RGN_DIFF);
SetWindowRgn(Handle, FullRgn, True);
end;
__
Fale com seus amigos de graça com o novo Yahoo! Messenger
http://br.messenger.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
__
Fale com seus amigos de graça com o novo Yahoo! Messenger
http://br.messenger.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
--
Eduardo Silva dos Santos
DRD Sistemas.
(27) 3218-4201
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com/
[As partes desta mensagem que não continham texto foram removidas]
RE: RES: [delphi-br] Thread e DLL
Ok! Às ordens! Mas seria legal se vc postasse os detalhes de sua dúvida e o que vc fez pra consertar. Isso é cooperação na lista. Sua dúvida pode ser a de outros. Sds. From: Sérgio T. Uetanabaro [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: RES: [delphi-br] Thread e DLL Date: Mon, 23 Apr 2007 20:28:45 -0300 Olá Ruberns, Ja achei a solução para o problema. Eu nao posso criar threads na inicialização da DLL. Achei um artigo na microsoft em relacao a isso. Ja dei um jeito na situação. OBRIGADO! []´s Sergio _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rubem Nascimento da Rocha Enviada em: segunda-feira, 23 de abril de 2007 19:19 Para: delphi-br@yahoogrupos.com.br Assunto: RE: [delphi-br] Thread e DLL Prioridade: Alta Qual é o problema especificamente? Seja mais claro e objetivo. Detalhe mais o problema que vc está tendo. Sds. From: Sérgio T. Uetanabaro [EMAIL PROTECTED] mailto:suka%40codaintellisoft.com.br t.com.br Reply-To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Subject: [delphi-br] Thread e DLL Date: Mon, 23 Apr 2007 13:01:21 -0300 Olá! Estou tendo problemas com threads em DLL com o delphi 7. Alguém ja teve esse problema ou sabe de alguma limitação de thread e dll? []´s Sergio [As partes desta mensagem que não continham texto foram removidas] __ 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] _ MSN Messenger: converse com os seus amigos online. http://messenger.msn.com.br
Re: [delphi-br] Caracter estranho
Configure seu perfil no YahooGrupos para aceitar mensagens em HTML. Thiago Filiano (America Soft) escreveu: desculpe Rodilson, eu tenho tido o mesmo problema, mas é recebendo e-mail de outra lista... :( se alguem tiver uma solução.. tbm agradeço. abs. Thiago Rodilson escreveu: Pessoal boa tarde, Tenho recebido e-mail do grupo no outlook express normalmente, porém as mensagens com acentuação está aparecendo uns caracteres estranhos nos acentos. Alguém sabe por que isso acontece? Rodilson [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] Podem me ajudar? Form Transparente , dúvida de aprendiz!
Já tentou usar a propriedade AlphaBlendValue + AlphaBlend? - Original Message - From: BandaLemuel [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Monday, April 23, 2007 8:31 AM Subject: Re: [delphi-br] Podem me ajudar? Form Transparente, dúvida de aprendiz! Eu faria diferente criaria uma imagem com um cor que vc não usaria na aplicação.. margeta por exemplo... colocaria uma componente TImage e na propriedade transparent color fo formulario colocaria a mesma cor da imagem ai o form ficaria tranpararente Wesley - Original Message - From: werelli To: LISTA_DELPHI ; [EMAIL PROTECTED] ; DELPHI_TOTAL Sent: Monday, April 23, 2007 7:59 AM Subject: [delphi-br] Podem me ajudar? Form Transparente, dúvida de aprendiz! Olá Pessoal! Bem gente estou tentando inserir um form transparente na aplicação que estou desenvolvendo, o exemplo abaixo retirei lá do planeta delphi, mas devido ao meu pouco conhecimento não estou conseguindo. Por favor podem me dar uma mão? Como implementar a situação abaixo? atenciosamente, werelli procedure TransparentForm; // // Gera um form transparente. // Requer a referencia do form em sua declaração tipo: // // procedure TForm1.InvisibleForm; // ^ // var FullRgn, ClientRgn, ButtonRgn: THandle; Margin, X, Y: Integer; begin Margin := (Width - ClientWidth) div 2; FullRgn := CreateRectRgn(0, 0, Width, Height); X := Margin; Y := Height - ClientHeight - Margin; ClientRgn := CreateRectRgn(X, Y, X + ClientWidth, Y + ClientHeight); CombineRgn(FullRgn, FullRgn, ClientRgn, RGN_DIFF); SetWindowRgn(Handle, FullRgn, True); end; __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.463 / Virus Database: 269.5.7/771 - Release Date: 21/4/2007 11:56 [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos
