[delphi-br] Dúvidas sobre PChar

2008-08-06 Por tôpico Francesco Perrotti
Oi pessoal,
 
Tenho algumas dúvidas sobre o uso de PChar, agradeceria alguma ajuda.
 
É o seguinte, fiz uma DLL com uma função que precisa retornar uma string, 
portanto tenho que usar um PChar
já que provalvelmente a DLL será usada com linguagem C.
 
Só que ainda não consegui entender direito como o Delphi trata esse tipo. Por 
exemplo,
se eu declarar em uma função:
 
var p:pchar;
 
o que exatamente o delphi cria? apenas um ponteiro para chars? ele já aloca 
memória
para conter strings? se eu tiver que retornar um pchar por uma função, por 
exemplo:
 
function Hello: pchar;
begin
  result := 'Hello';
end;
 
isso está correto? ou tenho que alocar memória para o pchar como eu teria que 
fazer em c?
nesse caso o delphi já coloca o terminador zero no final ou eu devo colocar 
explicitamente? 
E no lugar onde faço a chamada a essa função, depois eu tenho que liberar a 
memória?
Por exemplo:
 
var p: pchar;
begin
  p := Hello;
 
e agora? depois de usar a string em p o que eu devo fazer? liberar a memória? 
ou o delphi já faz isso?
No help do delphi há exemplos usando arrays de char que depois são casteados 
para pchar,
mas no meu caso eu não sei qual será o tamanho final da string, devo alocar um 
array dentro da função 
e liberar ele fora dela?
 
Obrigado,
 
Tchesco





_
Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS para o 
Messenger! É GRÁTIS!
http://www.msn.com.br/emoticonpack

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



RES: [delphi-br] EMAIL

2008-08-06 Por tôpico Luciano Calenzani Simões
Isso é um esso que, infelizmente, muitos cometem ao redigir mensagens (SMS, 
e-mails, ...), esquecem das pontuações.

Neste caso, me parece, que ele quiz dizer:

- E aí? Viu?
- Conseguiu decifrar algo?

 Luciano Calenzani Simões





- Mensagem original 
De: Alexandre Rodrigues [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 6 de Agosto de 2008 0:11:28
Assunto: Re: RES: RES: [delphi-br] EMAIL


Na verdade não entendi nadarsrsrsrs

[EMAIL PROTECTED] ind.br escreveu:
 
 
 
 
 
 e ai viu .
 conseguiu decifrar algo 
 
 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!


  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 numero maior que Int64

2008-08-06 Por tôpico Ricardo Lino
É um dos requisitos poder fazer operações matemáticas com ele.

Praticamente todas as operações.

 

Estava pensando em colocar em uma string mas o grande problema conseguir
chegar ao numero, preciso fazer 62^1, 62^2, 62^3 ... até no máximo 62^15, a
pessoa poderá selecionar de 62^8 até 62^15, então tenho que somar todos os
resultados.

 

Ou elevado até 15 que é o máximo que vou permitir no meu sistema.

 

 

 

 




Ricardo Lino

Tel: +55 (11) 5070-8585

E-mail: [EMAIL PROTECTED]
www.batori.com.br

  _  

 

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Moacir - GMail
Enviada em: terça-feira, 5 de agosto de 2008 18:07
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] Problema numero maior que Int64

 

Ricardo,

Só um pitaco:

Vc precisa executar operações matemáticas com eles ?

Pq vc não quebra este numero em porções menores ??

Isto não seria viavel para vc ??

[ ]´s
Moacir

Joao Morais escreveu:
 Ricardo Lino wrote:
 
 E estou com um numero de pelo menos 27 campos. 
 

 Para guardar 27 dígitos você precisa de 94 bits. Basta arrumar uma 
 biblioteca ou um compilador que tenha suporte a isto.

 Joao Morais

 

 

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

 



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



RES: RES: [delphi-br] Problema numero maior que Int64

2008-08-06 Por tôpico Ricardo Lino
Ola João,

 

Você conhece alguma biblioteca com suporte para isso ou até mais tipo 128?

Compilador? Como assim? 

 

 




Ricardo Lino

Tel: +55 (11) 5070-8585

E-mail: [EMAIL PROTECTED]
www.batori.com.br

  _  

 

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Joao Morais
Enviada em: terça-feira, 5 de agosto de 2008 16:08
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] Problema numero maior que Int64

 

Ricardo Lino wrote:
 E estou com um numero de pelo menos 27 campos. 

Para guardar 27 dígitos você precisa de 94 bits. Basta arrumar uma 
biblioteca ou um compilador que tenha suporte a isto.

Joao Morais

 



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



RES: [delphi-br] Problema numero maior que Int64

2008-08-06 Por tôpico Ricardo Lino
Sim já pensei nessa hipótese.

Mas fico se meios de conseguir fazer as operações matemáticas que necessito.

 




Ricardo Lino

Tel: +55 (11) 5070-8585

E-mail: [EMAIL PROTECTED]
www.batori.com.br

  _  

 

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Luciano Calenzani Simões
Enviada em: terça-feira, 5 de agosto de 2008 18:44
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Problema numero maior que Int64

 

Ou ainda, poderia armazenar em um campo String;

Luciano Calenzani Simões

- Mensagem original 
De: Moacir - GMail [EMAIL PROTECTED] mailto:prismars%40gmail.com 
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br 
Enviadas: Terça-feira, 5 de Agosto de 2008 18:07:18
Assunto: Re: RES: [delphi-br] Problema numero maior que Int64

Ricardo,

Só um pitaco:

Vc precisa executar operações matemáticas com eles ?

Pq vc não quebra este numero em porções menores ??

Isto não seria viavel para vc ??

[ ]´s
Moacir

Joao Morais escreveu:
 Ricardo Lino wrote:
 
 E estou com um numero de pelo menos 27 campos. 
 

 Para guardar 27 dígitos você precisa de 94 bits. Basta arrumar uma 
 biblioteca ou um compilador que tenha suporte a isto.

 Joao Morais

  - - -- 

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]



[delphi-br] Controlar acesso ao sistema

2008-08-06 Por tôpico O.S. Informática
Amigos, pela primeira vez escrevo no forum, e gostaria de uma mãozinha, afinal 
de contas, nós que estamos iniciando agora nesse novo mundo, precisamos dessa 
forcinha dos veteranos.
  Vamos lá então, acabei de implementar um sistema para um cliente, só que eu 
quero colocar um controle de acesso, ou seja, a cada 30 dias, o sistema irá 
pedir um numero de série para desbloqueio e assim  liberar o acesso. Estou 
tomando essa medida, pois o cliente não me comprou o sistema e sim formalizamos 
um contrato mensal, mas sabe lá se ele vai me pagar direitinbho não é?? Conto 
com a ajuda dos senhores. Obrigado
   
  Sergio
  Fortaleza/Ce.


   
-
Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara 
@ymail.com ou @rocketmail.com.

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



Re: [delphi-br] Como eu posso criar um relatório deste jeito usando ReportBuilder?

2008-08-06 Por tôpico Fellipe Henrique
Obrigado Alisson, consegui usar o CrossTab... pra mudar o nome do campo tive
que mudar no PipeLine.

[]s

2008/8/5 Alisson [EMAIL PROTECTED]

   Talvez você possar jogar os dados em clientdataset deixando em branco as

 colunas onde não tem dados. Depois use esse clientdataset para montar o
 relatório no ReportBuilder. Já eu, prefiro usar componentes que permitem
 escrever o relatório linha a linha. Uso o Delphi 7 e nele há a aba Rave
 Report e o componente RvSystem com o qual dá pra escrever o relatório linha

 a linha.





 ___
 Yahoo! Mail - Sempre a melhor opção para você!
 Experimente já e veja as novidades.
 http://br.yahoo.com/mailbeta/tudonovo/
  




-- 
_
.-. T.·.F.·.A.·.
/v\ Fellipe Henrique
// \\ http://www.linkedin.com/in/fellipehenrique
/( )\ Sou a FAVOR da lei 0607/2007.
^^-^^


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



Re: [delphi-br] Sistema grava mais não atualiza na r ede

2008-08-06 Por tôpico Régis Bender
Utilizo o IbQuery.

sds
 
Bender Desenvolvimento de Sistemas 
   e  Serviços Contábeis (Régis)
   (51) 98470699
 
Novo Hamburgo/RS
MSN: [EMAIL PROTECTED]
www.regisbender.com.br
  - Original Message - 
  From: Humberto Sales 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, August 05, 2008 6:23 PM
  Subject: Re: [delphi-br] Sistema grava mais não atualiza na rede


  qual componentes vc esta usando? talvez possa ajuda-lo.
  
  
   
Bom dia pessoal, estou com um problema na gravação dos meus registros.
Utilizo D7 + IB 6.5.
Se gravo um registro em uma máquina da rede, quando consulto em 
   outro terminal o registro não grava/Atualiza, somente depois de fechar 
   o sistema e abri-lo novamente.
No final de cada execução de comando (dmBuscas.ibqTemp. ExecSQL;) eu 
   comito a transação(dmConecta. ibtTransaction. CommitRetaining; ).
Alguém pode me ajudar?
   
  
    _ _ _ _ _ _
   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 
   http://www.amigosdomessenger.com.br
  
   



   

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



Re: [delphi-br] Dúvidas sobre PChar

2008-08-06 Por tôpico Joao Morais
Francesco Perrotti wrote:
 Oi pessoal,
  
 Tenho algumas dúvidas sobre o uso de PChar, agradeceria alguma ajuda.
  
 É o seguinte, fiz uma DLL com uma função que precisa retornar uma string, 
 portanto tenho que usar um PChar
 já que provalvelmente a DLL será usada com linguagem C.

Se você envia strings para a dll, você pode criar um tipo string e fazer 
um cast para pchar. Uma ansi string é compatível com pchar internamente.

 Só que ainda não consegui entender direito como o Delphi trata esse tipo. Por 
 exemplo,
 se eu declarar em uma função:
  
 var p:pchar;
  
 o que exatamente o delphi cria? apenas um ponteiro para chars? ele já aloca 
 memória
 para conter strings? se eu tiver que retornar um pchar por uma função, por 
 exemplo:

Nada de alocação, apenas um tipo ponteiro.

 function Hello: pchar;
 begin
   result := 'Hello';
 end;

'Hello' é uma literal que é alocada e liberada pelo compilador, e neste 
caso específico você não terá problemas nem com memória corrompida nem 
com vazamento.

 isso está correto? ou tenho que alocar memória para o pchar como eu teria que 
 fazer em c?

É como programar em C, exatamente. No caso acima você não precisa alocar 
porque a string é uma literal, mas nos demais casos você tem que cuidar 
se as rotinas que você está manipulando estão alocando memória 
corretamente. E se estão alocando, tenha em mente aonde e como elas 
serão desalocadas.

 nesse caso o delphi já coloca o terminador zero no final ou eu devo colocar 
 explicitamente?

Ansi strings são compatíveis com pchar, elas já possuem um #0 no final. 
Até isso o Delphi e o fpc faz por nós.

 E no lugar onde faço a chamada a essa função, depois eu tenho que liberar a 
 memória?
 Por exemplo:
  
 var p: pchar;
 begin
   p := Hello;
  
 e agora? depois de usar a string em p o que eu devo fazer? liberar a memória? 
 ou o delphi já faz isso?
 No help do delphi há exemplos usando arrays de char que depois são 
 casteados para pchar,

Usando um array de char (com um #0 no final) ou string, o compilador irá 
alocar e desalocar a memória por você, mas cuidado para não mandar uma 
string para outra rotina sendo que a string foi alocada localmente (tal 
como uma variável local). Depois que a sua rotina terminar, babau 
string. Exemplo, isto aqui funciona:

var
   VStr: string;
begin
   VStr := Copy(Alguem, AlgumaPos, AlgumTamanho);
   ChamaDll(PChar(VStr));
end;

A string é alocada por Copy, guardada em VStr, é passado para ChamaDll 
como um PChar, e depois que volta da rotina ChamaDll é que é desalocada 
pelo compilador.

 mas no meu caso eu não sei qual será o tamanho final da string, devo alocar 
 um array dentro da função 
 e liberar ele fora dela?

Ou isso, ou usar ansi strings, ou usar StrAlloc, ou usar GetMem, ou usar 
alguma rotina que se preocupe com isto (exemplo strpcopy), etc. E 
lembrar de desalocar essa memória caso tenha sido alocada por você ou 
por alguma rotina que você chamou.

Geralmente, ao programar com bibliotecas de link dinâmico, é comum 
utilizar ansi strings na aplicação e fazer um cast forçado na chamada à 
rotina. Todo o trabalho de alocação fica transparente pra você e você 
tem mais tempo para se preocupar com coisas mais importantes.

Joao Morais


Re: [delphi-br] Controlar acesso ao sistema

2008-08-06 Por tôpico Moacir - GMail
Sergio,

A solução ideal, ao meu ver, é o componente pago TEvAppProtect

TEvAppProtect
Componente não visual para proteção de aplicações. Excelente para uso em 
aplicações que precisam ser liberadas para uso em períodos ou por apenas 
um determinado número de execuções. Também irá proteger a sua aplicação 
contra cópias. Basta adiciona-lo no projeto e você poderá usa-lo para: 
*1 *- Liberar a aplicação por apenas alguns dias para que o usuário 
possa avalia-la; *2* - Quando se tem um sistema alugado e precisa-se 
libera-lo a cada período de 30 dias; *3* - Liberação para que o sistema 
só funcione no computador de quem o adquiriu; *4* - Liberação a 
aplicação para apenas um determinado número de execuções.

O Site do desenvolvedor é: http://www.elivaldo.com.br/

Vale cada centavo !!

Sucesso !!

Moacir


O.S. Informática escreveu:
 Amigos, pela primeira vez escrevo no forum, e gostaria de uma mãozinha, 
 afinal de contas, nós que estamos iniciando agora nesse novo mundo, 
 precisamos dessa forcinha dos veteranos.
   Vamos lá então, acabei de implementar um sistema para um cliente, só que eu 
 quero colocar um controle de acesso, ou seja, a cada 30 dias, o sistema irá 
 pedir um numero de série para desbloqueio e assim  liberar o acesso. Estou 
 tomando essa medida, pois o cliente não me comprou o sistema e sim 
 formalizamos um contrato mensal, mas sabe lá se ele vai me pagar direitinbho 
 não é?? Conto com a ajuda dos senhores. Obrigado

   Sergio
   Fortaleza/Ce.



 -
 Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara 
 @ymail.com ou @rocketmail.com.

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


 

   


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



Re: [delphi-br] algo como o Decision cube

2008-08-06 Por tôpico Ricardo César Cardoso
Procure por algum arquivo cujo nome comece por dcldss pois os três digitos 
que tem no nome ( no caso 100 ) indicam a versão da IDE/VCL.

Atte,
Ricardo.

--- Em qua, 6/8/08, ca_programador007 [EMAIL PROTECTED] escreveu:
De: ca_programador007 [EMAIL PROTECTED]
Assunto: Re: [delphi-br] algo como o Decision cube
Para: delphi-br@yahoogrupos.com.br
Data: Quarta-feira, 6 de Agosto de 2008, 0:02











Olá

Nao encontrei o arquivo dcldss100.bpl  na pasta bin do delphi. alias.. eu uso o 
RAD 2007...

Será que é em outro caminho?

Me ajudem.. quero muito o decision cube.

 

GRato. no aguardo

 



--- Em ter, 5/8/08, Rafael Jorge rafael.jorge@ gmail.com escreveu:



De: Rafael Jorge rafael.jorge@ gmail.com

Assunto: Re: [delphi-br] algo como o Decision cube

Para: [EMAIL PROTECTED] os.com.br

Data: Terça-feira, 5 de Agosto de 2008, 23:11



outra coisa o decision cube mais novo vem no delphi..

na verdade todo componente nativo do delphi (nao produzido por terceiros

feito o quickrep por exemplo)

continua a vir no delphi, so que nao instalado por padrao. se voce quizer

usar o decision cube normal (com dependencia de BDE) e so instalar o pacote

dcldss100.bpl da pasta bin do delphi. no caso o 100 é do delphi 2006 do 2007

deve ser 11 no final..

mas o que eu queria era algum que nao dependence do BDE..

t+



2008/8/5 Daniel Bastos [EMAIL PROTECTED] com



 Parece que está faltando a unit CHARTREG.

 Fora que tem erros nas units FXArrays e FXBIN, provavelmente devido a

 mudanças em DB.TFieldType.

 Parece que foram incluidos os ítens neste ennumeration, e, pelo fonte ser

 antigo (A data de lançamento desta versão é 07/08/2004), é provável que

 seja

 a causa deste problema.

 Bom, resolvi este problema mas ainda tem a questão da unit CHARTREG, que eu

 não faço idéia de onde ela vem. Só sei que não é dele, nem existe no D2007.

 tb olhei no repositório cvs no sourceforge do projeto, mas nenhum sinal.

 Direto pelas bpls compiladas como o nosso amigo Rafael citou, eu achei que

 não ia funcionar, mas lá fui eu :)

 Bom ... não funcionou hehehe, depende das bpls do d6 ou d7

 Se alguem conhecer esta unit, da um toque :)



 Abs

 Daniel A. Bastos



 2008/8/5 Rafael Jorge rafael.jorge@ gmail.com rafael.jorge% 40gmail.com 



  http://sourceforge. http://sourceforge. / net/projects/ fxds



 

  Enhanced Borland Decision Cube 2.1 for Delphi

 

  Free e open-source. Fuçem!

 

  so que tentei instalar e ele nao deixa pois os fds70.bpl nao tem fontes..

  e eu to usando o delphi 2006. ai nao tem como instalar no delphi 2006.

  vou ver se acho os fotes disso ai..

  t+

 

  2008/8/5 ca_programador007 ca_programador007@ yahoo.com. 
  brca_programador00 7% 40yahoo.com. br

 ca_programador007% 40yahoo.com. br

  

 

   Olá.

   Fiz o download, mas nao consegui instalar para o Delphi 2007.

   Ele funciona no Delphi2007?

   Como faço para instalar esse componente?

  

   Obrigado, Carlos

  

  

  

  

   --- Em ter, 5/8/08, Rubem Nascimento da Rocha 

 djpardalrocha@ hotmail.com djpardalrocha% 40hotmail. comdjpardalroc ha%

 40hotmail.com

  djpardalrocha% 40hotmail. com

   escreveu:

  

   De: Rubem Nascimento da Rocha djpardalrocha@ hotmail.com djpardalrocha% 
   40hotmail. com

 djpardalrocha% 40hotmail. com

  djpardalrocha% 40hotmail. com

   

   Assunto: RE: [delphi-br] algo como o Decision cube

   Para: [EMAIL PROTECTED] os.com.br delphi-br%40yahoog rupos.com. 
   brdelphi- br%

 40yahoogrupos. com.brdelphi- br%

  40yahoogrupos. com.br



 

   Data: Terça-feira, 5 de Agosto de 2008, 11:24

  

  

   http://sourceforge. net/projects/ fxds

   Enhanced Borland Decision Cube 2.1 for Delphi

  

   Free e open-source.

   Fuçem!

  

   Sds.

  

    _ _ __

   To: [EMAIL PROTECTED] os.com.br

   From: [EMAIL PROTECTED] com.br

   Date: Tue, 5 Aug 2008 10:10:14 -0300

   Subject: Re: [delphi-br] algo como o Decision cube

  

   Fala Rafael!

  

   Já ouviu falar do FastCube? Do mesmo fabricante do FastReport?

   Dá uma olhada lá!

  

   []s

  

   - Original Message -

   From: Rafael Jorge

   To: delphi-br

   Sent: Tuesday, August 05, 2008 7:36 AM

   Subject: [delphi-br] algo como o Decision cube

  

   existe algum componente pago ou free que tenhas as funcionalidades do

   decision cube so que sendo acessado por DBexpress?

   obrigado

   t+

  

   --

    - - - - - -

   Rafael jorge alves (Analista/desenvolv edor)

  

   www.sistemafocus. com.br

   sistema focus de gestão comercial e serviços em informatica. .

  

    _ _ _ _ _ _

   Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de

   relacionamentos com até 6,000 fotos!

   http://www.amigosdo messenger. com.br

  

   Novos endereços, o Yahoo! que você conhece. Crie um email novo com a

 sua

   cara @ymail.com ou @rocketmail. com.

   http://br.new. 

