Res: [delphi-br] Monitorar rede

[Willian Jhonnes Lara dos Santos]

Rodrigo, você pode fazer isso de duas maneiras.

1 - Usando Indy, enviando pacotes ICMP para o servidor e capturando sua 
resposta ou;

2 - Conectando-se diretamente ao serviço que você deseja testar (como banco de 
dados, por exemplo).

Isso vai depender da sua necessidade. Eu, particularmente, uso mais a segunda 
abordagem, já que o servidor pode estar funcionando, mas com o serviço parado.

Qualquer dúvida, estamos aí...
 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
willianjhon...@yahoo.com.br
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.2
Kernel 2.6.30.5-custom
--- 





De: Gmail - Sharplinux sharpli...@gmail.com
Para: delphi-br@yahoogrupos.com.br
Enviadas: Sábado, 22 de Agosto de 2009 22:24:14
Assunto: [delphi-br] Monitorar rede

  
Pessoal, boa noite

Estou tentando desenvolver uma aplicação onde ele irá ficar monitorando 
os servidores a idéia e ele ficar pingando o ip e porta do servidor se 
estiver ativo ele retorna com o ok e fica verde se estiver off fica 
vermelho.

Alguém já fez alguma coisa assim

Abraços

Rodrigo Fernando
Cordenador de T.I
Ti Móvel




  

Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] Deixando minha aplicacao bonita

[Willian Jhonnes Lara dos Santos]

{...}
Alguem conhece alguma gama de componentes, como botoes, images, panels e 
outros recursos graficos para deixar a aplicacao mais legal?

Desde ja agradeco!

Lucas
{...}

Olá, Lucas...

Eu uso uma combinação de duas paletas: a Raize e a DevExpress. Combinadas, 
minhas aplicações tomam um aspecto visual mais agradável, tendo a possibilidade 
de usar os skins da DevExpress... As duas valem cada centavo gasto, pode crer...

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
willianjhon...@yahoo.com.br
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.2
Kernel 2.6.27.8-i686-core2
---





De: Lucas Neves lucas_del...@yahoo.com.br
Para: delphi-br@yahoogrupos.com.br
Enviadas: Segunda-feira, 26 de Janeiro de 2009 16:13:00
Assunto: [delphi-br] Deixando minha aplicacao bonita


Boa tarde pessoal,

Terei que fazer um sisteminha como trabalho da faculdade que sera como 
se fosse para comercializacao (de fato, se vingar, sera). Eu nao estava 
nem um pouco a fim de fazer aquela cara cinzenta de sistema 
convencional. Tentei usar alguns componentes do Jedi mas sao instaveis e 
mal feitos.





  Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] Tipos de conexão com SQL SERVER

[Willian Jhonnes Lara dos Santos]

ADO é o melhor e pronto

Sem comentários à esta resposta. ADO usa ODBC, ou seja, está na idade da 
pedra...

Zeos é conexão direta, apenas pela DLL cliente, mas não dá suporte ACID.

O melhor, em termos de conexão e funcionalidades, é o UniDAC da DevArt. Mas tem 
um problema: é pago!

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
willianjhon...@yahoo.com.br
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---


  Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com

Res: [delphi-br] ref. quickreport

[Willian Jhonnes Lara dos Santos]

{...}
Salve amigos,

Estou usando delphi 5 enterprise e QuickReport 3.0.7. Estou tentando
que ele quando abrir (preview), fique num zoom de 100%, mas sempre ao
abrir ele abre num zoom padrão dele. Digo isto pq vou no botão de zoom
no preview e vejo que ele está usando para zoom to fit (preencher).

Tentei mudar via código, mas não surtiu efeito.

Abraço aos colega.s

Att. 

Omar M. Haddad
Analista de Sistemas
{...}

Caro Omar...

Acredito que a sua dúvida seja como alterar isto no formulário de preview... Se 
for esta a sua dúvida, a alteração deve ser feita na unit qrprev.pas, 
localizada no diretório de fontes do Delphi.

Lá vc pode colocar, por exemplo, uma chamada ao botão de zoom a 100% no evento 
onShow do formulário.

Espero ter sido claro...

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---


  Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] Re: Consulta SQL

[Willian Jhonnes Lara dos Santos]

{...}
Opa,

Mas há o espaço e mesmo assim ele dá o erro já tentei assim como foi 
sugerido aki pelos amigos do grupo:

.
Dm_Dados.qryCliente s.SQL.Add( 'where Nome like %' + 
edtPesquisaNome. Text + '%');
.

e mesmo assim ele dá erro e trava, pq? e como resolver?

Grato
{...}

Pq isto -- Dm_Dados.qryCliente s.SQL.Add( 'where Nome like %' + 
edtPesquisaNome. Text + '%');

deveria estar assim -- Dm_Dados.qryCliente s.SQL.Add( 'where Nome like ''%' +
edtPesquisaNome. Text + '%''');

[]'s

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---





De: marcio [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Segunda-feira, 8 de Dezembro de 2008 17:11:09
Assunto: [delphi-br] Re: Consulta SQL


 Marcio coloque um espaço depois de clientes... ex:
 
 Dm_Dados.Tb_ Clientes. Open;
 Dm_Dados.qryCliente s.Close;
 Dm_Dados.qryCliente s.SQL.Clear;
 Dm_Dados.qryCliente s.SQL.Add( 'select * from clientes '); --- 
Aki... verifique se da certo
 Dm_Dados.qryCliente s.SQL.Add( 'where Nome= :nome');
 Dm_Dados.qryCliente s.ParamByName( 'nome').Value := 
edtPesquisaNome. Text;
 Dm_Dados.qryCliente s.Open;





  Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com

[As partes desta mensagem que não continham texto foram removidas]

Res: Res: [delphi-br] Componente DBGrid com ClientDataSet e DataSource embutidos

[Willian Jhonnes Lara dos Santos]

Opa, Sílvio...

Me manda em pvt o componente... Quem sabe ele ajuda a resolver o problema...

[]'s

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---


  Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] Project Manager

[Willian Jhonnes Lara dos Santos]

{...}
Pessoal,

Como faço para alterar a ordem dos projetos no Project Manager, só 
arrastar e soltar não está funcionando.
Certo de poder contar com atenção, agradeço antecipadamente.

-- 
[]s,

Odail Della Niesi Junior
São Pedro-SP
{...}

CTRL + UP e CTRL + DOWN devem resolver...

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---


  Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] Duvida SQL

[Willian Jhonnes Lara dos Santos]

Bom dia Pessoal 
Como posso fazer para inserir dados automaticos no Mysql ?

Assim 
tenho um banco(médio  5900 registros ) onde agora o Gerente pediu para
inserir um campo com a hora, mas isto foi ontem , enteão todos os  registros
a partir de ontem
estão com o campo  hora preenchidos .
Agora ele quer que todos os outros fiquem com com este dado no campo 21:00
(horario que se encerra o turno da manutenção )

Como posso fazer isto automatico ? São mais de 5000 registros onde no campo
hora antes de 25/11 fiquem com esta informação ?

Desde ja agradeço pela ajuda

Ricardo 
{...}

Ricardo...

Tente o seguinte:

UPDATE NOME_DA_TABELA
   SET NOME_DO_CAMPO_HORA = '21:00'
 WHERE NOME_DO_CAMPO_HORA IS NULL;

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---


  Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] ZEOS COM DELPHI7 + MYSQL 6.0 componente ???

[Willian Jhonnes Lara dos Santos]

Alguém sabe me dizer onde encontro um componente free de acesso ao
banco de dados MYSQL 6.0, estou tentando usar o zeos 5.4 mas dá um
monte de erros.

Cara, o seu problema é grande! O MySQL 6 ainda é beta e vc tá usando um 
componente que tem, pelo menos, umas 10 versões mais novas do que a que vc está 
tentando usar...

Cara, faça o seguinte: baixe o Zeos-6.6.4 no site http://zeos.firmos.at/ ou a 
versão customizada do 6.6.3-stable que está no repositório do Sílvio Clécio.

Garanto a vc que seus problemas acabarão. Mas, contudo, caso vc use stored 
procedures ou stored functions, o Zeos não te artenderá.

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---





De: ajama_1 [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Segunda-feira, 24 de Novembro de 2008 16:29:09
Assunto: [delphi-br] ZEOS COM DELPHI7 + MYSQL 6.0 componente ???







  Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] Salto de página no Quick report

[Willian Jhonnes Lara dos Santos]

Pessoal,

Estou c/ problema de configuração de um comando no Quick report para
que em determinado ponto do relatório dê um salto de página.

É usando impressora Epson lx300 e tentei usando um campo.caption que
recebe o comando (=#12; salta pagina), mas ele apenas imprime o
caracter e não muda de página.

Quem puder ajudar, eu agradeço,

gilsonlongo@ hotmail.com
Passo Fundo - RS

Em alguma banda (sumário, por exemplo) marque a opção ForceNewPage como true 
e pronto.

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---


  Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] DBGrid com DBCheckBox

[Willian Jhonnes Lara dos Santos]

http://www.4shared.com/file/65216330/b9059ea8/DB-Aware.html?dirPwdVerified=ba615093

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---





De: fabiotwatanabe [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 19 de Novembro de 2008 11:31:01
Assunto: [delphi-br] DBGrid com DBCheckBox


Olá pessoal
Preciso selecionar vários clientes em uma lista para fazer um 
determinado procedimento, que serão comum para esse clientes 
selecionados.
Alguém saberia me dizer como fazer isso??
Obrigado!




  Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] Re: Método Add do TStringList n ão adiciona string...

[Willian Jhonnes Lara dos Santos]

Willian, eu não entendi direito, mas vou dar o palpite, isto se você
já não tiver resolvido. Já tentou com ExtractStrings?


Cara, pior que já resolvi mesmo... O problema não é o método usado para o 
parsing, e sim o fato do método Add da classe TStringList não adicionar a 
string extraída no stringlist.

Mudei a rotina de procedure para function, dei como resultado um TStringList 
criado na própria function e atribuí este TStringList à minha variável pelo 
método Assign.

Não sei pq, mas o Delphi 7 estava se perdendo ao manipular a variável de 
parâmetro pStringList.

De qualquer forma, valeu a resposta...
 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---   


  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] PELO AMOR DE DEUS, EDITEM AS MENSAGEMS...

[Willian Jhonnes Lara dos Santos]

Então a campanha está lançada. Eu tô dentro. Já comecei.

Seguem duas recomendaçãoes de listas internacionais:

1ª recomendação:

1. Try to find an answer by searching the archives of the forum you plan to 
post to.
2. Try to find an answer by searching the Web.
3. Try to find an answer by reading the manual.
4. Try to find an answer by reading a FAQ.
5. Try to find an answer by inspection or experimentation.
6. Try to find an answer by asking a skilled friend.
7. If you're a programmer, try to find an answer by reading the source code.

2ª recomendação (irônica):

A: Because it messes up the order in which people normally read text.
Q: Why is top-posting such a bad thing?
A: Top-posting.
Q: What is the most annoying thing on usenet and in e-mail?

Um pouquinho de bom senso não faz mal a ninguém, certo?

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---


  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] Componente CheckBox + DBEdit

[Willian Jhonnes Lara dos Santos]

Qual seria a funcionalidade desse componente? Pode nos dar uma idéia de como 
usá-lo e de como o checkbox atuaria em conjunto com o DBGrid?

Quem sabe, dessa forma, possamos ajudar mais...

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---



- Mensagem original 
De: André Luis de Oliveira [EMAIL PROTECTED]
Para: Delphi BR delphi-br@yahoogrupos.com.br
Enviadas: Quinta-feira, 23 de Outubro de 2008 9:57:16
Assunto: [delphi-br] Componente CheckBox + DBEdit


Gostaria de fazer um componente, que é o seguinte é um DBEdit mas na frente ele 
vai ter um checkbox. Até consegui inserir os dois juntos, mas o checkbox está 
ficando dentro do DBEdit e não consigo colocar o checkbox para fora.
Se tiver um componente que já faz isso melhor.

[As partes desta mensagem que não continham texto foram removidas]




  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] Componente CheckBox + DBEdit

[Willian Jhonnes Lara dos Santos]

A ideia do componente seria a seguinte, vamos supor q vc esta fazendo
um pedido e um determinado campo (exemplo codigo do cliente), quando
digitado e clicado no check quando vc clicar no botão novo todos os
campos do pedido com excessão do codigo do cliente não iria ficar em
branco.

Se entendi direito, vc quer um checkbox controlando o valor da coluna do 
DBGrid, pra que quando o grid for limpo, o valor daquela coluna permaneça, 
certo?

Dê uma olhada no componente TLabeledEdit (da própria VCL). Ele é um componente 
que tem a característica que vc procura.

Mas, só um comentário: fazer um cadastro pelo DBGrid não é um processo pouco 
amigável?

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---


  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: Res: [delphi-br] convertendo string minuscula em maiuscula

[Willian Jhonnes Lara dos Santos]

Mesmo não querendo, mas já dando um pitaco, todas as rotinas postadas fazem a 
string joão ferreira de lima e silva virar João Ferreira De Lima E Silva, 
quando o correto (prefiro mais elegante) seria João Ferreira de Lima e 
Silva.

Há algum tempo atrás tinha feito um componente descendente do TEdit com a 
propriedade de capitalizar o texto na saída ou na pressão da barra de espaço. 
Ele tinha uma estrutura que validava, em português, as conjunções de nomes 
próprios, não capitalizando-as. Fica a dica para quem quiser. Se alguém se 
interessar, procuro os fontes desse componente e posto aqui.

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---



- Mensagem original 
De: Jean Barreiros [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Sexta-feira, 17 de Outubro de 2008 11:10:41
Assunto: Res: [delphi-br] convertendo string minuscula em maiuscula


Olá Leonardo, não quero tirar o crédito do pessoal que já contribuio não,
mas, segue ai uma função bem simples que eu fiz pra usar no meu dia-a-dia:

function JBPrimeiraLetraMaiu scula(texto: string): string;
Var
 S: String;
 I: Integer;
begin
 S := LowerCase(texto) ;
 for I := 1 to Length(S) do
 begin
  if I = 1 then
   S[I] := UpCase(S[I])
  else if S[I-1] = ' ' then
   S[I] := UpCase(S[I]) ;
 end;
 result := S;
end;

att,
Jean Barreiros
Programador/ Web-Designer
Delphi, C++, PHP, JavaScript
FireBird/InterBase, MySql, SQLServer, PostGree, Oracle
msn: [EMAIL PROTECTED] com.br
e-mail: [EMAIL PROTECTED] com 

- Mensagem original 
De: Leonardo Baldino portaldoinferno@ gmail.com
Para: Grupo_Delphi [EMAIL PROTECTED] os.com.br
Enviadas: Sexta-feira, 17 de Outubro de 2008 8:49:37
Assunto: [delphi-br] convertendo string minuscula em maiuscula

alguem sabe onde eu posso encontrar uma procedure que quando eu insiro
uma string como AVENIDA AFONSO PANSAN ela me retorne essa mesma
string porem somente com a primeira letra de cada palavra em maiusculo

-- 
Leonardo Carlos Baldino - The Highlander


 _ _ _ _ __
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: Res: Res: [delphi-br] convertendo string minuscula em maiuscula

[Willian Jhonnes Lara dos Santos]

Também acho que já vi isso em algum lugar... Mas indo um pouco além,
com as conjunções tudo certo, mas é com abreviações em que a pessoa não
digita o ponto (.) que você pode ter um inconveniente ou outro.

A idéia do componente era evitar isso tb. Como ele não capitalizava o e, mas 
eu podita ter o nome carlos e. da silva, ele verificava o . e capitalizava 
a primeira letra entre o espaço e o ..

Tenho d procurar os fontes... Eles estão na minha máquina, em casa. Qndo 
chegar, posto d lá.

[]'s

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---

__
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] Off-Topic -- Delphi / Biometria

[Willian Jhonnes Lara dos Santos]

Elazar...
 
Os modelos da série FIM 20 e FIM 30 dão suporte a isso. Texto do site da Nitgen:

FIM 20 e FIM 30

É o mais novo lançamento da Nitgen. É um dispositivo standalone para
reconhecimento de digital, composto por um sensor óptico de tamanho
reduzido e um processador, com capacidade de armazenamento próprio de
100, 1000 e até 4.000 digitais. Este produto suporta identificações com
altíssima velocidade para qualquer tipo de sistema que necessite de
controle de acesso. Especial para funcionamento sem necessidade de
micro computador. -- Detalhe: isso não impede que continue sendo usado com 
computador.


Para o uso do SDK para reconhecimento em alta velocidade, vc precisará de um 
BSP serial conectado ao computador. Ele vai armazenar as digitais e a DLL 
trabalhará com ele e com o hamster.

Quanto a essa velocidade (100.000 digitais na memória da máquina), não posso 
precisar. Como temos o problema de controlar um grande número de filiais e 
quase 2.000.000 de clientes, além dos 9.500 funcionários, fazemos a comparação 
em 1:1: capturamos a biometria no BD e jogamos no leitor. Ele recebe a 
biometria e solicita ao cliente/usuário q posicione o dedo no sensor para 
confirmar a biometria. Todo esse processo leva menos de 0,5 segundo. Rápido e 
preciso.

[]'s

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
--- 



- Mensagem original 
De: Elazar Dornelles Ceza [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 15 de Outubro de 2008 19:03:21
Assunto: Res: RES: [delphi-br] Off-Topic -- Delphi / Biometria


Deixa ver se eu entendi...

tem aparelhos que podem ser usados tb para armazenar as digitais???
podem citar algum modelo?

ainda falando sobre a griaule, ela ficou em primeiro lugar no concurso de 
digitais feino lá fora (usa), 
acredito que pra isto seu algoritmo tenha um bom desempenho.

uma pergunta que eu tenho curiosidade, quanto demoraria pra encontrar uma 
digital entre 100.000, carregadas na memoria do micro...?

Atenc;
Elazar

- Mensagem original 
De: Willian Jhonnes Lara dos Santos willianjhonnes@ yahoo.com. br
Para: [EMAIL PROTECTED] os.com.br
Enviadas: Quarta-feira, 15 de Outubro de 2008 17:39:31
Assunto: RES: [delphi-br] Off-Topic -- Delphi / Biometria

OK, então provavelmente todas essas digitais devem ser carregadas
digamos no inicio do programa para a “memória” da DLL, correto? Se for
isto, é carregado a imagem (BMP) da digital ou um “código” (GUID) que
representa essa digital? 

Ou ficam armazenadas dentro do hardware do próprio leitor? 

Para o uso desta funcionalidade (1:n), a biometria fica em firmware, não no BD. 
A DLL é responsável por acionar o leitor em modo 1:n, passando as instruções de 
hardware para q ele interpreto o comando e execute a leitura da biometria e a 
compare com a armazenada no firmware.

Em sistemas restritos, como, por exemplo, uma empresa que controlará o ponto 
por biometria, independe o método de armazenamento (firmware ou BD), afinal, 
ela pode ser replicada a qualquer instante.

E no caso dessas 200 filiais, quando o cliente se cadastra em uma filial e 
depois vai comprar em outra, como fica? 

Para o caso que vc questionou, a biometria fica em BD, onde a verificação é 
feita em 1:1 (captura-se a biometria e compara com o stream armazenado no BD, 
podendo ser texto ou imagem). É mais lento, mas evita o problema de ter de 
replicar a biometria para todos os leitores.

 - - - - ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolve dor Object/Free Pascal
willianjhonnes@ yahoo.com. br
 - - - - ---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
 - - - - ---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
 - - - - ---

Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara 
@ymail.com ou @rocketmail. com.
http://br.new. mail.yahoo. com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara 
@ymail.com ou @rocketmail. com.
http://br.new. mail.yahoo. com/addresses

[As partes desta mensagem que não continham texto foram removidas]

   


  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] Postgres 8.2 + ZeosLib + RETURNING

[Willian Jhonnes Lara dos Santos]

Certo, mas a minha dúvida é como capturar esse retorno vindo do postgres.
Será que consigo em um ZQuery ? ou teria que ser com um TZStoredProc
associado a uma function de insert dentro do banco de dados ?

Já te aviso de antemão: o componente TZStoredProc NÃO funciona com Postgres. 
Estou vendo esta questão com o pessoal do desenvolvimento da biblioteca, mas 
ACID no Zeos só para Firebird.

Esse recurso eu só vi no PostgresDAC. O problema? É pago.

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---


  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: RES: [delphi-br] Off-Topic -- Delphi / Biometria

[Willian Jhonnes Lara dos Santos]

Nada como Nitgen e SecuGen: o SDK é de grátis para 1:1 e as rotinas feitas 
pra um são suportadas pelo outro!

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---



- Mensagem original 
De: Juliano Silva - Yahoo [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 15 de Outubro de 2008 15:32:54
Assunto: RES: [delphi-br] Off-Topic -- Delphi / Biometria


Barato eu não sei não, mas que é bom isso sim... Afinal da vez que eu entrei
em contato com eles, cada cliente meu que utilizasse o sistema teria que
comprar uma licença... este foi o ponto que me fez escolher outro SDK.

De: [EMAIL PROTECTED] os.com.br [mailto:[EMAIL PROTECTED] os.com.br] Em
nome de Eduardo Silva dos Santos
Enviada em: quarta-feira, 15 de outubro de 2008 12:16
Para: [EMAIL PROTECTED] os.com.br
Assunto: [delphi-br] Off-Topic -- Delphi / Biometria

Pessoal, quero avisar a quem estiver precisando implementar Biometria nos
seus Software's que o SDK 2007 da Griaule está simplismente fantástico.
fácil de usar, rápido e barato..

vale a pena conferir

http://www.griauleb iometrics. com/page/ pt-br/fingerprin t_sdk

-- 
 . . . . ...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
MSN: eduardo.drd@ gmail.com mailto:eduardo. drd%40gmail. com 
Site: http://www.drdsiste mas.com.br/
 . . . . ...

[As partes desta mensagem que não continham texto foram removidas]

__ Informação do NOD32 IMON 3523 (20081015) __

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]




  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] TCheckBox

[Willian Jhonnes Lara dos Santos]

Algo assim?

if Checkbox1.Checked then
  Edit1.PasswordChar := '*'
