Re: [delphi-br] Commit não insere todos os registros

2009-03-24 Por tôpico Evandro Siqueira
Bom dia Laura,

Como não vi o seu código, vou fazer apenas suposições, ok?

1. Vc está fazendo estes inserts dentro de um laço while ou for. Neste 
caso, vc colocou um commit após o end?
2. Não posso afirmar que o firebird tem um limite de inserts antes do 
commit, mas sempre que preciso fazer esse tipo de inserção uso commit 
retaining para cada registro e um commit simples a cada 500 registros. 
tem funcionado bem. Também não sei se este é o limite de registros, mas 
é a quantidade que o pessoal da lista firebird tem aconselhado com 
frequência.

Espero ter ajudado.

Laura Schwarz Ferrari escreveu:

 Boa tarde a todos,

 Tenho um programa aqui feito em Delphi7 onde, em um certo formulário, 
 o usuário deve buscar um arquivo txt que chega a ter no máximo 1000 
 linhas de registros.
 O programa começa a ler o arquivo linha por linha, jogando os valores 
 para variáveis, trata campos de data, verifica se já existe registro 
 igual, e por fim dá o Commit. Tudo isso dentro de um try catch sendo 
 que, caso ele caia no Exception, acontece um Rollback.

 Problema: Nem todos os registros estão sendo inseridos...as vezes fica 
 faltando 60 registros, outras vezes 30...ou seja, ele está ignorando o 
 Rollback.

 Por acaso o Firebird tem algum tipo de limitação quanto ao número de 
 registros que devem ser inseridos quando é dado o commit? O programa 
 não aparenta ter erros, isso que é o mais estranho.

 Se alguém souber de algo que possa ajudar, ficarei muito grata!

 Laura























-- 

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

* 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] Linguagem ZPL - impressora Zebra

2009-03-24 Por tôpico Walter Chagas (Bol)
eu já trabalhei muito com elas e com as eltron. Pode convencer seu cliente de 
desistir da acentuação. Não dá certo. Sai caracteres tudo trocado na hora de 
imprimir porque a impressora não trabalha com o código padrão Ansi

[]s
 
 
Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
wchag...@bol.com.br
http://www.geocities.com/SiliconValley/Bay/1058
http://delphitocorporerm.blogspot.com/
MSN: whitesock...@hotmail.com
SKYPE: WalterChagasJr


  - Original Message - 
  From: Filippe Maymone 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, March 23, 2009 8:45 PM
  Subject: [delphi-br] Linguagem ZPL - impressora Zebra


  Olá, 

  Alguem trabalha com linguagem ZPL da impressora Zebra ? 
  Eu tenho um sistema em delphi, que faz impressora na impressora zebra via 
linguagem ZPL.

  Esta funcionando certinho, porem eu não tenho acentuação, um cliente 
necessita que as etiquetas saeem com acetuações.

  Alguem sabe resolver este problema ??? 

  abraços,

  Filippe Maymone

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


  

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



[delphi-br] Ajuda sobre delphi 2009 e sql server 2000

2009-03-24 Por tôpico TI - Metalurgica Jano
Bom dia a todos, 

Estou iniciando uma aplicação com delphi 2009 e sql server 2000.

Tenho um form onde utilizei o método nested para cadastro de companhias e
plantas da companhia.

Estou passando por vários tipos de erros sem nenhum sentido.

Alguém pode me ajudar?

 

METALÚRGICA JANO LTDA
FUNDIÇÃO DE AÇO CARBONO - INOX - MANGANÊS 
Alessandro Pichiteli
Analista de TI 
(37) 3214-1140

P Antes de imprimir, pense na sua responsabilidade com o Meio Ambiente e nos
custos de sua empresa

 



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



Re: [delphi-br] Off Topic - Planejando bem, Evitando os Jacarés

2009-03-24 Por tôpico Humberto Oliveira
Realmente muito interessante, lí ele pela manhã e tirei várias conclusões do
meu trabalho diário.

2009/3/23 Walter Chagas (Bol) wchag...@bol.com.br

   Muito interessante este texto. Repassei ele pra outras listas que tratam
 deste tipo de assunto

 []s


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


 - Original Message -
 From: Emanuel Coutinho
 To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
 Sent: Monday, March 23, 2009 12:48 PM
 Subject: [delphi-br] Off Topic - Planejando bem, Evitando os Jacarés

 Colegas.
 É do conhecimento da maioria que embora seja desenvolvedor, atuo
 diretamente em empresa de engenharia, e mais especificamene no setor de
 planejamento. Assim, por fazer parte de um grupo de planejadores, recebi
 esta mensagem, que reputo de grande importãncia, e desejo compartilhar com
 os colegas, para que agregue valor ao nosso dia a dia.

 Cuidado com o jacaré!

 Inspirado na aula do professor Larry Greiner, da Universidade do Sul da
 Califórnia.

 Se você tem um jacaré a lhe morder a perna, a tendência é esquecer que sua
 tarefa principal que era drenar o pântano”.

 Nessa hora a sobrevivência fala mais alto. Você entra no pântano, cheio de
 vontade de executar a tarefa de drená-lo. Aí, o jacaré morde a sua perna. E
 você vai querer matar o jacaré, claro. O pântano que espere.

 O jacaré desta história é o nosso dia-a-dia. É a rotina que lhe ataca de
 manhã e que impede que você faça todas as tarefas que planejou para o dia. E
 ao final, exausto, você olha a pilha de jacarés mortos e é cobrado, pelo seu
 chefe, pelo pântano que não drenou.

 Saber enfrentar a rotina é uma tarefa fundamental para quem quer ter alta
 performance. Evitar o jacaré é planejar melhor, é testar todas as hipóteses,
 é prever os desvios e inconsistências. O jacaré detesta planejamento. Ele
 anda pela empresa com sua casca grossa, rabo comprido e braços curtos
 dizendo que planejamento não serve para nada, que nunca dá certo, que é um
 jogo de adivinhação. Tudo mentira. O jacaré morre de medo do planejamento,
 que, quando bem-feito, é um exercício de previsibilidade. E que não é feito
 para dar certo, mas sim para testar antecipadamente todas as hipóteses..

 Olhe bem a sua volta. Os jacarés estão por todos os lugares, com sua fala
 mansa e andar desengonçado. E, se você bobear, um deles ataca: Cadê a cópia
 do relatório A45 que você ficou de me mandar?: Pronto, ele mordeu sua
 perna! Agora vai ter de matar este... e lá se vão quase duas horas do dia.
 Fique atento. Planeje e priorize as atividades do seu dia. Exercite o
 planejamento, pratique o exercício da previsibilidade, ou você vai se tornar
 um especialista em matar jacarés.

 E o duro desta vida é que o reconhecimento, as oportunidades e as
 recompensas só virão para os que drenarem o pântano.

 Sds,
 _
 Emanuel Coutinho
 Salvador-Ba-Brasil

 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]

  



