[delphi-br] Diminuir tamanho de imagem para colocar em richedit

2008-03-28 Por tôpico Walter Maldonado Junior
Pessoal, eu estou fazendo um relatório em richedit e nele eu coloca algumas
imagens em bitmap. O problema é que o relatório está ficando muito pesado,
passando dos 10 megas... Eu precisava dar um jeito de diminuir o tamanho em
KB das imagens. Alguém tem alguma dica pra me dar de como eu faço isso??

 

Muito obrigado

Um grande abraço

Walter”



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



Re: [delphi-br] DELPHI 7 NO VISTA

2008-03-28 Por tôpico Jose Eduardo Victorino
Amigos o Everest, programa realiza um check-up nos drivers e com ele analiza o 
chipset dos drivers, com isto vc ira achar todos os drivers, tenho um notebook 
compaq e a HP so tem drivers para o Vista, achei todos com o Everest..
  Ok,
  

Sergio Eurico [EMAIL PROTECTED] escreveu:
  Hm.. meu notebook, Sony Vaio, veio com o Windows XP Media Center 
Edition
version 2002 em ingles.
Resolvi instalar uma cópia do Windows XP Professionalem Portugues...
resultado... Alguns drivers sao incompativeis!!
Tive que voltar a escovar bits para fazer tudo (inclusive a webcam
integrada) funcionar.
Drivers no site da Sony apenas para o MCE e pro Vista..
O resultado desta palhaçada dupla (sony e ms) é que meu próximo notebook
será um MAC!

É bem verdade que o que me prende ao windows ainda é o Delphi, mas quem sabe
uma versao do Delphi para o Mac em breve hein CodeGear Guys? ( Andreano e
Bruno, eis uma sugestao ).

Em 27/03/08, Andrei Luís [EMAIL PROTECTED] escreveu:

 Berdamzinho,

 Quem tem que se mexer são os fabricantes de hardware, e não a
 Microsoft. São eles que desenvolvem, ou mandam desenvolver os drivers
 para os seus equipamentos. E como o mercado está se encaminhando para
 o Vista, quer a gente goste ou não, tu acha que eles vão ficar
 gastando $$$ desenvolvendo drivers para Vista e para XP??? Eu tenho um
 cliente que comprou um notebook Toshiba que veio com o Vista. Nao
 gostou, tá pesado coisa e tal, me pediu pra colocar o XP, fui atras
 dos drivers e adivinhe: só para o Vista.

 Infelizmente logo não teremos opção.

 []
 Andrei

 Em 28/03/08, berdam[EMAIL PROTECTED] berdamzinho%40yahoo.com.br
 escreveu:

  isso que eu não entendo na Microsoft. Nada contra as boas
  funcionalidades do Windows. Mas tipo, compro um notebook novo com Vista,
  se eu quiser voltar pro XP não existem drivers para os dispositivos de
  hardware, impedindo de usar o sistema por completo. Conclusão, tenho que
  usar um sistema lerdo, que não gosto. A mesma coisa acontece com o msn,
  dias atrás instalei a versão 7.5 por achar melhor. Resultado, tenho que
  instalar milhares de patchs, service packs e não sei mais oque ,
  resultando isso em vários megas de espaço, somente para que assim eu
  possa ter um simples bate papo.
 
 
 
  Andrei Luís escreveu:
 
  
   Também tive experiência parecida com um notebook novo que adquiri.
   Muito lerdo.
  
   E o pior é que logo logo o XP sai de linha e aí babaus, só o Vista.
  
   []
   Andrei
  


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



   



   
-
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! 

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



[delphi-br] Res:SOAP com SSL

2008-03-28 Por tôpico Josir Gomes
Olá Ricardo,
 
vc pode utilizar os componentes normais SOAP do Delphi 7 em diante 
(HTTPRIO) que ele funciona perfeitamente com SSL.
Eu utilizo sem problemas.

Boa Sorte,
Josir Gomes


-
Fala galera!!
Alguém já conseguiu consumir um Webserver com SSL?
Quais seriam os componentes que eu posso estar fazendo isso?
Alguém tem algum exemplo?

[]s


Re: [delphi-br] Diminuir tamanho de imagem para colocar em richedit

2008-03-28 Por tôpico Ricardo César Cardoso
Converter as imagens para Jpeg não seria uma solução? Algo como ao selecionar a 
imagem, vc verificar o formato e se for o caso converter para jpeg ou png que 
são mais leves.

Daria um certo trabalho, mas pode ser uma solução...

Atte,
Ricardo.

Walter Maldonado Junior [EMAIL PROTECTED] escreveu:   
  Pessoal, eu estou fazendo um relatório em richedit e nele eu coloca algumas
 imagens em bitmap. O problema é que o relatório está ficando muito pesado,
 passando dos 10 megas... Eu precisava dar um jeito de diminuir o tamanho em
 KB das imagens. Alguém tem alguma dica pra me dar de como eu faço isso??
 
 Muito obrigado
 
 Um grande abraço
 
 Walter”
 
 [As partes desta mensagem que não continham texto foram removidas]
 
 
 
 _



   
-
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! 

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



Re: [delphi-br] Res:SOAP com SSL

2008-03-28 Por tôpico Ricardo Kenji
Fala Josir!

Obrigado pela luz que vc me deu, eu já consigo consumir um webservice com o 
HTTPRIO mas eu não achei como eu posso fazê-lo com SSL...
Você tem alguma dica pra me dar? Qual seria os procedimentos?

[]s
  - Original Message - 
  From: Josir Gomes 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, March 28, 2008 7:10 AM
  Subject: [delphi-br] Res:SOAP com SSL


  Olá Ricardo,

  vc pode utilizar os componentes normais SOAP do Delphi 7 em diante 
  (HTTPRIO) que ele funciona perfeitamente com SSL.
  Eu utilizo sem problemas.

  Boa Sorte,
  Josir Gomes

  -
  Fala galera!!
  Alguém já conseguiu consumir um Webserver com SSL?
  Quais seriam os componentes que eu posso estar fazendo isso?
  Alguém tem algum exemplo?

  []s


   

  __ Informação do NOD32 IMON 2981 (20080328) __

  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]



[delphi-br] Datamodules

2008-03-28 Por tôpico Sérgio T . Uetanabaro
Olá lista,
 
Sou programador delphi desde a versão 2 e uma das coisa que eu usava muito
era o tal dos datamodules. Utilizava tanto para datasets como também para
armazenar resources compartilhados como imagelists, skins e outras coisas.
Mas da versão 5 para cá a coisa foi ficando preta. No delphi 7 eu tinha
sempre q ter o datamodule aberto na IDE para usar em designtime os
componentes contidos nele. Isso era um saco pois toda vez eu tinha q abrir o
datamodule para trabalhar com seus recursos. Outro ponto que também era
massante é qdo usado em algum gerenciador de versão, a cada checkout
tinhamos que fechar o projeto e abrir novamente pois o READONLY não era
mudado pq o delphi deixa uma instancia dele em memória readonly. Agora no
delphi 2007 existe um bug ainda mais chato e que decidi banir o uso de
datamodules de minhas aplicações pois não acredito que esse problema será
sanado pois vem desde a versão 7, persiste na versão 2007 e tem alguns
relatos no code-central mas parece que o pessoal não consegue reproduzir.
Tem um report meu lá (59001) com um exemplo e passo a passo mas ainda nada.
O problema consiste que na versão 2007 nem abrindo o datamodule resolve o
problema. Resolve sim de imediato mas depois de um certo tempo de
desenvolvimento a IDE fica maluca e vc tem que alternar entre visualizar o
código e o form do datamodule para as coisas normalizarem. Fica ai a dica
sobre o não uso pois vc com certeza ficará nervoso com os procedimentos para
poder contornar o problema dos links internos do delphi. Quem tiver
alternativas, dicas ou até mesmo uma solução para este problema é muito bem
vindo pois não queria ter q colocar em todos os formulários os imagelists e
outros componentes aumentando assim o tamanho do exe.
 
 
Sergio Uetanabaro

No virus found in this outgoing message.
Checked by AVG. 
Version: 7.5.519 / Virus Database: 269.22.1/1347 - Release Date: 27/03/2008
19:15
 


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



Re: [delphi-br] Erro