Re: [delphi-br] Controlar acesso ao sistema

2008-08-06 Por tôpico Ricardo César Cardoso
A TurboPower também tem uma suíte de componentes que permite fazer isso. E o 
melhor é que esses componnentes são Free com código aberto.

No site da Active Delphi tem um tutorial ensinando como implementar essa 
proteção:

[ http://www.activedelphi.com.br/print.php?sid=383 ]

Atte,
Ricardo.

--- Em ter, 5/8/08, O.S. Informática [EMAIL PROTECTED] escreveu:
De: O.S. Informática [EMAIL PROTECTED]
Assunto: [delphi-br] Controlar acesso ao sistema
Para: delphi-br@yahoogrupos.com.br
Data: Terça-feira, 5 de Agosto de 2008, 21:49











Amigos, pela primeira vez escrevo no forum, e gostaria de uma 
mãozinha, afinal de contas, nós que estamos iniciando agora nesse novo mundo, 
precisamos dessa forcinha dos veteranos.

  Vamos lá então, acabei de implementar um sistema para um cliente, só que eu 
quero colocar um controle de acesso, ou seja, a cada 30 dias, o sistema irá 
pedir um numero de série para desbloqueio e assim  liberar o acesso. Estou 
tomando essa medida, pois o cliente não me comprou o sistema e sim formalizamos 
um contrato mensal, mas sabe lá se ele vai me pagar direitinbho não é?? Conto 
com a ajuda dos senhores. Obrigado

   

  Sergio

  Fortaleza/Ce.



 - - ---

Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara 
@ymail.com ou @rocketmail. 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]



Re: [delphi-br] Controlar acesso ao sistema

2008-08-06 Por tôpico Claudiney Cogo
Bom dia Sergio.

Aí tem duas maneiras. Uma seria você mesmo bolar uma rotina sua de controle 
disso. Precisaria ver as suas necessidades e montar um esquema de geração 
dessas liberações. 

Outra seria usar algo já pronto, que existem por aí.

Aqui eu utilizei no delphi 7 o componente RDACESSO da Deltress 
(www.deltress.com.br). Este componente tem tanto a função de controle de 
usuários do sistema quanto controle de vencimento mensal, que é o que você 
precisa. Muito simples de usar. Esse componente não é free. Você precisa ter a 
licença dele.

Tem também o User Control que é free (www.usercontrol.net). Ele também faz o 
controle de usuários do sistema. Porém não sei te dizer se faz o controle de 
validade.

Também devem existir outras opções disponíveis por aí. Mas acho que essas duas 
são as mais indicadas, pelo suporte e manutenção em novas versões.

Abraço



Claudiney Cogo
N2 Sistemas e Soluções em Informática
Av. São Paulo, 172 - 15º Andar - Sala 1505
Fone/Fax: (44) 3029-6053 - Maringá - Paraná
www.n2solutions.com.br
nfe.n2solutions.com.br
www.studion2.com.br

 
  - Original Message - 
  From: O.S. Informática 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, August 05, 2008 9:49 PM
  Subject: [delphi-br] Controlar acesso ao sistema


  Amigos, pela primeira vez escrevo no forum, e gostaria de uma mãozinha, 
afinal de contas, nós que estamos iniciando agora nesse novo mundo, precisamos 
dessa forcinha dos veteranos.
  Vamos lá então, acabei de implementar um sistema para um cliente, só que eu 
quero colocar um controle de acesso, ou seja, a cada 30 dias, o sistema irá 
pedir um numero de série para desbloqueio e assim liberar o acesso. Estou 
tomando essa medida, pois o cliente não me comprou o sistema e sim formalizamos 
um contrato mensal, mas sabe lá se ele vai me pagar direitinbho não é?? Conto 
com a ajuda dos senhores. Obrigado

  Sergio
  Fortaleza/Ce.

  -
  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara 
@ymail.com ou @rocketmail.com.

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



   

  __ Informação do NOD32 IMON 3301 (20080727) __

  Esta mensagem foi verificada pelo NOD32 sistema antivírus
  http://www.eset.com.br


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



Re: [delphi-br] Controlar acesso ao sistema

2008-08-06 Por tôpico Marcos Ferreira
Sergio,

acesse esse site (http://www.elivaldo.com.br/) e da uma olhada la, me parece 
que tem exatamente o que voce precisa. Instalei o suite deles, mas ainda nao 
testei a parte de acesso. Mas vi o gerador de acesso deles, e tem a parte de 
licença por periodo. Mas precisaria ver como vai funcionar toda essa renovação 
mensal

KeyGenerator
Este programa deve ser utilizado para gerar o Código de Liberação para 
aplicações protegidas através do componente TEvAppProtect, que faz parte do 
package Additional (Pacote TCF Additional).


Att,

Marcos A. Ferreira
São Paulo - SP
+55 1183376968

Esta mensagem pode conter informação confidencial e/ou privilegiada. Se você 
não for o destinatário ou a pessoa autorizada a receber esta mensagem, não pode 
usar, copiar, ou divulgar as informações nela contidas ou tomar qualquer ação 
baseada nestas informações. Se você recebeu esta mensagem por engano, por 
favor, avise imediatamente o remetente, respondendo o email e em seguida, 
apague-o.
Agradecemos sua cooperação.

This message may contain confidential and/or privileged information. If you are 
not the addressee or authorized to receive this for the addressee, you must not 
use, copy, disclose or take any action based on this message or any information 
herein. If you have received this message in error, please, advise the sender 
immediately by reply e-mail and delete this message.
Thank you for your cooperation.

Antes de imprimir pense em sua responsabilidade e compromisso com o MEIO 
AMBIENTE.
ENVIRONMENT commitment and responsibility, think about Before Printing.


From: Claudiney Cogo 
Sent: Wednesday, August 06, 2008 8:35 AM
To: delphi-br@yahoogrupos.com.br 
Subject: Re: [delphi-br] Controlar acesso ao sistema


Bom dia Sergio.

Aí tem duas maneiras. Uma seria você mesmo bolar uma rotina sua de controle 
disso. Precisaria ver as suas necessidades e montar um esquema de geração 
dessas liberações. 

Outra seria usar algo já pronto, que existem por aí.

Aqui eu utilizei no delphi 7 o componente RDACESSO da Deltress 
(www.deltress.com.br). Este componente tem tanto a função de controle de 
usuários do sistema quanto controle de vencimento mensal, que é o que você 
precisa. Muito simples de usar. Esse componente não é free. Você precisa ter a 
licença dele.

Tem também o User Control que é free (www.usercontrol.net). Ele também faz o 
controle de usuários do sistema. Porém não sei te dizer se faz o controle de 
validade.

Também devem existir outras opções disponíveis por aí. Mas acho que essas duas 
são as mais indicadas, pelo suporte e manutenção em novas versões.

Abraço

--
Claudiney Cogo
N2 Sistemas e Soluções em Informática
Av. São Paulo, 172 - 15º Andar - Sala 1505
Fone/Fax: (44) 3029-6053 - Maringá - Paraná
www.n2solutions.com.br
nfe.n2solutions.com.br
www.studion2.com.br

- Original Message - 
From: O.S. Informática 
To: delphi-br@yahoogrupos.com.br 
Sent: Tuesday, August 05, 2008 9:49 PM
Subject: [delphi-br] Controlar acesso ao sistema

Amigos, pela primeira vez escrevo no forum, e gostaria de uma mãozinha, afinal 
de contas, nós que estamos iniciando agora nesse novo mundo, precisamos dessa 
forcinha dos veteranos.
Vamos lá então, acabei de implementar um sistema para um cliente, só que eu 
quero colocar um controle de acesso, ou seja, a cada 30 dias, o sistema irá 
pedir um numero de série para desbloqueio e assim liberar o acesso. Estou 
tomando essa medida, pois o cliente não me comprou o sistema e sim formalizamos 
um contrato mensal, mas sabe lá se ele vai me pagar direitinbho não é?? Conto 
com a ajuda dos senhores. Obrigado

Sergio
Fortaleza/Ce.

-
Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara 
@ymail.com ou @rocketmail.com.

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

__ Informação do NOD32 IMON 3301 (20080727) __

Esta mensagem foi verificada pelo NOD32 sistema antivírus
http://www.eset.com.br

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



 

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



Re: [delphi-br] algo como o Decision cube

2008-08-06 Por tôpico ca_programador007
Bom dia Ricardo
 
Com o nome de dcldss não tem nada.
(C:\Arquivos de programas\CodeGear\RAD Studio\5.0\bin)
 
Será que não pode ser outro arquivo? Agora fiquei irritado. Quero muito o cubo 
funcionando no Delphi 2007.
 
Grato Carlos
 


--- Em qua, 6/8/08, Ricardo César Cardoso [EMAIL PROTECTED] escreveu:

De: Ricardo César Cardoso [EMAIL PROTECTED]
Assunto: Re: [delphi-br] algo como o Decision cube
Para: delphi-br@yahoogrupos.com.br
Data: Quarta-feira, 6 de Agosto de 2008, 8:31






Procure por algum arquivo cujo nome comece por dcldss pois os três digitos 
que tem no nome ( no caso 100 ) indicam a versão da IDE/VCL.

Atte,
Ricardo.

--- Em qua, 6/8/08, ca_programador007 ca_programador007@ yahoo.com. br 
escreveu:
De: ca_programador007 ca_programador007@ yahoo.com. br
Assunto: Re: [delphi-br] algo como o Decision cube
Para: [EMAIL PROTECTED] os.com.br
Data: Quarta-feira, 6 de Agosto de 2008, 0:02

Olá

Nao encontrei o arquivo dcldss100.bpl  na pasta bin do delphi. alias.. eu uso o 
RAD 2007...

Será que é em outro caminho?

Me ajudem.. quero muito o decision cube.

 

GRato. no aguardo

 

--- Em ter, 5/8/08, Rafael Jorge rafael.jorge@ gmail.com escreveu:

De: Rafael Jorge rafael.jorge@ gmail.com

Assunto: Re: [delphi-br] algo como o Decision cube

Para: [EMAIL PROTECTED] os.com.br

Data: Terça-feira, 5 de Agosto de 2008, 23:11

outra coisa o decision cube mais novo vem no delphi..

na verdade todo componente nativo do delphi (nao produzido por terceiros

feito o quickrep por exemplo)

continua a vir no delphi, so que nao instalado por padrao. se voce quizer

usar o decision cube normal (com dependencia de BDE) e so instalar o pacote

dcldss100.bpl da pasta bin do delphi. no caso o 100 é do delphi 2006 do 2007

deve ser 11 no final..

mas o que eu queria era algum que nao dependence do BDE..

t+

2008/8/5 Daniel Bastos [EMAIL PROTECTED] com

 Parece que está faltando a unit CHARTREG.

 Fora que tem erros nas units FXArrays e FXBIN, provavelmente devido a

 mudanças em DB.TFieldType.

 Parece que foram incluidos os ítens neste ennumeration, e, pelo fonte ser

 antigo (A data de lançamento desta versão é 07/08/2004), é provável que

 seja

 a causa deste problema.

 Bom, resolvi este problema mas ainda tem a questão da unit CHARTREG, que eu

 não faço idéia de onde ela vem. Só sei que não é dele, nem existe no D2007.

 tb olhei no repositório cvs no sourceforge do projeto, mas nenhum sinal.

 Direto pelas bpls compiladas como o nosso amigo Rafael citou, eu achei que

 não ia funcionar, mas lá fui eu :)

 Bom ... não funcionou hehehe, depende das bpls do d6 ou d7

 Se alguem conhecer esta unit, da um toque :)



 Abs

 Daniel A. Bastos



 2008/8/5 Rafael Jorge rafael.jorge@ gmail.com rafael.jorge% 40gmail.com 



  http://sourceforge. http://sourceforge. / net/projects/ fxds



 

  Enhanced Borland Decision Cube 2.1 for Delphi

 

  Free e open-source. Fuçem!

 

  so que tentei instalar e ele nao deixa pois os fds70.bpl nao tem fontes...

  e eu to usando o delphi 2006. ai nao tem como instalar no delphi 2006.

  vou ver se acho os fotes disso ai..

  t+

 

  2008/8/5 ca_programador007 ca_programador007@ yahoo.com. 
  brca_programador00 7% 40yahoo.com. br

 ca_programador007% 40yahoo.com. br

  

 

   Olá.

   Fiz o download, mas nao consegui instalar para o Delphi 2007.

   Ele funciona no Delphi2007?

   Como faço para instalar esse componente?

  

   Obrigado, Carlos

  

  

  

  

   --- Em ter, 5/8/08, Rubem Nascimento da Rocha 

 djpardalrocha@ hotmail.com djpardalrocha% 40hotmail. comdjpardalroc ha%

 40hotmail.com

  djpardalrocha% 40hotmail. com

   escreveu:

  

   De: Rubem Nascimento da Rocha djpardalrocha@ hotmail.com djpardalrocha% 
   40hotmail. com

 djpardalrocha% 40hotmail. com

  djpardalrocha% 40hotmail. com

   

   Assunto: RE: [delphi-br] algo como o Decision cube

   Para: [EMAIL PROTECTED] os.com.br delphi-br%40yahoog rupos.com. 
   brdelphi- br%

 40yahoogrupos. com.brdelphi- br%

  40yahoogrupos. com.br



 

   Data: Terça-feira, 5 de Agosto de 2008, 11:24

  

  

   http://sourceforge. net/projects/ fxds

   Enhanced Borland Decision Cube 2.1 for Delphi

  

   Free e open-source.

   Fuçem!

  

   Sds.

  

    _ _ __

   To: [EMAIL PROTECTED] os.com.br

   From: [EMAIL PROTECTED] com.br

   Date: Tue, 5 Aug 2008 10:10:14 -0300

   Subject: Re: [delphi-br] algo como o Decision cube

  

   Fala Rafael!

  

   Já ouviu falar do FastCube? Do mesmo fabricante do FastReport?

   Dá uma olhada lá!

  

   []s

  

   - Original Message -

   From: Rafael Jorge

   To: delphi-br

   Sent: Tuesday, August 05, 2008 7:36 AM

   Subject: [delphi-br] algo como o Decision cube

  

   existe algum componente pago ou free que tenhas as funcionalidades do

   decision cube so que sendo acessado por DBexpress?

   obrigado

   t+

  

   --

    - - - - - -

   Rafael jorge alves 