[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




RES: [delphi-br] Ajuda sobre delphi 2009 e sql server 2000

2009-03-24 Por tôpico Leandro A. Nunes
Alessandro,

 

Post os erros... talvez ajude.

 

[]’s

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de TI - Metalurgica Jano
Enviada em: terça-feira, 24 de março de 2009 08:22
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Ajuda sobre delphi 2009 e sql server 2000

 

Bom dia a todos, 

Estou iniciando uma aplicação com delphi 2009 e sql server 2000.

Tenho um form onde utilizei o método nested para cadastro de companhias e
plantas da companhia.

Estou passando por vários tipos de erros sem nenhum sentido.

Alguém pode me ajudar?

METALÚRGICA JANO LTDA
FUNDIÇÃO DE AÇO CARBONO - INOX - MANGANÊS 
Alessandro Pichiteli
Analista de TI 
(37) 3214-1140

P Antes de imprimir, pense na sua responsabilidade com o Meio Ambiente e nos
custos de sua empresa

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





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



[delphi-br] conversion of a char data type to a datetime data type resulted in an

2009-03-24 Por tôpico Alexsandro
Bom dia pessoal,

Eu estou fazendo uma pesquisa em uma adoquary para encontrar determinadas datas 
e esta dando esse erro quando execulto a quary:

conversion of a char data type to a datetime data type resulted in an
out-of-range datetime value..


O código é esse :

var resul tdatetime;
sdata : string;
begin


AdoqFeriados.Close;
AdoqFeriados.SQL.Clear;
AdoqFeriados.SQL.Text := 'SELECT * FROM tb_Feriados WHERE  data='''+  sdata 
+;
AdoqFeriados.Open;



já tentei o :

AdoqFeriados.SQL.Text := 'SELECT * FROM tb_Feriados WHERE  data=' + 
QuotedStr(DateToStr (resul));

outra tentativa tambem foi o :

AdoqFeriados.SQL.Text := 'SELECT * FROM tb_Feriados WHERE  data=' + DateToStr 
(resul);

Outra :
AdoqFeriados.SQL.Text := 'SELECT * FROM tb_Feriados WHERE  data=' + QuotedStr 
(sdata);

e nada ...
Alguem pode me ajudar com isso ?










[delphi-br] Caracteres estranhos

2009-03-24 Por tôpico Rogerio Nazar
Caros, 
Baixei um arquivo em site na internet, e ele veio comuns caracteres estranhos, 
alguem podia me ajudar como faço para tornar legível o texto
Exemplo do texto:

Modbus ͨÐÅЭÒéÒ³Â룬1/10 
Modbus ͨÐÅЭÒé
¹¤Òµ¿ØÖÆÒÑ´Óµ¥»ú¿ØÖÆ×ßÏò¼¯Öмà¿Ø¡¢¼¯É¢¿ØÖÆ£¬Èç½ñÒѽøÈëÍøÂçʱ´ú£¬¹¤Òµ¿ØÖÆÆ÷Á¬ÍøÒ²
ΪÍøÂç¹ÜÀíÌṩÁË·½±ã¡£Modbus ¾ÍÊǹ¤Òµ¿ØÖÆÆ÷µÄÍøÂçЭÒéÖеÄÒ»ÖÖ¡£
Ò»¡¢Modbus ЭÒé¼ò½éModbus 
ЭÒéÊÇÓ¦ÓÃÓÚµç×Ó¿ØÖÆÆ÷ÉϵÄÒ»ÖÖͨÓÃÓïÑÔ¡£Í¨¹ý´ËЭÒ飬¿ØÖÆÆ÷
Ï໥֮¼ä¡¢¿ØÖÆÆ÷¾­ÓÉÍøÂ磨ÀýÈçÒÔÌ«Íø£©ºÍÆäËüÉ豸֮¼ä¿ÉÒÔͨÐÅ¡£ËüÒѾ­³ÉΪһͨÓù¤Òµ±ê

Obrigado

Re: [delphi-br] Caracteres estranhos

2009-03-24 Por tôpico Humberto Oliveira
Mas o arquivo que baixou é referente a que?

Cuidado com o que anda baixando na internet, pode lhe trazer sérios
transtornos...

2009/3/24 Rogerio Nazar rogeri...@petrobras.com.br

   Caros,
 Baixei um arquivo em site na internet, e ele veio comuns caracteres
 estranhos, alguem podia me ajudar como faço para tornar legível o texto
 Exemplo do texto:

 Modbus ͨÐÅЭÒéÒ³Â룬1/10
 Modbus ͨÐÅЭÒé

 ¹¤Òµ¿ØÖÆÒÑ´Óµ¥»ú¿ØÖÆ×ßÏò¼¯Öмà¿Ø¡¢¼¯É¢¿ØÖÆ£¬Èç½ñÒѽøÈëÍøÂçʱ´ú£¬¹¤Òµ¿ØÖÆÆ÷Á¬ÍøÒ²
 ΪÍøÂç¹ÜÀíÌṩÁË·½±ã¡£Modbus ¾ÍÊǹ¤Òµ¿ØÖÆÆ÷µÄÍøÂçЭÒéÖеÄÒ»ÖÖ¡£
 Ò»¡¢Modbus ЭÒé¼ò½éModbus
 ЭÒéÊÇÓ¦ÓÃÓÚµç×Ó¿ØÖÆÆ÷ÉϵÄÒ»ÖÖͨÓÃÓïÑÔ¡£Í¨¹ý´ËЭÒ飬¿ØÖÆÆ÷

 Ï໥֮¼ä¡¢¿ØÖÆÆ÷¾­ÓÉÍøÂ磨ÀýÈçÒÔÌ«Íø£©ºÍÆäËüÉ豸֮¼ä¿ÉÒÔͨÐÅ¡£ËüÒѾ­³ÉΪһͨÓù¤Òµ±ê

 Obrigado
  



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



Re: [delphi-br] conversion of a char data type to a datetime data type resulted in an

2009-03-24 Por tôpico Humberto Oliveira
Alexsandro, conseguiu debugar e verificar o que está passando para a
variável sdata ?

Coloca um ShowMessage(AdoqFeriados.SQL.Text); antes do AdoqFeriados.Open e
capture a query que ele está tentando executar, provavelmente a variável
está gravando um valor incorreto.

Faça o teste e nos apresente os detalhes.


2009/3/24 Alexsandro a...@ig.com.br

   Bom dia pessoal,

 Eu estou fazendo uma pesquisa em uma adoquary para encontrar determinadas
 datas e esta dando esse erro quando execulto a quary:

 conversion of a char data type to a datetime data type resulted in an
 out-of-range datetime value..

 O código é esse :

 var resul tdatetime;
 sdata : string;
 begin

 AdoqFeriados.Close;
 AdoqFeriados.SQL.Clear;
 AdoqFeriados.SQL.Text := 'SELECT * FROM tb_Feriados WHERE data='''+ sdata
 +;
 AdoqFeriados.Open;

 já tentei o :

 AdoqFeriados.SQL.Text := 'SELECT * FROM tb_Feriados WHERE data=' +
 QuotedStr(DateToStr (resul));

 outra tentativa tambem foi o :

 AdoqFeriados.SQL.Text := 'SELECT * FROM tb_Feriados WHERE data=' +
 DateToStr (resul);

 Outra :
 AdoqFeriados.SQL.Text := 'SELECT * FROM tb_Feriados WHERE data=' +
 QuotedStr (sdata);

 e nada ...
 Alguem pode me ajudar com isso ?

  



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



[delphi-br] Re: Caracteres estranhos

2009-03-24 Por tôpico Rogerio Nazar
Fica tranquilo,

E somente um txt com alguns pedaços de codigo para acessar um plc com protocolo 
modbus.

--- Em delphi-br@yahoogrupos.com.br, Rogerio Nazar rogeri...@... escreveu

 Caros, 
 Baixei um arquivo em site na internet, e ele veio comuns caracteres 
 estranhos, alguem podia me ajudar como faço para tornar legível o texto
 Exemplo do texto:
 
 Modbus ͨÐÅЭÒéÒ³Â룬1/10 
 Modbus ͨÐÅЭÒé
 ¹¤Òµ¿ØÖÆÒÑ´Óµ¥»ú¿ØÖÆ×ßÏò¼¯Öмà¿Ø¡¢¼¯É¢¿ØÖÆ£¬Èç½ñÒѽøÈëÍøÂçʱ´ú£¬¹¤Òµ¿ØÖÆÆ÷Á¬ÍøÒ²
 ΪÍøÂç¹ÜÀíÌṩÁË·½±ã¡£Modbus ¾ÍÊǹ¤Òµ¿ØÖÆÆ÷µÄÍøÂçЭÒéÖеÄÒ»ÖÖ¡£
 Ò»¡¢Modbus ЭÒé¼ò½éModbus 
 ЭÒéÊÇÓ¦ÓÃÓÚµç×Ó¿ØÖÆÆ÷ÉϵÄÒ»ÖÖͨÓÃÓïÑÔ¡£Í¨¹ý´ËЭÒ飬¿ØÖÆÆ÷
 Ï໥֮¼ä¡¢¿ØÖÆÆ÷¾­ÓÉÍøÂ磨ÀýÈçÒÔÌ«Íø£©ºÍÆäËüÉ豸֮¼ä¿ÉÒÔͨÐÅ¡£ËüÒѾ­³ÉΪһͨÓù¤Òµ±ê
 
 Obrigado



[delphi-br] Erro applyupdate

2009-03-24 Por tôpico Huander
Bom dia,

 

Seguinte pessoal, estou com erro em minha aplicação! Estou
trabalhando em n-camadas, utilizando SOAP. Faço uma inserção de dados no
clientdataset(via código, não tem nenhum formulário), dou um post no mesmo
(é possível verificar que a alteração esta em cache fazendo RecordCount no
CDs). Coloquei no evento AfterPost do ClientDataSet o evento para
ApplyUpdates pelo código, a seguir:

 

if (DataSet as TClientDataSet).ApplyUpdates(1)  0 then

 begin

   saveLog('Erro no applyUpdates');

  raise EDataBaseError.Create(Exception(exceptobject).Message);

 end

 else

  (DataSet as TClientDataSet).Refresh;

 

Ao ir no meu log verifico que acontece o seguinte erro:  10:34:53 - Access
violation at address 0054DE3E in module 'ClienteSOAP.exe'. Read of address
0004.

 

Já mexi e remexi e nada de encontrar uma solução!

 

Agradeço sugestões pra encontrar o erro!

 

Huander 

 



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



[delphi-br] maiuscula em todos os dedits

2009-03-24 Por tôpico felipe govoni
bom dia

algume sabe me dize oq tem de errado nesse codigo:


  for j := 0 to frmFinasa.ComponentCount - 1 do
   if (frmFinasa.Components[j] is tdbEdit) then
 (frmFinasa.Components[j] as tdbEdit).Text :=
UpperCase((frmFinasa.Components[j] as TdbEdit).Text);




ele nao faz nada, e quando tento debuga, no .text da a seguinte mensagem:
expression illegal in evaluator


tentei faze um teste com o seguinte codigo e tambem nao fez nada

  for j := 0 to frmFinasa.ComponentCount - 1 do
   if (frmFinasa.Components[j] is tdbEdit) then
 (frmFinasa.Components[j] as tdbEdit).Text := 'teste';



alguem pode me ajuda?

obrigado

-- 
Felipe Govoni
-
GOVONI Sistemas
Fone 8472-8718
www.govoni.com.br


[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] maiuscula em todos os dedits

2009-03-24 Por tôpico rodinei_amorim
Bom, talvez eu tenha entendido errado o que vc quer, mas o componente TDBEdit 
contém uma propriedade CharCase, que vc poderá deixa-la apontada para 
ecUpperCase e tudo ficará em maiúsculas.

Espero ter ajudado...

Abs


Rodinei Amorim 
Programador Delphi
(11) 8208-9503
rodinei_amo...@hotmail.com




From: felipe govoni 
Sent: Tuesday, March 24, 2009 11:17 AM
To: delphi-br@yahoogrupos.com.br 
Subject: [delphi-br] maiuscula em todos os dedits


bom dia

algume sabe me dize oq tem de errado nesse codigo:

for j := 0 to frmFinasa.ComponentCount - 1 do
if (frmFinasa.Components[j] is tdbEdit) then
(frmFinasa.Components[j] as tdbEdit).Text :=
UpperCase((frmFinasa.Components[j] as TdbEdit).Text);

ele nao faz nada, e quando tento debuga, no .text da a seguinte mensagem:
expression illegal in evaluator

tentei faze um teste com o seguinte codigo e tambem nao fez nada

for j := 0 to frmFinasa.ComponentCount - 1 do
if (frmFinasa.Components[j] is tdbEdit) then
(frmFinasa.Components[j] as tdbEdit).Text := 'teste';

alguem pode me ajuda?

obrigado

-- 
Felipe Govoni
-
GOVONI Sistemas
Fone 8472-8718
www.govoni.com.br

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





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



[delphi-br] Re: conversion of a char data type to a datetime data type resulted in an

2009-03-24 Por tôpico Alexsandro
Opa Humberto,
Ele me traz o valor correto 31/03/2009

O interessante de tudo é que, aqui na minha máquina ele funciona blz. Ou seja 
quando eu uso o banco de dados de testes da minha máquina fica blz, agora 
quanto eu uso o banco de dados do Servidor.. da esse erro.

Uso SQL Server 2003 


--- Em delphi-br@yahoogrupos.com.br, Humberto Oliveira 
holiveira.wordpr...@... escreveu

 Alexsandro, conseguiu debugar e verificar o que está passando para a
 variável sdata ?
 
 Coloca um ShowMessage(AdoqFeriados.SQL.Text); antes do AdoqFeriados.Open e
 capture a query que ele está tentando executar, provavelmente a variável
 está gravando um valor incorreto.
 
 Faça o teste e nos apresente os detalhes.
 
 
 2009/3/24 Alexsandro a...@...
 
Bom dia pessoal,
 
  Eu estou fazendo uma pesquisa em uma adoquary para encontrar determinadas
  datas e esta dando esse erro quando execulto a quary:
 
  conversion of a char data type to a datetime data type resulted in an
  out-of-range datetime value..
 
  O código é esse :
 
  var resul tdatetime;
  sdata : string;
  begin
 
  AdoqFeriados.Close;
  AdoqFeriados.SQL.Clear;
  AdoqFeriados.SQL.Text := 'SELECT * FROM tb_Feriados WHERE data='''+ sdata
  +;
  AdoqFeriados.Open;
 
  já tentei o :
 
  AdoqFeriados.SQL.Text := 'SELECT * FROM tb_Feriados WHERE data=' +
  QuotedStr(DateToStr (resul));
 
  outra tentativa tambem foi o :
 
  AdoqFeriados.SQL.Text := 'SELECT * FROM tb_Feriados WHERE data=' +
  DateToStr (resul);
 
  Outra :
  AdoqFeriados.SQL.Text := 'SELECT * FROM tb_Feriados WHERE data=' +
  QuotedStr (sdata);
 
  e nada ...
  Alguem pode me ajudar com isso ?
 
   
 
 
 
 [As partes desta mensagem que não continham texto foram removidas]





Res: [delphi-br] maiuscula em todos os dedits

2009-03-24 Por tôpico Emanuel Coutinho
frmFinasa.Componen ts[j] -- Tem um espaço em branco no components[j]
Retire-o


for j := 0 to frmFinasa.Component Count - 1 do
if (frmFinasa.Componen ts[j] is tdbEdit) then
(frmFinasa.Componen ts[j] as tdbEdit).Text :=
UpperCase((frmFinas a.Components[ j] as TdbEdit).Text) ;




 Sds,
_
Emanuel Coutinho
Salvador-Ba-Brasil





De: felipe govoni govoni.fel...@gmail.com
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 24 de Março de 2009 11:17:32
Assunto: [delphi-br] maiuscula em todos os dedits


bom dia

algume sabe me dize oq tem de errado nesse codigo:

for j := 0 to frmFinasa.Component Count - 1 do
if (frmFinasa.Componen ts[j] is tdbEdit) then
(frmFinasa.Componen ts[j] as tdbEdit).Text :=
UpperCase((frmFinas a.Components[ j] as TdbEdit).Text) ;

ele nao faz nada, e quando tento debuga, no .text da a seguinte mensagem:
expression illegal in evaluator

tentei faze um teste com o seguinte codigo e tambem nao fez nada

for j := 0 to frmFinasa.Component Count - 1 do
if (frmFinasa.Componen ts[j] is tdbEdit) then
(frmFinasa.Componen ts[j] as tdbEdit).Text := 'teste';

alguem pode me ajuda?

obrigado

-- 
Felipe Govoni
 -
GOVONI Sistemas
Fone 8472-8718
www.govoni.com. br

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


   


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

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



Re: [delphi-br] maiuscula em todos os dedits

2009-03-24 Por tôpico Thales (Shubacca) - Tebo Software
Por que vc não muda a propriedade CharCase dos dbedit para ecUpperCase?


2009/3/24 felipe govoni govoni.fel...@gmail.com

   bom dia

 algume sabe me dize oq tem de errado nesse codigo:

 for j := 0 to frmFinasa.ComponentCount - 1 do
 if (frmFinasa.Components[j] is tdbEdit) then
 (frmFinasa.Components[j] as tdbEdit).Text :=
 UpperCase((frmFinasa.Components[j] as TdbEdit).Text);

 ele nao faz nada, e quando tento debuga, no .text da a seguinte mensagem:
 expression illegal in evaluator

 tentei faze um teste com o seguinte codigo e tambem nao fez nada

 for j := 0 to frmFinasa.ComponentCount - 1 do
 if (frmFinasa.Components[j] is tdbEdit) then
 (frmFinasa.Components[j] as tdbEdit).Text := 'teste';

 alguem pode me ajuda?

 obrigado

 --
 Felipe Govoni
 -
 GOVONI Sistemas
 Fone 8472-8718
 www.govoni.com.br

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

  




-- 
Thales Eduardo Barros de Oliveira
Desenvolvedor Delphi / Firebird / Java
Emails:
tebosoftw...@gmail.com (GoogleTalk)
thales_...@hotmail.com (MSN)
Blog:
http://tebosoftware.blogspot.com/

Tente ser uma pessoa de valor, não de sucesso
Albert Einstein


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



Re: [delphi-br] maiuscula em todos os dedits

2009-03-24 Por tôpico Humberto Oliveira
É verdade, existe um espaço na palavra Components... Mas na minha opinião,
seria melhor o CharCase como o Rodnei explicou acima.

2009/3/24 Emanuel Coutinho emanuelcouti...@yahoo.com.br

   frmFinasa.Componen ts[j] -- Tem um espaço em branco no components[j]
 Retire-o


 for j := 0 to frmFinasa.Component Count - 1 do
 if (frmFinasa.Componen ts[j] is tdbEdit) then
 (frmFinasa.Componen ts[j] as tdbEdit).Text :=
 UpperCase((frmFinas a.Components[ j] as TdbEdit).Text) ;

 Sds,
 _
 Emanuel Coutinho
 Salvador-Ba-Brasil

 
 De: felipe govoni govoni.fel...@gmail.com govoni.felipe%40gmail.com
 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
 Enviadas: Terça-feira, 24 de Março de 2009 11:17:32
 Assunto: [delphi-br] maiuscula em todos os dedits

 bom dia

 algume sabe me dize oq tem de errado nesse codigo:

 for j := 0 to frmFinasa.Component Count - 1 do
 if (frmFinasa.Componen ts[j] is tdbEdit) then
 (frmFinasa.Componen ts[j] as tdbEdit).Text :=
 UpperCase((frmFinas a.Components[ j] as TdbEdit).Text) ;

 ele nao faz nada, e quando tento debuga, no .text da a seguinte mensagem:
 expression illegal in evaluator

 tentei faze um teste com o seguinte codigo e tambem nao fez nada

 for j := 0 to frmFinasa.Component Count - 1 do
 if (frmFinasa.Componen ts[j] is tdbEdit) then
 (frmFinasa.Componen ts[j] as tdbEdit).Text := 'teste';

 alguem pode me ajuda?

 obrigado

 --
 Felipe Govoni
  -
 GOVONI Sistemas
 Fone 8472-8718
 www.govoni.com. br

 [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] Danfe com ReportBuilder

2009-03-24 Por tôpico Carlos H. Cantu
Alguém aqui tem ou sabe onde encontrar um modelo de Danfe para NFe feito com o 
ReportBuilder?

Carlos H. Cantu
www.firebase.com.br



Re: [delphi-br] Re: conversion of a char data type to a datetime data type resulted in an

2009-03-24 Por tôpico Humberto Oliveira
Correto, ele te retorna '31/03/2009'.

Você capturou o SQL.Text da query após a passagem do parâmetro?

Rodou o resultado no Query Analyzer conectado na base de desenvolvimento e
produção?

Isso tá com cara de formato de data enviado para o seu servidor de produção.

Faz um teste aí rodando o resultado do SQL.Text e rode no Query Analyzer do
banco de produção, veja se ocorre erro.



2009/3/24 Alexsandro a...@ig.com.br

   Opa Humberto,
 Ele me traz o valor correto 31/03/2009

 O interessante de tudo é que, aqui na minha máquina ele funciona blz. Ou
 seja quando eu uso o banco de dados de testes da minha máquina fica blz,
 agora quanto eu uso o banco de dados do Servidor.. da esse erro.

 Uso SQL Server 2003

 --- Em delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br,
 Humberto Oliveira holiveira.wordpr...@... escreveu

 
  Alexsandro, conseguiu debugar e verificar o que está passando para a
  variável sdata ?
 
  Coloca um ShowMessage(AdoqFeriados.SQL.Text); antes do AdoqFeriados.Open
 e
  capture a query que ele está tentando executar, provavelmente a variável
  está gravando um valor incorreto.
 
  Faça o teste e nos apresente os detalhes.
 
 
  2009/3/24 Alexsandro a...@...
 
   Bom dia pessoal,
  
   Eu estou fazendo uma pesquisa em uma adoquary para encontrar
 determinadas
   datas e esta dando esse erro quando execulto a quary:
  
   conversion of a char data type to a datetime data type resulted in an
   out-of-range datetime value..
  
   O código é esse :
  
   var resul tdatetime;
   sdata : string;
   begin
  
   AdoqFeriados.Close;
   AdoqFeriados.SQL.Clear;
   AdoqFeriados.SQL.Text := 'SELECT * FROM tb_Feriados WHERE data='''+
 sdata
   +;
   AdoqFeriados.Open;
  
   já tentei o :
  
   AdoqFeriados.SQL.Text := 'SELECT * FROM tb_Feriados WHERE data=' +
   QuotedStr(DateToStr (resul));
  
   outra tentativa tambem foi o :
  
   AdoqFeriados.SQL.Text := 'SELECT * FROM tb_Feriados WHERE data=' +
   DateToStr (resul);
  
   Outra :
   AdoqFeriados.SQL.Text := 'SELECT * FROM tb_Feriados WHERE data=' +
   QuotedStr (sdata);
  
   e nada ...
   Alguem pode me ajudar com isso ?
  
  
  
 
 
  [As partes desta mensagem que não continham texto foram removidas]
 

  



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



RES: [delphi-br] Urgente: Como detectar o modelo da pl aca mãe pelo Delphi

2009-03-24 Por tôpico clayton
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 [mailto:delphi...@yahoogrupos.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]



[delphi-br] Cópia do banco MySQL

2009-03-24 Por tôpico Bruno Lepesqueur
Pessoal... to usando o Delphi 7 com o MySQL 5, e trabalho com eles na
empresa e to tentando levar pra casa tb, mas não consigo fazer o banco de
dados funcionar em casa.

Seguinte... eu usava um banco do tipo MyISAM e agora converti ele para
InnoDB. Pelo que entendi o MyISAM não trabalha com relacionamentos entre
tabelas (chave estrangeira) e refiz o meu banco todo como InnoDB e fiz os
relacionamentos entre tabelas, mas o problema é que se eu apenas copiar a
pasta do banco de dados e colar no outro micro ele não aceita!
OBS.: O banco que eu tinha no formato MyISAM aceitava eu apenas copiar o
banco (C:\Arquivos de programas\MySQL\MySQL Server 5.0\data\nome do banco)
de um computador e colar no outro para que tudo funcionasse.

O que vcs me sugerem?

Obrigado!

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



Re: [delphi-br] maiuscula em todos os dedits

2009-03-24 Por tôpico felipe govoni
o espaço foi erro meu na hora de copia, mas nao sabia dessa propriedade

vlw pela ajuda galera!!!




2009/3/24 Humberto Oliveira holiveira.wordpr...@gmail.com

   É verdade, existe um espaço na palavra Components... Mas na minha
 opinião,
 seria melhor o CharCase como o Rodnei explicou acima.

 2009/3/24 Emanuel Coutinho 
 emanuelcouti...@yahoo.com.bremanuelcoutinho%40yahoo.com.br
 


  frmFinasa.Componen ts[j] -- Tem um espaço em branco no components[j]
  Retire-o
 
 
  for j := 0 to frmFinasa.Component Count - 1 do
  if (frmFinasa.Componen ts[j] is tdbEdit) then
  (frmFinasa.Componen ts[j] as tdbEdit).Text :=
  UpperCase((frmFinas a.Components[ j] as TdbEdit).Text) ;
 
  Sds,
  _
  Emanuel Coutinho
  Salvador-Ba-Brasil
 
  
  De: felipe govoni govoni.fel...@gmail.com 
  govoni.felipe%40gmail.comgovoni.felipe%
 40gmail.com
  Para: delphi-br@yahoogrupos.com.br 
  delphi-br%40yahoogrupos.com.brdelphi-br%
 40yahoogrupos.com.br

  Enviadas: Terça-feira, 24 de Março de 2009 11:17:32
  Assunto: [delphi-br] maiuscula em todos os dedits
 
  bom dia
 
  algume sabe me dize oq tem de errado nesse codigo:
 
  for j := 0 to frmFinasa.Component Count - 1 do
  if (frmFinasa.Componen ts[j] is tdbEdit) then
  (frmFinasa.Componen ts[j] as tdbEdit).Text :=
  UpperCase((frmFinas a.Components[ j] as TdbEdit).Text) ;
 
  ele nao faz nada, e quando tento debuga, no .text da a seguinte mensagem:
  expression illegal in evaluator
 
  tentei faze um teste com o seguinte codigo e tambem nao fez nada
 
  for j := 0 to frmFinasa.Component Count - 1 do
  if (frmFinasa.Componen ts[j] is tdbEdit) then
  (frmFinasa.Componen ts[j] as tdbEdit).Text := 'teste';
 
  alguem pode me ajuda?
 
  obrigado
 
  --
  Felipe Govoni
   -
  GOVONI Sistemas
  Fone 8472-8718
  www.govoni.com. br
 
  [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]

  




-- 
Felipe Govoni
-
GOVONI Sistemas
Fone 8472-8718
www.govoni.com.br


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



[delphi-br] Compactar / Descompactar Mensagem Texto

2009-03-24 Por tôpico Reginaldo Donizete Felix
Pessoal,
Tenho um trabalho a ser feito, em que tenho uma mensagem XML que é enviada
para um web service ,
E estamos gerando um trafego muito grande no servidor com isso solicitaram
que fizemos uma compactação da mensagem andes de enviar para o webservice e
no webservice descompactar tudo isso.
Bom acho que isso vai acabar gerando um outro problema relacionado com
processamento no servidor, mais como a ordem da gerencia no presente é
liberar banda no servidor.

Gostaria de saber se alguem tem algum algoritimo de compacatação te texto,
ou ferramenta e que eu possa depois implementar no meu aplicativo em Delphi
e tambem fazer a descompactação no WebService Java.

Dede já Obrigado.

-- 
Reginaldo D. Felix
regife...@hotmail.com


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



Re: [delphi-br] Cópia do banco MySQL

2009-03-24 Por tôpico Wanderlei - Yahoo
Olá amigo.

Usa o MySQL Dump pra fazer a cópia do SCRIPT SQL
Executar isso no prompt de comando:
mysqldump.exe --host=ip --user=usuario --password=senha --databases 
nome_bd  backup.sql

Valeu Wanderlei



Re: [delphi-br] Cópia do banco MySQL

2009-03-24 Por tôpico Luiz Escobar
InnoDB usa vários outros arquivos...
como:

ib_logfile0
ib_logfile1
ibdata1

E os da pasta DATABASENAME que você criou. 

[]s
Luiz Escobar




From: Bruno Lepesqueur 
Sent: Tuesday, March 24, 2009 2:52 PM
To: delphi-br@yahoogrupos.com.br 
Subject: [delphi-br] Cópia do banco MySQL


Pessoal... to usando o Delphi 7 com o MySQL 5, e trabalho com eles na
empresa e to tentando levar pra casa tb, mas não consigo fazer o banco de
dados funcionar em casa. 

Seguinte... eu usava um banco do tipo MyISAM e agora converti ele para
InnoDB. Pelo que entendi o MyISAM não trabalha com relacionamentos entre
tabelas (chave estrangeira) e refiz o meu banco todo como InnoDB e fiz os
relacionamentos entre tabelas, mas o problema é que se eu apenas copiar a
pasta do banco de dados e colar no outro micro ele não aceita! 
OBS.: O banco que eu tinha no formato MyISAM aceitava eu apenas copiar o
banco (C:\Arquivos de programas\MySQL\MySQL Server 5.0\data\nome do banco)
de um computador e colar no outro para que tudo funcionasse. 

O que vcs me sugerem? 

Obrigado!

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





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



Res: [delphi-br] maiuscula em todos os dedits

2009-03-24 Por tôpico Emanuel Coutinho
Concordo contigo, mas o código dele está quase pronto, e não sei quantos 
componentes ele terá de fazer mudar na mão grande... assim, automatizando é 
mais rápido para resolver... então dei foco a ajudar o erro do código...
No meu caso, quando formato minhas telas, sempre uso as propriedades tipo 
CharCase, quando necessito disso, mas como ele não tinah feito...
Imagina ele ter de fazer isso em 30 componentes de um formulario (mesmo estando 
em um pagecontrol... caramba... muito trabalho... mas se apagar o errinho no 
código... voilá... dois palitos!!!


 Sds,
_
Emanuel Coutinho
Salvador-Ba-Brasil





De: Humberto Oliveira holiveira.wordpr...@gmail.com
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 24 de Março de 2009 12:55:52
Assunto: Re: [delphi-br] maiuscula em todos os dedits


É verdade, existe um espaço na palavra Components ... Mas na minha opinião,
seria melhor o CharCase como o Rodnei explicou acima.

2009/3/24 Emanuel Coutinho emanuelcoutinho@ yahoo.com. br

   frmFinasa.Componen ts[j] -- Tem um espaço em branco no components[j]
 Retire-o


 for j := 0 to frmFinasa.Component Count - 1 do
 if (frmFinasa.Componen ts[j] is tdbEdit) then
 (frmFinasa.Componen ts[j] as tdbEdit).Text :=
 UpperCase((frmFinas a.Components[ j] as TdbEdit).Text) ;

 Sds,
  _ 
 Emanuel Coutinho
 Salvador-Ba- Brasil

  _ _ __
 De: felipe govoni govoni.felipe@ gmail.com govoni.felipe% 40gmail.com 
 Para: delphi...@yahoogrup os.com.br delphi-br%40yahoog rupos.com. br
 Enviadas: Terça-feira, 24 de Março de 2009 11:17:32
 Assunto: [delphi-br] maiuscula em todos os dedits

 bom dia

 algume sabe me dize oq tem de errado nesse codigo:

 for j := 0 to frmFinasa.Component Count - 1 do
 if (frmFinasa.Componen ts[j] is tdbEdit) then
 (frmFinasa.Componen ts[j] as tdbEdit).Text :=
 UpperCase((frmFinas a.Components[ j] as TdbEdit).Text) ;

 ele nao faz nada, e quando tento debuga, no .text da a seguinte mensagem:
 expression illegal in evaluator

 tentei faze um teste com o seguinte codigo e tambem nao fez nada

 for j := 0 to frmFinasa.Component Count - 1 do
 if (frmFinasa.Componen ts[j] is tdbEdit) then
 (frmFinasa.Componen ts[j] as tdbEdit).Text := 'teste';

 alguem pode me ajuda?

 obrigado

 --
 Felipe Govoni
  -
 GOVONI Sistemas
 Fone 8472-8718
 www.govoni.com. br

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

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

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

 


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


   


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

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



Re: [delphi-br] Cópia do banco MySQL

2009-03-24 Por tôpico Luiz Escobar
É verdade, esqueci de falar, SGDB não é igual aos DBFs.
Esse negocio de ficar copiando as bases não vai rolar não.. principalmente para 
InnoDB.
O melhor a fazer é usando o MuSQLDUMP no seu cliente, como o amigo disse, e o 
MySQLIMPORT na sua casa.
[]s
Luiz Escobar








From: Wanderlei - Yahoo 
Sent: Tuesday, March 24, 2009 3:59 PM
To: delphi-br@yahoogrupos.com.br 
Subject: Re: [delphi-br] Cópia do banco MySQL


Olá amigo.

Usa o MySQL Dump pra fazer a cópia do SCRIPT SQL
Executar isso no prompt de comando:
mysqldump.exe --host=ip --user=usuario --password=senha --databases 
nome_bd  backup.sql

Valeu Wanderlei





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



Res: Re: [delphi-br] Cópia do banco MySQL

2009-03-24 Por tôpico Bruno Lepesqueur
Mas eu devo copiar esses ib_logfile0 e ib_logfile1 também ou não?

Obrigado! 
 
---Mensagem original---
 
De: Luiz Escobar
Data: 03/24/09 16:55:55
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Cópia do banco MySQL
 
InnoDB usa vários outros arquivos...
como:

ib_logfile0
ib_logfile1
ibdata1

E os da pasta DATABASENAME que você criou. 

[]s
Luiz Escobar

From: Bruno Lepesqueur 
Sent: Tuesday, March 24, 2009 2:52 PM
To: delphi-br@yahoogrupos.com.br 
Subject: [delphi-br] Cópia do banco MySQL

Pessoal... to usando o Delphi 7 com o MySQL 5, e trabalho com eles na
empresa e to tentando levar pra casa tb, mas não consigo fazer o banco de
dados funcionar em casa. 

Seguinte... eu usava um banco do tipo MyISAM e agora converti ele para
InnoDB. Pelo que entendi o MyISAM não trabalha com relacionamentos entre
tabelas (chave estrangeira) e refiz o meu banco todo como InnoDB e fiz os
relacionamentos entre tabelas, mas o problema é que se eu apenas copiar a
pasta do banco de dados e colar no outro micro ele não aceita! 
OBS.: O banco que eu tinha no formato MyISAM aceitava eu apenas copiar o
banco (C:\Arquivos de programas\MySQL\MySQL Server 5.0\data\nome do banco)
de um computador e colar no outro para que tudo funcionasse. 

O que vcs me sugerem? 

Obrigado!

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



Re: [delphi-br] maiuscula em todos os dedits

2009-03-24 Por tôpico Humberto Oliveira
O detalhe que questionei é ao invés de setar UpperCase em todos os DBEdits,
utilizar a propriedade CharCase, mas fazendo o for do jeito que ele estava
fazendo, mas ao invés de usar a propriedade Text, já setava o CharCase.

Mas ele já resolveu, está tudo em casa.

2009/3/24 Emanuel Coutinho emanuelcouti...@yahoo.com.br

   Concordo contigo, mas o código dele está quase pronto, e não sei quantos
 componentes ele terá de fazer mudar na mão grande... assim, automatizando é
 mais rápido para resolver... então dei foco a ajudar o erro do código...
 No meu caso, quando formato minhas telas, sempre uso as propriedades tipo
 CharCase, quando necessito disso, mas como ele não tinah feito...
 Imagina ele ter de fazer isso em 30 componentes de um formulario (mesmo
 estando em um pagecontrol... caramba... muito trabalho... mas se apagar o
 errinho no código... voilá... dois palitos!!!


 Sds,
 _
 Emanuel Coutinho
 Salvador-Ba-Brasil

 
 De: Humberto Oliveira 
 holiveira.wordpr...@gmail.comholiveira.wordpress%40gmail.com
 
 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
 Enviadas: Terça-feira, 24 de Março de 2009 12:55:52
 Assunto: Re: [delphi-br] maiuscula em todos os dedits

 É verdade, existe um espaço na palavra Components ... Mas na minha
 opinião,
 seria melhor o CharCase como o Rodnei explicou acima.

 2009/3/24 Emanuel Coutinho emanuelcoutinho@ yahoo.com. br

  frmFinasa.Componen ts[j] -- Tem um espaço em branco no components[j]
  Retire-o
 
 
  for j := 0 to frmFinasa.Component Count - 1 do
  if (frmFinasa.Componen ts[j] is tdbEdit) then
  (frmFinasa.Componen ts[j] as tdbEdit).Text :=
  UpperCase((frmFinas a.Components[ j] as TdbEdit).Text) ;
 
  Sds,
   _ 
  Emanuel Coutinho
  Salvador-Ba- Brasil
 
   _ _ __
  De: felipe govoni govoni.felipe@ gmail.com govoni.felipe% 40gmail.com
 
  Para: delphi...@yahoogrup os.com.br delphi-br%40yahoog rupos.com. br
  Enviadas: Terça-feira, 24 de Março de 2009 11:17:32
  Assunto: [delphi-br] maiuscula em todos os dedits
 
  bom dia
 
  algume sabe me dize oq tem de errado nesse codigo:
 
  for j := 0 to frmFinasa.Component Count - 1 do
  if (frmFinasa.Componen ts[j] is tdbEdit) then
  (frmFinasa.Componen ts[j] as tdbEdit).Text :=
  UpperCase((frmFinas a.Components[ j] as TdbEdit).Text) ;
 
  ele nao faz nada, e quando tento debuga, no .text da a seguinte mensagem:
  expression illegal in evaluator
 
  tentei faze um teste com o seguinte codigo e tambem nao fez nada
 
  for j := 0 to frmFinasa.Component Count - 1 do
  if (frmFinasa.Componen ts[j] is tdbEdit) then
  (frmFinasa.Componen ts[j] as tdbEdit).Text := 'teste';
 
  alguem pode me ajuda?
 
  obrigado
 
  --
  Felipe Govoni
   -
  GOVONI Sistemas
  Fone 8472-8718
  www.govoni.com. br
 
  [As partes desta mensagem que não continham texto foram removidas]
 
  Veja quais são os assuntos do momento no Yahoo! +Buscados
  http://br.maisbusca dos.yahoo. com
 
  [As partes desta mensagem que não continham texto foram removidas]
 
 
 

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

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

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

  



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



Re: Re: [delphi-br] Cópia do banco MySQL

2009-03-24 Por tôpico Luiz Escobar
Não, não...
apenas usa o MySQLDUMP|IMPORT
[]s
Luiz Escobar





From: Bruno Lepesqueur 
Sent: Tuesday, March 24, 2009 5:12 PM
To: delphi-br@yahoogrupos.com.br 
Subject: Res: Re: [delphi-br] Cópia do banco MySQL


Mas eu devo copiar esses ib_logfile0 e ib_logfile1 também ou não? 

Obrigado! 

---Mensagem original--- 

De: Luiz Escobar 
Data: 03/24/09 16:55:55 
Para: delphi-br@yahoogrupos.com.br 
Assunto: Re: [delphi-br] Cópia do banco MySQL 

InnoDB usa vários outros arquivos... 
como: 

ib_logfile0 
ib_logfile1 
ibdata1 

E os da pasta DATABASENAME que você criou. 

[]s 
Luiz Escobar 

From: Bruno Lepesqueur 
Sent: Tuesday, March 24, 2009 2:52 PM 
To: delphi-br@yahoogrupos.com.br 
Subject: [delphi-br] Cópia do banco MySQL 

Pessoal... to usando o Delphi 7 com o MySQL 5, e trabalho com eles na 
empresa e to tentando levar pra casa tb, mas não consigo fazer o banco de 
dados funcionar em casa. 

Seguinte... eu usava um banco do tipo MyISAM e agora converti ele para 
InnoDB. Pelo que entendi o MyISAM não trabalha com relacionamentos entre 
tabelas (chave estrangeira) e refiz o meu banco todo como InnoDB e fiz os 
relacionamentos entre tabelas, mas o problema é que se eu apenas copiar a 
pasta do banco de dados e colar no outro micro ele não aceita! 
OBS.: O banco que eu tinha no formato MyISAM aceitava eu apenas copiar o 
banco (C:\Arquivos de programas\MySQL\MySQL Server 5.0\data\nome do banco) 
de um computador e colar no outro para que tudo funcionasse. 

O que vcs me sugerem? 

Obrigado! 

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





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



Re: [delphi-br] maiuscula em todos os dedits

2009-03-24 Por tôpico felipe govoni
emanuel

realmente o charcase facilito e muito, mas na verdade meu codigo nao estava
errado
eu apenas copiei errado, pois eu estava compilando certo, mas na hora ela
nao
limpava os dbedit.

eu copiei a ideia de uma dica pra limpa edit e so alterei pra dbedit.



2009/3/24 Emanuel Coutinho emanuelcouti...@yahoo.com.br

   Concordo contigo, mas o código dele está quase pronto, e não sei quantos
 componentes ele terá de fazer mudar na mão grande... assim, automatizando é
 mais rápido para resolver... então dei foco a ajudar o erro do código...
 No meu caso, quando formato minhas telas, sempre uso as propriedades tipo
 CharCase, quando necessito disso, mas como ele não tinah feito...
 Imagina ele ter de fazer isso em 30 componentes de um formulario (mesmo
 estando em um pagecontrol... caramba... muito trabalho... mas se apagar o
 errinho no código... voilá... dois palitos!!!


 Sds,
 _
 Emanuel Coutinho
 Salvador-Ba-Brasil

 
 De: Humberto Oliveira 
 holiveira.wordpr...@gmail.comholiveira.wordpress%40gmail.com
 
 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
 Enviadas: Terça-feira, 24 de Março de 2009 12:55:52
 Assunto: Re: [delphi-br] maiuscula em todos os dedits

 É verdade, existe um espaço na palavra Components ... Mas na minha
 opinião,
 seria melhor o CharCase como o Rodnei explicou acima.

 2009/3/24 Emanuel Coutinho emanuelcoutinho@ yahoo.com. br

  frmFinasa.Componen ts[j] -- Tem um espaço em branco no components[j]
  Retire-o
 
 
  for j := 0 to frmFinasa.Component Count - 1 do
  if (frmFinasa.Componen ts[j] is tdbEdit) then
  (frmFinasa.Componen ts[j] as tdbEdit).Text :=
  UpperCase((frmFinas a.Components[ j] as TdbEdit).Text) ;
 
  Sds,
   _ 
  Emanuel Coutinho
  Salvador-Ba- Brasil
 
   _ _ __
  De: felipe govoni govoni.felipe@ gmail.com govoni.felipe% 40gmail.com
 
  Para: delphi...@yahoogrup os.com.br delphi-br%40yahoog rupos.com. br
  Enviadas: Terça-feira, 24 de Março de 2009 11:17:32
  Assunto: [delphi-br] maiuscula em todos os dedits
 
  bom dia
 
  algume sabe me dize oq tem de errado nesse codigo:
 
  for j := 0 to frmFinasa.Component Count - 1 do
  if (frmFinasa.Componen ts[j] is tdbEdit) then
  (frmFinasa.Componen ts[j] as tdbEdit).Text :=
  UpperCase((frmFinas a.Components[ j] as TdbEdit).Text) ;
 
  ele nao faz nada, e quando tento debuga, no .text da a seguinte mensagem:
  expression illegal in evaluator
 
  tentei faze um teste com o seguinte codigo e tambem nao fez nada
 
  for j := 0 to frmFinasa.Component Count - 1 do
  if (frmFinasa.Componen ts[j] is tdbEdit) then
  (frmFinasa.Componen ts[j] as tdbEdit).Text := 'teste';
 
  alguem pode me ajuda?
 
  obrigado
 
  --
  Felipe Govoni
   -
  GOVONI Sistemas
  Fone 8472-8718
  www.govoni.com. br
 
  [As partes desta mensagem que não continham texto foram removidas]
 
  Veja quais são os assuntos do momento no Yahoo! +Buscados
  http://br.maisbusca dos.yahoo. com
 
  [As partes desta mensagem que não continham texto foram removidas]
 
 
 

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

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

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

  




-- 
Felipe Govoni
-
GOVONI Sistemas
Fone 8472-8718
www.govoni.com.br


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



Re: [delphi-br] maiuscula em todos os dedits

2009-03-24 Por tôpico Thales (Shubacca) - Tebo Software
Coloque esse codigo no onShow

var
  i : integer;
begin
  for i := 0 to ComponentCount -1 do
if (Components[i] is TDBEdit) then
  TDBEdit(Components[i]).CharCase := ecUpperCase;
end;
falow
2009/3/24 Humberto Oliveira holiveira.wordpr...@gmail.com

   O detalhe que questionei é ao invés de setar UpperCase em todos os
 DBEdits,
 utilizar a propriedade CharCase, mas fazendo o for do jeito que ele estava
 fazendo, mas ao invés de usar a propriedade Text, já setava o CharCase.

 Mas ele já resolveu, está tudo em casa.

 2009/3/24 Emanuel Coutinho 
 emanuelcouti...@yahoo.com.bremanuelcoutinho%40yahoo.com.br
 

  Concordo contigo, mas o código dele está quase pronto, e não sei quantos
  componentes ele terá de fazer mudar na mão grande... assim, automatizando
 é
  mais rápido para resolver... então dei foco a ajudar o erro do código...
  No meu caso, quando formato minhas telas, sempre uso as propriedades tipo
  CharCase, quando necessito disso, mas como ele não tinah feito...
  Imagina ele ter de fazer isso em 30 componentes de um formulario (mesmo
  estando em um pagecontrol... caramba... muito trabalho... mas se apagar o
  errinho no código... voilá... dois palitos!!!
 
 
  Sds,
  _
  Emanuel Coutinho
  Salvador-Ba-Brasil
 
  
  De: Humberto Oliveira 
  holiveira.wordpr...@gmail.comholiveira.wordpress%40gmail.com
 holiveira.wordpress%40gmail.com
  
  Para: delphi-br@yahoogrupos.com.br 
  delphi-br%40yahoogrupos.com.brdelphi-br%
 40yahoogrupos.com.br

  Enviadas: Terça-feira, 24 de Março de 2009 12:55:52
  Assunto: Re: [delphi-br] maiuscula em todos os dedits
 
  É verdade, existe um espaço na palavra Components ... Mas na minha
  opinião,
  seria melhor o CharCase como o Rodnei explicou acima.
 
  2009/3/24 Emanuel Coutinho emanuelcoutinho@ yahoo.com. br
 
   frmFinasa.Componen ts[j] -- Tem um espaço em branco no components[j]
   Retire-o
  
  
   for j := 0 to frmFinasa.Component Count - 1 do
   if (frmFinasa.Componen ts[j] is tdbEdit) then
   (frmFinasa.Componen ts[j] as tdbEdit).Text :=
   UpperCase((frmFinas a.Components[ j] as TdbEdit).Text) ;
  
   Sds,
    _ 
   Emanuel Coutinho
   Salvador-Ba- Brasil
  
    _ _ __
   De: felipe govoni govoni.felipe@ gmail.com govoni.felipe%
 40gmail.com
  
   Para: delphi...@yahoogrup os.com.br delphi-br%40yahoog rupos.com. br
   Enviadas: Terça-feira, 24 de Março de 2009 11:17:32
   Assunto: [delphi-br] maiuscula em todos os dedits
  
   bom dia
  
   algume sabe me dize oq tem de errado nesse codigo:
  
   for j := 0 to frmFinasa.Component Count - 1 do
   if (frmFinasa.Componen ts[j] is tdbEdit) then
   (frmFinasa.Componen ts[j] as tdbEdit).Text :=
   UpperCase((frmFinas a.Components[ j] as TdbEdit).Text) ;
  
   ele nao faz nada, e quando tento debuga, no .text da a seguinte
 mensagem:
   expression illegal in evaluator
  
   tentei faze um teste com o seguinte codigo e tambem nao fez nada
  
   for j := 0 to frmFinasa.Component Count - 1 do
   if (frmFinasa.Componen ts[j] is tdbEdit) then
   (frmFinasa.Componen ts[j] as tdbEdit).Text := 'teste';
  
   alguem pode me ajuda?
  
   obrigado
  
   --
   Felipe Govoni
    -
   GOVONI Sistemas
   Fone 8472-8718
   www.govoni.com. br
  
   [As partes desta mensagem que não continham texto foram removidas]
  
   Veja quais são os assuntos do momento no Yahoo! +Buscados
   http://br.maisbusca dos.yahoo. com
  
   [As partes desta mensagem que não continham texto foram removidas]
  
  
  
 
  [As partes desta mensagem que não continham texto foram removidas]
 
  Veja quais são os assuntos do momento no Yahoo! +Buscados
  http://br.maisbuscados.yahoo.com
 
  [As partes desta mensagem que não continham texto foram removidas]
 
 
 

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

  




-- 
Thales Eduardo Barros de Oliveira
Desenvolvedor Delphi / Firebird / Java
Emails:
tebosoftw...@gmail.com (GoogleTalk)
thales_...@hotmail.com (MSN)
Blog:
http://tebosoftware.blogspot.com/

Tente ser uma pessoa de valor, não de sucesso
Albert Einstein


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



[delphi-br] MyDAC

2009-03-24 Por tôpico Bruno Lepesqueur
Como que eu faço pra comprar o MyDAC para o delphi 7? 

Obrigado!

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



[delphi-br] Meio OFF: - Erro IbExpert: Cannot drop this view because there are some dependencies. Use Recreate Script Instead.

2009-03-24 Por tôpico Emanuel Coutinho
Colegas,



Estou criando umas views para ir totalizando dados de
consultas diversase ao tentar inserir um novo aggregate field em uma
das views me retornou uma mensagem de erro
Cannot drop this view because there are some dependencies. Use Recreate Script 
Instead.

O Inglês eu entendi... Existem dependências mas não consegui enxergar, quais. 
olha o conteúdo do recreate script...

Será que alguém tem uma idéia de como resolver isso?

[codigo]

/*-*/
/* Dropping old views */
/*-*/

DROP VIEW VIEW_TUB_AVC_GERAL;

DROP VIEW VIEW_ISOMETRICOS_PESOS;

/*-*/
/* Creating new views */
/*-*/

CREATE VIEW VIEW_ISOMETRICOS_PESOS(
CODIGOISO,
LINHA,
CODIGOAREA,
IDENTIFICACAO,
TDIAMETRO,
DDIAMETRO,
CHVCRONOGRAMA,
ITEMEAP,
REVISAO,
IS_CODIGO,
VIS_CODIGO,
PESO,
FMED,
SUPERFICIE,
QT_VALVULAS,--- Este é o novo campo a ser apresentado
PESO_VALVULAS,
FMED_VALVULAS)
AS
select isometricos.is_codigo as CodigoIso, isometricos.is_linha as LINHA,
ISOMETRICOS.ar_codigo AS CODIGOAREA, isometricos.is_identificacao as
Identificacao , isometricos.is_diametro_t as tDiametro,
isometricos.is_diametro_n as dDiametro,
  
isometricos.is_chavecronograma as ChvCronograma,
isometricos.is_item_eap as ItemEap, isometricos.is_revisaoatual as
Revisao,
   isometricos_lm.is_codigo, isometricos_valvulas.is_codigo as vis_codigo,
   sum(isometricos_lm.lm_peso) as peso, sum(isometricos_lm.lm_fatormedicao) 
as fmed,
   sum(isometricos_lm.lm_areapintura) as superficie,
   count(isometricos_valvulas.is_codigo) as qt_valvulas,
 Está sendo criado aqui...
   sum(isometricos_valvulas.isv_peso) as PESO_VALVULAS,
   sum(isometricos_valvulas.isv_fatormedicao) as FMED_VALVULAS
from isometricos left outer join  isometricos_lm on(isometricos_lm.is_codigo = 
isometricos.is_codigo)
 left outer join isometricos_valvulas on (isometricos_valvulas.is_codigo = 
isometricos.is_codigo)
group
by isometricos.is_codigo, isometricos.is_linha, ISOMETRICOS.ar_codigo,
isometricos.is_identificacao,isometricos.is_diametro_t,
isometricos.is_diametro_n,
   isometricos.is_chavecronograma, isometricos.is_item_eap, 
isometricos.is_revisaoatual, isometricos_lm.is_codigo, 
isometricos_valvulas.is_codigo
;
CREATE VIEW VIEW_TUB_AVC_GERAL(
CODIGOISO,
LINHA,
CODIGOAREA,
IDENTIFICACAO,
REVISAO,
PESO_TUBULACAO,
SUPERFICIE,
PESO_VALVULAS,
PESO_TOTAL,
IS_CODIGO,
MONTADO,
IS_CODIGO1,
TESTADO,
IS_CODIGO2,
FABRICADO,
TDIAMETRO,
DDIAMETRO,
CHVCRONOGRAMA,
ITEMEAP,
IS_CODIGO3,
VIS_CODIGO,
FMED,
FMED_VALVULAS,
PCT_FAB,
PCT_MONT,
PCT_TEST)
AS
select
view_isometricos_pesos.codigoiso,
view_isometricos_pesos.linha,
view_isometricos_pesos.codigoarea,
view_isometricos_pesos.identificacao,
view_isometricos_pesos.revisao,
view_isometricos_pesos.peso AS PESO_TUBULACAO,
view_isometricos_pesos.superficie,
view_isometricos_pesos.peso_valvulas,
(view_isometricos_pesos.peso+view_isometricos_pesos.peso_valvulas) AS 
PESO_TOTAL,
view_tub_avc_montagem.is_codigo,
view_tub_avc_montagem.montado,
view_tub_avc_teste.is_codigo,
view_tub_avc_teste.testado,
view_tub_avc_fab.is_codigo,
view_tub_avc_fab.fabricado,
view_isometricos_pesos.tdiametro,
view_isometricos_pesos.ddiametro,
view_isometricos_pesos.chvcronograma,
view_isometricos_pesos.itemeap,
view_isometricos_pesos.is_codigo,
view_isometricos_pesos.vis_codigo,
view_isometricos_pesos.fmed,
view_isometricos_pesos.fmed_valvulas,
((view_tub_avc_fab.fabricado/view_isometricos_pesos.peso) * 100) AS PCT_FAB,
((view_tub_avc_montagem.montado/view_isometricos_pesos.peso) * 100) AS PCT_MONT,
((view_tub_avc_teste.testado/view_isometricos_pesos.peso) * 100) AS PCT_TEST
from view_isometricos_pesos
   left outer join view_tub_avc_montagem on (view_isometricos_pesos.codigoiso = 
view_tub_avc_montagem.is_codigo)
   left outer join view_tub_avc_teste on (view_isometricos_pesos.codigoiso = 
view_tub_avc_teste.is_codigo)
   left outer join view_tub_avc_fab on (view_isometricos_pesos.codigoiso = 
view_tub_avc_fab.is_codigo)
;



/*-*/
/* Restoring descriptions for views */
/*-*/

/*-*/
/* Restoring descriptions of view columns */
/*-*/

/*-*/
/* Restoring privileges */

[delphi-br] Delphi 2009 e sql server 2000

2009-03-24 Por tôpico TI - Metalurgica Jano
Quando editor um campo da tabela e do o applyupdate(0); aparece a mensagem
abaixo:

 

Não é possível criar uma nova conexão porque o modo usado é o de transação
manual ou distribuída

 

METALÚRGICA JANO LTDA
FUNDIÇÃO DE AÇO CARBONO - INOX - MANGANÊS 
Alessandro Pichiteli
Analista de TI 
(37) 3214-1140

P Antes de imprimir, pense na sua responsabilidade com o Meio Ambiente e nos
custos de sua empresa

 



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



Res: [delphi-br] maiuscula em todos os dedits

2009-03-24 Por tôpico Emanuel Coutinho
Nada melhor do que várias cabeças pensando!!!



 Sds,
_
Emanuel Coutinho
Salvador-Ba-Brasil





De: Thales (Shubacca) - Tebo Software tebosoftw...@gmail.com
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 24 de Março de 2009 18:40:27
Assunto: Re: [delphi-br] maiuscula em todos os dedits


Coloque esse codigo no onShow

var
i : integer;
begin
for i := 0 to ComponentCount -1 do
if (Components[ i] is TDBEdit) then
TDBEdit(Components[ i]).CharCase := ecUpperCase;
end;
falow
2009/3/24 Humberto Oliveira holiveira.wordpress @gmail.com

   O detalhe que questionei é ao invés de setar UpperCase em todos os
 DBEdits,
 utilizar a propriedade CharCase, mas fazendo o for do jeito que ele estava
 fazendo, mas ao invés de usar a propriedade Text, já setava o CharCase.

 Mas ele já resolveu, está tudo em casa.



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

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



[delphi-br] Re: Delphi / Banco de Dados - Ajunda em SQL

2009-03-24 Por tôpico Joao Henrique Levada
Olá Emanuel.

Estou aqui pensando... se as views não são as tabelas dinâmicas o que estaria 
lhe faltando?

Bem, como e não entendo muito de access (pra não dizer que não entendo nada) 
acho que você deveria dar uma olhada nas STORED PROCEDURES do Firebird.

Aqui há bastante conteúdo sobre Firebird:
http://www.ibphoenix.com/main.nfs?a=ibphoenixpage=ibp_60_sqlref

Mas é um tanto desatualizado. Recomendo que verifique as release notes da 
versão que estiver usando. Perca um tempo com isso. Sempre vale a pena.

Você pode fazer um laço FOR numa stored procedure, que compute valores de 
registros e lhe retorne uma tabela.

Pode até consultar posteriormente esta SP (stored procedure) usando where.

Claro que perderá desempenho, mas dependendo do volume de dados, não será um 
problema.

Ou pode mesmo bolar sua SP, já com parâmetros de entrada que filtrem os dados.

Mas... nem sei se é disso mesmo que precisa...

Será que é?

Abraços.



RE: [delphi-br] Linguagem ZPL - impressora Zebra

2009-03-24 Por tôpico Sergio Roberto Paes da Silva

Concordo com o Walter, já trabalhei com ZPL também, e acentuar vai dar galho, 
com toda certeza...

 


 


To: delphi-br@yahoogrupos.com.br
From: wchag...@bol.com.br
Date: Mon, 23 Mar 2009 22:41:54 -0300
Subject: Re: [delphi-br] Linguagem ZPL - impressora Zebra





eu já trabalhei muito com elas e com as eltron. Pode convencer seu cliente de 
desistir da acentuação. Não dá certo. Sai caracteres tudo trocado na hora de 
imprimir porque a impressora não trabalha com o código padrão Ansi

[]s


Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
wchag...@bol.com.br
http://www.geocities.com/SiliconValley/Bay/1058
http://delphitocorporerm.blogspot.com/
MSN: whitesock...@hotmail.com
SKYPE: WalterChagasJr

- Original Message - 
From: Filippe Maymone 
To: delphi-br@yahoogrupos.com.br 
Sent: Monday, March 23, 2009 8:45 PM
Subject: [delphi-br] Linguagem ZPL - impressora Zebra

Olá, 

Alguem trabalha com linguagem ZPL da impressora Zebra ? 
Eu tenho um sistema em delphi, que faz impressora na impressora zebra via 
linguagem ZPL.

Esta funcionando certinho, porem eu não tenho acentuação, um cliente necessita 
que as etiquetas saeem com acetuações.

Alguem sabe resolver este problema ??? 

abraços,

Filippe Maymone

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

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









_
Conheça o Windows Live Spaces, a rede de relacionamentos do Messenger!
http://www.amigosdomessenger.com.br/

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



Res: [delphi-br] maiuscula em todos os dedits

2009-03-24 Por tôpico Silvio Clécio
Engraçado, eu tb sugeri para o Felipe algo parecido, só que minhas respostas na 
lista estão demorando séculos para chegar; êêê... sei não viu...

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




De: rodinei_amo...@hotmail.com rodinei_amo...@hotmail.com
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 24 de Março de 2009 12:09:18
Assunto: Re: [delphi-br] maiuscula em todos os dedits


Bom, talvez eu tenha entendido errado o que vc quer, mas o componente TDBEdit 
contém uma propriedade CharCase, que vc poderá deixa-la apontada para 
ecUpperCase e tudo ficará em maiúsculas.

Espero ter ajudado...

Abs

Rodinei Amorim 
Programador Delphi
(11) 8208-9503
rodinei_amorim@ hotmail.com

From: felipe govoni 
Sent: Tuesday, March 24, 2009 11:17 AM
To: delphi...@yahoogrup os.com.br 
Subject: [delphi-br] maiuscula em todos os dedits

bom dia

algume sabe me dize oq tem de errado nesse codigo:

for j := 0 to frmFinasa.Component Count - 1 do
if (frmFinasa.Componen ts[j] is tdbEdit) then
(frmFinasa.Componen ts[j] as tdbEdit).Text :=
UpperCase((frmFinas a.Components[ j] as TdbEdit).Text) ;

ele nao faz nada, e quando tento debuga, no .text da a seguinte mensagem:
expression illegal in evaluator

tentei faze um teste com o seguinte codigo e tambem nao fez nada

for j := 0 to frmFinasa.Component Count - 1 do
if (frmFinasa.Componen ts[j] is tdbEdit) then
(frmFinasa.Componen ts[j] as tdbEdit).Text := 'teste';

alguem pode me ajuda?

obrigado

-- 
Felipe Govoni
 -
GOVONI Sistemas
Fone 8472-8718
www.govoni.com. br   


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

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



Re: [delphi-br] Cópia do banco MySQL

2009-03-24 Por tôpico Eduardo Silva dos Santos
Amigo, você acertou na mega sena, usar InnoDB é a melhor coisa que existe.

Usando este engine você terá Integridade referencial, crash recovery,
suporte a transações e mais um monte de recursos que o InnoDB, além de
sofrer com corrupção dos dados caso seu servidor seja desligado.

No innodb a coisa funciona um pouco diferente, os dados e os indices das
tabelas ficam no TableSpace, um arquivo chamado IbData, os outros dois são
arquivos de log.

Na pasta do banco ficam apenas os arquivos frm que são os headers da tabela.

você tem duas opções para copiar um banco innodb:
 1 - para o serviço, copiar os arquivos Ibdata e iblog e a pasta do banco
que esta dentro da pasta data.
  (fazendo isso ao colocar no destino você apagará qualquer banco
existente, visto que todos são salvos no arquivo IbData)

 2 - Essa opção é a melhor e mais segura, gerar um script do banco com a
ferramenta de sua preferência e executar esse script na máquina de destino e
recriar o banco.

é isso ai, seja feliz com Innodb e dê adeus aos problemas de corrupção com
tabelas MyISAM.



2009/3/24 Bruno Lepesqueur brunolbra...@yahoo.com.br

   Pessoal... to usando o Delphi 7 com o MySQL 5, e trabalho com eles na
 empresa e to tentando levar pra casa tb, mas não consigo fazer o banco de
 dados funcionar em casa.

 Seguinte... eu usava um banco do tipo MyISAM e agora converti ele para
 InnoDB. Pelo que entendi o MyISAM não trabalha com relacionamentos entre
 tabelas (chave estrangeira) e refiz o meu banco todo como InnoDB e fiz os
 relacionamentos entre tabelas, mas o problema é que se eu apenas copiar a
 pasta do banco de dados e colar no outro micro ele não aceita!
 OBS.: O banco que eu tinha no formato MyISAM aceitava eu apenas copiar o
 banco (C:\Arquivos de programas\MySQL\MySQL Server 5.0\data\nome do banco)
 de um computador e colar no outro para que tudo funcionasse.

 O que vcs me sugerem?

 Obrigado!

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

  




-- 
...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 9961-7095
MSN: eduardo@gmail.com
Site: http://www.drdsistemas.com.br/
...


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



[delphi-br] Urgente - Indicações

2009-03-24 Por tôpico Eliza Santos
 

Olá Pessoal, 

 

Estou com a seguinte oportunidade:

 

Analista Programador Delphi com Oracle 

Seria necessário no mínimo três anos de experiência com linguagem delphi e
um ano e meio com banco de dados Oracle.

Desejável conhecimento em ERP

O local de atuação seria na região da Barra Funda, em um projeto por tempo
indeterminado com a contratação PJ

 

Por favor me indique profissionais

 

Seguem meus contatos : thais.sant...@cadmus.com.br ou 8349-7541

 

Abraços.

 

Thais Santana
Recursos Humanos

Cadmus Soluções em TI

Tel: +55 11 3848-2677 Ramal: 2715

Fax: +55 11 3848-2679 

  _  

Rua: Gomes de Carvalho, 1.765 - 9º andar - Vila Olí­mpia - São Paulo - SP -
CEP: 04547-006

Antes de imprimir pense em sua responsabilidade e compromisso com o meio
ambiente.

 

Essa mensagem é destinada exclusivamente ao seu destinatário e pode conter
informações confidenciais, protegidas por sigilo profissional ou cuja
divulgação seja proibida por lei. O uso não autorizado de tais informações é
proibido e está sujeito às penalidades cabíveis.

This message is intended exclusively for its addressee and may contain
information that is confidential and protected by a professional privilege
or whose disclosure is prohibited by law. Unauthorized use of such
information is prohibited and subject to applicable penalties.  

 



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



Re: Re: [delphi-br] Cópia do banco MySQL

2009-03-24 Por tôpico Eduardo Silva dos Santos
Você não deve copiar nenhum deles.. e sim gerar um script/backup do banco e
executar no servidor de destino.

você pode ate usar esse metodo de copiar, mas de tiver outro banco na
máquina de destino ele vai pro brejo.


2009/3/24 Bruno Lepesqueur brunolbra...@yahoo.com.br

   Mas eu devo copiar esses ib_logfile0 e ib_logfile1 também ou não?

 Obrigado!

 ---Mensagem original---

 De: Luiz Escobar
 Data: 03/24/09 16:55:55
 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
 Assunto: Re: [delphi-br] Cópia do banco MySQL

 InnoDB usa vários outros arquivos...
 como:

 ib_logfile0
 ib_logfile1
 ibdata1

 E os da pasta DATABASENAME que você criou.

 []s
 Luiz Escobar

 From: Bruno Lepesqueur
 Sent: Tuesday, March 24, 2009 2:52 PM
 To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
 Subject: [delphi-br] Cópia do banco MySQL

 Pessoal... to usando o Delphi 7 com o MySQL 5, e trabalho com eles na
 empresa e to tentando levar pra casa tb, mas não consigo fazer o banco de
 dados funcionar em casa.

 Seguinte... eu usava um banco do tipo MyISAM e agora converti ele para
 InnoDB. Pelo que entendi o MyISAM não trabalha com relacionamentos entre
 tabelas (chave estrangeira) e refiz o meu banco todo como InnoDB e fiz os
 relacionamentos entre tabelas, mas o problema é que se eu apenas copiar a
 pasta do banco de dados e colar no outro micro ele não aceita!
 OBS.: O banco que eu tinha no formato MyISAM aceitava eu apenas copiar o
 banco (C:\Arquivos de programas\MySQL\MySQL Server 5.0\data\nome do banco)
 de um computador e colar no outro para que tudo funcionasse.

 O que vcs me sugerem?

 Obrigado!

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

  




-- 
...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 9961-7095
MSN: eduardo@gmail.com
Site: http://www.drdsistemas.com.br/
...


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



[delphi-br] Tabela de dados com milhões de registros

2009-03-24 Por tôpico josehenriqu...@ymail.com
Amigos bom dia, gostaria de saber se alguém pode me indicar uma solução para um 
problema que parece simples.

Temos algumas tabelas que tem baixa manutenção, mas alto índice de pesquisa nas 
mesmas. Eis ai nosso gargalo, o acesso ao banco de dados, por mais que se 
melhore o acesso ao BD continua sendo o nosso gargalo.
Então uma opção sugerida seria de no iniciar a aplicação essas tabelas fossem 
lidas do banco e ficassem em memória para sempre (notem as aspas) até que 
seja realmente necessário fazer o recarregamento da tabela.
Gostaria de saber se alguém já teve um caso desses e qual a tecnologia, 
metodologia ou mágica foi feita. 
Se puderem me ajudar ficarei muito grato.

abs!!!




Re: [delphi-br] maiuscula em todos os dedits

2009-03-24 Por tôpico Wagne®_Fix
Não precisa de programação para isso...

Seleciona todos os Edits que você quer em maiusculo e vai nas propriedades muda 
o charcase para ecUpperCase

--- Em ter, 24/3/09, felipe govoni govoni.fel...@gmail.com escreveu:

De: felipe govoni govoni.fel...@gmail.com
Assunto: [delphi-br] maiuscula em todos os dedits
Para: delphi-br@yahoogrupos.com.br
Data: Terça-feira, 24 de Março de 2009, 11:17












bom dia



algume sabe me dize oq tem de errado nesse codigo:



for j := 0 to frmFinasa.Component Count - 1 do

   if (frmFinasa.Componen ts[j] is tdbEdit) then

 (frmFinasa.Componen ts[j] as tdbEdit).Text :=

UpperCase((frmFinas a.Components[ j] as TdbEdit).Text) ;



ele nao faz nada, e quando tento debuga, no .text da a seguinte mensagem:

expression illegal in evaluator



tentei faze um teste com o seguinte codigo e tambem nao fez nada



for j := 0 to frmFinasa.Component Count - 1 do

   if (frmFinasa.Componen ts[j] is tdbEdit) then

 (frmFinasa.Componen ts[j] as tdbEdit).Text := 'teste';



alguem pode me ajuda?



obrigado



-- 

Felipe Govoni

 -

GOVONI Sistemas

Fone 8472-8718

www.govoni.com. br



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




 

  




 

















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

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



[delphi-br] Desconto de ICMS

2009-03-24 Por tôpico marcosroberto_net
Olá Pessoal!

Como fica o desconto de ICMS na nota fiscal eletronica?
Eu subtraio do valor total do item ou apenas coloco no campo valor do desconto 
por item?

grato.



[delphi-br] Re: conversion of a char data type to a datetime data type resulted in an

2009-03-24 Por tôpico Alexsandro
Opa;

Olha no banco de teste ele roda normal sem erros, com as datas correta. já no 
banco de produção ele me retorna o erro, porem com a data do comando show... 
correta tambem.


--- Em delphi-br@yahoogrupos.com.br, Humberto Oliveira 
holiveira.wordpr...@... escreveu

 Correto, ele te retorna '31/03/2009'.
 
 Você capturou o SQL.Text da query após a passagem do parâmetro?
 
 Rodou o resultado no Query Analyzer conectado na base de desenvolvimento e
 produção?
 
 Isso tá com cara de formato de data enviado para o seu servidor de produção.
 
 Faz um teste aí rodando o resultado do SQL.Text e rode no Query Analyzer do
 banco de produção, veja se ocorre erro.
 
 
 
 2009/3/24 Alexsandro a...@...
 
Opa Humberto,
  Ele me traz o valor correto 31/03/2009
 
  O interessante de tudo é que, aqui na minha máquina ele funciona blz. Ou
  seja quando eu uso o banco de dados de testes da minha máquina fica blz,
  agora quanto eu uso o banco de dados do Servidor.. da esse erro.
 
  Uso SQL Server 2003
 
  --- Em delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br,
  Humberto Oliveira holiveira.wordpress@ escreveu
 
  
   Alexsandro, conseguiu debugar e verificar o que está passando para a
   variável sdata ?
  
   Coloca um ShowMessage(AdoqFeriados.SQL.Text); antes do AdoqFeriados.Open
  e
   capture a query que ele está tentando executar, provavelmente a variável
   está gravando um valor incorreto.
  
   Faça o teste e nos apresente os detalhes.
  
  
   2009/3/24 Alexsandro aq.s@
  
Bom dia pessoal,
   
Eu estou fazendo uma pesquisa em uma adoquary para encontrar
  determinadas
datas e esta dando esse erro quando execulto a quary:
   
conversion of a char data type to a datetime data type resulted in an
out-of-range datetime value..
   
O código é esse :
   
var resul tdatetime;
sdata : string;
begin
   
AdoqFeriados.Close;
AdoqFeriados.SQL.Clear;
AdoqFeriados.SQL.Text := 'SELECT * FROM tb_Feriados WHERE data='''+
  sdata
+;
AdoqFeriados.Open;
   
já tentei o :
   
AdoqFeriados.SQL.Text := 'SELECT * FROM tb_Feriados WHERE data=' +
QuotedStr(DateToStr (resul));
   
outra tentativa tambem foi o :
   
AdoqFeriados.SQL.Text := 'SELECT * FROM tb_Feriados WHERE data=' +
DateToStr (resul);
   
Outra :
AdoqFeriados.SQL.Text := 'SELECT * FROM tb_Feriados WHERE data=' +
QuotedStr (sdata);
   
e nada ...
Alguem pode me ajudar com isso ?
   
   
   
  
  
   [As partes desta mensagem que não continham texto foram removidas]
  
 
   
 
 
 
 [As partes desta mensagem que não continham texto foram removidas]





[delphi-br] Delphi 2009 Dbx e sql server 2000

2009-03-24 Por tôpico TI - Metalurgica Jano
 

Alguém me ajude por favor,

 

Não é possível criar uma nova conexão porque o modo usado é o de transação
manual ou distribuída.

 

Toda vez que do um clientdaset.edit e mudo alguma coisa quando do um
clientdaset.post da esse erro acima.

 



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



RES: [delphi-br] Compactar / Descompactar Mensagem Texto

2009-03-24 Por tôpico Zote
Compacta utilizando Zip.

Talvez tenham que mudar o ws para ao invés de receber uma string, receber um
array de byte.

--

José Henrique (Zote)

Analista de TI

Bludata Software

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Reginaldo Donizete Felix
Enviada em: terça-feira, 24 de março de 2009 14:26
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Compactar / Descompactar Mensagem Texto

 

Pessoal,
Tenho um trabalho a ser feito, em que tenho uma mensagem XML que é enviada
para um web service ,
E estamos gerando um trafego muito grande no servidor com isso solicitaram
que fizemos uma compactação da mensagem andes de enviar para o webservice e
no webservice descompactar tudo isso.
Bom acho que isso vai acabar gerando um outro problema relacionado com
processamento no servidor, mais como a ordem da gerencia no presente é
liberar banda no servidor.

Gostaria de saber se alguem tem algum algoritimo de compacatação te texto,
ou ferramenta e que eu possa depois implementar no meu aplicativo em Delphi
e tambem fazer a descompactação no WebService Java.

Dede já Obrigado.

-- 
Reginaldo D. Felix
regife...@hotmail.com mailto:regifelix%40hotmail.com 

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





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



Re: [delphi-br] Linguagem ZPL - impressora Zebra

2009-03-24 Por tôpico Filippe Maymone
Nossa que coisa .. cliente é f
E o pior que a minha empresa é licenciada dessa marca ... e temos que
atender ...
Vou ter que fazer a impressão desse cliente fora do sistema, terei que
montar via programas de etquetas, o que vai me gerar varios problemas...
mais se não tenho solução ...rs.rs

Abraços,

2009/3/23 Walter Chagas (Bol) wchag...@bol.com.br

   eu já trabalhei muito com elas e com as eltron. Pode convencer seu
 cliente de desistir da acentuação. Não dá certo. Sai caracteres tudo trocado
 na hora de imprimir porque a impressora não trabalha com o código padrão
 Ansi

 []s


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


 - Original Message -
 From: Filippe Maymone
 To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
 Sent: Monday, March 23, 2009 8:45 PM
 Subject: [delphi-br] Linguagem ZPL - impressora Zebra

 Olá,

 Alguem trabalha com linguagem ZPL da impressora Zebra ?
 Eu tenho um sistema em delphi, que faz impressora na impressora zebra via
 linguagem ZPL.

 Esta funcionando certinho, porem eu não tenho acentuação, um cliente
 necessita que as etiquetas saeem com acetuações.

 Alguem sabe resolver este problema ???

 abraços,

 Filippe Maymone

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



Re: [delphi-br] Cópia do banco MySQL

2009-03-24 Por tôpico Eduardo Silva dos Santos
Uma boa opção também é o MySQLAdministrator, com ele você pode Agendar
backup's e tem muitos outros recursos.

2009/3/24 Wanderlei - Yahoo wandihut...@yahoo.com.br

   Olá amigo.

 Usa o MySQL Dump pra fazer a cópia do SCRIPT SQL
 Executar isso no prompt de comando:
 mysqldump.exe --host=ip --user=usuario --password=senha --databases
 nome_bd  backup.sql

 Valeu Wanderlei

  




-- 
...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 9961-7095
MSN: eduardo@gmail.com
Site: http://www.drdsistemas.com.br/
...


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



Re: RES: [delphi-br] Urgente: Como detectar o mo delo da placa mãe pelo Delphi

2009-03-24 Por tôpico Ricardo César Cardoso
Uma outra alternativa seria listar esse fato no manual do seu sistema ou num 
FAQ ou melhor ainda informar os usuários sobre esse bug e instruí-los sobre 
como detectar se o HP Technology está habilitado bem como instruções sobre como 
desabilitar, caso esse processo traga ganho de performance  da sua aplicação.

Tentar fazer isso com o Delphi vai envolver código assembly (como já disseram) 
e pode ser que vc esbarre com o erro de instrução privilegiada. Nesse caso é 
melhor apelar para algo mais adminstrativo, ou seja, um comunicado aos usuários 
do que se descabelar atrás de uma solução técnica que pode ou não atingir o 
usuário.

E a propósito, essa solução atende seu requisito de a solução tem que ser pra 
ontem.

Atte,
Ricardo.

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

--- Em ter, 24/3/09, clayton clay...@agriness.com escreveu:











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...@yahoogrup os.com.br [mailto:delphi...@yahoogrup os.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

 

















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

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



Re: [delphi-br] Linguagem ZPL - impressora Zebra

2009-03-24 Por tôpico Alexandre Rodrigues
Agora não tenho uma em mãos mas se não me engano quando li o manual dava 
para importar uma fonte true type para ela e usar!

Walter Chagas (Bol) escreveu:
 
 
 eu já trabalhei muito com elas e com as eltron. Pode convencer seu 
 cliente de desistir da acentuação. Não dá certo. Sai caracteres tudo 
 trocado na hora de imprimir porque a impressora não trabalha com o 
 código padrão Ansi
 
 []s
 
 
 Walter Alves Chagas Junior
 Belo Horizonte - MG - Brazil
 wchag...@bol.com.br mailto:wchagasj%40bol.com.br
 http://www.geocities.com/SiliconValley/Bay/1058 
 http://www.geocities.com/SiliconValley/Bay/1058
 http://delphitocorporerm.blogspot.com/ 
 http://delphitocorporerm.blogspot.com/
 MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com
 SKYPE: WalterChagasJr
 
 - Original Message -
 From: Filippe Maymone
 To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
 Sent: Monday, March 23, 2009 8:45 PM
 Subject: [delphi-br] Linguagem ZPL - impressora Zebra
 
 Olá,
 
 Alguem trabalha com linguagem ZPL da impressora Zebra ?
 Eu tenho um sistema em delphi, que faz impressora na impressora zebra 
 via linguagem ZPL.
 
 Esta funcionando certinho, porem eu não tenho acentuação, um cliente 
 necessita que as etiquetas saeem com acetuações.
 
 Alguem sabe resolver este problema ???
 
 abraços,
 
 Filippe Maymone
 
 [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] memo no RAVE

2009-03-24 Por tôpico Rafael Jorge
alquem ai sabe como eu faço para imprimir um texto muito grande num memo?
tipo eu vou montar o texto todo em tempo de execução num memo.
depois queria que o outro memo que esta dentro do rave carregase essas
linhas e imprimesse,
detalhe que ele fose tambem aparecendo nas proximas paginas e tal como o
quick rep fazia..
no quickrep eu botaria na propiedade strenchi se nao me engano como true e
ele saia creescendo o memo e colocando ele nas paganas sequintes.
e isso que eu gostraria de fazer.. to aguniado e precisando muito de uma
forma de escrever isso.
obrigado e t+ e muito grato a quem responder
t+

-- 
_
Rafael jorge alves
Desenvolvedor/analista
Ativa Soluções em TI.
Recife - PE


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



[delphi-br] Erro applyupdate

2009-03-24 Por tôpico Huander
Bom dia,

 

Seguinte pessoal, estou com erro em minha aplicação! Estou
trabalhando em n-camadas, utilizando SOAP. Faço uma inserção de dados no
clientdataset(via código, não tem nenhum formulário), dou um post no mesmo
(é possível verificar que a alteração esta em cache fazendo RecordCount no
CDs). Coloquei no evento AfterPost do ClientDataSet o evento para
ApplyUpdates pelo código, a seguir:

 

if (DataSet as TClientDataSet).ApplyUpdates(1)  0 then

 begin

   saveLog('Erro no applyUpdates');

  raise EDataBaseError.Create(Exception(exceptobject).Message);

 end

 else

  (DataSet as TClientDataSet).Refresh;

 

Ao ir no meu log verifico que acontece o seguinte erro:  10:34:53 - Access
violation at address 0054DE3E in module 'ClienteSOAP.exe'. Read of address
0004.

 

O único detalhe que posso adicionar que quando criei o Soap eu escolhi do
tipo CGI-Stand Alone e estou rodando dentro do apache...

 

Já mexi e remexi e nada de encontrar uma solução!

 

Agradeço sugestões pra encontrar o erro!

 

Huander 

 



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



[delphi-br] calculo de numeros elevado

2009-03-24 Por tôpico Luiz de Lima Lopes
Pessoal Boa Tardeestou com o seguinte problema estou tentando utilizar a 
função EXP.
  soma := StrToFloat('1') + StrToFloat(TabJuros.Label1. Caption);
  TabJuros.Edit1.Text := Exp(soma * Ln(StrToFloat(TabJuros.label27.Caption)));

mais não estou conseguindo elevar a potencia 1,5 elevado a 1 por exemplo nos 
calculos da 1,5 e na função 1.

será que é mais facil fazer esse tipo de função com a operação ^ 

Obrigado.

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



Re: [delphi-br] Compactar / Descompactar Mensagem Texto

2009-03-24 Por tôpico Alexandre Rodrigues
Tu pode usar a ZLib, que já vem incorporada com o delphi. É só procurar 
na net que tem vários exemplos.

Reginaldo Donizete Felix escreveu:
 
 
 Pessoal,
 Tenho um trabalho a ser feito, em que tenho uma mensagem XML que é enviada
 para um web service ,
 E estamos gerando um trafego muito grande no servidor com isso solicitaram
 que fizemos uma compactação da mensagem andes de enviar para o webservice e
 no webservice descompactar tudo isso.
 Bom acho que isso vai acabar gerando um outro problema relacionado com
 processamento no servidor, mais como a ordem da gerencia no presente é
 liberar banda no servidor.
 
 Gostaria de saber se alguem tem algum algoritimo de compacatação te texto,
 ou ferramenta e que eu possa depois implementar no meu aplicativo em Delphi
 e tambem fazer a descompactação no WebService Java.
 
 Dede já Obrigado.
 
 -- 
 Reginaldo D. Felix
 regife...@hotmail.com mailto:regifelix%40hotmail.com
 
 [As partes desta mensagem que não continham texto foram removidas]
 
 


Re: [delphi-br] Tabela de dados com milhões de regis tros

2009-03-24 Por tôpico Alisson Yahoo
Não entendi qual é exatamente o seu problema. Seria trazer muitos registros do 
banco para a aplicação? Se for esse o caso, você deveria trazer o mínimo 
possível de registros de acordo com parâmetros com o usuário escolher.

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



Res: [delphi-br] maiuscula em todos os dedits

2009-03-24 Por tôpico Emanuel Coutinho
Creio que aí se encontrva seu erro... Não se consegue limpara o conteúdo de um 
dbEdit, em nenhuma propriedade do dbEdit. Vc tem de usar o banco... O dbEdit é 
conectado ao banco, e as mudanças que ocorrem no banco refletem nele... As 
mudanças feitas nele (que se restringem a apenas alguns tipos) refletem no 
banco depois de um ApplyUpdates.

Aí no caso, o charcase facilitou de verdade!

 Sds,
_
Emanuel Coutinho
Salvador-Ba-Brasil





De: felipe govoni govoni.fel...@gmail.com
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 24 de Março de 2009 18:02:01
Assunto: Re: [delphi-br] maiuscula em todos os dedits


emanuel

realmente o charcase facilito e muito, mas na verdade meu codigo nao estava
errado
eu apenas copiei errado, pois eu estava compilando certo, mas na hora ela
nao
limpava os dbedit.

eu copiei a ideia de uma dica pra limpa edit e so alterei pra dbedit.

2009/3/24 Emanuel Coutinho emanuelcoutinho@ yahoo.com. br

   Concordo contigo, mas o código dele está quase pronto, e não sei quantos
 componentes ele terá de fazer mudar na mão grande... assim, automatizando é
 mais rápido para resolver... então dei foco a ajudar o erro do código...
 No meu caso, quando formato minhas telas, sempre uso as propriedades tipo
 CharCase, quando necessito disso, mas como ele não tinah feito...
 Imagina ele ter de fazer isso em 30 componentes de um formulario (mesmo
 estando em um pagecontrol. .. caramba... muito trabalho... mas se apagar o
 errinho no código... voilá... dois palitos!!!


 Sds,
  _ 
 Emanuel Coutinho
 Salvador-Ba- Brasil




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

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



[delphi-br] Convite pessoal de felipe govoni

2009-03-24 Por tôpico felipe govoni
Convite pessoal de felipe govoni


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



RES: [delphi-br] Ajuda sobre delphi 2009 e sql server 2000

2009-03-24 Por tôpico TI - Metalurgica Jano
Este é o erro.

 

Não é possível criar uma nova conexão porque o modo usado é o de transação
manual ou distribuída

METALÚRGICA JANO LTDA
FUNDIÇÃO DE AÇO CARBONO - INOX - MANGANÊS 
Alessandro Pichiteli
Analista de TI 
(37) 3214-1140

P Antes de imprimir, pense na sua responsabilidade com o Meio Ambiente e nos
custos de sua empresa

  _  

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Leandro A. Nunes
Enviada em: terça-feira, 24 de março de 2009 09:00
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Ajuda sobre delphi 2009 e sql server 2000

 

Alessandro,

Post os erros... talvez ajude.

[]’s

De: delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br os.com.br
[mailto:delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br
os.com.br] Em
nome de TI - Metalurgica Jano
Enviada em: terça-feira, 24 de março de 2009 08:22
Para: delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br os.com.br
Assunto: [delphi-br] Ajuda sobre delphi 2009 e sql server 2000

Bom dia a todos, 

Estou iniciando uma aplicação com delphi 2009 e sql server 2000.

Tenho um form onde utilizei o método nested para cadastro de companhias e
plantas da companhia.

Estou passando por vários tipos de erros sem nenhum sentido.

Alguém pode me ajudar?

METALÚRGICA JANO LTDA
FUNDIÇÃO DE AÇO CARBONO - INOX - MANGANÊS 
Alessandro Pichiteli
Analista de TI 
(37) 3214-1140

P Antes de imprimir, pense na sua responsabilidade com o Meio Ambiente e nos
custos de sua empresa

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



[delphi-br] Database Desktop

2009-03-24 Por tôpico Adenes Junior
Comprei um Sony Vaio com Windows Vista, instalei o Delphi 7 mais quando abro
o Database Desktop dar problema de compatibilidade, não mostras os botões de
salvar e demais... já fui em propriedades de aplicativo e coloquei  executar
com compatibilidade Windows XP, mesmo assim continua do mesmo jeito. O que
eu devo fazer?



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



Re: [delphi-br] Re: Função EXP

2009-03-24 Por tôpico Luiz de Lima Lopes
soh que o que esta acontecendo não é apenas questão de formatação..o que 
ocorre quando debug o codigo as variaves na 1 linha vem tudo certo.soma = 
1,5...na segunda linha que é esta abaixo vem a soma = 1,5 e o outro campo do Ln 
vem = 1...então o result deveria ser = 1,5 e não 1


  - Original Message - 
  From: Walter Chagas (Bol) 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, March 23, 2009 2:56 PM
  Subject: [delphi-br] Re: Função EXP


  Luiz, basta fazer:

  Edit1.Text := FormatFloat('###,##0.00',Exp(soma * 
Ln(StrToFloat(label27.Caption;

  []s

  Walter Alves Chagas Junior
  Belo Horizonte - MG - Brazil
  wchag...@bol.com.br
  http://www.geocities.com/SiliconValley/Bay/1058
  http://delphitocorporerm.blogspot.com/
  MSN: whitesock...@hotmail.com
  SKYPE: WalterChagasJr 

  Em 23/03/2009 12:22, Luiz de Lima Lopes   escreveu:

  Pessoal Bom Dia,
  Estou tendo o seguinte problema estou fazendo uma função para um calculo, 
porem esta dando [Error] (1314): Incompatible types: 'String' and 'Extended';
  Porem esta com o mesmo tipo nas duas variaveis...o que pode estar ocorrendo...

  Segue o codigo

  1308 var
  1309 soma : real;
  1310
  1311 begin
  1312
  1313 soma := StrToFloat('1') + StrToFloat(label1.Caption);
  1314 Edit1.Text := Exp(soma * Ln(StrToFloat(label27.Caption)));

  Obrigado

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



  

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



Re: RES: [delphi-br] Urgente: Como detectar o modelo d a placa mãe pelo Delphi

2009-03-24 Por tôpico Luiz Escobar
Esqueci de mencionar, todos os programas D6-PRO ou HARBOUR rodam melhor (mais 
rapidos) nos HTs, menos no DUO CORE que falei... (graças a DEUS só tem 1)
AH, o meu QUAD  de 2.6Ghz roda normal 
to aguardando o QUAD com HT que da 8 nucleos, 4 reais e mais 4 virtuais no 
HT... 
[]s
Luiz Escobar





From: Ricardo César Cardoso 
Sent: Tuesday, March 24, 2009 4:41 PM
To: delphi-br@yahoogrupos.com.br 
Subject: Re: RES: [delphi-br] Urgente: Como detectar o modelo da placa mãe pelo 
Delphi


Uma outra alternativa seria listar esse fato no manual do seu sistema ou num 
FAQ ou melhor ainda informar os usuários sobre esse bug e instruí-los sobre 
como detectar se o HP Technology está habilitado bem como instruções sobre como 
desabilitar, caso esse processo traga ganho de performance  da sua aplicação.

Tentar fazer isso com o Delphi vai envolver código assembly (como já disseram) 
e pode ser que vc esbarre com o erro de instrução privilegiada. Nesse caso é 
melhor apelar para algo mais adminstrativo, ou seja, um comunicado aos usuários 
do que se descabelar atrás de uma solução técnica que pode ou não atingir o 
usuário.

E a propósito, essa solução atende seu requisito de a solução tem que ser pra 
ontem.

Atte,
Ricardo.

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

--- Em ter, 24/3/09, clayton clay...@agriness.com escreveu:

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...@yahoogrup os.com.br [mailto:delphi...@yahoogrup os.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










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]



Res: [delphi-br] maiuscula em todos os dedits

2009-03-24 Por tôpico Silvio Clécio
Eu uso assim sem problemas:

---
procedure TCustomEditForm.FormShow(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to Pred(ComponentCount) do
if (Components[I] is TLabeledEdit) then
  (Components[I] as TLabeledEdit).CharCase := ecUpperCase;
end;
---

Troque o TLabeledEdit por TDBEdit.

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




De: felipe govoni govoni.fel...@gmail.com
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 24 de Março de 2009 11:17:32
Assunto: [delphi-br] maiuscula em todos os dedits


bom dia

algume sabe me dize oq tem de errado nesse codigo:

for j := 0 to frmFinasa.Component Count - 1 do
if (frmFinasa.Componen ts[j] is tdbEdit) then
(frmFinasa.Componen ts[j] as tdbEdit).Text :=
UpperCase((frmFinas a.Components[ j] as TdbEdit).Text) ;

ele nao faz nada, e quando tento debuga, no .text da a seguinte mensagem:
expression illegal in evaluator

tentei faze um teste com o seguinte codigo e tambem nao fez nada

for j := 0 to frmFinasa.Component Count - 1 do
if (frmFinasa.Componen ts[j] is tdbEdit) then
(frmFinasa.Componen ts[j] as tdbEdit).Text := 'teste';

alguem pode me ajuda?

obrigado

-- 
Felipe Govoni
 -
GOVONI Sistemas
Fone 8472-8718
www.govoni.com. br   


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

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



[delphi-br] Re: Commit não insere todos os registros

2009-03-24 Por tôpico Joao Henrique Levada
Além da importante dica do Evandro, verifique se o seu objeto responsável pela 
transação, não está dando Commit sozinho.

Pode existir a propriedade AutoCommit (ou alguma que o valha) e esta 
propriedade estar configurada como True.



Res: RES: [delphi-br] Urgente: Como detectar o m odelo da placa mãe pelo Delphi

2009-03-24 Por tôpico Silvio Clécio
Olá galera,

Na JVCL tem um componente que detecta, o JvComputerInfoEx.

P.S: Espero que minha resposta apareça para os usuários da lista ainda hoje.

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




De: clayton clay...@agriness.com
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 24 de Março de 2009 13:03:30
Assunto: RES: [delphi-br] Urgente: Como detectar o modelo da placa mãe pelo 
Delphi


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...@yahoogrup os.com.br [mailto:delphi...@yahoogrup os.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   


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

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



Re: [delphi-br] MyDAC

2009-03-24 Por tôpico Luiz Escobar
Escolha a que quizer e use seu cartão internacional (VISA/MASTERCARD)...
http://www.devart.com/mydac/ordering.html
[]s
Luiz Escobar





From: Bruno Lepesqueur 
Sent: Tuesday, March 24, 2009 4:12 PM
To: delphi-br@yahoogrupos.com.br 
Subject: [delphi-br] MyDAC


Como que eu faço pra comprar o MyDAC para o delphi 7? 

Obrigado!

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





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



[delphi-br] Windows Vista x Database Desktop

2009-03-24 Por tôpico Adenes Junior
Comprei um Sony Vaio com Windows Vista, instalei o Delphi 7 mais quando abro
o Database Desktop dar problema de compatibilidade, não mostras os botões de
salvar e demais... já fui em propriedades de aplicativo e coloquei  executar
com compatibilidade Windows XP, mesmo assim continua do mesmo jeito. O que
eu devo fazer?

 



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



Re: [delphi-br] MyDAC

2009-03-24 Por tôpico Eduardo Silva dos Santos
Você deve comprar direto no site da DevArt, a compra é feita on-line, com
cartão de crédito fica muito mais fácil.

http://devart.com/mydac/ordering.html

comprando o MyDAC 5 você poderá usar em todas as Ide's que ele suporta, do
Delphi 5 ou 2009, C++ Builder ou Kylix

Parabens pela escolha e bem-vindo ao time dos que não tem problema com
componente de acesso.




2009/3/24 Bruno Lepesqueur brunolbra...@yahoo.com.br

   Como que eu faço pra comprar o MyDAC para o delphi 7?

 Obrigado!

 [


 




-- 
...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 9961-7095
MSN: eduardo@gmail.com
Site: http://www.drdsistemas.com.br/
...


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



Re: [delphi-br] Tabela de dados com milhões de regi stros

2009-03-24 Por tôpico Eduardo Silva dos Santos
Creio que deveria ser sanada essa deficiência na leitura do banco.

essa metodologia de carregar os dados para a memória não é uma boa opção
porque vai afetar o desempenho da estação.

nos informe qual é o banco de dados, qual a tecnologia de acesso e mais
detalhes específicos do problema.


2009/3/24 josehenriqu...@ymail.com josehenriqu...@ymail.com

   Amigos bom dia, gostaria de saber se alguém pode me indicar uma solução
 para um problema que parece simples.

 Temos algumas tabelas que tem baixa manutenção, mas alto índice de pesquisa
 nas mesmas. Eis ai nosso gargalo, o acesso ao banco de dados, por mais que
 se melhore o acesso ao BD continua sendo o nosso gargalo.
 Então uma opção sugerida seria de no iniciar a aplicação essas tabelas
 fossem lidas do banco e ficassem em memória para sempre (notem as aspas)
 até que seja realmente necessário fazer o recarregamento da tabela.
 Gostaria de saber se alguém já teve um caso desses e qual a tecnologia,
 metodologia ou mágica foi feita.
 Se puderem me ajudar ficarei muito grato.

 abs!!!





-- 
...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 9961-7095
MSN: eduardo@gmail.com
Site: http://www.drdsistemas.com.br/
...


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



Re: [delphi-br] Linguagem ZPL - impressora Zebra

2009-03-24 Por tôpico Alexandre Rodrigues
Uma coisa que da para fazer é montar a etiqueta em uma imagem e mandar 
para impressora

Filippe Maymone escreveu:
 
 
 Nossa que coisa .. cliente é f
 E o pior que a minha empresa é licenciada dessa marca ... e temos que
 atender ...
 Vou ter que fazer a impressão desse cliente fora do sistema, terei que
 montar via programas de etquetas, o que vai me gerar varios problemas...
 mais se não tenho solução ...rs.rs
 
 Abraços,
 
 2009/3/23 Walter Chagas (Bol) wchag...@bol.com.br 
 mailto:wchagasj%40bol.com.br
 
   eu já trabalhei muito com elas e com as eltron. Pode convencer seu
   cliente de desistir da acentuação. Não dá certo. Sai caracteres tudo 
 trocado
   na hora de imprimir porque a impressora não trabalha com o código padrão
   Ansi
  
   []s
  
  
   Walter Alves Chagas Junior
   Belo Horizonte - MG - Brazil
   wchag...@bol.com.br mailto:wchagasj%40bol.com.br 
 wchagasj%40bol.com.br
   http://www.geocities.com/SiliconValley/Bay/1058 
 http://www.geocities.com/SiliconValley/Bay/1058
   http://delphitocorporerm.blogspot.com/ 
 http://delphitocorporerm.blogspot.com/
   MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com 
 whitesockets%40hotmail.com
   SKYPE: WalterChagasJr
  
  
   - Original Message -
   From: Filippe Maymone
   To: delphi-br@yahoogrupos.com.br 
 mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
   Sent: Monday, March 23, 2009 8:45 PM
   Subject: [delphi-br] Linguagem ZPL - impressora Zebra
  
   Olá,
  
   Alguem trabalha com linguagem ZPL da impressora Zebra ?
   Eu tenho um sistema em delphi, que faz impressora na impressora zebra via
   linguagem ZPL.
  
   Esta funcionando certinho, porem eu não tenho acentuação, um cliente
   necessita que as etiquetas saeem com acetuações.
  
   Alguem sabe resolver este problema ???
  
   abraços,
  
   Filippe Maymone
  
   [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]
 
 


Re: [delphi-br] Cópia do banco MySQL

2009-03-24 Por tôpico Luiz Escobar
Estou migrando aos poucos ao InnoDB também, alias nem migrando o que vem novo é 
feito em InnoDB, pelas vantagens ja comentadas, porem NUNCA tive problemas com 
os MyISAM.
[]s
Luiz Escobar




From: Eduardo Silva dos Santos 
Sent: Tuesday, March 24, 2009 4:20 PM
To: delphi-br@yahoogrupos.com.br 
Subject: Re: [delphi-br] Cópia do banco MySQL


Amigo, você acertou na mega sena, usar InnoDB é a melhor coisa que existe.

Usando este engine você terá Integridade referencial, crash recovery,
suporte a transações e mais um monte de recursos que o InnoDB, além de
sofrer com corrupção dos dados caso seu servidor seja desligado.

No innodb a coisa funciona um pouco diferente, os dados e os indices das
tabelas ficam no TableSpace, um arquivo chamado IbData, os outros dois são
arquivos de log.

Na pasta do banco ficam apenas os arquivos frm que são os headers da tabela.

você tem duas opções para copiar um banco innodb:
1 - para o serviço, copiar os arquivos Ibdata e iblog e a pasta do banco
que esta dentro da pasta data.
(fazendo isso ao colocar no destino você apagará qualquer banco
existente, visto que todos são salvos no arquivo IbData)

2 - Essa opção é a melhor e mais segura, gerar um script do banco com a
ferramenta de sua preferência e executar esse script na máquina de destino e
recriar o banco.

é isso ai, seja feliz com Innodb e dê adeus aos problemas de corrupção com
tabelas MyISAM.

2009/3/24 Bruno Lepesqueur brunolbra...@yahoo.com.br

 Pessoal... to usando o Delphi 7 com o MySQL 5, e trabalho com eles na
 empresa e to tentando levar pra casa tb, mas não consigo fazer o banco de
 dados funcionar em casa.

 Seguinte... eu usava um banco do tipo MyISAM e agora converti ele para
 InnoDB. Pelo que entendi o MyISAM não trabalha com relacionamentos entre
 tabelas (chave estrangeira) e refiz o meu banco todo como InnoDB e fiz os
 relacionamentos entre tabelas, mas o problema é que se eu apenas copiar a
 pasta do banco de dados e colar no outro micro ele não aceita!
 OBS.: O banco que eu tinha no formato MyISAM aceitava eu apenas copiar o
 banco (C:\Arquivos de programas\MySQL\MySQL Server 5.0\data\nome do banco)
 de um computador e colar no outro para que tudo funcionasse.

 O que vcs me sugerem?

 Obrigado!

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

 


-- 
...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 9961-7095
MSN: eduardo@gmail.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]



[delphi-br] Erro em ShowModal

2009-03-24 Por tôpico Alisson Yahoo
Tenho um form que é mostrado com ShowModal. Quando o programa mostra uma 
mensagem com MessageBox o form é joagado para trás dos outros forms abertos. O 
programa fica travado pois o único form que poderia ser acessado é o form que 
foi jogado pra trás. Alguém o que pode estar causando esse problema?

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



Re: [delphi-br] Tabela de dados com milhões de regi stros

2009-03-24 Por tôpico Marlon Tiedt
Primeiro, para a gente conseguir te ajudar, você tem que pasar mais algumas
informações, do tipo:
* qual é o banco de dados
* versão do banco
* tipo de conexão com o banco de dados
* quantidade real de registros na tabela
* quantidade real de colunas
* faz join com alguma outra tabela?

Banco de dados grande, não é banco de dados lento.

Atenciosamente

Marlon

2009/3/24 Alisson Yahoo alss...@yahoo.com.br

   Não entendi qual é exatamente o seu problema. Seria trazer muitos
 registros do banco para a aplicação? Se for esse o caso, você deveria trazer
 o mínimo possível de registros de acordo com parâmetros com o usuário
 escolher.

 [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] maiuscula em todos os dedits

2009-03-24 Por tôpico felipe govoni
nossa galera, quanta repercusão
hehehe


ja resolvi, nao precisava de codigo troquei a propriedade e resolveu.
vlw



2009/3/24 Wagne®_Fix wagner_...@yahoo.com.br

   Não precisa de programação para isso...

 Seleciona todos os Edits que você quer em maiusculo e vai nas propriedades
 muda o charcase para ecUpperCase

 --- Em ter, 24/3/09, felipe govoni 
 govoni.fel...@gmail.comgovoni.felipe%40gmail.com
 escreveu:


 De: felipe govoni govoni.fel...@gmail.com govoni.felipe%40gmail.com
 Assunto: [delphi-br] maiuscula em todos os dedits
 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
 Data: Terça-feira, 24 de Março de 2009, 11:17

 bom dia

 algume sabe me dize oq tem de errado nesse codigo:

 for j := 0 to frmFinasa.Component Count - 1 do

 if (frmFinasa.Componen ts[j] is tdbEdit) then

 (frmFinasa.Componen ts[j] as tdbEdit).Text :=

 UpperCase((frmFinas a.Components[ j] as TdbEdit).Text) ;

 ele nao faz nada, e quando tento debuga, no .text da a seguinte mensagem:

 expression illegal in evaluator

 tentei faze um teste com o seguinte codigo e tambem nao fez nada

 for j := 0 to frmFinasa.Component Count - 1 do

 if (frmFinasa.Componen ts[j] is tdbEdit) then

 (frmFinasa.Componen ts[j] as tdbEdit).Text := 'teste';

 alguem pode me ajuda?

 obrigado

 --

 Felipe Govoni

  -

 GOVONI Sistemas

 Fone 8472-8718

 www.govoni.com. br

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

  




-- 
Felipe Govoni
-
GOVONI Sistemas
Fone 8472-8718
www.govoni.com.br


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