[delphi-br] Gerar XLS a partir do Quick

2007-10-06 Por tôpico Red Mosquito
Há como gerar um relatório no Quick já em formato .XLS (Excel) ?

 

 

(No ReportBuilder uso um componente TextraDevice que faz isso.

Há algo do gênero para o Quick ?)

 

 

 

Obrigado pela atenção

 

 



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



[delphi-br] Inno setup

2007-10-06 Por tôpico Alexandre
Olá pessoal, alguem sabe se existe a possibilidade de gerar um instalador em 
formato de cd-rom no programa InnoSetup?

Alex

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



Re: [delphi-br] Gerar XLS a partir do Quick

2007-10-06 Por tôpico Adriano Santos (Devmedia)
Se não me falha a memória somente no QuickReport 4.
Qual versão do Delphi está usando?

-- 
Adriano Santos
Desenvolvedor Delphi desde 1998. Professor e programador PHP.
Bacharel em Comunicação Social pela Universidade Cruzeiro do Sul, SP.

Editor Técnico, Colunista e Comissão Editorial da revista ClubeDelphi.
http://www.devmedia.com.br
http://www.clubedelphi.net
http://www.delphitodelphi.blogspot.com



Red Mosquito respondeu:

 Há como gerar um relatório no Quick já em formato .XLS (Excel) ?

 (No ReportBuilder uso um componente TextraDevice que faz isso.

 Há algo do gênero para o Quick ?)

 Obrigado pela atenção

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

 
 

 No virus found in this incoming message.
 Checked by AVG Free Edition. 
 Version: 7.5.488 / Virus Database: 269.14.2/1053 - Release Date: 06/10/2007 
 10:18
   

-- 

Boa leitura,


*Adriano Santos*
Desenvolvedor Delphi desde 1998. Professor e programador PHP.
Bacharel em Comunicação Social pela Universidade Cruzeiro do Sul, SP.

Editor Técnico, Colunista e Comissão Editorial da revista ClubeDelphi.
Blog: Delphi to Delphi http://www.delphitodelphi.blogspot.com


  http://www.devmedia.com.br


[delphi-br] Componente Para Mostrar Carga Horaria Numa Barra...

2007-10-06 Por tôpico Tatu
Necessito mostrar numa barra horizontal a carga horaria de uma
determinada maquina. A divisao será de 10 em 10 minutos, sendo que cada
divisão poderá ter cores diferentes. Esta Barra sempre terá como inicio
a Hora/Data atual do servidor (ou computador) e como final x dias pra
frente..Alguem conhece um componente que tenha estas
características.???
 
 
Santiago
NSR Informátca.


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



Re: [delphi-br] Criar uma sequencia alfabética

2007-10-06 Por tôpico iTELEFONICA
Amigo Andre Luiz
Saudações

Obrigado pela sua atenção e ja havia usado essa informação que vc passou, mas 
da um erro de INCOMPATIBLE TYPES. Será que é problema meu ou do D7,. Fiz da 
seguinte maneira
  aeArtigo.Text := char(ord(aeArtigo.Text)+1);
ou   aeArtigo.Text := chr(ord(aeArtigo.Text)+1);
Resultando o mesmo erro


   Clóvis Machado Ferreira
 Que o Grande Arquiteto do Universo nos Ampare
Msn-[EMAIL PROTECTED]
  - Original Message - 
  From: Andre Luis Silveria 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, October 05, 2007 4:07 PM
  Subject: Res: [delphi-br] Criar uma sequencia alfabética


  simpels: char(ord(edit.text)+1);

  - Mensagem original 
  De: iTELEFONICA [EMAIL PROTECTED]
  Para: delphi-br@yahoogrupos.com.br
  Enviadas: Sexta-feira, 5 de Outubro de 2007 15:07:32
  Assunto: [delphi-br] Criar uma sequencia alfabética

  Ola Pessoal

  Boa tarde

  Saudações

  Tenho um conteudo de um Edit, tipo 'a' e preciso criar o próximo, isto é, 
