Re: [delphi-br] NFe - Impressão do DANFE

2009-02-06 Por tôpico fabricio mata de castro
o link pra versão demo

http://www.pointltda.com.br/produtos/setup_nfe4_trial.exe


O NFe For Delphi é um componente de emissão de notas fiscais eletrônicas,
que realiza a integração de sistemas desenvolvidos na linguagem Delphi com a
Nota Fiscal Eletrônica da Receita Federal.

Compatibilidade:
Sistemas desenvolvidos na linguagem de Programação Delphi (7 – 2005 – 2006 –
2007 – 2009)
Plataforma Win32
Não utiliza nenhum FRAMEWORK DOTNET

Funcionalidade:
Envio, cancelamento e consulta das notas fiscais;
Impressão do DANFE;
Assinatura digital;
Log das Operações;
Envio em lote;
Integração por arquivos XML e TXT

Disponibilizamos uma versão demo para testes, juntamente com um manual de
instruções.

Valor do Componente:
1) Com fontes: Valor R$ 4.000,00 ( 4 x R$ 1.000,00 )
2) Sem fontes: Valor R$ 2.000,00 ( 4 x R$ 500,00 )

Para pagamentos à vista : 5% de desconto

Forma de pagamento: Depósito em conta ou boleto bancário

Qualquer dúvida entrar em contato por:

Telefone: 32 3721-5692
MSN: pointl...@hotmail.com fellipepo...@hotmail.com


Contato: Fellipe / Fabrício ou João Carlo

2009/1/28 valdirdill valdird...@infolivre.com.br

   Olá colegas,

 Estou trabalhando no desenvolvimento da NFe. A parte geração do .xml,
 assinatura, e conexão e transmissão para WS estão praticamente OK.

 Meu próximo passo é imprimir o DANFE, e para isso, gostaria da opinião
 dos colegas que já estão com esse módulo pronto.

 É assim: tenho o arquivo .xml assinado e que foi transmitido para a
 SEFAZ. Tudo certinho. Minha dúvida é: a partir desse arquivo, qual a
 melhor forma e capturar os dados da NFe e imprimir o DANFE? Me refiro a
 como efetuar a leitura do arquivo para passar os dados para dataSet e
 gerar o relatório (Fast ou Fortes - Delphi 7).
 Tenho pouca experiência com Delphi/XML, mas andei lendo algo sobre
 XMLTransformProvider. Seria essa a melhor opção?

 Qualquer dica ajudará.

 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:
delphi-br-ow...@yahoogrupos.com.br
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:
delphi-br-unsubscr...@yahoogrupos.com.br

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




[delphi-br] Re: Conectar Oracle com Delphi 5

2009-02-06 Por tôpico Josir Gomes
Olá Edmilson,

se ele não está usando BDE, ele deve estar usando:

1. ADO - não recomendo - é muito lento e pode dar problemas de
incompatibilidade com a versão específica do ADO (2.1, 2.2, etc) que
estiver instalada na máquina. Mas roda com Delphi 5 apesar do suporte
no Delphi 7 ser bem melhor.

2. ODAC - é a melhor solução mas é paga - uso ODAC a 7 anos e nunca
tive problemas com ele. Não precisa nem do Oracle Client e do TNSNAMES.

3. TOra - grátis mas bem limitado - se vc não tem orçamento para usar
o ODAC, então cai dentro desse.

Boa Sorte,
Josir.


--- Em delphi-br@yahoogrupos.com.br, Edmilson Pontes
espdevelo...@... escreveu

 Colegas,
 Peguei uma aplicação em Delphi 5 e Oracle para dar manutenção e estou
 passando por um certo problema.
 Nos fontes que estão comigo a aplicação faz conexão com o banco Oracle
 através do BDE e componentes da paleta DataAccess.
 O usuário da aplicação tem um executável que não precisa do BDE
configurado,
 ele necessita apenas da configuração no arquivo tnsnames.
 Minha pergunta é:
 Como faço a conexão com um banco oracle através do Delphi 5 usando os
 componentes da paleta DataAccess sem usar BDE.
 
 Agradeço qualquer ajuda e/ou observações,
 
 Edmilson Pontes
 
 
 [As partes desta mensagem que não continham texto foram removidas]





Re: [delphi-br] Artigo Recomendado: Records com Mét odos e propriedadas

2009-02-06 Por tôpico Joao Morais
2009/2/5 Ricardo César Cardoso ricardo_engs...@yahoo.com.br:
 Bom dia a todos!

 Fuçando no blog do Daniel Maltarolli [ http://singularsistemas.com.br/blog/ 
 ], vi esse artigo
 bem interessante e confesso que me senti um total ignorante, pois achava que 
 isso nem
 era possível de sem implementado.

 Parece ser uma boa saída para alguns problemas do dia a dia.

 [ 
 http://singularsistemas.com.br/blog/2009/01/records-com-metodos-e-propriedades/
  ]

Poizé, isso nada mais é do que o velho e deprecated object. Se for
procurar por object na documentação do Delphi, você nota que a
recomendação é para o uso de classes.

Joao Morais


[delphi-br] Impressão direta para USB

2009-02-06 Por tôpico Ricardo César Cardoso
Bom dia!

Pesquisando sobre o assunto para um colega de outra lista, me deparei com o 
seguinte código fonte:

[code]
var
  Arq : TextFile
Begin
  if PrintDialog1.Execute then begin
AssingPrn(Arq);
ReWrite(arq);
Writeln(Arq, 'Este é um teste !!');
CloseFile(Arq);
  end;
End;
[/code]

Alguém que tenha uma impressora USB poderia fazer a caridade de testar se esse 
código funciona? Se tiver mais de uma impressora e puder repetir o teste seria 
ótimo. 

Muito do material que achei para impressão USB está em inglês e é muito 
nebuloso, para não dizer um quebra-cabeça. Se o código acima funcionar, 
problema resolvido. Mas se não funcionar, queria tentar montar esse 
quebra-cabeça.

[]'s
Ricardo.
_
Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!


  Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com


Re: [delphi-br] Artigo Recomendado: Records com Mét odos e propriedadas

2009-02-06 Por tôpico Joao Morais
2009/2/6 Ricardo César Cardoso ricardo_engs...@yahoo.com.br:
 Bom dia João!

 Aproveitando que você deu um comentário a esse tópico, queria tirar uma 
 dúvida que eu
 coloquei lá nos comentários do blog e queria só verificar se isso mesmo:

 Perguntei lá no Blog:
 Agora duas dúvidas: é possível e, em caso afirmativo como faria para
 ter comportamento semelhante ao retratado (records com métodos e
 propriedades) com em versões anteriores do Delphi como por exemplo
 D2005 ou D7?

 A resposta que tive:
 Nuno Figueiredo on
February 5th, 2009 10:16 am


Excelente artigo.

 Respondendo a pergunta do Ricardo Cardoso, nas versoes anteriores a
 2006, pode-se utilisar o object cuja sintaxe é quase identica, sendo
 que vc pode trata-lo como uma variavel ou como um ponteiro:
 type

  pMeuObjeto = ^tMeuObjeto;

  tMeuObjeto = Object

   .

   .

   .

  end;
 var

  meuOjeto: pMeuObjeto;
 Neste caso voce está tratando o objeto como ponteiro e deve cuidar muito o 
 constructor e o destructor.
 Abracos

 Nuno

 Mas aí o comportamento não vai ser o mesmo que o proposto no artigo, ou vai? 
 Ainda
 fiquei na dúvida aqui...

Vai ser, sim. Objeto é tão estático quanto um record. A única
diferença entre record com método e objeto é que objeto pode ter
herança, e record não pode. Mas em nível de gerenciamento de memória
os dois são idênticos.

