Re: [delphi-br] Emulador de impressora
Guionardo, testei aqui e tudo ocorreu ok! Mas pintou uma dúvida que não deu tempo de testar ainda... Será que existe alguma maneira de desmembrar esta parte do Office ? Pq se o cliente tiver outra versão do Office que não seja o 2003 corre o risco de ficar na mão, não é? Sds, Ricardo. Guionardo Furlan [EMAIL PROTECTED] escreveu: Eu estava usando um soft tipo cutewriter e abrindo o pdf gerado depois. Mas ok, usando o soft do office tá resolvendo o problema. Em 20/09/07, Desenvolvimento (Anderson) [EMAIL PROTECTED] escreveu: hu nesse caso é diferente! achei q tu tava usando o quickrep... dessa forma, acho q compensa vc usar o cutewriter, q gera um pdf se quiser, eu tenho... - Original Message - From: Guionardo Furlan To: delphi-br@yahoogrupos.com.br Sent: Thursday, September 20, 2007 2:51 PM Subject: Re: [delphi-br] Emulador de impressora Nenhum, estou fazendo gráficos personalizados e usando TPrinter. Em 20/09/07, Vinicius da Silva Pinto [EMAIL PROTECTED] escreveu: Qual o gerador de relatorio que vc esta usando??? O QR tem preview na tela, o RB tbm.eu sempre faço correção na tela utilizando o RB ou QR. -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com Flickr agora em português. Você clica, todo mundo vê. Saiba mais. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Componente TImage
Amigo, tenta esse macete: em tempo de projeto, coloque uma imagem do tipo jpg e depois a tire, rode o programa e tenta abrir uma imagem jpg Também evite colocar somente a instrução que colocou: image1.picture.loadfromfile. Coloque assim if (OpenPictureDialog1.execute) then aí vc coloca a sua linha. Isso é para evitar que, caso clique em cancelar, não gere uma exceção. Depois diga se funcionou. Comigo funciona Em 20/09/07, Ribamar Sousa [EMAIL PROTECTED] escreveu: Tentei fazer novamente uma aplicacao colocando o mesmo comando: Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName); Sendo que agora está aparecendo esse erro: --- Debugger Exception Notification --- Project TESTE.exe raised exception class EInvalidGraphic with message 'Unknown picture file extension (.)'. Process stopped. Use Step or Run to continue. --- OK Help --- Alguém sabe dizer o que seria?? Agradeço desde já Abraços - Mensagem original De: Rubem Nascimento da Rocha [EMAIL PROTECTED]djpardalrocha%40hotmail.com Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Enviadas: Quarta-feira, 19 de Setembro de 2007 22:56:20 Assunto: RE: [delphi-br] Componente TImage Inclua na cláusula uses do teu form a unit jpeg. Sds. To: [EMAIL PROTECTED] os.com.brFrom: [EMAIL PROTECTED] com.brDate: Wed, 19 Sep 2007 18:51:20 -0700Subject: [delphi-br] Componente TImage Pessoal seguinte...eu estou utilizando o componente TImage...e adicionei tambem o OpenPictureDialog e no clique do botao eu façoImage1. Picture.LoadFrom File(OpenPicture Dialog1.FileName );para selecionar a imagem...sendo que só seleciona imagens:*.BMP, *.ICO, *.EMF, *WMFeu queria selecionar tambem *.JPG...isso seria possivel???Caso nao seja... qual seria uma solucao para isso?!?!?!Abraç osFlickr agora em português. Você clica, todo mundo vê.http://www.flickr. com.br/[As http://com.br/%5BAs partes desta mensagem que não continham texto foram removidas] _ _ _ _ _ _ Receba GRÁTIS as mensagens do Messenger no seu celular quando você estiver offline. Conheça o MSN Mobile! http://mobile. live.com/ signup/signup2. aspx?lc=pt- br [As partes desta mensagem que não continham texto foram removidas] Flickr agora em português. Você clica, todo mundo vê. http://www.flickr.com.br/ [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] Duvida ao trabalhar com TStringList
Bom dia João!
Na verdade o StringList Final (o que é alimentado pela função
Seleciona_Velocidade_Corte) serve apenas como um container de dados que
serão utilizados depois em alguns cálculos, mas num primeiro momento apenas
dois itens desse TStringList me interessam, os itens 5 e 6.
O correto seria criar classes mais específicas para a minha situação, mas tenho
que testar a lógica da aplicação antes, gostaria de fazer algo mais simples,
usando as classes do Delphi antes de criar classes de negócio
Basicamente eu tenho a seguinte sequencia (desculpe se estou repetindo o q já
escrevi, mas esqueci de detalhar na mensagem anterior):
/**/
Var
SLFinal : TStringList;
Especificacao : String;
Dimensao : Real;
VC_Maximo : Real;
VC_Minimo : Real;
Area_Corte : Real;
Begin
SLFinal := TStringList.Create;
{ bloco de comandos }
SLFinal := Seleciona_Velocidade_Corte(Especificacao, Dimensao);
{ bloco de comandos }
VC_Maximo := Area_Corte / StrToFloat(SLFinal.Strings[5]);
VC_Minimo := Area_Corte / StrToFloat(SLFinal.Strings[6]);
End;
/**/
Espero ter sido mais claro agora.
Desde já grato,
Ricardo.
Flickr agora em português. Você clica, todo mundo vê. Saiba mais.
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Controle de Usuarios
http://www.usercontrol.net/ Filippe Maymone escreveu: Galera, Qual a melhor forma de se fazer controle de usuarios ?? nunca fiz nenhum tipo de controle ... O login eu faço direto no banco SQL dessa forma: Conexao.Connected := false; Conexao.Params.Values['HostName']:='SEVER02'; Conexao.Params.Values['database'] := 'Banco'+ edtEmpresa.Text; Conexao.Params.Values['User_Name']:=edtLogin.Text; Conexao.Params.values['Password']:=edtPass.Text; Conexao.Open; Estou utilizando Delphi 2006, MS SQL SERVER e Coneção DBExpress... So que agora preciso determinar o que cada usuario pode fazer ... Ja fiz uma tabela no meu banco com a seguinte estrutura. tblUsuarios Usuario DtModificação RelCredito - sessões que quero gerenciar AtualizaVendas Transporte abraços Filippe Ventura Maymone (Analista de Suporte / Desenvolvedor) WEB - HTML/ASP/JavaScript Windows - Delphi Banco - SQL Server/Firebird 2.0 Servidor - Windows / Debian / RedHat MSN: [EMAIL PROTECTED] mailto:lippesk8%40hotmail.com [As partes desta mensagem que não continham texto foram removidas] ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/
Re: [delphi-br] Deletar linhas
È uma tabela que deve ser atualizada duranre a execução do prograna, com os numeros de lore de produto que esta sendo faturado. - Original Message - From: Robson To: delphi-br@yahoogrupos.com.br Sent: Thursday, September 20, 2007 9:39 PM Subject: Res: [delphi-br] Deletar linhas Perguntinha básica, mas pq vc quer apagar linha por linha Kaputz, Robson Skype: kaputz_gri - Mensagem original De: Rubem Nascimento da Rocha [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quinta-feira, 20 de Setembro de 2007 16:50:35 Assunto: RE: [delphi-br] Deletar linhas Puro erro de lógica! Quando vc faz o Delete(), na hora vc já se posiciona no registro seguinte, por isso não precisa desse Next(). Reavalie a lógica desse laço. Sds. To: [EMAIL PROTECTED] os.com.brFrom: [EMAIL PROTECTED] com.brDate: Thu, 20 Sep 2007 16:43:38 -0300Subject: [delphi-br] Deletar linhas Usando o codigo abaixo, a cada execução, sao apagadas as linhas impares, mas as linhas pares nao sao deletadas. Porque ? Como fazer para acertar ?Grato-- - - - - - ---beginwith Dmodule.DsTotLotesP AT dobeginDmodule. DsTotLotesPAT. Close;Dmodule. DsTotLotesPAT. Open;Dmodule. DsTotLotesPAT. First;while not Dmodule.DsTotLotesP AT.Eof dobeginDmodule. DsTotLotesPAT. Delete;Dmodule. DsTotLotesPAT. Next;end; end;Dmodule. DsTotLotesPAT. Close;--- - - - - - - -[As partes desta mensagem que não continham texto foram removidas] _ _ _ _ _ _ Receba GRÁTIS as últimas novidades do esporte direto no seu Messenger! http://signup. alerts.live. com/alerts/ login.do? PINID=37485679 returnURL= http://www. nivea.com. br [As partes desta mensagem que não continham texto foram removidas] Flickr agora em português. Você clica, todo mundo vê. http://www.flickr.com.br/ [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] CodeGear RAD Studio 2007
Paulo, o que você quer dizer limitar conexão? From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On Behalf Of Paulo Jorge Sent: Thursday, September 20, 2007 11:22 AM To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] CodeGear RAD Studio 2007 Alô, colegas No CodeGear RAD Studio 2007, o número de conexões VCL.NET para a versão Professional é limitada, se não me engano; Se eu usar somente os componentes do próprio framework, tenho essa limitação? Posso fazer upgrade a partir do Delphi 7 Professional? Qual a vantagem em usar essa versão em vez da Delphi 2007 for Win32, se não uso .net? O Andreano disse no blog dele, que está à venda no Brasil... mas onde? Quanto custa? Obrigado pela atenção. Paulo Jorge [EMAIL PROTECTED] mailto:pj%40pj.pro.br [As partes desta mensagem que não continham texto foram removidas]
Res: Res: [delphi-br] Bina
O que eu quis dizer com extraordinário é que em nenhum momento ninguém citou algo sobre o Speedy, só comentaram sobre modens discados... E eu perguntei pensando no Speedy, mas esqueci de mencionar, enquanto a maioria estava pensando que eu tava perguntando sobre modens discados... Ou seja, vou ter que usar um sistema arcaico do mesmo jeito... - Mensagem original De: Alexandre Rodrigues [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quinta-feira, 20 de Setembro de 2007 13:14:18 Assunto: Re: Res: [delphi-br] Bina Bah, me desculpe mas extraordinária é tua pergunta. É meio óbvio que se o cliente está usando banda larga, que você não vai conseguir capturar o número de telefone usando o modem ADSL dele, pois a tecnologia ADSL e a dos modems comuns são completamente e totalmente diferentes. A redundância é para você entender mesmo que são coisas diferentes. Para utilizar o computador como bina, vai ter que usar um modem comum mesmo, não tem como. Eny Urias escreveu: E alguém conhece alguma outra solução? Alguém já teve algum cliente que precisasse desse esquema e usasse o Speedy? Já faz uma semana que eu to procurando algo na net e naum acho... será que é uma coisa tão extraordinária assim? - Mensagem original De: Andrei Luís compuvale.software@ gmail.com mailto:compuvale. software% 40gmail.com Para: [EMAIL PROTECTED] os.com.br mailto:delphi- br%40yahoogrupos .com.br Enviadas: Quarta-feira, 19 de Setembro de 2007 17:41:46 Assunto: Re: [delphi-br] Bina O componente funciona com modem discado de 56kpbs. [] Andrei Em 19/09/07, Eny Uriasenyurias@ yahoo. com.br escreveu: Mas e no caso do Speedy? É só colocar esse resistor no cabo que sair da linha e entra no modem também? - Mensagem original De: Andrei Luís compuvale.software @ gmail.com Para: [EMAIL PROTECTED] os.com.br Enviadas: Quarta-feira, 19 de Setembro de 2007 11:58:30 Assunto: Re: [delphi-br] Bina Coloquei um arquivo na seção Arquivos da lista, com tudo o que precisa. Tirei também a dependencia da RX Lib. Bom proveito, qualquer dúvida tamos aí. [] Andrei Em 19/09/07, Andrei Luíscompuvale. software@ gmail.com escreveu: Olá Marcos, Só é necessário o modem. Baixei lá do site e verifiquei que falta um arquivo html, com algumas explicações sobre o componente. O mais importante, é que para o componente funcionar, é preciso colocar um resistor na linha telefonica. É coisa simples, eu pego um desses adaptadores de padrão brasileiro X RJ11 e coloquei dentro o resistor e por fora um pequeno interruptor, pois na época usava conexão discada, e pra conectar no provedor precisava trocar a chavinha. Olhei agora a seção arquivos da lista, e lá tem em exemplos o componente spBina (SuperBina) com o dito arquivo HTML. Pega lá. Quanto ao modem, eu usava um US Robotics e funcionava legal. Nem sei se ainda se encontra esses modems hoje em dia, mas já te adianto que os xing ling que tem hoje nas lojas não vai rolar, tem que ver se consegue um modem melhorzinho, nem que seja usado. [] Andrei Em 19/09/07, Marcos Andrémarcos@ e-easy. com.br escreveu: Prezados, me interesso mto por este assunto, e gostaria de saber, Andrei, não é necessário a intalação de algum tipo de placa para detectar o nro? Que tipo de modem vc recomenda?? Obrigado. Abraço Em 19/09/07, Andrei Luís compuvale.software @ gmail.com escreveu: Dá uma olhada em www.planetadelphi. com.br lá tem um programinha que fiz e usei por um bom tempo. Ele utiliza o componente TSP_Bina do Valdomiro Silva, tá tudo lá no .zip. Apesar de alguns comentários lá postados, o programa e o componente funciona, mas não com todos modems, esses bem xing-ling da vida não funciona nem a pau. Outra coisa, óbvia, é que tem que ter o serviço habilitado na linha telefonica, senão não vai funcionar mesmo (milagre é mais em cima). Outro detalhe, eu tinha usado na época alguns botões da RXLib, então vai dar pau se você não tiver ela instalada, mas é só substituir por botões normais que não tem galho. Já mandei uma versão com botões normais, mas o pessoal do site não atualizou. [] Andrei Em 19/09/07, Eny Uriasenyurias@ yahoo. com.br enyurias%40yahoo. com.br escreveu: Olá pessoal! Preciso implementar no meu sis, um esquema para localizar o cliente pelo fone que a bina detecta. Alguém sabe como fazer isso? Flickr agora em português. Você clica, todo mundo vê. http://www.flickr. com.br/ http://www.flickr. com.br/ [As partes desta mensagem que não continham texto foram removidas] _ _ _ _ ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo. com/mailbeta/ tudonovo/ Flickr
RES: [delphi-br] palm+sistema delphi
Este componente que você tem, eu posso antecipá-lo que ele não compatibiliza aplicações feitas no Delphi pra rodar em um Palm. Este componente deve ser um componente que compatibliza criar conduintes. Mas o que é um conduinte? Um Conduinte, é um programa que roda no PC e que permite a comunicação entre o computador e um dispositivo móvel (seja ele um Palm, um PDA, uma calculadora científica ou um Celular). Este programa pode ser feito em qualquer linguagem de programação. Ele tem que ter, dentre outras características, a possibilidade de entrar no portatil e ler dados dentro dele. Tal, como por exemplo, tabelas PDB. O programa lê estas tabelas, pega estes dados e os grava em uma tabela no PC (Daí pra frente não passa mais a ser misterio pra ninguem aqui) Pra fazer conduintes, você pode usar a boa suite de componentes FREE E COM FONTES: http://delphi-conduits.sourceforge.net/ Neste artigo na clubepda, ensina como fazer isto tudo: http://www.clubepda.com.br/artigos2.asp?pid=20 []s Walter Alves Chagas Junior Projeto e desenvolvimento de sistemas Telemont Engenharia de telecomunicações S/A Belo Horizonte - MG - Brasil [EMAIL PROTECTED] Fone: (31) 3389-8217 Fax: (31) 3389-8215 Code Gear: http://cc.codegear.com/Author/46502 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Hudson Enviada em: quinta-feira, 20 de setembro de 2007 22:09 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] palm+sistema delphi Rafael existe um componente que faz isso, mas ele e pago eu tenho a licensa dele descupa a pergunta qual cidade vc esta? Atenciosamente Hudson Dias www.alcancedigital.com.br MSN: [EMAIL PROTECTED] Skype: hudson_bh Tele: (31)3434-6304 - Original Message - From: Rafael Jorge To: delphi-br Sent: Thursday, September 20, 2007 5:36 PM Subject: [delphi-br] palm+sistema delphi tenho um cliente que quer que meu sistema interaja com palms. alquem ai me recomendaria alguma ferramente pra desenvolvimento do mesmo? o palm so vai verificar disponibilidade de estoque e emitir pedido. so isso. nao sei nem se vai imprimir alguma coisa.. t+ -- Rafael jorge alves Analista/desenvolvedor www.sistemafocus.com.br -- ERP completo www.acinformatica.org -- Empresa [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 Links do Yahoo! Grupos
[delphi-br] Off: DIA MUNDIAL SEM CARRO (Sábado 22/09)
Ajudem a divulgar galera Dia Mundial Sem Carro: você vai participar?No próximo sábado (22), comemora-se o Dia Mundial Sem Carro. A data, que soa como um manifesto, tem o intuito de alertar as pessoas para os problemas causados pelo uso massivo dos automóveis nas grandes cidades. Para incentivar a população a participar do movimento, a prefeitura de São Paulo, em parceria com o movimento Nossa São Paulo é Outra Cidade, vai organizar passeios ciclistico na região central da cidade. Em São Paulo, a iniciativa começou, ainda sem muita força, em 2005, quando a Secretaria do Verde e do Meio Ambiente divulgou a causa. Mas, apesar de cair em um sábado, dia em que menos trabalhadores saem às ruas, nunca a data foi tão comentada quando neste ano. Leia a matéria na íntegra http://br.noticias.yahoo.com/indepth/id_ambiente.html Abraços André _ Seja sempre você mesmo, mas não seja sempre o mesmo (Gabriel, o Pensador) Flickr agora em português. Você clica, todo mundo vê. Saiba mais. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Data e Hora
Bom dia galera Delphiana. Estou desenvolvendo um programa na empresa q eu trabalhe mais pintou uma duvia. tenho uma campo chamado de Dia_entrada e hora_entrada, o dia ja consegui formatar mais a hora tb mais quando eu chamo para atualiza ele pega a data e hora do campo Hora entra, mais só quero a hora sem a data. Alguem poderia me ajudar em???
RES: [delphi-br] Data e Hora
Use a função de formatação
FormatDateTime('dd/mm/ hh:nn:ss', now);
FormatDateTime('hh:nn:ss', now); - só virá a hora no formato hh:mm:ss
Espero que ajude
Rede Virtual Internet Ltda
Paulo R Vieira Junior
Desenvolvimento e Soluções de Tecnologia
* mailto:[EMAIL PROTECTED] [EMAIL PROTECTED]
* (19) 9604-1464
*(19) 3892-2552
MSN: [EMAIL PROTECTED] BLOCKED::mailto:[EMAIL PROTECTED]
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de alan_adolfo
Enviada em: sexta-feira, 21 de setembro de 2007 10:43
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Data e Hora
Bom dia galera Delphiana.
Estou desenvolvendo um programa na empresa q eu trabalhe mais pintou
uma duvia.
tenho uma campo chamado de Dia_entrada e hora_entrada, o dia ja
consegui formatar mais a hora tb mais quando eu chamo para atualiza
ele pega a data e hora do campo Hora entra, mais só quero a hora sem
a data.
Alguem poderia me ajudar em???
__ Informação do NOD32 IMON 2543 (20070921) __
Esta mensagem foi verificada pelo NOD32 sistema antivírus
http://www.eset.com.br
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Duvida ao trabalhar com TStringList
Ricardo César Cardoso wrote:
Bom dia João!
Bom dia Ricardo,
Na verdade o StringList Final (o que é alimentado pela função
Seleciona_Velocidade_Corte) serve apenas como um container
de dados que serão utilizados depois em alguns cálculos, mas num
primeiro momento apenas dois itens desse TStringList me interessam,
os itens 5 e 6.
O correto seria criar classes mais específicas para a minha situação,
mas tenho que testar a lógica da aplicação antes, gostaria de fazer
algo mais simples, usando as classes do Delphi antes de criar classes
de negócio
Não necessariamente. As classes do Delphi servem muito bem como
containeres genéricos. Se você precisar guardar esta lista para outros
processamentos futuros, então sim, um container personalizado por você
pode ser bem útil. Só tenho algumas dúvidas no seu código:
/**/
Var
SLFinal : TStringList;
Especificacao : String;
Dimensao : Real;
VC_Maximo : Real;
VC_Minimo : Real;
Area_Corte : Real;
Begin
SLFinal := TStringList.Create;
{ bloco de comandos }
Para que você usa SLFinal? Você destroi ou copia a string list dentro do
bloco acima?
SLFinal := Seleciona_Velocidade_Corte(Especificacao, Dimensao);
{ bloco de comandos }
VC_Maximo := Area_Corte / StrToFloat(SLFinal.Strings[5]);
VC_Minimo := Area_Corte / StrToFloat(SLFinal.Strings[6]);
Faltou destruir a string list antes de terminar a rotina, ou faltou
copiá-la para um membro da classe.
Se você cria a string list especialmente para fazer o cálculo e depois
ela é destruida, a minha recomendação é você implementar assim:
SLFinal := TStringList.Create;
try
// comandos
Seleciona_Velocidade(SLFinal, Especificacao, Dimensao);
VC_Maximo := Area_Corte / StrToFloat(SLFinal.Strings[5]);
VC_Minimo := Area_Corte / StrToFloat(SLFinal.Strings[6]);
finally
SLFinal.Free;
end;
Se você utilizar a string list fora desta rotina, então a recomendação é
a seguinte:
FreeAndNil(FListaFinal);
FListaFinal := CriaListaVelocidade(Especificacao, Dimensao);
VC_Maximo := Area_Corte / StrToFloat(FListaFinal.Strings[5]);
VC_Minimo := Area_Corte / StrToFloat(FListaFinal.Strings[6]);
...
destructor TSuaClasse.Destroy;
begin
FListaFinal.Free;
inherited;
end;
--
Joao Morais
End;
/**/
Espero ter sido mais claro agora.
Desde já grato,
Ricardo.
Flickr agora em português. Você clica, todo mundo vê. Saiba mais.
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] palm+sistema delphi
Talves estes sites possam te ajudar. www.clubepalm.com.br www.clubepda.com.br Espero ter ajudado. Rafael Jorge [EMAIL PROTECTED] escreveu: tenho um cliente que quer que meu sistema interaja com palms. alquem ai me recomendaria alguma ferramente pra desenvolvimento do mesmo? o palm so vai verificar disponibilidade de estoque e emitir pedido. so isso. nao sei nem se vai imprimir alguma coisa.. t+ -- Rafael jorge alves Analista/desenvolvedor www.sistemafocus.com.br -- ERP completo www.acinformatica.org -- Empresa [As partes desta mensagem que não continham texto foram removidas] Flickr agora em português. Você clica, todo mundo vê. Saiba mais. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Data e Hora
Ola alan...
vc pode fazer assim:
via programação
horas : String;
horas := FormatDateTime('hh:mm:ss', Time());
ou
no Table / Query / ClientDataSeto q vc estiver usando
depois em Fields Editor...
selecione o campo horas e vai a propriedade EditMask = !90:00;1;_
depois na propriedade DisplayFormat = hh:mm:ss
espero ter ajudado
Atenciosamente Hudson Dias
www.alcancedigital.com.br
MSN: [EMAIL PROTECTED]
Skype: hudson_bh
Tele: (31)3434-6304
- Original Message -
From: alan_adolfo
To: delphi-br@yahoogrupos.com.br
Sent: Friday, September 21, 2007 10:42 AM
Subject: [delphi-br] Data e Hora
Bom dia galera Delphiana.
Estou desenvolvendo um programa na empresa q eu trabalhe mais pintou
uma duvia.
tenho uma campo chamado de Dia_entrada e hora_entrada, o dia ja
consegui formatar mais a hora tb mais quando eu chamo para atualiza
ele pega a data e hora do campo Hora entra, mais só quero a hora sem
a data.
Alguem poderia me ajudar em???
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] onDrawDataCell
Estou dando manutenção em um sistema que possui um DBgrid com o evento onDrawDataCell, que nunca é disparado. Pergunto: Qual a utilidade do onDrawDataCell do DBGrid? e quando que ele é disparado? pesquisei no help, mas está meio confuso, ele diz para não usar. encontrei o seguinte: Do not write an OnDrawDataCell event handler. OnDrawDataCell is obsolete and included for backward compatibility. Instead, write an OnDrawColumnCell event handler. Flickr agora em português. Você clica, todo mundo vê. http://www.flickr.com.br/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Email para celular com o Indy
Pessoal, Estou desenvolvendo uma aplicação em Delphi 2006 que deve enviar avisos via email e para isso uso o Indy 10.1.5. Tudo funciona bem se o email do destinatário é um email comum, como gmail, yahoo ou UOL por exemplo, porém, o email não é enviado caso o destinatário seja um celular. Não recebo nenhuma mensagem de erro, ele finge que enviou normalmente e no email que uso como remetente não recebo nenhuma mensagem de erro, ou seja, o email não está voltando. O celular usado para testes recebe emails no formato [EMAIL PROTECTED], por exemplo, e se eu envio um email para este endereço usando o Eudora ou o Outlook e tendo como remetente exatamente a mesma conta de SMTP usada na aplicação, o email vai para o celular sem problemas, em forma de SMS. Será que alguém já passou por isso e tem a solução? Desde já agradeço. Um abraço, Eduardo.
Re: [delphi-br] Chaves Estrangeiras
Como eu não gosto muito de trabalhar com componentes dbware eu faço uma função que carrega os dados e coloca num combo / listbox. Quando ocorre a seleção de um item deste combo / listbox eu faço uma pesquisa no momento da gravação, para descobrir a chave primária e inserir este campo na tabela que quero seja (chave estrangeira). Sds, Ricardo. dhsb [EMAIL PROTECTED] escreveu: Pessoal qual a melhor maneira de se trabalhar com chaves estrangeiras? Vejamos tenho uma tabela chamada obras e tenho uma chave estrangeira chamado id_obra, como posso resolver este problema? com lookup ? como posso configura-lo? Valeu Flickr agora em português. Você clica, todo mundo vê. Saiba mais. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: onDrawDataCell
Ola , vamos ver se eu tiro a sua duvia onDrawDataCell ele muda a cor do campos do Grid, por exemple tenho uma tabela q contem 6 campo da mega sena, e tenho um cadastr de 29 jogos e gostaria de rachurar os numeros q saiu na ultima megasena. Olha como eu fiz. Bom não sei se eu te ajudei a exclarecer sua duvida, me manda resposta para eu saber se ja entendeu. procedure TfrmJogoDaSena.grdJogadorDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); Var nOldB, nOldF : TColor; // contA : integer; Begin With grdJogador Do Begin n1 := Trim(DM.qryJogadorn1.Text); n2 := Trim(DM.qryJogadorn2.Text); n3 := Trim(DM.qryJogadorn3.Text); n4 := Trim(DM.qryJogadorn4.Text); n5 := Trim(DM.qryJogadorn5.Text); n6 := Trim(DM.qryJogadorn6.Text); nOldF := Canvas.Font.Color; nOldB := Canvas.Brush.Color; a := trim(edtN1.Text); b := trim(edtN2.text); c := trim(edtN3.text); d := trim(edtN4.text); e := trim(edtN5.text); f := trim(edtN6.text); If (Column.Index = 1) and Not (gdFocused in State) Then Begin If n1 = (a) Then Begin Canvas.Brush.Color := clInfoBk; Canvas.Font.Color := nOldF; contadora; End; If (gdFocused in State) Then Canvas.Font.Color := clWhite; DefaultDrawColumnCell(Rect, Datacol, Column, State); End; If (Column.Index = 2) and Not (gdFocused in State) Then Begin If n2 = (a) Then Begin Canvas.Brush.Color := clInfoBk; Canvas.Font.Color := nOldF; contadora; End; If (gdFocused in State) Then Canvas.Font.Color := clWhite; DefaultDrawColumnCell(Rect, Datacol, Column, State); End; If (Column.Index = 3) and Not (gdFocused in State) Then Begin If n3 = (a) Then Begin Canvas.Brush.Color := clInfoBk; Canvas.Font.Color := nOldF; contadora; End; If (gdFocused in State) Then Canvas.Font.Color := clWhite; DefaultDrawColumnCell(Rect, Datacol, Column, State); End; If (Column.Index = 4) and Not (gdFocused in State) Then Begin If n4 = (a) Then Begin Canvas.Brush.Color := clInfoBk; Canvas.Font.Color := nOldF; contadora; End; If (gdFocused in State) Then Canvas.Font.Color := clWhite; DefaultDrawColumnCell(Rect, Datacol, Column, State); End; If (Column.Index = 5) and Not (gdFocused in State) Then Begin If n5 = (a) Then Begin Canvas.Brush.Color := clInfoBk; Canvas.Font.Color := nOldF; contadora; End; If (gdFocused in State) Then Canvas.Font.Color := clWhite; DefaultDrawColumnCell(Rect, Datacol, Column, State); End; If (Column.Index = 6) and Not (gdFocused in State) Then Begin If n6 = (a) Then Begin Canvas.Brush.Color := clInfoBk; Canvas.Font.Color := nOldF; contadora; End; If (gdFocused in State) Then Canvas.Font.Color := clWhite; DefaultDrawColumnCell(Rect, Datacol, Column, State); End; // If (Column.Index = 1) and Not (gdFocused in State) Then Begin If n1 = (b) Then Begin Canvas.Brush.Color := clInfoBk; Canvas.Font.Color := nOldF; contadorb; End; If (gdFocused in State) Then Canvas.Font.Color := clWhite; DefaultDrawColumnCell(Rect, Datacol, Column, State); End; If (Column.Index = 2) and Not (gdFocused in State) Then Begin If n2 = (b) Then Begin Canvas.Brush.Color := clInfoBk; Canvas.Font.Color := nOldF; contadorb; End; If (gdFocused in State) Then Canvas.Font.Color := clWhite; DefaultDrawColumnCell(Rect, Datacol, Column, State); End; If (Column.Index = 3) and Not (gdFocused in State) Then Begin If n3 = (b) Then Begin Canvas.Brush.Color := clInfoBk; Canvas.Font.Color := nOldF; contadorb; End; If (gdFocused in State) Then Canvas.Font.Color := clWhite; DefaultDrawColumnCell(Rect, Datacol, Column, State); End; If (Column.Index = 4) and Not (gdFocused in State) Then Begin If n4 = (b) Then Begin Canvas.Brush.Color := clInfoBk; Canvas.Font.Color := nOldF; contadorb; End; If (gdFocused in State) Then Canvas.Font.Color := clWhite; DefaultDrawColumnCell(Rect, Datacol, Column, State); End; If (Column.Index = 5) and Not (gdFocused in State) Then Begin If n5 = (b) Then Begin Canvas.Brush.Color := clInfoBk; Canvas.Font.Color := nOldF; contadorb; End; If (gdFocused in State) Then Canvas.Font.Color := clWhite; DefaultDrawColumnCell(Rect, Datacol, Column, State); End; If (Column.Index = 6) and Not (gdFocused in State) Then Begin If n6 =(b) Then Begin Canvas.Brush.Color := clInfoBk; Canvas.Font.Color := nOldF;
[delphi-br] Chaves Estrangeiras
Pessoal qual a melhor maneira de se trabalhar com chaves estrangeiras? Vejamos tenho uma tabela chamada obras e tenho uma chave estrangeira chamado id_obra, como posso resolver este problema? com lookup ? como posso configura-lo? Valeu
Re: [delphi-br] Duvida ao trabalhar com TStringList
Olá João e obrigado pela resposta.
Na verdade eu uso o que chamei de SLFinal externamente ou seja, a função
Seleciona_Velocidade_Corte alimenta o SLFinal e depois de alimentado, eu uso
dois itens desse SLFinal como base pra cálculo em outros pontos do código da
procedure onde ele foi inserido (evento OnClick de um botão). Essa função
seleciona vários parametros pertinentes ao cálculo, mas ao invés de fazer
várias funções menores para pegar os parâmetros, fiz uma unica função que me
tras todos os parametros que preciso e populo o TStringList. Depois uso esse
conteúdo do TStringList como for necessário.
Segue o código editado de Seleciona_Velocidade_Corte:
//
Function Selecionar_Velocidade_Corte(var aMatEspecificacao,
aDimensao: String): TStringList;
Var
aSQLQuery : TSQLQuery;
Begin
aSQLQuery := TSQLQuery.Create(nil);
with aSQLQuery do
begin
SQLConnection := dmConexao.conConexao;
with SQL do
begin
// Instruções SQL de consulta para popular o Result
// Essa instrução retorna um único registro, cujos
// Campos alimentam o TStringList
end;
Params[0].AsString := aMatEspecificacao;
Params[1].AsFloat := StrToFloat(aDimensao);
Open;
Result := TStringList.Create;
with Result do
begin
Add(Fields[0].AsString);
Add(Fields[1].AsString);
Add(Fields[2].AsString);
Add(Fields[3].AsString);
Add(Fields[4].AsString);
Add(Fields[5].AsString);
Add(Fields[6].AsString);
end;
end;
aSQLQuery.Free;
End;
//
Então aliado a esta função tenho o código que demonstrei na mensagem anterior:
/***/
Var
SLFinal : TStringList;
Especificacao : String;
Dimensao : Real;
VC_Maximo : Real;
VC_Minimo : Real;
Area_Corte : Real;
Begin
SLFinal := TStringList.Create;
{ bloco de comandos }
SLFinal := Seleciona_Velocidade_Corte(Especificacao, Dimensao);
{ bloco de comandos }
VC_Maximo := Area_Corte / StrToFloat(SLFinal.Strings[5]);
VC_Minimo := Area_Corte / StrToFloat(SLFinal.Strings[6]);
{finalização}
SLFinal.Free;
End;
/***/
Não sei se compliquei ainda mais, mas estou usando exatamente desta maneira
como descrevi. Aparentemente funciona, mas como vcs reportaram que não é uma
boa prática, gostaria de saber como seria o correto e assim melhorar este
código.
Grato,
Ricardo.
Flickr agora em português. Você clica, todo mundo vê. Saiba mais.
[As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Chaves Estrangeiras
Poderia explicar melhor o que você está querendo fazer? []s Topolniak. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de dhsb Enviada em: sexta-feira, 21 de setembro de 2007 10:31 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Chaves Estrangeiras Pessoal qual a melhor maneira de se trabalhar com chaves estrangeiras? Vejamos tenho uma tabela chamada obras e tenho uma chave estrangeira chamado id_obra, como posso resolver este problema? com lookup ? como posso configura-lo? Valeu [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Re: onDrawDataCell
Valeu pela resposta, Mas no seu caso vc nao esta usando o onDrawColumnCel ? Minha duvida é quanto ao onDrawDataCell . Eu não consegui entender quando o evento é disparado, e nem o que ele faz. - Mensagem original De: alan_adolfo [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 21 de Setembro de 2007 11:58:36 Assunto: [delphi-br] Re: onDrawDataCell Ola , vamos ver se eu tiro a sua duvia onDrawDataCell ele muda a cor do campos do Grid, por exemple tenho uma tabela q contem 6 campo da mega sena, e tenho um cadastr de 29 jogos e gostaria de rachurar os numeros q saiu na ultima megasena. Olha como eu fiz. Bom não sei se eu te ajudei a exclarecer sua duvida, me manda resposta para eu saber se ja entendeu. procedure TfrmJogoDaSena. grdJogadorDrawCo lumnCell( Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState) ; Var nOldB, nOldF : TColor; // contA : integer; Begin With grdJogador Do Begin n1 := Trim(DM.qryJogadorn 1.Text); n2 := Trim(DM.qryJogadorn 2.Text); n3 := Trim(DM.qryJogadorn 3.Text); n4 := Trim(DM.qryJogadorn 4.Text); n5 := Trim(DM.qryJogadorn 5.Text); n6 := Trim(DM.qryJogadorn 6.Text); nOldF := Canvas.Font. Color; nOldB := Canvas.Brush. Color; a := trim(edtN1.Text) ; b := trim(edtN2.text) ; c := trim(edtN3.text) ; d := trim(edtN4.text) ; e := trim(edtN5.text) ; f := trim(edtN6.text) ; If (Column.Index = 1) and Not (gdFocused in State) Then Begin If n1 = (a) Then Begin Canvas.Brush. Color := clInfoBk; Canvas.Font. Color := nOldF; contadora; End; If (gdFocused in State) Then Canvas.Font. Color := clWhite; DefaultDrawColumnCe ll(Rect, Datacol, Column, State); End; If (Column.Index = 2) and Not (gdFocused in State) Then Begin If n2 = (a) Then Begin Canvas.Brush. Color := clInfoBk; Canvas.Font. Color := nOldF; contadora; End; If (gdFocused in State) Then Canvas.Font. Color := clWhite; DefaultDrawColumnCe ll(Rect, Datacol, Column, State); End; If (Column.Index = 3) and Not (gdFocused in State) Then Begin If n3 = (a) Then Begin Canvas.Brush. Color := clInfoBk; Canvas.Font. Color := nOldF; contadora; End; If (gdFocused in State) Then Canvas.Font. Color := clWhite; DefaultDrawColumnCe ll(Rect, Datacol, Column, State); End; If (Column.Index = 4) and Not (gdFocused in State) Then Begin If n4 = (a) Then Begin Canvas.Brush. Color := clInfoBk; Canvas.Font. Color := nOldF; contadora; End; If (gdFocused in State) Then Canvas.Font. Color := clWhite; DefaultDrawColumnCe ll(Rect, Datacol, Column, State); End; If (Column.Index = 5) and Not (gdFocused in State) Then Begin If n5 = (a) Then Begin Canvas.Brush. Color := clInfoBk; Canvas.Font. Color := nOldF; contadora; End; If (gdFocused in State) Then Canvas.Font. Color := clWhite; DefaultDrawColumnCe ll(Rect, Datacol, Column, State); End; If (Column.Index = 6) and Not (gdFocused in State) Then Begin If n6 = (a) Then Begin Canvas.Brush. Color := clInfoBk; Canvas.Font. Color := nOldF; contadora; End; If (gdFocused in State) Then Canvas.Font. Color := clWhite; DefaultDrawColumnCe ll(Rect, Datacol, Column, State); End; / / If (Column.Index = 1) and Not (gdFocused in State) Then Begin If n1 = (b) Then Begin Canvas.Brush. Color := clInfoBk; Canvas.Font. Color := nOldF; contadorb; End; If (gdFocused in State) Then Canvas.Font. Color := clWhite; DefaultDrawColumnCe ll(Rect, Datacol, Column, State); End; If (Column.Index = 2) and Not (gdFocused in State) Then Begin If n2 = (b) Then Begin Canvas.Brush. Color := clInfoBk; Canvas.Font. Color := nOldF; contadorb; End; If (gdFocused in State) Then Canvas.Font. Color := clWhite; DefaultDrawColumnCe ll(Rect, Datacol, Column, State); End; If (Column.Index = 3) and Not (gdFocused in State) Then Begin If n3 = (b) Then Begin Canvas.Brush. Color := clInfoBk; Canvas.Font. Color := nOldF; contadorb; End; If (gdFocused in State) Then Canvas.Font. Color := clWhite; DefaultDrawColumnCe ll(Rect, Datacol, Column, State); End; If (Column.Index = 4) and Not (gdFocused in State) Then Begin If n4 = (b) Then Begin Canvas.Brush. Color := clInfoBk; Canvas.Font. Color := nOldF; contadorb; End; If (gdFocused in State) Then
Re: [delphi-br] Duvida ao trabalhar com TStringList
Ricardo César Cardoso wrote:
Olá João e obrigado pela resposta.
Na verdade eu uso o que chamei de SLFinal externamente ou seja,
a função Seleciona_Velocidade_Corte alimenta o SLFinal e depois
de alimentado, eu uso dois itens desse SLFinal como base pra
cálculo em outros pontos do código da procedure onde ele foi
inserido (evento OnClick de um botão).
Olá Ricardo,
Você não está alimentando SLFinal, você está criando uma nova lista e
está perdendo a referência à primeira neste trecho aqui:
=
SLFinal := TStringList.Create;
{ bloco de comandos }
SLFinal := Seleciona_Velocidade_Corte(Especificacao, Dimensao);
=
Se você quiser aproveitar a lista que você criou nesta primeira linha,
tem que passá-la como parâmetro tal qual o Davi sugeriu, e então
declarar uma procedure. O trecho ficaria assim:
=
SLFinal := TStringList.Create;
{ bloco de comandos }
Seleciona_Velocidade_Corte(SLFinal, Especificacao, Dimensao);
=
Dentro de Seleciona_Velocidade_Corte você não vai mais precisar disto aqui:
=
Result := TStringList.Create;
with Result do
begin
...
=
ao invés disto, o trecho ficaria assim:
=
ASLFinal.Clear;
ASLFinal.Add(...);
...
=
este ASLFinal que eu citei acima é o primeiro parâmetro da sua procedure
Seleciona_Velocidade_Corte.
Daí então, no final do bloco principal, você executa o SLFinal.Free tal
qual você fez. Esta é a única string list que existe em toda a sua rotina.
Para você não se perder nos create/free, analisa da seguinte forma: todo
create deve ter um free correspondente. Sempre. E depois de chamar o
Free, você não pode mais acessar o objeto. Então a cada Create que você
encontrar no seu código, analisa aonde que está o Free que diz respeito
a ele. Tem sempre que existir um, nem que seja em outro lugar, no
destructor, no owner, etc.
--
Joao Morais
Essa função seleciona
vários parametros pertinentes ao cálculo, mas ao invés de fazer
várias funções menores para pegar os parâmetros, fiz uma unica
função que me tras todos os parametros que preciso e populo o
TStringList. Depois uso esse conteúdo do TStringList como for
necessário.
Segue o código editado de Seleciona_Velocidade_Corte:
//
Function Selecionar_Velocidade_Corte(var aMatEspecificacao,
aDimensao: String): TStringList;
Var
aSQLQuery : TSQLQuery;
Begin
aSQLQuery := TSQLQuery.Create(nil);
with aSQLQuery do
begin
SQLConnection := dmConexao.conConexao;
with SQL do
begin
// Instruções SQL de consulta para popular o Result
// Essa instrução retorna um único registro, cujos
// Campos alimentam o TStringList
end;
Params[0].AsString := aMatEspecificacao;
Params[1].AsFloat := StrToFloat(aDimensao);
Open;
Result := TStringList.Create;
with Result do
begin
Add(Fields[0].AsString);
Add(Fields[1].AsString);
Add(Fields[2].AsString);
Add(Fields[3].AsString);
Add(Fields[4].AsString);
Add(Fields[5].AsString);
Add(Fields[6].AsString);
end;
end;
aSQLQuery.Free;
End;
//
Então aliado a esta função tenho o código que demonstrei na mensagem
anterior:
/***/
Var
SLFinal : TStringList;
Especificacao : String;
Dimensao : Real;
VC_Maximo : Real;
VC_Minimo : Real;
Area_Corte : Real;
Begin
SLFinal := TStringList.Create;
{ bloco de comandos }
SLFinal := Seleciona_Velocidade_Corte(Especificacao, Dimensao);
{ bloco de comandos }
VC_Maximo := Area_Corte / StrToFloat(SLFinal.Strings[5]);
VC_Minimo := Area_Corte / StrToFloat(SLFinal.Strings[6]);
{finalização}
SLFinal.Free;
End;
/***/
Não sei se compliquei ainda mais, mas estou usando exatamente desta maneira
como descrevi. Aparentemente funciona, mas como vcs reportaram que não é uma
boa prática, gostaria de saber como seria o correto e assim melhorar este
código.
Grato,
Ricardo.
RES: [delphi-br] Off: DIA MUNDIAL SEM CARRO (S ábado 22/09)
Ideia totalmente apoiada... Ta com pressa ? compra uma bike! De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Andre P. Bertoletti Enviada em: sexta-feira, 21 de setembro de 2007 10:15 Para: Pastoral da Juventude - Diocese de Piracicaba - Região Rio Claro; Pastoral da Juventude Estigmatina; PJEst Santa Cruz; Pastoral da Juventude - Diocese de Piracicaba; Pastoral da Juventude; CDL Nacional; CSharp; EJC EJC; Grupo de Jovens Cristo Vivo; Rede PJ Sub Campinas; delphi-br@yahoogrupos.com.br; [EMAIL PROTECTED] Assunto: [delphi-br] Off: DIA MUNDIAL SEM CARRO (Sábado 22/09) Ajudem a divulgar galera Dia Mundial Sem Carro: você vai participar?No próximo sábado (22), comemora-se o Dia Mundial Sem Carro. A data, que soa como um manifesto, tem o intuito de alertar as pessoas para os problemas causados pelo uso massivo dos automóveis nas grandes cidades. Para incentivar a população a participar do movimento, a prefeitura de São Paulo, em parceria com o movimento Nossa São Paulo é Outra Cidade, vai organizar passeios ciclistico na região central da cidade. Em São Paulo, a iniciativa começou, ainda sem muita força, em 2005, quando a Secretaria do Verde e do Meio Ambiente divulgou a causa. Mas, apesar de cair em um sábado, dia em que menos trabalhadores saem às ruas, nunca a data foi tão comentada quando neste ano. Leia a matéria na íntegra http://br.noticias.yahoo.com/indepth/id_ambiente.html Abraços André _ Seja sempre você mesmo, mas não seja sempre o mesmo (Gabriel, o Pensador) Flickr agora em português. Você clica, todo mundo vê. Saiba mais. [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] Data e Hora
Alan, desculpe ser direto, mas mais é uma soma, mas seria o correto. Isto é um erro de português muito grave. Entendo que esta não é uma lista de português e sim de Delphi, mas puxa vida se não conseguirmos escrever português corretamente como vamos nos comunicar então? Eu pego vários erros de português aqui na lista e nunca falo nada, acho que dar um toque não seria ruim também. Assim como não sou perfeito, tenho meus erros de português também e gostaria de ser corrigido quando necessário. Agora analisando o seu problema, tive que ler algumas vezes para tentar entender e a maneira que o problema foi descrito é muito ruim. Imagino que o que você está tentando fazer é mostrar a hora na tela mas o componente está jogando data e hora. Já tentou jogar este valor para um maskedit e mascará-lo para mostrar somente hora? De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de alan_adolfo Enviada em: sexta-feira, 21 de setembro de 2007 10:43 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Data e Hora Bom dia galera Delphiana. Estou desenvolvendo um programa na empresa q eu trabalhe mais pintou uma duvia. tenho uma campo chamado de Dia_entrada e hora_entrada, o dia ja consegui formatar mais a hora tb mais quando eu chamo para atualiza ele pega a data e hora do campo Hora entra, mais só quero a hora sem a data. Alguem poderia me ajudar em??? [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] onDrawDataCell
Se o DEFAULTDRAWING do dbgrid estiver TRUE ele não vai executar o onDrawDataCell, passe ele para FALSE. do help do delphi... Set DefaultDrawing to True to allow the data-aware grid to draw the data in the cells of the grid automatically. Set DefaultDrawing to False to turn off the default drawing when providing customized painting in an OnDrawColumnCell event handler or an OnDrawDataCell event handler. abraços... Luiz Escobar - Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/ASSEMBLER/MySQL/xBase SERVIDORES - CNA IntraNetWare4.11, LINUX-(RedHat9/Suse10.2), Windows 2K/XP - Original Message - From: Evaldo To: delphi-br@yahoogrupos.com.br Sent: Friday, September 21, 2007 11:26 AM Subject: [delphi-br] onDrawDataCell Estou dando manutenção em um sistema que possui um DBgrid com o evento onDrawDataCell, que nunca é disparado. Pergunto: Qual a utilidade do onDrawDataCell do DBGrid? e quando que ele é disparado? pesquisei no help, mas está meio confuso, ele diz para não usar. encontrei o seguinte: Do not write an OnDrawDataCell event handler. OnDrawDataCell is obsolete and included for backward compatibility. Instead, write an OnDrawColumnCell event handler. Flickr agora em português. Você clica, todo mundo vê. http://www.flickr.com.br/ [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] onDrawDataCell
Funcionou, obrigado.
- Mensagem original
De: [EMAIL PROTECTED] [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Sexta-feira, 21 de Setembro de 2007 13:46:56
Assunto: Re: [delphi-br] onDrawDataCell
Se o DEFAULTDRAWING do dbgrid estiver TRUE ele não vai executar o
onDrawDataCell, passe ele para FALSE.
do help do delphi...
Set DefaultDrawing to True to allow the data-aware grid to draw the data in
the cells of the grid automatically. Set DefaultDrawing to False to turn off
the default drawing when providing customized painting in an OnDrawColumnCell
event handler or an OnDrawDataCell event handler.
abraços...
Luiz Escobar - Analista/Desenvolve dor:
WEB - HTML/JavaScript/ PHP/MySQL
WINDOWS - Delphi/ASSEMBLER/ MySQL/xBase
SERVIDORES - CNA IntraNetWare4. 11, LINUX-(RedHat9/ Suse10.2) , Windows 2K/XP
- Original Message -
From: Evaldo
To: [EMAIL PROTECTED] os.com.br
Sent: Friday, September 21, 2007 11:26 AM
Subject: [delphi-br] onDrawDataCell
Estou dando manutenção em um sistema que possui um DBgrid com o evento
onDrawDataCell , que nunca é disparado. Pergunto:
Qual a utilidade do onDrawDataCell do DBGrid? e quando que ele é disparado?
pesquisei no help, mas está meio confuso, ele diz para não usar. encontrei o
seguinte:
Do not write an OnDrawDataCell event handler. OnDrawDataCell is
obsolete and included for backward compatibility. Instead, write an
OnDrawColumnCell event handler.
Flickr agora em português. Você clica, todo mundo vê.
http://www.flickr. com.br/
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
!--
#ygrp-mkp{
border:1px solid #d8d8d8;font-family:Arial;margin:14px 0px;padding:0px 14px;}
#ygrp-mkp hr{
border:1px solid #d8d8d8;}
#ygrp-mkp #hd{
color:#628c2a;font-size:85%;font-weight:bold;line-height:122%;margin:10px 0px;}
#ygrp-mkp #ads{
margin-bottom:10px;}
#ygrp-mkp .ad{
padding:0 0;}
#ygrp-mkp .ad a{
color:#ff;text-decoration:none;}
--
!--
#ygrp-sponsor #ygrp-lc{
font-family:Arial;}
#ygrp-sponsor #ygrp-lc #hd{
margin:10px 0px;font-weight:bold;font-size:78%;line-height:122%;}
#ygrp-sponsor #ygrp-lc .ad{
margin-bottom:10px;padding:0 0;}
--
!--
#ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean, sans-serif;}
#ygrp-mlmsg table {font-size:inherit;font:100%;}
#ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean,
sans-serif;}
#ygrp-mlmsg pre, code {font:115% monospace;}
#ygrp-mlmsg * {line-height:1.22em;}
#ygrp-text{
font-family:Georgia;
}
#ygrp-text p{
margin:0 0 1em 0;}
#ygrp-tpmsgs{
font-family:Arial;
clear:both;}
#ygrp-vitnav{
padding-top:10px;font-family:Verdana;font-size:77%;margin:0;}
#ygrp-vitnav a{
padding:0 1px;}
#ygrp-actbar{
clear:both;margin:25px 0;white-space:nowrap;color:#666;text-align:right;}
#ygrp-actbar .left{
float:left;white-space:nowrap;}
.bld{font-weight:bold;}
#ygrp-grft{
font-family:Verdana;font-size:77%;padding:15px 0;}
#ygrp-ft{
font-family:verdana;font-size:77%;border-top:1px solid #666;
padding:5px 0;
}
#ygrp-mlmsg #logo{
padding-bottom:10px;}
#ygrp-vital{
background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;}
#ygrp-vital #vithd{
font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text-transform:uppercase;}
#ygrp-vital ul{
padding:0;margin:2px 0;}
#ygrp-vital ul li{
list-style-type:none;clear:both;border:1px solid #e0ecee;
}
#ygrp-vital ul li .ct{
font-weight:bold;color:#ff7900;float:right;width:2em;text-align:right;padding-right:.5em;}
#ygrp-vital ul li .cat{
font-weight:bold;}
#ygrp-vital a{
text-decoration:none;}
#ygrp-vital a:hover{
text-decoration:underline;}
#ygrp-sponsor #hd{
color:#999;font-size:77%;}
#ygrp-sponsor #ov{
padding:6px 13px;background-color:#e0ecee;margin-bottom:20px;}
#ygrp-sponsor #ov ul{
padding:0 0 0 8px;margin:0;}
#ygrp-sponsor #ov li{
list-style-type:square;padding:6px 0;font-size:77%;}
#ygrp-sponsor #ov li a{
text-decoration:none;font-size:130%;}
#ygrp-sponsor #nc{
background-color:#eee;margin-bottom:20px;padding:0 8px;}
#ygrp-sponsor .ad{
padding:8px 0;}
#ygrp-sponsor .ad #hd1{
font-family:Arial;font-weight:bold;color:#628c2a;font-size:100%;line-height:122%;}
#ygrp-sponsor .ad a{
text-decoration:none;}
#ygrp-sponsor .ad a:hover{
text-decoration:underline;}
#ygrp-sponsor .ad p{
margin:0;}
o{font-size:0;}
.MsoNormal{
margin:0 0 0 0;}
#ygrp-text tt{
font-size:120%;}
blockquote{margin:0 0 0 4px;}
.replbq{margin:4;}
--
Flickr agora em português. Você clica, todo mundo vê.
http://www.flickr.com.br/
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Duvida ao trabalhar com TStringList
João... Muito obrigado mesmo, por exclarecer a dúvida que tinha. Com isso já
consigo entender perfeitamente, mas gostaria de apenas confirmar uma última
coisa:
* Poderia então deixar o bloco onde uso o TStringList como abaixo?
/***/
Var
SLFinal : TStringList;
Especificacao : String;
Dimensao : Real;
VC_Maximo : Real;
VC_Minimo : Real;
Area_Corte : Real;
Begin
// SLFinal := TStringList. Create; exclui esta linha
{ bloco de comandos }
SLFinal := Seleciona_Velocidad e_Corte(Especificacao, Dimensao);
{ bloco de comandos }
VC_Maximo := Area_Corte / StrToFloat(SLFinal.Strings[5] );
VC_Minimo := Area_Corte / StrToFloat(SLFinal.Strings[6] );
{finalização}
SLFinal.Free;
End;
/***/
Pela regra da instanciação e liberação seria isso, mas minha dúvida é se
procede e se esta é uma boa prática.
Desde já grato,
Ricardo
Flickr agora em português. Você clica, todo mundo vê. Saiba mais.
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Apostilas??
Olá Senhores, alguém pode me dizer onde achar apostilas ou tutorial que explique bem o uso do Delphi com componentes da paleta InterBase?? Abordando conceitos sobre comandos no uso do Banco de Dados InterBase 6.5??? Ficarei Grato!! Rafael Pinto.
[delphi-br] cxLookupComboBox
Pessoal alguema ja trabalhou com cxLookupComboBox ? Como eu passao o campo KeyValue pra ele pois nao possui esta propriedade. no LookupComboBox normal eu sei que tem mas neste nao consegui. Valeu
RES: [delphi-br] Email para celular com o Indy
Durante uns testes que fiz hoje tive de incluir o DDI tente assim [EMAIL PROTECTED] De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Eduardo Enviada em: sexta-feira, 21 de setembro de 2007 11:46 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Email para celular com o Indy Pessoal, Estou desenvolvendo uma aplicação em Delphi 2006 que deve enviar avisos via email e para isso uso o Indy 10.1.5. Tudo funciona bem se o email do destinatário é um email comum, como gmail, yahoo ou UOL por exemplo, porém, o email não é enviado caso o destinatário seja um celular. Não recebo nenhuma mensagem de erro, ele finge que enviou normalmente e no email que uso como remetente não recebo nenhuma mensagem de erro, ou seja, o email não está voltando. O celular usado para testes recebe emails no formato [EMAIL PROTECTED] mailto:211234%40clarotorpedo.com.br , por exemplo, e se eu envio um email para este endereço usando o Eudora ou o Outlook e tendo como remetente exatamente a mesma conta de SMTP usada na aplicação, o email vai para o celular sem problemas, em forma de SMS. Será que alguém já passou por isso e tem a solução? Desde já agradeço. Um abraço, Eduardo. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Timeout de Conexão ao Firebird.
Amigos, estou com o seguinte problema no D7 e Firebird. Preciso Iniciar uma conexão com o banco de dados, mas se esta conexão não ocorrer em 3 segundos, eu quero gerar uma exceção no aplicativo. Tanto para o DBExpress quanto para os componentes de conexão do Interbase. Eu tentei fazer o seguinte. Deixar um ttimer ligado e imprimindo num memo a cada 1 segundo. Ocorre que quando mando conectar num ip inválido leva-se mais de 30 segundos para gerar a excessão. Como eu posso fazer para mudar o fluxo do meu programa caso a conexão não tenha sido feita em 3 segundos? agradeço a ajuda. atenciosamente, Jefferson Hilgert - Desenvolvedor. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Duvida ao trabalhar com TStringList
Ricardo César Cardoso wrote:
* Poderia então deixar o bloco onde uso o TStringList como abaixo?
/***/
Var
SLFinal : TStringList;
Especificacao : String;
Dimensao : Real;
VC_Maximo : Real;
VC_Minimo : Real;
Area_Corte : Real;
Begin
// SLFinal := TStringList. Create; exclui esta linha
{ bloco de comandos }
SLFinal := Seleciona_Velocidad e_Corte(Especificacao, Dimensao);
{ bloco de comandos }
VC_Maximo := Area_Corte / StrToFloat(SLFinal.Strings[5] );
VC_Minimo := Area_Corte / StrToFloat(SLFinal.Strings[6] );
{finalização}
SLFinal.Free;
End;
/***/
Pela regra da instanciação e liberação seria isso, mas minha
dúvida é se procede e se esta é uma boa prática.
Pela regra vai funcionar, você tem um create dentro da função e tem um
free fora dela, mas para ficar zero-bala, você pode escolher uma destas
abordagens:
1. renomeie a função para algo como CriaListaAlgumaCoisa; assim o
próprio nome da função dirá que ela está criando uma lista e você terá
que dar cabo de destruí-la;
2. use uma procedure para que o create/free fique no mesmo bloco;
Se você me perguntasse, eu responderia que neste caso eu prefiro a opção 2.
E para qualquer um dos casos, sempre utilize um bloco protegido entre o
create e o free. Então você terá isto aqui:
VLista := CriaLista(Especificacao, Dimensao);
try
// trabalha com VLista
finally
VLista.Free;
end;
ou terá isto aqui:
VLista := TStringList.Create;
try
Seleciona_...(VLista, Especificacao, Dimensao);
finally
VLista.Free;
end;
Caso o processamento gere alguma exception, você não terá vazamento de
memória.
Se usar CriaLista, é bom usar um bloco protegido lá também, então:
function CriaLista...(Espefic, Dim): TStringList;
begin
Result := TStringList.Create;
try
// popula Result
except
FreeAndNil(Result);
raise;
end;
end;
--
Joao Morais
Re: [delphi-br] Duvida ao trabalhar com TStringList
Muito obrigado João. Vou rever o código e depois passo como ficou. Sds, Ricardo. Flickr agora em português. Você clica, todo mundo vê. Saiba mais. [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Email para celular com o Indy
Continua sem funcionar... usando o DDI, via outlook ou eudora funciona numa boa, mas pela aplicação teima em funcionar apenas para emails tipo gmail, uol ou yahoo. Nada de celular :( --- Em delphi-br@yahoogrupos.com.br, Elcio Domingos Ramos [EMAIL PROTECTED] escreveu Durante uns testes que fiz hoje tive de incluir o DDI tente assim [EMAIL PROTECTED] De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Eduardo Enviada em: sexta-feira, 21 de setembro de 2007 11:46 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Email para celular com o Indy Pessoal, Estou desenvolvendo uma aplicação em Delphi 2006 que deve enviar avisos via email e para isso uso o Indy 10.1.5. Tudo funciona bem se o email do destinatário é um email comum, como gmail, yahoo ou UOL por exemplo, porém, o email não é enviado caso o destinatário seja um celular. Não recebo nenhuma mensagem de erro, ele finge que enviou normalmente e no email que uso como remetente não recebo nenhuma mensagem de erro, ou seja, o email não está voltando. O celular usado para testes recebe emails no formato [EMAIL PROTECTED] mailto:211234%40clarotorpedo.com.br , por exemplo, e se eu envio um email para este endereço usando o Eudora ou o Outlook e tendo como remetente exatamente a mesma conta de SMTP usada na aplicação, o email vai para o celular sem problemas, em forma de SMS. Será que alguém já passou por isso e tem a solução? Desde já agradeço. Um abraço, Eduardo. [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Re: onDrawDataCell
Você sabe fazer pra mudar uma coluna toda? Por exemplo, quando se clicar no titulo do grid para ordenar, mudar o fundo das células da coluna toda. []s Topolniak De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de alan_adolfo Enviada em: sexta-feira, 21 de setembro de 2007 10:59 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Re: onDrawDataCell Ola , vamos ver se eu tiro a sua duvia onDrawDataCell ele muda a cor do campos do Grid, por exemple tenho uma tabela q contem 6 campo da mega sena, e tenho um cadastr de 29 jogos e gostaria de rachurar os numeros q saiu na ultima megasena. Olha como eu fiz. Bom não sei se eu te ajudei a exclarecer sua duvida, me manda resposta para eu saber se ja entendeu. procedure TfrmJogoDaSena.grdJogadorDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); Var nOldB, nOldF : TColor; // contA : integer; Begin With grdJogador Do Begin n1 := Trim(DM.qryJogadorn1.Text); n2 := Trim(DM.qryJogadorn2.Text); n3 := Trim(DM.qryJogadorn3.Text); n4 := Trim(DM.qryJogadorn4.Text); n5 := Trim(DM.qryJogadorn5.Text); n6 := Trim(DM.qryJogadorn6.Text); nOldF := Canvas.Font.Color; nOldB := Canvas.Brush.Color; a := trim(edtN1.Text); b := trim(edtN2.text); c := trim(edtN3.text); d := trim(edtN4.text); e := trim(edtN5.text); f := trim(edtN6.text); If (Column.Index = 1) and Not (gdFocused in State) Then Begin If n1 = (a) Then Begin Canvas.Brush.Color := clInfoBk; Canvas.Font.Color := nOldF; contadora; End; If (gdFocused in State) Then Canvas.Font.Color := clWhite; DefaultDrawColumnCell(Rect, Datacol, Column, State); End; If (Column.Index = 2) and Not (gdFocused in State) Then Begin If n2 = (a) Then Begin Canvas.Brush.Color := clInfoBk; Canvas.Font.Color := nOldF; contadora; End; If (gdFocused in State) Then Canvas.Font.Color := clWhite; DefaultDrawColumnCell(Rect, Datacol, Column, State); End; If (Column.Index = 3) and Not (gdFocused in State) Then Begin If n3 = (a) Then Begin Canvas.Brush.Color := clInfoBk; Canvas.Font.Color := nOldF; contadora; End; If (gdFocused in State) Then Canvas.Font.Color := clWhite; DefaultDrawColumnCell(Rect, Datacol, Column, State); End; If (Column.Index = 4) and Not (gdFocused in State) Then Begin If n4 = (a) Then Begin Canvas.Brush.Color := clInfoBk; Canvas.Font.Color := nOldF; contadora; End; If (gdFocused in State) Then Canvas.Font.Color := clWhite; DefaultDrawColumnCell(Rect, Datacol, Column, State); End; If (Column.Index = 5) and Not (gdFocused in State) Then Begin If n5 = (a) Then Begin Canvas.Brush.Color := clInfoBk; Canvas.Font.Color := nOldF; contadora; End; If (gdFocused in State) Then Canvas.Font.Color := clWhite; DefaultDrawColumnCell(Rect, Datacol, Column, State); End; If (Column.Index = 6) and Not (gdFocused in State) Then Begin If n6 = (a) Then Begin Canvas.Brush.Color := clInfoBk; Canvas.Font.Color := nOldF; contadora; End; If (gdFocused in State) Then Canvas.Font.Color := clWhite; DefaultDrawColumnCell(Rect, Datacol, Column, State); End; // If (Column.Index = 1) and Not (gdFocused in State) Then Begin If n1 = (b) Then Begin Canvas.Brush.Color := clInfoBk; Canvas.Font.Color := nOldF; contadorb; End; If (gdFocused in State) Then Canvas.Font.Color := clWhite; DefaultDrawColumnCell(Rect, Datacol, Column, State); End; If (Column.Index = 2) and Not (gdFocused in State) Then Begin If n2 = (b) Then Begin Canvas.Brush.Color := clInfoBk; Canvas.Font.Color := nOldF; contadorb; End; If (gdFocused in State) Then Canvas.Font.Color := clWhite; DefaultDrawColumnCell(Rect, Datacol, Column, State); End; If (Column.Index = 3) and Not (gdFocused in State) Then Begin If n3 = (b) Then Begin Canvas.Brush.Color := clInfoBk; Canvas.Font.Color := nOldF; contadorb; End; If (gdFocused in State) Then Canvas.Font.Color := clWhite; DefaultDrawColumnCell(Rect, Datacol, Column, State); End; If (Column.Index = 4) and Not (gdFocused in State) Then Begin If n4 = (b) Then Begin Canvas.Brush.Color := clInfoBk; Canvas.Font.Color := nOldF; contadorb; End; If (gdFocused in State) Then Canvas.Font.Color := clWhite; DefaultDrawColumnCell(Rect, Datacol, Column, State); End; If (Column.Index = 5) and Not (gdFocused in State) Then Begin If n5 = (b) Then Begin Canvas.Brush.Color := clInfoBk; Canvas.Font.Color := nOldF; contadorb; End; If (gdFocused in State) Then Canvas.Font.Color := clWhite; DefaultDrawColumnCell(Rect, Datacol, Column, State); End; If (Column.Index = 6) and Not (gdFocused in State) Then Begin If n6 =(b) Then Begin Canvas.Brush.Color := clInfoBk; Canvas.Font.Color := nOldF; contadorb; End; If (gdFocused in State) Then Canvas.Font.Color := clWhite; DefaultDrawColumnCell(Rect, Datacol, Column, State); End; // If (Column.Index = 1) and Not (gdFocused in State) Then Begin If n1 = (c) Then Begin Canvas.Brush.Color := clInfoBk; Canvas.Font.Color := nOldF; contadorc; End; If (gdFocused in State) Then Canvas.Font.Color := clWhite;
[delphi-br] Ajuda montar um serviço para auxiliar apl icação.
Pessoal tenho uma aplicação Win32, vou montar um aplicativo que vai rodar como um serviço em um servidor e vai acumular algumas tarefas, as aplicações de font end vão comunicar com esse serviço e trocar algumas informações. Um exemplo é que na aplicação vai ter um chat, e uma das tarefas desse servidor vai ser essa, ser servidor do chat, outro é que essa aplicação vai ficar comunicando com o servidor web e verificando a existencia de novas versões. Alguem já implementou alguma aplicação do tipo, pode dar alguma digas, qual seria os melhor comoponetes para eu trabalhar no client e no server? Obrigado a todos at. rlmariz
Re: [delphi-br] Timeout de Conexão ao Firebird.
Boa tarde Jefferson. Bom faz tempinho que nao mexo com Firebird mas se nao me engano dentro do arquivo firebird.conf existe uma configuraçao para ele dar o timeout no tempo desejado. Em 21/09/07, Jefferson Hilgert [EMAIL PROTECTED] escreveu: Amigos, estou com o seguinte problema no D7 e Firebird. Preciso Iniciar uma conexão com o banco de dados, mas se esta conexão não ocorrer em 3 segundos, eu quero gerar uma exceção no aplicativo. Tanto para o DBExpress quanto para os componentes de conexão do Interbase. Eu tentei fazer o seguinte. Deixar um ttimer ligado e imprimindo num memo a cada 1 segundo. Ocorre que quando mando conectar num ip inválido leva-se mais de 30 segundos para gerar a excessão. Como eu posso fazer para mudar o fluxo do meu programa caso a conexão não tenha sido feita em 3 segundos? agradeço a ajuda. atenciosamente, Jefferson Hilgert - Desenvolvedor. . -- Conheça o Projeto ACBr - Automação Comercial Brasil em http://acbr.sf.net Projeto JACBr - ACBr para desenvolvedores Java Fabiano Frizzo Frizzo Systems Inc. Soluções em Informática [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Off: DIA MUNDIAL SEM CARRO (Sábado 22/09)
Em 21/09/07, Davi Eduardo Borges Wall [EMAIL PROTECTED] escreveu: Ideia totalmente apoiada... Ta com pressa ? compra uma bike! já comprei a minha ! :-D http://www.flickr.com/photos/fuabiano/368976043/ [] -- Binho http://fuabiano.wordpress.com
RES: [delphi-br] Re: SNGPC - XML
Recebi um manual da anvisa com os dados da com os dados da webservice para upload do arquivo se vc quiser te mando ai!! Quem sabe ajuda... -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Eduardo Silva dos Santos Enviada em: quarta-feira, 19 de setembro de 2007 10:15 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Re: SNGPC - XML pq voce não tenta entrar em contato com a anvisa? via telefone, e-mail, sinal de fumaça deve existir uma forma.. se alguém conseguiu fazer... Em 19/09/07, Marco marcojfbrandao@ mailto:marcojfbrandao%40gmail.com gmail.com escreveu: Ola, Eu tambem ja tenho o sistema pronto e disponivel comercialmente, nao sei se expliquei direito mas eu preciso mesmo é da rotina de upload e qual o endereço do servidor da ANVISA, ou pelo menos onde poderia conseguir a informação, ja que no proprio site da ANVISA nao tem nada falando a respeito. --- Em [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br delphi-br%40yahoogrupos.com.br, polodosol [EMAIL PROTECTED] escreveu Tenho o sistema pronto com todos os lançamentos e que gera o arquivo para envio a anvisa, e forneço com os fontes m delphi 7 e dbexpress e firebird 2.0. e-mail : [EMAIL PROTECTED] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: eduardo.drd@ mailto:eduardo.drd%40gmail.com gmail.com Site: http://www.drdsiste http://www.drdsistemas.com/ mas.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] Chaves Estrangeiras
Ricardo César Cardoso wrote: Como eu não gosto muito de trabalhar com componentes dbware Salve! Quanto mais o tempo passa, mais eu vejo que eu não sou tão minoria quanto pensava. -- Joao Morais
Re: [delphi-br] Chaves Estrangeiras
Olá João, pode me colocar ai na lista dos não muito adeptos ao dbaware, pra nao dizer que nao uso, uso somente TDBGrid o resto é TEdit, TCombobox.. e SQL purinho... nada de Edit/post/delete... tem jente que acha que é loucura, mas os benefícios são grandes.. eu quero é liberdade, mesmo que isso me dê um pouco mais de trabalho. Em 21/09/07, Joao Morais [EMAIL PROTECTED] escreveu: Ricardo César Cardoso wrote: Como eu não gosto muito de trabalhar com componentes dbware Salve! Quanto mais o tempo passa, mais eu vejo que eu não sou tão minoria quanto pensava. -- Joao Morais -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ ... [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] OFF-TOPIC - VENDO MATERIAL/CURSOS DELPHI.
Olá a todos. Desculpe o assunto fora do escopo da lista. Estou vendendo material delphi de minha propriedade, totalmente original (vejam links das fotos). Preciso atualizar minhas leituras e vou aproveitar o dinheiro para isso - comprar novos livros. http://www.badongo.com/pic/1652161 http://www.badongo.com/pic/1652166 Quem estiver interessado, favor contactar em pvt. Obrigado a todos. Alexandre. [As partes desta mensagem que não continham texto foram removidas]
