Re: [delphi-br] Problema ao salvar JPG que está no TImage

2010-08-21 Por tôpico Jorge Ericsson
Use o pacote Jedi lá tem JvImage que suporta vários formatos.
Espero que a dica ajude.
Abraços

Em 21 de agosto de 2010 20:56, Marcelo leite_rom...@yahoo.com.br escreveu:





 se eu não me engano o TImage não da suporte a JPG somente bmp. acho que vc
 vai
 ter que converter, no serviço tenho a rotina de conversão mais na net deve
 ter
 um monte , ateh no historico da lista tambem deve haver. abs

 
 De: Leandro softma...@hotmail.com softmaxbr%40hotmail.com
 Para: Delphi-br delphi-br@yahoogrupos.com.brdelphi-br%40yahoogrupos.com.br
 
 Enviadas: Sexta-feira, 20 de Agosto de 2010 17:16:44
 Assunto: [delphi-br] Problema ao salvar JPG que está no TImage


 Pessoal,

 Estou com um problema ao salvar em arquivo .JPG uma imagem qualquer que foi

 colada do clipboard num TImage.

 Parece que se o TImage não estiver visível na tela, ele não carrega a
 imagem do
 disco para o objeto corretamente.

 Criei um projeto de teste para quem quiser me ajudar a descobrir esse
 enigma.
 Está no link e

 as instruções estão na tela.

 http://www.criosistemas.com.br/temp/testesalvarjpg.rar

 Fiz em Delphi 2007, mas imagino que abra nos antigos também.

 Só para situar para que eu preciso disso, é que está acontecendo no
 cadastro de
 produtos do meu sistema,

 onde as fotos dos produtos estão sumindo.

 Desde já agradeço a ajuda,

 Leandro

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

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

  