Talvez a sua dúvida tenha referência ao fato do Nuno falar em
ponteiros. Objetos ou records podem ser criados tanto de forma
estática quanto dinâmica, como qualquer outro tipo estático como
Integer ou Variant.

Joao Morais


Re: [delphi-br] Artigo Recomendado: Records com M étodos e propriedadas

2009-02-06 Por tôpico Ricardo César Cardoso
Então João, a dúvida nem foi tanto pelos ponteiros. Foi mais pelo fato de que 
pelo que eu acho que entendi, records quando criados, são automaticamente 
destruidos, ao passo que nesse caso eu tenho que explicitamente criar e 
destruir (liberar com Free) o objeto.

É isso ou eu misturei alguma coisa? 

[]'s
Ricardo.

_

Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!

--- Em sex, 6/2/09, Joao Morais jcmorai...@gmail.com escreveu:

2009/2/6 Ricardo César Cardoso ricardo_engsoft@ yahoo.com. br:
 Bom dia João!

 Aproveitando que você deu um comentário a esse tópico, queria tirar uma 
 dúvida que eu
 coloquei lá nos comentários do blog e queria só verificar se isso mesmo:

 Perguntei lá no Blog:
 Agora duas dúvidas: é possível e, em caso afirmativo como faria para
 ter comportamento semelhante ao retratado (records com métodos e
 propriedades) com em versões anteriores do Delphi como por exemplo
 D2005 ou D7?

 A resposta que tive:
 Nuno Figueiredo on
 February 5th, 2009 10:16 am


Excelente artigo.

 Respondendo a pergunta do Ricardo Cardoso, nas versoes anteriores a
 2006, pode-se utilisar o object cuja sintaxe é quase identica, sendo
 que vc pode trata-lo como uma variavel ou como um ponteiro:
 type

  pMeuObjeto = ^tMeuObjeto;

  tMeuObjeto = Object

   .

   .

   .

  end;
 var

  meuOjeto: pMeuObjeto;
 Neste caso voce está tratando o objeto como ponteiro e deve cuidar muito o 
 constructor e o destructor.
 Abracos

 Nuno

 Mas aí o comportamento não vai ser o mesmo que o proposto no artigo, ou vai? 
 Ainda
 fiquei na dúvida aqui...

Vai ser, sim. Objeto é tão estático quanto um record. A única diferença entre 
record com método e objeto é que objeto pode ter herança, e record não pode. 
Mas em nível de gerenciamento de memória os dois são idênticos.

Talvez a sua dúvida tenha referência ao fato do Nuno falar em ponteiros. 
Objetos ou records podem ser criados tanto de forma estática quanto dinâmica, 
como qualquer outro tipo estático como Integer ou Variant.

Joao Morais



  Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com


[delphi-br] Re: Impressão direta para USB

2009-02-06 Por tôpico deco0_07
Bom, aqui funcionou, só precisei declarar na uses Printers pro 
AssisgnPrn..

--- Em delphi-br@yahoogrupos.com.br, Ricardo César Cardoso 
ricardo_engs...@... escreveu

 Bom dia!
 
 Pesquisando sobre o assunto para um colega de outra lista, me 
deparei com o seguinte código fonte:
 
 [code]
 var
   Arq : TextFile
 Begin
   if PrintDialog1.Execute then begin
 AssingPrn(Arq);
 ReWrite(arq);
 Writeln(Arq, 'Este é um teste !!');
 CloseFile(Arq);
   end;
 End;
 [/code]
 
 Alguém que tenha uma impressora USB poderia fazer a caridade de 
testar se esse código funciona? Se tiver mais de uma impressora e 
puder repetir o teste seria ótimo. 
 
 Muito do material que achei para impressão USB está em inglês e é 
muito nebuloso, para não dizer um quebra-cabeça. Se o código acima 
funcionar, problema resolvido. Mas se não funcionar, queria tentar 
montar esse quebra-cabeça.
 
 []'s
 Ricardo.




Re: [delphi-br] Impressão

2009-02-06 Por tôpico O2 Tecnologia (aJato)


Printer.Refresh, apenas.  Faço isso aqui e as minhas aplicações 
reconhecem a nova configuração do gerenciador de impressões.


Alex Antunes escreveu:

 Pessoal,

 Imaginem a situação, ao entrar no sistema carrego todas as impressoras
 no objeto TPrinter.

 E continuo trabalhando normalmente usando o sistema.

 Se eu alterar a impressora padrão no Windows, como posso fazer o sistema
 entender que mudou ? NO Tprinter ele não entende que mudou. O que preciso
 fazer :?


 Alex

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

 


 __ Information from ESET NOD32 Antivirus, version of virus 
 signature database 3830 (20090205) __

 The message was checked by ESET NOD32 Antivirus.

 http://www.eset.com


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



Re: [delphi-br] Artigo Recomendado: Records com Mét odos e propriedadas

2009-02-06 Por tôpico Joao Morais
2009/2/6 Ricardo César Cardoso ricardo_engs...@yahoo.com.br:
 Então João, a dúvida nem foi tanto pelos ponteiros. Foi mais pelo fato de que 
 pelo que eu
 acho que entendi, records quando criados, são automaticamente destruidos, ao 
 passo que
 nesse caso eu tenho que explicitamente criar e destruir (liberar com Free) o 
 objeto.

 É isso ou eu misturei alguma coisa?

Olá Ricardo.

Mais ou menos. O que precisa ser criado é a classe que, quando
instanciada, transforma-se em objeto. Quando eu falo em objeto eu falo
de algo assim:

TPessoa = object
  ...

E um suposto

VPessoa: TPessoa;

pode ser usado diretamente, sem criar e sem destruir.

Quando fala-se em objeto (object, e não instância da classe) e record,
não se fala em criar e destruir. A área que eles ocupam são as mesmas
ocupadas por um Integer da vida - o stack. Veja objeto e record como
um 'integerzão' que você define ao seu gosto e com a estrutura que lhe
convem, e uma vez declarado através de uma variável, sua área pode ser
populada sem precisar alocar.

No entanto, tanto record quanto objetos tem usos bem específicos mas
estão longe de, mesmo que em parte, substituir uma classe e tudo o que
a envolve.

Joao Morais


Re: [delphi-br] Delphi e Firebird

2009-02-06 Por tôpico Rubem
Ok. Valeu Humberto.
Grato pela atenção.





--- Em qui, 5/2/09, Humberto Oliveira holiveira.wordpr...@gmail.com escreveu:

De: Humberto Oliveira holiveira.wordpr...@gmail.com
Assunto: Re: [delphi-br] Delphi e Firebird
Para: delphi-br@yahoogrupos.com.br
Data: Quinta-feira, 5 de Fevereiro de 2009, 17:31






Rafig,

se você não instalar o Firebird na máquina do seu cliente, sem chances de
funcionar.
O detalhe de ter o driver do banco de dados na máquina, é somente para
comunicação de componentes que você utiliza e o próprio Firebird.

Agora me explica uma coisa. Você tem o banco de dados na sua máquina de
desenvolvimento, com tabelas, campos, índices, procedures, trigger´s e tudo
mais, e como quer que seu sistema funcione sem todos estes objetos na
máquina do seu cliente?

Se foi isso que eu entendi, não tem como funcionar.