else
  Edit1.PasswordChar := #0;

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---



- Mensagem original 
De: Sergio - Jundiai / SP [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 15 de Outubro de 2008 11:01:36
Assunto: [delphi-br] TCheckBox




Boa tarde

gostaria de alterar uma edit com o campo senha, alterando de * para o real, 
irando a mascara 

acredito que seja no item Passwordchar

alquem sabe qual e o comando para alterar

Atenciosamente,

Premium
Dpto. Gestão - Sérgio
Tel. (11) 3378-4500
e-mail: degest.premium@ terra.com. br

- Original Message - 
From: Jackson Gomes - ToolsComps 
To: [EMAIL PROTECTED] os.com.br 
Sent: Friday, October 10, 2008 2:22 PM
Subject: Re: [delphi-br] Sobre intraweb no Delphi

 Gostaria de entender o motivo dessa descontinuidade, porque
 ao meu ver, se uma empresa como a Embarcadero esta desistindo
 do .Net é porque deve existir alguma outra tecnologia que atenda
 melhor que o .Net.

Atenção pessoal, ninguém aqui falou em descontinuidade. O que a CG está 
pretendendo fazer é transformar o Delphi.NET num plug-in para o VS. Quem 
adquirir o RAD Studio 2009, recebe o Delphi 2009 Win32, C++ Builder 2009 e o 
Delphi.NET 2009. Só que pra usar a porção .NET, vc vai precisar do VS.

Provalvamente haverá um pacote aonde vc compra o VS apenas com o Delphi.NET.

Concluindo: A Embarcadero/ CG não está descontinuando nada.

Jackson Gomes
ToolsComps - Controle de Usuários para Desenvolvedores CodeGear
Web Site: http://www.toolsand comps.com
Nosso Fórum: http://groups. yahoo.com/ group/toolsandco mps
e-mail: [EMAIL PROTECTED] ps.com
Fone: 27 3389 1138 - 8811 0324
 - - - - - -
Devhost - Webhost para desenvolvedores Delphi
http://www.devhost. com.br
[EMAIL PROTECTED] com.br

[As partes desta mensagem que não continham texto foram removidas]




  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: RES: [delphi-br] Off-Topic -- Delphi / Biometria

[Willian Jhonnes Lara dos Santos]

Eduardo...

O hamster tem um custo alto, mas compensa. Pense bem: a Nitgen tem uma DLL 
capaz de ler 100.000 biometrias em 1s no modo 1:n. O leitor da M$ não tem essa 
capacidade. Nem vi nada nos white papers da Griaule sobre isso.

Utilizamos os leitores Nitgen e SecuGen há um bom tempo. Tudo oq desenvolvemos 
para um, aplica-se ao outro. Imagine: somos a maior rede de farmácias do 
Paraná. Temos, em cada terminal, um leitor biométrico. Isso tudo em quase 200 
filiais, sem contar a central administrativa. Isso deve estar em torno de 900 
computadores. Será que a tão barata solução leitor M$ + Griaule nos 
atenderia, baixando nossos custos? A resposta é: NÃO.

Em termos de tempo de resposta, estabilidade e precisão de captura, oq nos 
atendeu foram os leitores Nitgen e SecuGen.

Adriano...

Nós conseguimos fazer, com o SDK da Nitgen, a chamada da API do Hamster II em 
PHP e ASP .Net. Só que, para isso, o cliente tinha que ter os drivers 
instalados no computador.

[]'s

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---



- Mensagem original 
De: Eduardo Silva dos Santos [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 15 de Outubro de 2008 16:15:57
Assunto: Re: RES: [delphi-br] Off-Topic -- Delphi / Biometria


Gratis nada... o Nitgem sai a 500,00 Leitor + SDK o Hamaster II

e o pior de tudo, vc fica preso ao leitor..

acho mais vantagem pagar 139 no leitor da Microsoft + 90 na licença do
Griaule e ainda poder usar outros leitores..


  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: RES: RES: [delphi-br] Off-Topic -- Delphi / Biometria

[Willian Jhonnes Lara dos Santos]

Do próprio leitor em modo 1:n. Ele consegue comparar a biometria capturada com 
a armazenada em sua memória, mesmo q vc coloque o dedo em uma posição que não 
corresponda com a da biometria que estiver armazenada.

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---



- Mensagem original 
De: Gerhard Roger Nack [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 15 de Outubro de 2008 18:12:13
Assunto: RES: RES: [delphi-br] Off-Topic -- Delphi / Biometria


Não conheço muito desses leitores portanto ... 



De onde essa DLL consegue “ler 100.000 biometrias em 1s “? 



Arquivo? Banco de dados? 







De: [EMAIL PROTECTED] os.com.br [mailto:[EMAIL PROTECTED] os.com.br] Em nome de 
Willian Jhonnes Lara dos Santos 
Enviada em: quarta-feira, 15 de outubro de 2008 16:42 
Para: [EMAIL PROTECTED] os.com.br 
Assunto: Res: RES: [delphi-br] Off-Topic -- Delphi / Biometria 



Eduardo... 

O hamster tem um custo alto, mas compensa. Pense bem: a Nitgen tem uma DLL 
capaz de ler 100.000 biometrias em 1s no modo 1:n. O leitor da M$ não tem essa 
capacidade. Nem vi nada nos white papers da Griaule sobre isso. 

Utilizamos os leitores Nitgen e SecuGen há um bom tempo. Tudo oq desenvolvemos 
para um, aplica-se ao outro. Imagine: somos a maior rede de farmácias do 
Paraná. Temos, em cada terminal, um leitor biométrico. Isso tudo em quase 200 
filiais, sem contar a central administrativa. Isso deve estar em torno de 900 
computadores. Será que a tão barata solução leitor M$ + Griaule nos 
atenderia, baixando nossos custos? A resposta é: NÃO. 

Em termos de tempo de resposta, estabilidade e precisão de captura, oq nos 
atendeu foram os leitores Nitgen e SecuGen. 

Adriano... 

Nós conseguimos fazer, com o SDK da Nitgen, a chamada da API do Hamster II em 
PHP e ASP .Net. Só que, para isso, o cliente tinha que ter os drivers 
instalados no computador. 

[]'s 

 - - - - --- 
Att.: 
Willian Jhonnes L. dos Santos 
Analista/Desenvolve dor Object/Free Pascal 
willianjhonnes@ yahoo.com. br mailto:willianjhon nes%40yahoo. com.br 
 - - - - --- 
Seja livre. Use Linux. 
Grupo de Usuários GNU/Linux de São José dos Pinhais 
Linux user number 449753 
 - - - - --- 
Powered by Slackware Linux 12.0 
Kernel 2.6.21.5-custom 
 - - - - --- 

- Mensagem original  
De: Eduardo Silva dos Santos eduardo.drd@ gmail.com mailto:eduardo. 
drd%40gmail. com  
Para: [EMAIL PROTECTED] os.com.br mailto:delphi- br%40yahoogrupos .com.br 
Enviadas: Quarta-feira, 15 de Outubro de 2008 16:15:57 
Assunto: Re: RES: [delphi-br] Off-Topic -- Delphi / Biometria 

Gratis nada... o Nitgem sai a 500,00 Leitor + SDK o Hamaster II 

e o pior de tudo, vc fica preso ao leitor.. 

acho mais vantagem pagar 139 no leitor da Microsoft + 90 na licença do 
Griaule e ainda poder usar outros leitores.. 

Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara 
@ymail.com ou @rocketmail. com. 
http://br.new. mail.yahoo. com/addresses 

[As partes desta mensagem que não continham texto foram removidas] 




[As partes desta mensagem que não continham texto foram removidas]




  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

RES: [delphi-br] Off-Topic -- Delphi / Biometria

[Willian Jhonnes Lara dos Santos]

OK, então provavelmente todas essas digitais devem ser carregadas
digamos no inicio do programa para a “memória” da DLL, correto? Se for
isto, é carregado a imagem (BMP) da digital ou um “código” (GUID) que
representa essa digital? 

Ou ficam armazenadas dentro do hardware do próprio leitor? 


Para o uso desta funcionalidade (1:n), a biometria fica em firmware, não no BD. 
A DLL é responsável por acionar o leitor em modo 1:n, passando as instruções de 
hardware para q ele interpreto o comando e execute a leitura da biometria e a 
compare com a armazenada no firmware.

Em sistemas restritos, como, por exemplo, uma empresa que controlará o ponto 
por biometria, independe o método de armazenamento (firmware ou BD), afinal, 
ela pode ser replicada a qualquer instante.

E no caso dessas 200 filiais, quando o cliente se cadastra em uma filial e 
depois vai comprar em outra, como fica? 

Para o caso que vc questionou, a biometria fica em BD, onde a verificação é 
feita em 1:1 (captura-se a biometria e compara com o stream armazenado no BD, 
podendo ser texto ou imagem). É mais lento, mas evita o problema de ter de 
replicar a biometria para todos os leitores.

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---


  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] Erro ao instanciar classe em componente

[Willian Jhonnes Lara dos Santos]

Olá, boa tarde a todos... 

Criei alguns componentes para suprir algumas necessidades de 
desenvolvimento na empresa para a qual trabalho, os quais têm a 
característica de colorizar o componente (TEdit, TMaskEdit, TComboBox, 
etc.) conforme foco e preenchimento. Para agrupar as propriedades das 
cores em um lugar único, criei uma classe para elas [1]. Em um 
componente descendente do TMaskEdit, a classe é instanciada sem problema 
[2], mas em um componente descendente do TEdit, ela não é instanciada, 
mesmo com a indicação em seu construtor [3]. 

Alguém tem alguma idéia de qual seja o problema? 

[]'s 

[1] - { TColors } 
 TColors = class(TGraphicsObject) 
   private 
 { Private declarations } 
 FFocusColor, 
 FRightColor, 
 FWrongColor: TColor; 
 FNotify: IChangeNotifier; 
   protected 
 { Protected declarations } 
 procedure Changed; override; 
 procedure SetFocusColor(Value: TColor); 
 procedure SetRightColor(Value: TColor); 
 procedure SetWrongColor(Value: TColor); 
   public 
 { Public declarations } 
 constructor Create; 
 destructor  Destroy; override; 
 procedure Assign(Source: TPersistent); override; 
   published 
 { Published declarations } 
 property FocusColor: TColor read FFocusColor write SetFocusColor; 
 property RightColor: TColor read FRightColor write SetRightColor; 
 property WrongColor: TColor read FWrongColor write SetWrongColor; 
 end; 

{ TColors } 

procedure TColors.Assign(Source: TPersistent); 
begin 
 if Source is TColors then 
 begin 
   Lock; 
   try 
 TColors(Source).Lock; 
 try 
   FFocusColor := TColors(Source).FocusColor; 
   FRightColor := TColors(Source).RightColor; 
   FWrongColor := TColors(Source).WrongColor; 
 finally 
   TColors(Source).Unlock; 
 end; 
   finally 
 Unlock; 
   end; 
   Exit; 
 end; 
 inherited Assign(Source); 
end; 

procedure TColors.Changed; 
begin 
 inherited Changed; 
 if FNotify  nil then 
   FNotify.Changed; 
end; 

constructor TColors.Create; 
begin 
 FFocusColor := $00FFEFDF; 
 FRightColor := $00DFFFEF; 
 FWrongColor := $00EFDFFF; 
end; 

destructor TColors.Destroy; 
begin 
 FreeInstance; 
end; 

procedure TColors.SetFocusColor(Value: TColor); 
begin 
 if FFocusColor  Value then 
 begin 
   FFocusColor := Value; 
   Changed; 
 end; 
end; 

procedure TColors.SetRightColor(Value: TColor); 
begin 
 if FRightColor  Value then 
 begin 
   FRightColor := Value; 
   Changed; 
 end; 
end; 

procedure TColors.SetWrongColor(Value: TColor); 
begin 
 if FWrongColor  Value then 
 begin 
   FWrongColor := Value; 
   Changed; 
 end; 
end; 

- 

[2] - { TTutorialMaskEdit } 
 TTutorialMaskEdit = class(TMaskEdit) 
   private 
 { Private declarations } 
 FMandatory, 
 FRequired, 
 FColorize, 
 FValidate, 
 FSaveLiterals, 
 FShowMessages: Boolean; 
 FColors: TColors; 
 FMaskType: TMaskType; 
 FAlternate: TAlternableMask; 
 FCharForBlanks: Char; 
 FOriginalColor: TColor; 
 FControlMask: Byte; 
 FMsgs: TMaskEditMessages; 
 FAlternableShortCut: TShortCut; 
 FMsgType: TMessageType; 
 procedure SetMask(Mask: TMaskType); 
 procedure SetColors(Value: TColors); 
 procedure SetColorize(Value: Boolean); 
 procedure SetRequired(Value: Boolean); 
 procedure SetValidate(Value: Boolean); 
 procedure SetMessages(Value: TMaskEditMessages); 
   protected 
 { Protected declarations } 
 procedure DoEnter; override; 
 procedure DoExit; override; 
 procedure KeyUp(var Key: Word; Shift: TShiftState); override; 
   public 
 { Public declarations } 
   published 
 { Published declarations } 
 constructor Create(AOwner: TComponent); override; 
 property Mandatory: Boolean read FMandatory write FMandatory 
default False; 
 property Colorize: Boolean read FColorize write SetColorize 
default True; 
 property Required: Boolean read FRequired write SetRequired 
default True; 
 property Validate: Boolean read FValidate write SetValidate 
default True; 
 property SaveLiterals: Boolean read FSaveLiterals write 
FSaveLiterals default False; 
 property MaskType: TMaskType read FMaskType write SetMask; 
 property Colors: TColors read FColors write SetColors; 
 property AlternableMasks: TAlternableMask read FAlternate write 
FAlternate; 
 property CharForBlanks: Char read FCharForBlanks write FCharForBlanks; 
 property AlternableShortCut: TShortCut read FAlternableShortCut 
write FAlternableShortCut; 
 property ShowMessages: Boolean read FShowMessages write FShowMessages; 
 property Messages: TMaskEditMessages read FMsgs write SetMessages; 
 property MessageType: TMessageType read FMsgType write FMsgType; 
 end; 

. 
. 
. 

constructor TTutorialMaskEdit.Create(AOwner: TComponent); 
begin 
 inherited Create(AOwner); 
 SetMask(mtCustom); 
 FMandatory := False; 
 FRequired 

Res: Res: [delphi-br] Erro ao instanciar classe em componente

[Willian Jhonnes Lara dos Santos]

Opa, Silvio...

Valeu... Dessa vez funfou! ;)

E toh meio sumido pq a vida de peixe tá dura...

[]'s

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---



- Mensagem original 
De: Silvio Clécio [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Segunda-feira, 13 de Outubro de 2008 16:01:23
Assunto: Res: [delphi-br] Erro ao instanciar classe em componente


Olá pessoal,

Cara você ta sumido!
Bom, não tive sucesso na ajuda anterior, mas acho que
esqueceu algo:

[3] - { TTutorialDateEdit } 
TTutorialDateEdit = class(TEdit) 
private 
{ Private declarations } 
FMinDate, 
FMaxDate: TDate; 
FMandatoryState, 
FMandatory, 
FShowMessages, 
FColorize, 
FRequired : Boolean; 
FMask: String; 
FMsgs: TDateEditMessages; 
FMsgType: TMessageType; 
FColors: TColors; 
function GetDate: TDate; 
procedure SetDate(D: TDate); 
procedure SetMessages( Value: TDateEditMessages) ; 
procedure SetColors(Value: TColors); 
procedure SetColorize( Value: Boolean); 
procedure SetRequired( Value: Boolean); 
protected 
{ Protected declarations } 
procedure KeyPress(var Key: Char); override; 
procedure KeyUp(var Key: Word; Shift: TShiftState) ; override; 
procedure DoEnter; override; 
procedure DoExit; override; 
procedure Change; override; 
public 
{ Public declarations } 
published 
{ Published declarations } 
constructor Create(AOwner: TComponent); override; // Isso
 _ _ __
Sim, e a atualização do DBGrig? Pode enviar brother?

 _ _ __
Um abraço! Silvio Clécio
Contatos/Blog
Skype: silvioprog
Yahoo! Messenger: [EMAIL PROTECTED] com.br
MSN (Hotmail): silvio_prog@ hotmail.com
BlogSpot: http://silvioclecio .blogspot. com/


  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] Erro instanciando classe em componente

[Willian Jhonnes Lara dos Santos]

Cara, valeu pela resposta, mas o Silvio já me deu uma luz sobre o problema... 
Pareceu até coisa de principiante, mas de tão óbvio, ficou oculto. Só faltava o 
indicação da herança do construtor no componente (contructor Create(AOwner: 
TComponent); override;)...

[]'s

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---



- Mensagem original 
De: Daniel Bastos [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Segunda-feira, 13 de Outubro de 2008 16:15:15
Assunto: Re: [delphi-br] Erro instanciando classe em componente


Cara .. sempre fiz isso, mas com minha classe herdada de TPersistent e
sempre funcionou numa boa.. ..
Teoricamente não teria pq não funcionar, pois TGraphicsObject descende
diretamente de TPersistent.
O pior é que não vejo nada no seu código que possa causar este problema.

Gera exception? Qual?

2008/10/13 Willian Jhonnes L. dos Santos willianjhonnes@ yahoo.com. br:
 Olá, boa tarde a todos...

 Criei alguns componentes para suprir algumas necessidades de
 desenvolvimento na empresa para a qual trabalho, os quais têm a
 característica de colorizar o componente (TEdit, TMaskEdit, TComboBox,
 etc.) conforme foco e preenchimento. Para agrupar as propriedades das
 cores em um lugar único, criei uma classe para elas [1]. Em um
 componente descendente do TMaskEdit, a classe é instanciada sem problema
 [2], mas em um componente descendente do TEdit, ela não é instanciada,
 mesmo com a indicação em seu construtor [3].

 Alguém tem alguma idéia de qual seja o problema?

 []'s

 [1] - { TColors }
  TColors = class(TGraphicsObje ct)
private
  { Private declarations }
  FFocusColor,
  FRightColor,
  FWrongColor: TColor;
  FNotify: IChangeNotifier;
protected
  { Protected declarations }
  procedure Changed; override;
  procedure SetFocusColor( Value: TColor);
  procedure SetRightColor( Value: TColor);
  procedure SetWrongColor( Value: TColor);
public
  { Public declarations }
  constructor Create;
  destructor  Destroy; override;
  procedure Assign(Source: TPersistent) ; override;
published
  { Published declarations }
  property FocusColor: TColor read FFocusColor write SetFocusColor;
  property RightColor: TColor read FRightColor write SetRightColor;
  property WrongColor: TColor read FWrongColor write SetWrongColor;
  end;

 { TColors }

 procedure TColors.Assign( Source: TPersistent) ;
 begin
  if Source is TColors then
  begin
Lock;
try
  TColors(Source) .Lock;
  try
FFocusColor := TColors(Source) .FocusColor;
FRightColor := TColors(Source) .RightColor;
FWrongColor := TColors(Source) .WrongColor;
  finally
TColors(Source) .Unlock;
  end;
finally
  Unlock;
end;
Exit;
  end;
  inherited Assign(Source) ;
 end;

 procedure TColors.Changed;
 begin
  inherited Changed;
  if FNotify  nil then
FNotify.Changed;
 end;

 constructor TColors.Create;
 begin
  FFocusColor := $00FFEFDF;
  FRightColor := $00DFFFEF;
  FWrongColor := $00EFDFFF;
 end;

 destructor TColors.Destroy;
 begin
  FreeInstance;
 end;

 procedure TColors.SetFocusCol or(Value: TColor);
 begin
  if FFocusColor  Value then
  begin
FFocusColor := Value;
Changed;
  end;
 end;

 procedure TColors.SetRightCol or(Value: TColor);
 begin
  if FRightColor  Value then
  begin
FRightColor := Value;
Changed;
  end;
 end;

 procedure TColors.SetWrongCol or(Value: TColor);
 begin
  if FWrongColor  Value then
  begin
FWrongColor := Value;
Changed;
  end;
 end;

  - - - - -

 [2] - { TTutorialMaskEdit }
  TTutorialMaskEdit = class(TMaskEdit)
private
  { Private declarations }
  FMandatory,
  FRequired,
  FColorize,
  FValidate,
  FSaveLiterals,
  FShowMessages: Boolean;
  FColors: TColors;
  FMaskType: TMaskType;
  FAlternate: TAlternableMask;
  FCharForBlanks: Char;
  FOriginalColor: TColor;
  FControlMask: Byte;
  FMsgs: TMaskEditMessages;
  FAlternableShortCut : TShortCut;
  FMsgType: TMessageType;
  procedure SetMask(Mask: TMaskType);
  procedure SetColors(Value: TColors);
  procedure SetColorize( Value: Boolean);
  procedure SetRequired( Value: Boolean);
  procedure SetValidate( Value: Boolean);
  procedure SetMessages( Value: TMaskEditMessages) ;
protected
  { Protected declarations }
  procedure DoEnter; override;
  procedure DoExit; override;
  procedure KeyUp(var Key: Word; Shift: 

Res: Res: Res: Res: [delphi-br] Erro ao instanciar classe em componente

[Willian Jhonnes Lara dos Santos]

Cara, nem vi mesmo...

Seguinte: se vc quiser esperar mais um pouco, toh trabalhando para embutir um 
TClientDataSet e um TDataSource no DBGrid... Assim, evito ter de instanciar 
estes objetos em tempo de design e acabar esquecendo de setar alguma 
propriedade.

[]'s

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---



- Mensagem original 
De: Silvio Clécio [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Segunda-feira, 13 de Outubro de 2008 16:33:25
Assunto: Res: Res: Res: [delphi-br] Erro ao instanciar classe em componente


Olá pessoal,

Willian, é tanta linha na resposta que eu acho que você não viu esta,
rsrsrsrsrsrs ;-) :

... Sim, e a atualização do
DBGrig? Pode enviar brother?
Em relação aos peixes,
aprende com esses caras (http://mais. uol.com.br/ view/54lv7fbyyng 
x/camuflagem- 0402C8898346? types=A), veja no meio do vídeo... rsrsrsrsrs :-).

 _ _ __
Um abraço! Silvio Clécio
Contatos/Blog
Skype: silvioprog
Yahoo! Messenger: [EMAIL PROTECTED] com.br
MSN (Hotmail): silvio_prog@ hotmail.com
BlogSpot: http://silvioclecio .blogspot. com/


  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] Sobre intraweb no Delphi

[Willian Jhonnes Lara dos Santos]

 mas veja, Java, PHP e Ruby, não serão vendidas, elas não tem dono !

Realmente, PHP e Ruby não têm dono, mas o Java é da Sun. Vc tem bibliotecas, 
compiladores e IDEs Open Source ou Free Software para ela, mas a linguagem 
ainda é proprietária. Ou seja, a única maneira de desenvolver em uma plataforma 
realmente livre é desenvolver em C.

E só um detalhe: a MySQL-AB está em processo de fechamento do código do MySQL. 
A versão Community Server vai continuar, mas o filé vai pra Enterprise.

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---_,___   


  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] [1/2 Off] Pesquisa: Quem usa MDI, SDI e outros?