2008-03-28 Por tôpico Walter Chagas Junior (BOL)
Não só não é elegante como é totalmente inconveniente visto que o Halt 
derruba seu sistema largando pra trás Querys, CDS, StringLists etc tudo 
aberto...

E daí pra frente todo mundo sabe o que acontece né.

[]s
 
 
 
Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
[EMAIL PROTECTED]
http://www.geocities.com/SiliconValley/Bay/1058
MSN: [EMAIL PROTECTED]
SKYPE: WalterChagasJr

-- Início da mensagem original ---

  De: delphi-br@yahoogrupos.com.br
Para: delphi-br@yahoogrupos.com.br
  Cc: 
Data: Thu, 27 Mar 2008 13:33:12 -0300
 Assunto: Re: [delphi-br] Erro

 // finaliza com 
 Halt;  // termina abruptamente ... não é muito elegante !!! mais só para ver 
 se aparece algum erro !
 // e veja o que acontece
 
 
 From: Filippe Maymone - INFO 
 Sent: Thursday, March 27, 2008 11:16 AM
 To: [EMAIL PROTECTED] ; delphi-br@yahoogrupos.com.br 
 Subject: [delphi-br] Erro
 
 
 Galera, 
 
 Estou com um problema no meu formulario.
 Quando fecho o formulario da um Application error, com a seguinte mensagem:
 
 Exception EInvalidPointer in module SendMail.Exe at 3AA5.
 Invalid pointer Operation.
 
 Tirei todas as rotinas que tenho no Form.Close, FormCloseQuery .. para ver se 
 tinha algum problema . mais mesmo assim continua .. 
 
 Alguem sabe o que pdoe ser ?? 
 
 Abraços
 
 Filippe Maymone
 
 [As partes desta mensagem que não continham texto foram removidas]
 
 
 
  
 
 [As partes desta mensagem que não continham texto foram removidas]
 
 



Re: [delphi-br] Delphi não roda 64 bit é Nati Morto?

2008-03-28 Por tôpico Walter Chagas Junior (BOL)
Os processadores de tecnologia EM64T utilizam a arquietura IA-64 que é de
64bits  e não mais a x86. Foi uma saída para este problema que
inicialmente tentaram com a estória do Dual Core (Dois processadores de 32
bits juntos correponderiam a 64 bits). Mas de tudo que já li a respeito
disto, ainda há muitas incertezas pois eles afirmam que a IA-64 vai ter a
x86 incorporada. Ou seja, qualquer programa feito até pra rodar em um XT
rodaria tranquilamente na IA-64. Mas e aí? Será que isso não prejudicaria a
performance de um processador que queira usar instruções nativas de
64bits???



http://www.inf.ufrgs.br/procpar/disc/inf1191/trabs/992/IA64/ia64.html





E tem outro agravante: Enquanto a Intel foi por este caminho (Da IA-64) a
AMD adequou a x86 aos 64bits, ou seja, já temos dois processadores de
ponta no mercado que começam a usar arquiteturas diferentes, e pior aínda,
ambas muito mais com cheiro de paleativo do que de solução abrindo
precedentes para aquela listinha básica de incompatibilidades e bugs em
projetos de softwares.



Veja os artigos abaixo



http://www.clubedohardware.com.br/artigos/375



http://www.clubedohardware.com.br/artigos/1143



http://www.clubedohardware.com.br/artigos/376



http://www.forumpcs.com.br/coluna.php?b=108668



http://www.inf.ufg.br/~rodrigo/arq/



http://www.babooforum.com.br/forum/index.php?showtopic=517031





[]s







Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
[EMAIL PROTECTED]
http://www.geocities.com/SiliconValley/Bay/1058
MSN: [EMAIL PROTECTED]
SKYPE: WalterChagasJr





- Original Message - 
From: [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, March 26, 2008 2:01 PM
Subject: Re: [delphi-br] Delphi não roda 64 bit é Nati Morto?


heim ??? Num to entendendo Walter..
Então pq meu P4-HT 630 (presHOT, ops prescott) é 64bits ???
Pq temos windows (xp, vista) tbm em 64bits ???
Agora se me confundiu.


Luiz Escobar - Analista/Desenvolvedor:
WEB - HTML/JavaScript/PHP/MySQL
WINDOWS - Delphi/ASSEMBLY/MySQL/xBase
SERVIDORES - CNA IntraNetWare4.11, LINUX-(RedHat9/Suse10.2), Windows 2K/XP
HARBOUR 
Borland C++ 5.5.1 (32 bit)
Harbour Devel build 1.1-1 Intl.
xHarbour Compile build 1.1.0 (Simplex)
Harbour MiniGUI 1.5 Extended Edition (Build 50) - 2008.03.24
-




From: Walter Chagas Jr (BOL)
Sent: Tuesday, March 25, 2008 11:50 PM
To: Grupo Delphi-BR
Subject: Re: [delphi-br] Delphi não roda 64 bit é Nati Morto?


Bom dia Amigo,

Desconheço completamente a fonte ou a origem que lhe passou este factóide,
mas posso assegurar-lhe que é totalmente infundamentado. A tecnologia 64
bits, é uma tecnologia ainda que está por vir, mas antes dela emplacar,
talvez você até venha a ser avô uma vez que a Intel, a uns tempos atrás, se
deparou com uma puta duma batata quente em suas mãos e que deve tar torrando
uma grana e tanto pra tentar resolver. E Rápido. A arquitetura x86 não
suporta processamentos em 64bits. O limite dela era os 32 tal como muitos
outros limites tiveram aí pra trás, como limite de memória Ram, limite de
barramento, FAT, HD, etc.. O grande problema que ocasionou este embroglio,
foi essa mania estúpida de manter compatibilidade com os processadores
antigos, desde o XT que ainda era 4 ou 8 bits, sei lá. Por manter instruções
nativas destas plataformas cretáceas, hoje a coisa empacou nos 32 e vai ser
complicado sair dela e ainda assim manter compatibilidade com aplicações
não-64bits. Enquanto a Risk já começa a se aventurar nos 128, a x86 atolou
:)

Portanto amigos, ninguem precisa sair correndo por aí pra migrar ou mesmo
portar projetos atuais pros 64bits a menos que você venha a desenvolver
aplicações que rodem em processadores Alpha. Aí sim, são outros 500..

64bits ainda vai levar um tempo pra ser uma realidade e mesmo que chegue,
todo mundo aqui sabe que o mercado não absorve isto da noite para o dia...

[]s

Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
[EMAIL PROTECTED]
http://www.geocities.com/SiliconValley/Bay/1058
MSN: [EMAIL PROTECTED]
SKYPE: WalterChagasJr