b. Sei que é pela função chr e ord, mas não estou conseguindo. Resulta um 
erro de compilação de tipos incompativeis. Como fazer?

  Obrigado

  Clovito

  Clóvis Machado Ferreira

  Que o Grande Arquiteto do Universo nos Ampare

  Msn-clovito.ferreira@ hotmail.com

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

  !--

  #ygrp-mkp{
  border:1px solid #d8d8d8;font-family:Arial;margin:14px 0px;padding:0px 14px;}
  #ygrp-mkp hr{
  border:1px solid #d8d8d8;}
  #ygrp-mkp #hd{
  color:#628c2a;font-size:85%;font-weight:bold;line-height:122%;margin:10px 
0px;}
  #ygrp-mkp #ads{
  margin-bottom:10px;}
  #ygrp-mkp .ad{
  padding:0 0;}
  #ygrp-mkp .ad a{
  color:#ff;text-decoration:none;}
  --

  !--

  #ygrp-sponsor #ygrp-lc{
  font-family:Arial;}
  #ygrp-sponsor #ygrp-lc #hd{
  margin:10px 0px;font-weight:bold;font-size:78%;line-height:122%;}
  #ygrp-sponsor #ygrp-lc .ad{
  margin-bottom:10px;padding:0 0;}
  --

  !--

  #ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean, sans-serif;}
  #ygrp-mlmsg table {font-size:inherit;font:100%;}
  #ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean, 
sans-serif;}
  #ygrp-mlmsg pre, code {font:115% monospace;}
  #ygrp-mlmsg * {line-height:1.22em;}
  #ygrp-text{
  font-family:Georgia;
  }
  #ygrp-text p{
  margin:0 0 1em 0;}
  #ygrp-tpmsgs{
  font-family:Arial;
  clear:both;}
  #ygrp-vitnav{
  padding-top:10px;font-family:Verdana;font-size:77%;margin:0;}
  #ygrp-vitnav a{
  padding:0 1px;}
  #ygrp-actbar{
  clear:both;margin:25px 0;white-space:nowrap;color:#666;text-align:right;}
  #ygrp-actbar .left{
  float:left;white-space:nowrap;}
  .bld{font-weight:bold;}
  #ygrp-grft{
  font-family:Verdana;font-size:77%;padding:15px 0;}
  #ygrp-ft{
  font-family:verdana;font-size:77%;border-top:1px solid #666;
  padding:5px 0;
  }
  #ygrp-mlmsg #logo{
  padding-bottom:10px;}

  #ygrp-vital{
  background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;}
  #ygrp-vital #vithd{
  
font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text-transform:uppercase;}
  #ygrp-vital ul{
  padding:0;margin:2px 0;}
  #ygrp-vital ul li{
  list-style-type:none;clear:both;border:1px solid #e0ecee;
  }
  #ygrp-vital ul li .ct{
  
font-weight:bold;color:#ff7900;float:right;width:2em;text-align:right;padding-right:.5em;}
  #ygrp-vital ul li .cat{
  font-weight:bold;}
  #ygrp-vital a{
  text-decoration:none;}

  #ygrp-vital a:hover{
  text-decoration:underline;}

  #ygrp-sponsor #hd{
  color:#999;font-size:77%;}
  #ygrp-sponsor #ov{
  padding:6px 13px;background-color:#e0ecee;margin-bottom:20px;}
  #ygrp-sponsor #ov ul{
  padding:0 0 0 8px;margin:0;}
  #ygrp-sponsor #ov li{
  list-style-type:square;padding:6px 0;font-size:77%;}
  #ygrp-sponsor #ov li a{
  text-decoration:none;font-size:130%;}
  #ygrp-sponsor #nc{
  background-color:#eee;margin-bottom:20px;padding:0 8px;}
  #ygrp-sponsor .ad{
  padding:8px 0;}
  #ygrp-sponsor .ad #hd1{
  
font-family:Arial;font-weight:bold;color:#628c2a;font-size:100%;line-height:122%;}
  #ygrp-sponsor .ad a{
  text-decoration:none;}
  #ygrp-sponsor .ad a:hover{
  text-decoration:underline;}
  #ygrp-sponsor .ad p{
  margin:0;}
  o{font-size:0;}
  .MsoNormal{
  margin:0 0 0 0;}
  #ygrp-text tt{
  font-size:120%;}
  blockquote{margin:0 0 0 4px;}
  .replbq{margin:4;}
  --

  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]



   

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