[As partes desta mensagem que não 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




Re: [delphi-br] Componente ou Solução para Control e de Usuário.

2010-08-20 Por tôpico Jorge Ericsson
Amigos,

Vocês que trabalham com o User Control poderia me ajudar em dois problemas ?

1ª Eu preciso migrar o controle de usuário para UserControl de uma aplicação
que trabalho com JvOutlookBar, mas não estou conseguindo associar o controle
de menu ao de botões do JvOutlookBar.

2ª Eu gostaria de saber como resolver o problema de envio de e-mail do
UserControl, pois mesmo usando as dll informadas no suporte, não funciona.

Abraços.


Em 20 de agosto de 2010 18:19, Mauri Lima ma...@uze.com.br escreveu:




 Boa Tarde,

 A ultima versão e a UserControl2.30RC3, tenho aki se vc quiser posso
 enviar para seu e-mail ou se alguém quiser e disponibilizar, não sei se
 posso por na área de arquivos do grupo.

 Mauri Lima

 Boa Vista - Roraima

 O Ponto mais setentrional ao norte do Brasil e aqui!!.. Monte Caburaí
 homologado em 1999. Como extremo norte do Brasil.

 -Mensagem original-

 De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto:
 delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em
 nome de Ralp Alves Bezerra
 Enviada em: sexta-feira, 20 de agosto de 2010 07:49
 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
 Assunto: RES: [delphi-br] Componente ou Solução para Controle de Usuário.


 Disponibilizei a versão 2.18A do UserControl no endereço abaixo:

 http://www.upshare.me/files/hQRQel1282304804/UserControl2.18a.rar.html

 Não sei ainda se existe uma versão mais nova. Mas veja se esta lhe ajuda.

 Trabalho com UserControl a muito tempo e não tenho o que me queixar dele.

 Abraço.

 De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto:
 delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em
 nome de Marciano Venter
 Enviada em: quinta-feira, 19 de agosto de 2010 17:04
 Para: lista-del...@yahoogrupos.com.br lista-delphi%40yahoogrupos.com.br;
 delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
 Assunto: [delphi-br] Componente ou Solução para Controle de Usuário.

 Boa tarde pessoal,

 estou procurando um componente bom pra controle de acesso dos usuarios, eu
 utilizada o UserControl, mas o site está fora do ar a um tempinho e não
 tenho o arquivo, estou procurando pelos arquivos dele ou por outra opção.

 Alguma sugestão ?

 Atenciosamente,

  




-- 
Att,

Jorge Ericsson S. Pinheiro
Ericsson Sistemas e Soluções
(61) 3244-4748 / 8592-9960 / 9227-4785
http://www.jericsson.com.br
jericsson...@gmail.com
jericsson...@jericsson.com.br
skype:jericsson
Brasília - DF


[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




Re: [delphi-br] Componente ou Solução para Control e de Usuário.

2010-08-20 Por tôpico Jorge Ericsson
Valew Rubem mas já tentei dessa forma, mas não deu certo, as vezes quando o
usuário que está logado, sai e tenta logar com outro dá vários erros de
exception..
Mas vou continuar tentando, infelizmente o suporte ao UserControl não tem
solução para isso, já uso ele em outras aplicações com sucesso a anos.
Abraços.

Em 20 de agosto de 2010 19:37, Rubem Rocha
rubem.ro...@dtmanaus.com.brescreveu:



 Essa primeira acredito que seja fácil de resolver. Coloca um MainMenu no
 formulário principal e associa ele ao componente UserControl. Depois cria
 uma rotina que lê o MainMenu e cria os grupos/botões/etc. no JvOutlookBar,
 já verificando se alguma opção do menu ficou habilitada ou escondida depois
 que foram aplicadas as políticas de controle de acesso do UserControl após
 o
 login do usuário.

 Ah, e antes que você pergunte... não fiz nada sobre isso e, acredito eu,
 não
 tenha exemplo pronto (peixe pescado, tratado e frito, pronto pra comer!)
 disso rolando por aí na net. Se eu tivesse uma necessidade de implementação
 igual a sua, partiria para essa abordagem! :D

 Boa sorte.
 Sds.


 -Mensagem original-
 De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto:
 delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em
 nome de Jorge Ericsson
 Enviada em: sexta-feira, 20 de agosto de 2010 18:23

 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
 Assunto: Re: [delphi-br] Componente ou Solução para Controle de Usuário.


 Amigos,

 Vocês que trabalham com o User Control poderia me ajudar em dois problemas
 ?

 1ª Eu preciso migrar o controle de usuário para UserControl de uma
 aplicação
 que trabalho com JvOutlookBar, mas não estou conseguindo associar o
 controle
 de menu ao de botões do JvOutlookBar.

 2ª Eu gostaria de saber como resolver o problema de envio de e-mail do
 UserControl, pois mesmo usando as dll informadas no suporte, não funciona.

 Abraços.

 Em 20 de agosto de 2010 18:19, Mauri Lima 
 ma...@uze.com.brmauri%40uze.com.br
 escreveu:

 
 
 
  Boa Tarde,
 
  A ultima versão e a UserControl2.30RC3, tenho aki se vc quiser posso
  enviar para seu e-mail ou se alguém quiser e disponibilizar, não sei se
  posso por na área de arquivos do grupo.
 
  Mauri Lima
 
  Boa Vista - Roraima
 
  O Ponto mais setentrional ao norte do Brasil e aqui!!.. Monte Caburaí
  homologado em 1999. Como extremo norte do Brasil.
 
  -Mensagem original-
 
  De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br%
 40yahoogrupos.com.br [mailto:
  delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br%
 40yahoogrupos.com.br] Em

  nome de Ralp Alves Bezerra
  Enviada em: sexta-feira, 20 de agosto de 2010 07:49
  Para: delphi-br@yahoogrupos.com.br 
  delphi-br%40yahoogrupos.com.brdelphi-br%
 40yahoogrupos.com.br

  Assunto: RES: [delphi-br] Componente ou Solução para Controle de Usuário.
 
 
  Disponibilizei a versão 2.18A do UserControl no endereço abaixo:
 
  http://www.upshare.me/files/hQRQel1282304804/UserControl2.18a.rar.html
 
  Não sei ainda se existe uma versão mais nova. Mas veja se esta lhe ajuda.
 
  Trabalho com UserControl a muito tempo e não tenho o que me queixar dele.
 
  Abraço.
 
  De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br%
 40yahoogrupos.com.br [mailto:
  delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br%
 40yahoogrupos.com.br] Em

  nome de Marciano Venter
  Enviada em: quinta-feira, 19 de agosto de 2010 17:04
  Para: 
  lista-del...@yahoogrupos.com.brlista-delphi%40yahoogrupos.com.brlista-delphi%
 40yahoogrupos.com.br;
  delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br%
 40yahoogrupos.com.br

  Assunto: [delphi-br] Componente ou Solução para Controle de Usuário.
 
  Boa tarde pessoal,
 
  estou procurando um componente bom pra controle de acesso dos usuarios,
 eu
  utilizada o UserControl, mas o site está fora do ar a um tempinho e não
  tenho o arquivo, estou procurando pelos arquivos dele ou por outra opção.
 
  Alguma sugestão ?
 
  Atenciosamente,
 
 
 

 --
 Att,

 Jorge Ericsson S. Pinheiro
 Ericsson Sistemas e Soluções
 (61) 3244-4748 / 8592-9960 / 9227-4785
 http://www.jericsson.com.br
 jericsson...@gmail.com jericssonsup%40gmail.com
 jericsson...@jericsson.com.br jericssonsup%40jericsson.com.br
 skype:jericsson
 Brasília - DF

  




-- 
Att,

Jorge Ericsson S. Pinheiro
Ericsson Sistemas e Soluções
(61) 3244-4748 / 8592-9960 / 9227-4785
http://www.jericsson.com.br
jericsson...@gmail.com
jericsson...@jericsson.com.br
skype:jericsson
Brasília - DF


[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

Re: [delphi-br] OFF TOPIC: Qualidade de Vida na Áre a de TI

2010-08-16 Por tôpico Jorge Ericsson
De qq forma te agradeço pelo menos a tentativa Marcelo, tbém achei grande
demais essa pesquisa.
Obrigado.

Em 16 de agosto de 2010 11:59, Marcelo leite_rom...@yahoo.com.br escreveu:



 Na boa muito longa essa pesquisa, começei responder na ultima parte.
 respondi a
 olho 60 e poucas questões. acho demais

 
 De: Jorge Ericsson jericsson...@gmail.com jericssonsup%40gmail.com
 Enviadas: Segunda-feira, 16 de Agosto de 2010 11:36:05
 Assunto: [delphi-br] OFF TOPIC: Qualidade de Vida na Área de TI

 *Olá amigos,


 Tenho um amigo que está defendendo uma dissertação e gostaria da
 colaboração
 se possível de todos que trabalham na área de TI.

 Segue o link abaixo:
 *
 *
 *Prezado

 Caso ao clicar no link, ao inves de abrir a pesquisa, tenha sido solicitado
 um login e senha. cancele. Por favor, copie o link abaixo:

 http://www.surveymonkey.com/s/profissionalti

 e cole na URL do bronwser para iniciar a pesquisa.

 Obrigado
 sandro

 Ola Jorge, tudo bem?

 Preciso de um grande favor. Estou iniciando uma pesquisa sobre
 profissionais e ambiente de TI. Poderia responder, enviar para seus
 colaboradores de TI, colegas de trabalho, parceiros TI, fornecedores TI.

 grato
 sandro

 
 Prezado(a) Colega(a)

 Estou realizando uma pesquisa para ser apresentada na minha defesa
 (dissertação) da Universidade Católica de Brasilia, no programa Mestrado em
 Gestão do Conhecimento e TI.

 Esta pesquisa tem por objetivo levantar dados sobre o ambiente de trabalho
 das TI´s nas organizações e como o profissional de TI(tecnologia da
 informação) se sente dentro deste ambiente. Ao mesmo tempo, a corrente
 pesquisa também procura identificar como os profissionais de TI lidam com
 um
 determinado problema relacionado ao seu ambiente de trabalho.

 Serão 31 questões referentes ao ambiente de trabalho das TI´s e como o
 profissional de TI se sente e 66 questões referentes a como os
 profissionais
 de TI lidam com um determinado problema dentro do seu ambiente de trabalho.

 O tempo médio para preencher a pesquisa é de 15 minutos.

 Ao responde-la estará concordando com a divulgação dos resultados lembrando
 que não existe nenhuma informação que possa identificá-lo. Os resultados
 serão apenas estatísticos.

 Minha expectativa é que a pesquisa traga como *resultado informações úteis
 para melhoria de qualidade de vida do profissional de TI dentro das
 organizações e neste sentido que os mesmos possam contribuir ainda mais
 para
 os resultados corporativos.*
 * *
 Clique aqui, para iniciar pesquisa:
 http://www.surveymonkey.com/s/profissionalti
 https://correio.sebrae.com.br/exchweb/bin/redir.asp?URL=https://correio.sebrae.com.br/exchweb/bin/redir.asp?URL=http://www.surveymonkey.com/s/profissionalti
 


 Obrigado
 Sandro Servino
 sandro.serv...@gmail.com sandro.servino%40gmail.com

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

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

  




-- 
Att,

Jorge Ericsson S. Pinheiro
Ericsson Sistemas e Soluções
(61) 3244-4748 / 8592-9960 / 9227-4785
http://www.jericsson.com.br
jericsson...@gmail.com
jericsson...@jericsson.com.br
skype:jericsson
Brasília - DF


[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] URGENTE: UserControl Decriptar senha para teste

2010-08-16 Por tôpico Jorge Ericsson
Olá pessoal,

Alguém pode me ajudar com o problema de como decriptar a senha do usuário
usando o compoente UserControl ?

Preciso criar uma rotina onde ao excluir um registro do cadastro de membros
ele teste a senha do usuário e caso não seja o ADMINISTRADOR não poderá
excluir.

Tentei o procedimento abaixo, mas não deu certo, alguém pode me ajudar.

procedure TfrmMembros.btnExcluirClick(Sender: TObject);
*var vPermissaoSenha: string;
begin
  if SolicitarPermissao('Solicitar Permissão', 'Informe a senha do
Administrador:', vPermissaoSenha) = True then
  begin
frmPrincipal.vSenha := Decrypt(frmPrincipal.vSenha,
frmPrincipal.UCPrincipal.EncryptKey);
if (UpperCase(vPermissaoSenha) = frmPrincipal.vSenha) and
(frmPrincipal.vUsuario = 'ADMIN') then
begin
 activecontrol := nil;
 dm.membros.Delete;
end;
  end;
end;*

Att,

Jorge Ericsson S. Pinheiro
Ericsson Sistemas e Soluções
(61) 3244-4748 / 8592-9960 / 9227-4785
http://www.jericsson.com.br
jericsson...@gmail.com
jericsson...@jericsson.com.br
skype:jericsson
Brasília - DF


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



Re: [delphi-br] URGENTE: UserControl Decriptar senha para teste

2010-08-16 Por tôpico Jorge Ericsson
Eu percebi isso Murilo, então criei um usário mestre que não aparece na
lista de usuários onde solicito a senha desse usuário.
Só assim consegui resolver o problema.
De qq forma valew pelas dicas pessoal.
Abraços.

Em 16 de agosto de 2010 17:31, Murilo Cunha mcscu...@yahoo.com.brescreveu:



 Jorge,

 Se nao me engano nao tem como desencriptar.
 O codigo usado eh o MD5. Nao ha como reverter.
 O que pode ser feito eh atribuir um usuario e senha ja conhecidos e
 exibi-los para o usuario.
 Ou seja, cancelar o registro e inserir um outro (bem conhecido) feito
 pelo sistema.

 Obrigado
 MuriloCunha


 On 16/08/2010 15:49, Jorge Ericsson wrote:
  Olá pessoal,
 
  Alguém pode me ajudar com o problema de como decriptar a senha do usuário
  usando o compoente UserControl ?
 
  Preciso criar uma rotina onde ao excluir um registro do cadastro de
 membros
  ele teste a senha do usuário e caso não seja o ADMINISTRADOR não poderá
  excluir.
 
  Tentei o procedimento abaixo, mas não deu certo, alguém pode me ajudar.
 
  procedure TfrmMembros.btnExcluirClick(Sender: TObject);
  *var vPermissaoSenha: string;
  begin
  if SolicitarPermissao('Solicitar Permissão', 'Informe a senha do
  Administrador:', vPermissaoSenha) = True then
  begin
  frmPrincipal.vSenha := Decrypt(frmPrincipal.vSenha,
  frmPrincipal.UCPrincipal.EncryptKey);
  if (UpperCase(vPermissaoSenha) = frmPrincipal.vSenha) and
  (frmPrincipal.vUsuario = 'ADMIN') then
  begin
  activecontrol := nil;
  dm.membros.Delete;
  end;
  end;
  end;*
 
  Att,
 
  Jorge Ericsson S. Pinheiro
  Ericsson Sistemas e Soluções
  (61) 3244-4748 / 8592-9960 / 9227-4785
  http://www.jericsson.com.br
  jericsson...@gmail.com jericssonsup%40gmail.com
  jericsson...@jericsson.com.br jericssonsup%40jericsson.com.br
  skype:jericsson
  Brasília - DF
 
 
  [As partes desta mensagem que não continham texto foram removidas]
 
 
 
  
 

  




-- 
Att,

Jorge Ericsson S. Pinheiro
Ericsson Sistemas e Soluções
(61) 3244-4748 / 8592-9960 / 9227-4785
http://www.jericsson.com.br
jericsson...@gmail.com
jericsson...@jericsson.com.br
skype:jericsson
Brasília - DF


[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] Dicas bacanas de restaurantes, bares e etc...

2010-07-14 Por tôpico Jorge Ericsson
Olá Amigos(as),

Esse site é muito maneiro, tem várias promoções (mais em conta até que as
que aconteciam do Visa) aqui em Brasília. E se vc viaja pelo país, tb pode
encontrar em outras cidades.

Vale a pena conferir.

O link é: 
http://www.peixeurbano.com.br/convite/5TPAhttp://www.peixeurbano.com.br/convite/5TEH

Com tempo, façam o cadastro que você tmbém ganha descontos.

Abraços

Jorge Ericsson


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



[delphi-br] Urgente: Pedendo estado de inserção após tela de confirmação

2010-07-14 Por tôpico Jorge Ericsson
Olá amigos

Estou com um sério problema na minha aplicação delphi 7 + mysql + ADO.
Estava funcionando tudo perfeitinho numa rotina de registro de entrada a
anos, após uma alteração solicitada pelo meu usuário, eu coloquei apenas uma
mensagem de confirmação e
após a confirmação o mesmo mudou o estado de dsInset para dsInactive.
Estou tentando encontrar o problema e não consigo será que alguém já passou
por isso ?

Segue abaixo um trecho do código que parou de funcionar logo após a mensagem
de confirmação.

*procedure TFormEntradas.GravarEntradaContribuicao(vContaContabil : String);
begin
 try
  //Iniciar a inserção de dados na tabela de contribuição
  if (DBLookupFormaPagto.KeyValue = Null) or (DBLookupFormaPagto.KeyValue =
0) Then
  begin
   DBLookupFormaPagto.SetFocus;
   Application.MessageBox('O campo Forma de Pagamento é de preenchimento
OBRIGATÓRIO.','Aviso do Sistema',MB_OK + MB_ICONWARNING);
   Exit;
  end;

  vVlrEntrada := StrToFloat(BuscaTroca(dbevlrEntrada.Text,'.',''));
  if (Trim(dbevlrEntrada.Text) = '') or (vVlrEntrada = 0) Then
dbevlrEntrada.SelectAll;
//Até aqui o DataSet está com Inserção
  if (Application.MessageBox(Pchar('Confirma a CONTRIBUIÇÃO no valor de R$
'+FormatFloat('#,##0.00', vVlrEntrada)+' ?'), 'Entrada de Contribuição',
MB_ICONQUESTION + MB_YESNO) = IDYES) then
  begin
//Após a confirmação do valor o mesmo muda para dsInactive e não entra na
rotina abaixo
//Gostaria de entender o motivo dessa mudança..
Screen.Cursor := crSQLWait;
//Aqui
if (dtsEntradas.DataSet.State in [dsInsert, dsEdit])
and
   (dtsContaContabil.DataSet.FieldByName('cta_contabilred').Value  0)
and
   (dtsFormaPgto.DataSet.FieldByName('cod_formapgto').Value  0)
Then
begin
 vVlrEntrada := StrToFloat(BuscaTroca(dbevlrEntrada.Text,'.',''));
 vDtaEntrada := FormatDateTime('/mm/dd',Now);
 vHraEntrada := FormatDateTime('HH:mm',Now);
 btnImprimir.Enabled := True;
*

Obrigado,

Jorge Ericsson
Brasília - DF


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



Re: [delphi-br] Dicas bacanas de restaurantes, bares e etc...

2010-07-14 Por tôpico Jorge Ericsson
Pessoal desconsidere esse e-mail, foi enviado de forma automática para todos
da minha lista sem minha autorização.
Desculpem..


2010/7/14 Marcos Bernardo xmarcos@gmail.com

 kakakakakakaka tcs tcs tcs

 Em 14 de julho de 2010 11:00, Jorge Ericsson jericsson...@gmail.com
 escreveu:

 
 
  Olá Amigos(as),
 
  Esse site é muito maneiro, tem várias promoções (mais em conta até que as
  que aconteciam do Visa) aqui em Brasília. E se vc viaja pelo país, tb
 pode
  encontrar em outras cidades.
 
  Vale a pena conferir.
 
  O link é: http://www.peixeurbano.com.br/convite/5TPA
  http://www.peixeurbano.com.br/convite/5TEH
 
  Com tempo, façam o cadastro que você tmbém ganha descontos.
 
  Abraços
 
  Jorge Ericsson
 
  [As partes desta mensagem que não continham texto foram removidas]
 
 
 



 --
 Marcos A. de A. Bernardo
 xmarcos@gmail.com
 11 - 9462-2657 / 11- 3205-1499
 http://bagusconsultoria.wordpress.com/


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



 

 --
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 






-- 
Att,

Jorge Ericsson S. Pinheiro
Ericsson Sistemas e Soluções
(61) 3244-4748 / 8592-9960 / 9227-4785
http://www.jericsson.com.br
jericsson...@gmail.com
jericsson...@jericsson.com.br
skype:jericsson
Brasília - DF


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



[delphi-br] OFF Topic - MySQL Guia do Programador em PDF

2010-06-10 Por tôpico Jorge Ericsson
*MySQL* - *Guia do
Programador*http://www.google.com.br/url?sa=tsource=webcd=1ved=0CBYQFjAAurl=http%3A%2F%2Fnovatec.com.br%2Flivros%2Fmysqlcompleto%2Frct=jq=MySql+Guia+do+Programadorei=7IwRTKzCCYGClAep-NXLBwusg=AFQjCNHOgao_EtCleouZyKMT6xc0EgAWFwsig2=4BSERhv2Lt_BkvOBNxsMYgOlá
amigos,Gostaria de saber se alguém me indica um link para baixar o livro
MySQL - Guia do Programador ou até mesmo comprar a versão eletrônica do
mesmo.Se alguém puder me ajudar, por favor eu agradeço desde já.Abraços a
todos.*Jorge Ericsson
Brasília - DF
*


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



Re: [delphi-br] Pasta scanner

2010-02-22 Por tôpico Jorge Ericsson
Ralp, se estiver usando o OpenDialog faça como abaixo:

var
  dlg: TOpenDialog;
...
  dlg := TOpenDialog.Create(Self);
  // podia ser dlg := TOpenDialog.Create(nil);
  try
dlg.DefaultExt := 'jpeg';
dlg.Filter := ' Arquivo
http://www.forumweb.com.br/foruns/index.php?/topic/31985-criar-opendialog/#
de Imagem (*.jpeg)|*.jpeg|Todos os arquivos (*.*)|*.*';
dlg.Options := [ofHideReadOnly, ofPathMustExist, ofFileMustExist];
dlg.Title := 'Diretório das Imagens';
dlg.InitialDir := ExtractFilePath(Application.ExeName);

if dlg.Execute then begin
  // dlg.FileName tem o nome do arquivo
end;
  finally
dlg.Free;
  end;


Espero ter ajudado.

Em 22 de fevereiro de 2010 07:54, Ralp Alves Bezerra ral...@gmail.comescreveu:



 Bom dia nobre colegas, estou com uma dúvida e mais uma vez recorro a lista.

 Teria uma maneira via Delphi de configurar a pasta em que as imagens serão
 digitalizadas.

 Ex.: Ao abrir meu sistema o mesmo já configurar a pasta que desejo salvar
 as
 imagens.

 As imagens serão digitalizadas em um scanner de alta velocidade e após a
 digitalização serão importadas para o meu sistema pegando as imagens na
 pasta que configurei.

 Estou utilizando Delphi 7 e Firebird 2.1.

 Agradeço desde já e abraço a todos.

 Ralp Alves

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

  




-- 
Grato,

Jorge Ericsson S. Pinheiros
Ericsson Sistemas e Soluções
(61) 3244-4748 / 8592-9960 / 9227-4785
http://www.jericsson.com.br
jericsson...@gmail.com
jericsson...@jericsson.com.br
skype:jericsson
Brasília - DF


[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




Re: [delphi-br] Pasta scanner

2010-02-22 Por tôpico Jorge Ericsson
Ralp,

Você está usando algum componente para scannear a imagem ?
Como você está abrindo o aplicativo ?
Pelo Delphi, se estiver usando um componente, basta informar o caminho que
deseja.
Informe mais a sua situação para que possamos ajuda-lo.
Abraços.


Em 22 de fevereiro de 2010 13:28, Ralp Alves Bezerra ral...@gmail.comescreveu:



 Está rotina irei utilizar para fazer a carga dos arquivos.

 O que eu queria saber é como configurar a pasta na qual o scanner vai
 digitalizar as imagens.

 Ex. Assim que iniciar minha aplicação, automaticamente seria informado ao
 scanner a pasta que o mesmo deverá digitalizar as imagens.

 Abraço

 -Mensagem original-
 De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto:
 delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em
 nome de Jorge Ericsson
 Enviada em: segunda-feira, 22 de fevereiro de 2010 13:12
 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
 Assunto: Re: [delphi-br] Pasta scanner


 Ralp, se estiver usando o OpenDialog faça como abaixo:

 var
 dlg: TOpenDialog;
 ...
 dlg := TOpenDialog.Create(Self);
 // podia ser dlg := TOpenDialog.Create(nil);
 try
 dlg.DefaultExt := 'jpeg';
 dlg.Filter := ' Arquivo
 
 http://www.forumweb.com.br/foruns/index.php?/topic/31985-criar-opendialog/#

 
 de Imagem (*.jpeg)|*.jpeg|Todos os arquivos (*.*)|*.*';
 dlg.Options := [ofHideReadOnly, ofPathMustExist, ofFileMustExist];
 dlg.Title := 'Diretório das Imagens';
 dlg.InitialDir := ExtractFilePath(Application.ExeName);

 if dlg.Execute then begin
 // dlg.FileName tem o nome do arquivo
 end;
 finally
 dlg.Free;
 end;

 Espero ter ajudado.

 Em 22 de fevereiro de 2010 07:54, Ralp Alves Bezerra
 ral...@gmail.com ralprd%40gmail.comescreveu:

 
 
  Bom dia nobre colegas, estou com uma dúvida e mais uma vez recorro a
 lista.
 
  Teria uma maneira via Delphi de configurar a pasta em que as imagens
 serão
  digitalizadas.
 
  Ex.: Ao abrir meu sistema o mesmo já configurar a pasta que desejo salvar
  as
  imagens.
 
  As imagens serão digitalizadas em um scanner de alta velocidade e após a
  digitalização serão importadas para o meu sistema pegando as imagens na
  pasta que configurei.
 
  Estou utilizando Delphi 7 e Firebird 2.1.
 
  Agradeço desde já e abraço a todos.
 
  Ralp Alves
 
  [As partes desta mensagem que não continham texto foram removidas]
 
 
 

 --
 Grato,

 Jorge Ericsson S. Pinheiros
 Ericsson Sistemas e Soluções
 (61) 3244-4748 / 8592-9960 / 9227-4785
 http://www.jericsson.com.br
 jericsson...@gmail.com jericssonsup%40gmail.com
 jericsson...@jericsson.com.br jericssonsup%40jericsson.com.br
 skype:jericsson
 Brasília - DF

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

 


 --
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

 __ Information from ESET NOD32 Antivirus, version of virus
 signature
 database 4887 (20100222) __

 The message was checked by ESET NOD32 Antivirus.

 http://www.eset.com



 __ Information from ESET NOD32 Antivirus, version of virus
 signature
 database 4887 (20100222) __

 The message was checked by ESET NOD32 Antivirus.

 http://www.eset.com


  




-- 
Grato,

Jorge Ericsson S. Pinheiros
Ericsson Sistemas e Soluções
(61) 3244-4748 / 8592-9960 / 9227-4785
http://www.jericsson.com.br
jericsson...@gmail.com
jericsson...@jericsson.com.br
skype:jericsson
Brasília - DF


[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




Re: [delphi-br] Pasta scanner

2010-02-22 Por tôpico Jorge Ericsson
Ralp,

Então a solução que eu te dou é verificar na Registry do Windows em qual
chave está a pasta setada pela última abertura do Scanner.
Assim vou poderá através do delphi controlar essa chave de registro.
Creio que assim poderá resolver o seu problema.
Eu consegui fazendo isso através da minha aplicação, onde o problema do
scanner poderia também ser executado, então pela chamada do executável eu
forçava a gravação do caminho na chave de registro do scanner que na época
era o Logitech.
Uma dica é entrar através do aplicativo do scanner e verificar o caminho que
ele grava e qual a chave utilizada.
Espero que resolva,

Em 22 de fevereiro de 2010 13:59, Ralp Alves Bezerra ral...@gmail.comescreveu:



 E o seguinte, minha aplicação já executa a digitalização normalmente
 salvando em banco ok através do TAcquireImage.

 A questão e que foi comprado um scanner que faz a digitalização em alta
 velocidade (Avision). O que eu preciso fazer é informar ao scanner em que
 pasta o mesmo deve digitalizar as imagens e após a digitalização, farei a
 importação destas imagens para o sistema e gravarei no firebird 2.1.

 Será que isso é possível?

 Devido ao custo elevado do equipamento, o mesmo será utilizado em 2 setores
 distintos, por isso preciso configurar antes da digitalização qual seria a
 pasta de digitalização das imagens.

 Abraços.

 Ralp Alves


 -Mensagem original-
 De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto:
 delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em
 nome de Jorge Ericsson
 Enviada em: segunda-feira, 22 de fevereiro de 2010 13:33

 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
 Assunto: Re: [delphi-br] Pasta scanner

 Ralp,

 Você está usando algum componente para scannear a imagem ?
 Como você está abrindo o aplicativo ?
 Pelo Delphi, se estiver usando um componente, basta informar o caminho que
 deseja.
 Informe mais a sua situação para que possamos ajuda-lo.
 Abraços.

 Em 22 de fevereiro de 2010 13:28, Ralp Alves Bezerra
 ral...@gmail.com ralprd%40gmail.comescreveu:

 
 
  Está rotina irei utilizar para fazer a carga dos arquivos.
 
  O que eu queria saber é como configurar a pasta na qual o scanner vai
  digitalizar as imagens.
 
  Ex. Assim que iniciar minha aplicação, automaticamente seria informado ao
  scanner a pasta que o mesmo deverá digitalizar as imagens.
 
  Abraço
 
  -Mensagem original-
  De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br%
 40yahoogrupos.com.br [mailto:
  delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br%
 40yahoogrupos.com.br] Em

  nome de Jorge Ericsson
  Enviada em: segunda-feira, 22 de fevereiro de 2010 13:12
  Para: delphi-br@yahoogrupos.com.br 
  delphi-br%40yahoogrupos.com.brdelphi-br%
 40yahoogrupos.com.br

  Assunto: Re: [delphi-br] Pasta scanner
 
 
  Ralp, se estiver usando o OpenDialog faça como abaixo:
 
  var
  dlg: TOpenDialog;
  ...
  dlg := TOpenDialog.Create(Self);
  // podia ser dlg := TOpenDialog.Create(nil);
  try
  dlg.DefaultExt := 'jpeg';
  dlg.Filter := ' Arquivo
  
 
 http://www.forumweb.com.br/foruns/index.php?/topic/31985-criar-opendialog/#
 
  
  de Imagem (*.jpeg)|*.jpeg|Todos os arquivos (*.*)|*.*';
  dlg.Options := [ofHideReadOnly, ofPathMustExist, ofFileMustExist];
  dlg.Title := 'Diretório das Imagens';
  dlg.InitialDir := ExtractFilePath(Application.ExeName);
 
  if dlg.Execute then begin
  // dlg.FileName tem o nome do arquivo
  end;
  finally
  dlg.Free;
  end;
 
  Espero ter ajudado.
 
  Em 22 de fevereiro de 2010 07:54, Ralp Alves Bezerra
  ral...@gmail.com ralprd%40gmail.com ralprd%40gmail.comescreveu:

 
  
  
   Bom dia nobre colegas, estou com uma dúvida e mais uma vez recorro a
  lista.
  
   Teria uma maneira via Delphi de configurar a pasta em que as imagens
  serão
   digitalizadas.
  
   Ex.: Ao abrir meu sistema o mesmo já configurar a pasta que desejo
 salvar
   as
   imagens.
  
   As imagens serão digitalizadas em um scanner de alta velocidade e após
 a
   digitalização serão importadas para o meu sistema pegando as imagens na
   pasta que configurei.
  
   Estou utilizando Delphi 7 e Firebird 2.1.
  
   Agradeço desde já e abraço a todos.
  
   Ralp Alves
  
   [As partes desta mensagem que não continham texto foram removidas]
  
  
  
 
  --
  Grato,
 
  Jorge Ericsson S. Pinheiros
  Ericsson Sistemas e Soluções
  (61) 3244-4748 / 8592-9960 / 9227-4785
  http://www.jericsson.com.br
  jericsson...@gmail.com jericssonsup%40gmail.com jericssonsup%
 40gmail.com
  jericsson...@jericsson.com.br 
  jericssonsup%40jericsson.com.brjericssonsup%
 40jericsson.com.br

  skype:jericsson
  Brasília - DF
 
  [As partes desta mensagem que não continham texto foram removidas]
 
  
 
 
  --
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 
 
  __ Information from ESET NOD32 Antivirus, version of virus
  signature
  database 4887 (20100222

[delphi-br] Urgente: Exporta para WORD 2003

2010-02-12 Por tôpico Jorge Ericsson
Olá amigos,

Alguém conhece uma solução de exportação de relatório no
*QuickReport*(apenas), para
* Word 2003* (Doc).

Para RTF eu já consegui mas a formatação do relatório não fica 100% usando a
instrução abaixo:

  with SaveDialog1 do
  begin
if Execute then
begin

 self.RPreview.QRPrinter.ExportToFilter(TQRRTFExportFilter.Create(FileName));
  {
  Other filters:
  HTML: TQRHTMLDocumentFilter
  ASCII: TQRAsciiExportFilter
  CSV: TQRCommaSeparatedFilter
  WMF: TQRWMFExportFilter
  Excel: TQRXLSFilter
  }
end;
  end;


Grato pela ajuda,

Jorge Ericsson S. Pinheiros
Ericsson Sistemas e Soluções
(61) 3244-4748 / 8592-9960 / 9227-4785
http://www.jericsson.com.br
jericsson...@gmail.com
jericsson...@jericsson.com.br
skype:jericsson
Brasília - DF


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



[delphi-br] Como captura a porta de acesso ao servidores de horas aqui do Brasil

2010-02-05 Por tôpico Jorge Ericsson
Olá amigos,

Gostaria de saber como obter a porta de acesso aos servidores de hora do
Brasíl.

Estou usando o componente Indy *IdDayTime *e preciso configurar a porta para
que o mesmo capture a Data e Hora do servidor.

Se alguém puder me ajuda, desde já agradeço.

Obs.: Já testei as portas 13 e 37 padrões para outros servidores de fora e
não deu certo.

IdDayTime.Host := Tabelas.vServidorHora;
IdDayTime.Port  := Tabelas.vServidorPort;

Abraços,

Jorge Ericsson
Brasília - DF


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



Re: [delphi-br] Urgente: Erro ao atualizar dados em uma tabela.

2010-02-05 Por tôpico Jorge Ericsson
Olá amigos, o problema já foi resolvido.

Estava acontecendo devido a tentativa de atualização da data de nascimento
que estava nula no banco, ou seja, -00-00.

Eu dei um update em todas as data para NULL e parou de dá o erro, não
entendi tbém...rsrs

A rotina da tela de cadastro é muito grande, não daria para postar aqui.

De qualquer forma está funcionando bem e já tratei para uma mensagem mais
amigavel.

Obs.: Só aconteceu esse problema na base de dados de um cliente que sofre
migração de outro sistema, e não havia reparado nessa data dessa forma.

Obrigado a todos.


Em 5 de fevereiro de 2010 08:59, Walter Chagas (Bol)
wchag...@bol.com.brescreveu:



 Jorge, este erro normalmente aconteceu porque a tabela ou não tem uma chave
 primária ou uma chave primaria não muito consistente e a atualização que
 voce tentou fazer consiste em um registro que já exista no banco ou que o
 SGBD interpretou como um registro duplicado.

 Seria interessante, por exemplo, voce postar o código da rotina aque pra
 ver se dá pra enxergar alguma coisa.

 []s


 Walter Alves Chagas Junior
 Belo Horizonte - MG - Brazil
 wchag...@bol.com.br wchagasj%40bol.com.br
 http://delphitocorporerm.blogspot.com/
 http://twitter.com/wchagas
 MSN: whitesock...@hotmail.com whitesockets%40hotmail.com
 SKYPE: WalterChagasJr


 - Original Message -
 From: Jorge Ericsson
 To: undisclosed-recipients:
 Sent: Thursday, February 04, 2010 5:29 PM
 Subject: [delphi-br] Urgente: Erro ao atualizar dados em uma tabela.

 Amigos Delphianos,

 Estou usando o Delphi 7 + ADO + MySQL e em alguns casos de atualização de
 dados, está aparecendo esta mensagem qdo executo o POST:
 *
 A linha não pode ser localizada para atualização. Alguns valores podem ter
 sido alterados desde que ela foi lida pela última vez

 *Obs.: Não estou usando Master/Detail, apenas estou atualizando os dados em
 uma tabela, depois de preencher alguns dados (DBLookUpComboBox), DBEdit
 *
 *Alguém poderia me dá uma solução para este problema ? *
 *
 Abraços,

 Jorge Ericsson
 Brasília - DF

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

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

  



[As partes desta mensagem que não 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




Re: [delphi-br] Como captura a porta de acesso ao servidores de horas aqui do Brasil

2010-02-05 Por tôpico Jorge Ericsson
Ricardo,

Está certo a sua informação, eu que estava usando o componente Indy errado.
Troquei pelo correto que já vem por default a porta 123 para acesso e
funcionou.
De qq forma mto obrigado pela ajuda.


Em 5 de fevereiro de 2010 16:03, Ricardo César Cardoso 
ricardo_engs...@yahoo.com.br escreveu:



 Jorge,

 Apenas como leigo, fui procurar na internet pelo assunto e vi que a porta
 de acesso aos servidores é a UDP 123. Mas como sou leigo posso ter me
 equivocado e te passado alguma informação errada. Segue abaixo o link de
 onde tirei a informação:

 http://ntp.br/faq.html

 http://ntp.br/guia.html

 Abraço,
 Ricardo.

 1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS.

 2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor
 compreendida.

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

 --- Em sex, 5/2/10, Jorge Ericsson 
 jericsson...@gmail.comjericssonsup%40gmail.com
 escreveu:

 De: Jorge Ericsson jericsson...@gmail.com jericssonsup%40gmail.com
 Assunto: [delphi-br] Como captura a porta de acesso ao servidores de horas
 aqui do Brasil
 Para:
 Data: Sexta-feira, 5 de Fevereiro de 2010, 13:09




 Olá amigos,

 Gostaria de saber como obter a porta de acesso aos servidores de hora do

 Brasíl.

 Estou usando o componente Indy *IdDayTime *e preciso configurar a porta
 para

 que o mesmo capture a Data e Hora do servidor.

 Se alguém puder me ajuda, desde já agradeço.

 Obs.: Já testei as portas 13 e 37 padrões para outros servidores de fora e

 não deu certo.

 IdDayTime.Host := Tabelas.vServidorHo ra;

 IdDayTime.Port := Tabelas.vServidorPo rt;

 Abraços,

 Jorge Ericsson

 Brasília - DF

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

  




-- 
Grato,

Jorge Ericsson S. Pinheiros
Ericsson Sistemas e Soluções
(61) 3244-4748 / 8592-9960 / 9227-4785
http://www.jericsson.com.br
jericsson...@gmail.com
jericsson...@jericsson.com.br
skype:jericsson
Brasília - DF


[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] Alguém já trabalhou com o componente EMS QuickPDF

2010-02-05 Por tôpico Jorge Ericsson
** http://www.softlookup.com/display.asp?ID=73754Olá Pessoal,

Gostaria de saber se algum companheiro do forum utiliza ou já utilizou o EMS
QuickPDF ?
Preciso gerar meus relatórios PDF apartir do QuickReport.
Abraços,

Jorge Ericsson
Brasília - DF


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



Re: [delphi-br] Alguém já trabalhou com o componen te EMS QuickPDF

2010-02-05 Por tôpico Jorge Ericsson
*Pessoal só a título de informação, eu conheço o QuickReport, só estava
querendo uma opção de Exportação Free boa que gere o PDF.
Eu já encontrei a solução ideal enviada pelo Moacir..
Simples, leve e fácil utilização..
Resolvi meu problema com duas linhas de código.
É disso que eu preciso.,.. Rapidez e eficiência...
Valew pela dica Moacir...

  try
Screen.Cursor := crSqlWait;
ExportacaoPDF.Preview  := RPreview;
ExportacaoPDF.ExportQRFromPreview;
Screen.Cursor := crDefault;
  except
  end;

*
Em 5 de fevereiro de 2010 18:11, Marcelo leite_rom...@yahoo.com.brescreveu:



 O proprio quick exporta para pdf, só que na versão paga. é facinho se não
 me engano e só chamar a classe de exportação e pronto. Com relação a esta
 suica nunca trabalhei, outra opção bem menos elegante seria uma impressora
 pdf(virtual).

 
 De: Jorge Ericsson jericsson...@gmail.com jericssonsup%40gmail.com
 Enviadas: Sexta-feira, 5 de Fevereiro de 2010 17:44:56
 Assunto: [delphi-br] Alguém já trabalhou com o componente EMS QuickPDF

 ** http://www.softlook up.com/display. asp?ID=73754Olá Pessoal,


 Gostaria de saber se algum companheiro do forum utiliza ou já utilizou o
 EMS
 QuickPDF ?
 Preciso gerar meus relatórios PDF apartir do QuickReport.
 Abraços,

 Jorge Ericsson
 Brasília - DF

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

  




-- 
Grato,

Jorge Ericsson S. Pinheiros
Ericsson Sistemas e Soluções
(61) 3244-4748 / 8592-9960 / 9227-4785
http://www.jericsson.com.br
jericsson...@gmail.com
jericsson...@jericsson.com.br
skype:jericsson
Brasília - DF


[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] [RESOLVIDO] Alguém já trabalhou com o componente E MS QuickPDF

2010-02-05 Por tôpico Jorge Ericsson
*Pessoal só a título de informação, eu conheço o QuickReport, só estava
querendo uma opção de Exportação Free boa que gere o PDF.
Eu já encontrei a solução ideal enviada pelo Moacir..
Simples, leve e fácil utilização..
Resolvi meu problema com duas linhas de código.
É disso que eu preciso.,.. Rapidez e eficiência...
Valew pela dica Moacir...

  try
Screen.Cursor := crSqlWait;
ExportacaoPDF.Preview  := RPreview;
ExportacaoPDF.ExportQRFromPreview;
Screen.Cursor := crDefault;
  except
  end;

*

-- Mensagem encaminhada --
De: Jorge Ericsson jericsson...@gmail.com
Data: 5 de fevereiro de 2010 17:44
Assunto: Alguém já trabalhou com o componente EMS QuickPDF
Para:


** http://www.softlookup.com/display.asp?ID=73754Olá Pessoal,

Gostaria de saber se algum companheiro do forum utiliza ou já utilizou o EMS
QuickPDF ?
Preciso gerar meus relatórios PDF apartir do QuickReport.
Abraços,

Jorge Ericsson
Brasília - DF




-- 
Grato,

Jorge Ericsson S. Pinheiros
Ericsson Sistemas e Soluções
(61) 3244-4748 / 8592-9960 / 9227-4785
http://www.jericsson.com.br
jericsson...@gmail.com
jericsson...@jericsson.com.br
skype:jericsson
Brasília - DF


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



[delphi-br] [PROBLEMA RESOLVIDO] Alguém já trabalhou com o com ponente EMS QuickPDF

2010-02-05 Por tôpico Jorge Ericsson
Agradeço a ajuda e dicas de todos...
O problema já foi resolvido..
Valew pessoal.


** http://www.softlookup.com/display.asp?ID=73754Olá Pessoal,

Gostaria de saber se algum companheiro do forum utiliza ou já utilizou o EMS
QuickPDF ?
Preciso gerar meus relatórios PDF apartir do QuickReport.
Abraços,

Jorge Ericsson
Brasília - DF




-- 
Grato,

Jorge Ericsson S. Pinheiros
Ericsson Sistemas e Soluções
(61) 3244-4748 / 8592-9960 / 9227-4785
http://www.jericsson.com.br
jericsson...@gmail.com
jericsson...@jericsson.com.br
skype:jericsson
Brasília - DF


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



[delphi-br] Urgente: Erro ao atualizar dados em uma tabela.

2010-02-04 Por tôpico Jorge Ericsson
Amigos Delphianos,

Estou usando o Delphi 7 + ADO + MySQL e em alguns casos de atualização de
dados, está aparecendo esta mensagem qdo executo o POST:
*
A linha não pode ser localizada para atualização. Alguns valores podem ter
sido alterados desde que ela foi lida pela última vez

*Obs.: Não estou usando Master/Detail, apenas estou atualizando os dados em
uma tabela, depois de preencher alguns dados (DBLookUpComboBox), DBEdit
*
*Alguém poderia me dá uma solução para este problema ? *
*
Abraços,

Jorge Ericsson
Brasília - DF


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



Re: [delphi-br] Componente SuperBina

2010-01-26 Por tôpico Jorge Ericsson
*Eu já tentei de tudo para colocar esse componente para funcionar e desisto
dele.
Alguém teria uma solução pronta de Identificador de Chamada em qq versão do
delphi para negociar ?
Eu preciso implantar uma solução urgente no meu programa de pizzaria que só
falta o ID estpa funcionando.
Me mandem um PVT para falarmos sobre o assunto.
Obrigado.*

2010/1/25 Ricardo César Cardoso ricardo_engs...@yahoo.com.br



 Até onde eu me lembro (e isso fazem alguns ANOS) vc tinha que ter um modem
 de marca pra conseguir o SuperBina funfando legal. Indicavam até os modens
 da USRobotics como os que davam melhor resultado.

 Hj em dia nem sei mais se a informação procede.

 Atte,
 Ricardo.

 1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS.

 2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor
 compreendida.

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

 --- Em seg, 25/1/10, Jorge Ericsson 
 jericsson...@gmail.comjericssonsup%40gmail.com
 escreveu:

 De: Jorge Ericsson jericsson...@gmail.com jericssonsup%40gmail.com
 Assunto: [delphi-br] Componente SuperBina
 Para:
 Data: Segunda-feira, 25 de Janeiro de 2010, 13:03




 Olá amigos,

 Alguém conseguiu colocar para funcionar o componente SuperBina ?

 Estou com problemas sérios e já troquei 3 placas de fax/modem para tentar

 colocar para funcionar e nada.

 Gostaria de saber se alguém usou, abandonou ou adotou algum solução para ID

 Chamadas com o componente.

 Abraços.

 *Segue abaixo a consulta do meu último modem que está funcionando super
 bem.

 *

 ATQ0V1E0 - OK

 AT+GMM - +GMM: PCI Soft Voice SoftRing Modem

 AT+FCLASS=? - 0,1,8,80

 AT#CLS=? - COMANDO SEM SUPORTE

 AT+GCI? - +GCI: 16

 AT+GCI=? - +GCI:

 (00,01,02,03, 04,05,06, 07,09,0A, 0B,0C,0D, 0E,0F,10, 11,12,13, 14,15,16,
 19,1A,1B, 1C,1D,1E, 1F,20,21, 22,23,24, 25,26,27, 28,29,2A, 2B,2C,2D,
 2E,2F,30, 31,32,33, 34,35,36, 37,38,39, 3A,3B,3C, 3D,3E,40, 41,43,44,
 45,46,47, 48,49,4B, 4C,4D,4E, 4F,50,51, 52,53,54, 55,56,57, 58,59,5A,
 5B,5C,5E, 5F,60,61, 62,63,64, 65,66,67, 68,69,6A, 6B,6C,6D, 6E,6F,70,
 71,72,73, 74,75,76, 77,78,79, 7A,7B,7C, 7D,7E,7F, 80,81,82, 83,84,85,
 86,87,88, 89,8A,8B, 8C,8D,8E, 8F,90,92, 93,94,96, 97,98,99, 9A,9B,9C,
 9D,9E,9F, A0,A1,A2, A3,A4,A5, A6,A7,A8, A9,AA,AB, AC,AD,AE, AF,B0,B1,
 B2,B3,B4, B5,B6,B7, B8,B9,BA, BB,BC,BD, BE,BF,C1, C2,C3,C4, C5,C7,C8,
 C9,CA,CB, CC,CD,CE, CF,D0,D1, D2,D3,D4, D5,D6,D7, D8,D9,DA, DB,DC,DD,
 DE,DF,E0, E1,E2,E3, E4,E5,E6, E7,E8,EB, EC,ED,EE, EF,F0,F1, F2,F3,F4,
 F5,F7,F8, F9,FA,FB, FC,FE)

 ATI1 - 255

 ATI2 - OK

 ATI3 - SoftK56V_B2. 1_V7.60.00

 ATI4 - PCI Soft Voice SoftRing Modem

 ATI5 - 022

 ATI6 - SoftK56

 CModem Version 12

 Rksample Version 342

 ATI7 - 255

 Jorge Ericsson

 Brasília - DF

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

  




-- 
Grato,

Jorge Ericsson S. Pinheiros
Ericsson Sistemas e Soluções
(61) 3244-4748 / 8592-9960 / 9227-4785
http://www.jericsson.com.br
jericsson...@gmail.com
jericsson...@jericsson.com.br
skype:jericsson
Brasília - DF


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

2010-01-25 Por tôpico Jorge Ericsson
Olá amigos,

Alguém conseguiu colocar para funcionar o componente SuperBina ?
Estou com problemas sérios e já troquei 3 placas de fax/modem para tentar
colocar para funcionar e nada.
Gostaria de saber se alguém usou, abandonou ou adotou algum solução para ID
Chamadas com o componente.
Abraços.

*Segue abaixo a consulta do meu último modem que está funcionando super bem.
 *
ATQ0V1E0 - OK
AT+GMM - +GMM: PCI Soft Voice SoftRing Modem
AT+FCLASS=? - 0,1,8,80
AT#CLS=? - COMANDO SEM SUPORTE
AT+GCI? - +GCI: 16
AT+GCI=? - +GCI:
(00,01,02,03,04,05,06,07,09,0A,0B,0C,0D,0E,0F,10,11,12,13,14,15,16,19,1A,1B,1C,1D,1E,1F,20,21,22,23,24,25,26,27,28,29,2A,2B,2C,2D,2E,2F,30,31,32,33,34,35,36,37,38,39,3A,3B,3C,3D,3E,40,41,43,44,45,46,47,48,49,4B,4C,4D,4E,4F,50,51,52,53,54,55,56,57,58,59,5A,5B,5C,5E,5F,60,61,62,63,64,65,66,67,68,69,6A,6B,6C,6D,6E,6F,70,71,72,73,74,75,76,77,78,79,7A,7B,7C,7D,7E,7F,80,81,82,83,84,85,86,87,88,89,8A,8B,8C,8D,8E,8F,90,92,93,94,96,97,98,99,9A,9B,9C,9D,9E,9F,A0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,B0,B1,B2,B3,B4,B5,B6,B7,B8,B9,BA,BB,BC,BD,BE,BF,C1,C2,C3,C4,C5,C7,C8,C9,CA,CB,CC,CD,CE,CF,D0,D1,D2,D3,D4,D5,D6,D7,D8,D9,DA,DB,DC,DD,DE,DF,E0,E1,E2,E3,E4,E5,E6,E7,E8,EB,EC,ED,EE,EF,F0,F1,F2,F3,F4,F5,F7,F8,F9,FA,FB,FC,FE)
ATI1 - 255
ATI2 - OK
ATI3 - SoftK56V_B2.1_V7.60.00
ATI4 - PCI Soft Voice SoftRing Modem
ATI5 - 022
ATI6 - SoftK56
   CModem Version 12
   Rksample Version 342
ATI7 - 255


Jorge Ericsson
Brasília - DF


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



[delphi-br] Re: Captura a Data da Internet

2010-01-02 Por tôpico Jorge Ericsson
*Valew amigos pelas dicas, consegui resolver o problema criando a função
abaixo usando o componente IdDayTime.*


  vServidorHora  := IniArquivo.ReadString('Parametros', 'Serv_Hora', '');
  if empty(vServidorHora) then vServidorHora :='time.nist.gov';

  vServidorPort  := StrToInt(IniArquivo.ReadString('Parametros',
'Serv_Porta', ''));
  if vServidorPort = 0 then vServidorPort := 37;

  IniArquivo.Free;


function TFormAviso.Captura_Hora_Servidor_Internet: String;
var i: integer;
texto, data: string;
begin
  IdDayTime.Host := Tabelas.vServidorHora;
  IdDayTime.Port := Tabelas.vServidorPort;

  data := IdDayTime.DayTimeStr;
  for i := 0 to length(data) do begin
if data[i] = ' ' then begin
  texto := copy(data, i + 1, 8);
  Break;
end;
  end;
  if texto  '' Then
  Result := copy(texto, 7, 2) + '/' + copy(texto, 4, 2) + '/20' +
copy(texto, 1, 2) else
  Result := FormatDateTime('dd/mm/', Now);
  //time.nist.gov
  //time-b.nist.gov
  //nist1-dc.ustiming.org
  //a.ntp.br
  //b.ntp.br
  //c.ntp.br
end;

  try
Screen.Cursor := crHourGlass;
if Tabelas.ADOConnSGI.InTransaction = False Then
Tabelas.ADOConnSGI.BeginTrans;
with Tabelas.ADOQueryGeral do
begin
  Close;
  Sql.Clear;
  Sql.Add('update tb_sgi_entidade set dta_servidor = '+
FormAviso.Captura_Hora_Servidor_Internet+'');
  ExecSql;
  Tabelas.ADOConnSGI.CommitTrans;
  Screen.Cursor := crDefault;
end;
  except
Screen.Cursor := crDefault;
Tabelas.ADOConnSGI.RollbackTrans;
  end;

Abraços a todos...


2010/1/1 Jorge Ericsson jericsson...@gmail.com

 Olá amigos delphianos, eu preciso criar um função para capturar a data e
 hora da internet, para depois gravar no banco. Para que o meu aplicativo só
 use está data e hora, impossibilitando que o o usuário mude a data do
 relógio para uma data posterior e efetue lançamentos futuros.

 Exemplo do meu problema:
 Eu tenho uma tela que registrar as entradas de pagamentos, mas não permite
 que a data seja informada, hoje ele captura a data pelo relógio do windows.

 Bom eu não gostaria que o usuário alterasse a data do windows e pudesse
 efetuar lançamentos para datas maiores que as atuais, sendo que pode efetuar
 lançamentos para datas anteriores a atual.

 Se alguém tiver uma solução por favor, me envie.

 Grato,

 Jorge Ericsson
 Brasília - DF




-- 
Att,

Jorge Ericsson S. Pinheiro
Ericsson Sistemas e Soluções
(61) 3244-4748 / 8592-9960 / 9227-4785
http://www.jericsson.com.br
jericsson...@gmail.com
jericsson...@jericsson.com.br
skype:jericsson
Brasília - DF


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



[delphi-br] Captura a Data da Internet

2010-01-01 Por tôpico Jorge Ericsson
Olá amigos delphianos, eu preciso criar um função para capturar a data e
hora da internet, para depois gravar no banco. Para que o meu aplicativo só
use está data e hora, impossibilitando que o o usuário mude a data do
relógio para uma data posterior e efetue lançamentos futuros.

Exemplo do meu problema:
Eu tenho uma tela que registrar as entradas de pagamentos, mas não permite
que a data seja informada, hoje ele captura a data pelo relógio do windows.

Bom eu não gostaria que o usuário alterasse a data do windows e pudesse
efetuar lançamentos para datas maiores que as atuais, sendo que pode efetuar
lançamentos para datas anteriores a atual.

Se alguém tiver uma solução por favor, me envie.

Grato,

Jorge Ericsson
Brasília - DF


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



[delphi-br] Criando executaveis através do Camtasia

2009-12-28 Por tôpico Jorge Ericsson
Olá amigos,

Pesquisando no fórum verifiquei que muitos utilizam o CAMTASIA Studio para
criar suas vídeo aulas.

Eu estou preparando algumas vídeo-dicas para os meus usuários e gostaria de
saber no camtasia como gerar arquivos executaveis.

Preciso criar um CD de instalação dos meus sistemas onde através de vídeo o
mesmo poderá sanar suas dúvidas.

Se alguém souber de como efetuar essa criação, por favor, me reportem essa
dica.

Obs.: Eu já criei as vídeos dicas, mas preciso apenas converter os vídeo
para EXE.

Grato,

Jorge Ericsson
Brasília - DF


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



[delphi-br] Re: Criando executaveis através do Camtasia

2009-12-28 Por tôpico Jorge Ericsson
 Excelente dica Silvio, gostei muito do Wink, além de leve é rápido e limpo,
 faz muita coisa...
 O melhor de tudo é Open Source.
 Segue o link para quem desejar testar
 http://wink.mirrors.toolshape.com/wink20.zip

 http://wink.mirrors.toolshape.com/wink20.zipValew Silvio,

 Jorge Ericsson
 Brasília - DF




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



Re: [delphi-br] URGENTE: Identificador de Chamadas

2009-12-15 Por tôpico Jorge Ericsson
Valew amigos pelas dicas, aqui em Brasília eu já testei com duas linhas os
componentes que encontrei garimpando na net, mas nem um funcionou bem, só
que encontrei um demo de um sistema de delivery que funciona perfeitamente
com a fax/modem, só que a empresa vende a solução completa que custa o olho
da cara, por isso resolvi desenvolver um.

Estou testando algumas coisas com o ITAPI componente de comunicação, mas não
estou tento sucesso.

Abraços.


2009/12/15 Gabriel R B gbf...@gmail.com

 Olha, já tentei implementar uma identificação de chamadas. O que posso te
 adiantar é que:
 1º: a maioria das placas de Fax/Modem que vendem por aí não tem suporte a
 DTMF, e consequentemente, não fazem a leitura do número que está ligando,
 mesmo que sua linha esteja habilitada para identificar chamadas.
 2º: como o amigo EmbarcaDelphi disse, algumas regiões tem suas
 particularidades, e uma delas que conheço é que alguns lugares pro sinal
 DTMF chegar corretamente na sua placa, vc precisa colocar 1 peça entre a
 linha e a placa, comprada em lojas trabalham com telefonia.
 .
 É o que posso te adiantar.

 Abraço
 Gabriel R B


 2009/12/14 Jorge Ericsson jericsson...@gmail.com

 
 
  Olá amigos delphianos,
 
  Estou finalizando um sistema para controle de pizzaria (delivery) e neste
  projeto eu gostaria de implementar um controle de identificação de
  chamadas.
 
  Alguém tem uma solução que gostaria de negóciar ? O detalhe importante é
  que
  eu gostaria de usar a minha placa de fax/modem.
 
  Obs.: Minha linha telefônica de teste, já possui habilitado o
 Identificador
  de Chamadas.
 
  Aguardo contato.
 
  Jorge Ericsson S. Pinheiro
  Ericsson Sistemas e Soluções
  (61) 3797-4785 / 8592-9960 / 9227-4785
  http://www.jericsson.com.br
  jericsson...@gmail.com jericssonsup%40gmail.com
  jericsson...@jericsson.com.br jericssonsup%40jericsson.com.br
  skype:jericsson
  Brasília - DF
 
  [As partes desta mensagem que não continham texto foram removidas]
 
 
 


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



 

 --
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 






-- 
Att,

Jorge Ericsson S. Pinheiro
Ericsson Sistemas e Soluções
(61) 3797-4785 / 8592-9960 / 9227-4785
http://www.jericsson.com.br
jericsson...@gmail.com
jericsson...@jericsson.com.br
skype:jericsson
Brasília - DF


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



[delphi-br] URGENTE: Identificador de Chamadas

2009-12-14 Por tôpico Jorge Ericsson
Olá amigos delphianos,

Estou finalizando um sistema para controle de pizzaria (delivery) e neste
projeto eu gostaria de implementar um controle de identificação de chamadas.

Alguém tem uma solução que gostaria de negóciar ? O detalhe importante é que
eu gostaria de usar a minha placa de fax/modem.

Obs.: Minha linha telefônica de teste, já possui habilitado o Identificador
de Chamadas.

Aguardo contato.

Jorge Ericsson S. Pinheiro
Ericsson Sistemas e Soluções
(61) 3797-4785 / 8592-9960 / 9227-4785
http://www.jericsson.com.br
jericsson...@gmail.com
jericsson...@jericsson.com.br
skype:jericsson
Brasília - DF


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



Re: [delphi-br] Re: [NDDV] [OFF Topic] Curso para fo rmação ESPECIALISTA EM SOFTWARE

2009-11-27 Por tôpico Jorge Ericsson
Tenho um amigo que está terminando o curso de sistema de informação e me
perguntou sobre o curso de especialista em software e não soube informar ao
mesmo.
Eu não sei se é pós-graduação ou ligado em engenharia de software.
Apenas gostaria de saber como informar a ele qual curso e em qual
instituição ele poderia se forma em ESPECIALISTA EM SOFTWARE.


2009/11/27 Bruno Lichot bruno.lic...@microfocus.com



 www.noginfo.com.br

 From: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br[mailto:
 delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] On Behalf
 Of Walter Chagas (Bol)
 Sent: sexta-feira, 27 de novembro de 2009 09:47
 To: n...@yahoogrupos.com.br NDDV%40yahoogrupos.com.br; Grupo Delphi-BR
 Subject: [delphi-br] Re: [NDDV] [OFF Topic] Curso para formação
 ESPECIALISTA EM SOFTWARE


 Voce quer é algo no segmento de Engenharia de Software certo? O que seria
 especificamente? Faculdade, pós graduação ou apenas curso técnico?

 []s

 Walter Alves Chagas Junior
 Belo Horizonte - MG - Brazil
 wchag...@bol.com.br wchagasj%40bol.com.br 
 mailto:wchagasj%40bol.com.brwchagasj%2540bol.com.br

 http://delphitocorporerm.blogspot.com/
 http://twitter.com/wchagas
 MSN: whitesock...@hotmail.com whitesockets%40hotmail.com mailto:
 whitesockets%40hotmail.com whitesockets%2540hotmail.com
 SKYPE: WalterChagasJr

 - Original Message -
 From: Jorge Ericsson
 To: undisclosed-recipients:
 Sent: Thursday, November 26, 2009 10:08 PM
 Subject: [NDDV] [OFF Topic] Curso para formação ESPECIALISTA EM SOFTWARE

 Olá amigos,

 Gostaria de saber aonde posso encontrar um curso para formação em
 Especialista em Softwares.
 Tenho interesse de fazer Graduação ou Pós caso.
 Obrigado.

 Jorge Ericsson
 Brasília - DF

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

 Click here 
 https://www.mailcontroller.altohiway.com/sr/oZ733CC0o67TndxI!oX7UnlPSUZHzmrIAL4mYEyP7!IsMkDHiy6!V9L2QN!oc3+xSw9fV5QVhWCVy4oAFznL6w==
 to report this email as spam.

 This message has been scanned for viruses by MailController 
 http://www.MailController.altohiway.com/ .


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

  




-- 
Att,

Jorge Ericsson S. Pinheiro
Ericsson Sistemas e Soluções
(61) 3797-4785 / 8592-9960 / 9227-4785
http://www.jericsson.com.br
jericsson...@gmail.com
jericsson...@jericsson.com.br
skype:jericsson
Brasília - DF


[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] [OFF Topic] Curso para formação ESPECIALISTA EM SO FTWARE

2009-11-26 Por tôpico Jorge Ericsson
Olá amigos,

Gostaria de saber aonde posso encontrar um curso para formação em
Especialista em Softwares.
Tenho interesse de fazer Graduação ou Pós caso.
Obrigado.

Jorge Ericsson
Brasília - DF


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



[delphi-br] Necessito urgente do componente Duck Barcode

2009-11-04 Por tôpico Jorge Ericsson
Olá amigos,

Alguém teria o componente Duck Barcode para Delphi 7 ?
Necessito urgente para compilar uma aplicação antiga e
não consigo mais encontrar um link funcional que me
possibilite baixar novamente o componente.
Se preferir me envie o link em PVT fico grato.

Valew,

Jorge Ericsson
Brasília - DF


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



[delphi-br] Urgente: Aplicativo gerando travamento no Windows Vista

2009-09-29 Por tôpico Jorge Ericsson
Olá meus amigos,

Estou com um problema sério com minha aplicação no Windows Vista de um
usuário.

De uns tempos para cá, um usuário me reclamou que o sistema está travando e
aparentemente achei que era vírus, fiz todas as investigações possíveis e
não encontrei nada.
Analisando o log de erros do Windows eu me deparei com as informações a
baixo, que são geradas assim que eu mando finalizar o processo.

Alguém poderia me informar o que posso fazer para que isso acabe de uma vez
? Detalhe só acontece no windows vista, já pedi para o usuário testar seu
login no windows 2000 e xp que tem na empresa.

Log de erro gerado pelo windows vista.

Falha no compartimento de memória 742381043, tipo 5
Nome do Evento: AppHangB1
Resposta: Nenhum
ID. de arquivo CAB: 0

Assinatura do problema:
P1: siger.exe
P2: 2.17.9.1
P3: 2a425e19
P4: afae
P5: 0
P6:
P7:
P8:
P9:
P10:

Arquivos anexados:
C:\Users\testesammua\AppData\Local\Temp\WER4836.tmp.version.txt
C:\Users\testesammua\AppData\Local\Temp\WER5D4C.tmp.appcompat.txt

Estes arquivos podem estar disponíveis em:
C:\Users\testesammua\AppData\Local\Microsoft\Windows\WER\ReportArchive\Report0e6e624b


Att,

Jorge Ericsson S. Pinheiro
Ericsson Sistemas e Soluções
(61) 3797-4785 / 8592-9960 / 9227-4785
http://www.jericsson.com.br
jericsson...@gmail.com
jericsson...@jericsson.com.br
skype:jericsson
Brasília - DF


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



[delphi-br] SHOW DE BOLA - Desafiando o Tempo

2009-09-28 Por tôpico Jorge Ericsson
EU ACHO QUE ESSA PODE SER UMA PEQUENA AMOSTRA DE COMO SERÁ NO NOVO MUNDO...

SEM TER QUE FAZER NADA NA FRENTE DA TV.. RSRS

MUITO LEGAL.. SUPER FANTÁSTICO!!!


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



Fwd: [delphi-br] SHOW DE BOLA - Desafiando o Tempo

2009-09-28 Por tôpico Jorge Ericsson
Desculpem o envio do e-mail por engano.. Ignorem

Obrigado..


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



[delphi-br] Ajuda na instalação do componente DTools

2009-09-27 Por tôpico Jorge Ericsson
Olá pessoal, desculpe a ignorância do macaco, mas vennho apelar aos amigos
sobre a instalação de um componente chamado Dtools no delphi.

Aparentemente ele foi desenvolvido para o delphi 2.0 mais eu estou com os
fontes de um projeto para manutenção que usa esse componente e não lembro
como faz para instala-lo, pois sempre pede o caminnho dos arquivos .PAS e só
tem os .DCU no projeto.

http://www.programmersheaven.com/download/6024/download.aspx

Se alguém consegui instalar e puder me dá as dicas eu agradeço, ou mesmo
tiver os fontes pois pesquisei varios dias e nada, já será de grande ajuda.

Sei que é coisa de principiante a instalação de componentes mais eu não
lembro como faz.

Obrigado mais uma vez

Jorge Ericsson
Brasília - DF


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



[delphi-br] Re: RES: [NDDV] Gerar Boleto Bancário através da a plicação Delphi

2009-09-11 Por tôpico Jorge Ericsson
Amigos ouvi a abertura sobre questões bancárias e gostaria de tentar sanar
algumas dúvidas.

A minha idéia é dá aos clientes 3 opções de contas mas uma delas é conta
empresa, ou seja, pessoa juridica.
Neste caso como será o procedimento ? Pensei em gerar boletos com as minhas
contas sem ter que passar pelas burocracias dos bancos pois estava pagando
muito caro e tendo clientes insatisfeitos quando os boletos estavam sendo
gerados pelo banco (Gerenciador Financeiro).

Obs.: Posso usar contas de pessoa física e jurídica nestes boletos free ?

Obrigado pelas dicas até o momento.

Jorge Ericsson
Brasília-DF


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



[delphi-br] Gerar Boleto Bancário através da aplicação Delph i

2009-09-10 Por tôpico Jorge Ericsson
Olá pessoal,

Tenho alguns clientes que estão preferindo efetuar os pagamentos através de
boleto bancário,
então eu gostaria de contar com a ajuda dos amigos com dicas e sugestões
para que através
do meu aplicativo seja gerado o boleto bancário onde informo 3 opções de
conta para o cliente.

Alguém já desenvolveu algo vinculado a aplicação ou conhece algum componente
FREE ?

Grato desde já pela ajuda.

Jorge Ericsson
Brasília - DF


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



Re: [delphi-br] Gerar Boleto Bancário através da a plicação Delphi

2009-09-10 Por tôpico Jorge Ericsson
Valew pessoal pelas dicas, estou baixando agora e vou testar.

Já havia testado a muito tempo atrás o GbCobrança (GbCod) mas estava dando
uns paus no Delphi 7, vou tentar baixar esta versão e testar. Obrigado.

Att,

Jorge Ericsson



2009/9/10 Douglas Uesato - Depto. de Informática ues...@multicoisas.com.br



 Jorge,

 Boa tarde, eu utilizo o RLBoleto, de uma pesquisada no Google que
 você irá encontrar muitas informações sobre este componente.

 Atenciosamente,

 Douglas Uesato
 Departamento de T.I
 Fone: (67)3041-8000
 www.multicoisas.com.br

 De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto:
 delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em
 nome de Jorge Ericsson
 Enviada em: quinta-feira, 10 de setembro de 2009 17:54
 Para: undisclosed-recipients:
 Assunto: [delphi-br] Gerar Boleto Bancário através da aplicação Delphi



 Olá pessoal,

 Tenho alguns clientes que estão preferindo efetuar os pagamentos através de
 boleto bancário,
 então eu gostaria de contar com a ajuda dos amigos com dicas e sugestões
 para que através
 do meu aplicativo seja gerado o boleto bancário onde informo 3 opções de
 conta para o cliente.

 Alguém já desenvolveu algo vinculado a aplicação ou conhece algum
 componente
 FREE ?

 Grato desde já pela ajuda.

 Jorge Ericsson
 Brasília - DF

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

  



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



[delphi-br] Problemas com o DBConsts

2009-09-03 Por tôpico Jorge Ericsson
Pessoal tó com um problema sério no meu delphi.

De uma hora para outra começou a não compilar mais os projetos, apresentando
um Erro na VDBConsts.pas e no pacote dcldb70.bpl

Alguém já passou por isso ?

Obs.: Fui contaminado com o Virus Induc.A mas já removi com o Avast.



Build
  [Error] DBCtrls.pas(23): Undeclared identifier: 'TDataLink'
  [Error] DBCtrls.pas(25): Undeclared identifier: 'TField'
  [Error] DBCtrls.pas(41): Method 'ActiveChanged' not found in base class
  [Error] DBCtrls.pas(42): Undeclared identifier: 'TDataEvent'
  [Error] DBCtrls.pas(43): Method 'EditingChanged' not found in base class
  [Error] DBCtrls.pas(44): Undeclared identifier: 'TFieldRef'
  [Error] DBCtrls.pas(45): Method 'LayoutChanged' not found in base class
  [Error] DBCtrls.pas(46): Method 'RecordChanged' not found in base class
  [Error] DBCtrls.pas(47): Method 'UpdateData' not found in base class
  [Error] DBCtrls.pas(97): Undeclared identifier: 'TDataSource'
  [Error] DBCtrls.pas(953): Class type required
  [Error] DBCtrls.pas(957): Method 'EditingChanged' not found in base class
  [Error] DBCtrls.pas(958): Method 'DataSetChanged' not found in base class
  [Error] DBCtrls.pas(959): Method 'ActiveChanged' not found in base class
  [Error] DBCtrls.pas(969): Class type required
  [Error] DBCtrls.pas(973): Method 'FocusControl' not found in base class
  [Error] DBCtrls.pas(974): Method 'ActiveChanged' not found in base class
  [Error] DBCtrls.pas(975): Method 'LayoutChanged' not found in base class
  [Error] DBCtrls.pas(976): Method 'RecordChanged' not found in base class
  [Error] DBCtrls.pas(981): Class type required
  [Error] DBCtrls.pas(985): Method 'ActiveChanged' not found in base class
  [Error] DBCtrls.pas(986): Method 'DataSetChanged' not found in base class
  [Error] DBCtrls.pas(987): Method 'LayoutChanged' not found in base class
  [Fatal Error] DBLogDlg.pas(50): Could not compile used unit
'VDBConsts.pas'

Jorge Ericsson
Brasília - DF


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



Re: [delphi-br] Re: Ajuda para rodar aplicativo no wine

2009-07-28 Por tôpico Jorge Ericsson
Valew amigos pelas soluções, todas estão sendo analisadas com carinho.

Josir, eu penso em migrar a aplicação toda para Java acessando MySql, onde o
usuário irá usar o próprio browser, no momento a solução que procuro é
temporária por isso não estou muito querendo mexer em código.

Já conseguir criar uma conexão com o banco usando Zeos, mas está dando erro
na aplicação que ao debugar vi que está precisando da libmysqld50.dll ou
libmysqld51.dll quando faço a conexão.

Já pesquisei em todo lugar inclusive nas zeoslib e não encontro essas dlls,
coloquei o NTDLL.DLL no diretório da aplicação despois descobrir que o Wine
já tem ela só que em minusculo.

Vou tentar agora colocar em prática a idéia de instalar o ADO no Wine.

Pelo que vi muitos precisam dessa solução e caso consiga algo eu vou postar
aqui.

Obrigado pelas dicas de todos.


Jorge Ericsson
Brasília-DF



2009/7/28 Rafael Jorge rafael.jo...@gmail.com



 temos um cliente que tem so uma maquina windows e mais de 20 terminais
 linux...
 todas rodando um acesso remoto via terminal services.
 tente achar essa solução.
 se vc deseja realmente migrar pra linux pq vc nao migra seu soft pra
 lazarus?
 t+




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



Re: [delphi-br] Re: Ajuda para rodar aplicativo no wine

2009-07-28 Por tôpico Jorge Ericsson
Evandro eu já pensei nisso, no mysql do ubunto eu não encontrei as dll
apenas o código para compilação, como eu uso a versão 4.1 do mysql windows
eu só tenho a libmysqld.dll e está eu testei e não deu certo.
Caso alguém tenha essas dll me envie por e-mail.

2009/7/28 Evandro Siqueira vans...@gmail.com



 Jorge Ericsson escreveu:
  Já conseguir criar uma conexão com o banco usando Zeos, mas está dando
 erro
  na aplicação que ao debugar vi que está precisando da libmysqld50.dll ou
  libmysqld51.dll quando faço a conexão.
 
  Já pesquisei em todo lugar inclusive nas zeoslib e não encontro essas
 dlls,
  coloquei o NTDLL.DLL no diretório da aplicação despois descobrir que o
 Wine
  já tem ela só que em minusculo.
 
 
 Jorge, vc encontra essas dlls (libmysqld50.dll e libmysqld51.dll) na
 pasta do mysql, pq são nativas dele e não do zeos.

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






-- 
Att,

Jorge Ericsson S. Pinheiro
Ericsson Sistemas e Soluções
(61) 3797-4785 / 8592-9960 / 9227-4785
http://www.jericsson.com.br
jericsson...@gmail.com
jericsson...@hotmail.com
skype:jericsson
Brasília - DF


[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




Re: [delphi-br] Re: Ajuda para rodar aplicativo no wine

2009-07-28 Por tôpico Jorge Ericsson
Valew Silvio era isso que eu estava querendo, mas uma vez vc salvando a
pátria hehehe
Abrigado amigão.


2009/7/28 Silvio Clecio silviop...@yahoo.com.br



 Em 28/7/2009 10:38, Jorge Ericsson escreveu:
  ... como eu uso a versão 4.1 do mysql windows

  eu só tenho a libmysqld.dll e está eu testei e não deu certo.
  Caso alguém tenha essas dll me envie por e-mail.

 Nesse link [http://silvioprog.4shared.com/] (arquivo mysql.rar)
 disponibilizei as dlls que acompanham o Zeos 7 (libmysql41.dll,
 libmySQL50.dll, libmysql51.dll, libmysqld41.dll, libmysqld50.dll e
 libmysqld51.dll).
 --
 []'s, Silvio Clécio
 ---
 Linux User: #481900
 Gmail, GTalk: silviop...@gmail.com silvioprog%40gmail.com
 E-mail, Y! Messenger: silviop...@yahoo.com.br silvioprog%40yahoo.com.br
 BlogSite: http://silvioprog.blogspot.com/
 BlogSpot: http://silvioclecio.blogspot.com/
 VirtualDriver: http://silvioprog.4shared.com/
 °oO| Seja livre, use Linux! |Oo°
  




-- 
Att,

Jorge Ericsson S. Pinheiro
Ericsson Sistemas e Soluções
(61) 3797-4785 / 8592-9960 / 9227-4785
http://www.jericsson.com.br
jericsson...@gmail.com
jericsson...@hotmail.com
skype:jericsson
Brasília - DF


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



Re: [delphi-br] Re: Ajuda para rodar aplicativo no wine

2009-07-28 Por tôpico Jorge Ericsson
Pois é eu tentei de início usar o VMWare, mas outras fontes me informaram
que eu teria que ter licença nas máquinas que usassem o vmware no windows
por isso desistir.

Vou tentar estudar este OpenSource VirtualBox, pra mim esse é novidade.

Obrigado pela dica Leonardo.


2009/7/28 EmbarcaDelphi embarcadel...@yahoo.com.br



 Se eu fosse vc em vez de usar o Wine eu partiria para vmware ou para o
 OpenSource VirtualBox, o Wine é muito limitado e cheio de BUG.

 Leonardo Quinino escreveu:

 
 
  O meu Projeto também é migrar o aplicativo para Lazarus, ainda estamos
  apanhando com algumas coisas no lazarus, coisas do tipo que em Delphi
  temos
  o dominio.
 
  Mas até a versão ficar pronta, tenho que fazer essa solução meio
 tabajara.
 
  Aplicativo Win32 Forms, WINDOWS, rodando num server LINUX , emulado
  com wine
  .
 
  .
 
 

  




-- 
Att,

Jorge Ericsson S. Pinheiro
Ericsson Sistemas e Soluções
(61) 3797-4785 / 8592-9960 / 9227-4785
http://www.jericsson.com.br
jericsson...@gmail.com
jericsson...@hotmail.com
skype:jericsson
Brasília - DF


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



Re: [delphi-br] Re: Ajuda para rodar aplicativo no wine

2009-07-28 Por tôpico Jorge Ericsson
Leonardo,

Instalei o VirtualBox no meu Windows 2003, Estou emulando o Ubuntu Desktop e
gostaria de saber se dessa forma eu posso instalr o banco mysql e rodar
minha aplicação delphi ?

Agora o que eu vou usar para rodar minha aplicação win32 sendo que seria
redundante usar Wine?

Só repetindo que gostaria de rodar o Delphi + Zeos +MySQL no Ubuntu (Linux)
OK

Gostei muito do VirtualBox é simples rápido e muito eficiente.

Valew


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



[delphi-br] Ajuda para rodar aplicativo no wine

2009-07-27 Por tôpico Jorge Ericsson
Olá amigos,

Tenho uma aplicação Delphi 7 + ADO + Access e um cliente está necessitando
que eu coloque essa aplicação rodando no linux devido as licenças que ele
não gostaria de pagar do windows.

Bom eu já decide migrar o sistema todo para Java (iniciei as modelagem), mas
como preciso de uma solução rápida, resolvi prepara uma máquina com o Linux
(Ubuntu + Wine) e migrei toda a base de dados Access para MySQL 5.1 e mudei
a forma de conexão para Zeos (MySQL 5.1) usando claro a libmysqld.dll.

Está apresentando algum problemas ao rodar o aplicativo no Wine como acesso
ao NTDLL e não encontrei até agora a solução para o meu problema.

Desenvolvi uma pequena aplicação, já carreguei a calculadora do windows no
linux e tudo certo, mas no caso da conexão ao banco está dando errro.

Bom o que eu preciso é da ajuda de alguém experiente no grupo que me informe
se já tentou este processo e como resolveu os problemas.

Hoje eu tenho Delphi + Zeos (libmysqld.dll) + MySql 5.1 (nativo do linux).

Espero ter sido o mais claro possível.

Grande abraço

Jorge Ericsson S. Pinheiro
Ericsson Sistemas e Soluções
(61) 3797-4785 / 8592-9960 / 9227-4785
http://www.jericsson.com.br
jericsson...@gmail.com
jericsson...@hotmail.com
skype:jericsson
Brasília - DF


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



[delphi-br] Sistema Completo para Transportadora

2009-07-22 Por tôpico Jorge Ericsson
Olá amigos,

Tenho um cliente que precisa de uma sistema para transportadora que atenda
as seguintes necessidades básicas como:

Cadastro de Clientes
Rotas
Funcionários
Cadastro de Frota
Controle de Combustível
Controle de Troca de Óleo
Contas
Naturezas de Operação
Plano de Contas
Formas de Pagamento
Cadastro de Cedentes
Instruções do Boleto
Fluxo de Caixa
Contas à Pagar
Contas à Receber
Boletos à Receber
Duplicatas à Receber
Adiantamento dos Motoristas
Comissão dos Motoristas
Conta Corrente dos Motoristas
Cálculo do Transporte
Controle de Cotações/Cálculos
Ordem de Coleta
Emissão do Conhecimento de Frete (CTRC)
Impressão de Manifesto
Emissão de Ordem de Serviço
Controle de Carregamento
Controle de Entregas
Status das Frota
Ordens de Coleta
CTRC Emitidos
Ordem de Serviço
Consumo de Combustível
Vencimentos de Doc. da Frota
Acertos de Conta
Histórico de Exclusões
Gerador Sintegra
Gerador de Arquivos EDI
Gerador de Arquivos Contábil
Recebimento de Arquivos EDI

Infelizmente não tenho tempo para levantar os requisitos deste sistema e
desenvolve-lo, por isso gostaria de falar em PVT sobre o assunto.

Obs.: Dependendo do sistema, podemos conversar a respeito do código fonte,
caso não seja negociável, que tenha a possibilidade de adequar o sistema as
necessidades do cliente de forma rápida.

Aguardo retorno,

Jorge Ericsson S. Pinheiro
http://www.jericsson.com.br
jericsson...@gmail.com
jericsson...@hotmail.com
skype:jericsson
Brasília - DF


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



[delphi-br] Como enviar e/ou testar o foco num botão tipo TTool Button

2009-07-08 Por tôpico Jorge Ericsson
Olá amigos delphianos,

Estou migrando algumas telas do meu sistema e resolvi usar o TToolButton,
mas gostaria de testar o Foco se está no botão e também enviar como por
exemplo:

TBtnGravar.Focused

Sei que com SpeedBottum e TButton funciona blz mas como testaria o focus num
botão estilo TToolButton ?

Se alguém soube me dá uma dica.

Obrigado.

Jorge Ericsson
Brasília - DF


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



[delphi-br] Justificando texto no quickreport

2009-06-30 Por tôpico Jorge Ericsson
Olá amigos, sei que esse assunto já está meio que batido aqui no grupo, mas
eu apenas gostaria que me lembrasse de como posso justificar um texto no
quickreport.

Lembro-me de que usai uma vez o RichText Parente alguma coisa com o
QRRichText mas não lembro como aplicar novamente.

Alguém poderia me ajudar ?

Agradeço desde já.

Jorge Ericsson
Brasília - DF


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



[delphi-br] Reparação de tabelas MyISAM com delphi

2009-06-24 Por tôpico Jorge Ericsson
Olá pessoal,

Alguém tem alguma rotina de reparação de tabela MyISAM que pode compartilhar
?

T+

Jorge Ericsson
Brasília - DF


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



[delphi-br] Urgente: Criando um Data Mining

2009-06-15 Por tôpico Jorge Ericsson
Olá pessoal,

Estou precisando da ajuda dos mais experientes e safos do grupo.

Desenvolvi um software para gerenciamento de igrejas que está no ar a uns 6
anos, hoje um cliente me
questionou sobre a possibilidade de desenvolver no produto um módulo sobre
DataMining (mineração de dados).

Criar uma forma onde através de cruzamentos de dados ele obtenha informações
para analise e impressão como
por exemplo, saber todos os membros que possui passaporte e que ganham acima
de um determinando valor,
para poder enviar e-mail sobre novas excursões e etc. Isto é apenas um
exemplo.

Andei pesquisando sobre o assunto e até agora não encontrei nada a respeito
feito em delphi que eu posso analisar.

Alguém que já Desenvolveu algo parecido pode me ajudar com material de
pesquisa e informações ?

Obrigado desde já,

Jorge Ericsson
Brasília - DF


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



[delphi-br] Envio de E-Mail (Mailisting)

2009-06-08 Por tôpico Jorge Ericsson
Olá amigos,

Desenvolvi um sistema para gerencia meus clientes da empresa e tive a idéia
de criar um módulo de mainlisting no mesmo.

Preciso a ajuda dos amigos em enviar links de onde posso estudar programas
de gerenciamento de e-mail para que possa embutido no meu sistema essa
rotina.

Lembrando que já tenho uma lista de e-mail dos meus clientes e precisaria
apenas enviar informações (imagem JPEG) das novidades em cada sistema
adquirido por eles.

Exemplo: Cliente A adquiriu os sistemas 1, 4 e 5 e se o sistema 1 e 5 tiver
uma propaganda será enviado no dia programado para o cliente A apenas a
propaganda (imagem JPG) para ele e assim sucessivamente.

Já tenho o banco pronto, mas gostaria de analisar alguns exemplos (fontes)
de programas para melhorar a minha idéia.

Quero deixar em serviço o programa para efetuar esse processo e não ter que
ficar me preocupando se foi ou não, qdo disparar.

Abraços,

Jorge Ericsson
Brasília - DF


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



[delphi-br] Urgente: Desabilitar ShortCut

2009-05-19 Por tôpico Jorge Ericsson
Pessoal eu gostaria de saber como desabilitar a tecla de atalho do menu após
a entrada de um determinado usuário ?

Exemplo: Eu tenho alguns usuário que acessam no menu um determinado Item com
o Atalho CTRl + ALT + E (Tela do Financeiro), mas alguns novos usuários que
não possuem essa permissão mesmo desabilitando o menu ou colocando Visible =
False ou colocando Menu.ShortCut := 0 o atalho ainda funcionar.

Gostaria de saber se tem outro jeito de desabilitar o menu e a tecla de
atalho para um determinado usuário.

Grato,

Jorge Ericsson
Brasília - DF


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



[delphi-br] Visualizar Estrutura de Tabelas no FIREBIRD

2009-03-31 Por tôpico Jorge Ericsson
Olá amigos,

Com qual comando ou instrução eu posso retorna a estrutura de uma
determinada tabela do FIREBIRD ?

Estou criando um módulo para executar scripts de criação de tabelas e
preciso que seja retornado a estrutura criada.

Grato,

Jorge Ericsson
Brasília - DF


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



Re: [delphi-br] Visualizar Estrutura de Tabelas no FIREBIRD

2009-03-31 Por tôpico Jorge Ericsson
Eu uso o IBExpert quero retorna essas informações no form de estou criando
para rodar scripts.


2009/3/31 jAlosii jalo...@gmail.com

   ibexpert te ajuda um monte nisso.

 Jorge Ericsson escreveu:

  Olá amigos,
 
  Com qual comando ou instrução eu posso retorna a estrutura de uma
  determinada tabela do FIREBIRD ?
 
  Estou criando um módulo para executar scripts de criação de tabelas e
  preciso que seja retornado a estrutura criada.
 
  Grato,
 
  Jorge Ericsson
  Brasília - DF
 
 
  [As partes desta mensagem que não continham texto foram removidas]
 
 
 
  
 
 

  




-- 
Att,

Jorge Ericsson S. Pinheiro
Ericsson Sistemas e Soluções
(61) 3797-4785 / 3244-8689 / 9227 4785
http://www.jericsson.com.br
jericsson...@gmail.com
jericsson...@hotmail.com
skype:jericsson
Brasília - DF


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



Re: [delphi-br] Visualizar Estrutura de Tabelas no FIREBIRD

2009-03-31 Por tôpico Jorge Ericsson
Blz Ricardo é exatamente disso que eu preciso amigão.
Muito obrigado mesmo.


2009/3/31 Ricardo César Cardoso ricardo_engs...@yahoo.com.br

   Jorge, da uma olhada nesse link que tem exatamente o que vc precisa (eu
 acho...)

 [
 http://portal.cseg.eng.br/index.php?option=com_contentview=articleid=111Itemid=12]

 Só achei estranho a formatação dos caracteres, mas isso é o de menos

 []'s
 Ricardo.

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

 --- Em ter, 31/3/09, Jorge Ericsson 
 jericsson...@gmail.comjericssonsup%40gmail.com
 escreveu:
 De: Jorge Ericsson jericsson...@gmail.com jericssonsup%40gmail.com
 Assunto: [delphi-br] Visualizar Estrutura de Tabelas no FIREBIRD
 Para:
 Data: Terça-feira, 31 de Março de 2009, 11:23


 Olá amigos,

 Com qual comando ou instrução eu posso retorna a estrutura de uma

 determinada tabela do FIREBIRD ?

 Estou criando um módulo para executar scripts de criação de tabelas e

 preciso que seja retornado a estrutura criada.

 Grato,

 Jorge Ericsson

 Brasília - DF

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

  




-- 
Att,

Jorge Ericsson S. Pinheiro
Ericsson Sistemas e Soluções
(61) 3797-4785 / 3244-8689 / 9227 4785
http://www.jericsson.com.br
jericsson...@gmail.com
jericsson...@hotmail.com
skype:jericsson
Brasília - DF


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



Re: [delphi-br] Visualizar Estrutura de Tabelas no FIREBIRD

2009-03-31 Por tôpico Jorge Ericsson
Valew pessoal, agora eu estou pesquisando sobre o como retornar os dados no
banco POSTGRES

As dicas já resolveram meu problema para o Firebird.

Obrigadasso.

Jorge Ericsson
Brasília - DF



2009/3/31 Higor Granzoto higo...@yahoo.com.br

   se vc estiver utilizando dbExpress pode listar através de dois comandos
 do componente SQLConneciton:

 SQLConnection1.GetTableNames(List:TStrings; SystemTables:boolean);
 e
 SQLConnection1.GetFieldNames(Tablename:string; List:TStrings);

 se não estou enganado outros componentes de acesso a dados também, sempre,
 disponibilizam esse tipo de função.

 
 De: Jorge Ericsson jericsson...@gmail.com jericssonsup%40gmail.com
 Enviadas: Terça-feira, 31 de Março de 2009 11:23:33

 Assunto: [delphi-br] Visualizar Estrutura de Tabelas no FIREBIRD

 Olá amigos,

 Com qual comando ou instrução eu posso retorna a estrutura de uma
 determinada tabela do FIREBIRD ?

 Estou criando um módulo para executar scripts de criação de tabelas e
 preciso que seja retornado a estrutura criada.

 Grato,

 Jorge Ericsson
 Brasília - DF

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

  



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



[delphi-br] Configuração do EurekaLog para GMAIL

2009-03-30 Por tôpico Jorge Ericsson
Pessoal preciso testar o componente EurekaLog antes de compra-lo e gostaria
de saber
se alguém que usa sabe configura-lo para enviar relatório de erro para o
Gmail ?

Ou se puderem me indicar alguma lista de discussão eu já agradeço.

Obrigado,

Jorge Ericsson
Brasília - DF


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



[delphi-br] Como criar usuário no windows com senha nunca expir a ?

2009-03-27 Por tôpico Jorge Ericsson
Olá amigos Delphianos,

Problema: Quando crio um usuário através da rotina abaixo o mesmo não cria
com opção de SENHA NUNCA EXPIRA

ResumoInstalacao('Criando permissão de Administrador para o usuário
PostGres.', 'Processo de Instalação', '', 2);
if IsWindowsVista then
Executar_Aguarda('net.exe', 'user postgres /Active:yes', 0);

Executar_Aguarda('net.exe', 'user postgres postgres /ADD /EXPIRES:NEVER',
SW_SHOWMINIMIZED);
Executar_Aguarda(DIR_INST_POSTGRESQL + 'ntrights.exe', '+r
SeServiceLogonRight -u postgres', SW_SHOWMINIMIZED);
Executar_Aguarda(DIR_INST_POSTGRESQL + 'ntrights.exe', '+r
SeNetworkLogonRight -u postgres', SW_SHOWMINIMIZED);
Executar_Aguarda(DIR_INST_POSTGRESQL + 'ntrights.exe', '+r
SeInteractiveLogonRight -u postgres', SW_SHOWMINIMIZED);
Executar_Aguarda('msiexec.exe', '/i ' + DIR_INST_POSTGRESQL +
'postgresql-8.0-int.msi BASEDIR=' + edt_diretorio_postgresql.Text + ' /qr
INTERNALLAUNCH=1
ADDLOCAL=server,nls,psql,pgadmin,jdbc,npgsql,psqlodbc,pgoledb,docs,includefiles,libfiles,msvclibs,pgxs,binfiles
SERVICEDOMAIN=%COMPUTERNAME%' + ' SERVICEPASSWORD=postgres
SUPERPASSWORD=postgres LOCALE=PORTUGUESE,BRAZIL ENCODING=LATIN1
LISTENPORT=5432 TRANSFORMS=:lang_pt_br', SW_SHOWMINIMIZED);

Solicitação: Criar um usuário no windows com a opção que a senha nunca
expire se possível através da API do Windows.

Alguém já passou por este problema e tem uma solução inteligente para o
processo ?

Obrigado,

Jorge Ericsson
Brasília - DF


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



[delphi-br] Urgente: Como detectar o modelo da placa mãe pelo D elphi

2009-03-24 Por tôpico Jorge Ericsson
Olá pessoal, eu tó com um problema de lentidão em minhas aplicação que usam
Interbase.

Simplesmente começaram a ter uma lentidão impressionante, só que descobrir
que isso só
acontece nas placas com o Intel(R) HP Technology Habilitado, tanto Intel
como AMD.

Bom eu gostaria de desenvolver algo em delphi que detectasse o modelo da
placa e
desabilitasse esta opção de forma transparente para o usuário.

Alguém tem um exemplo de como posso controlar isso ?

Obs.: Não me interessa saber de migração de banco de dados, porque no
momento eu tenho
várias aplicações espalhadas pelo Brasil e não posso migrar para Firebird,
MySQL e etc.
Preciso de uma solução para ontem nestes aplicativos.

Obrigado pela ajuda desde já.

Jorge Ericsson
Brasília - DF


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



Re: [delphi-br] Urgente: Como detectar o modelo da p laca mãe pelo Delphi

2009-03-24 Por tôpico Jorge Ericsson
Valew Clayton mas eu já resolvi meu problema e pesquisando eu encontrei o
TJvComputerInfoEx da biblioteca JEDI, já tenho o que precisava, obrigado.



2009/3/24 clayton clay...@agriness.com

   Um programa em delphi para determinar o tipo do processador? Você terá
 de
 apaelar para código assembly para conseguir isso. Os livros específicos de
 cada chipset da Intel tem este algoritmo (em assembly) pronto para você
 usar/adaptar para as suas necessidades. O problema é que estas soluções são
 específicas de cada fabricante, ou seja, um programa que detecta uma
 determinada família de processadores da Intel poderá não funcionar com
 processadores da AMD, e vice-versa.

 Eu te sugiro procurar algum software já pronto que possa lhe dar as
 informações necessárias, e você de dentro do teu programa Delphi, ativar
 estes outros softwares, os quais irão gerar algum tipo de
 relatório/arquivo.
 De posse deste arquivo você poderá fazer a leitura das informações
 desejadas.

 Abaixo segue um site (achei usando o google) que você poderá usar para
 obter
 informações de processadores AMD e Intel. Não sei se estes programas irão
 atender as tuas necessidades, mas vale você dar uma conferida neles.

 http://web.inter.nl.net/hcc/J.Steunebrink/chkcpu.htm

 Clayton.

 _

 De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto:
 delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em
 nome de Jorge Ericsson
 Enviada em: terça-feira, 24 de março de 2009 11:28
 Para: undisclosed-recipients:
 Assunto: [delphi-br] Urgente: Como detectar o modelo da placa mãe pelo
 Delphi


 Olá pessoal, eu tó com um problema de lentidão em minhas aplicação que usam
 Interbase.

 Simplesmente começaram a ter uma lentidão impressionante, só que descobrir
 que isso só
 acontece nas placas com o Intel(R) HP Technology Habilitado, tanto Intel
 como AMD.

 Bom eu gostaria de desenvolver algo em delphi que detectasse o modelo da
 placa e
 desabilitasse esta opção de forma transparente para o usuário.

 Alguém tem um exemplo de como posso controlar isso ?

 Obs.: Não me interessa saber de migração de banco de dados, porque no
 momento eu tenho
 várias aplicações espalhadas pelo Brasil e não posso migrar para Firebird,
 MySQL e etc.
 Preciso de uma solução para ontem nestes aplicativos.

 Obrigado pela ajuda desde já.

 Jorge Ericsson
 Brasília - DF

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

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

  




-- 
Att,

Jorge Ericsson S. Pinheiro
Ericsson Sistemas e Soluções
(61) 3797-4785 / 3244-8689 / 9227 4785
http://www.jericsson.com.br
jericsson...@gmail.com
jericsson...@hotmail.com
skype:jericsson
Brasília - DF


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



[delphi-br] URGENTE: Retorna informações do Banco Firebird

2009-03-06 Por tôpico Jorge Ericsson
Saudações Delphianas,

Amigos, eu preciso através do delphi retorna para uma string as informações
do banco de dados como por exemplo o DIALECT.

Alguém já desenvolveu algo que faça isso ? Por favor me retorne.

Obs.: Sei como seta o dialeto mais antes de seta-lo eu gostaria primeiro de
verificar em qual dialeto está o banco.

Para seta eu já uso por exemplo a seguinte linha de comando:

If blablablá for diferente do dialect 3 Then
Executar_Aguarda('c:\arquivos de
programas\firebird\firebird_2_1\bin\gfix.exe', ' -sql_dialect 3 ' +
'c:\banco.fdb', SW_SHOWMINIMIZED) else
Application.MessageBox('Banco de Dados já está no Dialeto 3', 'Informação',
MB_ICONINFORMATION + mb_OK);

Jorge Ericsson
Brasília - DF


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



Re: [delphi-br] Como enviar um pulso de 5 volts pela serial?

2009-02-18 Por tôpico Jorge Ericsson
Felipe dá uma olhada no site da Saber Eletrônica que tem uns exemplos de
como trabalhar Eletrônica com Delphi.
Tem um exemplo que a muito tempo atrás eu usei para fazer exatamente isso
que vc está querendo agora, ainda pensa que mudaram a catraca para um
relógio biometrico...
Mas na época foi canseira desenvolver isso, mas tem como, procure por RS-232

Segue links abaixo:

*http://www.sabereletronica.com.br/paginas/index/downloads_saber_eletronica
http://www.sabereletronica.com.br/secoes/leitura_evento/188

Boa sorte amigão.
*
Jorge Ericsson
Ericsson Sistemas e Soluções
(61) 3797-4785 / 3244-8689 / 9227 4785
http://www.jericsson.com.br
jericsson...@gmail.com
jericsson...@hotmail.com
skype:jericsson
Brasília - DF
*



*2009/2/18 Fellipe Henrique felli...@gmail.com

   Vixi...bom, eu preciso enviar um pulso pela porta serial pra abrir uma
 catraca... o rapaz da catraca falou que teria que ser um pulso de 5
 volts...
 agora fiquei encucado.. será que é só abrir a porta e pronto?

 O problema é que não tenho a catraca aqui, só mesmo um cabo, com um led...
 diz o cara que se acender o led vai funcionar... hehe

 []s

 2009/2/18 Luiz Escobar 
 esco...@megasistema.com.brescobar%40megasistema.com.br
 


  Se vc enviar um pulso de 5 volts da serial vai queimar ela
 
  O que vc realmente precisa ???
 
  Luiz Escobar
 
  From: Fellipe Henrique
  Sent: Wednesday, February 18, 2009 11:30 AM
  To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br%
 40yahoogrupos.com.br

  Subject: [delphi-br] Como enviar um pulso de 5 volts pela serial?
 
 
  Amigos, preciso enviar um pulso de 5 volts para a porta serial, nunca fiz
  isso, alguem tem idéia de como fazer?
 
  []s
 
  --
  _
  T.·.F.·.A.·.
  Fellipe Henrique
  Blog: www.digitumsoft.com.br/blogs/fellipeh
  --
  CAMPANHA POR UMA INTERNET SEGURA
  Proteja o endereço de seus amigos como estou protegendo o seu. Ao enviar
  mensagens use SEMPRE o Cco (cópia oculta).
  Assim TODOS os endereços estarão preservados. E, claro, antes de
 encaminhar
  um e-mail, delete todas as informações que apareçam no corpo do e-mail e
  que
  possam ser usadas por hackers.
  ###
 
  [As partes desta mensagem que não continham texto foram removidas]
 
  [As partes desta mensagem que não continham texto foram removidas]
 
 
 

 --
 _
 T.·.F.·.A.·.
 Fellipe Henrique
 Blog: www.digitumsoft.com.br/blogs/fellipeh
 --
 CAMPANHA POR UMA INTERNET SEGURA
 Proteja o endereço de seus amigos como estou protegendo o seu. Ao enviar
 mensagens use SEMPRE o Cco (cópia oculta).
 Assim TODOS os endereços estarão preservados. E, claro, antes de encaminhar
 um e-mail, delete todas as informações que apareçam no corpo do e-mail e
 que
 possam ser usadas por hackers.
 ###

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

  




--


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



[delphi-br] URGENTE: Tempo decorrido

2009-02-13 Por tôpico Jorge Ericsson
Olá amigos Delphianos.

Estou precisando implementar urgente na minha rotina de atualização de banco
o tempo decorrido de cada processo.
Por exemplo eu tenho os processos de criação do banco, correção de banco,
carga de dados no banco.


Resultado seria mais ou menos assim:

Criação de Banco  05:06:45
Correção de Banco03:30:20
Carga de Dados no Banco 10:03:30
   18:40:35  Total em
hora:minutos:segundos


Eu preciso criar se possível uma threading ou 3 no caso que registre no
formulário o tempo decorrido de cada processo.

Alguém poderia me ajudar com uma diga boa ?

Abraços
Jorge Ericsson S. Pinheiro


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



Re: Re: [delphi-br] Conexao com o banco

2009-02-13 Por tôpico Jorge Ericsson
Uses Conexão ODBC e aponto para o nome do servidor ou IP da máquina Bruno.

Qual componente e o tipo de conexão que você está utilizando ?


2009/2/13 Bruno Lepesqueur brunolbra...@yahoo.com.br

   Ok... Eduardo, mas e se o banco estiver em outro computador!
 Como que ele vai saber o caminho?

 Obrigado!

 ---Mensagem original---

 De: Eduardo Silva dos Santos
 Data: 12/02/2009 22:25:49
 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
 Assunto: Re: [delphi-br] Conexao com o banco

 Bruno, com mysql a coisa é diferente.. vc não informa o caminho do banco
 como no FireBird..
 no Mysql basta você informar o Nome do mesmo.. com isso vai funcionar numa
 boa..

 e graças ao Mysql ser assim, é possivel vc fazer um select em bancos
 distintos.

 qual componente de acesso você ta usando?

 2009/2/12 Bruno Lepesqueur 
 brunolbra...@yahoo.com.brbrunolbrasil%40yahoo.com.br


  Tenho o seguinte código:
 
  System_DB.Connected := false;
  System_DB.Database := edit3.Text;
  System_DB.Connected := true;
 
  Onde System_DB é o nome da conexão com o banco my-sql e edit3.text é onde

  eu informo o caminho do banco, tipo: c:\mysql\data\banco;
 
  Esse código funciona, mas qdo é digitado no edit3.text um nome de banco
 de
  dados que não existe ou que esteja com caminho errado ele dá uma mensagem

  de
  erro. Eu estava pensando em criar um IF para não ter esse problema! Coisa

  mais ou menso assim:
 
  se o banco existir e tiver conectado faça...
 
  Alguém pode me ajudar?
 
  Obrigado!
 
  [As partes desta mensagem que não continham texto foram removidas]
 
 
 

 --
 ...
 Eduardo Silva dos Santos
 DRD SISTEMAS
 (27) 3218-4201
 (27) 8842-9489
 MSN: eduardo@gmail.com eduardo.drd%40gmail.com
 Site: http://www.drdsistemas.com.br/
 ...

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





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

  




-- 
Att,

Jorge Ericsson S. Pinheiro
Ericsson Sistemas e Soluções
(61) 3797-4785 / 3244-8689 / 9227 4785
http://www.jericsson.com.br
jericsson...@gmail.com
jericsson...@hotmail.com
skype:jericsson
Brasília - DF


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



Re: [delphi-br] Trabalhos sobre algoritmos

2009-02-05 Por tôpico Jorge Ericsson
 desta mensagem que não continham texto foram removidas]

  




-- 
Att,

Jorge Ericsson S. Pinheiro
Ericsson Sistemas e Soluções
(61) 3797-4785 / 3244-8689 / 9227 4785
http://www.jericsson.com.br
jericsson...@gmail.com
jericsson...@hotmail.com
skype:jericsson
Brasília - DF


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



Re: [delphi-br] Transferir toda configuração do De lphi 6 e 7 para outra maquina/windows...

2009-02-02 Por tôpico Jorge Ericsson
HKEY_LOCAL_MACHINE\SOFTWARE\Borland
HKEY_LOCAL_MACHINE\SOFTWARE\Borland\Delphi


2009/2/2 Luiz Escobar esco...@megasistema.com.br

   PELO AMOR DE DEUS ehhehehhe
 onde fica esta ou estas chaves no registro 

 []s

 Luiz Escobar

 From: Jorge Ericsson
 Sent: Monday, February 02, 2009 4:12 PM

 To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
 Subject: Re: [delphi-br] Transferir toda configuração do Delphi 6 e 7 para
 outra maquina/windows...

 Também utilizo a mesma técnica do Natanael e sempre funcionou até aqui no
 meu trabalho que preciso sempre fazer umas limpezas quando o delphi começa
 a
 travar.
 Mantenho tudo no meu diretório e para ter certeza de todo o funcionamento,
 utilizo apenas o BUIL ALL nos projetos e algumas bibliotecas como jedi.

 Funciona...

 2009/2/2 Natanael Rodrigues nr.n...@gmail.com nr.news%40gmail.com

  Ola,
 
  Quando ocorre esta situação comigo, faço uma cópia dos registros que
  guardam as informações do Libary e packages e em seguida uma cópia fiel
 dos
  diretórios onde estão os componentes. Para facilitar este trabalho,
 sempre
  mantenho meus componentes em um caminho específico, assim fica facil
 quando
  preciso recorrer a este tipo de trabalho.
 
  Att.
 
 
  - Original Message -
  From: Alexandre Peçanha
  To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br%
 40yahoogrupos.com.br
  Sent: Monday, February 02, 2009 2:50 PM
  Subject: Re: [delphi-br] Transferir toda configuração do Delphi 6 e 7
 para
  outra maquina/windows...
 
  Olá Luiz,
  Em relação a sua pergunta, realmente não faço idéia de como fazer essa
  migração, mas como já tive este mesmo problema algumas vezes, acabei por
  utilizar um artifício que tem me poupado muito trabalho.
 
  Máquinas virtuais.
 
  Tenho algumas máquinas virtuais (M$ Virtual PC) e em cada uma tenho
 apenas
  o
  essencial de cada ambiente instalado. Tenho uma VM com WinXP e Delphi 6
 (+
  componentes instalados). Mantenho a original guardada e uso uma cópia pra
  trabalho e a carrego pra cima e pra baixo no pendrive. Em qq lugar, tenho
  meus ambientes completos. Assim faço também com ambientes de servidor
  (Windows 2003 + BD´s) e clientes (Windows XP somente).
 
  Não posso ajudar no seu problema, mas fica ai a dica. Comigo tem
 funcionado
  100%.
 
  2009/2/2 Luiz Escobar 
  esco...@megasistema.com.brescobar%40megasistema.com.br
 escobar%40megasistema.com.br
  
 
   Sequinte, estou trocando de manquina na empresa, e arrumando a minha em
   casa, então ja viu né...
   RE-INSTALL é que não vai faltar...
   Bom queria saber se tem como transferir toda a configuração do DELPHI 7
 e
  6
   para a maquina/windows novos, ja instalei os mesmos e estão ativos,
 porem
  to
   limpim-limpim, e tem componentes pra XUXU pra instalar ALLguem sabe
  de
   algum jeito de transferir toda a configuração para a outra maquina, sem
   precisar ter que Instalar/Reconpilar todos os componentes ???
  
   As versão são D6-PRO
   e D7-(acho que entreprise ou algo assim.. rsrsrs)
  
   Obrigado.
   []s
  
   Luiz Escobar
  
   [As partes desta mensagem que não continham texto foram removidas]
  
  
  
 
  --
 
  Alexandre Peçanha
  alexpeca...@gmail.com alexpecanha%40gmail.com alexpecanha%40gmail.com
 
 
  [As partes desta mensagem que não continham texto foram removidas]
 
  [As partes desta mensagem que não continham texto foram removidas]
 
 
 

 --
 Att,

 Jorge Ericsson S. Pinheiro
 Ericsson Sistemas e Soluções
 (61) 3797-4785 / 3244-8689 / 9227 4785
 http://www.jericsson.com.br
 jericsson...@gmail.com jericssonsup%40gmail.com
 jericsson...@hotmail.com jericssonsup%40hotmail.com
 skype:jericsson
 Brasília - DF

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

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

  




-- 
Att,

Jorge Ericsson S. Pinheiro
Ericsson Sistemas e Soluções
(61) 3797-4785 / 3244-8689 / 9227 4785
http://www.jericsson.com.br
jericsson...@gmail.com
jericsson...@hotmail.com
skype:jericsson
Brasília - DF


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



Re: [delphi-br] Transferir toda configuração do De lphi 6 e 7 para outra maquina/windows...

2009-02-02 Por tôpico Jorge Ericsson
Também utilizo a mesma técnica do Natanael e sempre funcionou até aqui no
meu trabalho que preciso sempre fazer umas limpezas quando o delphi começa a
travar.
Mantenho tudo no meu diretório e para ter certeza de todo o funcionamento,
utilizo apenas o BUIL ALL nos projetos e algumas bibliotecas como jedi.

Funciona...



2009/2/2 Natanael Rodrigues nr.n...@gmail.com

   Ola,

 Quando ocorre esta situação comigo, faço uma cópia dos registros que
 guardam as informações do Libary e packages e em seguida uma cópia fiel dos
 diretórios onde estão os componentes. Para facilitar este trabalho, sempre
 mantenho meus componentes em um caminho específico, assim fica facil quando
 preciso recorrer a este tipo de trabalho.

 Att.


 - Original Message -
 From: Alexandre Peçanha
 To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
 Sent: Monday, February 02, 2009 2:50 PM
 Subject: Re: [delphi-br] Transferir toda configuração do Delphi 6 e 7 para
 outra maquina/windows...

 Olá Luiz,
 Em relação a sua pergunta, realmente não faço idéia de como fazer essa
 migração, mas como já tive este mesmo problema algumas vezes, acabei por
 utilizar um artifício que tem me poupado muito trabalho.

 Máquinas virtuais.

 Tenho algumas máquinas virtuais (M$ Virtual PC) e em cada uma tenho apenas
 o
 essencial de cada ambiente instalado. Tenho uma VM com WinXP e Delphi 6 (+
 componentes instalados). Mantenho a original guardada e uso uma cópia pra
 trabalho e a carrego pra cima e pra baixo no pendrive. Em qq lugar, tenho
 meus ambientes completos. Assim faço também com ambientes de servidor
 (Windows 2003 + BD´s) e clientes (Windows XP somente).

 Não posso ajudar no seu problema, mas fica ai a dica. Comigo tem funcionado
 100%.

 2009/2/2 Luiz Escobar 
 esco...@megasistema.com.brescobar%40megasistema.com.br
 

  Sequinte, estou trocando de manquina na empresa, e arrumando a minha em
  casa, então ja viu né...
  RE-INSTALL é que não vai faltar...
  Bom queria saber se tem como transferir toda a configuração do DELPHI 7 e
 6
  para a maquina/windows novos, ja instalei os mesmos e estão ativos, porem
 to
  limpim-limpim, e tem componentes pra XUXU pra instalar ALLguem sabe
 de
  algum jeito de transferir toda a configuração para a outra maquina, sem
  precisar ter que Instalar/Reconpilar todos os componentes ???
 
  As versão são D6-PRO
  e D7-(acho que entreprise ou algo assim.. rsrsrs)
 
  Obrigado.
  []s
 
  Luiz Escobar
 
  [As partes desta mensagem que não continham texto foram removidas]
 
 
 

 --

 Alexandre Peçanha
 alexpeca...@gmail.com alexpecanha%40gmail.com

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

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

  




-- 
Att,

Jorge Ericsson S. Pinheiro
Ericsson Sistemas e Soluções
(61) 3797-4785 / 3244-8689 / 9227 4785
http://www.jericsson.com.br
jericsson...@gmail.com
jericsson...@hotmail.com
skype:jericsson
Brasília - DF


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



[delphi-br] Criar caixas de sistemas

2009-01-26 Por tôpico Jorge Ericsson
Olá pessoal,

Agora que estou quase terminando o meu site, eu gostaria de criar umas
caixas iguais as apresentadas no link abaixo para identificar meus sistemas.

Alguém conhece uma ferramenta para criar essas caixas ?

http://blogwindows.wordpress.com/2007/02/17/boxes-so/

Valew pessoal,

Jorge Ericsson


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



Re: [delphi-br] converter .DOC para .PDF

2009-01-23 Por tôpico Jorge Ericsson
Olá Elvis,

Eu utilizo o QRPDFFilt do QuickReport para converte meus relatórios para PDF
e enviar por e-mail.
Não sei se te ajudaria, mas caso queira testar eu te mando o pacote em PVT
para vc testar.

eu uso da seguinte forma:

Declaro na uses principal a unit QRPDFFilt

Na unit QRPrev.pas eu acrescento um botão para dispara a procedure abaixo:

procedure TQRStandardPreview.TbtnPDFClick(Sender: TObject);
var PDFFilt: TQRPDFDocumentFilter;
vRelatorio : String;
begin
  try
Screen.Cursor := crSqlWait;
if DirectoryExists(ExtractFilePath(Application.ExeName)+'PDFTemp') then
 DeleteDir(ExtractFilePath(Application.ExeName)+'PDFTemp');
 CreateDir(ExtractFilePath(Application.ExeName)+'PDFTemp');
vRelatorio :=
Self.Caption+Copy(DateToStr(Now),1,2)+Copy(DateToStr(Now),4,2)+Copy(DateToStr(Now),7,4)+Copy(TimeToStr(Now),1,2)+Copy(TimeToStr(Now),4,2);
vRelatorio :=
UpperCase(ExtractFilePath(Application.ExeName)+vRelatorio+'.pdf');
PDFFilt := TQRPDFDocumentFilter.Create( vRelatorio );
PDFFilt.AddFontMap( 'Bookman-Old-Style:Times' );
PDFFilt.TextOnTop := true;
QRPrinter.ExportToFilter( PDFFilt );
PDFFilt.Free;
Screen.Cursor := crDefault;
Application.MessageBox(Pchar('Relatório PDF gerado com sucesso em:
'+vRelatorio+'.'),'Aviso do Sistema',MB_OK + MB_ICONINFORMATION);
  except
PDFFilt.Free;
  end;
end;

Nunca tentei de um campo memo ou rtf, mas pode ser que funcione depois de
uma boa pesquisar no código.

Abraços.


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



Re: [delphi-br] Update + Quantidade de Registros

2009-01-23 Por tôpico Jorge Ericsson
Olá Juliano,

Eu já fiz um procedimento que precisa retornar todos os registros inseridos
e atualizados num único procedimento.
Criei uma variável contador para os dois procedimento dentro do laço de
inserção e atualização, depois eu exibia uma mensagem para o usuário
informando a qdte de registros atualizados e inseridos na tabela..

Talvez resolva o seu problema, qq coisa manda a instrução para melhor
analise.

[]´s.

Jorge Ericsson



2009/1/23 Juliano Silva - Yahoo smjjuli...@yahoo.com.br

   Pessoal

 Tenho um componente TQuery e um TUpdateSQL, este TQuery é carregado com uma
 série de registros que podem ser alterados no Grid, após as alterações
 realizadas, elas são aplicadas no banco, através do TQuery.ApplyUpdates,
 preciso do seguinte:

 Saber quantos registros foram alterados, antes de aplicar no banco, sei que
 com o TClientDataSet é possível, existe alguma forma de saber isso usando o
 TQuery ou o TUpdateSQL?

 att.

 Juliano Silva

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

  



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



Re: [delphi-br] Update + Quantidade de Registros

2009-01-23 Por tôpico Jorge Ericsson
blz então monte um Array com o código do registro que estão sendo alterado,
após o comando post.
Assim vc terá um Array por exemplo: var_Atualizados = [23,1,3,4,76,98,90],
de posse desse array vc poderá exibir ao usuário os respectivos registros
alterados e suas informações.

Se entendi bem acho que resolvi nesse caso.


2009/1/23 Juliano Silva - Yahoo smjjuli...@yahoo.com.br



 Hummm, neste caso não funciona para mim, pois as alterações ocorrem no
 Grid,
 a pessoa como é uma lista de lançamentos, são vários registros e a pessoa
 altera no grid.

 De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto:
 delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em
 nome de Jorge Ericsson
 Enviada em: sexta-feira, 23 de janeiro de 2009 16:11
 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
 Assunto: Re: [delphi-br]  Update + Quantidade de Registros 


 Olá Juliano,

 Eu já fiz um procedimento que precisa retornar todos os registros inseridos
 e atualizados num único procedimento.
 Criei uma variável contador para os dois procedimento dentro do laço de
 inserção e atualização, depois eu exibia uma mensagem para o usuário
 informando a qdte de registros atualizados e inseridos na tabela..

 Talvez resolva o seu problema, qq coisa manda a instrução para melhor
 analise.

 []´s.

 Jorge Ericsson

 2009/1/23 Juliano Silva - Yahoo 
 smjjuli...@yahoo.com.brsmjjuliano%40yahoo.com.br
 mailto:smjjuliano%40yahoo.com.br smjjuliano%2540yahoo.com.br 

  Pessoal
 
  Tenho um componente TQuery e um TUpdateSQL, este TQuery é carregado com
 uma
  série de registros que podem ser alterados no Grid, após as alterações
  realizadas, elas são aplicadas no banco, através do TQuery.ApplyUpdates,
  preciso do seguinte:
 
  Saber quantos registros foram alterados, antes de aplicar no banco, sei
 que
  com o TClientDataSet é possível, existe alguma forma de saber isso usando
 o
  TQuery ou o TUpdateSQL?
 
  att.
 
  Juliano Silva
 
  [As partes desta mensagem que não continham texto foram removidas]
 
 
 

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

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

  




-- 
Att,

Jorge Ericsson S. Pinheiro
Ericsson Sistemas e Soluções
(61) 3797-4785 / 3244-8689 / 9227 4785
http://www.jericsson.com.br
jericsson...@gmail.com
jericsson...@hotmail.com
skype:jericsson
Brasília - DF


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



Re: [delphi-br] BUG do TZQuery do ZEUS

2009-01-22 Por tôpico Jorge Ericsson
AMIGOS, OBRIGADO MAS O PROBLEMA JÁ FOI RESOLVIDO.

Coloquei o Componente TZQUERY no formulário, joguei toda a instrução e
passei parâmetros para abri a query e deu certo.
Desculpe por não ter explicado direito o meu problema, mas não havia
pensando em outras soluções.

Valew pessoal...

2009/1/21 Eduardo Silva dos Santos eduardo@gmail.com

 Jorge é importantíssimo você informar qual a Versão do Zeos e do Delphi que
 vc ta usando.. e de preferência um trecho do código para reproduzir o
 problema, assim outro colega pode fazer o teste e te ajudar, sem informar a
 versão fica complicado.

 2009/1/21 Jorge Ericsson jericsson...@gmail.com

  Olá amigos, Eu uma instrução SQL bem simples que qdo crio a query em
 tempo
  de execução a mesma acrescenta uns caracteres estranhos no final da
 String
  e
  ocaciona o erro qdo executo o comando OPEN.
 
  Alguém já passou por isso ou tem uma dica de como resolver este problema
 ??
 
  Seque texto captura do Query.Sql.text
 
  'select ' 1' as Faixa_Etaria,sum(qtd), co_municipio_ibge_residencia, ano
  '#$D#$A'from (select count(*) as
  qtd,co_municipio_ibge_residencia,to_char(dt_obito, '') as
  ano,'#$D#$A'EXTRACT(year FROM age (dt_obito, dt_nascimento)) as
  faixa_etaria
  '#$D#$A'from dbsim.tb_do where to_char(dt_obito, '') = '2007' and
  a.co_municipio_ibge_residencia = '330010''#$D#$A'group by
  co_municipio_ibge_residencia,to_char(dt_obito, ''),EXTRACT(year FROM
  age
  (dt_obito, dt_nascimento))'#$D#$A'order by faixa_etaria ) as
  faixa'#$D#$A'where faixa.faixa_etaria  1'#$D#$A'group by
  faixa.co_municipio_ibge_residencia, faixa.ano'#$D#$A'union'#$D#$A'select
  '1-4' as Faixa_Etaria,sum(qtd), co_municipio_ibge_residencia, ano
  '#$D#$A'from (select count(*) as
  qtd,co_municipio_ibge_residencia,to_char(dt_obito, '') as
  ano,'#$D#$A'EXTRACT(year FROM age (dt_obito, dt_nascimento)) as
  faixa_etaria
  '#$D#$A'from dbsim.tb_do where to_char(dt_obito, '') = '2007' and
  a.co_municipio_ibge_residencia = '330010''#$D#$A'group by
  co_municipio_ibge_residencia,to_char(dt_obito, ''),EXTRACT(year FROM
  age
  (dt_obito, dt_nascimento))'#$D#$A'order by faixa_etaria ) as
  faixa'#$D#$A'where faixa.faixa_etaria between 1 and 4'#$D#$A'group by
  faixa.co_municipio_ibge_residencia, faixa.ano'#$D#$A'union'#$D#$A'select
  '5-9' as Faixa_Etaria,sum(qtd), co_municipio_ibge_residencia, ano
  '#$D#$A'from (select count(*) as
  qtd,co_municipio_ibge_residencia,to_char(dt_obito, '') as
  ano,'#$D#$A'EXTRACT(year FROM age (dt_obito, dt_nascimento)) as
  faixa_etaria
  '#$D#$A'from dbsim.tb_do where to_char(dt_obito, '') = '2007' and
  a.co_municipio_ibge_residencia = '330010''#$D#$A'group by
  co_municipio_ibge_residencia,to_char(dt_obito, ''),EXTRACT(year FROM
  age
  (dt_obito, dt_nascimento))'#$D#$A'order by faixa_etaria ) as
  faixa'#$D#$A'where faixa.faixa_etaria between 5 and 9'#$D#$A'group by
  faixa.co_municipio_ibge_residencia, faixa.ano'#$D#$A'union'#$D#$A'select
  '10-14' as Faixa_Etaria,sum(qtd), co_municipio_ibge_residencia, ano
  '#$D#$A'from (select count(*) as
  qtd,co_municipio_ibge_residencia,to_char(dt_obito, '') as
  ano,'#$D#$A'EXTRACT(year FROM age (dt_obito, dt_nascimento)) as
  faixa_etaria
  '#$D#$A'from dbsim.tb_do where to_char(dt_obito, '') = '2007' and
  a.co_municipio_ibge_residencia = '330010''#$D#$A'group by
  co_municipio_ibge_residencia,to_char(dt_obito, ''),EXTRACT(year FROM
  age
  (dt_obito, dt_nascimento))'#$D#$A'order by faixa_etaria ) as
  faixa'#$D#$A'where faixa.faixa_etaria between 10 and 14'#$D#$A'group by
  faixa.co_municipio_ibge_residencia, faixa.ano'#$D#$A'union'#$D#$A'select
  '15-19' as Faixa_Etaria,sum(qtd), co_municipio_ibge_residencia, ano
  '#$D#$A'from (select count(*) as
  qtd,co_municipio_ibge_residencia,to_char(dt_obito, '') as
  ano,'#$D#$A'EXTRACT(year FROM age (dt_obito, dt_nascimento)) as
  faixa_etaria
  '#$D#$A'from dbsim.tb_do where to_char(dt_obito, '') = '2007' and
  a.co_municipio_ibge_residencia = '330010''#$D#$A'group by
  co_municipio_ibge_residencia,to_char(dt_obito, ''),EXTRACT(year FROM
  age
  (dt_obito, dt_nascimento))'#$D#$A'order by faixa_etaria ) as
  faixa'#$D#$A'where faixa.faixa_etaria between 15 and 19'#$D#$A'group by
  faixa.co_municipio_ibge_residencia, faixa.ano'#$D#$A'union'#$D#$A'select
  '20-29' as Faixa_Etaria,sum(qtd), co_municipio_ibge_residencia, ano
  '#$D#$A'from (select count(*) as
  qtd,co_municipio_ibge_residencia,to_char(dt_obito, '') as
  ano,'#$D#$A'EXTRACT(year FROM age (dt_obito, dt_nascimento)) as
  faixa_etaria
  '#$D#$A'from dbsim.tb_do where to_char(dt_obito, '') = '2007' and
  a.co_municipio_ibge_residencia = '330010''#$D#$A'group by
  co_municipio_ibge_residencia,to_char(dt_obito, ''),EXTRACT(year FROM
  age
  (dt_obito, dt_nascimento))'#$D#$A'order by faixa_etaria ) as
  faixa'#$D#$A'where faixa.faixa_etaria between 20 and 29'#$D#$A'group by
  faixa.co_municipio_ibge_residencia, faixa.ano'#$D#$A'union

Re: [delphi-br] URGENTE: Gravar e Ler imagem no banco MYSQL

2009-01-21 Por tôpico Jorge Ericsson
Amigos, eu uso dessa forma para recuperar a imagem do banco e funciona
perfeitamente com ADO mas com Zeus não deu certo mesmo mudando as
propriedades e fazendo a chamada.

Esta meio tosco mais funciona, na época eu só encontrei essa forma de
trabalhar ADO e MySQL 4.0

Obs.: Hoje eu utilizo Zeos e MySQL 5.0

Espero ter sido claro.

procedure TFormMembros.Carregar_Foto_Membro(DataSet: TDataSet);
begin
  try
Pic:= nil;
Stream := nil;
If varisnull(DataSet.fieldbyName('FOT_MEMBRO').Value)  or
(DataSet.fieldbyName('FOT_MEMBRO').Value = '') Then
begin
  try
Stream := TMemoryStream.Create;
Pic:= TJpegImage.Create;

Pic.LoadFromFile(ExtractFilePath(Application.ExeName)+'Logotipo.jpg');
FotoMembro.Picture.Assign(Pic);
GraphType := gtJpeg;
Stream.Write(GraphType, 1);
Pic.SaveToStream(Stream);
  except
Pic.Free;
Stream.Free;
raise;
  end;
end else
begin
  Stream :=
TAdoBlobStream.Create(TBlobField(DataSet.FieldbyName('FOT_MEMBRO')),
bmRead);
  try

Stream.Seek(JpegStartsInBlob(TBlobField(DataSet.FieldbyName('FOT_MEMBRO'))),
soFromBeginning);
Pic  := TJpegImage.Create;
try
 Pic.LoadFromStream(Stream);
 FotoMembro.Picture.Graphic := Pic;
finally
 Pic.Free;
end;
  finally
Stream.Free
  end;
end;
  except
  end;
end;

Para Carregar e Gravar eu faço assim:

procedure TFormMembros.mnuCarregarClick(Sender: TObject);
begin
  if OpenFotoMembro.Execute then
  begin
mnuLimpar.Click;
Jpg := nil;
Stream := nil;
try
  Stream := TMemoryStream.Create;
  FileExt := LowerCase(ExtractFileExt(OpenFotoMembro.FileName));
  if (FileExt = '.bmp') or (FileExt = '.dib') then begin
GraphType := gtBitmap;
Stream.Write(GraphType, 1);
with FotoMembro.Picture.Bitmap do
begin
  LoadFromFile(OpenFotoMembro.FileName);
  FotoMembro.Picture.Bitmap.SaveToStream(Stream);
end;
  end else if (FileExt = '.jpg') or (FileExt = '.jpeg') or (FileExt =
'.jpe') then
  begin
Jpg := TJpegImage.Create;
Jpg.LoadFromFile(OpenFotoMembro.FileName);
FotoMembro.Picture.Assign(Jpg);
GraphType := gtJpeg;
Stream.Write(GraphType, 1);
Jpg.SaveToStream(Stream);
  end;

  QueryFoto:= Nil;
  QueryFoto:= TADOQuery.Create(QueryFoto);
  QueryFoto.Connection := Tabelas.ADOConnSGI;
  QueryFoto.Sql.Clear;
  QueryFoto.Sql.Add('update tb_sgi_membros set fot_membro = :fot_membro
where cod_membro = :cod_membro');
  Screen.Cursor := crHourGlass;
  if (Stream  nil) Then
  begin
   QueryFoto.Parameters.ParamByName('cod_membro').Value := vCodMembro;

QueryFoto.Parameters.ParamByName('fot_membro').LoadFromStream(Stream,ftBlob);
  end;
  QueryFoto.ExecSQL;
  QueryFoto.Free;
 end;
except
  jpg.Free;
  Stream.Free;
  raise;
end;
  end;
end;


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



[delphi-br] BUG do TZQuery do ZEUS

2009-01-21 Por tôpico Jorge Ericsson
#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'œu'#0'ä\Ñ'#8#0#$1C'u'#$A#8#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'€
u'#0'hnÑ'#8'
'#$B'u'#$A#8#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'ø'#$1E'u'#0'ÔmÑ'#8'€øs'#$A#8#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'Ø-u'#0'€oÑ'#8'`ût'#$A#8#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'L4u'#0'LgÑ'#8'à'#$1F'u'#$A#8#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'Ì'#$1F'u'#0'Ø[Ñ'#8#0#$B'u'#$A#8#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'„6u'#0#0'KÑ'#8#0#0#0#0#8#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'P6u'#0'x=Ô'#8'`'#5'u'#$A#8#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'p/u'#0'ÜhÑ'#8#0#0#0#0#8#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#$1C'u'#0'XhÑ'#8#0#0#0#0#8#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'È'#$1A'u'#0'WÑ'#8#0#0#0#0#8#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#$14''u'#0'HNÑ'#8#0#0#0#0#8#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'x*u'#0'ÔNÑ'#8'@'#5'u'#$A#8#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'˜*u'#0#0'dÑ'#8'Àõs'#$A#8#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'à
u'#0'¨UÑ'#8#0#0#0#0#8#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'
u'#0'VÑ'#8'@'#$E'u'#$A#8#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0','#$1D'u'#0'äp-'#3'
ùs'#$A#8#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'„%u'#0'Üo-'#3'Àûs'#$A#8#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'è-u'#0'ôm-'#3#0#0#0#0#8#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'Ô'#$19'u'#0'tl-'#3#0#0#0#0#8#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'ð+u'#0'àÁ'#$18#8'Àôs'#$A#8#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'à'#$1A'u'#0'ÐA«'#8#0#0#0#0#8#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'X-u'#0'XD«'#8'
øs'#$A#8#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'¸'#$18'u'#0'Xµ'#8#0#0#0#0#8#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'Ô1u'#0'àD«'#8'à'#1'u'#$A#8#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'ø
u'#0'lE«'#8' '#1'u'#$A#8#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'
5u'#0'Äô§'#8'
'#8'u'#$A#8#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'8$u'#0'8ô§'#8#0#0#0#0#8#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'
'u'#0'° 
'#$F#8#0#0#0#0#8#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'`%u'#0#0'™'#$13#8'à'#9'u'#$A#8#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#8',u'#0'€™'#$13#8'@'#$1F'u'#$A#8#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#$18#$19'u'#0'P¯'#$13#8#0#0#0#0#8#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'
%u'#0'ì¯'#$13#8'€'#5'u'#$A#8#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'œ'#$1D'u'#0'€°'#$13#8'À'#0'u'#$A#8#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'
!u'#0'´(R)'#$13#8'€'#$E'u'#$A#8#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0


Att,

Jorge Ericsson S. Pinheiro
Ericsson Sistemas e Soluções
(61) 3797-4785 / 3244-8689 / 9227 4785
http://www.jericsson.com.br
jericsson...@gmail.com
jericsson...@hotmail.com
skype:jericsson
Brasília - DF


[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] URGENTE: Gravar e Ler imagem no banco MYSQL

2009-01-20 Por tôpico Jorge Ericsson
Olá amigos delphianos, migrei um aplicação ACCESS para MySql e estou com
problemas em gravar e recuperar a foto do membro.

Alguém poderia me indicar uma rotina para realizar essa tarefa sem que ter
que popular a Query ou a Table com os campos ?? Exemplo.

Tabelas.*TabDirigenteImg_Foto_Dirigente*
.SaveToStream(Tabelas.BlobMemoryStream);
Tabelas.BlobMemoryStream.Position := 0;
Tabelas.JPEGImage.LoadFromStream(Tabelas.BlobMemoryStream);
FotoDirigente.Picture.Assign(Tabelas.JPEGImage);

Gostaria de uma solução inteligente para gravar e carregar tanto BMP, JPEG,
JPG e etc se possível..

Valew Amigos..

Jorge Ericsson S. Pinheiro
Ericsson Sistemas e Soluções
(61) 3797-4785 / 3244-8689 / 9227 4785
http://www.jericsson.com.br
jericsson...@gmail.com
jericsson...@hotmail.com
skype:jericsson
Brasília - DF


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



Re: [delphi-br] URGENTE: Gravar e Ler imagem no banco MYSQL

2009-01-20 Por tôpico Jorge Ericsson
Eduardo, sim tó usando LongBlob, o componente de acesso aos dados que eu
estava usando antes era ADO, agora eu tó usando Zeos e ainda não consegui
encontra nada eficiente para resolver o meu problema.


2009/1/20 Eduardo Silva dos Santos eduardo@gmail.com

   Jorge, qual o componente de acesso você ta usando?

 o campo deve ser do tipo LongBlob ok.

 2009/1/20 Jorge Ericsson jericsson...@gmail.comjericssonsup%40gmail.com
 


  Olá amigos delphianos, migrei um aplicação ACCESS para MySql e estou com
  problemas em gravar e recuperar a foto do membro.
 
  Alguém poderia me indicar uma rotina para realizar essa tarefa sem que
 ter
  que popular a Query ou a Table com os campos ?? Exemplo.
 
  Tabelas.*TabDirigenteImg_Foto_Dirigente*
  .SaveToStream(Tabelas.BlobMemoryStream);
  Tabelas.BlobMemoryStream.Position := 0;
  Tabelas.JPEGImage.LoadFromStream(Tabelas.BlobMemoryStream);
  FotoDirigente.Picture.Assign(Tabelas.JPEGImage);
 
  Gostaria de uma solução inteligente para gravar e carregar tanto BMP,
 JPEG,
  JPG e etc se possível..
 
  Valew Amigos..
 
  Jorge Ericsson S. Pinheiro
  Ericsson Sistemas e Soluções
  (61) 3797-4785 / 3244-8689 / 9227 4785
  http://www.jericsson.com.br
  jericsson...@gmail.com jericssonsup%40gmail.com jericssonsup%
 40gmail.com
  jericsson...@hotmail.com jericssonsup%40hotmail.com jericssonsup%
 40hotmail.com
  skype:jericsson
  Brasília - DF
 
 

 --
 ...
 Eduardo Silva dos Santos
 DRD SISTEMAS
 (27) 3218-4201
 (27) 8842-9489
 MSN: eduardo@gmail.com eduardo.drd%40gmail.com
 Site: http://www.drdsistemas.com.br/
 ...

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

  




-- 
Att,

Jorge Ericsson S. Pinheiro
Ericsson Sistemas e Soluções
(61) 3797-4785 / 3244-8689 / 9227 4785
http://www.jericsson.com.br
jericsson...@gmail.com
jericsson...@hotmail.com
skype:jericsson
Brasília - DF


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



Re: [delphi-br] URGENTE: Gravar e Ler imagem no banco MYSQL

2009-01-20 Por tôpico Jorge Ericsson
Eduado,

Eu fiz exatamente como está fazendo com ADO só que estava apresentando uns
de Stream que eu terei que reproduzir novamente e postar aqui, mas por
enquanto não deu certo a minha tentativa da mesma forma que usando ADO.

2009/1/20 Eduardo Silva dos Santos eduardo@gmail.com

   Jorge, você deve fazer da mesma forma que fazia com o ADO. Qual
 exatamente o
 seu problema?


 2009/1/20 Jorge Ericsson jericsson...@gmail.comjericssonsup%40gmail.com
 

  Eduardo, sim tó usando LongBlob, o componente de acesso aos dados que eu
  estava usando antes era ADO, agora eu tó usando Zeos e ainda não consegui
  encontra nada eficiente para resolver o meu problema.
 
  2009/1/20 Eduardo Silva dos Santos 
  eduardo@gmail.comeduardo.drd%40gmail.com
 eduardo.drd%40gmail.com
  
 
 
   Jorge, qual o componente de acesso você ta usando?
  
   o campo deve ser do tipo LongBlob ok.
  
   2009/1/20 Jorge Ericsson jericsson...@gmail.comjericssonsup%40gmail.com
 jericssonsup%40gmail.com
  jericssonsup%40gmail.com
   
  
  
Olá amigos delphianos, migrei um aplicação ACCESS para MySql e estou
  com
problemas em gravar e recuperar a foto do membro.
   
Alguém poderia me indicar uma rotina para realizar essa tarefa sem
 que
   ter
que popular a Query ou a Table com os campos ?? Exemplo.
   
Tabelas.*TabDirigenteImg_Foto_Dirigente*
.SaveToStream(Tabelas.BlobMemoryStream);
Tabelas.BlobMemoryStream.Position := 0;
Tabelas.JPEGImage.LoadFromStream(Tabelas.BlobMemoryStream);
FotoDirigente.Picture.Assign(Tabelas.JPEGImage);
   
Gostaria de uma solução inteligente para gravar e carregar tanto BMP,
   JPEG,
JPG e etc se possível..
   
Valew Amigos..
   
Jorge Ericsson S. Pinheiro
Ericsson Sistemas e Soluções
(61) 3797-4785 / 3244-8689 / 9227 4785
http://www.jericsson.com.br
jericsson...@gmail.com jericssonsup%40gmail.com jericssonsup%
 40gmail.com jericssonsup%
  40gmail.com jericssonsup%
   40gmail.com
jericsson...@hotmail.com jericssonsup%40hotmail.com jericssonsup%
 40hotmail.com jericssonsup%
  40hotmail.com jericssonsup%
   40hotmail.com
skype:jericsson
Brasília - DF
   
   
  
   --
   ...
   Eduardo Silva dos Santos
   DRD SISTEMAS
   (27) 3218-4201
   (27) 8842-9489
   MSN: eduardo@gmail.com eduardo.drd%40gmail.com eduardo.drd%
 40gmail.com eduardo.drd%
  40gmail.com
   Site: http://www.drdsistemas.com.br/
   ...
  
   [As partes desta mensagem que não continham texto foram removidas]
  
  
  
 
  --
  Att,
 
  Jorge Ericsson S. Pinheiro
  Ericsson Sistemas e Soluções
  (61) 3797-4785 / 3244-8689 / 9227 4785
  http://www.jericsson.com.br
  jericsson...@gmail.com jericssonsup%40gmail.com jericssonsup%
 40gmail.com
  jericsson...@hotmail.com jericssonsup%40hotmail.com jericssonsup%
 40hotmail.com
  skype:jericsson
  Brasília - DF
 
  [As partes desta mensagem que não continham texto foram removidas]
 
 
 

 --
 ...
 Eduardo Silva dos Santos
 DRD SISTEMAS
 (27) 3218-4201
 (27) 8842-9489
 MSN: eduardo@gmail.com eduardo.drd%40gmail.com
 Site: http://www.drdsistemas.com.br/
 ...

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

  




-- 
Att,

Jorge Ericsson S. Pinheiro
Ericsson Sistemas e Soluções
(61) 3797-4785 / 3244-8689 / 9227 4785
http://www.jericsson.com.br
jericsson...@gmail.com
jericsson...@hotmail.com
skype:jericsson
Brasília - DF


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



[delphi-br] [OFF-TOPIC] - VAGA para programador Delphi em Brasília.

2009-01-05 Por tôpico Jorge Ericsson
Olá Pessoal,

A um tempo atrás um programador da lista delphi entrou em contato comigo,
pois mora em salvador e queria vir para Brasília.
Bom surgiu uma vaga no ministério onde trabalho e precisava entrar em
contato com a pessoa que me ligou e/ou receber currículos de pessoas
interessadas.
Bom, se vc que entrou em contato comigo ainda estiver interessado, por
favor, faz contato o mais rápido possível.
E vc que está precisando de contratação por carteira e queira trabalhar 8h
me mande seu currículo.

Grande abraço a todos.

Jorge Ericsson S. Pinheiro
Ericsson Sistemas e Soluções
(61) 3797-4785 / 3244-8689 / 9227 4785
http://www.jericsson.com.br
jericsson...@gmail.com
jericsson...@hotmail.com
skype:jericsson
Brasília - DF


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



[delphi-br] URGENTE: Configuração INTERBASE Dual Core

2008-12-30 Por tôpico Jorge Ericsson
Olá amigos Delphianos,

Procurei na lista e na NET mas não encontrei solução para o meu problema.

Tenho um aplicativo (ADMINISTRATIVO) que funciona em vários estados e
município usando IB 6.0.

Só que algumas máquinas com dual core (múltiplo processador) o interbase
fica lento do nada.

Alguém sabe de alguma configuração ou atualização (patch) que resolva esse
meu problema ?

Obs.: Não posso mudar a arquitetura de acesso ao banco no momento para
Firebird ou outro, tenho que manter por enquanto o IB 6.0.

Valew pessoal,

Jorge Ericsson


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



[delphi-br] Cadastro de Prefeitura e Prefeitos

2008-12-15 Por tôpico Jorge Ericsson
Olá amigos, gostaria de saber se alguém já desenvolveu algum sistema para
acompanhamento de processos de prefeituras.

Estou com um projeto de desenvolvido para uma empresa de consultoria
municipal e necessito levantar os requisitos para o desenvolvimento do
mesmo.

Se alguém já desenvolveu algo ou conhece algum demo que eu possa estudar
(indicar) fico grato pela ajudar.


Obs.: Não é um sistema para prefeitura e sim para uma empresa que preta
consultoria para prefeituras, com recursos de agenda, pesquisar de
certidões, sintegrar e etc.


Att,

Jorge Ericsson S. Pinheiro
Ericsson Sistemas e Soluções
(61) 3797-4785 / 3244-8689 / 9227 4785
http://www.jericsson.com.br
jericsson...@gmail.com
jericsson...@hotmail.com
skype:jericsson
Brasília - DF


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



Re: [delphi-br] URGENTE: Como faço para instalar BDE de forma silenciosa.

2008-12-12 Por tôpico Jorge Ericsson
Blz Eduardo, mas essa dica eu já tentei, não funciona.
Vou continua pesquisando, pq qdo a instalação do BDE encontra qq coisa
referente a mesma, a mensagem informando a instalação ou atualização
aparece.
Valew.


2008/12/11 Eduardo Silva dos Santos eduardo@gmail.com

   Espero que essa dica ajude:

 BDE em 1 disquete...065 - BDE em 1 disquete

 Depois que apanhei bastente do BDE, recorri a lista e ninguem consegui me
 ajudar ... consegui resolver o problema. E como acredito que outras pessoas
 tenham o mesmo problema, resolvi colocar essa dica na lista. Por favor, se
 alguem tiver algo a acresentar ou mesmo corrigir, sinta-se a vontade para
 compartilhar conosco.

 Arquivos Exenciais para o BDE:

 EUROPE.BLL

 USA.BLL

 IDR20009.DLL

 IDAPI32.DLL

 BLW32.DLL

 IDAPI32.CFG --- esse arquivo pode ter qualquer outro nome, desde que seja
 configurado no registro.

 Drivers de Banco de Dados:

 IDPDX32.DLL --- Driver Paradox

 IDASCI32.DLL --- Driver ASCII

 IDDBAS32.DLL --- Driver DBase

 IDODBC32.DLL --- Driver ODBC

 O BDE precisa de pelo menos um Driver de Banco de Dados para funcionar.
 Esses acima sao apenas alguns, existem varios outros.

 O BDE 4.51 + Driver Paradox compactados com o Algoritimo ZIP, ocuparam
 aproximadamente 650 Kb.

 Entradas no Registro do Win95:

 HKEY_LOCAL_MACHINE

 SOFTWARE\Borland\Database Engine

 DLLPATH - localizacao do BDE (Unidade+Caminho Completo)

 CONFIGFILE01 - localizacao do arquivo de configuracao (Unidade+Caminho

 Completo+Nome do Arquivo)

 SOFTWARE\Borland\BLW32

 BLAPIPATH - localizacao do BDE (Unidade+Caminho Completo)

 LOCALE_LIB1 - localizacao do arquivo USA.BLL (Unidade+Caminho

 Completo+USA.BLL)

 LOCALE_LIB2 - localizacao do arquivo EUROPE.BLL (Unidade+Caminho

 Completo+EUROPE.BLL)

 Segue um pequeno exemplo de como registrar o BDE no Registro do Win95:
 begin Registry.RootKey := HKEY_LOCAL_MACHINE;
 Registry.CreateKey('SOFTWARE\Borland\Database
 Engine'); Registry.OpenKey('SOFTWARE\Borland\Database Engine', False);
 Registry.WriteString('DLLPATH',
 'C:\ARQUIVOS DE PROGRAMAS\BDE\'); Registry.WriteString('CONFIGFILE1',
 'C:\ARQUIVOS DE PROGRAMAS\BDE\IDAPI32.CFG'); Registry.OpenKey('\', False);
 Registry.CreateKey('SOFTWARE\Borland\BLW32');
 Registry.OpenKey('SOFTWARE\Borland\BLW32',
 False); Registry.WriteString('BLAPIPATH', 'C:\ARQUIVOS DE
 PROGRAMAS\BDE\'); Registry.WriteString('LOCALE_LIB1',
 'C:\ARQUIVOS DE PROGRAMAS\BDE\USA.BLL');
 Registry.WriteString('LOCALE_LIB2',
 'C:\ARQUIVOS DE PROGRAMAS\BDE\EUROPE.BLL'); end;

 Para compilar esse codigo, sera necessario declarar a Unit Registry.

 Como eu disse, esse e um exemplo bem simples. Ele nem mesmo verifica se o
 BDE ja esta registrado ou não.

 Para criar o Alias atravez do seu instalador, voce pode usar a funcão da
 api
 do BDE chamada DbiAddAlias.

 *Fonte: DTDelphi 2.8*

 2008/12/11 Jorge Ericsson jericsson...@gmail.comjericssonsup%40gmail.com
 


  Olá amigos Delphianos,
 
  Sei que para muitos vai soar como um atraso de tecnologia, mas tenho um
  sistema em vários estados que necessita ainda do BDE.
  Bom eu desenvolvi um instalador para o meu aplicativo e todas as vezes
 que
  tento instalar a BDE atraves do comando REGSRV32 /s BDEINST.DLL, me
  apresenta uma tela informando que a BDE vai ser instalada/atualizada.
  Gostaria de instalar e registrar o BDE sem a necessidade do usuário
  confirma
  nada.
  Alguém já passou por isso e pode me ajudar com alguma dica ?
 
  Valew pessoal,
 
  Jorge Ericsson S. Pinheiro
  Ericsson Sistemas e Soluções
  (61) 3797-4785 / 3244-8689 / 9227 4785
  http://www.jericsson.com.br
  jericsson...@gmail.com jericssonsup%40gmail.com jericssonsup%
 40gmail.com
  jericsson...@hotmail.com jericssonsup%40hotmail.com jericssonsup%
 40hotmail.com
  skype:jericsson
  Brasília - DF
 
 

 --
 ...
 Eduardo Silva dos Santos
 DRD SISTEMAS
 (27) 3218-4201
 (27) 8842-9489
 MSN: eduardo@gmail.com eduardo.drd%40gmail.com
 Site: http://www.drdsistemas.com.br/
 ...

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

  




-- 
Att,

Jorge Ericsson S. Pinheiro
Ericsson Sistemas e Soluções
(61) 3797-4785 / 3244-8689 / 9227 4785
http://www.jericsson.com.br
jericsson...@gmail.com
jericsson...@hotmail.com
skype:jericsson
Brasília - DF


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



[delphi-br] URGENTE: Como faço para instalar BDE de forma silenciosa.

2008-12-11 Por tôpico Jorge Ericsson
Olá amigos Delphianos,

Sei que para muitos vai soar como um atraso de tecnologia, mas tenho um
sistema em vários estados que necessita ainda do BDE.
Bom eu desenvolvi um instalador para o meu aplicativo e todas as vezes que
tento instalar a BDE atraves do comando REGSRV32 /s BDEINST.DLL, me
apresenta uma tela informando que a BDE vai ser instalada/atualizada.
Gostaria de instalar e registrar o BDE sem a necessidade do usuário confirma
nada.
Alguém já passou por isso e pode me ajudar com alguma dica ?

Valew pessoal,

Jorge Ericsson S. Pinheiro
Ericsson Sistemas e Soluções
(61) 3797-4785 / 3244-8689 / 9227 4785
http://www.jericsson.com.br
[EMAIL PROTECTED]
[EMAIL PROTECTED]
skype:jericsson
Brasília - DF


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



Re: [delphi-br] Janelinha Pop-up

2008-12-04 Por tôpico Jorge Ericsson
Coutinho,

Desinstala tudo, segue o passo a passo que vc consegui..

Remove todos os link no Registry e começa de novo...

Eu uso o Delphi 7 e tenho a versão 335 instalada funcionando 100%.

O Componente  estar em C:\..\..\JVCL335\examples\JvDesktopAlert

Dá uma olhada com carinho, o MSN Popup apresentou uns bugs qdo eu fui
utiliza-lo.

Boa sorte amigão..




2008/12/3 Coutinho - Yahoo [EMAIL PROTECTED]

   Procurei nos componentes da Jedi e não achei...
 Inslei a nova, e ainda assim, na paletinha Dialogs... não está lá...
 Não instala no D7...

 A mesma Jedi que tenho no 2006 (demo que uso para aprender certas
 coisinhas) instalei no D7...
 Instalou no 2006 e não no D7... Pode???

 Sds
 Emanuel Coutinho...

  




-- 
Att,

Jorge Ericsson S. Pinheiro
Ericsson Sistemas e Soluções
(61) 3797-4785 / 3244-8689 / 9227 4785
http://www.jericsson.com.br
[EMAIL PROTECTED]
[EMAIL PROTECTED]
skype:jericsson
Brasília - DF


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



Re: [delphi-br] Delphi doado é pirataria?

2008-12-03 Por tôpico Jorge Ericsson
Se o seu irmão pagou tudo direitinho e lhe entregou pelo menos a nota
fiscal, sem problemas vc tá na legalidade do desenvolvimento
delphi..kakakaka
Mas pq a tua consciência pesou ? rsrsrs


2008/12/3 Coutinho - Yahoo [EMAIL PROTECTED]

   Ei!!!

 Meu Delphi 7 foi doado por meu irmão... com caixa, manual e tudo...e aí?
 Sou pirata?

 Emanuel Coutinho

  




-- 
Att,

Jorge Ericsson S. Pinheiro
Ericsson Sistemas e Soluções
(61) 3797-4785 / 3244-8689 / 9227 4785
http://www.jericsson.com.br
[EMAIL PROTECTED]
[EMAIL PROTECTED]
skype:jericsson
Brasília - DF


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



Re: [delphi-br] Janelinha Pop-up

2008-12-03 Por tôpico Jorge Ericsson
O JEDI tem sim, procure por JvDesktopAlert e vai encontra o que vc procura.

2008/12/3 Coutinho - Yahoo [EMAIL PROTECTED]

   Pessoal

 Eu procurei um pouco na Jedi, e em outros, mas não consegui achar um
 componente que faça apresentação de mensagens tipo uma janelinha pop-up
 que sobre acima do reloginho da tray-icon. como o Norton Anti-virus e o
 MSN...
 Alguém me dá uma dica de onde achar isso?

 Sds,
 Emanuel Coutinho

  




-- 
Att,

Jorge Ericsson S. Pinheiro
Ericsson Sistemas e Soluções
(61) 3797-4785 / 3244-8689 / 9227 4785
http://www.jericsson.com.br
[EMAIL PROTECTED]
[EMAIL PROTECTED]
skype:jericsson
Brasília - DF


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



Re: [delphi-br] Delphi doado é pirataria?

2008-12-03 Por tôpico Jorge Ericsson
Coutinho, dá uma olhada na EULA do delphi que você comprou.
Pq acho tbém muito estranho esse lance de produto, serviço e etc..
E essas EULA mudando conforme o produto adquirido.

Eu estava até pensando em pedi pro papai noel uma licença do Delphi 2009,
mas pelo jeito ele não vai poder me dá.

Boa sorte amigão...

2008/12/3 Luiz Escobar [EMAIL PROTECTED]

   Paguei um marcineiro pra fazer um guardaroupa, nao quiz mais e doei à
 minha
 cunhada.
 E ai, como fica ?
 []s

 Luiz Escobar


 - Original Message -
 From: Joel Alexandre
 É.
 Software é serviço e como todo serviço é intransferível. É o mesmo
 que vc contratar um eletricista na sua casa e transferir o serviço para
 um parente. Infelizmente essa é a realidade :(

 []Os Joel

  Ei!!!
 
  Meu Delphi 7 foi doado por meu irmão... com caixa, manual e tudo...e
 aí?
  Sou pirata?
 
  Emanuel Coutinho
 

  




-- 
Att,

Jorge Ericsson S. Pinheiro
Ericsson Sistemas e Soluções
(61) 3797-4785 / 3244-8689 / 9227 4785
http://www.jericsson.com.br
[EMAIL PROTECTED]
[EMAIL PROTECTED]
skype:jericsson
Brasília - DF


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



Re: [delphi-br] Texto no Banco de Dados

2008-11-28 Por tôpico Jorge Ericsson
Olá Janise,

Você entendeu as explicações dos nossos colegas de como implementar o código
?

Eu passei pelo mesmo problema a tempos como vc...

Uma dica seria vc começar usando o próprio exemplo do delphi de RichText e
tentar gravar o conteúdo do RTF no banco, depois tente restaurar

Se precisar de código me informe em PVT e trocamos experiências blz ??

[]´s


2008/11/28 Janise Dantas [EMAIL PROTECTED]

   Ok, valeu!!
 Agora vou correr atrás, se bem que acho que estou correndo na frente, tipo
 fugindo rsrsrs...

 Obrigada e abraço

 Janise

 From: Adriano Silva
 Sent: Thursday, November 27, 2008 10:37 AM
 To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
 Subject: Re: [delphi-br] Texto no Banco de Dados


 Janise,

 Pode armazenar sem problema qualquer tamanho de texto no banco, coloca a
 coluna q vc vai usar para isso como tipo Char(tamanho desejado). será
 alocada maior memória dependendo do tamanho do texto, mais nda q impeça...
 Abraços...

 2008/11/27 Janise Dantas [EMAIL PROTECTED]janisedantas%40yahoo.com.br
 

  Eu queria saber se a gente pode 'guardar' textos em bancos de dados.
 
  Assim... eu estou fazendo um programa para Assessoria Documental e não
  estou
  conseguindo abrir os documentos no word, só consigo abrir documento em
  branco. Então eu pensei que poderia colocar os modelos de documentos (são
  textos grandes e leis), mais importantes no banco de dados, para ter
  acesso
  fácil.
 
  Será que me fiz entender??
 
  Janise Dantas
  A menina dos olhos de Deus
 
 
 
  
 
  --
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 
 
 
 
 

 --
 Adriano Silva

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

  




-- 
Att,

Jorge Ericsson S. Pinheiro
Ericsson Sistemas e Soluções
(61) 3797-4785 / 3244-8689 / 9227 4785
http://www.jericsson.com.br
[EMAIL PROTECTED]
[EMAIL PROTECTED]
skype:jericsson
Brasília - DF


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



Re: [delphi-br] OFF +- Quero comprar o Delphi

2008-11-20 Por tôpico Jorge Ericsson
Também quero comprar o Delphi mas a minha dúvida é quanto a versão.

Hoje eu trabalho com a versão Delphi 7 e fico na dúvida em Comprar o Delphi
2009 ou Rad Studio 2007.

Alguém poderia me dá uma dica em qual das versão não teria problema de
migração ?

Queria algo barato, investimento inicial baixo mas que atender as minhas
necessidades.

Abraço.

Jorge Ericsson


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



Re: [delphi-br] OFF +- Quero comprar o Delphi

2008-11-20 Por tôpico Jorge Ericsson
Entendi, mas não uso componentes de terceiros, minhas aplicações usam mais
JEDI JVCL e skins para melhorar o visual das aplicações, eu trabalho hj com
o Delphi 7 Enterprise e me atende 200%, acesso bancos FIREBIRD e MYSQL.

O detalhe é que estava querendo migrar alguns programas desktop para rodar
na internet, então pensei no .NET ou Delphi para PHP.

Alguém tem previsão de saída do RAD 2009 ?

Quero compra a licença correta para não me arrepender depois, pois pra mim
ainda sai caro investir no Delphi domeu bolso.

Jorge Ericsson.


2008/11/20 Claudiney Cogo [EMAIL PROTECTED]

   Olá Jorge.

 Eu acredito que em qualquer uma das versões você não terá problema de
 migração, se trabalha com os componentes próprios do delphi somente ou se
 você mesmo produz os seus ou ainda se tem o código fonte dos componentes de
 terceiros. Agora se você utiliza componentes de terceiros e não tem os
 fontes aí sim pode ter problemas, caso estes componentes não tenham versão
 para o delphi escolhido. Aí o caminho é solicitar ao fabricante a
 atualização ou parar de usar e substituir por outro componente padrão.

 Agora quanto a versão Delphi 2009 ou RAD 2007 depende do uso. Se você só
 usa delphi win32, o Delphi 2009 vai resolver tudo. Se você trabalha com
 outras linguagens, como C++ ou desenvolvimento pra .NET, aí tem que ser o
 RAD 2007. Ou aguardar um pouco mais pelo RAD 2009 e o Prism.

 Acredito que seja isso. Mas de qualquer maneira o pessoal da Borland que
 frequenta a lista pode dar mais informações.

 Abraço.

 --
 Claudiney Cogo
 N2 Sistemas e Soluções em Informática
 Av. São Paulo, 172 - 15º Andar - Sala 1505
 Fone/Fax: (44) 3029-6053 - Maringá - Paraná
 www.n2solutions.com.br
 www.nfe.n2solutions.com.br
 www.studion2.com.br


 - Original Message -
 From: Jorge Ericsson
 To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
 Sent: Thursday, November 20, 2008 9:36 AM
 Subject: Re: [delphi-br] OFF +- Quero comprar o Delphi

 Também quero comprar o Delphi mas a minha dúvida é quanto a versão.

 Hoje eu trabalho com a versão Delphi 7 e fico na dúvida em Comprar o Delphi
 2009 ou Rad Studio 2007.

 Alguém poderia me dá uma dica em qual das versão não teria problema de
 migração ?

 Queria algo barato, investimento inicial baixo mas que atender as minhas
 necessidades.

 Abraço.

 Jorge Ericsson

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

 __ Informação do NOD32 IMON 3625 (20081119) __

 Esta mensagem foi verificada pelo NOD32 sistema antivírus
 http://www.eset.com.br

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

  




-- 
Att,

Jorge Ericsson S. Pinheiro
Ericsson Sistemas e Soluções
(61) 3797-4785 / 3244-8689 / 9227 4785
http://www.jericsson.com.br
[EMAIL PROTECTED]
[EMAIL PROTECTED]
skype:jericsson
Brasília - DF


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



Re: [delphi-br] OFF +- Quero comprar o Delphi

2008-11-20 Por tôpico Jorge Ericsson
É pelo que vejo o burraco é bem mais embaixo.
Eu vou aguarda até o ano que vem o Rad Studio 2009 porque quero desenvolver
para Web 2.0.
Mas vou migrando alguns sistemas usando a versão trial do Delphi 2009.
Até lá creio ter resolvido já alguns problemas que no D7 nunca tive.

Valew pessoal pelas informações, foram de grande ajuda mesmo...



2008/11/20 Eduardo Silva dos Santos [EMAIL PROTECTED]

   Bruno, venhamos e convenhamos.. dizer que ele não vai ter problemas é um
 pouco demais..

 se o sistema dele usar muita manipulação de String.. vai ser no mínimo
 traumática a conversão...
 basta olhar os forums por ai o fora.. todo mundo se descabelando e tendo
 que
 fazer um monte de acertos nos sistemas...

 uma prova disso pode ser encontrada aqui
 http://chee-yang.blogspot.com/2008/10/delphi-2009-unicode.html

 ainda bem que o Andreas ( http://andy.jgknet.de/blog/ ) está idealizando
 (e
 certamente vai fazer) um plugin que vai resolver esse parto.

 att,


 --
 ...
 Eduardo Silva dos Santos
 DRD SISTEMAS
 (27) 3218-4201
 (27) 8842-9489
 MSN: [EMAIL PROTECTED] eduardo.drd%40gmail.com
 Site: http://www.drdsistemas.com.br/
 ...

 2008/11/20 Bruno Lichot [EMAIL PROTECTED]bruno.lichot%40borland.com
 

  A versão 2007 não está sendo mais comercializada, somente a 2009.
 
  Mas a bem da verdade você não vai ter problemas de migração em nenhuma
 das
  duas.
 
  Verifique qual o sabor do seu Delphi 7 (Professional, Enterprise ou
  Architect) pois esta informação é que determinará qual versão do Delphi
 2009
  você precisará, se Professional, Enterprise ou Architect.
 
  Abraços,
 
  BL
 
  From: delphi-br@yahoogrupos.com.br 
  delphi-br%40yahoogrupos.com.brdelphi-br%
 40yahoogrupos.com.br[mailto:
  delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br%
 40yahoogrupos.com.br] On Behalf
  Of Jorge Ericsson
  Sent: quinta-feira, 20 de novembro de 2008 10:37
  To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br%
 40yahoogrupos.com.br
  Subject: Re: [delphi-br] OFF +- Quero comprar o Delphi
 
 
  Também quero comprar o Delphi mas a minha dúvida é quanto a versão.
 
  Hoje eu trabalho com a versão Delphi 7 e fico na dúvida em Comprar o
 Delphi
  2009 ou Rad Studio 2007.
 
  Alguém poderia me dá uma dica em qual das versão não teria problema de
  migração ?
 
  Queria algo barato, investimento inicial baixo mas que atender as minhas
  necessidades.
 
  Abraço.
 
  Jorge Ericsson
 
  [As partes desta mensagem que não continham texto foram removidas]
 
  [As partes desta mensagem que não continham texto foram removidas]
 
 
 

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

  




-- 
Att,

Jorge Ericsson S. Pinheiro
Ericsson Sistemas e Soluções
(61) 3797-4785 / 3244-8689 / 9227 4785
http://www.jericsson.com.br
[EMAIL PROTECTED]
[EMAIL PROTECTED]
skype:jericsson
Brasília - DF


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



[delphi-br] URGENTE: Controlar Inatividade do sistema

2008-11-18 Por tôpico Jorge Ericsson
Olá pessoal,

Talvez eu esteja fazendo uma pergunta que já houve resposta no forum, mas
como não encontrei nada em minha pesquisa, vou remete-la.

Bom eu preciso desenvolver uma função para controle de inatividade do meu
sistema, tenho usuário que iniciam transações e não concluem me gerando
alguns problemas no.

Gostaria de após um determinado tempo fechar a tela aberta retornando o
usuário para a tela principal do meu sistema.

Alguém já fez isso ou conhece bem o componente JVC JEDI que faz isso ? Eu
estou tentando usar somente a biblioteca JEDI qdo uso componente.

Desde já agradeço...

Jorge Ericsson
Brasília - DF


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



[delphi-br] Banner no topo do formulário.

2008-11-14 Por tôpico Jorge Ericsson
Olá amigos,

Preciso de sugestões para colocar um banner (HTML) no topo do meu formulário
principal apenas para as versão não registradas.
Alguém poderia me dá uma dica de como resolver o problema ?
Pensei em um gif animado mais como o código do banner fica no meu servidor
internet não acho que seria uma boa idéia.


Jorge Ericsson


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



Re: [delphi-br] Re: [Delphi-Brasil] Re: Banner no topo do formulário.

2008-11-14 Por tôpico Jorge Ericsson
Daniel, desculpe amigo mas não estava conseguindo visualizar direito o
processo...
Deve ser o cansaço... Bom eu criei um arquivo topo.html com o código e
disponibilizei no meu servidor.
Ai ficou mole direcionar o navigator do WebBrowser para o arquivo.
Assim fica melhor do que eu imaginava, pq poderei criar vários arquivos e
randomicamente a cada abertura do sistema, o usuário vai visualizar algo
diferente.
Blz... valew pela dica



2008/11/14 Daniel Bastos [EMAIL PROTECTED]

   2008/11/14 Daniel Bastos [EMAIL PROTECTED] danbastos%40gmail.com

  exatamente isso.
  E vc só poe na url o endereço do seu html.
 
 
  2008/11/14 Jorge Ericsson [EMAIL PROTECTED]jericssonsup%40gmail.com
 
 
  Daniel é o seguinte, o código que eu tenho na minha pagina é semelhante
 a
  este:
  object classid=clsid:D27CDB6E-AE6D-11cf-96B8-44455354 codebase=
 
 http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0
 
  width=468 height=60
  param name=movie value=
  http://www.banners.locaweb.com.br/Fullbanner_iDC.swf; /
  param name=quality value=high /
  param name=wmode value=Transparent /
  embed src=
  http://www.banners.locaweb.com.br/Fullbanner_iDC.swf; quality=high
  pluginspage=
 
 http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash
 
  type=application/x-shockwave-flash width=468 height=60 /embed
  /object
 
  Ok... Então eu preciso criar um arquivo HTML para conter esse código e
  chamar pelo WebBrowser correto ??
  Essa é minha dúvida.
 
 
 
 
  2008/11/14 Daniel Bastos [EMAIL PROTECTED] danbastos%40gmail.com
 
  Coloque um TWebBrowser no seu formulário.
  e utilize o método
  WebBrowser1.Navigate(Endereco);
 
  O endereco pode se referir a um endereço do seu site ou ao endereço de
  uma página na sua máquina local.
  Veja que, o TWebBrowser é apenas o Internet Explorer dentro do seu
  formulário. Então, vc pode utilizar qualquer página que funcione no IE
 como
  banner.
 
  2008/11/14 Jorge Ericsson [EMAIL PROTECTED]jericssonsup%40gmail.com
 
 
  Bom dia Andre,
 
  Assim que for confirmado o registro, eu simplesmente vou colocar
  invisivel o painel que contem o banner, nada muito complicado, caso o
  recebimento não seja confirmado eu voltar a ser exibido, mostrando as
  propagandas de outros sistemas e serviços da empresa.
 
  Como implementaria essa rotina usando o TWebBrowser ??
  Ou vc tem outra sugestão ??
 
 
 
  2008/11/14 Andre Fernando Dominguez [EMAIL 
  PROTECTED]andrefdominguez%40gmail.com
 
 
 
  Bom dia Jorge.
 
 
  Este banner ocuparia uma dimensao dentro do formulario que nao podera
  ser ocupada por nenhum outro componente,
  e quando aocntecer o registro oque aparecerá no lugar deste banner???
 
  Nao sei se entendi a sua duvida, mas voce pode trabalhar com um frame
  e carregar no frame o seu banner que vai estar no seu servidor.
  Dessa maneira podera aparecer banner diferentes cada vez que o
 usuario
  carrega o sistema, ou um outro esquema de rotatividade.
 
 
 
 
  --
 
 
  André Fernando Dominguez
  Analista de Sistemas
  Hospiatl Regional de Colider
 
 
 
 
  2008/11/14 Jorge Ericsson [EMAIL PROTECTED]jericssonsup%40gmail.com
 :
   Olá amigos,
  
   Preciso de sugestões para colocar um banner (HTML) no topo do meu
  formulário
   principal apenas para as versão não registradas.
   Alguém poderia me dá uma dica de como resolver o problema ?
   Pensei em um gif animado mais como o código do banner fica no meu
  servidor
   internet não acho que seria uma boa idéia.
  
  
   Jorge Ericsson
  
  
   
  
 
 
 
 
 
  --
  Att,
 
  Jorge Ericsson S. Pinheiro
  Ericsson Sistemas e Soluções
  (61) 3797-4785 / 3244-8689 / 9227 4785
  http://www.jericsson.com.br
  [EMAIL PROTECTED] jericssonsup%40gmail.com
  [EMAIL PROTECTED] jericssonsup%40hotmail.com
  skype:jericsson
  Brasília - DF
 
 
 
 
 
 
  --
  Abs
  Daniel A. Bastos
 
 
 
 
 
 
  --
  Att,
 
  Jorge Ericsson S. Pinheiro
  Ericsson Sistemas e Soluções
  (61) 3797-4785 / 3244-8689 / 9227 4785
  http://www.jericsson.com.br
  [EMAIL PROTECTED] jericssonsup%40gmail.com
  [EMAIL PROTECTED] jericssonsup%40hotmail.com
  skype:jericsson
  Brasília - DF
 
  --~--~-~--~~~---~--~~
  Você recebeu esta mensagem por que você está inscrito no grupo
  Delphi-Brasil
  Para postar uma mensagem para este grupo, envie um email para
  [EMAIL PROTECTED] delphi-brasil%40googlegroups.com
  Para sair deste grupo envie um email para
  [EMAIL PROTECTED]delphi-brasil-unsubscribe%40googlegroups.com
  Para mais opções visite a home do grupo em
  http://groups-beta.google.com/group/delphi-brasil
  --
  You received this message because you are subscribed to the Google
 Groups
  Delphi-Brasil group.
  To post to this group, send email to [EMAIL 
  PROTECTED]delphi-brasil%40googlegroups.com
  To unsubscribe from this group, send email to
  [EMAIL PROTECTED]delphi-brasil-unsubscribe%40googlegroups.com
  For more options, visit

[delphi-br] URGENTE: Instalação de Programa no Windows Vista

2008-11-06 Por tôpico Jorge Ericsson
Olá pessoal,

Alguém já instalou algum programa pelo delphi no Windows Vista ?

Estou testando um instalador que criei no Windows Vista e não estou tendo
sucesso.

Já coloquei o usuário e o administrrador ativos Ex: Net user Administrador
/Active:yes e mesmo assim quando chega na instalação do Firebird ou do
PostGres, dá a mensagem dizendo que o usuário não tem previlégio.

Se alguém tiver uma solução a nivél de código pelo Delphi, por favor me
informe.

Grato.

Jorge Ericsson


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



[delphi-br] Urgentissimo: Ferramenta para Desenhar com Delphi

2008-10-30 Por tôpico Jorge Ericsson
Olá meus amigos,

Depois de tanto quebrar a cabeça e pesquisar na net, não encontrei nada que
resolvesse meu problema.
Talvez alguém já tenha passado por isso ou tenha algo para compartilhar.

Necessidade:
  Eu preciso criar uma ferramenta de desenho simples, estilo Paint porém que
me dê condições de inserir imagem e etc, para que o meu usuário crie um
determinado modelo de (crachá), salvar a imagem no banco (isso é tranquilo)
e depois imprimir o crachá com o registro do funcionário.

Se alguém puder indicar algum componente, exemplo com fontes usando canvas e
etc que eu possa estudar, eu agradeço


Valew,

Jorge Ericsson


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



Re: [delphi-br] Urgentissimo: Ferramenta para Desenhar com Delphi

2008-10-30 Por tôpico Jorge Ericsson
Onjahyr,

É disso que eu preciso, gostaria de estudar o código e extrair os recursos
dessa ferramenta.

Eu preciso urgente estudar o código fonte para adequar as minhas
necessidade, se puder me envie por e-mail o mais rápido possível.

Vc lembra pelo menos o nome dela ? Pesquisarei aqui tbém...

Valew amigos pelas dicas anteriores, mas continuarei pesquisando outras
formas de fazer essa ferramenta.

[]´s
Jorge Ericsson


2008/10/30 Onjahyr - GMAIL [EMAIL PROTECTED]

   Eu tenho os fontes de um programa gráfico completo no estilo PhotoShopp
 que você pode colocar figuras .bmp,jpg,etc... editar e salvar, colocar
 efeitos, tem linhas, pinceis, e um montão de ferramentas (seleção
 retangulo, redondo, quadrado, pintar atrás, e um milhão de muitas outras
 coisas, ou seja, faz TUDO), vou disponibilizar ao Clecio para ele
 colocar no 4share dele, só que não posso fazer isso hoje porque está em
 um dos meus CDs de estufa e tenho de procurar... Vc pode retirar somente
 os recursos que deseja. Eu usei num programa para fazer crachas tasmbém,
 a muito tempo..

 Jorge Ericsson escreveu:

 
  Olá meus amigos,
 
  Depois de tanto quebrar a cabeça e pesquisar na net, não encontrei
  nada que
  resolvesse meu problema.
  Talvez alguém já tenha passado por isso ou tenha algo para compartilhar.
 
  Necessidade:
  Eu preciso criar uma ferramenta de desenho simples, estilo Paint porém
 que
  me dê condições de inserir imagem e etc, para que o meu usuário crie um
  determinado modelo de (crachá), salvar a imagem no banco (isso é
  tranquilo)
  e depois imprimir o crachá com o registro do funcionário.
 
  Se alguém puder indicar algum componente, exemplo com fontes usando
  canvas e
  etc que eu possa estudar, eu agradeço
 
  Valew,
 
  Jorge Ericsson
 
  [As partes desta mensagem que não continham texto foram removidas]
 
 
  




-- 
Att,

Jorge Ericsson S. Pinheiro
Ericsson Sistemas e Soluções
(61) 3797-4785 / 3244-8689 / 9227 4785
http://www.jericsson.com.br
[EMAIL PROTECTED]
[EMAIL PROTECTED]
skype:jericsson
Brasília - DF


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



Re: [delphi-br] Urgentissimo: Ferramenta para Desenhar com Delphi

2008-10-30 Por tôpico Jorge Ericsson
Eu estou testando a sua dica Clécio, acho que essa ferramenta vai ajuda
muitos por aqui.


2008/10/30 Silvio Clécio [EMAIL PROTECTED]

   Opa, agradeço antecipadamente.

 
 Um abraço! Silvio Clécio
 Contatos/Blog
 Skype: silvioprog
 E-mail, Yahoo! Messenger: [EMAIL PROTECTED]silvioprog%40yahoo.com.br
 Gmail, Google Talk: [EMAIL PROTECTED] silvioprog%40gmail.com
 Hotmail, MSN: [EMAIL PROTECTED] silvio_prog%40hotmail.com
 BlogSpot: http://silvioclecio.blogspot.com/

 
 De: Onjahyr - GMAIL [EMAIL PROTECTED] onjahyr%40gmail.com
 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
 Enviadas: Quinta-feira, 30 de Outubro de 2008 14:19:51
 Assunto: Re: [delphi-br] Urgentissimo: Ferramenta para Desenhar com Delphi

 Eu tenho os fontes de um programa gráfico completo no estilo PhotoShopp
 que você pode colocar figuras .bmp,jpg,etc. .. editar e salvar, colocar
 efeitos, tem linhas, pinceis, e um montão de ferramentas (seleção
 retangulo, redondo, quadrado, pintar atrás, e um milhão de muitas outras
 coisas, ou seja, faz TUDO), vou disponibilizar ao Clecio para ele
 colocar no 4share dele...

 Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua
 cara @ymail.com ou @rocketmail.com.
 http://br.new.mail.yahoo.com/addresses

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

  




-- 
Att,

Jorge Ericsson S. Pinheiro
Ericsson Sistemas e Soluções
(61) 3797-4785 / 3244-8689 / 9227 4785
http://www.jericsson.com.br
[EMAIL PROTECTED]
[EMAIL PROTECTED]
skype:jericsson
Brasília - DF


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



Re: [delphi-br] Urgentissimo: Ferramenta para Desenhar com Delphi

2008-10-30 Por tôpico Jorge Ericsson
Uso o D7, já fucei nele tbém Rodinei, não me atende por completo.
Conheço praticamente todos os exemplos do delphi na prática e usei este
modelo para iniciar a criação do meu form de desenho.
Preciso de mais recursos como Texto, fundos de imagens, criação de campos e
etc...
Valew pela dica...


2008/10/30 Rodinei (MSN) [EMAIL PROTECTED]

   Já existe exemplos no próprio delphi.. Veja em Projetcs/Demo/Doc/GraphEx

 Qual a versão do seu Delphi ???

 Rodinei Amorim
 Programador Delphi
 [EMAIL PROTECTED] rodinei_amorim%40hotmail.com
 (11) 8208-9503 - (11) 2024-2723

 From: Jorge Ericsson
 Sent: Thursday, October 30, 2008 3:30 PM
 Subject: [delphi-br] Urgentissimo: Ferramenta para Desenhar com Delphi


 Olá meus amigos,

 Depois de tanto quebrar a cabeça e pesquisar na net, não encontrei nada que
 resolvesse meu problema.
 Talvez alguém já tenha passado por isso ou tenha algo para compartilhar.

 Necessidade:
 Eu preciso criar uma ferramenta de desenho simples, estilo Paint porém que
 me dê condições de inserir imagem e etc, para que o meu usuário crie um
 determinado modelo de (crachá), salvar a imagem no banco (isso é tranquilo)
 e depois imprimir o crachá com o registro do funcionário.

 Se alguém puder indicar algum componente, exemplo com fontes usando canvas
 e
 etc que eu possa estudar, eu agradeço

 Valew,

 Jorge Ericsson

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

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

  




-- 
Att,

Jorge Ericsson S. Pinheiro
Ericsson Sistemas e Soluções
(61) 3797-4785 / 3244-8689 / 9227 4785
http://www.jericsson.com.br
[EMAIL PROTECTED]
[EMAIL PROTECTED]
skype:jericsson
Brasília - DF


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



  1   2   3   >