Silva_henry

Ok Obrigado. Vou aguardar a chegada do Delphi 2009 e já realizo o teste,depois posto o resultado se funcionou o componente. Abraços

Opa,obrigado pelo link Jhonas. Eu baixei o arquivo,porém tem apenas do Delphi 6 até o Delphi 2007,acha que vai funcionar ? Acho que o delphi 2009 vai chegar aqui na empresa Sexta-feira que vem.... Abraços

Olá pessoal. Trabalho atualmente com o Delphi 2007. Nunca fui de usar componestes terceiros do delphi,mas exclusivamente 1 eu utilizo porque achei interessante desde a época que eu utilizava o Delphi 7,é o RXLIB. Segue o link : http://sourceforge.net/projects/rxlib/ Eu tenho rodando este componente aqui no Delphi 2007,e inclusive tenho muitos projetos de sistema rodando ele... Ele possui aqueles rxtols, e etc ... A alguns dias,a empresa do qual sou programador ( único ),efetuou a compra da licença do Delphi 2009. Minha pergunta é : Nas informações do componente,não esta descrito que roda em Delphi 2009,será que vou ter problemas ? Sera que tem como realizar a instalação deste componente no delphi 2009 ? Obrigado Abraços

Olá Jhonas. Muito obrigado pela resposta.Fiquei meio preocupado com a quantidade de tabelas,por isso resolvi postar.Grato pelo esclarecimento. Abraços

O Timer seria como se fosse um relógio. Ele possue a propriedade Interval,onde 1000 ms se não me engano é 1 segundo. Voce poderia utilizar este componente e ir checando o tempo,e depois de um determinado intervalo definido por voce,ele realiza a checagem de novas mensagens para voce,provavelmente voce já deve ter esta função de checagem pronta. Segue um link que fala sobre o timer,não cheguei a ler ,só uma olhada por cima pois estou no serviço,mas veja se ajuda em alguma coisa,esta no meio da pagina eu acho.> http://www.geocities.com/WallStreet/Exchan...hi/delphi_3.htm Abraços

Acho que voce poderia utilizar o componente TIMER do Delphi ( System/timer ) ,por exemplo,voce poderia programar este componente para cada 5 min ele realizar um rotina que checa se há novas mensagens.O timer é bom para isto.Voce chegou a pensar nele ? De qualquer forma vamos aguardar alguém mais experiente para lhe auxiliar melhor Abraços

A quantidade de tabelas que eu possuo no meu banco de dados,afeta de alguma maneira o desempenho de meu software ? O software é em Delphi mesmo,e utilizo o banco de dados FireBird. Atualmente possuo 19 tabelas em meu banco,e estou prevendo o aumento de 7 a 8 tabelas,ficando no total de mais ou menos 27 tabelas... Isto vai ser prejudicial se tratando de desempenho ? O sistema irá rodar em rede,provavelmente uns 10 usuários no máximo irão acessar,no entanto acho que uns 5 apenas usarão instantaneamente. Estou com medo de adicionar muitas tabelas,e o sistema ficar lento,mas acredito que não perde desempenho né ? Obrigado Abraços

Conseguiiii Encontrei o problema amigos,muito obrigado pela ajuda. Resultava 0 (zero) porque eu não estava usando o valor das minhas variaveis amp_max,amp_min,kw_max,kw_min depois das conversões. Apartir do momento em que eu usei elas após a conversão,o valor deixou de ser 0 (zero ). Por exemplo : amp_max := StrtoFloat(stramp_max); amp_min := StrToFloat(stramp_min); kw_max := StrtoFloat(strkw_max); kw_min := StrTofloat(strkw_min); Aqui eu atribui a elas o valor arrendondado das variaveis do tipo string. Se meu código terminasse ai,eles continuariam valendo zero,porém se eu usar as 4 variaveis depois desta conversão,elas passam a valor correto. Entenderam ? Após eu atribuir o valor a elas,eu tenho que usar elas em algum lugar,como eu não estava usando,ficava sempre valendo zero,rsrs Obrigado pelo grande suporte aqui prestado,se não fosse por ele eu não conseguiria nem ter arredondado. Abraços