[Willian Jhonnes Lara dos Santos]

Olá, pessoal...

Trabalho com dois modelos (MDI e SDI). No MDI, tenho por prática (e 
experiências anteriores realmente desastrosas) a limitação do número de forms 
MDI abertos (geralmente 10). Com isso, o cliente não abre mais forms do que o 
limite, evitando o estouro da memória.

Já no SDI, opero com os forms de maneira similar ao MSN Messenger, que cria 
um novo botão na barra de tarefas para cada form. Nesse modelo, o limite de 
forms abertos é mais restrito que em MDI (3), senão o cliente lota a barra de 
tarefas com botões e começa a se perder.

Tentei, por um tempo, implementar o TDI, mas a aparência não me agradou. 
Clientes aos quais consultei também acharam estranho o formato, então 
abandonei logo, sem me aprofundar.

Nenhum dos 3 modelos é perfeito, mas a cada um cabe uma análise no processo de 
modelagem. Vantagens existem nos 3, mas desvantagens tb. Nos resta analisar 
cada caso e ver o que melhor se aplica.

[]'s

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---_,_._,___   


  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: Res: [delphi-br] [OFF TOPIC] Ícone que não permite ser excluído!

[Willian Jhonnes Lara dos Santos]

Silvio...

Esse ícone não é um atalho comum. Se vc olhar a árvore de diretórios no 
Windows Explorer, vc vai encontrá-lo abaixo do Desktop, no mesmo nível do 
Painel de Controle, do Meu Computador e da Lixeira. Se vc perceber, tb, 
ele cria uma estrutura de diretórios baseada no celular q vc conectar. Enfim, o 
ícone é a aplicação em si, e só pode ser ocultada, assim como a Lixeira tb 
pode...

[]'s

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---



- Mensagem original 
De: Onjahyr - GMAIL [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Sexta-feira, 3 de Outubro de 2008 14:55:39
Assunto: Re: Res: [delphi-br] [OFF TOPIC] Ícone que não permite ser excluído!


Então sucesso na tua procura... e eu tb não ia poder baixar pois minha 
conexão é discada aqui.. k
Eu só queria ver, não ia fazer pirataria não! Mas td bem, deixxa 
quieto... Eu nunca vi isso não, mas faz o seguinte, baixa um programinha 
que tu encontra na NET (procura no google) que monitora o registro do 
windows, instala ele e verifica na hora de instalar o programa (seria 
melhor em um micro que ainda não foi instalado) para ver quais chaves 
ele manipula, pois essa de não poder excluir com certeza é no registro, 
é a mesma coisa da lixeira. E existe como excluir ela.

Blz.

Silvio Clécio escreveu:

 Olá pessoal,
 
 Cara eu até te enviaria, mas além não poder por ser um produto Sony 
 Ericsson com Copyright, o setup do infeliz tem 462MB, se fosse pelo 
 menos uma daqueles setups que tem os arquivos *.cab beleza, mas é um 
 EXE único, e não adianta eu copiar de arquivos de programas, porque 
 quem vai garantir que ele não gerou uma chave no Reg., e sem falar nos 
 arquivos instalados pelo Windows, system, system32 e etc.
 Eu me interessei nesse tipo de 'ícone' para implantar em meus 
 sistemas, estou procurando na NET mais que galinha procurando lugar 
 quando quer pôr.
 
 Um abraço a todos!
 Silvio Clécio
 
 - Mensagem original 
 De: Onjahyr - GMAIL [EMAIL PROTECTED] com mailto:onjahyr% 40gmail.com 
 Para: [EMAIL PROTECTED] os.com.br mailto:delphi- br%40yahoogrupos .com.br
 Enviadas: Sexta-feira, 3 de Outubro de 2008 10:35:32
 Assunto: Re: [delphi-br] [OFF TOPIC] Ícone que não permite ser excluído!

 Se puder me mandar o programa para eu instalar aqui eu posso tentar ver
 como foi feito :)

 Silvio Clécio escreveu:
 
  Olá pessoal,
 
  Eu instalei o pacote de utilitários para meu celular e me deparei com
  uma coisa inédita para mim, um ícone que não pode ser excluído.
  Já tentei de tudo, Del, Shift+Del , pelo DOS, por código feito em
  Delphi e etc., nada, o arquivo só permite ser renomeado, é como se
  fosse um *.cpl só que para a área de trabalho.
  Alguém sabe se é possível criar isso em Delphi? Eu sei criar *.cpl
  mas para o ícone aparecer na área de trabalho não faço a mínima idéia,
  isto é, se este arquivo for um *.cpl.
  No link (http://geocities. yahoo.com. br/silvioprog/ PrtSc1.png
  http://geocities. yahoo.com. br/silvioprog/ PrtSc1.png) está a 
 foto dele.
 
  Um abraço a todos!
  Silvio Clécio
 
  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a
  sua cara @ymail.com ou @rocketmail. com.
  http://br.new. mail.yahoo. com/addresses
  http://br.new. mail.yahoo. com/addresses
 
  [As partes desta mensagem que não continham texto foram removidas]
 
 


 Novos endereços, o Yahoo! que você conhece. Crie um email novo com a 
 sua cara @ymail.com ou @rocketmail. com.
 http://br.new. mail.yahoo. com/addresses 
 http://br.new. mail.yahoo. com/addresses

 [As partes desta mensagem que não continham texto foram removidas]

 



  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] MyDAC 5.70 para Delphi 2009 e Free Pascal e LAZARUS!!!

[Willian Jhonnes Lara dos Santos]

O UniDAC tb foi lançado para FreePascal! Ou seja, a implementação não vai ficar 
restrita apenas ao MySQL!

[]'s

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---



- Mensagem original 
De: Luiz ESCobar [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quinta-feira, 2 de Outubro de 2008 14:07:42
Assunto: Re: [delphi-br] MyDAC 5.70 para Delphi 2009 e Free Pascal e LAZARUS!!!


Tudo que eu queria... LAZARUS com MyDAC... agora acho que vai ajudar 
mui to... ...
Agora vo esperar sair a versão final... e começar a usar o lazarus...
Dear users, 

Devart Team is glad to present a new Beta version of MyDAC components with more 
development tools support and extended functionality. In the current version 
Delphi 2009, C++Builder 2009, Free Pascal, and Lazarus are supported. 

New Features in MyDAC 5.70 Beta: 

a.. Delphi 2009 and C++Builder 2009 supported 

b.. Extended Unicode support for Delphi 2007 added (special Unicode build) 

c.. Free Pascal 2.2 supported 

d.. Powerful design-time editors implemented in Lazarus 

e.. Completed with more comprehensive structured Help 

You can read a full Press Release available at http://www.devart. com/news/ 
2008/dacs670beta .html 

Please try the new version of MyDAC that can be downloaded at 
http://www.devart. com/mydac/ download. html 
We're looking forward to your comments and suggestions. 

Devart development team 
http://www.devart. com/mydac

Luiz Escobar - Analista/Desenvolve dor:
WEB - HTML/JavaScript/ PHP/MySQL 
WINDOWS - Delphi/ASSEMBLY/ MySQL/xBase
SERVIDORES - CNA IntraNetWare4. 11, LINUX-(RedHat9/ Suse11), Windows 2K/XP
HARBOUR  - - - - - -
Borland C++ 5.5.1 (32 bit)
Harbour 1.0.0 Intl. (Rev. 9175) 
xHarbour Compile build 1.1.0 (Simplex)
Harbour MiniGUI 1.5 Extended Edition (Build 55) - 2008.08.26
 - - - - - -

From: Eduardo Silva dos Santos 
Sent: Thursday, October 02, 2008 1:57 PM
To: [EMAIL PROTECTED] os.com.br 
Subject: [delphi-br] MyDAC 5.70 para Delphi 2009 e Free Pascal

Olá pessoal, o MyDAC agora suporta D2009 e Free Pascal.

maiores detalhes em
http://devart. com/forums/ viewtopic. php?t=13015 sid=e7c5de05fa0d 
b074baaf00e3db55 a491

-- 
 . . . . ...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
MSN: eduardo.drd@ gmail.com
Site: http://www.drdsiste mas.com.br/
 . . . . ...

[As partes desta mensagem que não continham texto foram removidas]

[As partes desta mensagem que não continham texto foram removidas]




  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] LAZARUS!!!

[Willian Jhonnes Lara dos Santos]

Xi, vai começar tudo d novo...

Cícero, na boa, isso já foi discutido aqui na lista. Dá uma olhadinha no 
histórico q vc vai ver as farpas q foram trocadas na última thread sobre o 
Lazarus.

Só espero q isso não comece (de novo) uma flame war...

[]'s

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---



- Mensagem original 
De: [EMAIL PROTECTED] [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quinta-feira, 2 de Outubro de 2008 15:09:22
Assunto: [delphi-br] LAZARUS!!!





vai ai uma pergunta ... 
o Lazarus é bom ... 
totalmente compatível com o delphi ... 
se fizer um soft em delphi .. roda normalmente no lazarus .. e vice versa 
 

Cícero Fernandes
Eng. Eletricista
Eng. de Segurança do Trabalho
CREA-SC 27.958-0
P Antes de imprimir, pense em sua responsabilidade e compromisso com o MEIO
AMBIENTE! 


_ 

De: [EMAIL PROTECTED] os.com.br [mailto:[EMAIL PROTECTED] os.com.br] Em
nome de Eduardo Silva dos Santos
Enviada em: quinta-feira, 2 de outubro de 2008 14:31
Para: [EMAIL PROTECTED] os.com.br
Assunto: Re: [delphi-br] MyDAC 5.70 para Delphi 2009 e Free Pascal e
LAZARUS!!!

Os seguintes produtos tem suporte ao Lazarus:

UniDAC 1.20 Beta http://www.devart. http://www.devart. com/unidac/
com/unidac/ [
Downloadhttp://www.devart. http://www.devart. com/unidac/ download. html
com/unidac/download .html] [ New
Features http://www.devart. http://www.devart. com/unidac/ history.html
com/unidac/history. html ] ODAC 6.70
Betahttp://www.devart. http://www.devart. com/odac/ com/odac/ [
Download http://www.devart. http://www.devart. com/odac/ download. html
com/odac/download. html ] [ New
Featureshttp://www.devart. http://www.devart. com/odac/ history.html
com/odac/history. html] SDAC
4.70 Beta http://www.devart. http://www.devart. com/sdac/ com/sdac/ [
Downloadhttp://www.devart. http://www.devart. com/sdac/ download. html
com/sdac/download. html] [ New
Features http://www.devart. http://www.devart. com/sdac/ history.html
com/sdac/history. html ] MyDAC 5.70
Betahttp://www.devart. http://www.devart. com/mydac/ com/mydac/ [
Download http://www.devart. http://www.devart. com/mydac/ download. html
com/mydac/download. html ] [ New
Featureshttp://www.devart. http://www.devart. com/mydac/ history.html
com/mydac/history. html] IBDAC
2.70 Beta http://www.devart. http://www.devart. com/ibdac/ com/ibdac/ [
Downloadhttp://www.devart. http://www.devart. com/ibdac/ download. html
com/ibdac/download. html] [ New
Features http://www.devart. http://www.devart. com/ibdac/ history.html
com/ibdac/history. html ]

2008/10/2 Willian Jhonnes Lara dos Santos willianjhonnes@
mailto:willianjhon nes%40yahoo. com.br yahoo.com.br

 O UniDAC tb foi lançado para FreePascal! Ou seja, a implementação não
 vai ficar restrita apenas ao MySQL!

 []'s

  - - - - ---
 Att.:
 Willian Jhonnes L. dos Santos
 Analista/Desenvolve dor Object/Free Pascal
 willianjhonnes@ mailto:willianjhon nes%40yahoo. com.br yahoo.com.br
willianjhonnes% 40yahoo.com. br
  - - - - ---
 Seja livre. Use Linux.
 Grupo de Usuários GNU/Linux de São José dos Pinhais
 Linux user number 449753
  - - - - ---
 Powered by Slackware Linux 12.0
 Kernel 2.6.21.5-custom
  - - - - ---

 - Mensagem original 
 De: Luiz ESCobar [EMAIL PROTECTED] a
mailto:escobar% 40megasistema. com.br .com.brescobar% 40megasistema. com.br
 
 Para: [EMAIL PROTECTED] mailto:delphi- br%40yahoogrupos .com.br
os.com.br delphi-br%40yahoog rupos.com. br
 Enviadas: Quinta-feira, 2 de Outubro de 2008 14:07:42
 Assunto: Re: [delphi-br] MyDAC 5.70 para Delphi 2009 e Free Pascal e
 LAZARUS!!!

 Tudo que eu queria... LAZARUS com MyDAC... agora acho que vai ajudar
 mui to... ...
 Agora vo esperar sair a versão final... e começar a usar o lazarus...
 Dear users,

 Devart Team is glad to present a new Beta version of MyDAC components with
 more development tools support and extended functionality. In the current
 version Delphi 2009, C++Builder 2009, Free Pascal, and Lazarus are
 supported.

 New Features in MyDAC 5.70 Beta:

 a.. Delphi 2009 and C++Builder 2009 supported

 b.. Extended Unicode support for Delphi 2007 added (special Unicode build)

 c.. Free Pascal 2.2 supported

 d.. Powerful design-time editors implemented in Lazarus

 e.. Completed with more comprehensive structured Help

 You can read a full Press Release available at http://www.devart.
http://www.devart

Res: Res: Res: [delphi-br] ScrollBar some de DBGrid

[Willian Jhonnes Lara dos Santos]

Opa, Silvio...

Nops, não funcionou... Fiz uma alteração no fonte da aplicação, pois percebi q 
o problema só ocorre qndo a barra horizontal não está visível. O método é POG 
puro, mas deu certo. Eu estendo a última coluna, forçando a barra hozontal a 
aparecer e a faço sumir em seguida. Pronto! Minha barra vertical não some mais.

Dei uma sumida do Y!Messenger pq me mudaram d mesa e agora eu tô num aquário, 
onde todos podem ver oq eu toh fazendo...

Ah, e não posso remover/comentar as linhas com os métodos DisableControls e 
EnableControls, pois, sem elas, o DBGrid vai correr todos os registros durante 
o preenchimento do CDS. Já imaginou isso com 1.000.000 de registros?

[]'s

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---



- Mensagem original 
De: Silvio Clécio [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quinta-feira, 2 de Outubro de 2008 16:31:24
Assunto: Res: Res: [delphi-br] ScrollBar some de DBGrid


Olá pessoal,
 
E aí Willian, funcionou?
(Cara, cadê vc no Yahoo! Messenger?)
 
Um braço a todos!
Silvio Cléco
 _ _ __

- Mensagem original 
De: Silvio Clécio [EMAIL PROTECTED] com.br
Para: [EMAIL PROTECTED] os.com.br
Enviadas: Quarta-feira, 1 de Outubro de 2008 15:33:59
Assunto: Res: [delphi-br] ScrollBar some de DBGrid

Olá pessoal,
 
Willian, fiz outras modificações:
 
*** No componente ***
constructor TDBAware.Create( AOwner: Tcomponent);
begin
  inherited Create(AOwner) ;
  ScrollBars := ssNone;
  FColumnSort := True;
  FOriginalOptions := Options;
  FTrueColor := TrColor;
end;
 
*** No exemplo ***
procedure TfrmMain.btnCreateC lick(Sender: TObject);
var
  I: Byte;
begin
  with dstMain do
begin
  if Active then
begin
  EmptyDataSet;
  Close;
end;
  CreateDataSet;
  Open;
//  DisableControls;
  for I := 0 to edtRecords.Value - 1 do
begin
  Append;
  dstMainBoolean. Value := Odd(I);
  dstMainText. Value := 'Line ' + IntToStr(I + 1);
  Post;
end;
  First;
//  EnableControls;
end;
end;
 
Acho que agora resolve.
 
Um abraço a todos!
Silvio Clécio
 
- Mensagem original 
De: Willian Jhonnes Lara dos Santos willianjhonnes@ yahoo.com. br
Para: [EMAIL PROTECTED] os.com.br
Enviadas: Quarta-feira, 1 de Outubro de 2008 14:36:22
Assunto: Res: Res: [delphi-br] ScrollBar some de DBGrid

Silvio... Valeu cara, mas a sua alteração não resolveu o problema. Eis oq 
acontece: a barra some por ficar oculta além do limite visível do componente, 
mas ela ainda está lá, pois pode-se observar - olhando com muita atenção - que 
ela se move. Ou seja, atribuir um estado para a propriedade ScrollBars não 
funciona.

Alguém aí tem mais alguma idéia???

[]'s

 - - - - ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolve dor Object/Free Pascal
willianjhonnes@ yahoo.com. br
 - - - - ---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
 - - - - ---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
 - - - - ---

- Mensagem original 
De: Silvio Clécio silvioprog@ yahoo. com.br
Para: [EMAIL PROTECTED] os.com.br
Enviadas: Quarta-feira, 1 de Outubro de 2008 11:59:44
Assunto: Res: [delphi-br] ScrollBar some de DBGrid

Olá pessoal,

Willian, resolvi seu problema e adicionei no componente a propriedade TrueColor 
(Default $00FFEFDF). O pacote está disponível para download no link 
http://www.4shared. com/file/ 65228674/ 7bb050bd/ DB-Aware. html
Se você permitir, removo a senha e disponibilizo para nossos colegas no link 
http://www.4shared. com/dir/5679510/ 48848609/ Uploads.html

Um abraço a todos!
Silvio Clécio

- Mensagem original 
De: Willian Jhonnes L. dos Santos willianjhonnes@ yahoo.com. br
Para: [EMAIL PROTECTED] os.com.br
Enviadas: Quarta-feira, 1 de Outubro de 2008 9:56:58
Assunto: [delphi-br] ScrollBar some de DBGrid

Bom dia!

Criei um componente descendente do TDBGrid que cria checkboxes para 
campos booleanos. Até aí, tudo bem. O componente funciona que é uma 
beleza. Porém, tenho um problema: quando mudo alguma propriedade de 
QUALQUER componente do form em tempo de execução, a ScrollBar do 
componente some, ficando oculta além da borda visível do componente.

Eis o código fonte onde o problema ocorre [1]. Notem que o componente 
que apresenta o problema é o cdgbItensNota, não o que

Res: [delphi-br] [OFF-TOPIC] Lazarus

[Willian Jhonnes Lara dos Santos]

Opa... Diga lá, Vinicius. Oq vc quer saber?

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---



- Mensagem original 
De: Vinicius Santos - MSI [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 1 de Outubro de 2008 9:37:29
Assunto: [delphi-br] [OFF-TOPIC] Lazarus


Pessoal, alguém aqui utiliza Lazarus ?
Estou afim de trocar algumas informações e dúvidas a respeito da IDE.

Obrigado 

[As partes desta mensagem que não continham texto foram removidas]




  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] Compactação de dll, bpl e exe cutáveis

[Willian Jhonnes Lara dos Santos]

Dando um pitaco de leve, encontrei uma solução mais interessante à época em que 
implementei. Também tinha problemas com executáveis enormes e atualização pela 
internet. O que fiz foi modularizar a aplicação em BPLs, mantendo em cada BPL 
os formulários com similaridade de função (cadastros, relatórios, manutenção, 
etc). Isso reduziu - e muito - o custo da atualização, pois, se fosse detectado 
um problema ou solicitado um ajuste, bastava alterar e recompilar a BPL e 
disponibilizar para o cliente.

Mas, como falei, é só um pitaco de leve...

[]'s

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---



- Mensagem original 
De: Eduardo Silva dos Santos [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 1 de Outubro de 2008 10:19:07
Assunto: Re: [delphi-br] Compactação de dll, bpl e executáveis


Eu tinha o mesmo problema, 4 executáveis grandes, e cliente reclamando da
demora de atualizar, na época eu usei Upx e tive muitos problemas em algumas
máquinas, era violação de acesso para tudo quanto é lado.
Hoje eu automatizei todo o processo de atualização, compacto do exe no
padrão 7Zip, de 20MB vai para 3MB, o servidor do cliente baixa o arquivo
compactado e todas as máquinas da rede copiam o arquivo .7ZIP e se auto
atualizam.

2008/10/1 Joao Morais [EMAIL PROTECTED] com.br

   Adriano Santos (Y!) wrote:
  Concordo em gênero e número contigo. Sei muito bem como funcionam o
  UPX,VirtualCompress e o AsPack.
  Meu principal problema onde trabalhei, como mencionei, era distribuição
  do sistema e os usuários que eram bem ruins. Descompactar um arquivo
  .zip, vixi...era o maior trabalho cara.

 Isto é a realidade em quase todos os pequenos clientes (e boa parte dos
 grantes também). O que eu procurei colocar é que UPX não é solução, é
 paleativo, e dos problemáticos em máquinas com pouca memória. Quando
 falei descompactar no cliente, eu me referia à própria aplicação, ou um
 atualizador, fazer este trabalho.

 Joao Morais
 


-- 
 . . . . ...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
MSN: eduardo.drd@ gmail.com
Site: http://www.drdsiste mas.com.br/
 . . . . ...

[As partes desta mensagem que não continham texto foram removidas]




  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: Res: [delphi-br] ScrollBar some de DBGrid

[Willian Jhonnes Lara dos Santos]

Silvio... Valeu cara, mas a sua alteração não resolveu o problema. Eis oq 
acontece: a barra some por ficar oculta além do limite visível do componente, 
mas ela ainda está lá, pois pode-se observar - olhando com muita atenção - que 
ela se move. Ou seja, atribuir um estado para a propriedade ScrollBars não 
funciona.

Alguém aí tem mais alguma idéia???

[]'s

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---



- Mensagem original 
De: Silvio Clécio [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 1 de Outubro de 2008 11:59:44
Assunto: Res: [delphi-br] ScrollBar some de DBGrid


Olá pessoal,
 
Willian, resolvi seu problema e adicionei no componente a propriedade TrueColor 
(Default $00FFEFDF). O pacote está disponível para download no link 
http://www.4shared. com/file/ 65228674/ 7bb050bd/ DB-Aware. html
Se você permitir, removo a senha e disponibilizo para nossos colegas no link 
http://www.4shared. com/dir/5679510/ 48848609/ Uploads.html
 
Um abraço a todos!
Silvio Clécio
 
- Mensagem original 
De: Willian Jhonnes L. dos Santos willianjhonnes@ yahoo.com. br
Para: [EMAIL PROTECTED] os.com.br
Enviadas: Quarta-feira, 1 de Outubro de 2008 9:56:58
Assunto: [delphi-br] ScrollBar some de DBGrid

Bom dia!

Criei um componente descendente do TDBGrid que cria checkboxes para 
campos booleanos. Até aí, tudo bem. O componente funciona que é uma 
beleza. Porém, tenho um problema: quando mudo alguma propriedade de 
QUALQUER componente do form em tempo de execução, a ScrollBar do 
componente some, ficando oculta além da borda visível do componente.

Eis o código fonte onde o problema ocorre [1]. Notem que o componente 
que apresenta o problema é o cdgbItensNota, não o que está no código. 
Há, também, um link [2] para download do componente.

Quem tiver qualquer idéia ou sugestão, agradeço.

[]'s

[1] - procedure TFBPSI012PSI0003. rbtConferenciaCl ick(Sender: TObject);
begin
with cdbgNotas.Columns[ 1] do
begin
Title.Caption := 'Conferência' ;
FieldName := 'DATARECEB';
end;
Application. ProcessMessages;
proLimpaPesquisas;
if (edtData.DateValue = StrToDate('01/ 01/2008') ) and 
(edtData.DateValue = Date) then
proCarregaDados( Sender);
end;

procedure TFBPSI012PSI0003. rbtEmissaoClick( Sender: TObject);
begin
with cdbgNotas.Columns[ 1] do
begin
Title.Caption := 'Emissão';
FieldName := 'DATANF';
end;
proLimpaPesquisas;
if (edtData.DateValue = StrToDate('01/ 01/2008') ) and 
(edtData.DateValue = Date) then
proCarregaDados( Sender);
end;

[2] - http://www.4shared. com/file/ 65216330/ b9059ea8/ DB-Aware. html

-- 
 - - - - ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolve dor Object/Free Pascal
willianjhonnes@ yahoo.com. br
 - - - - ---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
 - - - - ---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
 - - - - ---
. 

Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara 
@ymail.com ou @rocketmail. com.
http://br.new. mail.yahoo. com/addresses

[As partes desta mensagem que não continham texto foram removidas]




  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] Erro no BDE ao fechar 2 objetos TStoredProc ou TQuery consecutivamente

[Willian Jhonnes Lara dos Santos]

João, primeiramente, obrigado pela resposta...

Mas vamos aos fatos:

 Debugando a aplicação, me deparei com uma mensagem *INFORMATIVA* de 
 violação de acesso! O texto da mensagem é este:
 
 access violation at 0x4da2ed3d: read of address 0xffaaadcc
 83 3A 00 74 63 E8 39 10 00 00 64 8B

Praticamente certo de que alguém está tentando usar um objeto que já foi 
destruído.

Eis o problema: esta violação de acesso só acontece em alguns computadores na 
rede, não em todos. Descobri pq foi instalado o Delphi3 em algumas máquinas 
onde o problema ocorre.

Se o problema aparece em Delphi 7, então é certo que está na sua 
aplicação. Do contrário, numa hipótese muito remota, poderia ser bug da vcl.

Acredito que possa, mesmo, ser um bug. Em minha estação de desenvolvimento o 
problema não se apresenta. Em nenhuma outra estação da equipe o erro se 
apresenta tb... Lembre-se: o objeto NÃO foi destruído, apenas fechado (método 
Close). Não há pq a aplicação apontar para um um objeto destruído, visto que 
nunca uso o método Free em objetos instanciados em tempo de design. Enfim, o 
erro só ocorre quando tenho linhas executando o método Close consecutivamente 
em meu código, por exemplo:

spSelEmpresa.Close;
spSelBandeira.Close;

Reitero: os objetos foram instanciados em tempo de design e não costumo 
destruir nenhum deles em tempo de execução. E o erro só acontece em alguns 
computadores, não em todos.

[]'s

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---


  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] Ajuda com formulário tipo Wizard (era Ajuda)

[Willian Jhonnes Lara dos Santos]

- Mensagem original -
Pessoal

Bom dia, existe algum componente que tem a mesma função do PageControl
mas que não mostra os botoes ou abas ??? Preciso fazer um esquema como
se fosse um programa de instalação... 

vlw..

Wesley
- Fim da mensagem original -

Wesley, na boa, o título da sua mensagem não ajuda nem um pouco. Tente ser mais 
específico já no título. Isso ajuda a quem vai responder.

Em relação à sua dúvida, eu costumo fazer wizards manipulando uma variável de 
índice e as proriedades dos objetos no form. Eu acho essa maneira mais simples. 
Porém, se alguém tiver alguma outra idéia...

[]'s

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---,___   


  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] Ajuda com select