2009/2/5 Rubem rafi...@yahoo. com.br

 Prezado Evandro,
 Muito obrigado pela sua atenção.
 Mas o problema é que eu não gostaria de instalar o o firebird no computador
 de meu cliente, preciso colocar lá somente o necessário.
 Rafig

 --- Em ter, 3/2/09, Evandro Siqueira vans...@gmail. comvansiqq%40gmail. 
 com
 escreveu:

 De: Evandro Siqueira vans...@gmail. com vansiqq%40gmail. com
 Assunto: Re: [delphi-br] Delphi e Firebird
 Para: delphi...@yahoogrup os.com.br delphi-br%40yahoog rupos.com. br
 Data: Terça-feira, 3 de Fevereiro de 2009, 9:08

 Se tem certeza absoluta de que não vai ser utilizado em rede, solução
 mais prática nesse caso seria a instalação do firebird embeded.

 rafig38 escreveu:
 
  Prezados,
  Alguém poderia explicar o seguinte:
  Quando eu crio um BD com o Firebird e para acessar este meu BD com o
  Delphi eu preciso instalar todo o firebird no computador do meu cliente?
  Não é uma aplicação que funcionará em rede. Mas mesmo que fosse eu
  precisaria instalar o firebird full? ou somente a instalação
 mínima (
  aquela que instalamos nas máquinas client quando usamos um banco que
  funcionará numa rede para 1 server e 2 ou mais clientes)?
  Disseram-me que eu só teria de instalar o driver do BD, mas qual driver
  é este?
  E se eu resolvesse não usar o Firebird, mas o MySQL, seria a mesma
  coisa?
  Sds.,
  Rafig
 
 

 --

 []'s.

 Evandro Siqueira
 Programador de Sistemas
 L'essentiel Lingerie
 (79) 3254-5511 Ramal 218
 skype: evandro.lessentiel

  - - --

 --
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
 

 Veja quais são os assuntos do momento no Yahoo! +Buscados
 http://br.maisbusca dos.yahoo. com

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

 


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

















  Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com

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



[delphi-br] Analista Programador Delphi (SAO PAULO-SP)

2009-02-06 Por tôpico Alessandro Roberto de Oliveira
Analista Programador Delphi

Empresa Contratante: H2M

   Sólidos conhecimentos em programação Delphi Atuação com banco de dados SQL 
Server Superior Completo em áreas afins Desejável conhecimento em Delphi versão 
7 



Faixa Salarial: À COMBINAR
Cidade: SAO PAULO-SP
Quantidade de vaga(s): 1
Data do Anúncio: 05/02/2009

ACESSE O LINK ABAIXO PARA CONCORRER GRATUITAMENTE A ESTA VAGA: 

http://www.ceviu.com.br/vaga/?view=vgextvg=1145e5efb9dbf2e86c05bbad7cbca67efromAccess=1267

---
CONCORRA GRATUITAMENTE A MILHARES DE VAGAS EM INFORMÁTICA.
 ACESSE: http://www.ceviu.com.br/index.php?view=mainfromAccess=1267



Re: [delphi-br] Re: Impressão direta para USB

2009-02-06 Por tôpico Adriano Santos
Funciona sim, ele vai usar a impressoa ativa no momento. A que está no
PrinterIndex.

2009/2/6 deco0_07 andre.alme...@medicator.com.br:
 Bom, aqui funcionou, só precisei declarar na uses Printers pro
 AssisgnPrn..

 --- Em delphi-br@yahoogrupos.com.br, Ricardo César Cardoso
 ricardo_engs...@... escreveu


 Bom dia!

 Pesquisando sobre o assunto para um colega de outra lista, me
 deparei com o seguinte código fonte:

 [code]
 var
 Arq : TextFile
 Begin
 if PrintDialog1.Execute then begin
 AssingPrn(Arq);
 ReWrite(arq);
 Writeln(Arq, 'Este é um teste !!');
 CloseFile(Arq);
 end;
 End;
 [/code]

 Alguém que tenha uma impressora USB poderia fazer a caridade de
 testar se esse código funciona? Se tiver mais de uma impressora e
 puder repetir o teste seria ótimo.

 Muito do material que achei para impressão USB está em inglês e é
 muito nebuloso, para não dizer um quebra-cabeça. Se o código acima
 funcionar, problema resolvido. Mas se não funcionar, queria tentar
 montar esse quebra-cabeça.

 []'s
 Ricardo.

 



-- 
Adriano Santos
Director X-35 Consulting and Development
IT Manager SoftPark
Chief Editor Magazines ClubeDelphi  WebMobile
www.delphitodelphi.blogspot.com
www.adrianosantos.pro.br
www.devmedia.com.br
www.dug-sp.com


Re: [delphi-br] Re: Impressão direta para USB

2009-02-06 Por tôpico Ricardo César Cardoso
Então de certa maneira isso aqui vira uma dica, não? Agora e se a bendita da 
impressora USB não for padrão, como faço para identificar, dentro da lista de 
impressoras que o objeto TPrinter (que é onde deve estar PrinterIndex)? 

Não estou perguntado por preguiça, mas por não estar com o Delphi e seu Help em 
mãos para consulta. A propósito; alguém sabe se é possível consultar o Help do 
Delphi on-line (essa pergunta é por preguiça, hehehehe)

[]'s
Ricardo.

_

Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!

--- Em sex, 6/2/09, Adriano Santos fale...@adrianosantos.pro.br escreveu:

Funciona sim, ele vai usar a impressoa ativa no momento. A que está no 
PrinterIndex.

2009/2/6 deco0_07 andre.almeida@ medicator. com.br:

 Bom, aqui funcionou, só precisei declarar na uses Printers pro
 AssisgnPrn..


 --- Em delphi...@yahoogrup os.com.br, Ricardo César Cardoso
 ricardo_engsoft@ ... escreveu


 Bom dia!

 Pesquisando sobre o assunto para um colega de outra lista, me
 deparei com o seguinte código fonte:

 [code]
 var
 Arq : TextFile
 Begin
   if PrintDialog1. Execute then begin
 AssingPrn(Arq) ;
 ReWrite(arq) ;
 Writeln(Arq, 'Este é um teste !!');
 CloseFile(Arq) ;
   end;
 End;
 [/code]

 Alguém que tenha uma impressora USB poderia fazer a caridade de
 testar se esse código funciona? Se tiver mais de uma impressora e
 puder repetir o teste seria ótimo.

 Muito do material que achei para impressão USB está em inglês e é
 muito nebuloso, para não dizer um quebra-cabeça. Se o código acima
 funcionar, problema resolvido. Mas se não funcionar, queria tentar
 montar esse quebra-cabeça.

 []'s
 Ricardo.

 
-- 
Adriano Santos
Director X-35 Consulting and Development
IT Manager SoftPark
Chief Editor Magazines ClubeDelphi  WebMobile
www.delphitodelphi.blogspot.com
www.adrianosantos.pro.br
www.devmedia.com.br
www.dug-sp.com


  Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com


Re: [delphi-br] Artigo Recomendado: Records com Mét odos e propriedadas

2009-02-06 Por tôpico Joao Morais
2009/2/6 Ricardo César Cardoso ricardo_engs...@yahoo.com.br:
 João, muito obrigado pelas explicações.

 Acho que estou quase compreendendo o negócio, mas ainda preciso tirar mais 
 umas
 dúvidas e esclarecer mais alguns pontos.

Olá Ricardo, vamos lá:

 1) No exemplo que vc passou, criando um tipo TPessoa baseado (herdado?) 
 de/em
 object, VPessoa é o que nessa salada toda? Um objeto?

Uma variável que referencia um objeto (a própria instância, sem
necessidade de create/free), assim como um VCount: Integer é uma
variável que referencia um inteiro, também sem necessidade de
create/free/new/dispose/etc.


 2) Resumidamente, qual é a diferença entre object e a classe TObject?

A questão seria a diferença entre objeto e classe. Objeto é a idéia
inicial, aonde informações e rotinas são alocadas dentro da mesma
entidade. Classe é uma idéia posterior, mais dinâmica. A principal
diferença é que sua criação e destruição são controlados pelo
programador e isto faz uma diferença imensa em sistemas mais
complexos. Outras diferenças são metaclasses, métodos de classe,
construtores virtuais, e *ouvi dizer* que até métodos virtuais não
existem em objetos (object).

 3) Essa é difícil: quando eu uso um object, quando uso TObject e quando eu 
 parto para
 class?

