[delphi-br] windows 2008 com Terminal service e Quick Report + D7

2010-02-22 Por tôpico Pedro Vagner Rossi
Olá a todos

Pessoal, nao sei se o problema esta no meu sistema, mas vou explicar o que está 
acontecendo

Tenho um cliente que recentemente instalou um server2008 e esta utilizando 
terminal services para acessar a base remota.
Eles usam improssoras locais e o TS redireciona a impressão para local. 
Acontece que eles tem 2 impressoras na sala de vendas, 1 matricial e 1 jato de 
tinta. Todos imprimem so na matricial (por questao de custo), mas as vz o TS 
redireciona a impressão para a Jato de tinta mesmo que o pedido tenha sido 
feito para a matricial, e a partir dai aquela maquina so consegue imprimir na 
jato de tinta, mesmo que solicite na matricial. Isso so para quando o cliente 
fecha a secão do TS e entra novamente. Como nao fui eu quem intalei o Server 
2008 nem configurei o TS, entrei em contado com a pessoa que o fez, e ele disse 
que nunca aconteceu isso com as instalações dele e que ele nao sabe como 
solucionar.
Acontece que o cliente agora esta falando que ja que o fornecedor que instalou 
o server + TS disse que isso nunca aconteceu com ele, que entao o problema esta 
no meu sistema..

Jogar a batata quente nos outros é fácil


Mas vamos lá. 

Será que existe alguma possibilidade que que o Quick report + D7 esteja danto 
algum problema?
Esse mesmo sistema era antes sem TS numa estação windos XP via TCP/IP e nunca 
deu problema, agora o que eu posso fazer?

Alguem pode me ajudar?
Atenciosamente


Pedro V Rossi.

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



[delphi-br] Terminal Server + QrReport (meio off)

2009-08-24 Por tôpico Pedro Vagner Rossi
Olá a todos.

Tenho 1 sistema em D7 + qrReport rodando ja há 5 anos. Agora o Cliente criou 
uma filial e esta acessando o sistema via terminal service. O problema é que 
não consigo imprimir nada. O QrReport manda, mas não imprime nada local.

Alguem tem alguma dica?

Obrigado

Pedro V Rossi

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



Re: [delphi-br] Sniffer!

2007-01-18 Por tôpico Pedro Vagner Rossi
Só adicionando meu parecer.

Esta função pode funcionar, desde que o servidor pemita o acesso ao ping. Aqui 
onde trabalho, meus servidores são Linux, e em TODOS eles eu bloqueio acesso ao 
ping. Conclusão. Neste caso. Você vair ter que procurar outra saída.

Pedro V Rossi

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



Re: [delphi-br] Enviar email em HTML - RESOLVIDO

2006-03-31 Por tôpico Pedro Vagner Rossi
Achei a solução. (dá-lhe HELP do Delphi!)

Bom. Junto com o TidSmtp coloquei um TidMessage e na propriedade ContextType 
coloque text/html
e faça SeuIdMessage.Body.LoadFromFile('blablabla.htm');
NÃO coloque anexos na mensagem e pronto!


Obrigado aos que responderam.

  - Original Message - 
  From: Pedro Vagner Rossi 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, March 30, 2006 3:10 PM
  Subject: [delphi-br] Enviar email em HTML - URGENTE


  Olá a todos

  Tenho uma rotina que envia emails com o componete TIdSmtp da paleta Indy que 
está funcionando perfeitamente. O problema é que até o momento só enviava texto 
e anexos, porém me solicitaram que eu enviasse um Html com fotos e etc..


  Alguem sabe como fazer isto usando o mesmo componete, para que eu não tenha 
que alterar muito o código?


  Obrigado


  Pedro V Rossi.

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

 




[delphi-br] Enviar email em HTML - URGENTE

2006-03-30 Por tôpico Pedro Vagner Rossi
Olá a todos

Tenho uma rotina que envia emails com o componete TIdSmtp da paleta Indy que 
está funcionando perfeitamente. O problema é que até o momento só enviava texto 
e anexos, porém me solicitaram que eu enviasse um Html com fotos e etc..


Alguem sabe como fazer isto usando o mesmo componete, para que eu não tenha que 
alterar muito o código?


Obrigado


Pedro V Rossi.

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

 




[delphi-br] Quick Report (imprimir na vertical)