[Willian Jhonnes Lara dos Santos]

Ricardo...

SQL padronizada ANSI-92:

  select nome,
 count(tipo_ligacao) as contagem,
 case when tipo_ligacao = 'P' then 'Particular'
  when tipo_ligacao = 'S' then 'Serviço'
 end as tipo_ligacao,
from ligacoes
group by nome,
 tipo_ligacao

[]'s

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---



- Mensagem original 
De: Ricardo  [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 24 de Setembro de 2008 13:29:28
Assunto: [delphi-br] Ajuda com select


Pesssoal da lista boa tarde 

Preciso de uma ajuda em uma consulta 
A situação é a seguinte 

na minha  tabela ha  os campos nome telefone tipo_ligaçao

Onde o tipo de ligação pode ser particular ou serviço

Como posso fazer para que ele conte quantas ligações cada pessoa fez, dentro
disto contando os tipos separados ,agrupando por nome da pessoa ? Meio chato
né 

Ficaria mais ou menos assim


Nometotal de ligações serviço  particular 
Ricardo   15   10  5 
Andrea   2  20
Andressa3 0 3

Como posso fazer isto?
desde ja agradeço a  ajuda 

Obrigado 


OBS : pensei em criar dois campo de tipo de ligação ai acho que funciona 

Ricado de Abreu

[As partes desta mensagem que não continham texto foram removidas]




  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] Component tipo Gadget do Vista...

[Willian Jhonnes Lara dos Santos]

Dá uma olhada na paleta Raize Components. Ela tem uma aba chamada Raize Gadgets 
q talvez seja oq vc procura... Mas, já aviso, é paga!

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---



- Mensagem original 
De: Fellipe Henrique [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br delphi-br@yahoogrupos.com.br
Enviadas: Segunda-feira, 22 de Setembro de 2008 16:16:48
Assunto: [delphi-br] Component tipo Gadget do Vista...


Amigos, alguém possui algum componente em delphi, que eu possa fazer no
estilo do Gadget do Vista? Tipo, quero por aquela barrinha no meu sistema...

[]s

-- 
 _ _ ___
T.·.F.·.A.·.
Fellipe Henrique

 - - - - - -
CAMPANHA POR UMA INTERNET SEGURA
Proteja o endereço de seus amigos como estou protegendo o seu. Ao enviar
mensagens use SEMPRE o Cco (cópia oculta).
Assim TODOS os endereços estarão preservados. E, claro, antes de encaminhar
um e-mail, delete todas as informações que apareçam no corpo do e-mail e que
possam ser usadas por hackers.
 # # #

[As partes desta mensagem que não continham texto foram removidas]




  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] Componete

[Willian Jhonnes Lara dos Santos]

???

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---



- Mensagem original 
De: fabricio mata de castro [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Segunda-feira, 22 de Setembro de 2008 16:58:50
Assunto: [delphi-br] Componete


componente rocketdok  como no xp para delphi 2007

[As partes desta mensagem que não continham texto foram removidas]




  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] componete

[Willian Jhonnes Lara dos Santos]

Cara, o RocketDock é uma aplicação feita em .Net! Talvez, oq vc consiga é 
escrever uma aplicação igual manipulando objetos TImage, mas um componente que 
faça isso eu ainda não vi.

Pergunta pro google. Se ele não souber, acho q, então, ninguém sabe!

[]'s

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---



- Mensagem original 
De: fabricio mata de castro [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Segunda-feira, 22 de Setembro de 2008 17:13:25
Assunto: Re: [delphi-br] componete


Gostaria de saber se existe algum componente que faca aapresentacao do
menu rocketdok
do xp  em delphi entenderam

[As partes desta mensagem que não continham texto foram removidas]




  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] Ref. Componentes

[Willian Jhonnes Lara dos Santos]

Silvio...

Não vi (ainda) nenhuma comunidade brasileira em torno do Zeos. Eu estava 
disposto a criar algo nesse sentido, mas sozinho não dá. E, fundamental, 
ultimamente não tenho conseguido tempo para novos projetos, quanto mais para 
colaboração. Tomara isso acabe semana que vem (minha chefe sai de férias)...

Mas, caso vc (ou mais alguém) tb se disponha, podemos amadurecer esta idéia. 
Basta criar um fórum, organizar o desenvolvimento (caso a gente decida meter a 
mão na massa realmente) e fortalecer o contato com o pessoal do desenvolvimento 
do componente. A oportunidade e os meios de se fazer isso nós temos, só nos 
falta fazer.

Se vc implementar a solução do Eduardo, posta aqui o resultado. Eu só poderia 
pensar nessa implementação semana que vem. Se vc tiver um pouco mais de tempo 
que eu, sinta-se à vontade pra fazer e postar a solução. Como vc já tá limpando 
o código, e isso é uma boa coisa, o resultado dessa limpeza vai trazer mais 
confiabilidade ao projeto. Isso também merece um post.

O pior, na minha opinião, seria a documentação em pt_BR. Isso deveria ser 
organizado e realizado o mais breve possível. Eu me disponho a fazer isso tb, 
mas esbarro na questão tempo a todo momento.

E ainda faltaria o suporte ACID para Oracle e Postgres. Já achei na internet 
uma implementação para a execução das Stored Functions (sim, Functions, e não 
Procedures) do PG. Mas, novamente, algo muito restrito (o cara fez, postou no 
blog, e só os amiguinhos ficaram sabendo). Vou ver se pego esta implementação e 
aplico no 6.6.3-stable pro pessoal do desenvolvimento avaliar. E assim vamos 
melhorando o Zeos no melhor ponto da filosofia Software Livre, a colaboração.

Gente, desculpem se o assunto soar como off-topic, mas acredito grandes 
resultados poderiam ser obtidos se todos tivessem conhecimento desta 
iniciativa. Principalmente, pelas doletas que deixariam de ser pagas, 
revertendo esta economia em nosso próprio aperfeiçoamento.

[]'s

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---


  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] colorir a linha selecionada do dbgrid

[Willian Jhonnes Lara dos Santos]

- Mensagem original 
Como faço para coloria a linha selecionada do dbgrid?
- Fim da mensagem original 

Colorir em que envento?
Ao sair do grid deixar a linha selecinada colorida?
Ao selecionar a linha?

Passe um pouco mais de informações para que o pessoal possa ajudar de maneira 
mais eficiente e objetiva.

Mas, garanto, se vc procurar pelo evento onDrawColumnCell no google, vai 
encontrar oq precisa.

[]'s

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---


  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: Res: [delphi-br] colorir a linha selecionada do dbgrid

[Willian Jhonnes Lara dos Santos]

http://www.mail-archive.com/delphi-br@yahoogrupos.com.br/msg42410.html
http://www.linhadecodigo.com.br/Dica.aspx?id=144
http://www.devmedia.com.br/articles/viewcomp.asp?comp=3189

Todos vindos daqui:

http://www.google.com.br/search?source=ighl=pt-BRrlz=1G1GGLQ_PT-BRBR293=q=colorir%2Blinha%2Bdbgrid%2BdelphibtnG=Pesquisa+Googlemeta=

Ou seja, como sempre, quem procura, acha. Esta lista não é Help Desk pra 
ninguém. Antes de postar dúvidas já respondidas ou que podem ser facilmente 
encontradas na internet, nada como uma boa pesquisa no google, não é?

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---



- Mensagem original 
De: rzzanatta [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Sexta-feira, 19 de Setembro de 2008 10:14:35
Assunto: Re: Res: [delphi-br] colorir a linha selecionada do dbgrid


eu quero coloria a linha quando eu seleciono ela...

--- Em [EMAIL PROTECTED] os.com.br, Willian Jhonnes Lara dos Santos 
willianjhonnes@ ... escreveu

 - Mensagem original 
 Como faço para coloria a linha selecionada do dbgrid?
 - Fim da mensagem original 
 
 Colorir em que envento?
 Ao sair do grid deixar a linha selecinada colorida?
 Ao selecionar a linha?
 
 Passe um pouco mais de informações para que o pessoal possa ajudar 
de maneira mais eficiente e objetiva.
 
 Mas, garanto, se vc procurar pelo evento onDrawColumnCell no 
google, vai encontrar oq precisa.
 
 []'s
 
   - - - - ---
 Att.:
 Willian Jhonnes L. dos Santos
 Analista/Desenvolve dor Object/Free Pascal
 willianjhonnes@ ...
  - - - - ---
 Seja livre. Use Linux.
 Grupo de Usuários GNU/Linux de São José dos Pinhais
 Linux user number 449753
  - - - - ---
 Powered by Slackware Linux 12.0
 Kernel 2.6.21.5-custom
  - - - - ---
 
 
   Novos endereços, o Yahoo! que você conhece. Crie um email 
novo com a sua cara @ymail.com ou @rocketmail. com.
 http://br.new. mail.yahoo. com/addresses
 
 [As partes desta mensagem que não continham texto foram removidas]





  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] Programa não aparece na barra do windows

[Willian Jhonnes Lara dos Santos]

Sérgio...

Qual o formulário principal na sua aplicação? Há um formulário de login? De que 
maneira ele é chamado?

[]'s

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---



- Mensagem original 
De: Sergio - Jundiai / SP [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Sexta-feira, 19 de Setembro de 2008 10:27:51
Assunto: [delphi-br] Programa não aparece na barra do windows




Bom dia

alguem poderia me dar uma luz

quando abro minha aplicação
ela naa aparece junto com os programas abertos na barra de tarrefas do windows

Estou utilizando
delphi 2007

windows vista

Atenciosamente,

Premium
Dpto. Gestão - Sérgio
Tel. (11) 3378-4500
e-mail: degest.premium@ terra.com. br

- Original Message - 
From: Alosi yahoo 
To: [EMAIL PROTECTED] os.com.br 
Sent: Tuesday, September 16, 2008 9:57 PM
Subject: Re: [delphi-br] COBOL X DELPHI - FIREBIRD

Num banco apenas ou vários bancos?

pena_rs escreveu:
 Boa noite pessoal, tenho uma duvida aqui pra colocar em foco de como
 seria uma parametrização em delphi.
 Trabalho em softhouse bem conceituada aqui na região centro do RS,
 mas... a empresa por incrivel que pareça trabalha com cobol
 microfocus, até ae tudo bem, pq temos mais de 1.000 clientes nos mais
 diversos tipos de sistemas, mas vamos ao que interessa.
 Hj temos como padronizar que na empresa A da automação, compartilha
 o cadastro de clientes com a Empresa B, e que a empresa A da
 automação compartilha seu cadastro de produtos com a empresa C, como
 seria feito isso em DELPHI X FIREBIRD?


  - - --

 

[As partes desta mensagem que não continham texto foram removidas]




  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] Programa não aparece na barra do windows

[Willian Jhonnes Lara dos Santos]

Vc pode passar a ordem em que eles são abertos na aplicação???
Login - Agenda
Agenda - Login

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---



