Re: [delphi-br] abrir PDF com delphi

2007-12-11 Por tôpico Fernando - ASPIN Tecnologia
Para abrir o arquivo com o programa associado no S.O.:


procedure ExecFileAssociado(F: String);
var
   r: String;
begin
case ShellExecute(0{Handle}, nil, PChar(F), nil, nil, SW_SHOWNORMAL) of
ERROR_FILE_NOT_FOUND: r := 'The specified file was not found.';
ERROR_PATH_NOT_FOUND: r := 'The specified path was not found.';
ERROR_BAD_FORMAT: r := 'The .EXE file is invalid (non-Win32 .EXE or error 
in .EXE image).';
SE_ERR_ACCESSDENIED: r := 'Windows 95 only: The operating system denied 
access to the specified file.';
SE_ERR_ASSOCINCOMPLETE: r := 'The filename association is incomplete or 
invalid.';
SE_ERR_DDEBUSY: r := 'The DDE transaction could not be completed because 
other DDE transactions were being processed.';
SE_ERR_DDEFAIL: r := 'The DDE transaction failed.';
SE_ERR_DDETIMEOUT: r := 'The DDE transaction could not be completed because 
the request timed out.';
SE_ERR_DLLNOTFOUND: r := 'Windows 95 only: The specified dynamic-link 
library was not found.';
SE_ERR_NOASSOC: r := 'There is no application associated with the given 
filename extension.';
SE_ERR_OOM: r := 'Windows 95 only: There was not enough memory to complete 
the operation.';
SE_ERR_SHARE: r := 'A sharing violation occurred.';
else
Exit;
end;
Application.MessageBox(PChar(r),'Anexos',MB_OK or MB_APPLMODAL or MB_ICONERROR);
end;



  - Original Message - 
  From: Jhosef Marks 
  To: [EMAIL PROTECTED] ; delphi-br@yahoogrupos.com.br ; [EMAIL PROTECTED] 
  Sent: Tuesday, December 11, 2007 4:21 PM
  Subject: [delphi-br] abrir PDF com delphi


  Como eu executo um arquivo PDF pelo Delphi???
  Naum quero abrir no Delphi, quero apertar um botão eexecutar o arquivo PDF
  ou um arquivo RTF...

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

  [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] Botão''''' Não ''''' Focu

2005-10-05 Por tôpico Fernando - ASPIN Tecnologia
Se não me engano, MB_DEFBUTTON2:

MB_ICONQUESTION + MB_YESNO + MB_DEFBUTTON2
  - Original Message - 
  From: Thiago Oliveira 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, October 05, 2005 10:30 AM
  Subject: [delphi-br] Botão' Não ' Focu


  Amigos,


  Executando esse codigo ai em baixo, o botão 'Sim' sempre recebe o Focu, como
  faço para fazer com que o Botão 'Não' receba o Focu...

  if Application.MessageBox('Continuar?','Empresa', MB_ICONQUESTION +
  MB_YESNO) = ID_YES then

  Valeu.
  Thiago


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



  -- 
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

  Para ver as mensagens antigas, acesse:
  http://br.groups.yahoo.com/group/delphi-br/messages

  Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por: 
 
  PlayStation 2 a partir de R$ 659! Parcele! Celular Motorola com 
câmera a partir de R$ 449! 
  Siemens SL65 com câmera a partir de R$ 730!  Câmeras Digitais a 
partir de apenas R$ 399! Parcele! 
  CD Players Pioneer a partir de R$ 369! MP3 Player iPod a partir 
de R$ 799! Parcele! 
   


--
  Links do Yahoo! Grupos

a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
  
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
  
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço 
do Yahoo!. 



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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 




Re: [delphi-br] ### chamar html ###

2005-06-06 Por tôpico Fernando - ASPIN Tecnologia
ShellExecute(Application.Handle, nil, PChar('www.xx.com.br'), nil, nil, 
SW_SHOWNORMAL);

__
FERNANDO BELLIN

  - Original Message - 
  From: Luciana 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, June 06, 2005 11:40 AM
  Subject: [delphi-br] ### chamar html ###


  Bom-dia,

  Preciso criar um botão em um form e ao ser clicado, uma página html 
  deverá ser exibida (pelo próprio ie).

  Como eu faço? Alguém tem algum exemplo? 

  obrigada.

  Luciana





  -- 
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

  Para ver as mensagens antigas, acesse:
  http://br.groups.yahoo.com/group/delphi-br/messages

  Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]




--
  Links do Yahoo! Grupos

a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
  
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
  
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço 
do Yahoo!. 



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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 




Re: [delphi-br] String to Char

2005-04-11 Por tôpico Fernando - ASPIN Tecnologia

Get_Tipo(Aux[1]);

Fernando.


  - Original Message - 
  From: Ricardo Mauro 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, April 11, 2005 2:32 PM
  Subject: [delphi-br] String to Char


  Boa tarde!

  Como converter um caracter do tipo String para Char.

  ex.: procedure Get_Tipo(tipo: Char);

  no momento para chamar a procedure.

  var
  Aux: String;
  begin
  Aux := 'A';
  Get_Tipo(Aux); -- Tenho que converter para char, senao, da erro. Como 
fazer???
  end;


  Obrigado

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



  -- 
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

  Para ver as mensagens antigas, acesse:
  http://br.groups.yahoo.com/group/delphi-br/messages

  Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por: 
 
 
  
 
   


--
  Links do Yahoo! Grupos

a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
  
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
  
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço 
do Yahoo!. 



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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 