Re: [delphi-br] Criar uma sequencia alfabética

2007-10-06 Por tôpico iTELEFONICA
Ola André LUiz

Qdo faço aeArtigo.Text := chr(ord('a')+1);  funciona beleza



   Clóvis Machado Ferreira
 Que o Grande Arquiteto do Universo nos Ampare
Msn-[EMAIL PROTECTED]
  - Original Message - 
  From: iTELEFONICA 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Saturday, October 06, 2007 12:02 PM
  Subject: Re: [delphi-br] Criar uma sequencia alfabética


  Amigo Andre Luiz
  Saudações

  Obrigado pela sua atenção e ja havia usado essa informação que vc passou, mas 
da um erro de INCOMPATIBLE TYPES. Será que é problema meu ou do D7,. Fiz da 
seguinte maneira
  aeArtigo.Text := char(ord(aeArtigo.Text)+1);
  ou aeArtigo.Text := chr(ord(aeArtigo.Text)+1);
  Resultando o mesmo erro

  Clóvis Machado Ferreira
  Que o Grande Arquiteto do Universo nos Ampare
  Msn-[EMAIL PROTECTED]
  - Original Message - 
  From: Andre Luis Silveria 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, October 05, 2007 4:07 PM
  Subject: Res: [delphi-br] Criar uma sequencia alfabética

  simpels: char(ord(edit.text)+1);

  - Mensagem original 
  De: iTELEFONICA [EMAIL PROTECTED]
  Para: delphi-br@yahoogrupos.com.br
  Enviadas: Sexta-feira, 5 de Outubro de 2007 15:07:32
  Assunto: [delphi-br] Criar uma sequencia alfabética

  Ola Pessoal

  Boa tarde

  Saudações

  Tenho um conteudo de um Edit, tipo 'a' e preciso criar o próximo, isto é, 
b. Sei que é pela função chr e ord, mas não estou conseguindo. Resulta um 
erro de compilação de tipos incompativeis. Como fazer?

  Obrigado

  Clovito

  Clóvis Machado Ferreira

  Que o Grande Arquiteto do Universo nos Ampare

  Msn-clovito.ferreira@ hotmail.com

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

  !--

  #ygrp-mkp{
  border:1px solid #d8d8d8;font-family:Arial;margin:14px 0px;padding:0px 14px;}
  #ygrp-mkp hr{
  border:1px solid #d8d8d8;}
  #ygrp-mkp #hd{
  color:#628c2a;font-size:85%;font-weight:bold;line-height:122%;margin:10px 
0px;}
  #ygrp-mkp #ads{
  margin-bottom:10px;}
  #ygrp-mkp .ad{
  padding:0 0;}
  #ygrp-mkp .ad a{
  color:#ff;text-decoration:none;}
  --

  !--

  #ygrp-sponsor #ygrp-lc{
  font-family:Arial;}
  #ygrp-sponsor #ygrp-lc #hd{
  margin:10px 0px;font-weight:bold;font-size:78%;line-height:122%;}
  #ygrp-sponsor #ygrp-lc .ad{
  margin-bottom:10px;padding:0 0;}
  --

  !--

  #ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean, sans-serif;}
  #ygrp-mlmsg table {font-size:inherit;font:100%;}
  #ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean, 
sans-serif;}
  #ygrp-mlmsg pre, code {font:115% monospace;}
  #ygrp-mlmsg * {line-height:1.22em;}
  #ygrp-text{
  font-family:Georgia;
  }
  #ygrp-text p{
  margin:0 0 1em 0;}
  #ygrp-tpmsgs{
  font-family:Arial;
  clear:both;}
  #ygrp-vitnav{
  padding-top:10px;font-family:Verdana;font-size:77%;margin:0;}
  #ygrp-vitnav a{
  padding:0 1px;}
  #ygrp-actbar{
  clear:both;margin:25px 0;white-space:nowrap;color:#666;text-align:right;}
  #ygrp-actbar .left{
  float:left;white-space:nowrap;}
  .bld{font-weight:bold;}
  #ygrp-grft{
  font-family:Verdana;font-size:77%;padding:15px 0;}
  #ygrp-ft{
  font-family:verdana;font-size:77%;border-top:1px solid #666;
  padding:5px 0;
  }
  #ygrp-mlmsg #logo{
  padding-bottom:10px;}

  #ygrp-vital{
  background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;}
  #ygrp-vital #vithd{
  