- Mensagem original 
De: Sergio - Jundiai / SP [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Sexta-feira, 19 de Setembro de 2008 10:39:58
Assunto: Re: [delphi-br] Programa não aparece na barra do windows


o principal é Agenda

e tem um de login que se chama login

ambos são abertos no icinio da aplicação

Atenciosamente,

Premium
Dpto. Gestão - Sérgio
Tel. (11) 3378-4500
e-mail: degest.premium@ terra.com. br

- Original Message - 
From: Willian Jhonnes Lara dos Santos 
To: [EMAIL PROTECTED] os.com.br 
Sent: Friday, September 19, 2008 10:37 AM
Subject: Res: [delphi-br] Programa não aparece na barra do windows

Sérgio...

Qual o formulário principal na sua aplicação? Há um formulário de login? De que 
maneira ele é chamado?

[]'s

 - - - - ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolve dor Object/Free Pascal
willianjhonnes@ yahoo.com. br
 - - - - ---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
 - - - - ---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
 - - - - ---

- Mensagem original 
De: Sergio - Jundiai / SP sergioinfosp@ yahoo.com. br
Para: [EMAIL PROTECTED] os.com.br
Enviadas: Sexta-feira, 19 de Setembro de 2008 10:27:51
Assunto: [delphi-br] Programa não aparece na barra do windows

Bom dia

alguem poderia me dar uma luz

quando abro minha aplicação
ela naa aparece junto com os programas abertos na barra de tarrefas do windows

Estou utilizando
delphi 2007

windows vista

Atenciosamente,

Premium
Dpto. Gestão - Sérgio
Tel. (11) 3378-4500
e-mail: degest.premium@ terra.com. br

- Original Message - 
From: Alosi yahoo 
To: [EMAIL PROTECTED] os.com.br 
Sent: Tuesday, September 16, 2008 9:57 PM
Subject: Re: [delphi-br] COBOL X DELPHI - FIREBIRD

Num banco apenas ou vários bancos?

pena_rs escreveu:
 Boa noite pessoal, tenho uma duvida aqui pra colocar em foco de como
 seria uma parametrização em delphi.
 Trabalho em softhouse bem conceituada aqui na região centro do RS,
 mas... a empresa por incrivel que pareça trabalha com cobol
 microfocus, até ae tudo bem, pq temos mais de 1.000 clientes nos mais
 diversos tipos de sistemas, mas vamos ao que interessa.
 Hj temos como padronizar que na empresa A da automação, compartilha
 o cadastro de clientes com a Empresa B, e que a empresa A da
 automação compartilha seu cadastro de produtos com a empresa C, como
 seria feito isso em DELPHI X FIREBIRD?


  - - --

 

[As partes desta mensagem que não continham texto foram removidas]

Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara 
@ymail.com ou @rocketmail. com.
http://br.new. mail.yahoo. com/addresses

[As partes desta mensagem que não continham texto foram removidas]

[As partes desta mensagem que não continham texto foram removidas]




  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: RES: [delphi-br] Conversão de bases de dado s ..

[Willian Jhonnes Lara dos Santos]

Cara, uma sugestão: poste o link para download deste software, assim vc evita o 
manda pra mim - manda pra mim tb q sempre rola.

[]'s

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---



- Mensagem original 
De: [EMAIL PROTECTED] [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Sexta-feira, 19 de Setembro de 2008 18:09:02
Assunto: RES: [delphi-br] Conversão de bases de dados ..


BDTrans


Cícero Fernandes
Eng. Eletricista
Eng. de Segurança do Trabalho
CREA-SC 27.958-0
P Antes de imprimir, pense em sua responsabilidade e compromisso com o MEIO
AMBIENTE! 


_ 

De: [EMAIL PROTECTED] os.com.br [mailto:[EMAIL PROTECTED] os.com.br] Em
nome de ajama_1
Enviada em: sexta-feira, 19 de setembro de 2008 15:29
Para: [EMAIL PROTECTED] os.com.br
Assunto: Re: [delphi-br] Conversão de bases de dados ..

Qual o nome desse software converter base de dados.

Fabiano, (11) - 2063-3924.
[EMAIL PROTECTED] mailto:suporte% 40newcap. com.br com.br
NEWCAP - Centro de Apoio Profissional

- Original Message - 
From: Antonio Mateus 
To: [EMAIL PROTECTED] mailto:delphi- br%40yahoogrupos .com.br os.com.br 
Sent: Friday, September 19, 2008 12:38 PM
Subject: Re: [delphi-br] Conversão de bases de dados ..

poderia mandar para mim, obrigado !

2008/9/19 [EMAIL PROTECTED] mailto:cicero% 40fiosecabos. ind.br ind.br




 recebi o arquivo em anexo ..
 é um soft para converter base de dados em vários formatos
 utilizei em meu sistema para converter do paradox para o DBIsam e
funcionou
 perfeitamente ...
 Se for útil para alguém ...


 Cícero Fernandes
 Eng. Eletricista
 Eng. de Segurança do Trabalho
 CREA-SC 27.958-0
 P Antes de imprimir, pense em sua responsabilidade e compromisso com o
MEIO
 AMBIENTE!


 [As partes desta mensagem que não continham texto foram removidas]

 


-- 
Antonio Mateus
Estudante de Sistemas de Informação 5º Periodo
FAL - Faculdade de Alagoas
Aprendiz Java
Netbeans 6.1 User

[As partes desta mensagem que não continham texto foram removidas]

[As partes desta mensagem que não continham texto foram removidas]

[As partes desta mensagem que não continham texto foram removidas]




  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: Res: [delphi-br] Ref. Componentes

[Willian Jhonnes Lara dos Santos]

Olá Ricardo...

- corte -
Posso contribuir traduzindo a documentação do inglês para o português do 
Brasil, mas esbarro na questão do tempo ( só tenho as noites e finais de semana 
disponíveis )
- /corte -

Como me disse uma vez o Mark Daems (o desenvolvedor do Zeos), sinta-se à 
vontade para contribuir. O problema é q a documentação do projeto está bastante 
desorganizada. Ela serve como referência, mas em partes. Não sei se muita coisa 
poderá ser aproveitada.

- corte -
Só para equalizar: posso fazer a tradução à partir da documentação que 
acompanha o componente ou se existe algo mais. Baixei 3 arquivos a partir da 
página do Zeos no SF. 

* ZEOSDBO-6.6. 3-stable. zip (1.55MB)
* ZEOSDBO-6.6. 3-stable_ doxygen.zip (11.7MB)
* ZEOSEDBO-6.6. 3-stable- DelphiCode2Doc (20.3MB)

Quais as diferenças entre eles? 
- /corte -

Em relação às diferenças nos pacotes, ainda não tive tempo de vasculhá-los 
mais a fundo. Então, realmente, não tenho essa informação (ainda). Nada, tb, q 
uma pergunta ao Mark não esclareça.

- corte -
Sempre quis usar o Zeos mas esbarrava em alguns impecílios. Quem sabe 
contribuindo com o projeto já dá pra aplicar melhor a coisa toda.
- /corte -

Quais empecilhos vc encontrou? Dificuldade técnica? Falta de documentação? 
Falta de suporte? Instabilidade nas conexões?
Acredito, sim, q com a sua contribuição, seus horizontes se expandirão. 
Trabalhando com o Zeos, já deixei muitos clientes felizes, sem sequer instalar 
um driver de acesso ODBC em qualquer um deles. E, pra apimentar um pouco mais o 
caldo, se eu usar apenas instruções DDL com padronização ANSI, o dia em que eu 
decidir migrar toda a base de dados de um cliente de, por exemplo, MySQL para 
Oracle, basta eu alterar o arquivo INI das configurações estipulando o 
protocolo e pronto. Nem preciso recompilar.

Enfim, sei que existem soluções mais completas para o trato com os vários 
SGBDs q temos no mercado. Em geral, essas soluções são pagas e não custam 
barato. As 249,95 doletas pagas pelo IBDAC (pq se for pra comprar um 
componente, só vale a pena se for com os fontes), calculadas na cotação d hj, 
dariam R$ 459,85, oq me compram, no mínimo, 4 novos livros. Mas ainda não vi a 
justificativa do pq usar IBDAC em detrimento ao Zeos. E o argumento d q ele é 
mais rápido cai por terra quando o assunto é o Firebird. Já o ODAC eu não 
discuto.

Mas, cara, como já disse, sinta-se à vontade. O Silvio Clécio já começou a 
trabalhar no componente. Assim q der, eu implemento mais algumas coisas (como o 
suporte às Stored Functions do Postgres). Assim a gente vai contribuindo e 
melhorando esta pequena, mas notável ferramenta.

[]'s

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---


  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] Atualização entre DB's usando Query ou ClientDataSet

[Willian Jhonnes Lara dos Santos]

Carlos, uma pergunta: pq não usar o dblink nessa situação? É uma aplicação 
desenvolvida exatamente para isso.

[]'s

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---



- Mensagem original 
De: Carlos [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quinta-feira, 18 de Setembro de 2008 11:16:24
Assunto: [delphi-br] Atualização entre DB's usando Query ou ClientDataSet


Bom dia senhores!
Solicito(mais uma vez), a possibilidade de ajuda para sanar este
problema/dúvida.
Tenho Db's em servidores diferentes, e preciso desenvolver uma
aplicação que ao iniciar conecte com estes três DB's em servidores
diferentes, e que um deles seja atualizado pelo dado dos outros dois.
Tenho um dataModule e nele, usando o componente Zeus (já que o banco é
MySql) e querys para me conectar com as tabelas. Só que eu não
gostaria de percorrer todos os registros das tabelas para inserir os
que precisa-se, e sim que ao iniciar, mostra-se apenas os que
estivessem faltando para atualizar.
Tem como fazer isso? Alguém tem sugestões para fazer isto de uma forma
diferente e melhor?
Qualquer auxílio será bem vindo.
Fraterno abraço,
Carlos




  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] Ajuda com Forms Modais

[Willian Jhonnes Lara dos Santos]

Olá, Odail...

Por acaso o FormStyle deste formulário está em fsStayOnTop? Se sim, mude para 
fsNormal.

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---



- Mensagem original 
De: Odail Della Niesi Junior [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quinta-feira, 18 de Setembro de 2008 13:24:55
Assunto: [delphi-br] Ajuda com Forms Modais


Pessoal,

Estou com o seguinte problema: tenho um método para excluir registro!
Conforme procedure abaixo:

procedure TfMedicosManutencao .btExcluirClick( Sender: TObject);

begin

inherited;

if Application. MessageBox( PChar('Excluir '+
DMPesquisa.cdsMEDIC ONM_MEDICO. AsString +'?'), PChar(Application. Title), +

MB_YESNO + MB_ICONQUESTION )=mrYes then

begin

DMManut.cdsMedManut .Delete;

DMManut.cdsMedManut .ApplyUpdates( 0);

MessageDlg(' Registro excluido com sucesso !', mtInformation, [mbOk],
0);

Close;

end;

end;

A chamada desse form é feita através da procedure abaixo:

procedure TfMedicosPesquisa. DBGrid1DblClick( Sender: TObject);

begin

inherited;

try

Application. CreateForm( TfMedicosManuten cao, fMedicosManutencao) ;

fMedicosManutencao. Inserindo := False;

fMedicosManutencao. ShowModal;

finally

fMedicosManutencao. Free;

end;

end;

Acontece que a confirmação para excluir o registro fica atrás do form e o
usuário acha que o sistema encontra-se travado e na realidade não é isso.
Alguém já consegui contornar esse problema de janelas MODAIS ?

Agradeço antecipadamente a ajuda dos colegas.

-- 
Odail Della Niesi Junior
São Pedro - São Paulo - Brasil
MSN: [EMAIL PROTECTED] com
Skype: dellaniesi
Paltalk: dellaniesi

[As partes desta mensagem que não continham texto foram removidas]




  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] Re: É impressão minha ou depo is do HotFix April 2008 o Delphi 2007 tá lento?

[Willian Jhonnes Lara dos Santos]

Cara, já experimentei isso no D7 e no BDS2006... Mas não pelos hotfix ou 
atualizações, mas pela quantidade de componentes de terceiros instalados 
(TMSPack, Raize, Zeos, ODAC, MyDAC, PostgresDAC, Jedi, VCLSkin, FastReport e 
IOComp), além da minha paleta de componentes personalizados. Isso pesava muito 
na inicialização e no code complention. Tive de aliviar o peso, desinstalando 
paletas que eu não utilizava para melhorar um pouco a minha situação. A 
primeira da lista foi a ADO/dbGO, depois a BDE, a IB e a DBX. Isso melhorou 
muito o desempenho da IDE.

Dá uma olhada nisso tb. De repente ajuda...

[]'s

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---



- Mensagem original 
De: Fellipe Henrique [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quinta-feira, 18 de Setembro de 2008 15:31:22
Assunto: Re: [delphi-br] Re: É impressão minha ou depois do HotFix April 2008 o 
Delphi 2007 tá lento?


Cara, mas antes não era assim, ou eu não prestava atenção!.. hehehehe, vai
entender né!?

[]s

2008/9/18 Eduardo Silva dos Santos eduardo.drd@ gmail.com

   Fellipe, não impressão sua não, esse demora ai é nativa da IDE, remover
 o
 HotFix nao vai adiantar.


 2008/9/18 Fellipe Henrique [EMAIL PROTECTED] com fellipeh%40gmail. com

  Bom, acho que é só comigo, como faço pra remover esse hotfix?
 
  []s
 
  2008/9/18 Fellipe Henrique [EMAIL PROTECTED] com fellipeh%40gmail. 
  comfellipeh%
 40gmail.com 

 
   Amigos, depois que instalei o HotFix April 2008, no meu Delphi 2007,
   quando digito o . (ponto) nas classes e tals, parece que dá uma travada
  no
   delphi, antes não tinha isso... acontece mesmo isso, ou é só comigo?
  Existe
   um HotFix maior que o April 2008?
  
   []s
  
   --
    _ _ ___
   T.·.F.·.A.·.
   Fellipe Henrique
  
  
    - - - - - -
   CAMPANHA POR UMA INTERNET SEGURA
   Proteja o endereço de seus amigos como estou protegendo o seu. Ao
 enviar
   mensagens use SEMPRE o Cco (cópia oculta).
   Assim TODOS os endereços estarão preservados. E, claro, antes de
  encaminhar
   um e-mail, delete todas as informações que apareçam no corpo do e-mail
 e
   que
   possam ser usadas por hackers.
    # # #
  
 
  --
   _ _ ___
  T.·.F.·.A.·.
  Fellipe Henrique
 
   - - - - - -
  CAMPANHA POR UMA INTERNET SEGURA
  Proteja o endereço de seus amigos como estou protegendo o seu. Ao enviar
  mensagens use SEMPRE o Cco (cópia oculta).
  Assim TODOS os endereços estarão preservados. E, claro, antes de
 encaminhar
  um e-mail, delete todas as informações que apareçam no corpo do e-mail e
  que
  possam ser usadas por hackers.
   # # #
 
  [As partes desta mensagem que não continham texto foram removidas]
 
 
 

 --
  . . . . ...
 Eduardo Silva dos Santos
 DRD SISTEMAS
 (27) 3218-4201
 MSN: eduardo.drd@ gmail.com eduardo.drd% 40gmail.com
 Site: http://www.drdsiste mas.com.br/
  . . . . ...

 [As partes desta mensagem que não continham texto foram removidas]

 


-- 
 _ _ ___
T.·.F.·.A.·.
Fellipe Henrique

 - - - - - -
CAMPANHA POR UMA INTERNET SEGURA
Proteja o endereço de seus amigos como estou protegendo o seu. Ao enviar
mensagens use SEMPRE o Cco (cópia oculta).
Assim TODOS os endereços estarão preservados. E, claro, antes de encaminhar
um e-mail, delete todas as informações que apareçam no corpo do e-mail e que
possam ser usadas por hackers.
 # # #

[As partes desta mensagem que não continham texto foram removidas]




  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] É impressão minha ou depois do HotFix April 2008 o Delphi 2007 tá lento?

[Willian Jhonnes Lara dos Santos]

Mas essa é a questão, Fellipe... Com os updates, classes são corrigidas, novos 
métodos podem ser implementados, novas classes podem ser criadas, etc... É 
nesse ponto que o problema pode ocorrer. Então, o que a IDE gerenciava com mais 
facilidade, com a adição de peso por novas classes e métodos, gerenciar as 
bpl's pode não ser mais uma tarefa tão rápida. Gerenciar, então, as classes 
embutidas nessas bpl's pode, também, se tornar um processo mais pesado, assim 
como pesquisar seus métodos e propriedades para o code complention. Veja a 
posição do delay no Code Insight como o Eduardo comentou. Diminua o tempo e vê 
se fica mais confortável pra vc... 

[]'s

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---



- Mensagem original 
De: Fellipe Henrique [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quinta-feira, 18 de Setembro de 2008 16:31:35
Assunto: Re: [delphi-br] É impressão minha ou depois do HotFix April 2008 o 
Delphi 2007 tá lento?


é pode ser, realmente tenho alguns... mas sao os mesmos de antes... hehe...
é questao de acostumar tbm..

[]s

2008/9/18 Luciano Calenzani Simões simoesluciano@ yahoo.com. br

   Sim, mas o seu problema pode ser o que os outros colegas citaram, muitos
 componentes por exemplo.

 Luciano Calenzani Simões


 - Mensagem original 
 De: Fellipe Henrique [EMAIL PROTECTED] com fellipeh%40gmail. com
 Para: [EMAIL PROTECTED] os.com.br delphi-br%40yahoog rupos.com. br
 Enviadas: Quinta-feira, 18 de Setembro de 2008 16:23:43
 Assunto: Re: [delphi-br] É impressão minha ou depois do HotFix April 2008 o
 Delphi 2007 tá lento?

 Acredito não ser, porque antes de aplicar esse hotfix, tava numa boa...
 agora tá lá... fazer o que né!?

 Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua
 cara @ymail.com ou @rocketmail. com.
 http://br.new. mail.yahoo. com/addresses

 [As partes desta mensagem que não continham texto foram removidas]

 


-- 
 _ _ ___
T.·.F.·.A.·.
Fellipe Henrique

 - - - - - -
CAMPANHA POR UMA INTERNET SEGURA
Proteja o endereço de seus amigos como estou protegendo o seu. Ao enviar
mensagens use SEMPRE o Cco (cópia oculta).
Assim TODOS os endereços estarão preservados. E, claro, antes de encaminhar
um e-mail, delete todas as informações que apareçam no corpo do e-mail e que
possam ser usadas por hackers.
 # # #

[As partes desta mensagem que não continham texto foram removidas]




  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: Res: [delphi-br] Ref. Componentes

[Willian Jhonnes Lara dos Santos]

- Mensagem original 
Lá vem polêmica.

Qual banco de dados você usará?

Luciano Calenzani Simões
- Fim da mensagem original 


E bota polêmica nisso... ;)

Omar, como já tínhamos conversado uma vez, pro Firebird vc tem todas essas 
opções e mais algumas que vc não citou, como o UniDAC da DevArt por exemplo.

Fiz alguns testes de estresse com o Zeos 6.6.3-stable no Firebird 2.1.1.17910-0 
e ele se saiu muito bem... Sem drivers, apenas com a fbclient.dll. Ou seja, é 
uma ótima opção. Ah, e com um detalhe: com a transação executada dentro do 
próprio ZConnection (no melhor estilo ODAC).

Falando nisso, fiquei te devendo um exemplo de uso do Zeos com o FB! Cara, 
desculpe mas aqui andou meio corrido ultimamente... Assim que acalmarem os 
ímpetos de espremerem o programador que vos escreve até a última gota de sangue 
eu te mando o material, ok???

[]'s

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---







- Mensagem original 
De: Omar Marques webomarmatrix@ yahoo.com. br
Para: [EMAIL PROTECTED] os.com.br
Enviadas: Quinta-feira, 18 de Setembro de 2008 16:59:06
Assunto: [delphi-br] Ref. Componentes

Salve novos amigos Delphianos 

[01.] Usarei o Delphi 7
Enterprise e meus componentes. Qual componente é melhor e é free
(DBExpress, IBX, IBObjects, MDO, ZeosLib) ?

Abraço a todos e saudações a todos que responderem

Att.
Omar (ex-piradoidox)

Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara 
@ymail.com ou @rocketmail. com.
http://br.new. mail.yahoo. com/addresses

[As partes desta mensagem que não continham texto foram removidas]




  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: Res: Res: Res: [delphi-br] Ref. Componentes

[Willian Jhonnes Lara dos Santos]

- Mensagem original 
Olá pessoal,
 
Polêmica X Polêmica, rsrsrsrsrsrs.
É o seguinte, eu usava o Zeos X.X.X a um bom tempo, tive problemas que
se eu for citar aqui os moderadores da lista irão me chamar a atenção,
eram muitos, e eu tentei corrigi-los, mas dava muito trabalho, passei a
usar {$WARNINGS OFF} para ver se me livrava das mensagens de erro.
Depois que conheci o MDO a coisa mudou, pois ele é muito parecido com
os componentes IB, e os erros do desenvolvedor são simples de corrigir.
 
Um abraço a todos!
Silvio Clécio
- Fim da mensagem original 


Pois é, Silvio... Nada antes do Zeos 6.6.x era realmente confiável. Não sei há 
quanto tempo vc usou os componentes mas, garanto, eles estão bem melhores. 
Comecei a usar na versão 5.1, se não me engano, pra poder resolver meus 
problemas com o DBX no finado Kylix. Hj, toda a minha demanda cross-plataform 
está nele. Seja com Firebird, MySQL ou Postgres, ele tem respondido muito bem. 
Só é uma pena que as implementações para os recursos ACID do PG e, 
principalmente, do Oracle, ainda não estejam prontas.

Eu uso sem restrições quando se trata de Firebird. Ele me dá uma boa resposta, 
limitada, sempre, à falta de aglidade do FB em algumas operações. Mas isso é 
outro assunto, e para outra lista...

Quem um dia usou e se sentiu descontente com o componente no passado, perca um 
tempinho e teste a última versão (6.6.3-stable). Não custa nada...

Ah, só um comentário: Warnings não são erros. Eles só avisam que vc fez alguma 
caca e não inicializou uma variável ou coisas desse naipe.

[]'s

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---___   


  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] Ref. Componentes

[Willian Jhonnes Lara dos Santos]

- Mensagem original 
Willian, quando eu usava Zeos eu implementei um esquema de conexão
persitente para rede instáveis.

se quiser te mando os fontes do Zeos 6.5 que fiz isso e vc aproveita..
basicamente é uma pequena mudança
do TZConnection e o TZQuery

att, Eduardo.
- Fim da mensagem original 

Mas é lógico q eu quero, Eduardo. Pode mandar. Mas vou te dar uma outra 
sugestão: entre em contato com o pessoal do desenvolvimento do Zeos e repasse 
esta alteração para eles avaliarem. De repente ela sai na versão 7 do 
componente (ou quem sabe antes). Aí todo mundo se beneficiaria. Oq acha?

[]'s

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---._,___   


  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: Res: Res: [delphi-br] Ref. Componentes

[Willian Jhonnes Lara dos Santos]

Silvio, na boa, o número de perguntas é o menos importante. O que mais importa 
é a qualidade delas. Responder sempre é bom, pois é muito bom poder ajudar. 
Então, que venham as perguntas!

Faça o seguinte teste: comente as variáveis sem uso e recompile o pacote. Menos 
alguns Warnings. Se o compenete funcionar da mesma forma que antes, remova as 
variáveis comentadas e boa. Quanto às diretivas de compilação, elas apenas 
interagem com o desenvolvedor e não influenciam no código em si. Pode usá-las 
tranqüilamente. Mas, como diziam os comerciais de cerveja, aprecie com 
moderação...

Com relação ao protocolo, dê uma olhada no Change Log/Release Notes do FB 2.1 e 
veja se vc vai usar algum dos recursos implementados. Se vc for ficar apenas 
nas instruções DDL ou usar SPs, não há qualquer problema.

Fiz o seguinte teste com ele: me conectei com a minhas bases Oracle, Postgres e 
MySQL e carreguei minha base de CEP's (385.000 registros) em 3 threads 
simultaneamente. Tudo via Zeos. Joguei a 1ª com INSERT no FB sem thread e foi 
tudo bem. Fiz o segundo teste com o UPDATE numa thread de prioridade normal e 
foi tudo bem novamente. No terceiro teste, fiz um delete da tabela de CEP's no 
FB e reinseri tudo por uma thread com prioridade máxima (ptTimeCritical) e ele 
nem suou! Nos meus testes ele se mostrou estável e seguro, sem gerar nenhuma 
inconsistência ou instabilidade. Concluí, então, que ia tudo bem com o Zeos. 

E o mais importante: vc ter exposto as dúvidas aqui vai ajudar, e muito, o Omar 
(o autor da thread) a se decidir. Mas não só ele vai se beneficiar, pode ter 
certeza.

[]'s

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---


  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] Ref. Componentes

[Willian Jhonnes Lara dos Santos]

Valeu, Eduardo...

Vou implementar a sua idéia no 6.6.3 e enviá-la pro pessoal do desenvolvimento 
avaliar. E quando estiver pronto, posto pra lista o link pra baixar...

Ah, inclusive, se alguém aí estiver disposto, o pessoal do desenvolvimento do 
Zeos tá precisando de ajuda pra implementar o suporte ACID para Oracle e 
Postgres. Não vi (ainda) se isso já foi implementado para o MySQL (coisa q só 
vi no MyDAC).

[]'s

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---


  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] [OFF-TOPPIC] Região de Joinvi lle

[Willian Jhonnes Lara dos Santos]

Cara, não é Joinville, mas a Senior de Blumenau tava com um processo grande de 
contratações. Inclusive, os consultores deles que estão prestando serviços aqui 
na empresa onde trabalho (em Curitiba) ganham uma boa grana. E como não é muito 
longe de Joinville...

[]'s

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---



- Mensagem original 
De: emerson.ceia [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 17 de Setembro de 2008 10:45:38
Assunto: [delphi-br] [OFF-TOPPIC] Região de Joinville


Ola pessoal,
Gostaria de saber se alguém do grupo trabalha na região de Joinville-
SC, caso sim, pode me dizer como anda o mercado de Trabalho para 
Programador Delphi nesta região, pois tenho interesse em morar nesta 
região por motivos familiares.

Desde já agradeço.




  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] data e hora

[Willian Jhonnes Lara dos Santos]

FormatDateTime('DD/HH/ HH:NN:SS', Now)???

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---



- Mensagem original 
De: rzzanatta [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 17 de Setembro de 2008 14:56:17
Assunto: [delphi-br] data e hora


Olá, tenho um um campo dbedit e nele quero jogar a data com a hora, mas 
como faço pra jogar a hora junto, normalmente pra jogar só data é date
() e datetime como funciona?




  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] RadioGroup ajuda basica

[Willian Jhonnes Lara dos Santos]

Alessandra...

Para desmarcar todos, ao invés de 0 use -1.

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---



- Mensagem original 
De: alessandra porto [EMAIL PROTECTED]
Para: [EMAIL PROTECTED]; delphi-br@yahoogrupos.com.br
Enviadas: Segunda-feira, 15 de Setembro de 2008 16:32:22
Assunto: [delphi-br] RadioGroup ajuda basica


  como fazer para que ao precionar um botão deixe  desmarcado
todos os itens de um RadioGroup

desta forma eu  marco um

procedure TForm1.Button1Click (Sender: TObject);
begin
   RadioGroup1. ItemIndex: =0;
end;

e para desmarcar todos??

Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara 
@ymail.com ou @rocketmail. com.
http://br.new. mail.yahoo. com/addresses

[As partes desta mensagem que não continham texto foram removidas]




  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] tab por enter .

[Willian Jhonnes Lara dos Santos]

Caríssimos...