Re: [delphi-br] Controlar acesso ao sistema

2008-08-06 Por tôpico Ricardo César Cardoso
Exemplo de geração de chaves no TurboPower OnGuard:

[ http://www.activedelphi.com.br/print.php?sid=413 ]

Atte,
Ricardo.

--- Em qua, 6/8/08, Ricardo César Cardoso [EMAIL PROTECTED] escreveu:
De: Ricardo César Cardoso [EMAIL PROTECTED]
Assunto: Re: [delphi-br] Controlar acesso ao sistema
Para: delphi-br@yahoogrupos.com.br
Data: Quarta-feira, 6 de Agosto de 2008, 8:35











A TurboPower também tem uma suíte de componentes que permite fazer 
isso. E o melhor é que esses componnentes são Free com código aberto.



No site da Active Delphi tem um tutorial ensinando como implementar essa 
proteção:



[ http://www.activede lphi.com. br/print. php?sid=383 ]



Atte,

Ricardo.



--- Em ter, 5/8/08, O.S. Informática osinformatica@ yahoo.com. br escreveu:

De: O.S. Informática osinformatica@ yahoo.com. br

Assunto: [delphi-br] Controlar acesso ao sistema

Para: [EMAIL PROTECTED] os.com.br

Data: Terça-feira, 5 de Agosto de 2008, 21:49



Amigos, pela primeira vez escrevo no forum, e gostaria de uma mãozinha, afinal 
de contas, nós que estamos iniciando agora nesse novo mundo, precisamos dessa 
forcinha dos veteranos.



Vamos lá então, acabei de implementar um sistema para um cliente, só que eu 
quero colocar um controle de acesso, ou seja, a cada 30 dias, o sistema irá 
pedir um numero de série para desbloqueio e assim  liberar o acesso. Estou 
tomando essa medida, pois o cliente não me comprou o sistema e sim formalizamos 
um contrato mensal, mas sabe lá se ele vai me pagar direitinbho não é?? Conto 
com a ajuda dos senhores. Obrigado



Sergio



Fortaleza/Ce.



 - - ---



Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara 
@ymail.com ou @rocketmail. 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]
 
 

















  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]



Re: [delphi-br] algo como o Decision cube

2008-08-06 Por tôpico Ricardo César Cardoso
Não sei Carlos. Sinceramente nunca usei o Decision Cube ou qualquer outro 
componente similar. Nessecitaria conhecer melhor situações onde ele seja 
aplicaável.

Atte,
Ricardo.

--- Em qua, 6/8/08, ca_programador007 [EMAIL PROTECTED] escreveu:
De: ca_programador007 [EMAIL PROTECTED]
Assunto: Re: [delphi-br] algo como o Decision cube
Para: delphi-br@yahoogrupos.com.br
Data: Quarta-feira, 6 de Agosto de 2008, 9:20











Bom dia Ricardo

 

Com o nome de dcldss não tem nada.

(C:\Arquivos de programas\CodeGear\ RAD Studio\5.0\bin)

 

Será que não pode ser outro arquivo? Agora fiquei irritado. Quero muito o cubo 
funcionando no Delphi 2007.

 

Grato 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]



Re: [delphi-br] algo como o Decision cube

2008-08-06 Por tôpico Daniel Bastos
 mas o que eu queria era algum que nao dependence do BDE..
Eu tb :)

2008/8/5 Rafael Jorge [EMAIL PROTECTED]

   outra coisa o decision cube mais novo vem no delphi..
 na verdade todo componente nativo do delphi (nao produzido por terceiros
 feito o quickrep por exemplo)
 continua a vir no delphi, so que nao instalado por padrao. se voce quizer
 usar o decision cube normal (com dependencia de BDE) e so instalar o pacote
 dcldss100.bpl da pasta bin do delphi. no caso o 100 é do delphi 2006 do
 2007
 deve ser 11 no final..
 mas o que eu queria era algum que nao dependence do BDE..
 t+

 2008/8/5 Daniel Bastos [EMAIL PROTECTED] danbastos%40gmail.com


  Parece que está faltando a unit CHARTREG.
  Fora que tem erros nas units FXArrays e FXBIN, provavelmente devido a
  mudanças em DB.TFieldType.
  Parece que foram incluidos os ítens neste ennumeration, e, pelo fonte ser
  antigo (A data de lançamento desta versão é 07/08/2004), é provável que
  seja
  a causa deste problema.
  Bom, resolvi este problema mas ainda tem a questão da unit CHARTREG, que
 eu
  não faço idéia de onde ela vem. Só sei que não é dele, nem existe no
 D2007.
  tb olhei no repositório cvs no sourceforge do projeto, mas nenhum sinal.
  Direto pelas bpls compiladas como o nosso amigo Rafael citou, eu achei
 que
  não ia funcionar, mas lá fui eu :)
  Bom ... não funcionou hehehe, depende das bpls do d6 ou d7
  Se alguem conhecer esta unit, da um toque :)
 
  Abs
  Daniel A. Bastos
 
  2008/8/5 Rafael Jorge [EMAIL PROTECTED] 
  rafael.jorge%40gmail.comrafael.jorge%
 40gmail.com
 
   http://sourceforge. http://sourceforge./ net/projects/ fxds
 
  
   Enhanced Borland Decision Cube 2.1 for Delphi
  
   Free e open-source. Fuçem!
  
   so que tentei instalar e ele nao deixa pois os fds70.bpl nao tem
 fontes.
   e eu to usando o delphi 2006. ai nao tem como instalar no delphi 2006.
   vou ver se acho os fotes disso ai..
   t+
  
   2008/8/5 ca_programador007 [EMAIL 
   PROTECTED]ca_programador007%40yahoo.com.br
 ca_programador007%40yahoo.com.br
  ca_programador007%40yahoo.com.br
   
  