TObject é um tipo declarado, então neste caso ele equivale a classe.
Vamos colocar de outra forma: quando usar record, objeto (object) e
classe?

Acho que é um tanto uma questão pessoal, ainda assim vou procurar
argumentar minha opinião. Eu sempre utilizo classe, a menos que eu
tenha um bom motivo para não usá-la. Sempre utilizo porque ela tem
muito mais recurso do que objeto ou record, tal qual coloquei acima
(metaclasse, construtor virtual, etc) e se eu precisar de algum desses
recursos, basta eu estender a declaração. Um bom motivo para não usar
é precisar de uma estrutura *muito* simples e estática, ou eu precisar
criar compatibilidade com bibliotecas de terceiros através de uma dll.
Precisar 'criar e destruir' não é considerado um bom motivo pra não
usar. =)

Sobre objeto (object), desde os tempos do Turbo Pascal que eu não
utilizo, e só voltaria a utilizar se algum dia eu vier a precisar de
uma estrutura que precise rodar a 99,9% da velocidade da luz e que
precise ter métodos colados a ele.

Joao Morais


Re: [delphi-br] Re: Impressão direta para USB

2009-02-06 Por tôpico O2 Tecnologia (aJato)


Usamos a seguinte rotina para isso:

function AtivaImpressoras(sImpressora: String) :Boolean;
var tsImpressoras : TStrings;
iContador : Integer;
begin
   tsImpressoras  := Printer.Printers;

   for iContador := 0 to (tsImpressoras.Count - 1) do
  tsImpressoras[iContador]   := TrimRight(tsImpressoras[iContador]);

   Result   := tsImpressoras.IndexOf(TrimRight(sImpressora))  -1;

   if Result then
  Printer.PrinterIndex  := tsImpressoras.IndexOf(TrimRight(sImpressora))
   else
   begin
  Printer.PrinterIndex  := -1;

  Application.MessageBox(PChar('Não foi possivel ativar a impressora 
[' + sImpressora + '] em questão. Verifique !'), 'Atenção' , 
mb_TaskModal + mb_ok + mb_IconWarning);
   end;
end;


Ricardo César Cardoso escreveu:

 Então de certa maneira isso aqui vira uma dica, não? Agora e se a 
 bendita da impressora USB não for padrão, como faço para identificar, 
 dentro da lista de impressoras que o objeto TPrinter (que é onde deve 
 estar PrinterIndex)?

 Não estou perguntado por preguiça, mas por não estar com o Delphi e 
 seu Help em mãos para consulta. A propósito; alguém sabe se é possível 
 consultar o Help do Delphi on-line (essa pergunta é por preguiça, 
 hehehehe)

 []'s
 Ricardo.

 __

 Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!

 --- Em sex, 6/2/09, Adriano Santos fale...@adrianosantos.pro.br 
 mailto:falecom%40adrianosantos.pro.br escreveu:

 Funciona sim, ele vai usar a impressoa ativa no momento. A que está no 
 PrinterIndex.

 2009/2/6 deco0_07 andre.almeida@ medicator. com.br:

  Bom, aqui funcionou, só precisei declarar na uses Printers pro
  AssisgnPrn..
 

  --- Em delphi...@yahoogrup os.com.br, Ricardo César Cardoso
  ricardo_engsoft@ ... escreveu
 
 
  Bom dia!
 
  Pesquisando sobre o assunto para um colega de outra lista, me
  deparei com o seguinte código fonte:
 
  [code]
  var
  Arq : TextFile
  Begin
  if PrintDialog1. Execute then begin
  AssingPrn(Arq) ;
  ReWrite(arq) ;
  Writeln(Arq, 'Este é um teste !!');
  CloseFile(Arq) ;
  end;
  End;
  [/code]
 
  Alguém que tenha uma impressora USB poderia fazer a caridade de
  testar se esse código funciona? Se tiver mais de uma impressora e
  puder repetir o teste seria ótimo.
 
  Muito do material que achei para impressão USB está em inglês e é
  muito nebuloso, para não dizer um quebra-cabeça. Se o código acima
  funcionar, problema resolvido. Mas se não funcionar, queria tentar
  montar esse quebra-cabeça.
 
  []'s
  Ricardo.
 
 
 -- 
 Adriano Santos
 Director X-35 Consulting and Development
 IT Manager SoftPark
 Chief Editor Magazines ClubeDelphi  WebMobile
 www.delphitodelphi.blogspot.com
 www.adrianosantos.pro.br
 www.devmedia.com.br
 www.dug-sp.com

 Veja quais são os assuntos do momento no Yahoo! +Buscados
 http://br.maisbuscados.yahoo.com http://br.maisbuscados.yahoo.com

 


 __ Information from ESET NOD32 Antivirus, version of virus 
 signature database 3832 (20090206) __

 The message was checked by ESET NOD32 Antivirus.

 http://www.eset.com


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



Re: [delphi-br] Re: Impressão direta para USB

2009-02-06 Por tôpico Ricardo César Cardoso
Interessante companheiro 02 Tecnologia! Boa dica!

[]'s
Ricardo.

_

Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!

--- Em sex, 6/2/09, O2 Tecnologia (aJato) o2tecnolo...@ajato.com.br escreveu:












Usamos a seguinte rotina para isso:



function AtivaImpressoras( sImpressora: String) :Boolean;

var tsImpressoras : TStrings;

iContador : Integer;

begin

   tsImpressoras  := Printer.Printers;



for iContador := 0 to (tsImpressoras. Count - 1) do

  tsImpressoras[ iContador]   := TrimRight(tsImpress oras[iContador] );



Result   := tsImpressoras. IndexOf(TrimRigh t(sImpressora) )  -1;



if Result then

  Printer.PrinterInde x  := tsImpressoras. IndexOf(TrimRigh t(sImpressora) )

   else

   begin

  Printer.PrinterInde x  := -1;



Application. MessageBox( PChar('Não foi possivel ativar a impressora 

[' + sImpressora + '] em questão. Verifique !'), 'Atenção' , 

mb_TaskModal + mb_ok + mb_IconWarning) ;

   end;

end;



Ricardo César Cardoso escreveu:



 Então de certa maneira isso aqui vira uma dica, não? Agora e se a 

 bendita da impressora USB não for padrão, como faço para identificar, 

 dentro da lista de impressoras que o objeto TPrinter (que é onde deve 

 estar PrinterIndex) ?



 Não estou perguntado por preguiça, mas por não estar com o Delphi e 

 seu Help em mãos para consulta. A propósito; alguém sabe se é possível 

 consultar o Help do Delphi on-line (essa pergunta é por preguiça, 

 hehehehe)



 []'s

 Ricardo.



  _ _ _ _ _ _



 Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! 



 --- Em sex, 6/2/09, Adriano Santos fale...@adrianosant os.pro.br 

 mailto:falecom% 40adrianosantos. pro.br escreveu:



 Funciona sim, ele vai usar a impressoa ativa no momento. A que está no 

 PrinterIndex.



 2009/2/6 deco0_07 andre.almeida@ medicator. com.br:



  Bom, aqui funcionou, só precisei declarar na uses Printers pro

  AssisgnPrn..

 



  --- Em delphi...@yahoogrup os.com.br, Ricardo César Cardoso

  ricardo_engsoft@ ... escreveu

 

 

  Bom dia!

 

  Pesquisando sobre o assunto para um colega de outra lista, me

  deparei com o seguinte código fonte:

 

  [code]

  var

  Arq : TextFile

  Begin

  if PrintDialog1. Execute then begin

  AssingPrn(Arq) ;

  ReWrite(arq) ;

  Writeln(Arq, 'Este é um teste !!');

  CloseFile(Arq) ;

  end;

  End;

  [/code]

 

  Alguém que tenha uma impressora USB poderia fazer a caridade de

  testar se esse código funciona? Se tiver mais de uma impressora e

  puder repetir o teste seria ótimo.

 

  Muito do material que achei para impressão USB está em inglês e é

  muito nebuloso, para não dizer um quebra-cabeça. Se o código acima

  funcionar, problema resolvido. Mas se não funcionar, queria tentar

  montar esse quebra-cabeça.

 

  []'s

  Ricardo.

 

 

 -- 

 Adriano Santos

 Director X-35 Consulting and Development

 IT Manager SoftPark

 Chief Editor Magazines ClubeDelphi  WebMobile

 www.delphitodelphi. blogspot. com

 www.adrianosantos. pro.br

 www.devmedia. com.br

 www.dug-sp.com



 Veja quais são os assuntos do momento no Yahoo! +Buscados

 http://br.maisbusca dos.yahoo. com http://br.maisbusca dos.yahoo. com



 





 __ Information from ESET NOD32 Antivirus, version of virus 

 signature database 3832 (20090206) __



 The message was checked by ESET NOD32 Antivirus.



 http://www.eset. com



 

















  Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com

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



Re: [delphi-br] Artigo Recomendado: Records com M étodos e propriedadas

2009-02-06 Por tôpico Ricardo César Cardoso
Pô João, mais uma vez vc matou a pau... Valeu mesmo pelas explicações e 
esclarecimentos.

Tá certo que é difícil generalizar, mas acho que nesse caso podemos tentar: 

Quanto mais simples o modelo que se quer representar, mais recomendável _pode 
ser_ o uso de estruturas como records. Quanto mais complexo ou abstrato seja 
mais recomendável se torna o uso de classes. E objetos seriam o meio-termo, 
seriam o topo da cadeia alimentar em modelos mais simples ou a base da mesma 
cadeia em modelos mais complexos e/ou abstratos.

Acho que é por aí, não é?

[]'s
Ricardo.
_

Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!

--- Em sex, 6/2/09, Joao Morais jcmorai...@gmail.com escreveu:











2009/2/6 Ricardo César Cardoso ricardo_engsoft@ yahoo.com. br:

 João, muito obrigado pelas explicações.



 Acho que estou quase compreendendo o negócio, mas ainda preciso tirar mais 
 umas

 dúvidas e esclarecer mais alguns pontos.



Olá Ricardo, vamos lá:



 1) No exemplo que vc passou, criando um tipo TPessoa baseado (herdado?) 
 de/em

 object, VPessoa é o que nessa salada toda? Um objeto?



Uma variável que referencia um objeto (a própria instância, sem

necessidade de create/free) , assim como um VCount: Integer é uma

variável que referencia um inteiro, também sem necessidade de

create/free/ new/dispose/ etc.





 2) Resumidamente, qual é a diferença entre object e a classe TObject?