Após ver dicastão complicadas de implementar, vou dar a minha:

Evento onKeyDown do Form:

procedure TFBSYS001SYS0002.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
VK_RETURN: Perform(WM_NEXTDLGCTL, 0, 0);
VK_ESCAPE: Perform(WM_NEXTDLGCTL, -1, 0);
  end;
end;

Deixo a propriedade KeyPreview como True e boa. Com isso, TODOS os objetos do 
form que recebam foco e não sejam botões passarão o foco adiante com ENTER e 
retornarão o foco com ESC.

Se eu quiser que isso atue só nos TEdits?

procedure TFBSYS001SYS0002.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Sender is TEdit then
  begin
case Key of
  VK_RETURN: Perform(WM_NEXTDLGCTL, 0, 0);
  VK_ESCAPE: Perform(WM_NEXTDLGCTL, -1, 0);
end;
  end;
end;


[]'s
 
---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---



- Mensagem original 
De: Luis Hilário Tobler Garcia [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Sexta-feira, 12 de Setembro de 2008 13:39:42
Assunto: Re: [delphi-br] tab por enter .


Então, eu coloco em todos os Edits, no Evento OnKeyPress o código abaixo:

case Key of
#27:
begin
Key:=#0;
Self.btnSairClick( Self.btnSair) ;
end;
#13:
begin
Perform(CM_DialogKe y, VK_TAB, 0);
Key:=#0;
end;
end;

- Original Message - 
From: [EMAIL PROTECTED] ind.br 
To: [EMAIL PROTECTED] os.com.br 
Sent: Thursday, September 11, 2008 1:19 PM
Subject: [delphi-br] tab por enter .

alguem sabe como fazer para trocar o tab pelo enter ... 

eu uso o
if key = 13 then 
dbeditX.set forcus  

tem alguma forma de fazer com q o delphi interprete o enter em lugar do tab
... para não precisar escrever esse código cada vez q kero trocar de focu
...

Cícero Fernandes
Eng. Eletricista
Eng. de Segurança do Trabalho
CREA-SC 27.958-0
P Antes de imprimir, pense em sua responsabilidade e compromisso com o MEIO
AMBIENTE! 

_ 

De: [EMAIL PROTECTED] os.com.br [mailto:[EMAIL PROTECTED] os.com.br] Em
nome de Adriano Santos (Yahoo)
Enviada em: quinta-feira, 11 de setembro de 2008 11:35
Para: Delphi-br
Assunto: [delphi-br] [Off] Delphi Tour Report

Pessoal,

Publiquei ontem no meu blog um Report sobre o Delphi Tour aqui em São Paulo.
ABs

-- 
Boa Leitura,

Adriano Santos
Director X-35 Consulting and Development
Development Manager SoftPark
Editor Técnico Revistas ClubeDelphi e WebMobile
www.delphitodelphi. blogspot. com
www.adrianosantos. pro.br
www.devmedia. com.br
www.dug-sp.com

[As partes desta mensagem que não continham texto foram removidas]

[As partes desta mensagem que não continham texto foram removidas]




  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] Programa para chat entre usuários da mesma rede

[Willian Jhonnes Lara dos Santos]

- Mensagem original 
De: Sandro [EMAIL PROTECTED]
Para: delphi-br delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 10 de Setembro de 2008 11:09:14
Assunto: [delphi-br] Programa para chat entre usuários da mesma rede

 Bom dia pessoal, ocorreu uma necessidade aqui onde trabalho de
desenvolvermos um programa para chat entre os funcionarios da empresa,
somente usuarios da rede interna.
Nunca fiz nada parecido, mas achei o desafio muito interessante, gostaria de
saber se existe algum componente que possa me ajudar a desenvolver este
projeto. Utilizo o pacote JVCL333CompleteJCL1 101-Build2725, mas não sei se
la existe algum componente que possa me ajudar.

Desde já agradeço.
Sandro Cardoso
- Fim da mensagem original 


Olá Sandro...

O princípio básico para esta aplicação é o uso de sockets para o envio de 
mensagens. Desenvolvemos algo neste sentido há alguns anos usando o Delphi7 sem 
usar componentes de terceiros. Os clientes atualizavam seu status no BD, 
passanto o IP no qual estavam logados. A partir daí, ao enviar uma mensagem a 
outro cliente, capturávamos seu IP no BD e enviávamos a mensagem por socket de 
maneira direta. Tudo bastante simples.

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---


  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] Re: Componentes de acesso ao Firebird

[Willian Jhonnes Lara dos Santos]

Zeus??? Componente novo q eu não conheço??? Não seria ZEOS (com O), encontrado 
em http://zeos.firmos.at/ em sua versão 6.6.3-stable. Se for esse, vale a pena 
usá-lo e não vi razão para usar um componente pago no lugar dele.

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---



- Mensagem original 
De: Fellipe Henrique [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 9 de Setembro de 2008 18:18:04
Assunto: Re: [delphi-br] Re: Componentes de acesso ao Firebird


Depende...

Gratuito.: Zeus
Pago.: IBDAC, FibPlus

Nenhum se compara ao IBDAC. agora quanto ao DBGrid e tals, isso depende
muito do seu jeito de programar, eu uso os Grids da DevExpress.. .. mas é
questão pessoal isso...

[]s

2008/9/9 lhsevero [EMAIL PROTECTED] s.com.br

   Dá uma olhada no MDO (http://sourceforge. net/projects/ mdo).
 É uma suite de componentes muito boa, feita por um brasileiro. Não sei
 se deram continuidade pois faz tempo que não programo em Delphi para
 FireBird.

 Abraços
 Luiz Henrique Severo

 --- Em [EMAIL PROTECTED] os.com.br delphi-br%40yahoog rupos.com. br,
 Satoy Matsuoka [EMAIL PROTECTED]
 escreveu

 
  Pessoal,
 
  Estou começando a utlizar o D7 com o FB, qual o melhor tipo de
 componente ?
  E qual seria a melhor biblioteca de DB (ex. DBgrid) para utilizar
 com o D7 e
  FB ?
 
  Grato pela dica
  []'s
  Satoy
 
 
  [As partes desta mensagem que não continham texto foram removidas]
 

 


-- 
 _ _ ___
T.·.F.·.A.·.
Fellipe Henrique
http://tecfree. wordpress. com/

[As partes desta mensagem que não continham texto foram removidas]




  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] Exportar Quick Report - Word

[Willian Jhonnes Lara dos Santos]

- Mensagem original 
De: sergio cavalcante [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Segunda-feira, 8 de Setembro de 2008 18:05:16
Assunto: [delphi-br] Exportar Quick Report - Word

 Pessoal,
Alguém sabe uma forma de exportar relatórios Quick Report que vem com o
Delphi 6 pra Word?
Já tentei os Filters:

ExportToFilter( TQRRTFExportFilt er.Create( 'c:\TabelaPreç os.doc')) ;

Mas eles não exportam com a formatação exata do Relatório do QR.

Tentei os filtros Html, Excel, Ascii e csv tbm, sem sucesso.

Esse problema surgiu pq o Quick Report não tem aquela funcionalidade de
imprimir primeiro as
páginas pares e depois as ímpares, necessárias pra um cliente meu que quer
imprimir a tabela
de preços frente-verso. E eu sei que o Word tem isso.

Sim, já tentei todas as configurações do Print Preview, sem sucesso tbm.

Obrigado desde já,

Atenciosamente,
 - -
Sérgio Cavalcante
- Fim da mensagem original 

Olá, Sérgio...

Acho que o melhor no seu caso é trocar a versão do QR para a 4.x. Uso a 4.07 e 
faço a exportação sem problemas. Só algumas pequenas correções foram 
necessárias (como sempre).

[]'s

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---


  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] Access Violation em classe persistente

[Willian Jhonnes Lara dos Santos]

- Mensagem original 
De: fjogassa [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Sexta-feira, 5 de Setembro de 2008 13:31:36
Assunto: [delphi-br] Access Violation em classe persistente

 Olá pessoas, 

seguinte .. criei uma classe persistente para fazer o controle de 
janelas abertas no meu sistema. Nesta classe existe um atributo lista: 
TStrings e ele está sendo criado no construtor da classe, mais no 
momento que eu vou dar um create ele dá access violation.
Esta classe é chamada por um formuário principal, e que no construtor 
do formulário principal eu dou um create na classe persistente, e é 
nesta hora que acontece o erro.
Alguém saberia me dizer o motivo ou uma sugestão para este tipo de 
controle, sendo qeu este controle será para criar um menu com as 
janelas abertas no sistema, se alguém tiver alguma sugestão eu aceito.

Obrigado.
- Fim da mensagem original 

Cara, para podermos ajudar de maneira mais eficiente, poste o código do 
construtor da classe. Assim fica mais fácil, principalmente pq a minha bola de 
cristal parou de funcionar (e alguém sabe me dizer o pq dela não funcionar 
mais?)... ;-)

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---,___   


  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] Access Violation em classe persistente

[Willian Jhonnes Lara dos Santos]

- Mensagem original 
De: fjogassa [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Sexta-feira, 5 de Setembro de 2008 13:31:36
Assunto: [delphi-br] Access Violation em classe persistente

 Olá pessoas, 

seguinte .. criei uma classe persistente para fazer o controle de 
janelas abertas no meu sistema. Nesta classe existe um atributo lista: 
TStrings e ele está sendo criado no construtor da classe, mais no 
momento que eu vou dar um create ele dá access violation.
Esta classe é chamada por um formuário principal, e que no construtor 
do formulário principal eu dou um create na classe persistente, e é 
nesta hora que acontece o erro.
Alguém saberia me dizer o motivo ou uma sugestão para este tipo de 
controle, sendo qeu este controle será para criar um menu com as 
janelas abertas no sistema, se alguém tiver alguma sugestão eu aceito.

Obrigado.
- Fim da mensagem original 

Cara, para podermos ajudar de maneira mais eficiente, poste o código do 
construtor da classe. Assim fica mais fácil, principalmente pq a minha bola de 
cristal parou de funcionar (e alguém sabe me dizer o pq dela não funcionar 
mais?)... ;-)

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---,___   


  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] Ref. Iniciar uso Firebird ou Interbase

[Willian Jhonnes Lara dos Santos]

Bom dia, Omar...

Sua opção pelo abandono do Paradoxx é um grande passo rumo à evolução. Usar um 
SGBD relacional é sempre a melhor pedida.

Em relação ao Firebird, é um excelente SGBD. Tem suporte à Stored Procedures, 
Triggers e 'n' outros detalhes interessantes, que permitem que vc deixe, pelo 
menos, metade do processamento da sua aplicação com o servidor. Um BD bem 
modelado, com recursos mais avançados, SEMPRE facilita a vida do desenvolvedor.

As semelhanças entre ele e o Interbase são inúmeras, afinal este projeto 
descende do Interbase, mas há uma diferença vital: o Interbase NÃO é free. Vc 
pode ter uma licensa de uso gratuíta para o desenvolvimento, mas, se não me 
engano, não pode redistribuir a sua licensa, enviando o SGBD para os clientes 
juntamente com a aplicação.

Na parte de componentes de acesso, os 3 que vc citou são ótimos. 
Particularmente, uso o último. Rápido, estável e sem complicações. A única 
coisa que preciso é da biblioteca fbclient.dll (no caso do Windows) para que 
minha aplicação acesse o servidor.

Ferramentas para manipular o BD existem várias e muito boas. É só dar uma 
pesquisada e vc vai encontrar 'n' opções, inclusive uma desenvolvida pelo mesmo 
desenvolvedor dos componentes MDO (Mercury Database Objects).

Porém, agora vem a parte polêmica: eu, desde que comecei a utilizar o Firebird 
em minhas aplicações, sempre restringi o uso dele a clientes de pequeno porte 
(1 a 5 computadores). Em uma rede com alto fluxo de informações, percebi uma 
pequena desvantagem de performance se comparada à performance do MySQL em rede. 
Utilizando as mesmas técnicas, com o mesmo método de acesso, o MySQL se mostrou 
mais rápido em algumas situações (operações DDL dentro de um looping com mais 
de 100.000 entradas, operando simultaneamente em mais de 2 clientes), mesmo 
usando a engine InnoDB (com suporte à transações).

No quesito acesso remoto, o MySQL também se mostrou mais versátil. Fato este 
que o torna o SGBD mais utilizado no ambiente Web.

Já em termos de escalabilidade, estabilidade e segurança, jáque, se pensarmos 
que sua aplicação rode com muitos clientes pendurados, outra opção é o 
PostgreSQL, um SGBD robusto (seu mascote é um elefante, dada a robustez e a tão 
elogiada memória do animal), que te proporciona um ambiente muito favorável ao 
desenvolvimento de aplicações com acesso remoto ao BD, com conexões Web, VPN ou 
qualquer outra técnica que vc deseje usar. Para meus clientes de maior porte, 
utilizo o elefante.

Enfim, vc colherá muitas opiniões diferentes sobre este assunto e muitas delas 
serão conflitantes. Mas uma coisa é certa: o fato de vc adotar um SGBD mais 
confiável para controlar suas informações já é um grande avanço.

[]'s

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---


  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] firebird trocar por mysql para web

[Willian Jhonnes Lara dos Santos]

- Mensagem original 
De: alessandra porto [EMAIL PROTECTED]
Para: [EMAIL PROTECTED]; [EMAIL PROTECTED]; delphi-br@yahoogrupos.com.br
Enviadas: Quinta-feira, 4 de Setembro de 2008 10:23:05
Assunto: [delphi-br] firebird trocar por mysql para web

 alguem indica a troca do firebird com delphi para mysql  para resolver
esse problema de lentidão do firebird na web

delphi com mysql quais as possiveis fragilidades ?

alguem que usa , qual sua opinião??

vale a pena começar a desenvolver para substituir??
- Fim da mensagem original 

Olá, Alessandra...

Eu uso o MySQL com bastante freqüência e, particularmente, gosto muito dele... 
Um SGBD leve, ágil e escalável. Uma boa pedida para aplicações de pequeno e 
médio porte.

Trocar o SGDB envolve uma série de fatores: camada de acesso, método de 
execução de instruções, modelagem do BD, modelagem da aplicação, etc.
A troca é interessante, mas, até onde é viável? Vc opera muito por transações? 
Sua camada de acesso ao BD te dá suporte ao MySQL? Se não, já escolheu qual vai 
usar?

Recomendação: MySQL 5.1.x, engine InnoDB, Zeos 6.6.3-stable e o Toad for MySQL 
ou MySQLog para manipular os dados, criar tabelas, etc. Ah, uma coisa 
importante: o conjunto de instruções para o PL/SQL no MySQL é bem diferente do 
Firebird. Levei um bom tempo pra me acostumar. Se vc usar apenas as instruções 
DDL, principalmente na padronização ANSI-92, acho q não terá problemas em 
migrar.

Mas uma coisa é verdade: o MySQL é muito mais versátil no ambiente Web que o 
Firebird (sei que estou cutucando onça com vara curta, mas não quero criar 
uma flame war aqui, por favor).

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---


  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] Backup MySQL

[Willian Jhonnes Lara dos Santos]

Moacir...

A rotina postada pelo amigo Odail só vai funcionar se vc mudar a linha de 
comando na chamada dela... A linha que ele passou é para efetuar o backup do 
Firebird, não do MySQL. Na chamada, mude a linha de comando para o programa 
mysqldump (pesquise a melhor forma de chamá-lo em sua aplicação), responsável 
pelo backup de uma base MySQL. Vc vai encontrar referências sobre ele no manual 
do MySQL [1].

[]'s

[1] - http://dev.mysql.com/doc/refman/5.1/en/

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---,_._,___   


  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] Re: Como acionar gravação ao captar som

[Willian Jhonnes Lara dos Santos]

Luca, Leandro, vou dar meu pitaco...