Olá.
Fiz o download, mas nao consegui instalar para o Delphi 2007.
Ele funciona no Delphi2007?
Como faço para instalar esse componente?
   
Obrigado, Carlos
   
   
   
   
--- Em ter, 5/8/08, Rubem Nascimento da Rocha 
  [EMAIL PROTECTED] djpardalrocha%40hotmail.com djpardalrocha%
 40hotmail.comdjpardalrocha%
  40hotmail.com
   djpardalrocha%40hotmail.com
escreveu:
   
De: Rubem Nascimento da Rocha [EMAIL 
PROTECTED]djpardalrocha%40hotmail.com
 djpardalrocha%40hotmail.com
  djpardalrocha%40hotmail.com
   djpardalrocha%40hotmail.com

Assunto: RE: [delphi-br] algo como o Decision cube
Para: delphi-br@yahoogrupos.com.br 
delphi-br%40yahoogrupos.com.brdelphi-br%
 40yahoogrupos.com.brdelphi-br%
  40yahoogrupos.com.brdelphi-br%

   40yahoogrupos.com.br
 
  
Data: Terça-feira, 5 de Agosto de 2008, 11:24
   
   
http://sourceforge. net/projects/ fxds
Enhanced Borland Decision Cube 2.1 for Delphi
   
Free e open-source.
Fuçem!
   
Sds.
   
 _ _ __
To: [EMAIL PROTECTED] os.com.br
From: [EMAIL PROTECTED] com.br
Date: Tue, 5 Aug 2008 10:10:14 -0300
Subject: Re: [delphi-br] algo como o Decision cube
   
Fala Rafael!
   
Já ouviu falar do FastCube? Do mesmo fabricante do FastReport?
Dá uma olhada lá!
   
[]s
   
- Original Message -
From: Rafael Jorge
To: delphi-br
Sent: Tuesday, August 05, 2008 7:36 AM
Subject: [delphi-br] algo como o Decision cube
   
existe algum componente pago ou free que tenhas as funcionalidades do
decision cube so que sendo acessado por DBexpress?
obrigado
t+
   
--
 - - - - - -
Rafael jorge alves (Analista/desenvolv edor)
   
www.sistemafocus. com.br
sistema focus de gestão comercial e serviços em informatica.
   
 _ _ _ _ _ _
Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de
relacionamentos com até 6,000 fotos!
http://www.amigosdo messenger. com.br
   
Novos endereços, o Yahoo! que você conhece. Crie um email novo com a
  sua
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses
   
[As partes desta mensagem que não continham texto foram removidas]
   
   
   
  
   --
   --
   Rafael jorge alves (Analista/desenvolvedor)
  
   www.sistemafocus.com.br
   sistema focus de gestão comercial e serviços em informatica.
   --
  
   [As partes desta mensagem que não continham texto foram removidas]
  
  
  
 
  [As partes desta mensagem que não continham texto foram removidas]
 
 
 

 --
 --
 Rafael jorge alves 

[delphi-br] Dúvida SQL

2008-08-06 Por tôpico dhsb
Bom dia,

Estou com uma pequena dúvida de SQL.

Quero criar em uma consulta um campo do tipo lógico(true/false) mas nao 
estou consegundo.

Como eu poderia resolver este problema?

Uso BD Firebird.

O Sql  e bem simples:

Select id_cliente, nome_cliente, fone_res, Campo Lógico from 
tab_clientes order by nome_cliente.

Valeu



RES: [delphi-br] Dúvida SQL

2008-08-06 Por tôpico Juliano Silva - Yahoo
 
Cara, normalmente é usado para estes campos 0 para False e 1 para True, é
meio um padrão quando se necessita utilizar este recurso...
 
Juliano

  _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de dhsb
Enviada em: quarta-feira, 6 de agosto de 2008 09:39
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Dúvida SQL



Bom dia,

Estou com uma pequena dúvida de SQL.

Quero criar em uma consulta um campo do tipo lógico(true/false) mas nao 
estou consegundo.

Como eu poderia resolver este problema?

Uso BD Firebird.

O Sql e bem simples:

Select id_cliente, nome_cliente, fone_res, Campo Lógico from 
tab_clientes order by nome_cliente.

Valeu



 

No virus found in this incoming message.
Checked by AVG - http://www.avg.com
Version: 8.0.138 / Virus Database: 270.5.12/1595 - Release Date: 06/08/2008
08:23




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



Res: RES: [delphi-br] Dúvida SQL

2008-08-06 Por tôpico Luciano Calenzani Simões
Outra forma é usar letras. Ex.: S - Sim N - Não

Provavelmente o que você quer é fazer algo do tipo: Cliente é ativo? Cliente 
está em débito? ...

Aí você terá de usar a instrução CASE em sei SQL.

 Luciano Calenzani Simões





- Mensagem original 
De: Juliano Silva - Yahoo [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 6 de Agosto de 2008 9:52:58
Assunto: RES: [delphi-br] Dúvida SQL



Cara, normalmente é usado para estes campos 0 para False e 1 para True, é
meio um padrão quando se necessita utilizar este recurso...

Juliano

_ 

De: [EMAIL PROTECTED] os.com.br [mailto:[EMAIL PROTECTED] os.com.br] Em
nome de dhsb
Enviada em: quarta-feira, 6 de agosto de 2008 09:39
Para: [EMAIL PROTECTED] os.com.br
Assunto: [delphi-br] Dúvida SQL

Bom dia,

Estou com uma pequena dúvida de SQL.

Quero criar em uma consulta um campo do tipo lógico(true/false) mas nao 
estou consegundo.

Como eu poderia resolver este problema?

Uso BD Firebird.

O Sql e bem simples:

Select id_cliente, nome_cliente, fone_res, Campo Lógico from 
tab_clientes order by nome_cliente.

Valeu

No virus found in this incoming message.
Checked by AVG - http://www.avg. com
Version: 8.0.138 / Virus Database: 270.5.12/1595 - Release Date: 06/08/2008
08:23


  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]



RE: [delphi-br] Dúvidas sobre PChar

2008-08-06 Por tôpico Rubem Nascimento da Rocha

Particularmente, dependendo do parâmetro e/ou do tipo de retorno da função que 
estou escrevendo para uma DLL, uso ou ShortString ou WideString. Além de poder 
tratar strings como costumeiramente faria usando o tipo string, evita de ter 
que distribuir a BORLANDMM.DLL.

Sds.



To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Wed, 6 Aug 2008 08:20:16 -0300
Subject: Re: [delphi-br] Dúvidas sobre PChar



Francesco Perrotti wrote:
 Oi pessoal,

 Tenho algumas dúvidas sobre o uso de PChar, agradeceria alguma ajuda.

 É o seguinte, fiz uma DLL com uma função que precisa retornar uma string, 
 portanto tenho que usar um PChar
 já que provalvelmente a DLL será usada com linguagem C.

Se você envia strings para a dll, você pode criar um tipo string e fazer
um cast para pchar. Uma ansi string é compatível com pchar internamente.

 Só que ainda não consegui entender direito como o Delphi trata esse tipo. Por 
 exemplo,
 se eu declarar em uma função:

 var p:pchar;

 o que exatamente o delphi cria? apenas um ponteiro para chars? ele já aloca 
 memória
 para conter strings? se eu tiver que retornar um pchar por uma função, por 
 exemplo:

Nada de alocação, apenas um tipo ponteiro.

 function Hello: pchar;
 begin
 result := 'Hello';
 end;

'Hello' é uma literal que é alocada e liberada pelo compilador, e neste
caso específico você não terá problemas nem com memória corrompida nem
com vazamento.

 isso está correto? ou tenho que alocar memória para o pchar como eu teria que 
 fazer em c?

É como programar em C, exatamente. No caso acima você não precisa alocar
porque a string é uma literal, mas nos demais casos você tem que cuidar
se as rotinas que você está manipulando estão alocando memória
corretamente. E se estão alocando, tenha em mente aonde e como elas
serão desalocadas.

 nesse caso o delphi já coloca o terminador zero no final ou eu devo colocar 
 explicitamente?

Ansi strings são compatíveis com pchar, elas já possuem um #0 no final.
Até isso o Delphi e o fpc faz por nós.

 E no lugar onde faço a chamada a essa função, depois eu tenho que liberar a 
 memória?
 Por exemplo:

 var p: pchar;
 begin
 p := Hello;

 e agora? depois de usar a string em p o que eu devo fazer? liberar a memória? 
 ou o delphi já faz isso?
 No help do delphi há exemplos usando arrays de char que depois são 
 casteados para pchar,