Olá ,bom dia. Meu problema persiste... =( O código esta assim( nesta sequencia mesmo): //Aqui são variaveis do tipo string,eu estou conseguindo arredondar perfeitamente,os resultados são // valores como "3,6", "0,4", exatamente como eu quero.Obs,estou usando debug stramp_max := FloatTostr(round(modulo.cds_descmotortriAMP_SCARGA_MAX.value * 100) /100); stramp_min := FloatTostr(round(modulo.cds_descmotortriAMP_SCARGA_MIN.value * 100) /100); strkw_max := FloatToStr(round(modulo.cds_descmotortriKW_SCARGA_MAX.value * 100) /100); strkw_min := FloatToStr(round(modulo.cds_descmotortriKW_SCARGA_MIN.value * 100) /100); //Aqui é onde eu tento converter as " strings arredondadas" em float,para eu poder realizar algumas comparações futuramente.Porém todas estas variaveis se resultam sempre em 0,ou seja,não converte a variavel string ( que esta com os valores arredondados certinho porque eu debuguei elas ) amp_max := StrtoFloat(stramp_max); amp_min := StrToFloat(stramp_min); kw_max := StrtoFloat(strkw_max); kw_min := StrTofloat(strkw_min); .Em nenhum outro momento eu zero estas variaveis,isto que é estranho... Sera que é por causa da "virgula" no lugar do "ponto" ? Pensei nesta possibilidade agora no decorrer desta mensagem.Vou tentar fazer um laço e trocar a virgula pelo ponto para ver o que acontece.Qualquer idéia que alguém tiver me ajudem ai,rsrs. Obrigado // EDITADO// O lance de trocar a virgula pelo ponto também não tem nada a ver,não deu certo. O engraçado foi que eu tentei simular o mesmo passo em um form limpo de outro projeto,e o problema não ocorre...a variavel não fica zerada,meu código acima segue uma sequencia,não cai em nenhum outro lugar o ponteiro,porém com o debug eu vejo os valores retornando zero,aff,isto ta me tirando o sono já,rsrs Obrigado Abraços

Opa,felicidade de pobre dura pouco,rsrs Outro problema. Como eu vou fazer uma comparação,eu preciso que este valor seja em Float. Quando eu tento converter ele para Float,minha variavel fica zerada,tem algum por que ? por exemplo: //Aqui faz o arredamento e me retorna um valor string aux := floattostr(round(modulo.cds_descmotortriAMP_SCARGA_MAX.value * 100)/100); //Aqui eu tento converter a string em Float,porem minha variavel aux2 continua zerada após esta linha ser executada. aux2 := StrToFloat(aux); Abraços

Olá Salve salve grande Jhonas,rsrs. Deu certo sua função,usei numa variáve: aux := floattostr(round(modulo.cds_descmotortriAMP_SCARGA_MAX.value * 100)/100); Só uma perguntinha,qual o segredo do round ? o que ele faz ? Obrigadão mesmo,salvou minha vida aqui Abraços

Olá pessoal,estou com um pequeno problema. modulo.cds_descmotormonoAMP_SCARGA_MAX.value Este campo no meu banco de dados ( Firebird ) é Float Ele me retorna um valor assim : 3,59999999.... Eu precisava arredondar este valor para 3,6... Como proceder ? Não posso transformar em String porque eu vou comparar este valor depois... e assim por diante... se eu tiver um valor 3,7888 arredonda para 3,8... Não posso mudar a estrutuda do banco,pois faço calculos que usam 2 ou 3 casas decimais,apenas neste caso tenho que usar 1 casa decimal. Obrigado Até mais

Ok! Muito obrigado pelo suporte Jhonas :D Extremamente satisfeito. Vou realizar uma busca em busca deste componente,caso eu encontre eu volto aqui para postar seu nome e deixar meio que documentado aqui no fórum para futuras buscas. Obrigado mais uma vez Abraços e tenha uma boa tarde!

Olá Jhonas,boa tarde. Primeiramente muito obrigado pelo suporte,vou aproveitar muito os links que voce me informou! Mas estes gráficos não ficam com linhas retas ? ( layout das curvas ). Por exemplo,eu vou conseguir fazer o gráfico do link abaixo com o TeeChart ? http://img521.imageshack.us/my.php?image=graficoqe7.jpg as curvas vão ficar legais ?

Olá pessoal. Dei uma pesquisada mas não encontrei o que procuro. Por exemplo,estou precisando gerar um gráfico de "curva" do desempenho de um equipamento,para isso penso em usar o teechart. Até ai tudo bem,porém o Teechart só gera gráficos com "linhas retas" de subida ou descida,eu realmente precissava que ele gerasse não em formato de linhas,mas sim de curvas mesmo,nada de retão... Na versão que acompanha o Delphi tem como eu fazer isto ? Há algum outro semelhante ao Teechart ? tem como eu adicionar novos tipos de gráficos ao Teechart ? Obrigado Abraços

Olá. Agraço a todos pelo suporte. Encontrei no link que o jhonatas passou a solução,eu até tinha visto este tópico anteriormente porém não tinha entendido o funcionamento,enfim... Estou muito grato. A query que me deu certo foi essa : SELECT DISTINCT (HP), COD_BOMBA, ESTAGIO FROM DESC_BOMBA WHERE COD_BOMBA = 1 Obrigado. Abraços.

Isso,é mais ou menos isto que eu quero,porém quando eu realizo esta operação,a consulta só me retorna os HPs diferentes,mas juntos com os HPs eu queria que me retornasse também os outros campos do registro,como o estagio,codigo vazao,e etc... Ou seja,dou um distinct para pegar somentos os registros com HPs diferentes,porém mostre-me todos os campos que contem neste registro pertencentes a este HP distinto,e não apenas o HP... Obrigado muito pela ajuda. Abraços

Obrigado pela ajuda. modulo.cds_descbombas.close; modulo.sql_descbombas.sql.clear; modulo.sql_descbombas.sql.Add('SELECT * FROM DESC_BOMBA '); modulo.sql_descbombas.sql.Add('WHERE COD_BOMBA = ' + Cod_bomba.Text); modulo.cds_descbombas.Open(); Esta tabela na verdade são as descrições de uma bomba,neste caso um mesmo codigo de bomba pode ter descrições com HPs iguais,porém eu queria selecionar todos os campos da tabela,mas sem repetir registros com HPs iguais,por isso a necessidade de se usar o DISTINCT. Não sei se consegui explicar corretamente,mas qualquer coisa to aki Obrigado Abraços

OLá pessoal,tudo bom? Tenho uma dúvida em relação ao comando distinct em sql. Por exemplo. Tenho uma tabela do qual há as descrições de uma motobomba.eu queria dar um select em todos os campos desta tabela da motobomba de código 1 por exemplo,porém eu só queria selecionar as descrições de HP diferente,ou seja,eu teria que usar um distinct no HP. Não estou conseguindo fazer isto. Abaixo segue a minha lógica ( errada ),se alguém souber a sintaxe eu agradaceria muito: SELECT * FROM DESC_BOMBAS WHERE COD_BOMBA = 1 AND DISTINCT HP Abraços

Olá pessoal Preciso fazer com que minha aplicação Delphi tenha acesso ao banco progress. Preciso pegar os clientes cadastrados no sistema EMS,o banco e a aplicação é em Progress. Como devo fazer par realizar esta "comunicação",alguma idéia ? Obs : Não vou escrever no banco Progress,só vou mesmo pegar alguns dados. Uso O delphi 2007 / FireBird. Algum link ou dica de apoio de como devo me proceder ? Obrigado Abraços

Olá. modulo.cds_bombasALT.value := MSExcel.ActiveSheet.Range['AJ' + IntToStr(i)].Value; Deste jeito ele me gera um número com 3 casas decimais,e não arredonda entendeu ? O que eu mais quero seria arredondar mesmo. obrigado Abraços

Deixei assim; modulo.cds_bombasALT.value := ('###.#',MSExcel.ActiveSheet.Range['AJ' + IntToStr(i)].Value); Recebo a mensagem de erro a seguir : [DCC Error] Unit1.pas(274): E2029 ')' expected but ',' found [DCC Error] Unit1.pas(286): E2029 '.' expected but ';' found

Problemas,rsrs Eu recebo um valor tipo String do excel ( pelo o que eu entendi) veja ; modulo.cds_bombasALT.value := Formatfloat('###.#',MSExcel.ActiveSheet.Range['AC' + IntToStr(i)].Value); erro : Incompatible types Double and String Obs : O campo ALT da tabela é float

Opa,valeu pelas informações pessoal. No caso vou ter que usar por obrigatoriedade da empresa,com uma casa decimal depois da vírgula mesmo.na verdade é uma tabela contendo informações para testes de bombas submersas.Este valor é padronizado pela empresa arrendodado mesmo. Vou efetuar os testes aqui,assim que terminar os testes e outras coisinhas aqui eu posto o resultado De qualquer forma muito Obrigado pelas informações! Abraços

Eu quis dizer 146,5 mesmo,rsrs,me desculpe. Uso Banco firebird O problema é que a planilha do qual estou importando os dados,é muito grande mesmo,meio complexa,pois o valor que estou puxando é o valor de um campo que possui uma fórmula que realiza cálculos da varios campos.na verdade o valor esta arrendondado,porém ao invéz de meu codigo pegar o valor do campo,ele pega o valor do resultado das formulas que contem dentro do campo ,que por sua vez não esta formatado. No firebird tem como eu arredondar apenas em um campo? pois em outros campos preciso da formatação original mesmo. Acho que se usa o formatfloat,mas não sei como proceder...