2006-02-14 Por tôpico Pedro Vagner Rossi
Bom dia a todos!
Uso D7 e quick report
Gostaria de saber se alguém de vocês que usa esta combinação, imprimi alguns 
Qrlabels na vertical?
Como? Vocês usam componetes extras de terceiros? Qual? É free? Pq se não for, 
não adianta pra mim.

Agradeço a atenção


Pedro V Rossi.

[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]
 
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] Resetar LX 300

2006-01-24 Por tôpico Pedro Vagner Rossi
Olá

Chr(27)+Chr(64)

este é o único comando de reset que conheço.
Algo mais específico, sugiro que vc acesso o site da epson e faça o dowload dos 
manuais.

[]'s
Pedro

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

 




[delphi-br] Programa de/para papelaria

2006-01-10 Por tôpico Pedro Vagner Rossi
Alguém tem algum exemplo de sistema rodando para uma papelaria pequena.
(cadernos, lápis, borracha, utilidades, etc...)


Obrigado


Pedro 






___ 
Yahoo! doce lar. Faça do Yahoo! sua homepage. 
http://br.yahoo.com/homepageset.html 



-- 
 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]
 
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] Ajuda para -Locate(...

2005-12-28 Por tôpico Pedro Vagner Rossi
Olá William
se a linha no livro está como você digitou então a linha foi publicada 
errada. A sintaxe é a seguinte:

DataModuleDados.SimpleDataSetSocios.Locate('NOME',EditPesquisa.Text,[LoPartialKey]);
ou
DataModuleDados.SimpleDataSetSocios.Locate('NOME',EditPesquisa.Text,[LoCaseInsensitive]);

e o VarArrayOf[campo1,campo2,..] só será necessário caso vc resolva fazer a 
busca por mais de um campo ao mesmo tempo. Como vc só esta buscando por 
'NOME' ele não é necessário.
Procure no Help do Delphi mais detalhes.

Abraços

Pedro
- Original Message - 
From: Welson Avelar
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, December 27, 2005 8:02 PM
Subject: Re: [delphi-br] Ajuda para -Locate(...


-x-
wsmassarelli escreveu:

Olá, Pessoal
Meu nome é William, estou tentando compilar um modulo de exemplo
do livro Delphi 7 - Curso completo do Marcelo Leão pagina 202
proced. 7, que pretende fazer uma pesquisa em uma tabela do interbase
através de um campo EDIT no Evento- OnChange,
mas está dando um erro no codigo:

DataModuleDados.SimpleDataSetSocios.Locate('NOME',VarArrayOf
(EditPesquisa.Text),LoPartialKey,LocaseInsensitive);

* me parece que estes parametros não estão sendo reconhecidos pelo
Delphi 7 LoPartialKey,LocaseInsensitive);
-x-

[Welson] Coloque o nome da unit DB no Uses da seção Interface do seu form.

Abraços...



=
Nunca ande pelo caminho traçado, pois ele conduz somente até onde os outros 
já foram.
Alexander Graham Bell
=
Welson de Avelar Soares Filho
Programador Delphi
Gemini Sistemas
www.geminisistemas.com.br
Juiz de Fora - Minas Gerais






___ 
Yahoo! doce lar. Faça do Yahoo! sua homepage. 
http://br.yahoo.com/homepageset.html 



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

 




[delphi-br] IBO_Grid

2005-10-07 Por tôpico Pedro Vagner Rossi
Alguém sabe como diminuir o tamanho da linha de um grid?

Na minha grid cabe por exemplo 10 linha mas sem aumentar o tamanho da grid eu 
queria que 15 fossem exibidas

IBO+Delphi7+Win98


Obrigado


Pedro Vagner Rossi

[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] Quick Report + D7

2005-08-26 Por tôpico Pedro Vagner Rossi
Obrigado! Já fiz e funcionou.

Tks
  - Original Message - 
  From: Walter Alves Chagas Junior 
  To: 'delphi-br@yahoogrupos.com.br' 
  Sent: Friday, August 26, 2005 9:17 AM
  Subject: RES: [delphi-br] Quick Report + D7


  Tem, faz a mesma coisa para a bpl dcltqr70

  []s

  Walter Alves Chagas Junior
  Projeto e desenvolvimento
  Telemont Engenharia de telecomunicações
  Belo Horizonte - MG - Brazil
  [EMAIL PROTECTED]
  Fone: (31) 3389-8215 Fax: (31) 3389-8200


  -Mensagem original-
  De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
  nome de Pedro Vagner Rossi
  Enviada em: sexta-feira, 26 de agosto de 2005 09:12
  Para: delphi-br@yahoogrupos.com.br
  Assunto: [delphi-br] Quick Report + D7


  Bom dia a Todos!
  Instalei o D7 e o Quick Report, mas estou com um problema, na barra do QRpt
  não tem o componete QRDBChart
  Alguém sabe se tem algo mais a ser instalada para que este componente
  apareça?


  Obrigado


  Pedro Vagner Rossi.

  [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








  [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!. 




--


  No virus found in this incoming message.
  Checked by AVG Anti-Virus.
  Version: 7.0.338 / Virus Database: 267.10.14/79 - Release Date: 22/08/2005


[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

 




[delphi-br] Leitora de Impressão Digital

2005-08-16 Por tôpico Pedro Vagner Rossi
Olá a todos!

Estou pensando em implantar LOGIN nas minha aplicação através de leitora de 
impressão digital (BIOPOD) da APC
Alguém de vocês já fez algo parecido?
Tem alguma DLL/OCX para acesso?
Como funciona o armazenamento da digital e comparação?
Uso D6, win98/XP, IBO

Atenciosamente


Pedro Vagner Rossi

[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

 





[delphi-br] Detectar qdo a aplicação está SEM uso

2005-08-09 Por tôpico Pedro Vagner Rossi
Olá a todos.

Gostaria de detectar qdo a aplicação está SEM uso:
Eu explico:
A aplicação está aberta, mas o usuário saiu da mesa, então após um certo tempo 
a aplicação requer um novo login ou fecha automaticamente.
Estive olhando o evento application.onidle, mas não consegui muita coisa.
Será que alguém já fez isto?


Atenciosamente.


Pedro Vagner Rossi

[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

 




[delphi-br] Documento do Word no Delphi (TWordDocument)

2005-07-19 Por tôpico Pedro Vagner Rossi
Olá a todos.

Estou com um probleminha meio difícil de resolver (procurei na Net, mas não 
achei resposta ainda).

Estou abrindo um documento do Word 97 com o Delphi
Este documento contém duas tabelas.

Já consegui trabalhar e alterar ou inserir dados em qualquer uma das tabelas 
existentes no documento, formatar fonte e parágrafo da tabela, mas estou com um 
problema...
Não consigo excluir uma linha quando sobrar na tabela, nem incluir uma linha na 
tabela quando faltar.

Alguém pode me ajudar?

Delphi5/6 Word97 componentes de acesso TWordDocument e TWordApplication da 
paleta Servers. SO. win98

Obrigado

Pedro Vagner Rossi

[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] Re: Documento do Word no Delphi (TWordDocument)

2005-07-19 Por tôpico Pedro Vagner Rossi
Exatamente isto. Como o dataset muda a quantidade de registros, não sei qtas 
linhas vou precisar na tabela, só deixo configurado no documento do word a 1ª 
linha (CABEÇALHOS) e pretendo incluir novas linhas conforme a qtde do dataset.
  - Original Message - 
  From: alejandro_ahr 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, July 19, 2005 5:00 PM
  Subject: [delphi-br] Re: Documento do Word no Delphi (TWordDocument)



  Oi Pedro

  Você esta importando dados (de um DataSet) para uma tabela já 
  existente no documento do word. Ai, o número de linhas da tabela não 
  bate com o numero de registros do DataSet... é isso? 

  Me responde se a minha interpretação do problema esta correta.
  Um abraço
  Alejandro

  --- Em delphi-br@yahoogrupos.com.br, Pedro Vagner Rossi 
  [EMAIL PROTECTED] escreveu
   Olá a todos.
   
   Estou com um probleminha meio difícil de resolver (procurei na Net, 
  mas não achei resposta ainda).
   
   Estou abrindo um documento do Word 97 com o Delphi
   Este documento contém duas tabelas.
   
   Já consegui trabalhar e alterar ou inserir dados em qualquer uma 
  das tabelas existentes no documento, formatar fonte e parágrafo da 
  tabela, mas estou com um problema...
   Não consigo excluir uma linha quando sobrar na tabela, nem incluir 
  uma linha na tabela quando faltar.
   
   Alguém pode me ajudar?
   
   Delphi5/6 Word97 componentes de acesso TWordDocument e 
  TWordApplication da paleta Servers. SO. win98
   
   Obrigado
   
   Pedro Vagner Rossi
   
   [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

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!. 




--


  No virus found in this incoming message.
  Checked by AVG Anti-Virus.
  Version: 7.0.323 / Virus Database: 267.9.2/52 - Release Date: 19/07/2005


[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] Re: Documento do Word no Delphi (TWordDocument)

2005-07-19 Por tôpico Pedro Vagner Rossi
No exemplo que vem com o Delphi tem como inserir uma imagem.

C:\Arquivos de 
programas\Borland\Delphi5\Demos\Activex\Oleauto\SrvComp\Word\pwordcomp.dpr


É de um data set, mas com algumas modificações deve ser possivel fazer o mesmo.

.
.
.
DBImgFishImg.CopyToClipboard;
WordDocument.Sentences.Last.Paste;
.
.
.
Espero ter ajudado, e obrigado pela dica. vou testar amanhã a tarde qdo tiver 
tempo
  - Original Message - 
  From: alejandro_ahr 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, July 19, 2005 7:16 PM
  Subject: [delphi-br] Re: Documento do Word no Delphi (TWordDocument)


  Oi Pedro

  Eu estou alterando um componente que baixei na net para que passando 
  para ele um TDBGrid ele transforme os dados do DBGrig em uma tabela 
  do word. Ele pega o DataSet do Grid..logo é muito parecido com o teu 
  caso. Ao criar a tabela no word, é passado o número de registros como 
  parametro na hora de criar a tabela do word.

  FWordApp.Documents.Item(1).Tables.Add(Range, 
  DataSource.DataSet.RecordCount+1, NumeroDeColunas);
  O +1 acima é para a linha utilizada como cabecario das colunas.


  Espero ter sido útil!

  Um abraço
  Alejandro

  Cara... estou com um problema e talves vc possa me ajudar...

  Quero incluir um logo no documento do Word, algo como 

  Document1.LoadFromFile('c:\logo.ico');

  Vc tem idéia de como fazer isso?

  Grato desde já






  --- Em delphi-br@yahoogrupos.com.br, Pedro Vagner Rossi 
  [EMAIL PROTECTED] escreveu
   Exatamente isto. Como o dataset muda a quantidade de registros, não 
  sei qtas linhas vou precisar na tabela, só deixo configurado no 
  documento do word a 1ª linha (CABEÇALHOS) e pretendo incluir novas 
  linhas conforme a qtde do dataset.
 - Original Message - 
 From: alejandro_ahr 
 To: delphi-br@yahoogrupos.com.br 
 Sent: Tuesday, July 19, 2005 5:00 PM
 Subject: [delphi-br] Re: Documento do Word no Delphi 
  (TWordDocument)
   
   
   
 Oi Pedro
   
 Você esta importando dados (de um DataSet) para uma tabela já 
 existente no documento do word. Ai, o número de linhas da tabela 
  não 
 bate com o numero de registros do DataSet... é isso? 
   
 Me responde se a minha interpretação do problema esta correta.
 Um abraço
 Alejandro
   
 --- Em delphi-br@yahoogrupos.com.br, Pedro Vagner Rossi 
 [EMAIL PROTECTED] escreveu
  Olá a todos.
  
  Estou com um probleminha meio difícil de resolver (procurei na 
  Net, 
 mas não achei resposta ainda).
  
  Estou abrindo um documento do Word 97 com o Delphi
  Este documento contém duas tabelas.
  
  Já consegui trabalhar e alterar ou inserir dados em qualquer 
  uma 
 das tabelas existentes no documento, formatar fonte e parágrafo 
  da 
 tabela, mas estou com um problema...
  Não consigo excluir uma linha quando sobrar na tabela, nem 
  incluir 
 uma linha na tabela quando faltar.
  
  Alguém pode me ajudar?
  
  Delphi5/6 Word97 componentes de acesso TWordDocument e 
 TWordApplication da paleta Servers. SO. win98
  
  Obrigado
  
  Pedro Vagner Rossi
  
  [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
   
   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!. 
   
   
   
   
   
  --
   
   
 No virus found in this incoming message.
 Checked by AVG Anti-Virus.
 Version: 7.0.323 / Virus Database: 267.9.2/52 - Release Date: 
  19/07/2005
   
   
   [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

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

Re: [delphi-br] Como enviar um e-mail com arquivo atachado

2005-01-27 Por tôpico Pedro Vagner Rossi

Eu faço assim

TIdAttachment.Create(IdMsgSend.MessageParts, 'c:\arquivo');

- Original Message - 
From: Marcelo Carvalho [EMAIL PROTECTED]
To: [EMAIL PROTECTED]; delphi-br@yahoogrupos.com.br;
[EMAIL PROTECTED];
[EMAIL PROTECTED]; [EMAIL PROTECTED]
Sent: Thursday, January 27, 2005 3:27 PM
Subject: [delphi-br] Como enviar um e-mail com arquivo atachado



Pessoal,

Estou usando D7 e utilizando os componentes do Indy, como posso fazer para
enviar um e-mail com um arquivo atachado 


Atenciosamente,

Marcelo Carvalho


Essa mensagem, incluindo seus anexos, tem caráter confidencial e seu
contéudo
é restrito ao(s) destinatário(s) da mensagem.
Qualquer uso nao autorizado, replicaçao ou disseminaçao desta mensagem ou
parte dela é expressamente proibido.
Esse e-mail foi certificado contra virus.
ISCMPA - Irmandade da Santa Casa de Misericórdia de Porto Alegre



[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











-- 
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 265.7.6 - Release Date: 27/01/2005




-- 
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 265.7.6 - Release Date: 27/01/2005



-- 
 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] Enviar Email p/ delphi 6

2005-01-24 Por tôpico Pedro Vagner Rossi

Obrigado pela dica, Vou testar.


- Original Message - 
From: Rodrigo Ribeiro [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Monday, January 24, 2005 9:00 AM
Subject: Re: [delphi-br] Enviar Email p/ delphi 6



 Use o componente TNMPOP3, passando para o componente nome de usuário e
 senha. Depois execute o comando CONNECT do componente. Antes de prosseguir
 com a rotina de envio de e-mail, verfique se o componente POP3 está de
fato
 conectado

 Mais ou menos assim (o código abaixo foi tirado do histórico do fórum):

 //Processo de reconhecimento no POP3 do UOL
 NMPOP31.AttachFilePath := '.';
 NMPOP31.DeleteOnRead := FALSE;
 NMPOP31.ReportLevel := Status_Basic;
 NMPOP31.TimeOut := 2;
 NMPOP31.Host := 'pop.uol.com.br';
 NMPOP31.Port := 110;
 NMPOP31.UserID := 'MeuLogin';
 NMPOP31.Password := 'Minha Senha';
 NMPOP31.Connect;
 //Conexão não feita ele sai
 //Conexão feita ele desconecta e prossegue
 if not NMPOP31.Connected then exit else NMPOP31.Disconnect;
 //Prosseguindo ele agora tenta se conectar ao SMTP do UOL
 NMSMTP1.ClearParams := TRUE;
 NMSMTP1.Host := 'smtp.uol.com.br'
 NMSMTP1.Port := 25;
 NMSMTP1.UserID := 'MeuLogin'
 NMSMTP1.Connect;
 //Conexão não feita ele sai
 //Conexão feita ele prossegue
 If not NMSMTP1.Connected then exit;
 //Processo de envio
 NMSMTP1.PostMessage.Body.Clear;
 NMSMTP1.PostMessage.ToAddress.Clear;
 NMSMTP1.PostMessage.FromAddress := '[EMAIL PROTECTED]'
 NMSMTP1.PostMessage.FromName := 'Meu Nome Completo'
 NMSMTP1.PostMessage.Body.Add('Teste de envio de email');
 NMSMTP1.PostMessage.Subject := ('Teste de Envio');
 NMSMTP1.PostMessage.ToAddress.Add('[EMAIL PROTECTED]');
 NMSMTP1.SendMail;

 [ ]'s e Boa Sorte

 Rodrigo

 - Original Message -
 From: Pedro Vagner Rossi [EMAIL PROTECTED]
 To: delphi-br@yahoogrupos.com.br
 Sent: Monday, January 24, 2005 7:32 AM
 Subject: [delphi-br] Enviar Email p/ delphi 6


 
  Olá a todos.
 
  Eu uso o componente TNMSMTP para enviar mensagens pelo Delphi.
  Alguém sabe como enviar mensagem qdo se usa um servidor que requer
  autenticação de senha para envio?
 
 
  Obrigado
 
 
  Pedro Vagner Rossi
 
 
 
  --
   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
 
 
 
 
 
 
 
 
 
 




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












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

 





[delphi-br] Enviar Email p/ delphi 6

2005-01-24 Por tôpico Pedro Vagner Rossi

Olá a todos.

Eu uso o componente TNMSMTP para enviar mensagens pelo Delphi.
Alguém sabe como enviar mensagem qdo se usa um servidor que requer
autenticação de senha para envio?


Obrigado


Pedro Vagner Rossi



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

 




[delphi-br] Componente para QuickReport

2004-12-02 Por tôpico Pedro Vagner Rossi

Olá a todos,

Alguém conhece ou tem algum componente free para QuickReport que tenha saída
justificada para QRMemo?
Ou sabe como fazer para se justificar o mesmo, pois as opções são só Center,
Left ou Right.

Obrigado

Pedro Vagner Rossi



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

 





[delphi-br] Quick Report (exportar para Excel)

2004-11-04 Por tôpico Pedro Vagner Rossi

Tenho um relatório do tipo
Nome  Data de NascimentoSexo
JOÃO DA SILVA22/11/1950   M
MARIA DOS SANTOS31/05/1980   F
.
.
.

Gostaria de saber se alguem sabe como exportar para o excel de forma que cada coluna 
no meu relatório seja também uma coluna no excel.
Tentei exportar como cvs, mas o resultado foi uma única coluna contendo as três 
colunas minhas, separadas por ; 'ponto e vírgula'
Existe algum componente do QR (free) que faça isto?
PS.: Já estou exportando para um arquivo texto, e depois o usuário importa para o 
excel, mas gostaria de fazer este processo pelo Delphi.

Agradeço a ajuda

Pedro Vagner Rossi

[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] Pesquisa fonética.

2004-09-16 Por tôpico Pedro Vagner Rossi
Esta é a cópia de uma mensagem que recebi neste mesmo grupo em 2/3/2004

segue abaixo
---
INÍCIO

Galera alguem sabe onde tem algum componente que trabalha com
comparações foneticas em Português. Eu testei a função Soundex() do
delphi más não foi 100%. Eu testei Ilma e Hilma más não deu certo
porque Hilma em ingles tem a pronuncia de Rilma, já com o Frank e
Franq deu certo, Más tudo Bem. Caso alguem não saiba sobre o
componente gostária de saber se alguem consegue converte este código
fonte para a fonetica em portugues. Valeu desde já agradeço.

// Source for: http://www.ibphoenix.com/a475.htm
function SoundBts(Name : PChar) : SmallInt;
Const
{This table gives the SoundEX SCORE for all characters Upper and
Lower Case
hence no need to convert. This is faster than doing an UpCase on the
whole input string
The 5 NON Chars in middle are just given 0}

SoundExTable : Array[65..122] Of Byte
//A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [ / ] ^ _ '
=(0,1,2,3,0,1,2,0,0,2,2,4,5,5,0,1,2,6,2,3,0,1,0,2,0,2,0,0,0,0,0,0,
//a b c d e f g h i j k l m n o p q r s t u v w x y z
  0,1,2,3,0,1,2,0,0,2,2,4,5,5,0,1,2,6,2,3,0,1,0,2,0,2);

Var
  i, l, s, SO, x : Byte;
  Multiple : Word;

begin
  If Name   '' then   //do nothing if
nothing is passedthen begin
  begin
Result := Ord(UpCase(Name[0]));   //initialise to first
character
SO := 0;  //initialise last char as 0
Multiple := 26;   //initialise to 26 char of
alphabet
l := Pred(StrLen(Name));  //get into var to save
repeating function
For i := 1 to l do//for each char of input str
begin
  s := Ord(name[i]);  //*
  If (s  64) and (s  123)   //see notes * below
  then begin
x := SoundExTable[s]; //get soundex value
If (x  0)//it is a scoring char
AND (x  SO) //is different from
previous char
then begin
  Result := Result + (x * Multiple); //avoid use of POW as it
needs maths unit
  If (Multiple = 26 * 6 * 6)  //we have done enough (NB
compiles to a const
 then break;  //We have done, so
leave loop
  Multiple := Multiple * 6;
  SO := x;//save for next round
end;  // of if a scoring char
  end;//of if in range of SoundEx
table
end;  //of for loop
  end else result := 0;
end;



-
FIM

Nunca cheguei a testar, mas se funcionar me dê um parecer...
Pedro Vagner Rossi.



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