Re: [delphi-br] recordcount é confiável?

2005-01-11 Por tôpico Fernando - ASPIN Tecnologia

Já tive problemas com o recordcount retornando -1. Geralmente isto acontecia 
quando usava sqls do tipo select * from Geralmente, trocando o * pelos 
campos (trazendo menos dados) voltava a funcionar.

Fernando.

  - Original Message - 
  From: delphi6_2005 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, January 11, 2005 8:36 AM
  Subject: [delphi-br] recordcount é confiável?



  Trabalho com querys em banco SQL Server, estou com problemas e 
  acredito que a propriedade recordcount de minhas querys não estão 
  funcionando 100%.
  Tenho um select simples em uma query porém as vezes o recordcount 
  retorna certo e as vezes não.

  Estou usando assim simples.

  Query1.close;
  Query1...(Select * from);
  query1.open;
  if query1.recordcount  0 then
 update;
  else
 insert;

  Alguma forma melhor de pesquisa em SQL Server.

  Amigo agradeço a ajuda.

  Paulo





  -- 
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

  Para ver as mensagens antigas, acesse:
  http://br.groups.yahoo.com/group/delphi-br/messages

  Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por: 
 
 
  
 
   


--
  Links do Yahoo! Grupos

a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
  
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
  
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço 
do Yahoo!. 



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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 





Re: [delphi-br] PageControl

2004-10-25 Por tôpico Fernando - ASPIN Tecnologia


PageControl.ActivePage:=TabSheet;

Fernando.

  - Original Message - 
  From: Charlles Ferdinand 
  To: Delphi-Br 
  Sent: Monday, October 25, 2004 1:05 PM
  Subject: [delphi-br] PageControl


  Pessoal como fazer para que o sistema abra, com a 1ª aba (TabSheet) de uma
  PageControl, ativada, porque esta pagecontrol tem 2 abas, e como o cadastro
  termina na segunda aba, quando o sistema abre, esta sempre com a 2 aba
  ativa.
  Charlles Ferdinand
  Analista Contábil
  Tel.: (22) 2622-9739


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



  -- 
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

  Para ver as mensagens antigas, acesse:
  http://br.groups.yahoo.com/group/delphi-br/messages

  Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por: 
  PUBLICIDADE

   


--
  Links do Yahoo! Grupos

a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
  
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
  
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do 
Yahoo!. 



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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 





Re: [delphi-br] QR e LX-300

2004-10-01 Por tôpico Fernando - ASPIN Tecnologia
Alguns problemas similares resolvi colocando como papel personalizado nas 
configurações da impressora (em vez de deixar A4 ou Letter).

__
FERNANDO BELLIN

  - Original Message - 
  From: sr_doidera . 
  To: [EMAIL PROTECTED] ; [EMAIL PROTECTED] ; [EMAIL PROTECTED] 
  Sent: Thursday, September 30, 2004 10:53 PM
  Subject: [delphi-br] QR e LX-300


  to tendo um serio problema com as LX-300´s da vida!
  o que ta acontecendo e que eu defino o pager.options do quickrep como 
  cunstom e deixo ele do tamanho adequado do que vai ser impresso! em 
  impressoras jatos-de-tinta ta tudo ok mas nas matriciais elas imprimem 
   e so!
  eu to precisando de uma dessas soluçoes:

  1- fazer a matricial funcionar normalmente com quickrep do tamanho custom
  2- fazer ela nao andar o papel ate o fim do tamanahm configurado, so 
  imprimir o necessario e parar.

  obs.: pode ser uma solucao para a impresora ou pro delphi!
  t+

  _
  MSN Messenger: converse com os seus amigos online.  
  http://messenger.msn.com.br



  -- 
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

  Para ver as mensagens antigas, acesse:
  http://br.groups.yahoo.com/group/delphi-br/messages

  Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por: 
  


--
  Links do Yahoo! Grupos

a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
  
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
  
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do 
Yahoo!. 



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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 



Re: [delphi-br] Removi uma unit e esta dando erro ...

2004-09-10 Por tôpico Fernando - ASPIN Tecnologia
Em algum form você ainda tem a referência a este form na uses onde era usado.

Fernando.

  - Original Message - 
  From: Italo Rabello 
  To: [EMAIL PROTECTED] 
  Sent: Friday, September 10, 2004 4:02 PM
  Subject: [delphi-br] Removi uma unit e esta dando erro ...


  Olá pessoal,

  Removi uma unit q nao ia mais usar do meu projeto, e após isso ele nao compila .. 
dizendo que:

  [Fatal Error] unPrincipal.pas(123): File not found: 'unRelCalculoSim.dcu'

  e posiciona o cursor onde indicarei com: 


  uses unDataModule, unEmpregado, unTipoDepedente, unTipoBeneficio,
unBeneficio, unFaixaSalarial, unMovimentacao, unParametro, unTarifas,
unRelBeneficios, unRelFunCad, unTelaEscolha, unTipodeFerias, unViewLog,
unBilhetesResiduais, unTelaEscolhaMes, unRelAssocIdades, unRelFaixa;


  Pode me ajudar? o q devo fazer? 

  Abraços
  Ítalo Rabello

  
  -
  Yahoo! Messenger 6.0 - jogos, emoticons sonoros e muita diversão. Instale agora!

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




  -- 
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

  Para ver as mensagens antigas, acesse:
  http://br.groups.yahoo.com/group/delphi-br/messages

  Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por: 
  


--
  Links do Yahoo! Grupos

a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
  
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
  
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do 
Yahoo!. 



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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html