- Original Message - 
From: walthersonbrunno [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, March 20, 2008 2:13 PM
Subject: [delphi-br] Delphi não roda 64 bit é Nati Morto?

Verdade que tenologia que não funciona em 64bites é natimorto?
Se for o Delphi fabricante da IDE delphi não deveria se peucupar?

Pq já tem até o delphi.net que roda em 64 bites.. esse cara foi esperto
em dar esse nome para ele.

Obrigado.

__ Informação do ESET NOD32 Antivirus, versão da vacina 2965
(20080320) __

A mensagem foi verificada pelo ESET NOD32 Antivirus.

http://www.eset.com





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




__ Informação do ESET NOD32 Antivirus, versão da vacina 2976
(20080326) __

A mensagem 

Re: [delphi-br] DELPHI 7 NO VISTA

2008-03-28 Por tôpico Walter Chagas Junior (BOL)
Andrei,

Se o Kylix que era o Delphi para Linux, e todo mundo sabe aqui que o Linux hoje 
é muito mais uma religião do que um mero sistema operacional, abendou por pouca 
procura, o que me dizer então de um Delphi para MAC



[]s



Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
[EMAIL PROTECTED]
http://www.geocities.com/SiliconValley/Bay/1058
http://www.delphiatcorporerm.blogspot.com/
MSN: [EMAIL PROTECTED]
SKYPE: WalterChagasJr



-- Início da mensagem original ---

  De: delphi-br@yahoogrupos.com.br
Para: delphi-br@yahoogrupos.com.br
  Cc: 
Data: Thu, 27 Mar 2008 13:38:04 -0300
 Assunto: Re: [delphi-br] DELPHI 7 NO VISTA

 hehehehe, sonhar não custa nada.
 
 []
 Andrei
 
   É bem verdade que o que me prende ao windows ainda é o Delphi, mas quem 
  sabe
   uma versao do Delphi para o Mac em breve hein CodeGear Guys? ( Andreano e
   Bruno, eis uma sugestao ).
 
 
   Em 27/03/08, Andrei Luís [EMAIL PROTECTED] escreveu:
 
  
  Berdamzinho,
   
Quem tem que se mexer são os fabricantes de hardware, e não a
Microsoft. São eles que desenvolvem, ou mandam desenvolver os drivers
para os seus equipamentos. E como o mercado está se encaminhando para
o Vista, quer a gente goste ou não, tu acha que eles vão ficar
gastando $$$ desenvolvendo drivers para Vista e para XP??? Eu tenho um
cliente que comprou um notebook Toshiba que veio com o Vista. Nao
gostou, tá pesado coisa e tal, me pediu pra colocar o XP, fui atras
dos drivers e adivinhe: só para o Vista.
   
Infelizmente logo não teremos opção.
   
[]
Andrei
   
 
   Em 28/03/08, berdam[EMAIL PROTECTED] berdamzinho%40yahoo.com.br
 
   escreveu:
   
 isso que eu não entendo na Microsoft. Nada contra as boas
 funcionalidades do Windows. Mas tipo, compro um notebook novo com 
  Vista,
 se eu quiser voltar pro XP não existem drivers para os dispositivos de
 hardware, impedindo de usar o sistema por completo. Conclusão, tenho 
  que
 usar um sistema lerdo, que não gosto. A mesma coisa acontece com o msn,
 dias atrás instalei a versão 7.5 por achar melhor. Resultado, tenho que
 instalar milhares de patchs, service packs e não sei mais oque ,
 resultando isso em vários megas de espaço, somente para que assim eu
 possa ter um simples bate papo.



 Andrei Luís escreveu:

 
  Também tive experiência parecida com um notebook novo que adquiri.
  Muito lerdo.
 
  E o pior é que logo logo o XP sai de linha e aí babaus, só o Vista.
 
  []
  Andrei
 



Re: [delphi-br] Res:SOAP com SSL

2008-03-28 Por tôpico Itamar Souza
Usando o HTTPRIO você tera que usar o WSDLImporter para importar as interfaces 
que se encontra no servidor web e implementam as funcionalidades do webservice 
a serem consumidas pelo projeto cliente.
   
  Você pode usar uma solução baseada em conectividade por intermédio dos 
agentes Cliente SOAP e Servidor SOAP, disponibilizados por um Webservice 
fazendo o acesso direto ao banco com a conexão SOAP.
  Basta colocar um datamodulo e um componenente SoapConn e pega o endereço que 
esta no webservice e copia a linha URL do texto XML e conectar.
   
  O resto e igual, coloca os clientDataset e fazer a conexão se você tiver 
usando multicamadas o RemoteServer será o SoapConn e o ProviderName será o 
ClientDataset do seu servidor de conexão, neste caso “executar o Fetch Params e 
AddAllFields”
   
  Veja se isso pode lhe ajuda!!
   

   
-
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! 

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



RE: [delphi-br] DELPHI 7 NO VISTA

2008-03-28 Por tôpico Bruno Lichot
Pessoal,

 

Sobre o futuro e afins... olhem o Road Map 
(http://dn.codegear.com/article/36620), e como diz meu amigo Andreano... enjoy 
it.

 

Abs

 

BL

 

From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On Behalf Of 
Walter Chagas Junior (BOL)
Sent: sexta-feira, 28 de março de 2008 09:57
To: delphi-br
Subject: Re: [delphi-br] DELPHI 7 NO VISTA

 

Andrei,

Se o Kylix que era o Delphi para Linux, e todo mundo sabe aqui que o Linux hoje 
é muito mais uma religião do que um mero sistema operacional, abendou por pouca 
procura, o que me dizer então de um Delphi para MAC

[]s

Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
[EMAIL PROTECTED] mailto:wchagasj%40bol.com.br 
http://www.geocities.com/SiliconValley/Bay/1058
http://www.delphiatcorporerm.blogspot.com/
MSN: [EMAIL PROTECTED] mailto:whitesockets%40hotmail.com 
SKYPE: WalterChagasJr

-- Início da mensagem original ---

De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br 
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br 
Cc: 
Data: Thu, 27 Mar 2008 13:38:04 -0300
Assunto: Re: [delphi-br] DELPHI 7 NO VISTA

 hehehehe, sonhar não custa nada.
 
 []
 Andrei
 
  É bem verdade que o que me prende ao windows ainda é o Delphi, mas quem sabe
  uma versao do Delphi para o Mac em breve hein CodeGear Guys? ( Andreano e
  Bruno, eis uma sugestao ).
 
 
  Em 27/03/08, Andrei Luís [EMAIL PROTECTED] 
  mailto:compuvale.software%40gmail.com  escreveu:
 
  
   Berdamzinho,
  
   Quem tem que se mexer são os fabricantes de hardware, e não a
   Microsoft. São eles que desenvolvem, ou mandam desenvolver os drivers
   para os seus equipamentos. E como o mercado está se encaminhando para
   o Vista, quer a gente goste ou não, tu acha que eles vão ficar
   gastando $$$ desenvolvendo drivers para Vista e para XP??? Eu tenho um
   cliente que comprou um notebook Toshiba que veio com o Vista. Nao
   gostou, tá pesado coisa e tal, me pediu pra colocar o XP, fui atras
   dos drivers e adivinhe: só para o Vista.
  
   Infelizmente logo não teremos opção.
  
   []
   Andrei
  
 
   Em 28/03/08, berdam[EMAIL PROTECTED] mailto:berdamzinho%40yahoo.com.br 
berdamzinho%40yahoo.com.br
 
   escreveu:
  
isso que eu não entendo na Microsoft. Nada contra as boas
funcionalidades do Windows. Mas tipo, compro um notebook novo com Vista,
se eu quiser voltar pro XP não existem drivers para os dispositivos de
hardware, impedindo de usar o sistema por completo. Conclusão, tenho que
usar um sistema lerdo, que não gosto. A mesma coisa acontece com o msn,
dias atrás instalei a versão 7.5 por achar melhor. Resultado, tenho que
instalar milhares de patchs, service packs e não sei mais oque ,
resultando isso em vários megas de espaço, somente para que assim eu
possa ter um simples bate papo.
   
   
   
Andrei Luís escreveu:
   

 Também tive experiência parecida com um notebook novo que adquiri.
 Muito lerdo.

 E o pior é que logo logo o XP sai de linha e aí babaus, só o Vista.

 []
 Andrei
 

 



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



[delphi-br] Organizar arquivos

2008-03-28 Por tôpico Edmilson Pontes
Colegas,
Então não tem como configurar para que cada tipo de arquivo fique numa
pasta?

Edmilson Pontes


Em 27/03/08, Joao Morais [EMAIL PROTECTED] escreveu:

   Jackson Gomes - ToolsComps wrote:
  Outros .PAS e demais arquivos podem ficar em diretórios diferentes, mas
 tem que
  estar no search path do projeto ou no global.

 Apenas se os arquivos não fazem parte do projeto.

 --
 Joao Morais

  



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



RES: [delphi-br] Diminuir tamanho de imagem para colocar em richedit

2008-03-28 Por tôpico Walter Maldonado Junior
Eu já tentei, mas quando eu converto e adiciono no richedit elas ficam com o
mesmo tamanho do bmp. Talvez eu esteja fazendo errado Tb...

 

Como eu faço isso? Existe algum outro meio?

 

Muito obrigado

Um grande abraço

Walter”

 

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Ricardo César Cardoso
Enviada em: sexta-feira, 28 de março de 2008 07:47
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Diminuir tamanho de imagem para colocar em richedit

 

Converter as imagens para Jpeg não seria uma solução? Algo como ao
selecionar a imagem, vc verificar o formato e se for o caso converter para
jpeg ou png que são mais leves.

Daria um certo trabalho, mas pode ser uma solução...

Atte,
Ricardo.

Walter Maldonado Junior [EMAIL PROTECTED]
mailto:wart_jr%40yahoo.com.br  escreveu: Pessoal, eu estou fazendo um
relatório em richedit e nele eu coloca algumas
imagens em bitmap. O problema é que o relatório está ficando muito pesado,
passando dos 10 megas... Eu precisava dar um jeito de diminuir o tamanho em
KB das imagens. Alguém tem alguma dica pra me dar de como eu faço isso??

Muito obrigado

Um grande abraço

Walter”

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



_

-
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento! 

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

 



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



[delphi-br] Re: Problema com Currency

2008-03-28 Por tôpico galvao_em
Funcionou blz
brigado

--- Em delphi-br@yahoogrupos.com.br, Rubem Nascimento da Rocha
[EMAIL PROTECTED] escreveu

 
 Tente isto então. Defina a propriedade currency para false e use a
seguinte máscara no DisplayFormat:
 
 R$#,##0.00
 
 Sds.
 
 
 
 
 
 
 To: delphi-br@yahoogrupos.com.br
 From: [EMAIL PROTECTED]
 Date: Tue, 25 Mar 2008 10:50:00 +
 Subject: [delphi-br] Re: Problema com Currency
 
 
 
 
 
 
 
 Não adiantou, eu uso a propriedade Currency como true e colocando esta
 mascara ela perdeu a mascara R$. ao invés de R$ ,75 ficou só ,75
 
 Att
 
 --- Em delphi-br@yahoogrupos.com.br, Rubem Nascimento da Rocha
  escreveu
 
 
  No objeto TField deste campo currency (suponho que seja um objeto do
 tipo TCurrencyField), defina a máscara na propriedade DisplayFormat
 com o valor '#,##0.00'. Sds.
 
 
  
 
  To: delphi-br@yahoogrupos.com.br
  From: galvao_em@
  Date: Mon, 24 Mar 2008 19:27:42 +
  Subject: [delphi-br] Problema com Currency
 
 
 
 
 
 
 
  Olá, uso o delphi 2007 e estou com problema em campoas currency,
  quando o valor é menor que R$ 1,00 aparece R$ ,75 por exemplo, como
  faço para aparecer R$ 0,75?
  desde já agradeço a ajuda, uso D2007+FB 2.0
 
  Att.
 
  Rodrigo
 
 
 
 
 
 
 
 
 
  __
  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
 
 
 
 
 
 
 
 
 
 
 _
 Confira vídeos com notícias do NY Times, gols direto do Lance,
videocassetadas e muito mais no MSN Video!
 http://video.msn.com/?mkt=pt-br





RE: [delphi-br] Organizar arquivos

2008-03-28 Por tôpico Rubem Nascimento da Rocha

Não.
Sds.





To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Fri, 28 Mar 2008 13:03:24 -0300
Subject: [delphi-br] Organizar arquivos







Colegas,
Então não tem como configurar para que cada tipo de arquivo fique numa
pasta?

Edmilson Pontes

Em 27/03/08, Joao Morais [EMAIL PROTECTED] escreveu:

 Jackson Gomes - ToolsComps wrote:
 Outros .PAS e demais arquivos podem ficar em diretórios diferentes, mas
 tem que
 estar no search path do projeto ou no global.

 Apenas se os arquivos não fazem parte do projeto.

 --
 Joao Morais




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









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

RE: [delphi-br] Organizar arquivos

2008-03-28 Por tôpico Itamar Souza
Boa Tarde
   
  Dentro da mesma pasta do seu projeto você pode ter várias pastas para separar 
os fontes de forma que fique mais organizado, mais quando precisa tira os 
arquivos de um determinado local tera que altera o caminho.
   
  Faz um teste alterando os caminhos que estão em:
  Project / Options/ Directories/Conditionals
   
  Espero ter ajudado..

   
-
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! 

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



Re: [delphi-br] Criar Documentos

2008-03-28 Por tôpico Fernando Nappe
Boa tarde Jeferson, blz?

Já pensou em usar arquivos HTML? Na paleta 'Internet' há vários componentes
que interagem com Datasets. Dê uma pesquisada, pode ser que dê certo.

Até+

Em 27/03/08, Jeferson Adoryan [EMAIL PROTECTED] escreveu:

   Dae pessoal
 Preciso gerar uns documentos a partir do meu sistema, e gostaria de
 receber algumas ideias do que eu posso utilizar
 Estou desenvolvendo um sistema para revenda, onde em determinada operação
 preciso gerar, por exemplo, uma procuraçao: Onde tenho um cedente, alguns
 procurados (pode ser 1, 2, 5, etc), dados de um veiculo e um texto de
 procuração criado pelo cliente. Ele pode ter mais de um texto para a(s)
 procuracao(eos).
 Tambem vou precisar gerar: Termos de compromisso, Contrato, Recibo, etc

 Fiz uma solução usando arquivos .DOC com Variaveis no texto (ex.: pra
 nome do comprador usava [NomeComp]) e depois abria o doc em um form,
 localizava essas variaveis e ia subtituindo. Porem, em um texto maior, a
 funcao ('Doc.Content.Find.Execute(FindText := '(CCompNome)', ReplaceWith
 := xxx') nao me ajudou. Outro problema foi o uso dos DOC's padroes na rede,
 pois se a secretaria criou um modelo de contrato novo, o chefe quer poder
 usar no pc dele tb...

 Aceito qualquer ideia de o que eu possa usar para isso.

 Desde ja agradeco, e desculpem o texto longo

 ___
 Jeferson Adoryan
 Técnico em Desenvolvimento de Software
 Objetiva Informática LTDA
 Fone: (55) 3375 3828
 Linux Counter #404063
 =
 www.firehost.com.br

 Panambi - RS

 Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
 armazenamento!
 http://br.mail.yahoo.com/

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

  




-- 
Fernando Nappe
Analistas de Sistemas
http://nappe.blogspot.com


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



Re: [delphi-br] Datamodules

2008-03-28 Por tôpico Joao Morais
Sérgio T. Uetanabaro wrote:
 Agora no delphi 2007 existe um bug ainda mais chato e que
 decidi banir o uso de datamodules de minhas aplicações

Por essas e outras que dou preferência a instanciar no braço do que 
confiar no datamodule.

--
Joao Morais


[delphi-br] Dev-Express

2008-03-28 Por tôpico Vinicius Santos - MSI
Pessoal, conforme mandei alguns dias atrás, precisava recuperar o FieldName de 
um TreeList da Dev-Express com o RestoreFromStream, eu mudei o fonte do 
Dev-Express, se alguém estiver interessado em discutir sobre outros métodos de 
fazer

Vinicius dos Santos
Analista de Desenvolvimento Júnior
MSI SOLUÇÕES
Av. Dr. Altino Arantes, 131 Sala 145 - 146 Centro - Ourinhos/Sp - Brasil
Fone/Fax: +55 (14) 3324-8181  www.msisolucoes.com.br


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



Re: [delphi-br] DELPHI 7 NO VISTA

2008-03-28 Por tôpico Andrei Luís
Sim Walter, sem chance de acontecer. Quer dizer, nunca diga nunca, mas
isso parece estar longe de pra onde a Code Gear caminha.

Complementando o que disse antes, sonhar não custa nada, mas também
não adianta nada sonhar sem chance nenhuma de virar realidade.

[]
Andrei


Em 28/03/08, Walter Chagas Junior (BOL)[EMAIL PROTECTED] escreveu:
 Andrei,

  Se o Kylix que era o Delphi para Linux, e todo mundo sabe aqui que o Linux 
 hoje é muito mais uma religião do que um mero sistema operacional, abendou 
 por pouca procura, o que me dizer então de um Delphi para MAC




  []s



  Walter Alves Chagas Junior
  Belo Horizonte - MG - Brazil
  [EMAIL PROTECTED]

 http://www.geocities.com/SiliconValley/Bay/1058
  http://www.delphiatcorporerm.blogspot.com/

 MSN: [EMAIL PROTECTED]
  SKYPE: WalterChagasJr




 -- Início da mensagem original ---

   De: delphi-br@yahoogrupos.com.br

 Para: delphi-br@yahoogrupos.com.br

   Cc:
 Data: Thu, 27 Mar 2008 13:38:04 -0300

  Assunto: Re: [delphi-br] DELPHI 7 NO VISTA


  hehehehe, sonhar não custa nada.
  
   []
   Andrei
  

É bem verdade que o que me prende ao windows ainda é o Delphi, mas quem 
   sabe
 uma versao do Delphi para o Mac em breve hein CodeGear Guys? ( Andreano 
 e
 Bruno, eis uma sugestao ).
   
   
 Em 27/03/08, Andrei Luís [EMAIL PROTECTED] escreveu:
   

Berdamzinho,
 
  Quem tem que se mexer são os fabricantes de hardware, e não a
  Microsoft. São eles que desenvolvem, ou mandam desenvolver os drivers
  para os seus equipamentos. E como o mercado está se encaminhando para
  o Vista, quer a gente goste ou não, tu acha que eles vão ficar
  gastando $$$ desenvolvendo drivers para Vista e para XP??? Eu tenho um
  cliente que comprou um notebook Toshiba que veio com o Vista. Nao
  gostou, tá pesado coisa e tal, me pediu pra colocar o XP, fui atras
  dos drivers e adivinhe: só para o Vista.
 
  Infelizmente logo não teremos opção.
 
  []
  Andrei
 
   
 Em 28/03/08, berdam[EMAIL PROTECTED] berdamzinho%40yahoo.com.br
   
 escreveu:
 
   isso que eu não entendo na Microsoft. Nada contra as boas
   funcionalidades do Windows. Mas tipo, compro um notebook novo com 
 Vista,
   se eu quiser voltar pro XP não existem drivers para os dispositivos 
 de
   hardware, impedindo de usar o sistema por completo. Conclusão, 
 tenho que
   usar um sistema lerdo, que não gosto. A mesma coisa acontece com o 
 msn,
   dias atrás instalei a versão 7.5 por achar melhor. Resultado, tenho 
 que
   instalar milhares de patchs, service packs e não sei mais oque ,
   resultando isso em vários megas de espaço, somente para que assim eu
   possa ter um simples bate papo.
  
  
  
   Andrei Luís escreveu:
  
   
Também tive experiência parecida com um notebook novo que adquiri.
Muito lerdo.
   
E o pior é que logo logo o XP sai de linha e aí babaus, só o 
 Vista.
   
[]
Andrei


Re: [delphi-br] Organizar arquivos

2008-03-28 Por tôpico Joao Morais
Edmilson Pontes wrote:
 Então não tem como configurar para que cada tipo de arquivo fique numa
 pasta?

Sim, exceto .pas e .dfm que devem ficar juntos.

--
Joao Morais


Re: [delphi-br] Criar Documentos

2008-03-28 Por tôpico Itamar Souza
Boa Tarde
   
  No meu ponto de vista acredito que ficaria mais fácil você tratar estas 
informações persistindo dados no formato xml caso você esteja utilizando o 
ClientDataSet o mesmo tem a capacidade de salvar e recuperar dados em um 
arquivo de dados no formato DataPackageXML.
   
  Para fazer isso, você adiciona dois novos componentes, “OpenDialog” e 
“SaveDialog” da palheta Dialog, acrescente tambem na cláusula Uses, a 
biblioteca  DBClient.
   
  Ai então basta você acrescentar um botão para executar a geração do arquivo 
no formato xml e outro para obtenção dos dados.
   
  .. salvar XML
   
  procedure TForm1.btSalvarXMLClick(Sender: TObject);
  begin
if SaveDialog1.Execute then
  begin
  DM.CdsConsTeste.SaveToFile(SaveDialog1.FileName,dfXML);
  end;
  end;
   
  ..Ler dados XML
   
  procedure TForm1.btSalvarXMLClick(Sender: TObject);
  begin
if SaveDialog1.Execute then
  begin
  DM.CdsConsTeste.LoadFromFile(SaveDialog1.FileName,dfXML);
  end;
  end;
   
  Espero ter ajudado!!

   
-
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! 

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



RES: [delphi-br] Datamodules

2008-03-28 Por tôpico Sérgio T . Uetanabaro
To começando a fazer isso tbem. No começo era tudo lindo ... visual e
integrado com a IDE mas agora a casa ta caindo.
 
 
[]´s
 
Sergio Uetanabaro 
 


   _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Joao Morais
Enviada em: sexta-feira, 28 de março de 2008 15:24
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Datamodules



Sérgio T. Uetanabaro wrote:
 Agora no delphi 2007 existe um bug ainda mais chato e que
 decidi banir o uso de datamodules de minhas aplicações

Por essas e outras que dou preferência a instanciar no braço do que 
confiar no datamodule.

--
Joao Morais


 


No virus found in this incoming message.
Checked by AVG.
Version: 7.5.519 / Virus Database: 269.22.1/1347 - Release Date: 27/03/2008
19:15



No virus found in this outgoing message.
Checked by AVG. 
Version: 7.5.519 / Virus Database: 269.22.1/1347 - Release Date: 27/03/2008
19:15
 


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



[delphi-br] Componentes - Posicionamento de TImage

2008-03-28 Por tôpico Paulo Jorge
Criei um componente para, dentre outras funções, exibir os logotipos
da empresa. Acontece que o logotipo LogoPJ (Timage) não fica
posicionado corretamente quando em runtime. Em design time está perfeito.
Constatei que o Parent a ele atribuído durante a fase de design, se
perde durante a execução, tornando-se nulo. Uma vez sem parent, perde
a referência de posicionamento. Como resolver isso?

Segue o código:

unit PJSet;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs,
  ExtCtrls, stdctrls, IniFiles, dbtables, ShellAPI, ComCtrls;

type
   TPJLogo = (atPJPequeno, atPJNormal, atPJGrande, atPJNenhum);

type
  TPJSet = class(TPanel)
  private
{ Private declarations }
sDelphiAtivo : boolean;
sMContasPresente: boolean;
sMContasExeName : string;
sEmiteEtiqueta, sMultiplaInstancia : boolean;
sServidor, sRegistrado : boolean;
sLogotipoTela, sLogotipoImp, sLogotipoEtiq : string;
sUsuario, sComplemento,sUsuAtual, sNivelUsuAtual : string;
LogoTela, LogoPJ : TImage;
PanelClient, PanelRight, PanelLogoPJ : TPanel;

  protected
{ Protected declarations }

  public
{ Public declarations }
{sobregravando o método Create}
constructor Create(AOwner: TComponent); override;
//destructor Destroy; override;
function ConfigurarSistema : boolean;
function ConfigurarLogotipo : boolean;
function ConfigurarTituloRelatorio: boolean;
function ExecutarArquivo(const NomeDoArquivo, Parametros,
DiretorioPadrao: string;
 ModoDeExibicao: Integer): THandle;
procedure VerificarUsuario;
procedure AtualizarLogotipos;
procedure VerificarSistemas;
property LogotipoTela : string read sLogotipoTela write sLogotipoTela;
property LogotipoImp : string read sLogotipoImp write sLogotipoImp;
property LogotipoEtiq : string read sLogotipoEtiq write sLogotipoEtiq;
property UsuarioAtual : string read sUsuAtual write sUsuAtual;
property NivelUsuarioAtual : string read sNivelUsuAtual write
sNivelUsuAtual;
property MContasPresente : boolean read sMContasPresente write
sMContasPresente;
property MContasExeName : string read sMContasExeName write
sMContasExeName;
property DelphiAtivo : boolean read sDelphiAtivo write sDelphiAtivo;


  published
{ Published declarations }
property _Servidor : boolean read sServidor write sServidor;
property _Usuario : string read sUsuario write sUsuario;
property _Complemento : string read sComplemento write sComplemento ;
property _Registrado : boolean read sRegistrado write sRegistrado;
property _EmiteEtiqueta : boolean read sEmiteEtiqueta write
sEmiteEtiqueta;
property _MultiplaInstancia : boolean read sMultiplaInstancia
write sMultiplaInstancia;
 end;
 

procedure Register;

implementation
{$R PJSET.RES}

Uses MTitcfg, MLogocfg, PJConfig;


function TPJSet.ExecutarArquivo(const NomeDoArquivo, Parametros,
DiretorioPadrao: string;
  ModoDeExibicao: Integer): THandle;
  //Parâmetro 1 - Arquivo;
  //Parâmetro 2 - Parâmetros;
  //Parâmetro 3 - Diretório Default;
  //Parâmetro 5 - Estado da Janela;
var
  zFileName, zParams, zDir: array[0..149] of Char;
begin
  Result := ShellExecute(Application.MainForm.Handle, nil,
StrPCopy(zFileName, NomeDoArquivo), StrPCopy(zParams, Parametros),
StrPCopy(zDir, DiretorioPadrao), ModoDeExibicao);
end;



function TPJSet.ConfigurarLogotipo : boolean;
begin
  if _Registrado then
  begin
Application.CreateForm(TFormLogotipos, FormLogotipos);

if not _EmiteEtiqueta then
begin
  FormLogotipos.ComboBox1.Items.Delete(2);
  FormLogotipos.GroupBox3.Visible := False;
  FormLogotipos.BitBtnOK.Top := 190;
  FormLogotipos.BitBtnCancel.Top := 190;
  FormLogotipos.Height := 250;
end;

FormLogotipos.ShowModal;
if FormLogotipos.ModalResult = mrOK then
begin
  Result := True;
end
else
  Result := False;
FormLogotipos.Free;
  end
  else
  begin
MessageDlg('Somente usuários registrados podem alterar essa
configuração.  '+
   'Veja como registrar esse Sistema no item de menu
Ajuda/Registrar.', mtWarning,
  [mbOk], 0);
Result := False;
  end;
end;

function TPJSet.ConfigurarSistema: boolean;
begin
  if _Registrado then
  begin
Application.CreateForm(TFormPJConfig,FormPJConfig);
FormPJConfig.ShowModal;
if FormPJConfig.ModalResult = mrOK then
begin
  Result := True;
end
else
  Result := False;
FormPJConfig.Free;
  end
  else
  begin
MessageDlg('Somente usuários registrados podem alterar essa
configuração.  '+
   'Veja como registrar esse Sistema no item de menu
Ajuda/Registrar.', mtWarning,
  [mbOk], 0);
Result := False;
  end;
end;

function TPJSet.ConfigurarTituloRelatorio : boolean;
begin
  if _Registrado then
  begin
Application.CreateForm(TFormMTitcfg,FormMTitcfg);
FormMTitcfg.ShowModal;
if FormMTitcfg.ModalResult = mrOK then
begin
  Result 

Re: [delphi-br] Organizar arquivos

2008-03-28 Por tôpico Alessandro DUARTE de Moraes
Sim, podes. A única restrição é que Units (*.pas) e Forms (*.dfm ou *.xfm) irão 
ficar no mesmo diretório.

Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br

  - Original Message - 
  From: Edmilson Pontes 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, March 28, 2008 1:03 PM
  Subject: [delphi-br] Organizar arquivos


  Colegas,
  Então não tem como configurar para que cada tipo de arquivo fique numa
  pasta?

  Edmilson Pontes

  Em 27/03/08, Joao Morais [EMAIL PROTECTED] escreveu:
  
   Jackson Gomes - ToolsComps wrote:
Outros .PAS e demais arquivos podem ficar em diretórios diferentes, mas
   tem que
estar no search path do projeto ou no global.
  
   Apenas se os arquivos não fazem parte do projeto.
  
   --
   Joao Morais
  
   
  

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



   
  -- 
  E-mail Seguro Vetorial.net 

  Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, 
  encaminhe para [EMAIL PROTECTED] 

  Chave de Identificação: 54568,47ed1952596582308070739 


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



Re: [delphi-br] Datamodules

2008-03-28 Por tôpico Jhosef Marks
 Nunca tive problemas com isso, seu Delphi eh original???

Já viu se tem alguma atualização q corrige issu???

Só pra saber, pq o uso dos datamodules é uma prática muito comum e
incentivada para desenvolvimento de aplicações.

Vlw...

Em 28/03/08, Sérgio T. Uetanabaro [EMAIL PROTECTED] escreveu:

   To começando a fazer isso tbem. No começo era tudo lindo ... visual e
 integrado com a IDE mas agora a casa ta caindo.


 []´s

 Sergio Uetanabaro


 _

 De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto:
 delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em
 nome de Joao Morais
 Enviada em: sexta-feira, 28 de março de 2008 15:24
 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
 Assunto: Re: [delphi-br] Datamodules

 Sérgio T. Uetanabaro wrote:
  Agora no delphi 2007 existe um bug ainda mais chato e que
  decidi banir o uso de datamodules de minhas aplicações

 Por essas e outras que dou preferência a instanciar no braço do que
 confiar no datamodule.

 --
 Joao Morais

 No virus found in this incoming message.
 Checked by AVG.
 Version: 7.5.519 / Virus Database: 269.22.1/1347 - Release Date:
 27/03/2008
 19:15

 No virus found in this outgoing message.
 Checked by AVG.
 Version: 7.5.519 / Virus Database: 269.22.1/1347 - Release Date:
 27/03/2008
 19:15


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

  




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


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



Re: [delphi-br] Componentes - Posicionamento de TImage

2008-03-28 Por tôpico Alessandro DUARTE de Moraes
1) te aconselho a tirar o LogoPJ.Parent := Self; de dentro AtualizarLogotipos 
... não DEVE ser necessário;
2) Tente atribuir a imagem utilizando LogoPJ.Picture.Assign( Picture )

Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br

  - Original Message - 
  From: Paulo Jorge 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, March 28, 2008 4:17 PM
  Subject: [delphi-br] Componentes - Posicionamento de TImage


  Criei um componente para, dentre outras funções, exibir os logotipos
  da empresa. Acontece que o logotipo LogoPJ (Timage) não fica
  posicionado corretamente quando em runtime. Em design time está perfeito.
  Constatei que o Parent a ele atribuído durante a fase de design, se
  perde durante a execução, tornando-se nulo. Uma vez sem parent, perde
  a referência de posicionamento. Como resolver isso?

  Segue o código:

  unit PJSet;

  interface

  uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs,
  ExtCtrls, stdctrls, IniFiles, dbtables, ShellAPI, ComCtrls;

  type
  TPJLogo = (atPJPequeno, atPJNormal, atPJGrande, atPJNenhum);

  type
  TPJSet = class(TPanel)
  private
  { Private declarations }
  sDelphiAtivo : boolean;
  sMContasPresente: boolean;
  sMContasExeName : string;
  sEmiteEtiqueta, sMultiplaInstancia : boolean;
  sServidor, sRegistrado : boolean;
  sLogotipoTela, sLogotipoImp, sLogotipoEtiq : string;
  sUsuario, sComplemento,sUsuAtual, sNivelUsuAtual : string;
  LogoTela, LogoPJ : TImage;
  PanelClient, PanelRight, PanelLogoPJ : TPanel;

  protected
  { Protected declarations }

  public
  { Public declarations }
  {sobregravando o método Create}
  constructor Create(AOwner: TComponent); override;
  //destructor Destroy; override;
  function ConfigurarSistema : boolean;
  function ConfigurarLogotipo : boolean;
  function ConfigurarTituloRelatorio: boolean;
  function ExecutarArquivo(const NomeDoArquivo, Parametros,
  DiretorioPadrao: string;
  ModoDeExibicao: Integer): THandle;
  procedure VerificarUsuario;
  procedure AtualizarLogotipos;
  procedure VerificarSistemas;
  property LogotipoTela : string read sLogotipoTela write sLogotipoTela;
  property LogotipoImp : string read sLogotipoImp write sLogotipoImp;
  property LogotipoEtiq : string read sLogotipoEtiq write sLogotipoEtiq;
  property UsuarioAtual : string read sUsuAtual write sUsuAtual;
  property NivelUsuarioAtual : string read sNivelUsuAtual write
  sNivelUsuAtual;
  property MContasPresente : boolean read sMContasPresente write
  sMContasPresente;
  property MContasExeName : string read sMContasExeName write
  sMContasExeName;
  property DelphiAtivo : boolean read sDelphiAtivo write sDelphiAtivo;

  published
  { Published declarations }
  property _Servidor : boolean read sServidor write sServidor;
  property _Usuario : string read sUsuario write sUsuario;
  property _Complemento : string read sComplemento write sComplemento ;
  property _Registrado : boolean read sRegistrado write sRegistrado;
  property _EmiteEtiqueta : boolean read sEmiteEtiqueta write
  sEmiteEtiqueta;
  property _MultiplaInstancia : boolean read sMultiplaInstancia
  write sMultiplaInstancia;
  end;


  procedure Register;

  implementation
  {$R PJSET.RES}

  Uses MTitcfg, MLogocfg, PJConfig;

  function TPJSet.ExecutarArquivo(const NomeDoArquivo, Parametros,
  DiretorioPadrao: string;
  ModoDeExibicao: Integer): THandle;
  //Parâmetro 1 - Arquivo;
  //Parâmetro 2 - Parâmetros;
  //Parâmetro 3 - Diretório Default;
  //Parâmetro 5 - Estado da Janela;
  var
  zFileName, zParams, zDir: array[0..149] of Char;
  begin
  Result := ShellExecute(Application.MainForm.Handle, nil,
  StrPCopy(zFileName, NomeDoArquivo), StrPCopy(zParams, Parametros),
  StrPCopy(zDir, DiretorioPadrao), ModoDeExibicao);
  end;

  function TPJSet.ConfigurarLogotipo : boolean;
  begin
  if _Registrado then
  begin
  Application.CreateForm(TFormLogotipos, FormLogotipos);

  if not _EmiteEtiqueta then
  begin
  FormLogotipos.ComboBox1.Items.Delete(2);
  FormLogotipos.GroupBox3.Visible := False;
  FormLogotipos.BitBtnOK.Top := 190;
  FormLogotipos.BitBtnCancel.Top := 190;
  FormLogotipos.Height := 250;
  end;

  FormLogotipos.ShowModal;
  if FormLogotipos.ModalResult = mrOK then
  begin
  Result := True;
  end
  else
  Result := False;
  FormLogotipos.Free;
  end
  else
  begin
  MessageDlg('Somente usuários registrados podem alterar essa
  configuração. '+
  'Veja como registrar esse Sistema no item de menu
  Ajuda/Registrar.', mtWarning,
  [mbOk], 0);
  Result := False;
  end;
  end;

  function TPJSet.ConfigurarSistema: boolean;
  begin
  if _Registrado then
  begin
  Application.CreateForm(TFormPJConfig,FormPJConfig);
  FormPJConfig.ShowModal;
  if FormPJConfig.ModalResult = mrOK then
  begin
  Result := True;
  end
  else
  Result := False;
  FormPJConfig.Free;
  end
  else
  begin
  MessageDlg('Somente usuários registrados podem alterar essa
  configuração. '+
  'Veja como registrar esse Sistema no 

Re: [delphi-br] Delphi não roda 64 bit é Nati Mo rto?

2008-03-28 Por tôpico escobar
PUT´s, como esse povo gosta de complicar hehehhe

Valeu a explicação Walter,  thank´s

[]s


Luiz Escobar - Analista/Desenvolvedor:
WEB - HTML/JavaScript/PHP/MySQL 
WINDOWS - Delphi/ASSEMBLY/MySQL/xBase
SERVIDORES - CNA IntraNetWare4.11, LINUX-(RedHat9/Suse10.2), Windows 2K/XP
HARBOUR 
Borland C++ 5.5.1 (32 bit)
Harbour Devel build 1.1-1 Intl.
xHarbour Compile build 1.1.0 (Simplex)
Harbour MiniGUI 1.5 Extended Edition (Build 50) - 2008.03.24
-


From: Walter Chagas Junior (BOL) 
Sent: Friday, March 28, 2008 9:52 AM
To: delphi-br 
Subject: Re: [delphi-br] Delphi não roda 64 bit é Nati Morto?


Os processadores de tecnologia EM64T utilizam a arquietura IA-64 que é de
64bits e não mais a x86. Foi uma saída para este problema que
inicialmente tentaram com a estória do Dual Core (Dois processadores de 32
bits juntos correponderiam a 64 bits). Mas de tudo que já li a respeito
disto, ainda há muitas incertezas pois eles afirmam que a IA-64 vai ter a
x86 incorporada. Ou seja, qualquer programa feito até pra rodar em um XT
rodaria tranquilamente na IA-64. Mas e aí? Será que isso não prejudicaria a
performance de um processador que queira usar instruções nativas de
64bits???

http://www.inf.ufrgs.br/procpar/disc/inf1191/trabs/992/IA64/ia64.html

E tem outro agravante: Enquanto a Intel foi por este caminho (Da IA-64) a
AMD adequou a x86 aos 64bits, ou seja, já temos dois processadores de
ponta no mercado que começam a usar arquiteturas diferentes, e pior aínda,
ambas muito mais com cheiro de paleativo do que de solução abrindo
precedentes para aquela listinha básica de incompatibilidades e bugs em
projetos de softwares.

Veja os artigos abaixo

http://www.clubedohardware.com.br/artigos/375

http://www.clubedohardware.com.br/artigos/1143

http://www.clubedohardware.com.br/artigos/376

http://www.forumpcs.com.br/coluna.php?b=108668

http://www.inf.ufg.br/~rodrigo/arq/

http://www.babooforum.com.br/forum/index.php?showtopic=517031

[]s

Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
[EMAIL PROTECTED]
http://www.geocities.com/SiliconValley/Bay/1058
MSN: [EMAIL PROTECTED]
SKYPE: WalterChagasJr

- Original Message - 
From: [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, March 26, 2008 2:01 PM
Subject: Re: [delphi-br] Delphi não roda 64 bit é Nati Morto?

heim ??? Num to entendendo Walter..
Então pq meu P4-HT 630 (presHOT, ops prescott) é 64bits ???
Pq temos windows (xp, vista) tbm em 64bits ???
Agora se me confundiu.

Luiz Escobar - Analista/Desenvolvedor:
WEB - HTML/JavaScript/PHP/MySQL
WINDOWS - Delphi/ASSEMBLY/MySQL/xBase
SERVIDORES - CNA IntraNetWare4.11, LINUX-(RedHat9/Suse10.2), Windows 2K/XP
HARBOUR --
Borland C++ 5.5.1 (32 bit)
Harbour Devel build 1.1-1 Intl.
xHarbour Compile build 1.1.0 (Simplex)
Harbour MiniGUI 1.5 Extended Edition (Build 50) - 2008.03.24
--

From: Walter Chagas Jr (BOL)
Sent: Tuesday, March 25, 2008 11:50 PM
To: Grupo Delphi-BR
Subject: Re: [delphi-br] Delphi não roda 64 bit é Nati Morto?

Bom dia Amigo,

Desconheço completamente a fonte ou a origem que lhe passou este factóide,
mas posso assegurar-lhe que é totalmente infundamentado. A tecnologia 64
bits, é uma tecnologia ainda que está por vir, mas antes dela emplacar,
talvez você até venha a ser avô uma vez que a Intel, a uns tempos atrás, se
deparou com uma puta duma batata quente em suas mãos e que deve tar torrando
uma grana e tanto pra tentar resolver. E Rápido. A arquitetura x86 não
suporta processamentos em 64bits. O limite dela era os 32 tal como muitos
outros limites tiveram aí pra trás, como limite de memória Ram, limite de
barramento, FAT, HD, etc.. O grande problema que ocasionou este embroglio,
foi essa mania estúpida de manter compatibilidade com os processadores
antigos, desde o XT que ainda era 4 ou 8 bits, sei lá. Por manter instruções
nativas destas plataformas cretáceas, hoje a coisa empacou nos 32 e vai ser
complicado sair dela e ainda assim manter compatibilidade com aplicações
não-64bits. Enquanto a Risk já começa a se aventurar nos 128, a x86 atolou
:)

Portanto amigos, ninguem precisa sair correndo por aí pra migrar ou mesmo
portar projetos atuais pros 64bits a menos que você venha a desenvolver
aplicações que rodem em processadores Alpha. Aí sim, são outros 500..

64bits ainda vai levar um tempo pra ser uma realidade e mesmo que chegue,
todo mundo aqui sabe que o mercado não absorve isto da noite para o dia...

[]s

Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
[EMAIL PROTECTED]
http://www.geocities.com/SiliconValley/Bay/1058
MSN: [EMAIL PROTECTED]
SKYPE: WalterChagasJr

- Original Message - 
From: walthersonbrunno [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br

RES: [delphi-br] Datamodules

2008-03-28 Por tôpico Sérgio T . Uetanabaro
O delphi está atualizado e é legalizado. 
 
[]´s
 
Sérgio
 


   _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Jhosef Marks
Enviada em: sexta-feira, 28 de março de 2008 15:57
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Datamodules




Nunca tive problemas com isso, seu Delphi eh original???

Já viu se tem alguma atualização q corrige issu???

Só pra saber, pq o uso dos datamodules é uma prática muito comum e
incentivada para desenvolvimento de aplicações.

Vlw...

Em 28/03/08, Sérgio T. Uetanabaro HYPERLINK
mailto:suka%40allbras.com.br[EMAIL PROTECTED] escreveu:

 To começando a fazer isso tbem. No começo era tudo lindo ... visual e
 integrado com a IDE mas agora a casa ta caindo.


 []´s

 Sergio Uetanabaro


 _

 De: HYPERLINK
mailto:delphi-br%40yahoogrupos.com.br[EMAIL PROTECTED]
delphi-br%40yahoog-rupos.com.-br [mailto:
 HYPERLINK
mailto:delphi-br%40yahoogrupos.com.br[EMAIL PROTECTED]
delphi-br%40yahoog-rupos.com.-br] Em
 nome de Joao Morais
 Enviada em: sexta-feira, 28 de março de 2008 15:24
 Para: HYPERLINK
mailto:delphi-br%40yahoogrupos.com.br[EMAIL PROTECTED]
delphi-br%40yahoog-rupos.com.-br
 Assunto: Re: [delphi-br] Datamodules

 Sérgio T. Uetanabaro wrote:
  Agora no delphi 2007 existe um bug ainda mais chato e que
  decidi banir o uso de datamodules de minhas aplicações

 Por essas e outras que dou preferência a instanciar no braço do que
 confiar no datamodule.

 --
 Joao Morais

 No virus found in this incoming message.
 Checked by AVG.
 Version: 7.5.519 / Virus Database: 269.22.1/1347 - Release Date:
 27/03/2008
 19:15

 No virus found in this outgoing message.
 Checked by AVG.
 Version: 7.5.519 / Virus Database: 269.22.1/1347 - Release Date:
 27/03/2008
 19:15


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

 


-- 
Jhosef Marks de Carvalho
Delphi Developer
HYPERLINK
http://groups.google.com/group/soumaisdelphihttp://groups.-google.com/-gro
up/soumaisdel-phi

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



 


No virus found in this incoming message.
Checked by AVG.
Version: 7.5.519 / Virus Database: 269.22.1/1347 - Release Date: 27/03/2008
19:15



No virus found in this outgoing message.
Checked by AVG. 
Version: 7.5.519 / Virus Database: 269.22.1/1347 - Release Date: 27/03/2008
19:15
 


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



[delphi-br] Re: Res:SOAP com SSL

2008-03-28 Por tôpico kenji_rh
Fala Itamar!
Eu tentei usar o WSDL importer e ele pede para informar o certificado,
depois ele da a mensagem: Unable to load WSDL file/location:
https://homologacao.sefaz.mt.gov.br/nfews/NfeRecepcao?WSDL. Error
[Empty Document]
Mas só que ao acessar o link pelo Internet Explorer ele traz certo!

--- Em delphi-br@yahoogrupos.com.br, Itamar Souza [EMAIL PROTECTED] escreveu

 Usando o HTTPRIO você tera que usar o WSDLImporter para importar as
interfaces que se encontra no servidor web e implementam as
funcionalidades do webservice a serem consumidas pelo projeto cliente.

   Você pode usar uma solução baseada em conectividade por intermédio
dos agentes Cliente SOAP e Servidor SOAP, disponibilizados por um
Webservice fazendo o acesso direto ao banco com a conexão SOAP.
   Basta colocar um datamodulo e um componenente SoapConn e pega o
endereço que esta no webservice e copia a linha URL do texto XML e
conectar.

   O resto e igual, coloca os clientDataset e fazer a conexão se você
tiver usando multicamadas o RemoteServer será o SoapConn e o
ProviderName será o ClientDataset do seu servidor de conexão, neste
caso executar o Fetch Params e AddAllFields

   Veja se isso pode lhe ajuda!!

 

 -
 Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento! 
 
 [As partes desta mensagem que não continham texto foram removidas]





[delphi-br] RAVE report

2008-03-28 Por tôpico Ricardo Cabral
  Olá pessoal !
   
Sei que aqui não é forum sobre rave, mas tem a ver com delphi.
   
Alguém sabe, no rave, se tem como desabilitar a impressão do preview ? Eu 
quero que o usuário vejo a tela de preview do relatório, mas que não consiga 
enviar para a impressora.
   
Valeu!
   
   

   
-
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! 

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



[delphi-br] [Oferta de emprego] Integração de sistemas legador p/ nova tecnologia

2008-03-28 Por tôpico hannibaljunior
Profissionais, boa tarde!

Estamos em busca de profissionais em potecial. 

É necessário experiência em Delphi 2006, Banco e Dados Relacionais, 
UML;
Desejável Certificação Borland Delphi.7 Developer Certified ou 
Borland Delphi 2006 Developer Certified;

Principal objetivo do projeto é migração do sistema em Delphi e VB6 
para uma nova tecnologia(C#, VB.NET ou .NET)

Projeto de período indeterminado;
Região da Paulista em órgão público;
Contratação CLT Cotas;

Enviar currículos atualizados ou de indicações para o e-mail:
[EMAIL PROTECTED]

Grata e até breve. 

Priscila Damasceno
RH Victus Consultoria
www.victusconsultoria.com.br

Sucesso a Todos!!!







Re: [delphi-br] RAVE report

2008-03-28 Por tôpico Leonardo Gonçalves
No componente RvSystem tem o conjunto de propriedades SystemOptions nele tem
a
a propriedade soAllowPrintFromPreview  é só setar para  false

Em 28/03/08, Ricardo Cabral [EMAIL PROTECTED] escreveu:

Olá pessoal !

 Sei que aqui não é forum sobre rave, mas tem a ver com delphi.

 Alguém sabe, no rave, se tem como desabilitar a impressão do preview ? Eu
 quero que o usuário vejo a tela de preview do relatório, mas que não consiga
 enviar para a impressora.

 Valeu!



 -
 Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
 armazenamento!

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

  



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



Re: [delphi-br] RAVE report

2008-03-28 Por tôpico Ricardo Cabral
Leonardo,
   
  Boa essa dica. Mas como altero essa propriedade em tempo de execução? 
   
  Na verdade, ela não desabilita o ícone, mas tá legal assim.
   
  Valeu !
   
  Ricardo

Leonardo Gonçalves [EMAIL PROTECTED] escreveu:
  No componente RvSystem tem o conjunto de propriedades SystemOptions 
nele tem
a
a propriedade soAllowPrintFromPreview é só setar para false

Em 28/03/08, Ricardo Cabral [EMAIL PROTECTED] escreveu:

 Olá pessoal !

 Sei que aqui não é forum sobre rave, mas tem a ver com delphi.

 Alguém sabe, no rave, se tem como desabilitar a impressão do preview ? Eu
 quero que o usuário vejo a tela de preview do relatório, mas que não consiga
 enviar para a impressora.

 Valeu!



 -
 Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
 armazenamento!

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

 


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



   

   
-
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! 

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



[delphi-br] Herança?

2008-03-28 Por tôpico Ednro Jr
Como fazer os formulários herdados abrirem o dataset no ID passado por 
parâmetro?

Eis minha função para abrir um form:

procedure abrirFormulario(aClasseFormulario: TComponentClass; 
aFormulario: TForm);
begin
  if not Assigned(aFormulario) then
Application.CreateForm(aClasseFormulario, aFormulario)
  else
aFormulario.BringToFront;
end;

Assim abro os formulários, porém quero acrescentar a essa função que 
ele abra o ClienteDataSet num ID passado por parâmetro. Tem como fazer 
isso?



[delphi-br] showmodal, como acessar um fsMDIChild

2008-03-28 Por tôpico alineri
Ola pessoal, 

tem um formulario que e fsMDIChild, que carrega uma tela de pesquisa 
que e fsnormal em showmodal 

essa tela de pesquisa tem um listview onde e carregado os resultados da 
pesquisa. 

no evento onselectitem eu tento passar os valores que estao no listview 
da tela de pesquisa para os edits do formulario fsMDIChild, o que gera 
sempre erro de acesso de memoria. 

nao tenho como habilitar ( enabled = true ) os edits do formulario 
fsMDIChild para que esses possam receber os valores que foram 
selecionados no listview do formulario de pesquisa fsnormal ? 

um forte abarco a todos 
alineri