Usando um array de char (com um #0 no final) ou string, o compilador irá
alocar e desalocar a memória por você, mas cuidado para não mandar uma
string para outra rotina sendo que a string foi alocada localmente (tal
como uma variável local). Depois que a sua rotina terminar, babau
string. Exemplo, isto aqui funciona:

var
VStr: string;
begin
VStr := Copy(Alguem, AlgumaPos, AlgumTamanho);
ChamaDll(PChar(VStr));
end;

A string é alocada por Copy, guardada em VStr, é passado para ChamaDll
como um PChar, e depois que volta da rotina ChamaDll é que é desalocada
pelo compilador.

 mas no meu caso eu não sei qual será o tamanho final da string, devo alocar 
 um array dentro da função
 e liberar ele fora dela?

Ou isso, ou usar ansi strings, ou usar StrAlloc, ou usar GetMem, ou usar
alguma rotina que se preocupe com isto (exemplo strpcopy), etc. E
lembrar de desalocar essa memória caso tenha sido alocada por você ou
por alguma rotina que você chamou.

Geralmente, ao programar com bibliotecas de link dinâmico, é comum
utilizar ansi strings na aplicação e fazer um cast forçado na chamada à
rotina. Todo o trabalho de alocação fica transparente pra você e você
tem mais tempo para se preocupar com coisas mais importantes.

Joao Morais







_
Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS para o 
Messenger! É GRÁTIS!
http://www.msn.com.br/emoticonpack

[delphi-br] Scroll Form com uma TImage !!!

2008-08-06 Por tôpico Flavio
Olá pessoal, bom dia,

uma pequena grande dúvida não está me deixando dormir nos últimos dias... Tenho 
uma TImage dentro de um Form que, quando eu rolo a barra de rolagem do Form, 
essa imagem é redesenhada na nova posição, porém a imagem também fica desenhada 
na posição onde estava.

O que eu quero é q essa imagem seja desenhada na nova posição, porém seja 
apagado a imagem da posição anterior onde estava.

Nossa, isso é fundamental para deixar o logo da empresa junto com o do cliente 
no aplicativo. Alguém pode me ajudar aí ?


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]



[delphi-br] SDK de impressoras de cheque IMPRECHEQ...

2008-08-06 Por tôpico Onjahyr - GMAIL
E ae pessoal, me solicitaram para desenvolver um sistema para estas 
impressoras de cheque, a que a loja tem é uma ELGIN IMPRECHEQ, não tenho 
o modelo. Queria saber se a ELGIN disponibiliza o SDK ou é uma outra 
como a Microsoft que não disponibiliza nada para programadores? Fui no 
site da ELGIN mas não achei nada relacionado a SDK.

Se alguém já usou e sabe onde pegar o SDK eu agradeço.

Blz.


[delphi-br] Nao coloca o zero

2008-08-06 Por tôpico Felipe Milagres
bom dia a todos ..
 
to com o seguinte problema ..

eu tenho nome de arquivos em um TXT (os nomes são 8 numeros - Ex.:12345678), 
acontece que tem nomes que começão com 0 (zero), e quando ele é importado para 
o banco de dados Access, o zero não é importado ..

eu sei que Zero a direita não tem valor ... porem por ser nomes de arquivos, 
esse zero tem valor

tipo, o nº 05 é igual á 5, mas o nome 05 é diferente de 5 ..

qual comando eu faço para fazer o 0(zero) ser importado ???
 
[]s
 
Felipe Milagres



  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]



Re: [delphi-br] Sistema grava mais não atuali za na rede

2008-08-06 Por tôpico Humberto Sales
vá no ibtransaction1 e coloque na propriedade params:
READ_COMMITTED
REC_VERSION

dessa forma todas as transacoes comitadas serao vista no outro 
aplicativo na rede, nao se esqueca q o outro aplicativo tem q fazer o mesmo.
qdo vc comitar a transacao em um aplicativo, no outro basta vc abrir 
novamente a pesquisa q vc vai ver os dados.


Régis Bender escreveu:

 Utilizo o IbQuery.

 sds

 Bender Desenvolvimento de Sistemas
 e Serviços Contábeis (Régis)
 (51) 98470699

 Novo Hamburgo/RS
 MSN: [EMAIL PROTECTED] com.br mailto:regissk8%40terra.com.br
 www.regisbender. com.br
 - Original Message -
 From: Humberto Sales
 To: [EMAIL PROTECTED] os.com.br mailto:delphi-br%40yahoogrupos.com.br
 Sent: Tuesday, August 05, 2008 6:23 PM
 Subject: Re: [delphi-br] Sistema grava mais não atualiza na rede

 qual componentes vc esta usando? talvez possa ajuda-lo.
 
 
  
   Bom dia pessoal, estou com um problema na gravação dos meus registros.
   Utilizo D7 + IB 6.5.
   Se gravo um registro em uma máquina da rede, quando consulto em
  outro terminal o registro não grava/Atualiza, somente depois de fechar
  o sistema e abri-lo novamente.
   No final de cada execução de comando (dmBuscas.ibqTemp. ExecSQL;) eu
  comito a transação(dmConecta. ibtTransaction. CommitRetaining; ).
   Alguém pode me ajudar?
  
 
   _ _ _ _ _ _
  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
  http://www.amigosdo messenger. com.br 
 http://www.amigosdomessenger.com.br
 
 

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

  



Res: [delphi-br] Nao coloca o zero

2008-08-06 Por tôpico Luciano Calenzani Simões
Provavelmente seu campo está definido como do tipo inteiro. Defina como string 
que o zero a esquerda será preservado.

 Luciano Calenzani Simões





- Mensagem original 
De: Felipe Milagres [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 6 de Agosto de 2008 10:06:08
Assunto: [delphi-br] Nao coloca o zero


bom dia a todos ..
 
to com o seguinte problema ..

eu tenho nome de arquivos em um TXT (os nomes são 8 numeros - Ex.:12345678) , 
acontece que tem nomes que começão com 0 (zero), e quando ele é importado para 
o banco de dados Access, o zero não é importado ..

eu sei que Zero a direita não tem valor ... porem por ser nomes de arquivos, 
esse zero tem valor

tipo, o nº 05 é igual á 5, mas o nome 05 é diferente de 5 ..

qual comando eu faço para fazer o 0(zero) ser importado ???
 
[]s
 
Felipe Milagres


  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]



Re: [delphi-br] Sistema grava mais não atualiza na r ede

2008-08-06 Por tôpico Régis Bender
Muito obrigado a vcs que me ajudaram.

sds
 
Bender Desenvolvimento de Sistemas 
   e  Serviços Contábeis (Régis)
   (51) 98470699
 
Novo Hamburgo/RS
MSN: [EMAIL PROTECTED]
www.regisbender.com.br
  - Original Message - 
  From: Humberto Sales 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, August 06, 2008 1:26 PM
  Subject: Re: [delphi-br] Sistema grava mais não atualiza na rede


  vá no ibtransaction1 e coloque na propriedade params:
  READ_COMMITTED
  REC_VERSION

  dessa forma todas as transacoes comitadas serao vista no outro 
  aplicativo na rede, nao se esqueca q o outro aplicativo tem q fazer o mesmo.
  qdo vc comitar a transacao em um aplicativo, no outro basta vc abrir 
  novamente a pesquisa q vc vai ver os dados.

  Régis Bender escreveu:
  
   Utilizo o IbQuery.
  
   sds
  
   Bender Desenvolvimento de Sistemas
   e Serviços Contábeis (Régis)
   (51) 98470699
  
   Novo Hamburgo/RS
   MSN: [EMAIL PROTECTED] com.br mailto:regissk8%40terra.com.br
   www.regisbender. com.br
   - Original Message -
   From: Humberto Sales
   To: [EMAIL PROTECTED] os.com.br mailto:delphi-br%40yahoogrupos.com.br
   Sent: Tuesday, August 05, 2008 6:23 PM
   Subject: Re: [delphi-br] Sistema grava mais não atualiza na rede
  
   qual componentes vc esta usando? talvez possa ajuda-lo.
   
   

 Bom dia pessoal, estou com um problema na gravação dos meus registros.
 Utilizo D7 + IB 6.5.
 Se gravo um registro em uma máquina da rede, quando consulto em
outro terminal o registro não grava/Atualiza, somente depois de fechar
o sistema e abri-lo novamente.
 No final de cada execução de comando (dmBuscas.ibqTemp. ExecSQL;) eu
comito a transação(dmConecta. ibtTransaction. CommitRetaining; ).
 Alguém pode me ajudar?

   
 _ _ _ _ _ _
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
http://www.amigosdo messenger. com.br 
   http://www.amigosdomessenger.com.br
   
   
  
   [As partes desta mensagem que não continham texto foram removidas]
  
   



   

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



Re: [delphi-br] Nao coloca o zero

2008-08-06 Por tôpico Ricardo César Cardoso
Não sei como vc lê e armazena mas sugeriria que vc lesse o conteúdo deste 
arquivo para um objeto do tipo TStringList ( usando LoadFromFile ) e que o 
campo onde você irá armazenar esses nomes seja do tipo String. Aí fica fácil, 
fácil.

Atte,
Ricardo.

--- Em qua, 6/8/08, Felipe Milagres [EMAIL PROTECTED] escreveu:
De: Felipe Milagres [EMAIL PROTECTED]
Assunto: [delphi-br] Nao coloca o zero
Para: delphi-br@yahoogrupos.com.br
Data: Quarta-feira, 6 de Agosto de 2008, 10:06











bom dia a todos ..

 

to com o seguinte problema ..



eu tenho nome de arquivos em um TXT (os nomes são 8 numeros - Ex.:12345678) , 
acontece que tem nomes que começão com 0 (zero), e quando ele é importado para 
o banco de dados Access, o zero não é importado ..



eu sei que Zero a direita não tem valor ... porem por ser nomes de arquivos, 
esse zero tem valor



tipo, o nº 05 é igual á 5, mas o nome 05 é diferente de 5 ..



qual comando eu faço para fazer o 0(zero) ser importado ???

 

[]s

 

Felipe Milagres



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]



RE: [delphi-br] Nao coloca o zero

2008-08-06 Por tôpico Rubem Nascimento da Rocha

Vc apenas está mostrando o efeito causado durante a importação dos dados, mas 
não mostrou o código que vc escreveu pra que a gente possa analisar o que vc 
está errando! Assim, empiricamente, fica difícil de dizer o q está errado e, 
muito menos, dizer qual o 'comando' (ou 'comandos') que vc precisa usar!

Sds.



To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Wed, 6 Aug 2008 06:06:08 -0700
Subject: [delphi-br] Nao coloca o zero


bom dia a todos ..

to com o seguinte problema ..