A IOComp (http://www.iocomp.com) tem componentes que trabalham com a placa de 
som, gerando um medidor volumétrico de barras (as barrinhas do Winamp). Os 
fontes deles podem ser de grande ajuda, mas os componentes são pagos.

A dificuldade em encontrar algo sobre isso é que, para fazer o que vc quer, vc 
terá q manipular instruções de hardware em baixo nível, como verificar o estado 
em que está a placa de áudio, na entrada Mic ou Aux, se há sinal de entrada, 
definir o limite de compressão para a sensibilidade do sistema, essas coisas. 
Ah, e pra ajudar, quase tudo em ASM!

Então, caso o problema seja urgente e não possa esperar a pesquisa de 
manipulação das instruções em ASM, o jeito é comprar os fontes dos componentes 
e ver como eles fazem isso.

[]'s

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---



- Mensagem original 
De: Leandro [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 2 de Setembro de 2008 9:32:41
Assunto: Re: [delphi-br] Re: Como acionar gravação ao captar som


Olha, saber, saber, eu não sei. Mas eu procuraria como fazer aquelas barrinhas 
igual
tem no Winamp. Quanto o som tá tocando, elas ficam pulando, e coisa e tal.
Para fazer isso, tem que saber, claro,  se o som tá tocando. Portanto, pode ser 
por aí a solução.

flw

- Original Message - 
From: lucaoliveira7 
To: [EMAIL PROTECTED] os.com.br 
Sent: Tuesday, September 02, 2008 9:22 AM
Subject: [delphi-br] Re: Como acionar gravação ao captar som

Pessoal,

Ninguém tem idéia de como se faz isso msm?

--- Em [EMAIL PROTECTED] os.com.br, lucaoliveira7
luciano.oliveira@ ... escreveu

 Pessoal,
 
 Trabalho com Delphi 6.0/WinXP/Oracle.
 Procurei em diversos site e nada encontrei. Preciso saber qdo há som
 passando pela placa de som. O que eu encontrei por aí e vai até ser
 útil é como iniciar/parar( manualmente) a gravação de um som que vem
 pelo microfone.
 Mas o que eu realmente preciso saber é, se tem como descobrir se está
 passando som pela placa de som do meu micro e uma vez que esteja,
 fazer a gravação e senão parar a gravação uma vez que tenha sido
iniciada.
 
 Alguém tem algum material ou sabe de uma maneira de fazer isso?
 
 Grato.


[As partes desta mensagem que não continham texto foram removidas]




  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: Res: [delphi-br] Criando novo componente

[Willian Jhonnes Lara dos Santos]

- Mensagem original 
De: Luciano Calenzani Simões [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 2 de Setembro de 2008 17:18:17
Assunto: Res: [delphi-br] Criando novo componente

 No escopo de visibilidade protected coloque:

procedure DoClick; override;

No implementation, escreva:

procedure TEditCustomizado. DoClick;
begin
inherited;
Color := clInfoBk; // Por exemplo, trocando a cor.
end;

Alguns links:
http://imasters. uol.com.br/ artigo/343/ delphi/criando_ componentes_ 
no_delphi_ -_parte_1/
http://imasters. uol.com.br/ artigo/342/ delphi/criando_ componentes_ 
no_delphi_ -_parte_2/
http://imasters. uol.com.br/ artigo/341/ delphi/criando_ componentes_ 
no_delphi_ -_final/

Luciano Calenzani Simões
- Fim da mensagem original 

Só uma dica: deixe a linha inherited antes do código que vc quer adicionar para 
q ele seja executado DEPOIS do evento que vc codificar no formulário (como no 
exemplo). Para que o código seja executado antes do código do formulário, deixe 
o inherited como última linha da rotina.

[]'s

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---


  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] Erro: Stream write error

[Willian Jhonnes Lara dos Santos]

- Mensagem original 
De: Jhosef Marks [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Sexta-feira, 29 de Agosto de 2008 10:32:07
Assunto: [delphi-br] Erro: Stream write error

 Alguém sabe o pq disso???
Aparece em alguns clientes na hora de gerar um relatório... (QuickReport)

To usando D7 com Firebird 1.5

-- 
Jhosef Marks de Carvalho
Delphi Developer
http://groups. google.com/ group/soumaisdelphi

- Fim da mensagem original 

Bom dia, Jhosef...

Você está usando qual versão do QR? Pelo que me lembro, este bug existia até a 
versão 3 (nativa do Delphi 7).

Hj, aqui, uso a versão 4.07, porém, tive d fazer algumas pequenas correções 
para q ele funcionasse melhor, mas ainda tem muitos bugs pequenos, 
principalmente com estouro de pilha.

Caso vc esteja usando a versão 4, me mande um e-mail em pvt e eu t envio as 
correções, ok???

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---


  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] Erro: Stream write error

[Willian Jhonnes Lara dos Santos]

- Mensagem original 
De: Jhosef Marks [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Sexta-feira, 29 de Agosto de 2008 11:31:46
Assunto: Re: [delphi-br] Erro: Stream write error

Creio q o problema esteja ligado a conexão com a impressora, soh acontece
isso em um escritório e lá a rede do cliente eh uma zona...
Mas o Quick q eu é o 4.05.

Vlw
- Fim da mensagem original 

Bom, pelo que me lembro, experimentei este erro apenas na visualização do 
relatório, ou seja, quando ele gera o stream para a imagem do preview... Em 
impressão, nunca experimentei isso. O problema estava relacionado diretamente 
com o acesso à memória, pois em certas situações ocorria, em outras não. Um 
cliente com computadores HP PentiumIV sofriam com o QR na hora de montar um 
relatório extenso (mais de 10 páginas). Não sei dizer se o problema eram os 
compudadores do meu cliente, mas tive de mudar toda a parte de relatório pra 
ele.

Enfim, verifique se o problema se apresenta quando o cliente imprime 
diretamente o relatório ou se é quando ele visualiza para depois imprimir...

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---


  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] WinExec

[Willian Jhonnes Lara dos Santos]

Olá Ralp...

Use a seguinte sintaxe:

WinExec(PChar('NotePad. exe /p c:\'+frmVendas. NumVenda. text+'.txt'), 0);

Ou seja, converta sua String o tipo PAnsiChar na passagem do parâmetro...

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---



- Mensagem original 
De: Ralp Alves Bezerra [EMAIL PROTECTED]
Para: DELPHI BR delphi-br@yahoogrupos.com.br
Enviadas: Segunda-feira, 25 de Agosto de 2008 14:10:28
Assunto: [delphi-br] WinExec


Nobres colegas, estou com o seguinte problema:

Estou tentando imprimir um arquivo de texto criado previamente com a 
seguinte função:

WinExec('NotePad. exe /p c:\'+frmVendas. NumVenda. text+'.txt' , 0);

porem, esta me retornando a seguinte mensagem:

[Error] Rotina.pas(5292) : Incompatible types: 'String' and 'PAnsiChar'

Algúem poderia me dar uma luz a cerca de como imprimir o arquivo?

Ps.: Estou utilizando Delphi 7

Abraços a todos e obrigado!

Ralp Alves Bezerra



  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] Oq utilizar

[Willian Jhonnes Lara dos Santos]

- Mensagem original 
De: Berdam [EMAIL PROTECTED]
Para: Delphi delphi-br@yahoogrupos.com.br
Enviadas: Sexta-feira, 22 de Agosto de 2008 9:44:48
Assunto: [delphi-br] Oq utilizar

galera,
seguinte, eu estou usando uns comandos para tratar os edits, colocando
no onexit do componente, só que a cada edit, tenho q passar e criar a
validação com o nome dele.

Tipo

no edit CampoItensDesconto
tenho que ir lá digitar, n tem como colocar, o comando self ou alguma
coisa com que fique mais genérico, para n ter que toda hora ficar
mudando o nome do componente em cada edit.Não posso utilizar uma
procedure onde eu passo o text.

 if CampoItensDesconto. Text = '' then
 CampoItensDesconto. value:=0;

 - - - - - -
Uberdam Cavaletti
Formado em Tecnologia da Informação - Unoesc - Xxe
Pós-graduado em desenvolvimento Java - Unoesc - Xxe

http://www.curricul ar.com.br/ berdam

Visite
http://passandovene no.blogspot. com
- Fim da mensagem original 

Berdam...

Vc pode fazer o seguinte:

for i := 0 to ComponentCount do

begin
if Components[i] is TEdit then
begin
A sua rotina...
end;
end;

Ou isso:

procedure NomeDaProcedure(Component: TObject);
begin
if Component is TEdit then
Sua rotina...
end;

E para cada tipo de componente (TComboBox, TListBox, etc.) vc pode fazer a 
mesma coisa...

[]'s

---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---



  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] Zeos em Oracle 10

[Willian Jhonnes Lara dos Santos]

- Mensagem original 

De: Consultores Software [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 20 de Agosto de 2008 10:06:04
Assunto: [delphi-br] Zeos em Oracle 10


Bom dia pessoal !

Alguem por acaso tem conhecimento se a ZeosLib funciona bem com Oracle 10 ?
Aqui  na empresa haverá em breve a troca das bases Oracle, da versão 9 para
a versão 10 e como temos vários aplicativos que utilizam Zeos 660 para a
conexão, preciso saber se continuarão funcionando.

Obrigado
- Fim da mensagem original 

Olá...

Funcionar, funciona bem, porém (e sempre há esse porém) não há como executar as 
Stored Procedures  do Oracle...

Para as demais operações, ele vai muito bem e é muito rápido, sendo quase tão 
rápido quanto o ODAC da DevArt...

[]'s

---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---

,___


  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] Problemas ao minimizar form MDI principal

[Willian Jhonnes Lara dos Santos]

- Mensagem original 
De: ca_programador007 [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 19 de Agosto de 2008 17:44:04
Assunto: Re: Res: Res: Res: Res: [delphi-br] Problemas ao minimizar form MDI 
principal


Olá Willian!
Mais uma vez obrigado pela ajuda, mas não deu certo.
Fiz como me pediu (deixei enable true no form principal, e mesmo deixando 
enable false não funcionou).
Quando eu executo a aplicação, ele dá a mensagem: Cannot make a visible window 
modal, mesmo depois eu continuando, ele não mostra na barra de tarefas, e nem 
minimiza.
 
Caramba! O que fazer?
 
Obrigado!


-

Cara, muito estranho oq está havendo com o seu código...
Aqui está um exemplo de um código meu. É bem simples, só que as minhas 
aplicações são construídas de maneira modular (em bpl) para facilitar a 
manutenção. A técnica é muito parecida com a q eu t enviei, mudando apenas em 
alguns aspectos...

Segue o exemplo:
//Arquivo .dpr

program SYSFARMAPSI;

uses
  SysUtils,
  Forms,
  Windows;

{$R *.res}

var
  HWND: THandle;
begin
  HWND := FindWindow('FBPSI001PSI0001', 'Sysfarma - Psicotrópico 
informatizado');
  if HWND = 0 then
  begin
Application.Initialize;
LoadPackage('B001PSI.BPL');
Application.Title := 'Sysfarma - Psicotrópico informatizado';
Application.Run;
  end
  else
SetForegroundWindow(HWND);
end.

//Unit do form principal
//Dois últimos eventos do form
procedure TFBPSI001PSI0001.tmrRelogioTimer(Sender: TObject);
var
  i: Integer;
begin
  tmrRelogio.Enabled := False;
  inherited;
  Application.ProcessMessages;
  if (FBPSI001PSI0002 = nil) and (Tag = 0) then
  begin
FBPSI001PSI0002 := TFBPSI001PSI0002.Create(nil);
Tag := 1;
FBPSI001PSI0002.ShowModal;
DBConnection.CarregaMenuAplicacao(EnvVariants.CodEmp, EnvVariants.Matricula,
  EnvVariants.CodModulo, cdsMenu);
proMontarMenu(actmPsico);
for i := 0 to actmPsico.ActionBars[0].Items.Count - 1 do
  proCarregarItems(actmPsico, i);
stbForms.Panels[3].Text := 'FBPSI001PSI001';
  end;
  if ActiveMDIChild  nil then
stbForms.Panels[3].Text := ActiveMDIChild.Name;

  EnvVariants.DataAtual := Date;

  tmrRelogio.Enabled := True;
end;

initialization
  Application.CreateForm(TFBPSI001PSI0001, FBPSI001PSI0001);
  FBPSI001PSI0001.Show;

end.

Ou seja, nada muito diferente do código enviado... Se vc puder postar o seu 
código, talvez seja mais fácil verificar oq está acontecendo...

Qualquer coisa, me manda teu código em pvt...

[]'s

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---


  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: Res: [delphi-br] Problemas ao minimizar form MDI principal

[Willian Jhonnes Lara dos Santos]

Não, não está errado, mas geralmente este é o problema... De que maneira vc faz 
a carga do seu form principal? Há um form de login na aplicação? Como ele é 
carregado?

Essas informações são importantes...

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---



- Mensagem original 
De: ca_programador007 [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Segunda-feira, 18 de Agosto de 2008 9:27:49
Assunto: Re: Res: [delphi-br] Problemas ao minimizar form MDI principal


Sim, amigo, é o primeiro da lista.
Está errado?
 
 

--- Em sáb, 16/8/08, Willian Jhonnes Lara dos Santos willianjhonnes@ 
yahoo.com. br escreveu:

De: Willian Jhonnes Lara dos Santos willianjhonnes@ yahoo.com. br
Assunto: Res: [delphi-br] Problemas ao minimizar form MDI principal
Para: [EMAIL PROTECTED] os.com.br
Data: Sábado, 16 de Agosto de 2008, 14:42

Olá...

Com 90% de chance de certeza de que não é, vou perguntar: o seu form principal 
é o primeniro da lista de formulários criados na aplicação? (Project - Options 
- Aba Forms)

 - - - - ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolve dor Object/Free Pascal
willianjhonnes@ yahoo.com. br
 - - - - ---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
 - - - - ---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
 - - - - ---

- Mensagem original 
De: ca_programador007 ca_programador007@ yahoo.com. br
Para: delphi-total delphi-total delphi-total@ yahoogrupos. com.br
Cc: delphi-br [EMAIL PROTECTED] p os.com.br
Enviadas: Sábado, 16 de Agosto de 2008 13:17:05
Assunto: [delphi-br] Problemas ao minimizar form MDI principal

Lista,

Estou a dias tentando resolver um problema do meu form e não estou conseguindo.
O meu form principal é MDI e quando eu minimizo ele, ele não aparece na barra 
de tarefas do windows, e nem aparece em alternar janelas (alt + tab) e o form 
minimizado fica em cima da barra de tarefas (em cima do botão iniciar).
Alterei as propriedades, fiz varios testes, naveguei na web e não consegui 
nenhum sucesso.
Alguém já passou por isso?

Fico no aguardo. Valeu!!!

Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara 
@ymail.com ou @rocketmail. com.
http://br.new. mail.yahoo. com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara 
@ymail.com ou @rocketmail. com.
http://br.new. mail.yahoo. com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara 
@ymail.com ou @rocketmail. com.
http://br.new. mail.yahoo. com/addresses

[As partes desta mensagem que não continham texto foram removidas]




  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: Res: Res: [delphi-br] Problemas ao minimizar form MDI principal

[Willian Jhonnes Lara dos Santos]

Hum...

Vc percebeu se enquanto o form de login está ativo a aplicação aparece na barra 
de tarefas e quando vc o esconde, a aplicação some da barra???

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---



- Mensagem original 
De: ca_programador007 [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Segunda-feira, 18 de Agosto de 2008 10:38:43
Assunto: Re: Res: Res: [delphi-br] Problemas ao minimizar form MDI principal


Sim, tem um form de login (como formstyle normal)
O form principal é MDIForm e os outros forms são MDIChild.
Na inicialização está assim:
 
  Application. CreateForm( TFormPrincipal, FormPrincipal) ;
  Application. CreateForm( TFormLogin, FormLogin);
  Application. CreateForm( TDataModule, DataModule);
  Application. Run;
 
O form de login é carregado e é dado um enable false no form principal.
Quando o usuário digita as informações de usuário e senha válidos, o form 
principal recebe enable true e dou um hide para esconder o form de login.
Basicamente é isso!
 
Obrigado!
 

--- Em seg, 18/8/08, Willian Jhonnes Lara dos Santos willianjhonnes@ 
yahoo.com. br escreveu:

De: Willian Jhonnes Lara dos Santos willianjhonnes@ yahoo.com. br
Assunto: Res: Res: [delphi-br] Problemas ao minimizar form MDI principal
Para: [EMAIL PROTECTED] os.com.br
Data: Segunda-feira, 18 de Agosto de 2008, 9:54

Não, não está errado, mas geralmente este é o problema De que maneira vc 
faz a carga do seu form principal? Há um form de login na aplicação? Como ele é 
carregado?

Essas informações são importantes. ..

 - - - - ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolve dor Object/Free Pascal
willianjhonnes@ yahoo.com. br
 - - - - ---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
 - - - - ---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
 - - - - ---

- Mensagem original 
De: ca_programador007 ca_programador007@ yahoo.com. br
Para: [EMAIL PROTECTED] os.com.br
Enviadas: Segunda-feira, 18 de Agosto de 2008 9:27:49
Assunto: Re: Res: [delphi-br] Problemas ao minimizar form MDI principal

Sim, amigo, é o primeiro da lista.
Está errado?

--- Em sáb, 16/8/08, Willian Jhonnes Lara dos Santos willianjhonnes@ 
yahoo.com. br escreveu:

De: Willian Jhonnes Lara dos Santos willianjhonnes@ yahoo.com. br
Assunto: Res: [delphi-br] Problemas ao minimizar form MDI principal
Para: [EMAIL PROTECTED] os.com.br
Data: Sábado, 16 de Agosto de 2008, 14:42

Olá...

Com 90% de chance de certeza de que não é, vou perguntar: o seu form principal 
é o primeniro da lista de formulários criados na aplicação? (Project - Options 
- Aba Forms)

 - - - - ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolve dor Object/Free Pascal
willianjhonnes@ yahoo.com. br
 - - - - ---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
 - - - - ---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
 - - - - ---

- Mensagem original 
De: ca_programador007 ca_programador007@ yahoo.com. br
Para: delphi-total delphi-total delphi-total@ yahoogrupos. com.br
Cc: delphi-br [EMAIL PROTECTED] p os.com.br
Enviadas: Sábado, 16 de Agosto de 2008 13:17:05
Assunto: [delphi-br] Problemas ao minimizar form MDI principal

Lista,

Estou a dias tentando resolver um problema do meu form e não estou conseguindo.
O meu form principal é MDI e quando eu minimizo ele, ele não aparece na barra 
de tarefas do windows, e nem aparece em alternar janelas (alt + tab) e o form 
minimizado fica em cima da barra de tarefas (em cima do botão iniciar).
Alterei as propriedades, fiz varios testes, naveguei na web e não consegui 
nenhum sucesso.
Alguém já passou por isso?

Fico no aguardo. Valeu!!!

Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara 
@ymail.com ou @rocketmail. com.
http://br.new. mail.yahoo. com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara 
@ymail.com ou @rocketmail. com.
http://br.new. mail.yahoo. com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Novos endereços, o Yahoo! que você conhece. Crie um

Res: Res: Res: Res: [delphi-br] Problemas ao minimizar form MDI principal

[Willian Jhonnes Lara dos Santos]

A causa provável é o enabled = false do form principal, aliado à maneira como 
vc chama o form de login...

Tente fazer o seguinte:

1 - retire o form de login da lista de formulários criados na inicialização;
2 - no OnActivate do form principal coloque a seguinte rotina:


if (frmLogin = nil) and (Tag = 0) then
begin
  frmLogin := TfrmLogin.Create(nil);
  Tag := 1;
  frmLogin.ShowModal;
  frmLogin := nil;
end;

Isso fará com q o form de login seja criado e exibido em modal, sem q vc 
precise desativar o form frincipal. Isso deve resolver seu problema...
Aí, as exceções de login serão tratadas pelo form de login, q, caso não 
correspondam à uma credencial válida, podem repetir o processo de solicitação 
ou encerrar a aplicação. Algo mais ou menos assim:

procedure TfrmLogin.ChecaCredencial(pLogin, pSenha: String);
begin
  if Tag = 3 then
Application.Terminate;

  if edtLogin.Text  pLogin then
  begin
Application.MessageBox('O login está incorreto.', 'ERRO', MB_OK + 
MB_ICONERROR);
inc(Tag);
edtLogin.SetFocus;
  end;

  if edtSenha.Text  pSenha then
  begin
Application.MessageBox('A senha está incorreta.', 'ERRO', MB_OK + 
MB_ICONERROR);
inc(Tag);
edtSenha.SetFocus;
  end;
end;

Qualquer dúvida, é só escrever...
 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---



- Mensagem original 
De: ca_programador007 [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Segunda-feira, 18 de Agosto de 2008 17:44:54
Assunto: Re: Res: Res: Res: [delphi-br] Problemas ao minimizar form MDI 
principal


Olá!
Quando o form é executado (neste momento o login fica na frente do form 
principal), e o form principal fica como enable false, já não aparece na barra 
de tarefas a aplicação.
 
O que será??


  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] Problemas ao minimizar form MDI principal

[Willian Jhonnes Lara dos Santos]

Olá...

Com 90% de chance de certeza de que não é, vou perguntar: o seu form principal 
é o primeniro da lista de formulários criados na aplicação? (Project - Options 
- Aba Forms)

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---



- Mensagem original 
De: ca_programador007 [EMAIL PROTECTED]
Para: delphi-total delphi-total [EMAIL PROTECTED]
Cc: delphi-br delphi-br@yahoogrupos.com.br
Enviadas: Sábado, 16 de Agosto de 2008 13:17:05
Assunto: [delphi-br] Problemas ao minimizar form MDI principal


Lista,
 
Estou a dias tentando resolver um problema do meu form e não estou conseguindo.
O meu form principal é MDI e quando eu minimizo ele, ele não aparece na barra 
de tarefas do windows, e nem aparece em alternar janelas (alt + tab) e o form 
minimizado fica em cima da barra de tarefas (em cima do botão iniciar).
Alterei as propriedades, fiz varios testes, naveguei na web e não consegui 
nenhum sucesso.
Alguém já passou por isso?
 
Fico no aguardo. Valeu!!!

Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara 
@ymail.com ou @rocketmail. com.
http://br.new. mail.yahoo. com/addresses

[As partes desta mensagem que não continham texto foram removidas]




  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] Pegar número de série de peç as do micro (processador/hd/placa mãe).

[Willian Jhonnes Lara dos Santos]

Procure pela unit HardwareID no Active Delphi. Ela tem coisas bem 
interessantes...

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---



- Mensagem original 
De: Paulo Batalhão [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 12 de Agosto de 2008 13:15:34
Assunto: Re: [delphi-br] Pegar número de série de  peças do micro 
(processador/hd/placa mãe).


Rubem, Obrigado!

Acabei encontrando um artigo seu http://www.devmedia .com.br/articles 
/viewcomp. asp?comp= 651 . Muito interessante por sinal!

Agradeço muito!

Mais se alguem já possuir exemplos práticos de captura do serial do hardware 
que necessito ... por favor enviem ... 

grande abraço!

Atenciosamente,
Paulo Batalhão

From: Rubem Nascimento da Rocha 
Sent: Tuesday, August 12, 2008 12:01 PM
To: [EMAIL PROTECTED] os.com.br 
Subject: RE: [delphi-br] Pegar número de série de peças do micro (processador/ 
hd/placa mãe).

Informe-se sobre WMI para fazer pesquisas de hardware. O assunto é bem extenso 
mas material na Internet sobre WMI é o que não falta. Mas já aviso, não espere 
conseguir obter o número de série de TODOS os componentes de hardware do seu 
computador, pois não é todo o hardware que permite ou fornece essa informação 
via camada de software.

Boa sorte.
Sds.

 _ _ __

To: [EMAIL PROTECTED] os.com.br
From: [EMAIL PROTECTED] com
Date: Tue, 12 Aug 2008 11:25:13 -0300
Subject: [delphi-br] Pegar número de série de peças do micro (processador/ 
hd/placa mãe).

Carissimos,

Bom dia!

Preciso urgentemente saber como pegar o numero de série de alguns componentes 
do pc... são eles:

* Processador

* HD

* Placa Mãe ou *outro componente relevante

Desde já agradeço!

Muito Obrigado

Atenciosamente,
Paulo Batalhão
[EMAIL PROTECTED] com
111010101111110 101111010101 01

[As partes desta mensagem que não continham texto foram removidas]

 _ _ _ _ _ _
Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos 
com até 6,000 fotos!
http://www.amigosdo messenger. com.br

[As partes desta mensagem que não continham texto foram removidas]




  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] Conexão externa usando o mysql 5 .0

[Willian Jhonnes Lara dos Santos]

Bom dia...
Primeiramente, para acessar externamente seu banco de dados, vc deve habilitar 
a tranferência de portas no seu roteador/firewall. Por padrão, a porta usada 
pelo MySQL é a 3306. Basta liberá-la e habilitar a transferência e vc já será 
capaz de acessá-lo remotamente...
Mas, contudo, vc deverá acessá-lo pelo IP da conexão com a internet onde o 
servidor esteja alocado. Ex.: 20x.x.x:3306. Caso vc tenha um nome apontado para 
o seu IP, basta acessá-lo pelo nome... Se sua conexão tiver IP  fixo, vc não 
terá muitos problemas na conexão, mas se ela tiver IP dinâmico, vc deverá 
alterar o IP de conexão cada vez que o IP for atualizado...
[]'s
 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---



- Mensagem original 
De: crist_ita [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Segunda-feira, 11 de Agosto de 2008 9:31:37
Assunto: [delphi-br] Conexão externa usando o mysql 5.0


Bom dia a todos!!
Tenho servidor windows server 2003 com o banco de dados Mysql 5.0 
instalado como servidor dedicado. Dentro da rede interna consigo 
acessar de uma maquina cliente usando o DBManager e o SQL-front. Estou 
precisando acessar o banco de dados externamente, mais não estou tento 
êxito.

Estou pesquisando na web. Agradeço se alguém poder ajudar.
Atenciosamente

 


  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: Res: [delphi-br] Conexão externa usando o m ysql 5.0

[Willian Jhonnes Lara dos Santos]

Boa tarde...

Pelo que entendi, vc deseja acessar o BD em uma máquina fora da empresa, certo? 
Para isso, vc vai usar o IP da conexão de internet para conectar. Mas vc não 
pode esquecer de redirecionar a porta 3306 no seu roteador/firewall para o IP 
do seu servidor na rede local...

O redirecionamento de portas vc pode ver em neste endereço [1] e a liberação da 
porta vai depender do firewall (caso haja)...

[]'s

[1] - http://www.abusar.org

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---



- Mensagem original 
De: crist_ita [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Segunda-feira, 11 de Agosto de 2008 11:29:36
Assunto: Re: Res: [delphi-br] Conexão externa usando o mysql 5.0


Bom dia... 

Willian 

Tenho um servidor com ip fixo, dentro da rede eu utilizo o ip do 
servidor no SQLConnection

Na rede local eu peguei o ip do servidor :
Server: 192.168.79.3 (exemplo)
Port: 3306

HostName : 192.168.78.3 (exemplo)
Database  : bancoTeste
user_name : root
Password : 123456

Minha conexão tem um ip fixo, e necessário usar a conexão da internet 
ou o ip do servidor?

Agradeço a atenção 




  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] Ajustar tam do App de acordo com a barra de tarefas

[Willian Jhonnes Lara dos Santos]

Olá Flávio...

Pelo que pude perceber, setou as propriedades do seu form proncipal como 
BorderStyle como bsSizeable e BorderIcons.biMaximize como False.

Vc pode optar por habilitar o botão maximizar do form ou setar no onCreate do 
form executar o seguinte:

Height := Screen.Height - fncAlturaBarraTarefas;
Top := 0;
Left := 0;

E a função fncAlturaBarraTarefas:

function fncAlturaBarraTarefas: Integer;
var
  rRect: TRect;
  rBarraTarefas: HWND;
begin
  //Localiza o Handle da barra de tarefas
  rBarraTarefas := FindWindow('Shell_TrayWnd', nil);

  //Pega o retângulo que envolve a barra e sua altura
  GetWindowRect(rBarraTarefas, rRect);

  //Retorna a altura da barra
  Result := rRect.Bottom - rRect.Top;
end;

[]'s

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---



- Mensagem original 
De: Flavio [EMAIL PROTECTED]
Para: Grupo_Delphi delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 5 de Agosto de 2008 11:01:10
Assunto: [delphi-br] Ajustar tam do App de acordo com a barra de tarefas


Olá pessoal, bom dia,

estou querendo fazer uma função que ajusta o tamanho do meu Aplicativo de 
acordo com o tamanho da barra de tarefas, pois ele está começando maximizado e 
ficando uma parte dele coberto por essa barra.

Existe algum jeito de eu realizar essa tarefa ?? Alguém tem um fósforo para 
acender no final do túnel ?

Obrigado pela atenção de todos,
Flávio.

Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara 
@ymail.com ou @rocketmail. com.
http://br.new. mail.yahoo. com/addresses

[As partes desta mensagem que não continham texto foram removidas]




  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] Ajustar tam do App de acordo com a barra de tarefas

[Willian Jhonnes Lara dos Santos]

Ah, esqueci de dizer: mude as propriedades do form para WindowState = wsNormal 
e BorderStyle = bsSingle...

Só mais uma coisinha:

Uma pesquisa no google por altura+barra de tarefas+delphi me retornou o 
seguinte link:

http://www.codigofonte.net/dicas/delphi/197_simulando-os-alertas-do-msn-no-delphi

Não é exatamente oq vc precisa, mas já daria uma boa idéia de como fazer...

O pai google é nosso amigo e oráculo. Nunca deixe de consultá-lo antes de 
postar a dúvida...

[]'s

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---



- Mensagem original 
De: Flavio [EMAIL PROTECTED]
Para: Grupo_Delphi delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 5 de Agosto de 2008 11:01:10
Assunto: [delphi-br] Ajustar tam do App de acordo com a barra de tarefas


Olá pessoal, bom dia,

estou querendo fazer uma função que ajusta o tamanho do meu Aplicativo de 
acordo com o tamanho da barra de tarefas, pois ele está começando maximizado e 
ficando uma parte dele coberto por essa barra.

Existe algum jeito de eu realizar essa tarefa ?? Alguém tem um fósforo para 
acender no final do túnel ?

Obrigado pela atenção de todos,
Flávio.

Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara 
@ymail.com ou @rocketmail. com.
http://br.new. mail.yahoo. com/addresses

[As partes desta mensagem que não continham texto foram removidas]




  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] Thread

[Willian Jhonnes Lara dos Santos]

Olá Rodrigo...

Primeiro ponto: a instrução Sleep pára TODO o processamento da aplicação. Deve 
ser este o seu problema.

Segundo ponto: o uso de TTimers se aplica de maneira mais efetiva no seu caso.

Instancie um TTimer em suas threads chamando os evendos que vc deseja e estes 
problemas desaparecerão...

[]'s

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---



- Mensagem original 
De: Rodrigo Junqueira [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Segunda-feira, 4 de Agosto de 2008 13:12:30
Assunto: [delphi-br] Thread


Ola lista.

Pessoal preciso atualizar meu sistema automaticamente. Entao criei uma
thread (PAI), dentro dessa thread pai, eu crio a thread filho, e na thread
filho, eu uso o IDftp,

Para checar as atualizações. Como quero checar em de tempo em tempo,
coloquei um sleep, dentro da thread, mais alguma  ou o id.FTP.Get, ou o
sleep, esta bloqueado

O restante da apliacação, pois o restante para de responder, e fica
aguardando. Alguem pode me ajudar?

Rodrigo

[As partes desta mensagem que não continham texto foram removidas]




  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] Checkbox + DBGrid + Oracle

[Willian Jhonnes Lara dos Santos]

Boa noite a todos...

Há 2 dias eu havia postado esta dúvida, porém, sem resposta. Acredito que 
nenhum dos colegas tenha se deparado com esta necessidade/dificuldade 
anteriormente, por isso nenhuma resposta foi obtida.

Mas é com grande orgulho que coloco à disposição de vcs a solução. Pesquisando 
muito, brigando com o Delphi e vasculhando tudo quanto é informação disponível, 
acabei desenvolvendo um componente específico para este caso.

O problema de tipos booleanos no Oracle foi resolvido através de um 
ClientDataSet. A partir daí, o restante foi fácil.

Bem, então segue o link [1] para download do componente. Quem tiver qualquer 
dúvida quanto ao uso que não seja sanada pelo exemplo incluso no arquivo, é só 
escrever e terei grande prazer em ajudar.

E quem quiser contribuir, melhorando o código ou adicionando funcionalidades ao 
componente, sinta-se livre para isso. Afinal, qualquer ajuda é bem vinda...

[]'s

 
[1] - http://www.4shared.com/file/57421630/aaf0ebfd/DB-Aware.html

---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---



- Mensagem original 
De: Willian Jhonnes Lara dos Santos [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 30 de Julho de 2008 21:43:15
Assunto: [delphi-br] Checkbox + DBGrid + Oracle


Boa noite a todos...

Sei que o assunto Checkbox + DBGrid já está bem batido, afinal, consegui achar 
rotinas em quilo na internet, mas meu problema é outro.

Com esta rotina [1], consigo criar o Checkbox em um DBGrid quando o campo for 
booleano, mas trabalhando com o Oracle - que não tem tipo booleano - ele não 
cria o Checkbox, e mesmo que criasse não mudaria o estado. Minhas flags 
booleanas no BD são sempre S ou N, ou seja, char(1).

Minha dúvida é: é possível fazer esta rotina funcionar com valores char ao 
invés de booleanos?

[]'s

[1] - procedure TFBPSI002PSI0001. dbgProdutosDrawC olumnCell( Sender: TObject; 
const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState) ;
const
rCtrlState : Array[Boolean] of Integer = (DFCS_BUTTONCHECK, DFCS_BUTTONCHECK or 
DFCS_CHECKED) ;
var
rCheckBoxRectangle : TRect;
begin
inherited;
if Column.Field. DataType = ftBoolean then
begin
dbgProdutos. Canvas.FillRect( Rect);
rCheckBoxRectangle. Left := Rect.Left + 2;
rCheckBoxRectangle. Right := Rect.Right - 2;
rCheckBoxRectangle. Top := Rect.Top + 2;
rCheckBoxRectangle. Bottom := Rect.Bottom - 2;
DrawFrameControl( dbgProdutos. Canvas.Handle, rCheckBoxRectangle, DFC_BUTTON,
rCtrlState[Column. Field.AsBoolean] );
end;
end;

 - - - - ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolve dor Object/Free Pascal
willianjhonnes@ yahoo.com. br
 - - - - ---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
 - - - - ---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
 - - - - ---

Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara 
@ymail.com ou @rocketmail. com.
http://br.new. mail.yahoo. com/addresses



  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] Checkbox + DBGrid + Oracle

[Willian Jhonnes Lara dos Santos]

Boa noite a todos...

Sei que o assunto Checkbox + DBGrid já está bem batido, afinal, consegui achar 
rotinas em quilo na internet, mas meu problema é outro.

Com esta rotina [1], consigo criar o Checkbox em um DBGrid quando o campo for 
booleano, mas trabalhando com o Oracle - que não tem tipo booleano - ele não 
cria o Checkbox, e mesmo que criasse não mudaria o estado. Minhas flags 
booleanas no BD são sempre S ou N, ou seja, char(1).

Minha dúvida é: é possível fazer esta rotina funcionar com valores char ao 
invés de booleanos?

[]'s

[1] - procedure TFBPSI002PSI0001.dbgProdutosDrawColumnCell(Sender: TObject; 
const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
const
  rCtrlState : Array[Boolean] of Integer = (DFCS_BUTTONCHECK, DFCS_BUTTONCHECK 
or DFCS_CHECKED);
var
  rCheckBoxRectangle : TRect;
begin
  inherited;
  if Column.Field.DataType = ftBoolean then
  begin
dbgProdutos.Canvas.FillRect(Rect);
rCheckBoxRectangle.Left := Rect.Left + 2;
rCheckBoxRectangle.Right := Rect.Right - 2;
rCheckBoxRectangle.Top := Rect.Top + 2;
rCheckBoxRectangle.Bottom := Rect.Bottom - 2;
DrawFrameControl(dbgProdutos.Canvas.Handle, rCheckBoxRectangle, DFC_BUTTON,
 rCtrlState[Column.Field.AsBoolean]);
  end;
end;

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---



  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

Res: [delphi-br] Ajuda em Form Login

[Willian Jhonnes Lara dos Santos]

Wanderlei...

No seu caso, o que você deve fazer é o seguinte:

No modelo 1, vc deve ter colocado o formulário de login como form principal em 
seu programa. Vá nas propriedades do projeto (Ctrl+Alt+F11 ou 
Project-Options), na aba Forms, selecione o seu formulário principal no combo 
Main Form, e deixe o form de login na coluna Available forms. Então, no 
evento onCreate do seu form principal, faça a chamada do form de login como 
ShowModal. Validando usuário e senha, feche-o (no onClose do form de login 
digite a linha Action := caFree;). Com isso, vc resolve o problema de minimizar 
a aplicação e ela sumir da barra de tarefas.

No modelo 2, vc deverá alterar o arquivo NomeDoProjeto.dpr desta forma:

Application.Initialize;
Application.Title := 'Título da aplicação';
Application.CreateForm(TfrmPrincipal, frmPrincipal);
Application.MainForm.Show;
Application.CreateForm(TfrmLogin, frmLogin);
frmLogin.ShowModal;
Application.Run;

Com isso, vc criará o form principal e, logo após exibí-lo, chamará o form de 
login em ShowModal.

[]'s
  

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---



- Mensagem original 
De: Wanderlei - Yahoo [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 29 de Julho de 2008 13:10:49
Assunto: [delphi-br] Ajuda em Form Login


Boa Tarde Pessoal

Gostaria que alguem me desse um Help, de como fazer um form de Login .
(já procurei em vários sites, mas nenhum me agradou).

Modelo 1
Queria fazer um modelo que abra o form de login apenas e depois chame 
o form menu, por exemplo.
Tinha feito um exemplo desse tipo, se validar usuário e senha o programa 
escondia o form login e mostrava
o form menu, o problema que quando você minimiza o programa ele não 
ficava na barra de tarefas, e sim minimizado acima do botão iniciar.

Modelo 2
Ou fazer um que abra o form menu (principal) com o o form login em 
showmodal. Se validar usuário e login libera
para trabalhar no form principal.

Estou pedindo porque não manjo muito de Delphi, e como deve ter muita 
gente que manja bem e
esse tipo de coisa é simples para quem entende bem, creio que poderia me 
ajudar.

Se alguem poder me dar uma solução agradecerei muito

Muito Obrigado Wanderlei




  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] Criar parâmetros em uma TOraStoredProc em tempo de execu ção

[Willian Jhonnes Lara dos Santos]

Olá, bom dia a todos...

Criei uma rotina [1] para adicionar parâmetros a um objeto TOraStoredProc (ODAC 
6.25) em tempo de execução, mas a mesma me retorna o erro Invalid property 
value. Já codifiquei a rotina de 'n' formas diferentes, todas sem sucesso.

A situação é: a variável rParam recebe o parâmetro criado, tem seus atributos 
mudados e é inserida no objeto TOraStoredProc. O parâmetro é criado 
normalmente, mas na hora de inserí-lo no objeto, ele me retorna o erro.

O google não me retornou nada referente a esta questão e, como é a primeira vez 
que tento fazer isso de forma dinâmica (os componentes sempre foram estáticos), 
confesso que me sinto um tanto perdido.

Se alguém tiver alguma idéia de como realizar esta tarefa, agradeceria muito...

[]'s

 
[1] - procedure TOraDBConnection.CreateStoredProcParam(StoredProc: 
TOraStoredProc;
  PType: TParamType; PName, PValue: String);
var
  rParam: TParam;
begin
  //Cria os parâmetros para objetos TOraStoredProc
  rParam := TParam.Create(FParams, PType);
  rParam.Name := PName;
  rParam.Value := PValue;
  StoredProc.Params.AddParam(rParam);
end;

---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---



  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

Res: [delphi-br][RESOLVIDO] Criar parâmetros e m uma TOraStoredProc em tempo de execução

[Willian Jhonnes Lara dos Santos]

Olá, Eduardo...

Valeu pela resposta, mas acabei encontrando referências a um método da classe 
TOraStoredProc que faz exatamente oq eu preciso. Então, minha função acabou 
ficando assim:

procedure TOraDBConnection.CreateStoredProcParam(StoredProc: 
TCustomOraStoredProc;
  PFiledType: TFieldType; PName: String; PType: TParamType);
begin
  //Cria os parâmetros para objetos TOraStoredProc
  StoredProc.Params.CreateParam(PFiledType, PName, PType);
end;

[]'s

P.S. - e os caras da DevArt demoram mito pra responder...

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---



- Mensagem original 
De: Eduardo Silva dos Santos [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Segunda-feira, 28 de Julho de 2008 11:31:01
Assunto: Re: [delphi-br] Criar parâmetros em uma TOraStoredProc em tempo de 
execução


Olá Willian, certo vez vi algo parecido no Forum do ODAC, acho que você tem
que usar um tipo que parêmetro que pertence ao ODAC se não me engano
TDAParam.. não tenho certeza, de qualquer forma segue o endereço do forum,
se você postar lá certamente o pessoal da DevArt resolve rapidinho

http://devart. com/forums/ viewforum. php?f=5

posta lá que o suporte deles é muito bom.

2008/7/28 Willian Jhonnes Lara dos Santos willianjhonnes@ yahoo.com. br

   Olá, bom dia a todos...

 Criei uma rotina [1] para adicionar parâmetros a um objeto TOraStoredProc
 (ODAC 6.25) em tempo de execução, mas a mesma me retorna o erro Invalid
 property value. Já codifiquei a rotina de 'n' formas diferentes, todas sem
 sucesso.

 A situação é: a variável rParam recebe o parâmetro criado, tem seus
 atributos mudados e é inserida no objeto TOraStoredProc. O parâmetro é
 criado normalmente, mas na hora de inserí-lo no objeto, ele me retorna o
 erro.

 O google não me retornou nada referente a esta questão e, como é a primeira
 vez que tento fazer isso de forma dinâmica (os componentes sempre foram
 estáticos), confesso que me sinto um tanto perdido.

 Se alguém tiver alguma idéia de como realizar esta tarefa, agradeceria
 muito...

 []'s

 [1] - procedure TOraDBConnection. CreateStoredProc Param(StoredProc :
 TOraStoredProc;
 PType: TParamType; PName, PValue: String);
 var
 rParam: TParam;
 begin
 //Cria os parâmetros para objetos TOraStoredProc
 rParam := TParam.Create( FParams, PType);
 rParam.Name := PName;
 rParam.Value := PValue;
 StoredProc.Params. AddParam( rParam);
 end;

  - - - - ---
 Att.:
 Willian Jhonnes L. dos Santos
 Analista/Desenvolve dor Object/Free Pascal
 willianjhonnes@ yahoo.com. br willianjhonnes% 40yahoo.com. br
  - - - - ---
 Seja livre. Use Linux.
 Grupo de Usuários GNU/Linux de São José dos Pinhais
 Linux user number 449753
  - - - - ---
 Powered by Slackware Linux 12.0
 Kernel 2.6.21.5-custom
  - - - - ---

 Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua
 cara @ymail.com ou @rocketmail. com.
 http://br.new. mail.yahoo. com/addresses
 


-- 
 . . . . ...
Eduardo Silva dos Santos
DRD Sistemas.
(27) 3218-4201
MSN: eduardo.drd@ gmail.com
Site: http://www.drdsiste mas.com.br/
 . . . . ...

[As partes desta mensagem que não continham texto foram removidas]




  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] Saber quantos registros foram retornados em uma consulta sql!!

[Willian Jhonnes Lara dos Santos]

Olá Douglas...

Faz o seguinte:

with ObjetoQrery do
begin
  if Active then
Close;

  SQL.Text := 'SELECT * FROM TABELA WHERE CAMPO = CONDICAO';
  Open;
end;

rNumRegistros := ObjetoQuery.RecordCount;

Não tem erro...

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---



- Mensagem original 
De: Douglas Takahara [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Segunda-feira, 28 de Julho de 2008 19:51:17
Assunto: [delphi-br] Saber quantos registros foram retornados em uma consulta 
sql!!


Boa noite,

Gostaria de saber como faço para saber quantos registros foram
retornados em uma consulta..

por exemplo
select * from table where campo1=campo1;

gostaria de saber como faço uma condição caso ele retornar mais de 20
registros por exemplo;

eu estou usando access e sqlquery...

eu tentei 

if sqlquery.recordcoun t 20 then
begin

ShowMessage( 'registros 20')
end else

showMessage( 'registro 20')

porém n funcionou




  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] Exec outro App sem ser formato .exe

[Willian Jhonnes Lara dos Santos]

Gente, não é mais simples compilar os forms em um BPL e chamá-los através de 
uma aplicação que os gerencie?

Acredito que esta seja a maneira mais fácil de controlar o q o usuário pode ou 
não pode acessar...

[]'s

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---



- Mensagem original 
De: Açaí [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Sexta-feira, 25 de Julho de 2008 19:10:16
Assunto: Re: [delphi-br] Exec outro App sem ser formato .exe


Olha, uma alternativa seria voce transformar este outro aplicativo em DLL,
sendo assim ninguém conseguiria executá-lo clicando duas vezes, somente
o seu programa poderia executá-lo chamando-o pela função

2008/7/25 Flavio [EMAIL PROTECTED] com.br:

   Olá pessoal, bom dia,

 minha dúvida é a seguinte: Desenvolvi um sistema e, em uma parte dele, é
 necessário chamar outro aplicativo, ou seja, será necessário colocar esse
 outro app no mesmo diretório do executável do sistema. Mas gostaria de
 chamar ele e executar a tarefa dele, porém, gostaria que ele não tivesse o
 formato .exe. Desejo assim para 'esconder' esse outro apolicativo dos olhos
 do usuário.

 Bom, o sistema irá rodar no Windows e, pelo q sei, ele executa somente
 .exe,.com e .bat. Acredito q não há essa possibilidade, mas chamando um app
 de outro app pelo delphi nunca fiz e não sei como funciona, mas se alguém
 tiver alguma sugestão ou dica ajudaria e muito.

 Obrigado pela atenção de todos.
 Flávio.

 Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua
 cara @ymail.com ou @rocketmail. com.
 http://br.new. mail.yahoo. com/addresses

 [As partes desta mensagem que não continham texto foram removidas]

 


[As partes desta mensagem que não continham texto foram removidas]




  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] Como verificar se um label foi clicado

[Willian Jhonnes Lara dos Santos]

Geovana...

Talvez vc devesse usar assim:

if Sender = NomeDoLabel then

[]'s

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---



- Mensagem original 
De: Geovana Ventura [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Segunda-feira, 21 de Julho de 2008 13:01:01
Assunto: [delphi-br] Como verificar se um label foi clicado


Olá pessoal!
Boa tarde!
Estou precisando saber como se faz pra ver se um label foi clicado.
Coloquei o seguinte código, no entanto está dando erro informando que nao
reconhece o Sender.
if Sender is TLabel then
ConcluiEvento;

Alguém tem alguma dica?
Obrigada!

-- 
Abraços,
Geovana Ventura

[As partes desta mensagem que não continham texto foram removidas]




  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: Res: [delphi-br] Problema com Form

[Willian Jhonnes Lara dos Santos]

Luciano...

Hum... Estranho. Não consegui reproduzir esta situação aqui usando as versões 
3, 7 e BDS 2006. Alias, qual versão do Delphi vc usa?

Existe uma maneira bem POG de conseguir resolver isso, mas tamanha a gambiarra, 
nem vale a pena. Enfim, se vc quiser...

procedure TForm1.FormCreate(Sender: TObject);
begin
  with Form1 do
  begin
MaxWidth := Screen.Width;
MaxHeight := Screen.Height - 24; //Valor em pixels da altura da barra
Left := 0;
Top := 0;
WindowState := wsMaximized;
  end;
end;

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---   


  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] Melhor Relátorio para BDS2006

[Willian Jhonnes Lara dos Santos]

É incrível como o pessoal indica o Crystal Reports, mesmo sendo uma das mais 
caras opções no mercado. Sem criar uma discussão, por favor...

Tiago, vc pode continuar usando o QuickReport (v4), usar o FastReport ou, quem 
sabe, dar uma olhada no Torry (http://www.torry.net). Quem sabe lá vc possa 
encontrar algumas opções mais baratas...

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---



- Mensagem original 
De: Vinicius Santos - MSI [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Sexta-feira, 18 de Julho de 2008 17:26:21
Assunto: Re: [delphi-br] Melhor Relátorio para BDS2006


Crystal Reports !

Vinicius dos Santos
Blog: http://tuplas. blogspot. com
http://www.msisoluc oes.com.br

- Original Message - 
From: Tiago de Assis Pimenta 
To: Grupo Delphi Yahoo 
Sent: Friday, July 18, 2008 5:20 PM
Subject: [delphi-br] Melhor Relátorio para BDS2006

Galera, qual o melhor relatório para o BDS2006 ? Até o Delphi 7 eu usava o
Quick Report, agora no 2006 estou em duvida quanto ao RAVE, dizem não ser
aquelas coisas, que é pesado e nada funcional, alguém pode me ajudar a
decidir com qual eu mecho 

Abraço

[As partes desta mensagem que não continham texto foram removidas]

[As partes desta mensagem que não continham texto foram removidas]




  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] Problema com Form

[Willian Jhonnes Lara dos Santos]

Olá...

Só uma pergunta: que tipo de borda o seu form principal tem? bsSizeable ou 
bsSingle?

Se a resposta for a segunda, este é o comportamento normal do form... Então, 
das duas uma: ou vc muda o BorderStyle para bsSizeable ou define as dimensões 
em tempo de execução (algo como form.Height := Screen.Heght - 24).

[]'s

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---



- Mensagem original 
De: l_o_angelini [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quinta-feira, 17 de Julho de 2008 9:42:24
Assunto: [delphi-br] Problema com Form


Bom dia  Estou tento um pequeno problema com o form principal de
minha aplicação. Ele esta sobrepondo a barra do Windows, estou usando
as seguintes propriedades:

Position = poDesigned
Windows State = wsMaximinized

Alguem ja passou por isso ou tenho uma solução ???

Luciano Angelini
Prefeitura de Lupionópolis- Pr




  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]