A questão seria a diferença entre objeto e classe. Objeto é a idéia

inicial, aonde informações e rotinas são alocadas dentro da mesma

entidade. Classe é uma idéia posterior, mais dinâmica. A principal

diferença é que sua criação e destruição são controlados pelo

programador e isto faz uma diferença imensa em sistemas mais

complexos. Outras diferenças são metaclasses, métodos de classe,

construtores virtuais, e *ouvi dizer* que até métodos virtuais não

existem em objetos (object).



 3) Essa é difícil: quando eu uso um object, quando uso TObject e quando eu 
 parto para

 class?



TObject é um tipo declarado, então neste caso ele equivale a classe.

Vamos colocar de outra forma: quando usar record, objeto (object) e

classe?



Acho que é um tanto uma questão pessoal, ainda assim vou procurar

argumentar minha opinião. Eu sempre utilizo classe, a menos que eu

tenha um bom motivo para não usá-la. Sempre utilizo porque ela tem

muito mais recurso do que objeto ou record, tal qual coloquei acima

(metaclasse, construtor virtual, etc) e se eu precisar de algum desses

recursos, basta eu estender a declaração. Um bom motivo para não usar

é precisar de uma estrutura *muito* simples e estática, ou eu precisar

criar compatibilidade com bibliotecas de terceiros através de uma dll.

Precisar 'criar e destruir' não é considerado um bom motivo pra não

usar. =)



Sobre objeto (object), desde os tempos do Turbo Pascal que eu não

utilizo, e só voltaria a utilizar se algum dia eu vier a precisar de

uma estrutura que precise rodar a 99,9% da velocidade da luz e que

precise ter métodos colados a ele.



Joao Morais
 

  



 

















  Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com

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



[delphi-br] ENC: Tamanho do BD FireBird... meio OFF

2009-02-06 Por tôpico Vinicius da Silva Pinto
Pessoal, uma perguntinha técnica...

Migrei um BD do InterBase para o FireBird, utilizando Script para gerar os
dados a partir do InterBase.

Criei o Banco no FireBird com as mesmas caracteristicas do InterBase,
mudando apenas o Caracter Set que era None para WIN1252 com COLLATE.

Tudo as mil maravilhas, graças as excelentes dicas que obtive do colega
Ricardo César Cardoso, menbro da lista.

Só teve uma pergunta que ficou no ar, porque o Banco de Dados no FireBird
dobrou de tamanho??

Alguem tem alguma explicação para o fato, já que o Banco do InterBase já
está em produção a mais de 1 ano, com varios deletes, inclusões...

e o Banco do FireBird é zerado, novinho com os dados todos colocados em
ordem... bunitinnn...

Esta pergunta é só curiosidade...

Vinicius




Re: [delphi-br] Artigo Recomendado: Records com M étodos e propriedadas

2009-02-06 Por tôpico Ricardo César Cardoso
João, muito obrigado pelas explicações. 

Acho que estou quase compreendendo o negócio, mas ainda preciso tirar mais umas 
dúvidas e esclarecer mais alguns pontos.

1) No exemplo que vc passou, criando um tipo TPessoa baseado (herdado?) de/em 
object, VPessoa é o que nessa salada toda? Um objeto? 

2) Resumidamente, qual é a diferença entre object e a classe TObject?

3) Essa é difícil: quando eu uso um object, quando uso TObject e quando eu 
parto para class? 

Desculpe a saraivada de perguntas cretinas, que com certeza eu acharia a 
resposta sozinho, mas parece que com a suas explicações o fio da meada está 
mais consistente.

Grato,
Ricardo.

_
Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!

--- Em sex, 6/2/09, Joao Morais jcmorai...@gmail.com escreveu:

2009/2/6 Ricardo César Cardoso ricardo_engsoft@ yahoo.com. br:

 Então João, a dúvida nem foi tanto pelos ponteiros. Foi mais pelo fato de que 
 pelo que eu
 acho que entendi, records quando criados, são automaticamente destruidos, ao 
 passo que
 nesse caso eu tenho que explicitamente criar e destruir (liberar com Free) o 
 objeto.

 É isso ou eu misturei alguma coisa?


Olá Ricardo.

Mais ou menos. O que precisa ser criado é a classe que, quando instanciada, 
transforma-se em objeto. Quando eu falo em objeto eu falo de algo assim:

TPessoa = object
  ...

E um suposto

VPessoa: TPessoa;

pode ser usado diretamente, sem criar e sem destruir.



Quando fala-se em objeto (object, e não instância da classe) e record, não se 
fala em criar e destruir. A área que eles ocupam são as mesmas ocupadas por um 
Integer da vida - o stack. Veja objeto e record como um 'integerzão' que você 
define ao seu gosto e com a estrutura que lhe convem, e uma vez declarado 
através de uma variável, sua área pode ser populada sem precisar alocar.

No entanto, tanto record quanto objetos tem usos bem específicos mas estão 
longe de, mesmo que em parte, substituir uma classe e tudo o que a envolve.

Joao Morais


  Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com


Re: [delphi-br] Artigo Recomendado: Records com Mét odos e propriedadas