eu tenho nome de arquivos em um TXT (os nomes são 8 numeros - Ex.:12345678), 
acontece que tem nomes que começão com 0 (zero), e quando ele é importado para 
o banco de dados Access, o zero não é importado ..

eu sei que Zero a direita não tem valor ... porem por ser nomes de arquivos, 
esse zero tem valor

tipo, o nº 05 é igual á 5, mas o nome 05 é diferente de 5 ..

qual comando eu faço para fazer o 0(zero) ser importado ???

[]s

Felipe Milagres


_
Receba GRÁTIS as mensagens do Messenger no seu celular quando você estiver 
offline. Conheça  o MSN Mobile!
http://mobile.live.com/signup/signup2.aspx?lc=pt-br

[delphi-br] Melhor forma de fazer controle de usuários

2008-08-06 Por tôpico Fabio Thomaz
Olá galera, até o presente momento sempre utilizei o UserControl para fazer
o controle de usuários dos meus sistemas, só que agora eu separei um
aplicativo meu em vários módulos, cara um com seu exe, e ai vem o problema,
o UserControl armazena as informações dos componentes que ele faz a proteção
dentro do form que tem o compomente principal de segurança, e como eu vou
ter várias janelas principais, cara uma para um aplicativo, não sei como
usar este compomente agora, gostaria de saber se alguém que o utiliza,
utiliza ele desta forma, ou então me sujerem um outro compomente que possa
dar conta do recado, não queria implementar manualmente o controle de acesso
do sistema, gosto muito do UserControl, mas agora bateu esta questão.

Se acaso alguém faça seu próprio controle e pudar dar uma dica da melhor
maneira de fazer isto tbm eu aceito, estou tentando analizar o que vai ficar
melhor para este sistema.

Desde já agradeço,

Fábio Thomaz
RG System Informática Ltda - Desenvolvimento


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



[delphi-br] Índices no ClientDataSet

2008-08-06 Por tôpico Paulo Pontes
Boa noite!

Preciso ordenar dois campos em um ClientDataSet, até aí bastante simples.

Porém um campo deve ficar em ordem crescente e o outro em ordem decrescente
para a emissão de um relatório.

É possível criar um índice desta forma?

Obrigado!


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



RE: [delphi-br] Dúvidas sobre PChar

2008-08-06 Por tôpico Francesco Perrotti
Agradeço ao Rubens e ao João Morais as explicações, realmente foram 
esclarecedoras.
As vezes fico em dúvida sobre o que o Delphi faz automaticamente e o que não 
faz.
No caso de C é mais simples, ele nunca faz nada, a gente tem que fazer tudo, 
aí não tem dúvida, só mais trabalho :-).
 
Fiz um programa de teste e aparentemente funcionou. Usei a seguinte função, que 
não é 
exatamente o que vou usar na DLL, mas serve como teste:
 
function GetStrTime: pchar;var St: string;begin  St := 'Hora: ' + 
TimeToStr(Now);  GetMem(Result, Length(St)+1);  StrCopy(Result, PChar(St));end;
E pra testar, coloquei um memo no form e o seguinte código em um botão:
 
procedure TForm1.Button1Click(Sender: TObject);var i: integer;p: 
PChar;begin  for i := 1 to 1000 do  beginp := GetStrTime;
Memo1.Lines.Add(String(P));FreeMem(p);  end;end;
 
Funcionou a contento, sem dar nenhuma exceção, então acho que o problema tá 
resolvido.
 
Obrigado pela ajuda.
 
Tchesco



To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Wed, 6 Aug 2008 13:17:00 
+Subject: RE: [delphi-br] Dúvidas sobre PChar




Particularmente, dependendo do parâmetro e/ou do tipo de retorno da função que 
estou escrevendo para uma DLL, uso ou ShortString ou WideString. Além de poder 
tratar strings como costumeiramente faria usando o tipo string, evita de ter 
que distribuir a BORLANDMM.DLL.Sds.To: [EMAIL 
PROTECTED]: [EMAIL PROTECTED]: Wed, 6 Aug 2008 08:20:16 -0300Subject: Re: 
[delphi-br] Dúvidas sobre PCharFrancesco Perrotti wrote: Oi pessoal, Tenho 
algumas dúvidas sobre o uso de PChar, agradeceria alguma ajuda. É o seguinte, 
fiz uma DLL com uma função que precisa retornar uma string, portanto tenho que 
usar um PChar já que provalvelmente a DLL será usada com linguagem C.Se você 
envia strings para a dll, você pode criar um tipo string e fazerum cast para 
pchar. Uma ansi string é compatível com pchar internamente. Só que ainda não 
consegui entender direito como o Delphi trata esse tipo. Por exemplo, se eu 
declarar em uma função: var p:pchar; o que exatamente o delphi cria? apenas 
um ponteiro para chars? ele já aloca memória para conter strings? se eu tiver 
que retornar um pchar por uma função, por exemplo:Nada de alocação, apenas um 
tipo ponteiro. function Hello: pchar; begin result := 'Hello'; end;'Hello' 
é uma literal que é alocada e liberada pelo compilador, e nestecaso específico 
você não terá problemas nem com memória corrompida nemcom vazamento. isso está 
correto? ou tenho que alocar memória para o pchar como eu teria que fazer em 
c?É como programar em C, exatamente. No caso acima você não precisa 
alocarporque a string é uma literal, mas nos demais casos você tem que cuidarse 
as rotinas que você está manipulando estão alocando memóriacorretamente. E se 
estão alocando, tenha em mente aonde e como elasserão desalocadas. nesse caso 
o delphi já coloca o terminador zero no final ou eu devo colocar 
explicitamente?Ansi strings são compatíveis com pchar, elas já possuem um #0 no 
final.Até isso o Delphi e o fpc faz por nós. E no lugar onde faço a chamada a 
essa função, depois eu tenho que liberar a memória? Por exemplo: var p: 
pchar; begin p := Hello; e agora? depois de usar a string em p o que eu 
devo fazer? liberar a memória? ou o delphi já faz isso? No help do delphi há 
exemplos usando arrays de char que depois são casteados para pchar,Usando um 
array de char (com um #0 no final) ou string, o compilador iráalocar e 
desalocar a memória por você, mas cuidado para não mandar umastring para outra 
rotina sendo que a string foi alocada localmente (talcomo uma variável local). 
Depois que a sua rotina terminar, babaustring. Exemplo, isto aqui 
funciona:varVStr: string;beginVStr := Copy(Alguem, AlgumaPos, 
AlgumTamanho);ChamaDll(PChar(VStr));end;A string é alocada por Copy, guardada 
em VStr, é passado para ChamaDllcomo um PChar, e depois que volta da rotina 
ChamaDll é que é desalocadapelo compilador. mas no meu caso eu não sei qual 
será o tamanho final da string, devo alocar um array dentro da função e 
liberar ele fora dela?Ou isso, ou usar ansi strings, ou usar StrAlloc, ou usar 
GetMem, ou usaralguma rotina que se preocupe com isto (exemplo strpcopy), etc. 
Elembrar de desalocar essa memória caso tenha sido alocada por você oupor 
alguma rotina que você chamou.Geralmente, ao programar com bibliotecas de link 
dinâmico, é comumutilizar ansi strings na aplicação e fazer um cast forçado na 
chamada àrotina. Todo o trabalho de alocação fica transparente pra você e 
vocêtem mais tempo para se preocupar com coisas mais importantes.Joao Morais
.  





_
Conheça o Windows Live Spaces, a rede de relacionamentos do Messenger!
http://www.amigosdomessenger.com.br/

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



Re: [delphi-br] SDK de impressoras de cheque IMPRECHEQ...

2008-08-06 Por tôpico JDorea
Onjahyr,

No site da Elgin tem sim, e bem fácil de encontrar.
Na página principal, nas opções de menu, AUTOMAÇÃO E AUTO-ATENDIMENTO;
Na página que se abre, tem 3 links pertinentes a desenvolvedores:
- ELGIN.DLL
- SOFTWARE HOUSES
- DOWNLOAD CENTER

Boa Sorte,

JDorea

  - Original Message - 
  From: Onjahyr - GMAIL 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, August 06, 2008 12:31 PM
  Subject: [delphi-br] SDK de impressoras de cheque IMPRECHEQ...


  E ae pessoal, me solicitaram para desenvolver um sistema para estas 
  impressoras de cheque, a que a loja tem é uma ELGIN IMPRECHEQ, não tenho 
  o modelo. Queria saber se a ELGIN disponibiliza o SDK ou é uma outra 
  como a Microsoft que não disponibiliza nada para programadores? Fui no 
  site da ELGIN mas não achei nada relacionado a SDK.

  Se alguém já usou e sabe onde pegar o SDK eu agradeço.

  Blz.


   

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



Re: [delphi-br] Dúvidas sobre PChar

2008-08-06 Por tôpico Joao Morais
Rubem Nascimento da Rocha wrote:
 Particularmente, dependendo do parâmetro e/ou do tipo de retorno da função 
 que estou escrevendo para uma DLL, uso ou ShortString ou WideString. Além de 
 poder tratar strings como costumeiramente faria usando o tipo string, evita 
 de ter que distribuir a BORLANDMM.DLL.

No entanto o truque da borlandmm.dll só serve para dlls escritas no 
próprio delphi e que tenham sido linkadas com a sharemem. Para usar uma 
api, por exemplo, tem que dançar conforme a música daquela api, e 
geralmente toca pchar.

Joao Morais


Re: RES: RES: [delphi-br] Problema numero maior que Int64

2008-08-06 Por tôpico Joao Morais
Ricardo Lino wrote:
 Você conhece alguma biblioteca com suporte para isso ou até mais tipo 128?

10 minutos pesquisando:
http://www.delphiforfun.org/Programs/Library/big_integers.htm

Não esquece do feedback.

 Compilador? Como assim? 

Além do Delphi, cujo inteiro máximo é de 64 bits. Acho que não fica 
viável pra você.

Joao Morais


Re: [delphi-br] Dúvidas sobre PChar

2008-08-06 Por tôpico Joao Morais
Francesco Perrotti wrote:
 Agradeço ao Rubens e ao João Morais as explicações, realmente foram 
 esclarecedoras.
 As vezes fico em dúvida sobre o que o Delphi faz automaticamente e o que não 
 faz.
 No caso de C é mais simples, ele nunca faz nada, a gente tem que fazer tudo, 
 aí não tem dúvida, só mais trabalho :-).