font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text-transform:uppercase;}
  #ygrp-vital ul{
  padding:0;margin:2px 0;}
  #ygrp-vital ul li{
  list-style-type:none;clear:both;border:1px solid #e0ecee;
  }
  #ygrp-vital ul li .ct{
  
font-weight:bold;color:#ff7900;float:right;width:2em;text-align:right;padding-right:.5em;}
  #ygrp-vital ul li .cat{
  font-weight:bold;}
  #ygrp-vital a{
  text-decoration:none;}

  #ygrp-vital a:hover{
  text-decoration:underline;}

  #ygrp-sponsor #hd{
  color:#999;font-size:77%;}
  #ygrp-sponsor #ov{
  padding:6px 13px;background-color:#e0ecee;margin-bottom:20px;}
  #ygrp-sponsor #ov ul{
  padding:0 0 0 8px;margin:0;}
  #ygrp-sponsor #ov li{
  list-style-type:square;padding:6px 0;font-size:77%;}
  #ygrp-sponsor #ov li a{
  text-decoration:none;font-size:130%;}
  #ygrp-sponsor #nc{
  background-color:#eee;margin-bottom:20px;padding:0 8px;}
  #ygrp-sponsor .ad{
  padding:8px 0;}
  #ygrp-sponsor .ad #hd1{
  
font-family:Arial;font-weight:bold;color:#628c2a;font-size:100%;line-height:122%;}
  #ygrp-sponsor .ad a{
  text-decoration:none;}
  #ygrp-sponsor .ad a:hover{
  text-decoration:underline;}
  #ygrp-sponsor .ad p{
  margin:0;}
  o{font-size:0;}
  .MsoNormal{
  margin:0 0 0 0;}
  #ygrp-text tt{
  font-size:120%;}
  blockquote{margin:0 0 0 4px;}
  .replbq{margin:4;}
  --

  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]

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



   

[As partes desta mensagem que não 

[delphi-br] Obter o endereço da Porta LPT

2007-10-06 Por tôpico willer
Boa tarde.
Estou desenvolvendo uma rotina que verifica se existe uma impressora conectada 
à porta LPT. A rotina está pronta, só que ela recebe como parâmetro o endereço 
da porta LPT, por exemplo LPT1 = $378.
Alguém sabe se há alguma forma de obter o endereço da porta LPT tendo como 
parâmetro somente o nome da porta: LPT1 ou LPT2?
Já fiz algumas pesquisas, mas não consegui encontrar nada que me ajudasse...
Tentei acessar diretamente via asm, mas o windows xp não permite o acesso 
direto, dá erro de acesso à memória.




Agradeço desde já qualquer ajuda.


Willer.
Personal Computer.

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



Re: [delphi-br] Criar uma sequencia alfabética

2007-10-06 Por tôpico Andre - Yahoo
Realmente não vai funcionar, se o text do edit tiver apenas um caracter 
faça assim:

char(ord(copy(aeArtigo.Text,1,1)+1);





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


Re: [delphi-br] Criar uma sequencia alfabética

2007-10-06 Por tôpico Andre - Yahoo
O Problema é que a propriedade Text retorna uma string e vc precisa 
passar um caracter, tente pegar somente o caracter que quer gerar o 
próximo com o copy.


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



Re: [delphi-br] Criar uma sequencia alfabética

2007-10-06 Por tôpico iTELEFONICA
Oi Andre

Ainda não funcionou, pois continua dando incompatibilidade de tipo


   Clóvis Machado Ferreira
 Que o Grande Arquiteto do Universo nos Ampare
Msn-[EMAIL PROTECTED]
  - Original Message - 
  From: Andre - Yahoo 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Saturday, October 06, 2007 1:25 PM
  Subject: Re: [delphi-br] Criar uma sequencia alfabética


  O Problema é que a propriedade Text retorna uma string e vc precisa 
  passar um caracter, tente pegar somente o caracter que quer gerar o 
  próximo com o copy.


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




   

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