2009-02-06 Por tôpico Joao Morais
2009/2/6 Ricardo César Cardoso ricardo_engs...@yahoo.com.br:
 Pô João, mais uma vez vc matou a pau... Valeu mesmo pelas explicações e
 esclarecimentos.

 Tá certo que é difícil generalizar, mas acho que nesse caso podemos tentar:

 Quanto mais simples o modelo que se quer representar, mais recomendável _pode 
 ser_
 o uso de estruturas como records. Quanto mais complexo ou abstrato seja mais
 recomendável se torna o uso de classes. E objetos seriam o meio-termo, 
 seriam o topo
 da cadeia alimentar em modelos mais simples ou a base da mesma cadeia em 
 modelos
 mais complexos e/ou abstratos.

Então Ricardo, ainda acho que cai para a questão pessoal. Não é muito
diferente de falar na melhor linguagem para determinada tarefa, aonde
o correto é falar na linguagem que me dará maior produtividade para
determinada tarefa.

Sendo assim, continuo falando com base exclusivamente no meu ponto de
vista: eu uso classes para praticamente tudo, só uso record para
estruturas mínimas e sem chance de aumentar a complexidade (ex.
TTextPos = record X, Y, Current: Integer; end;) ou para
compatibilidade com bibliotecas (ex. criar uma interface para a
fbclient), do contrário eu só uso classe ou interface. Quanto a
objeto, eu ainda estou pra ver um exemplo plausível de uso, em que nem
classe nem record (sem método) poderiam resolver.

Isto independe de complexidade. Todo projeto começa na primeira unit,
e pensar em solução RAD para projetos simples é o primeiro passo para
engessar o desenvolvimento. O ideal é abstrair desde a primeira idéia,
e separar entre record e classe conforme a funcionalidade e o uso
(veja que até descartei o objeto). A prática e os primeiros erros é
quem o ajudará a descobrir qual usar cada circunstância.

Joao Morais


[delphi-br] Aggregates dando trabalho

2009-02-06 Por tôpico stainle2003
Boa tarde, com Delphi 7 e Firebird 2.0 eu tinha um campo aggregate que 
funcionava perfeitamente, ou seja, me dava o total do pedido sem erro 
algum, depois que coloquei um campo novo na tabela e que se tornou 
chave primária, este campo em um dado momento dobra os valores(quando 
estou em inclusão de itens), criei novamente os índices, exclui o tal 
campo e criei novamente mas não consigo resolver o problema.
se alguém tiver alguma dica, será benvinda.

grato

Stainle



Re: [delphi-br] Re: Conectar Oracle com Delphi 5

2009-02-06 Por tôpico Joao Morais
2009/2/6 Josir Gomes jo...@globo.com:
 Olá Edmilson,

 se ele não está usando BDE, ele deve estar usando:

 1. ADO - não recomendo - é muito lento e pode dar problemas de
 incompatibilidade com a versão específica do ADO (2.1, 2.2, etc) que
 estiver instalada na máquina. Mas roda com Delphi 5 apesar do suporte
 no Delphi 7 ser bem melhor.

 2. ODAC - é a melhor solução mas é paga - uso ODAC a 7 anos e nunca
 tive problemas com ele. Não precisa nem do Oracle Client e do TNSNAMES.

 3. TOra - grátis mas bem limitado - se vc não tem orçamento para usar
 o ODAC, então cai dentro desse.

Além destes: Zeos (free) e DOA (pago)

Joao Morais


Re: [delphi-br] Artigo Recomendado: Records com M étodos e propriedadas

2009-02-06 Por tôpico Ricardo César Cardoso
Bom dia João!

Aproveitando que você deu um comentário a esse tópico, queria tirar uma dúvida 
que eu coloquei lá nos comentários do blog e queria só verificar se isso mesmo:

Perguntei lá no Blog:
Agora duas dúvidas: é possível e, em caso afirmativo como faria para
ter comportamento semelhante ao retratado (records com métodos e
propriedades) com em versões anteriores do Delphi como por exemplo
D2005 ou D7?

A resposta que tive:
Nuno Figueiredo on
February 5th, 2009 10:16 am 


Excelente artigo.

Respondendo a pergunta do Ricardo Cardoso, nas versoes anteriores a
2006, pode-se utilisar o object cuja sintaxe é quase identica, sendo
que vc pode trata-lo como uma variavel ou como um ponteiro:
type

  pMeuObjeto = ^tMeuObjeto;

  tMeuObjeto = Object

   .

   .

   .

  end;
var

 meuOjeto: pMeuObjeto;
Neste caso voce está tratando o objeto como ponteiro e deve cuidar muito o 
constructor e o destructor.
Abracos

Nuno

Mas aí o comportamento não vai ser o mesmo que o proposto no artigo, ou vai? 
Ainda fiquei na dúvida aqui...

[]'s
Ricardo.
_

Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!

--- Em sex, 6/2/09, Joao Morais jcmorai...@gmail.com escreveu:
De: Joao Morais jcmorai...@gmail.com
Assunto: Re: [delphi-br] Artigo Recomendado: Records com Métodos e propriedadas
Para: delphi-br@yahoogrupos.com.br
Data: Sexta-feira, 6 de Fevereiro de 2009, 7:57












2009/2/5 Ricardo César Cardoso ricardo_engsoft@ yahoo.com. br:

 Bom dia a todos!



 Fuçando no blog do Daniel Maltarolli [ http://singularsist emas.com. br/blog/ 
 ], vi esse artigo

 bem interessante e confesso que me senti um total ignorante, pois achava que 
 isso nem

 era possível de sem implementado.



 Parece ser uma boa saída para alguns problemas do dia a dia.



 [ http://singularsist emas.com. br/blog/2009/ 01/records- com-metodos- 
 e-propriedades/ ]



Poizé, isso nada mais é do que o velho e deprecated object. Se for

procurar por object na documentação do Delphi, você nota que a

recomendação é para o uso de classes.



Joao Morais


 

  



   
  
_
 

















  Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com

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



[delphi-br] deletar

2009-02-06 Por tôpico rzzanatta
olá gostaria de saber como fazer para deletar de uma tabela apenas os 
registros na quantidade que eu mandar, tipo na tabela tem 10 registros 
e gostaria só de apagar 4 registro?

fiz essa sql mas ela deleta tudo.
delete from idproduto
 where fk_produto = :produto and fk_localidade = :localidade
 and fk_producao = :producao



Re: [delphi-br] Ajuda com Caracter sets

2009-02-06 Por tôpico humberto sales
Vinicius .. Deparei essa semana com isso... Coloquei dois ibdatabases um abria 
o banco de dados antigo o outro o novo, so q eu tinha esquecido de mudar no 
segundo ibdatabase para character set win1252, ae gerou esse erro q vc teve... 
Coloquei e funcionou corretamente, talvez seja a mesma coisa q aconteceu comigo

--- Em qui, 5/2/09, Vinicius da Silva Pinto vinic...@cnen.gov.br escreveu:

De: Vinicius da Silva Pinto vinic...@cnen.gov.br
Assunto: [delphi-br] Ajuda com Caracter sets
Para: delphi-br@yahoogrupos.com.br
Data: Quinta-feira, 5 de Fevereiro de 2009, 8:45






Bom dia a todos, o problema é o seguinte:
tem um banco de um cliente, que já está em produção, mais estava
apresentando alguns erros de indice, fora de ordem com problemas em
acentuação.
Verifiquei que o banco foi criado com CARACTER SET = NONE e sei que isto
gera uma série de problemas.
Solução, copiei as estruturas de todas as tabelas e criei um banco novo, com
CARACTER SET = WIN1250, sempre utilizei ele e não tive problemas.
Só que na hora que eu estou copiando os dados de uma tabela do banco antigo
pro banco novo, logo depois do primeiro registro aparece a seguinte
mensagem:
arithmetic exception, numeri overflow, or string truncation. Cannot
transliterate character between character sets
Alguem tem alguma sugestão pra me passar, qual a melhor maneira de eu
corrigir este problema no banco antigo?? tem alguma outra maneira de se
fazer isto??