Se o tipo for string (ansi string), o Delphi faz tudo. Se não for, o 
Delphi faz nada.

 Fiz um programa de teste e aparentemente funcionou. Usei a seguinte função, 
 que não é 
 exatamente o que vou usar na DLL, mas serve como teste:
  
 function GetStrTime: pchar;var St: string;begin  St := 'Hora: ' + 
 TimeToStr(Now);  GetMem(Result, Length(St)+1);  StrCopy(Result, 
 PChar(St));end;
 E pra testar, coloquei um memo no form e o seguinte código em um botão:
  
 procedure TForm1.Button1Click(Sender: TObject);var i: integer;p: 
 PChar;begin  for i := 1 to 1000 do  beginp := GetStrTime;
 Memo1.Lines.Add(String(P));FreeMem(p);  end;end;
  
 Funcionou a contento, sem dar nenhuma exceção, então acho que o problema tá 
 resolvido.

Instala o FastMM no seu projeto e liga FullDebugMode. Ele é bem melhor 
que o gerenciador de memória do Delphi (até o 2005) pra pegar corrupção 
de memória, sem falar que vai te avisar de vazamentos.

Joao Morais



[delphi-br] trabalhar com data inicial e data final.

2008-08-06 Por tôpico firefoxlanhousejundiai
Estou com um problemao, eu quero fazer uma consulta do contrato pela 
Data REajuste Contrato. 
Tipo quero do dia 18/04/2007 ate o 19/07/2007.
Nao estou conseguindo. ta muito complicado.

por ultimo estou tentando este codigo:

procedure Tfcliente.SpeedButton6Click(Sender: TObject);
var
resp:string;
begin
fdm.Query1.SQL.Add('select * from dbcliente');
  st:='';
 IF fdm.query1['DataReajusteContrato'] null then
st := fdm.query1['DataReajusteContrato'];

   if inputquery('Filtrar DataReajuste','Entre com a data, ou T 
para todos em ordem alfabética:',st) then begin

  with fdm.query1 do begin
   close;
  sql.clear;
  if uppercase(st)='T' then
  sql.add ('select * from tbcliente order by 
DataReajusteContrato')
  else
   fdm.tbcliente.Filtered:=False;
   Edit1.Text:=ST;
   ShowMessage(edit1.Text);
   fdm.tbcliente.Filter := 'DataReajusteContrato ='+ 
QuotedStr(FormatDateTime('dd/mm/',StrToDate(Edit1.Text))) + 'and 
DataReajusteContrato ='+QuotedStr(FormatDateTime
('dd/mm/',StrToDate(edit3.Text)));
   resp:=fdm.tbcliente.FieldByName
('DataReajusteContrato').Text;
   sql.add ('select * from tbcliente where 
DataReajusteContrato =' + QuotedStr(resp));
open;
 end;

  tipo := 'DataReajusteContrato';
  THackDBGrid(DBGrid1).FixedCols := 9;
end;
   formatarsqlexecute(self);

end.



Re: [delphi-br] remote debugger

2008-08-06 Por tôpico Alexandre Rodrigues
Eu já vi uma matéria, (ou fazia parte de uma matéria) na revista clube 
delphi. Só não me lembro qual edição? Adriano tu pode ajudar?

felipe govoni escreveu:
 
 
 bom dia
 
 alguem ja utilizou o remote debbuger?
 instalei ele para o delphi 2007 mas ele nao tem
 nenhuma documentação e na internet não achei
 nada satisfatório.
 
 alguem pode me ajudar ou me dizer onde conseguir ajuda?
 
 -- 
 Felipe Govoni
 -
 Programador
 Fone 8472-8718
 
 [As partes desta mensagem que não continham texto foram removidas]
 
 


___ 
Yahoo! Mail - Sempre a melhor opção para você! 
Experimente já e veja as novidades. 
http://br.yahoo.com/mailbeta/tudonovo/
 



[delphi-br] Nao coloca o zero

2008-08-06 Por tôpico Felipe Milagres
ai galera, to respondendo agora pq tava na aula ..
 
abaixo o meu codigo ..
 
procedure TFrmCriarBase.btnBaseClick(Sender: TObject);
var
    x: integer;
    bloco1, caminho, base, comando: string;

begin
// no codigo eu defino meu banco de dados, que no caso é em Access
 
// defino o diretório onde ele ficará
 
  caminho := 'K:\Dm\TXT2MDB\MDB\tabela.mdb';
 
// crio a tabela de nome arquivo contendo nomes de ate 8 caracteres
 
  if FrmCriarTabelas.CloseQuery then
   begin
 
// nao sei se essa parte ajudaria, mas quando eu tiro ela, da erro, falando que 
ele ja existe, (pq no meu outro codigo (que nao tem problema nenhum) eu tb crio 
o arquivo MDB, para que este codigo possa compilar)
 
   if FileExists('K:\Dm\TXT2MDB\MDB\tabela.mdb') then
    DeleteFile('K:\Dm\TXT2MDB\MDB\tabela.mdb');
 
 
  if FileExists('K:\Dm\TXT2MDB\MDB\tabela.mdb')
    then
  if comando = 'CREATE TABLE ARQUIVO (ARQ_NOME TEXT(8))'
   then
  ShowMessage('Tabela já existe')
   else
 begin
 
// aki é no caso de ela nao existir, eu crio o arquivo Access e a tabela ARQUIVO

   { definindo a base de dados }
    base := 'Provider=Microsoft.Jet.OLEDB.4.0' + ';Data Source=' + 
caminho + ';Persist Security Info=False';
   ADOConnection1.ConnectionString := base;
 
   { Criando a tabela }
   { Arquivos }
    comando := 'CREATE TABLE ARQUIVO (ARQ_NOME TEXT(8))';
   ADOCommand1.CommandText := comando;
   ADOCommand1.Execute;
   ADOCommand1.Cancel;
 
// aki é onde importa do TXT que está os nomes para o Memo1

Memo1.Lines.LoadFromFile('K:\Dm\TXT2MDB\Lista\lista.txt');
 
// aki, ele conta la as linha e fica repetindo até nao existir mais coisas 
escrita (esse codigo peguei da net)
 
for x:=0 to Memo1.Lines.Count - 1 do
    begin
 
// a variavel bloco1 recebe os primeiros 8 caracteres de cada linha

    bloco1:=copy(Memo1.Lines.Strings[x],1,8);
 
// nesse ShowMessage ele mostra na tela o nome e nele tem o Zero na frente

    ShowMessage(bloco1);
 
// aki é que é feita o INSERT do conteudo que está dentro da variavel bloco1 
para a tabela ARQUIVO
 
    comando := 'INSERT INTO ARQUIVO(ARQ_NOME) VALUES(' + bloco1 + ')';
    ADOCommand2.CommandText := comando;
    ADOCommand2.Execute;

close;

end;
end;
end;
end;
end.
 
 
[]'s a todos,
 
Felipe Milagres
 
 


  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] Vaga Desenvolvedor Delphi .NET

2008-08-06 Por tôpico Bruno Lichot
Galera,

 

Mais uma vaga:

 

Conhecimento em .NET (pode ser C#)



Conhecimento em OOP



UML



Banco de dados (Oracle de preferência)

 

Email para [EMAIL PROTECTED]

 

Abraços,

 

Bruno

 



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



Re: [delphi-br] Índices no ClientDataSet

2008-08-06 Por tôpico Vanius Roberto Bittencourt
Deve ser criado um índice, procura por clientdataset.AddIndex...

2008/8/6 Paulo Pontes [EMAIL PROTECTED]

 Boa noite!

 Preciso ordenar dois campos em um ClientDataSet, até aí bastante simples.

 Porém um campo deve ficar em ordem crescente e o outro em ordem decrescente
 para a emissão de um relatório.

 É possível criar um índice desta forma?

 Obrigado!


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


 

 --
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 






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



Re: [delphi-br] Executar programa em linha de comando

2008-08-06 Por tôpico Vanius Roberto Bittencourt
Para aguardar a execução Dá uma olhada nos componentes Jedi, tem uma unit q
tem uma função ExecAndWait.
Acredito que ela não faz a aplicação sumir, mas se aplicação é console
então pode usar outra função.

2008/8/1 jandersonc [EMAIL PROTECTED]

 Boa tarde!

 Pessoal, estou com uma necessidade e acredito que poderam me ajudar.
 Preciso executar um programa em linha de comando, porém preciso que:
 O meu projeto delphi aguarde a execução acabar e enquanto isso o
 resultado da execução seja jogado para dentro de um memo;
 E preciso também que a execução não seja mostrada, preciso que a
 excução fique oculta.


 Atenciosamente, Janderson Cardoso.


 

 --
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 






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



Re: [delphi-br] Índices no ClientDataSet

2008-08-06 Por tôpico Paulo Pontes
ok!

O problema é que não consegui encontrar ainda uma forma de criar um índice
composto... com um campo em ordem crescente e outro em ordem decrescente...

Obrigado!

2008/8/6 Vanius Roberto Bittencourt [EMAIL PROTECTED]

   Deve ser criado um índice, procura por clientdataset.AddIndex...

 2008/8/6 Paulo Pontes [EMAIL PROTECTED] pontespaulo%40gmail.com


  Boa noite!
 
  Preciso ordenar dois campos em um ClientDataSet, até aí bastante simples.
 
  Porém um campo deve ficar em ordem crescente e o outro em ordem
 decrescente
  para a emissão de um relatório.
 
  É possível criar um índice desta forma?
 
  Obrigado!
 
 
  [As partes desta mensagem que não continham texto foram removidas]
 
 
  
 
  --
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 
 
 
 
 

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

  



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