Estou utilizando D7 e InterBase.

Aguardo qq resposta.

Vinicius

















  Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com

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



Re: [delphi-br] deletar

2009-02-06 Por tôpico Vinicius A. Santos
DELETE FROM tabela WHERE campo IN (1,2,3,4)

não serve ?

rzzanatta escreveu:

 olá gostaria de saber como fazer para deletar de uma tabela apenas os
 registros na quantidade que eu mandar, tipo na tabela tem 10 registros
 e gostaria só de apagar 4 registro?

 fiz essa sql mas ela deleta tudo.
 delete from idproduto
 where fk_produto = :produto and fk_localidade = :localidade
 and fk_producao = :producao

 



Re: [delphi-br] deletar

2009-02-06 Por tôpico Andrei Luís
Execute um select e veja o que ele retorna:

Select * from idproduto
 where fk_produto = :produto and fk_localidade = :localidade
 and fk_producao = :producao


Agora troque pelo delete, serão excluídos os mesmos registros retornados no
select:

delete from idproduto
 where fk_produto = :produto and fk_localidade = :localidade
 and fk_producao = :producao

[]
Andrei

2009/2/6 rzzanatta rzzana...@yahoo.com.br

 olá gostaria de saber como fazer para deletar de uma tabela apenas os
 registros na quantidade que eu mandar, tipo na tabela tem 10 registros
 e gostaria só de apagar 4 registro?

 fiz essa sql mas ela deleta tudo.
 delete from idproduto
  where fk_produto = :produto and fk_localidade = :localidade
  and fk_producao = :producao





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



[delphi-br] ao digitar localizar

2009-02-06 Por tôpico Rafael Jorge
sempre uso dbedit... so que sao dbedits que eu criei com base no dbedit
original..
queria implementar uma rotina que quando o cliente digitase algo ele
localizase o registro.
mas queria continuar usando meus dbedits..
tem como?
obrigado pela ajuda e t+

-- 
---
Rafael jorge alves (Analista/desenvolvedor)

www.sistemafocus.com.br
sistema focus de gestão comercial e serviços em informatica.
---


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



[delphi-br] Estagiário Delphi (BELO HORIZONTE-MG)

2009-02-06 Por tôpico Alessandro Roberto de Oliveira
Estagiário Delphi

Empresa Contratante: AIX Sistemas S/A

 pré-requisito: estar cursando faculdade na área de TI ou curso técnico 
informática. Conhecimento em programação Delphi, lógica de programação, 
orientação a objetos, Banco de dados SQL.
Atividades a serem desenvolvidas: Elaboração de programas de computador na 
linguagem Delphi e/ou elaboração de análise de sistemas. 
Oferecemos: bolsa de estágio no valor de R$ 600,00 com possibilidade de 
aumento, vale-transporte e lanche.
horário de trabalho: 6 hs diárias.


Faixa Salarial: À COMBINAR
Cidade: BELO HORIZONTE-MG
Quantidade de vaga(s): 1
Data do Anúncio: 06/02/2009

ACESSE O LINK ABAIXO PARA CONCORRER GRATUITAMENTE A ESTA VAGA: 

http://www.ceviu.com.br/vaga/?view=vgextvg=93c6c63f6e7884b11fc4aa3cfb11375cfromAccess=1267

---
CONCORRA GRATUITAMENTE A MILHARES DE VAGAS EM INFORMÁTICA.
 ACESSE: http://www.ceviu.com.br/index.php?view=mainfromAccess=1267



Res: [delphi-br] Artigo Recomendado: Records com M étodos e propriedadas

2009-02-06 Por tôpico Silvio Clécio
Olá pessoal,

E eu que estou estudando ObjectPascal estou aqui caladinho, só salvando as 
respostas :D .

Flw's :)

[]'s, Silvio Clécio
---
Linux User: #481900
Skype: silvioprog
ICQ: 432519902
E-mail, Y! Messenger: silviop...@yahoo.com.br
Gmail, GTalk: silviop...@gmail.com
Hotmail, MSN: silviop...@hotmail.com
BlogSpot: http://silvioclecio.blogspot.com/
BlogSite: http://silvioprog.blogspot.com/
°oO| Seja livre, use Linux! |Oo°




De: Ricardo César Cardoso ricardo_engs...@yahoo.com.br
Para: delphi-br@yahoogrupos.com.br
Enviadas: Sexta-feira, 6 de Fevereiro de 2009 10:34:42
Assunto: Re: [delphi-br] Artigo Recomendado: Records com Métodos e propriedadas


João, muito obrigado pelas explicações. 

Acho que estou quase compreendendo o negócio, mas ainda preciso tirar mais umas 
dúvidas e esclarecer mais alguns pontos.

1) No exemplo que vc passou, criando um tipo TPessoa baseado (herdado?) de/em 
object, VPessoa é o que nessa salada toda? Um objeto? 

2) Resumidamente, qual é a diferença entre object e a classe TObject?

3) Essa é difícil: quando eu uso um object, quando uso TObject e quando eu 
parto para class? 

Desculpe a saraivada de perguntas cretinas, que com certeza eu acharia a 
resposta sozinho, mas parece que com a suas explicações o fio da meada está 
mais consistente.

Grato,
Ricardo.   


  Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com

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



Res: [delphi-br] Re: Impressão direta para USB

2009-02-06 Por tôpico Silvio Clécio
Olá Ricardo,

Pegando a impressora padrão:

[http://delphianos.wordpress.com/2008/06/26/funcao-para-saber-qual-a-impressora-padrao-do-windows/].

Qualquer coisa envie o executável que a gente testa se está imprimindo.

[]'s, Silvio Clécio
---
Linux User: #481900
Skype: silvioprog
ICQ: 432519902
E-mail, Y! Messenger: silviop...@yahoo.com.br
Gmail, GTalk: silviop...@gmail.com
Hotmail, MSN: silviop...@hotmail.com
BlogSpot: http://silvioclecio.blogspot.com/
BlogSite: http://silvioprog.blogspot.com/
°oO| Seja livre, use Linux! |Oo°




De: Ricardo César Cardoso ricardo_engs...@yahoo.com.br
Para: delphi-br@yahoogrupos.com.br
Enviadas: Sexta-feira, 6 de Fevereiro de 2009 10:48:14
Assunto: Re: [delphi-br] Re: Impressão direta para USB


Então de certa maneira isso aqui vira uma dica, não? Agora e se a bendita da 
impressora USB não for padrão, como faço para identificar, dentro da lista de 
impressoras que o objeto TPrinter (que é onde deve estar PrinterIndex) ? 

Não estou perguntado por preguiça, mas por não estar com o Delphi e seu Help em 
mãos para consulta. A propósito; alguém sabe se é possível consultar o Help do 
Delphi on-line (essa pergunta é por preguiça, hehehehe)

[]'s
Ricardo.   


  Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com

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



Res: [delphi-br] ao digitar localizar

2009-02-06 Por tôpico Silvio Clécio
Olá pessoal,

Brother, nesse link:
[http://sites.google.com/site/silvioprogbs/downloads].

Baixe o exemplo Exemplo de auto-completar texto em um campo, acho que ele vai 
te ajudar um pouco.

[]'s, Silvio Clécio
---
Linux User: #481900
Skype: silvioprog
ICQ: 432519902
E-mail, Y! Messenger: silviop...@yahoo.com.br
Gmail, GTalk: silviop...@gmail.com
Hotmail, MSN: silviop...@hotmail.com
BlogSpot: http://silvioclecio.blogspot.com/
BlogSite: http://silvioprog.blogspot.com/
°oO| Seja livre, use Linux! |Oo°




De: Rafael Jorge rafael.jo...@gmail.com
Para: delphi-br delphi-br@yahoogrupos.com.br
Enviadas: Sexta-feira, 6 de Fevereiro de 2009 15:15:15
Assunto: [delphi-br] ao digitar localizar


sempre uso dbedit... so que sao dbedits que eu criei com base no dbedit
original..
queria implementar uma rotina que quando o cliente digitase algo ele
localizase o registro.
mas queria continuar usando meus dbedits..
tem como?
obrigado pela ajuda e t+

-- 
 - - - - - -
Rafael jorge alves (Analista/desenvolv edor)

www.sistemafocus. com.br
sistema focus de gestão comercial e serviços em informatica.
 - - - - - -   


  Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com

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



[delphi-br] Valor

2009-02-06 Por tôpico Adenes Junior
Numa Edit digito 532,33 quando mando converter para real dar erro, pq?

 

Valor := StrToFloat(EditLista1.Text);

 

 



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



[delphi-br] Error ao converter string

2009-02-06 Por tôpico Adenes Junior
Porque ao converter a string 532,32 para real está dando erro?



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



Re: [delphi-br] Valor

2009-02-06 Por tôpico Hudson Dias
ja aconteceu isso comigo por causa das opções regionais do windows...

no meu caso troquei a , por .

espero ter ajudado


  - Original Message - 
  From: Adenes Junior 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, February 06, 2009 9:31 PM
  Subject: [delphi-br] Valor


  Numa Edit digito 532,33 quando mando converter para real dar erro, pq?

  Valor := StrToFloat(EditLista1.Text);

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


  

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



Re: Res: [delphi-br] Artigo Recomendado: Records com Métodos e propriedadas

2009-02-06 Por tôpico Ricardo César Cardoso
Hehehe Sílvio, eu tb faço isso. As respostas do João e as do Rubem sempre são 
muito informativas. Essa thread aí já valeu por quase que um semestre inteiro 
de Pascal que tive no ensino técnico.

[]'s
Ricardo.

_

Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!

--- Em sex, 6/2/09, Silvio Clécio silviop...@yahoo.com.br escreveu:
De: Silvio Clécio silviop...@yahoo.com.br
Assunto: Res: [delphi-br] Artigo Recomendado: Records com Métodos e propriedadas
Para: delphi-br@yahoogrupos.com.br
Data: Sexta-feira, 6 de Fevereiro de 2009, 18:34












Olá pessoal,



E eu que estou estudando ObjectPascal estou aqui caladinho, só salvando as 
respostas :D .



Flw's :)

 _ _ __

[]'s, Silvio Clécio

---

Linux User: #481900

Skype: silvioprog

ICQ: 432519902

E-mail, Y! Messenger: silviop...@yahoo. com.br

Gmail, GTalk: silviop...@gmail. com

Hotmail, MSN: silviop...@hotmail. com

BlogSpot: http://silvioclecio .blogspot. com/

BlogSite: http://silvioprog. blogspot. com/

°oO| Seja livre, use Linux! |Oo°



 _ _ __

De: Ricardo César Cardoso ricardo_engsoft@ yahoo.com. br

Para: delphi...@yahoogrup os.com.br

Enviadas: Sexta-feira, 6 de Fevereiro de 2009 10:34:42

Assunto: Re: [delphi-br] Artigo Recomendado: Records com Métodos e propriedadas



João, muito obrigado pelas explicações. 



Acho que estou quase compreendendo o negócio, mas ainda preciso tirar mais umas 
dúvidas e esclarecer mais alguns pontos.



1) No exemplo que vc passou, criando um tipo TPessoa baseado (herdado?) de/em 
object, VPessoa é o que nessa salada toda? Um objeto? 



2) Resumidamente, qual é a diferença entre object e a classe TObject?



3) Essa é difícil: quando eu uso um object, quando uso TObject e quando eu 
parto para class? 



Desculpe a saraivada de perguntas cretinas, que com certeza eu acharia a 
resposta sozinho, mas parece que com a suas explicações o fio da meada está 
mais consistente.



Grato,

Ricardo.   



Veja quais são os assuntos do momento no Yahoo! +Buscados

http://br.maisbusca dos.yahoo. com



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




 

  



   
  


 

















  Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com

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



Re: Res: [delphi-br] Re: Impressão direta para USB

2009-02-06 Por tôpico Ricardo César Cardoso
VAleu a dica, Sílvio!

Na verdade eu estava tentando fazer a boa ação do dia. Acho que de certa 
forma consegui.

[]'s
Ricardo

_

Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!

--- Em sex, 6/2/09, Silvio Clécio silviop...@yahoo.com.br escreveu:
De: Silvio Clécio silviop...@yahoo.com.br
Assunto: Res: [delphi-br] Re: Impressão direta para USB
Para: delphi-br@yahoogrupos.com.br
Data: Sexta-feira, 6 de Fevereiro de 2009, 18:40












Olá Ricardo,



Pegando a impressora padrão:



[http://delphianos. wordpress. com/2008/ 06/26/funcao- para-saber- 
qual-a-impressor a-padrao- do-windows/].



Qualquer coisa envie o executável que a gente testa se está imprimindo.

 _ _ __

[]'s, Silvio Clécio

---

Linux User: #481900

Skype: silvioprog

ICQ: 432519902

E-mail, Y! Messenger: silviop...@yahoo. com.br

Gmail, GTalk: silviop...@gmail. com

Hotmail, MSN: silviop...@hotmail. com

BlogSpot: http://silvioclecio .blogspot. com/

BlogSite: http://silvioprog. blogspot. com/

°oO| Seja livre, use Linux! |Oo°



 _ _ __

De: Ricardo César Cardoso ricardo_engsoft@ yahoo.com. br

Para: delphi...@yahoogrup os.com.br

Enviadas: Sexta-feira, 6 de Fevereiro de 2009 10:48:14

Assunto: Re: [delphi-br] Re: Impressão direta para USB



Então de certa maneira isso aqui vira uma dica, não? Agora e se a bendita da 
impressora USB não for padrão, como faço para identificar, dentro da lista de 
impressoras que o objeto TPrinter (que é onde deve estar PrinterIndex) ? 



Não estou perguntado por preguiça, mas por não estar com o Delphi e seu Help em 
mãos para consulta. A propósito; alguém sabe se é possível consultar o Help do 
Delphi on-line (essa pergunta é por preguiça, hehehehe)



[]'s

Ricardo.   


  Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com


Re: [delphi-br] Error ao converter string

2009-02-06 Por tôpico Coutinho - Yahoo
Qual o separador de decimal que está configurado no Regions do sistema 
operacional?
Se for . vai dar errado mesmo!

Vá nas configurações do Windows e veja a discrepância pode estar lá!

Sds

__
Emanuel Coutinho
Salvador-Ba-Brasil



Adenes Junior escreveu:

 Porque ao converter a string 532,32 para real está dando erro?

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

 



Re: [delphi-br] Duvida Xml

2009-02-06 Por tôpico berdam
utilize o xmldocument e veja esse site, tem algumas coisas
http://www.caiooliveira.com.br/

Anderson Fabiano escreveu:

 Gostaria de saber se algum colega da lista poderia me dar uma ajuda
 quando a estar lendo valores contidos em um xml,
 primeiro procurando o node e depois informando o valor para mim ?

 Agradeçp qualquer ajuda.

 

-- 
-
Uberdam Cavaletti
Formado em Tecnologia da informação - Unoesc - Xxe
Pós graduado em Desenvolvimento Java - Unoesc - Xxe

Acesse  http://www.curricular.com.br/berdam
Acesse  http://passandoveneno.blogspot.com

-