Re: [delphi-br] Registro
Agradeço a ajuda de todos mas mesmo usando o método RegistryConnect(): ele não consegue conectar a maquina cliente... alguem sabe se é preciso realizar alguma configuração na maquina cliente para me permitir editar ?? Wesley - Original Message - From: Nilson Chagas To: delphi-br@yahoogrupos.com.br Sent: Tuesday, November 20, 2007 4:33 PM Subject: Re: [delphi-br] Registro Eita... é por isto vc naum é Pedra, é Rocha. rsrsrs Em 20/11/07, Rubem Nascimento da Rocha [EMAIL PROTECTED] escreveu: Novamente recorrendo ao help do Delphi, vejam o que pude extrair do seu texto referente ao método RegistryConnect(): If connection is successful, RegistryConnect sets the RootKey property to the root key of the remote computer and returns true. If unsuccessful, RegistryConnect returns false, and RootKey remains unchanged. Reitero minha sugestão para pesquisar sobre este método. Sds. To: [EMAIL PROTECTED] delphi-br%40yahoogrupos.com.brFrom: [EMAIL PROTECTED] nilson.chagas.silva%40gmail.comDate: Tue, 20 Nov 2007 17:24:09 -0200Subject: Re: [delphi-br] Registro Mas o que ele quer não seria que o Delphi editasse o registro do windowsremotamente??Tipo ele tá aqui (SP) e quer alterar um registro de uma maquina lá naBahia??[]sEm 20/11/07, Rubem Nascimento da Rocha [EMAIL PROTECTED] djpardalrocha%40hotmail.com escreveu: Ora, ora! Nada como uma boa ida ao help do Delphi pra tentar pegar um esclarecimento inicial. Se o nobre colega ainda não foi ao help do Delphi, vai consultar na lista de métodos da classe TRegistry um método chamado ReistryConnect(). Sugiro fortemente uma busca/pesquisa usando o Santo Google ou o Santo AltaVista em busca de exemplos relacionados a este método. Sds. To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br%40yahoogrupos.com.br From: [EMAIL PROTECTED] bandalemuel%40yahoo.com.brbandalemuel%40yahoo.com.br Date: Tue, 20 Nov 2007 17:10:11 -0300 Subject: [delphi-br] Registro Lista Alguem sabe como fazer para o Dellphi editar registro do windows remotamente ??? Vlw... Wesley [As partes desta mensagem que não continham texto foram removidas] __ Conheça o Windows Live Spaces, a rede de relacionamentos conectada ao Messenger! http://spaces.live.com/signup.aspx [As 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] [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.503 / Virus Database: 269.16.1/1140 - Release Date: 19/11/2007 19:05 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Function validação de cpf/cnpj
Diego, faz o seguinte, vai no site da receita federal na parte de consulta de CPF e consilta do 1 ate 99 pra vc ver uma coisa, conforme o resultado de lá vc implementa na sua rotina. Em 21/11/07, Diego Seleguim [EMAIL PROTECTED] escreveu: É Rubem, sem dúvida, vc está certo! Mas sem generalizar, me referi apenas a validação do algorítimo! Penso que a função deveria fazer nada mais que, verificar se o CPF é verdadeiro ou não! E no caso, 111 não é um CPF válido! Em 21/11/07, Rubem Nascimento da Rocha [EMAIL PROTECTED]djpardalrocha%40hotmail.com escreveu: Uma coisa é o número do CPF ser válido pelo algoritmo; Outra coisa é ele ser válido para o seu cadastro de acordo com as regras do banco de dados ou das regras de negócio que seu aplicativo deve obedecer e/ou observar. Sds. To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br%40yahoogrupos.com.br From: [EMAIL PROTECTED] seleguim%40gmail.com seleguim%40gmail.com Date: Wed, 21 Nov 2007 00:50:12 -0200 Subject: Re: [delphi-br] Function validação de cpf/cnpj Marcelo suas funções me ajudaram também, fico agradecido! Queria comentar também que a função CPF, quando digitada uma sequência de dados iguais, isto é, 11, ele valida como True! Fica a pergunta, existe algum problema qto a isso vcs acham? Abraços a todos! [As partes desta mensagem que não continham texto foram removidas] __ Receba as últimas notícias do Brasil e do mundo direto no seu Messenger com Alertas MSN! É GRÁTIS! http://alertas.br.msn.com/ [As partes desta mensagem que não continham texto foram removidas] -- ... 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]
RES: RES: [delphi-br] PEGAR LINHA DE CÓDIGO
Olha só nem tinha visto esse post do Walter, O que seria modo de debugação? (ou modo depuração em português) Seria quando você está depurando ou está com debug info ligado? Pois como falei antes há componentes controladores de exceção que mostram a linha do erro, mas as opções de depuração devem estar ligadas. Quanto ao Assert apesar de ser usado para prevenir uma exceção, ele funciona em runtime com opções de depuração ligadas. Isso é tudo que sei! []'s De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Eduardo Silva dos Santos Enviada em: segunda-feira, 19 de novembro de 2007 19:13 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] PEGAR LINHA DE CÓDIGO Para essa finalizade eu uso o Exceptional Magic http://www.dimusware.com/products/excmagic/index.html é muito interessante, facilita e muito a vida. Em 19/11/07, Walter Chagas Junior (BOL) [EMAIL PROTECTED] mailto:wchagasj%40bol.com.br escreveu: David, Até aonde sei, o Assert pega a linha que estiver sendo informada no .map do projeto compilado e só faz isto em modo de debugação. Se você souber como fazer pra pegar a linha dentro do seu fonte mesmo e em modo normal (Não debugado), posta um exemplo pra nós aqui então pra vermos o que possamos estar fazendo errado. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil [EMAIL PROTECTED] mailto:wchagasj%40yahoo.com.br wchagasj%40yahoo.com.br http://www.geocities.com/SiliconValley/Bay/1058 MSN: [EMAIL PROTECTED] mailto:whitesockets%40hotmail.com whitesockets%40hotmail.com SKYPE: WalterChagasJr -- Início da mensagem original --- De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Cc: Data: Mon, 19 Nov 2007 16:18:46 -0200 Assunto: RES: [delphi-br] PEGAR LINHA DE CÓDIGO Se você está querendo usar isso para mostrar a linha que aconteceu um erro, eu aconselharia a utilizar Assert! Procure pela net por Assertion muitas empresas utilizam esta técnica. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br[mailto: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em nome de sampaiobrito Enviada em: segunda-feira, 19 de novembro de 2007 16:13 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: [delphi-br] PEGAR LINHA DE CÓDIGO Amigos, há uma forma de pegar o nº da linha de código de execução no delphi em runtime? Desde já agradeço a colaboração! [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] mailto:eduardo.drd%40gmail.com Site: http://www.drdsistemas.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] Erro usando o DbExpress
Maluco ... penei com este erro ..hahah muitas noites sem dormir bom ... comigo ele dava por 2 causas diferentes: A 1º era que a propriedade KeepConnection do TSqlConnection estava true A 2º foi a configuração dos componentes. no provider.UpdateMode setar upWhereKeyOnly nos fields da query e do provider setar quem é a sua chave primária. verifica isso e vê se o erro para abs Daniel A. Bastos Em 19/11/07, Doretto [EMAIL PROTECTED] escreveu: Boa tarde !!! Estou usando o delphi7 c/ dbExpress para fazer IO no mssql 2000. Em determinada situação o sistema gera o seguinte erro: Não é possivel criar uma nova transação porque a capacidade foi excedida. alguém tem alguma dica: Abraço Doretto. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] IMPRESSÃO DIRETA LPT1 / USB
Pessoal Estou realizando a impressão direta na porta, como todos sabem se existe uma impressora na rede compartilhada, basta passar o nome da terminal e também o nome do compartilhamento (HYPERLINK file:///TERMINAL01\\EPSON\\TERMINAL01\EPSON para uma impressora EPSON LX300 compartilhada), bem está funcionando perfeitamente para as impressoras que estão na LPT1 ou até mesmo COM, no entanto quando a impressora é USB não funciona, alguém poderia me ajudar? Juliano Silva No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.503 / Virus Database: 269.16.0/1137 - Release Date: 18/11/2007 17:15 No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.503 / Virus Database: 269.16.0/1137 - Release Date: 18/11/2007 17:15 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] impressão QuickReport
Amigos bom dia, seguinte eu tenho um formulario de impressão que lê o banco de dados monta uma Fatura e isto ocorre de 1 a N faturas por vez. da forma que fiz o QuickReport gera a visualização da primeira fatura, mando imprimir, fecho ele gera a segunda, fecho ele gera a terceira...assim sucessivamente. Como eu posso utilizando este form ele gerar a visualização de todas e eu não tenho que ficar fechando uma para visualizar a outra grato pela atenção hilderaldo barbosa
RES: [delphi-br] impressão QuickReport
Bom dia...Comigo aconteceu uma vez, mas foi um vacilo, eu usava um While not query.eof begin // aki dentro eu chama o report builder várias vezes. // e o pior...não estava fazendo a query.next, eu ele não saia dessa estrutura de repetição end _ file:///C:/WINDOWS/Temp//attc2482.bmp Felipe Nunes Gestor de Projeto * MG (37) 3213-4855 blocked::blocked::mailto:[EMAIL PROTECTED] * mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] blocked::blocked::http://www.vilesoft.com.br/ * blocked::blocked::http://www.vilesoft.com.br/ www.vilesoft.com.br blocked::blocked::http://www.vilesoft.com.br/ O emitente desta mensagem é responsável por seu conteúdo e endereçamento. Cabe ao destinatário cuidar quanto ao tratamento adequado. Sem a devida autorização, a divulgação, a reprodução, a distribuição ou qualquer outra ação em desconformidade com as normas internas da Vilesoft são proibidas e passíveis de sanção disciplinar, cível e criminal. The sender of this message is responsible for its content and addressing. The receiver shall take proper care of it. Without due authorization, the publication, reproduction, distribution or the performance of any other action not conforming to Vilesoft internal policies and procedures is forbidden and liable to disciplinary, civil or criminal sanctions. El emisor de este mensaje es responsable por su contenido y direccionamiento. Cabe al destinatario darle el tratamiento adecuado. Sin la debida autorización, su divulgación, reproducción, distribución o cualquier otra acción no conforme a las normas internas de Vilesoft están prohibidas y serán pasibles de sanción disciplinaria, civil y penal. _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de hideraldo_barbosa Enviada em: quarta-feira, 21 de novembro de 2007 07:56 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] impressão QuickReport Amigos bom dia, seguinte eu tenho um formulario de impressão que lê o banco de dados monta uma Fatura e isto ocorre de 1 a N faturas por vez. da forma que fiz o QuickReport gera a visualização da primeira fatura, mando imprimir, fecho ele gera a segunda, fecho ele gera a terceira...assim sucessivamente. Como eu posso utilizando este form ele gerar a visualização de todas e eu não tenho que ficar fechando uma para visualizar a outra grato pela atenção hilderaldo barbosa [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Function validação de cpf/cnpj
É galera, o querido numerozinho de CPF que permite sempre, testes e mais testes existe mesmo: No do CPF: 111.111.111-11 Situação Cadastral: CANCELADA Vitor Redes _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Eduardo Silva dos Santos Enviada em: quarta-feira, 21 de novembro de 2007 07:08 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Function validação de cpf/cnpj Diego, faz o seguinte, vai no site da receita federal na parte de consulta de CPF e consilta do 1 ate 99 pra vc ver uma coisa, conforme o resultado de lá vc implementa na sua rotina. Em 21/11/07, Diego Seleguim [EMAIL PROTECTED] mailto:seleguim%40gmail.com com escreveu: É Rubem, sem dúvida, vc está certo! Mas sem generalizar, me referi apenas a validação do algorítimo! Penso que a função deveria fazer nada mais que, verificar se o CPF é verdadeiro ou não! E no caso, 111 não é um CPF válido! Em 21/11/07, Rubem Nascimento da Rocha djpardalrocha@ mailto:djpardalrocha%40hotmail.com hotmail.comdjpardalrocha%40hotmail.com escreveu: Uma coisa é o número do CPF ser válido pelo algoritmo; Outra coisa é ele ser válido para o seu cadastro de acordo com as regras do banco de dados ou das regras de negócio que seu aplicativo deve obedecer e/ou observar. Sds. To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br delphi-br%40yahoogrupos.com.brdelphi-br%40yahoogrupos.com.br From: [EMAIL PROTECTED] mailto:seleguim%40gmail.com com seleguim%40gmail.com seleguim%40gmail.com Date: Wed, 21 Nov 2007 00:50:12 -0200 Subject: Re: [delphi-br] Function validação de cpf/cnpj Marcelo suas funções me ajudaram também, fico agradecido! Queria comentar também que a função CPF, quando digitada uma sequência de dados iguais, isto é, 11, ele valida como True! Fica a pergunta, existe algum problema qto a isso vcs acham? Abraços a todos! [As partes desta mensagem que não continham texto foram removidas] __ Receba as últimas notícias do Brasil e do mundo direto no seu Messenger com Alertas MSN! É GRÁTIS! http://alertas. http://alertas.br.msn.com/ br.msn.com/ [As partes desta mensagem que não continham texto foram removidas] -- ... 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] IMPRESSÃO DIRETA LPT1 / USB
Olá Juliano, deve existir outra mais elegante, mas esses dias passei pela mesma situação e resolvi assim: na máquina que você deseja imprimir, digite no DOS: net use lpt1 \\maquinaondeestaaimpressora\nomedaimpressora agora você pode mandar imprimir na LPT1 que saíra na impressora que está na USB, funciona inclusive local, pelo menos no XP que foi onde fiz isso, funcionou. Espero que ajude. Att, Celso Lorenzetti Analista de Sistemas msn: [EMAIL PROTECTED] -- SysRS Tecnologia da Informação Ltda. www.sysrs.com.br - Original Message - From: Juliano Silva - Yahoo To: delphi-br@yahoogrupos.com.br Sent: Wednesday, November 21, 2007 8:42 AM Subject: [delphi-br] IMPRESSÃO DIRETA LPT1 / USB Pessoal Estou realizando a impressão direta na porta, como todos sabem se existe uma impressora na rede compartilhada, basta passar o nome da terminal e também o nome do compartilhamento (HYPERLINK file:///TERMINAL01\\EPSON\\TERMINAL01\EPSON para uma impressora EPSON LX300 compartilhada), bem está funcionando perfeitamente para as impressoras que estão na LPT1 ou até mesmo COM, no entanto quando a impressora é USB não funciona, alguém poderia me ajudar? Juliano Silva No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.503 / Virus Database: 269.16.0/1137 - Release Date: 18/11/2007 17:15 No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.503 / Virus Database: 269.16.0/1137 - Release Date: 18/11/2007 17:15 [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] Function validação de cpf/cnpj
Pronto! Eis um exemplo perfeito do que eu escrevi nos meus comentários iniciais sobre este assunto! A Receita Federal já deve ter, com certeza, uma lista de CPFs que, apesar de serem válidos para o algoritmo do módulo 11, já se encontram cancelados, por serem números sem sentido de existir e de serem atribuídos para um contribuinte. Em alguns ambientes computacionais de segurança, tal lista costuma ter a denominação de Black List (lista negra). Hipótese confirmada. Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Wed, 21 Nov 2007 09:57:40 -0300 Subject: RES: [delphi-br] Function validação de cpf/cnpj É galera, o querido numerozinho de CPF que permite sempre, testes e mais testes existe mesmo: No do CPF: 111.111.111-11 Situação Cadastral: CANCELADA Vitor Redes _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Eduardo Silva dos Santos Enviada em: quarta-feira, 21 de novembro de 2007 07:08 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Function validação de cpf/cnpj Diego, faz o seguinte, vai no site da receita federal na parte de consulta de CPF e consilta do 1 ate 99 pra vc ver uma coisa, conforme o resultado de lá vc implementa na sua rotina. Em 21/11/07, Diego Seleguim com escreveu: É Rubem, sem dúvida, vc está certo! Mas sem generalizar, me referi apenas a validação do algorítimo! Penso que a função deveria fazer nada mais que, verificar se o CPF é verdadeiro ou não! E no caso, 111 não é um CPF válido! Em 21/11/07, Rubem Nascimento da Rocha hotmail.com escreveu: Uma coisa é o número do CPF ser válido pelo algoritmo; Outra coisa é ele ser válido para o seu cadastro de acordo com as regras do banco de dados ou das regras de negócio que seu aplicativo deve obedecer e/ou observar. Sds. To: [EMAIL PROTECTED] os.com.br From: [EMAIL PROTECTED] com Date: Wed, 21 Nov 2007 00:50:12 -0200 Subject: Re: [delphi-br] Function validação de cpf/cnpj Marcelo suas funções me ajudaram também, fico agradecido! Queria comentar também que a função CPF, quando digitada uma sequência de dados iguais, isto é, 11, ele valida como True! Fica a pergunta, existe algum problema qto a isso vcs acham? Abraços a todos! [As partes desta mensagem que não continham texto foram removidas] __ Receba as últimas notícias do Brasil e do mundo direto no seu Messenger com Alertas MSN! É GRÁTIS! http://alertas. br.msn.com/ [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: eduardo.drd@ gmail.com Site: http://www.drdsiste mas.com/ ... [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] _ Veja mapas e encontre as melhores rotas para fugir do trânsito com o Live Search Maps! http://www.livemaps.com.br/index.aspx?tr=true
[delphi-br] Ferramentas Modelagem e Documentacao
Bom dia Pessoal! Gostaria de trocar umas ideias com voces, nunca tive experiencia em modelar sistemas, documentar etc, e estou afim de fazer isto com o software aqui, alguem teria alguma ideia para me dar? ferramentas que possam me auxiliar com tudo isso ou ate mesmo alguns modelos para me basear? Valeu -- Atenciosamente, Samuel M. Basso Tel: (54) 3452-9126 Cel: (54) 8135-3723 E-mail: [EMAIL PROTECTED] MSN: [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Ferramentas Modelagem e Documentacao
www.cdstudio.nack.com.br - Free e feito em Delphi De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Samuel M. Basso Enviada em: quarta-feira, 21 de novembro de 2007 10:25 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Ferramentas Modelagem e Documentacao Bom dia Pessoal! Gostaria de trocar umas ideias com voces, nunca tive experiencia em modelar sistemas, documentar etc, e estou afim de fazer isto com o software aqui, alguem teria alguma ideia para me dar? ferramentas que possam me auxiliar com tudo isso ou ate mesmo alguns modelos para me basear? Valeu -- Atenciosamente, Samuel M. Basso Tel: (54) 3452-9126 Cel: (54) 8135-3723 E-mail: [EMAIL PROTECTED] mailto:samuelbasso%40gmail.com MSN: [EMAIL PROTECTED] mailto:samuelbasso%40gmail.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] Histórico internet explorer
Bom dia, Gostaria de saber se é possivel capturar o histórico da web do internet explorer e do firefox atraves do delphi, pesquisei na internet e não vi nenhuma referência sobre este assunto. Grato pela atenção. - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Erro com Instrução SQL!!!
Sempre quando faço os procedimentos para gravar os Registro no
banco funciona, mas quando vou cadastrar outro resgistro logo em
seguida dá o Seguinte Erro Dynamic SQL Error.SQL Error code = -104
Token unknown - line 3, char -1 insert.. Faço quando vou cadastrar um
CEP. Ou seja, eu cadastro um registro, q no outro seguida quando vou
gravar dá esse erro. aí eu tenho q fechar e gtravar de novo. E tbm dá
esse tipo de erro nas consultas mas é com outras palavras Dynamic SQL
Error.SQL Error code = -104 Token unknown - line 3, char -1 select..
taí o meu código:
if Edit1.Text'' then
begin
Query1.Close;
query1.SQL.Add('insert into CEP(CEP, LOGRADOURO, ENDERECO,
BAIRRO, CIDADE, UF)');
Query1.SQL.Add('values (:CEP, :LOGRADOURO, :ENDERECO, :BAIRRO,
:CIDADE, :UF)');
Query1.ParamByName('CEP').AsString := Edit1.Text;
Query1.ParamByName('LOGRADOURO').AsString := ComboBox1.Text;
Query1.ParamByName('ENDERECO').AsString := Edit2.Text;
Query1.ParamByName('BAIRRO').AsString := Edit3.Text;
Query1.ParamByName('CIDADE').AsString := Edit4.Text;
Query1.ParamByName('UF').AsString := Edit5.Text;
Query1.ExecSQL;
Query1.Transaction.Commit;
Query1.Transaction.Active := TRUE;
ShowMessage('C.E.P Registrado em Nossa basse de Dados!');
if MessageDlg('Deseja Cadastrar outro
C.E.P!',mtConfirmation,[mbYES,mbNO],0)= mrYES then
begin
limpaedit;
ComboBox1.Text:= '';
Edit1.SetFocus;
end
else
close;
end
else
ShowMessage('Precisa Informar o C.E.P!');
Edit1.SetFocus;
será que alguém pode tirar essa dúvida pra min e me dizer por que
que ocorre esse erro?
[delphi-br] inserir dados usando ibdataset
Ola pessoal bom dia.. seguinte estou com os seguintes problemas.. eu
crei um campo Hora do tipo time.. ai config o ibdataset tudo certinho
ele ta inserindo os dados.. so q eu to precisando pegar o parametro da
hora q el coloquei em um label com o seguinte codigo
lbHora.Caption := TimeToStr(time);
so q dai qdo eu vou salvar ele me fala q '0.38363000'não é um valor de
marca de tempo(timestamp) valido... dai mudei la no meu banco o campo
hora para timestamp mas mesmo assim o problema perdura..
e tbm gostaria de saber como faço para passar os parametros para o
ibdataset pq to usando o seguinte codigo.
dm1.Internacao.ParamByName('HORA').AsTime := lbHora.capiton;
ele fala q nao encontrou o campo hora qdo eu vou dar um post..
espro q tenham entendido a minha duvida.. att..
Inacio Mecena
Res: [delphi-br] inserir dados usando ibdataset
Já tentou passar direto ?
dm1.Internacao. ParamByName( 'HORA').AsTime := Time();
ou guardar em uma variável do tipo TTime e passar ela ?
Tempo : TTime;
Tempo := Time();
dm1.Internacao. ParamByName( 'HORA').AsTime := Tempo;
- Mensagem original
De: inacio_mecena [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 21 de Novembro de 2007 11:51:57
Assunto: [delphi-br] inserir dados usando ibdataset
Ola pessoal bom dia.. seguinte estou com os seguintes problemas.. eu
crei um campo Hora do tipo time.. ai config o ibdataset tudo certinho
ele ta inserindo os dados.. so q eu to precisando pegar o parametro da
hora q el coloquei em um label com o seguinte codigo
lbHora.Caption := TimeToStr(time) ;
so q dai qdo eu vou salvar ele me fala q '0.38363000' não é um valor de
marca de tempo(timestamp) valido... dai mudei la no meu banco o campo
hora para timestamp mas mesmo assim o problema perdura..
e tbm gostaria de saber como faço para passar os parametros para o
ibdataset pq to usando o seguinte codigo.
dm1.Internacao. ParamByName( 'HORA').AsTime := lbHora.capiton;
ele fala q nao encontrou o campo hora qdo eu vou dar um post..
espro q tenham entendido a minha duvida.. att..
Inacio Mecena
!--
#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;}
--
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
http://br.mail.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] AdoQuery: Command Text does not return a result set
Estou tentando executar este comando via ADOQuery, porém ele está retornando Command Text does not return a result set UPDATE PRODUTOS SET PRECO_CUSTO= :PRECO_NORMAL CODIGO_BARRAS = :CODIGO_BARRAS, CODIGO_ORIGINAL= :CODIGO_FORNECEDOR, PRECO_VENDA = (PRECO_CUSTO + ((PRECO_CUSTO/100.00)*LUCRO)) WHERE CODIGO_FORNECEDOR = :CODIGO -Os campos da tabela estão corretos -Parameters estão preenchidos corretos (o próprio ADOQuery assume : como parametro) -DataSource ligado corretamente na tabela de Produtos. O que pode estar errado ? Desde já muitíssimo obrigado pela atenção Atenciosamente, Junior [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Dúvida - Conversão de datas
Bom dia a todos!!
Preciso fazer a conversão de datas e gravar tanto a data como a
hora, fiz o exemplo a baixo,
Mais está gerando erro na linha marcada como 1ª, preciso da ajuda de
vocês, sei que o tempo de voces e corrido,
mais me dar uma força ai se possível.
Agradeço!!
Banco SQL Server
tipo de campo: DateTime
//desta forma funciona
try
begin
{ Instrução SQL para inclusão dos registros. }
QCarrega.Close;
QCarrega.SQL.Clear;
QCarrega.SQL.Add('INSERT INTO KPARADAATV');
QCarrega.SQL.Add('(CODCOLIGADA,');
QCarrega.SQL.Add('CODORDEM,');
QCarrega.SQL.Add('CODESTRUTURA,');
QCarrega.SQL.Add('CODMODELO, ');
QCarrega.SQL.Add('IDATVORDEM, ');
QCarrega.SQL.Add('CODRAZAO,');
QCarrega.SQL.Add('CODAGENTE, ');
QCarrega.SQL.Add('DTHRINICIO, ');
QCarrega.SQL.Add('DTHRFIM) ');
QCarrega.sql.Add(' VALUES ( ');
QCarrega.SQL.Add('1');
QCarrega.SQL.Add(' , '+QuotedStr(DBEdit9.Text ));
QCarrega.SQL.Add(' , '+QuotedStr(DBEdit7.Text ));
QCarrega.SQL.Add(' , '+QuotedStr( 'Base'));
QCarrega.SQL.Add(' , '+' 0');
QCarrega.SQL.Add(' , '+QuotedStr(EditCodParada.Text ));
QCarrega.SQL.Add(' , '+'Null' );
QCarrega.SQL.Add(' , '+QuotedStr( '2007-11-01 00:00:01' ));
QCarrega.SQL.Add(' , '+QuotedStr( '2007-11-01 00:00:02' ));
QCarrega.SQL.Add(')');
//
{ Executa a instrução SQL. }
Memo5.Lines.AddStrings(QCarrega.SQL);
QCarrega.ExecSQL;
end;
finally
QCarrega.Close;
QCarrega.open;
end;
//desta forma gera erro
try
begin
{ Instrução SQL para inclusão dos registros. }
QCarrega.Close;
QCarrega.SQL.Clear;
QCarrega.SQL.Add('INSERT INTO KPARADAATV');
QCarrega.SQL.Add('(CODCOLIGADA,');
QCarrega.SQL.Add('CODORDEM,');
QCarrega.SQL.Add('CODESTRUTURA,');
QCarrega.SQL.Add('CODMODELO, ');
QCarrega.SQL.Add('IDATVORDEM, ');
QCarrega.SQL.Add('CODRAZAO,');
QCarrega.SQL.Add('CODAGENTE, ');
QCarrega.SQL.Add('DTHRINICIO, ');
QCarrega.SQL.Add('DTHRFIM) ');
QCarrega.sql.Add(' VALUES ( ');
QCarrega.SQL.Add('1');
QCarrega.SQL.Add(' , '+QuotedStr(DBEdit9.Text));
QCarrega.SQL.Add(' , '+QuotedStr(DBEdit7.Text));
QCarrega.SQL.Add(' , '+QuotedStr( 'Base' ));
QCarrega.SQL.Add(' , '+' 0');
QCarrega.SQL.Add(' , '+QuotedStr(EditCodParada.Text ));
QCarrega.SQL.Add(' , '+'Null' );
QCarrega.SQL.Add(' ,
'+QuotedStr(FormatDateTime('mm/dd/',EditHoraInicio.Text)),quotedstr(FormatDateTime('mm/dd/',EditHoraFim.Text)))
QCarrega.SQL.Add(')'); //1ª
{ Executa a instrução SQL. }
Memo4.Lines.AddStrings(QCarrega.SQL);
QCarrega.ExecSQL;
end;
finally
QCarrega.Close;
QCarrega.open;
end;
//erro
[Error] untInsercaoParadas.pas(319): There is no overloaded version
of 'FormatDateTime' that can be called with these arguments
[Error] untInsercaoParadas.pas(319): There is no overloaded version
of 'FormatDateTime' that can be called with these arguments
[Fatal Error] Producao.dpr(8): Could not compile used unit
'untInsercaoParadas.pas'
[delphi-br] Dúvida - Conversão de datas
Bom dia a todos!!
Preciso fazer a conversão de datas e gravar tanto a data como a
hora, fiz o exemplo a baixo,
Mais está gerando erro na linha marcada como 1ª, preciso da ajuda de
vocês, sei que o tempo de voces e corrido,
mais me dar uma força ai se possível.
Agradeço!!
Banco SQL Server
tipo de campo: DateTime
//desta forma funciona
try
begin
{ Instrução SQL para inclusão dos registros. }
QCarrega.Close;
QCarrega.SQL.Clear;
QCarrega.SQL.Add('INSERT INTO KPARADAATV');
QCarrega.SQL.Add('(CODCOLIGADA,');
QCarrega.SQL.Add('CODORDEM,');
QCarrega.SQL.Add('CODESTRUTURA,');
QCarrega.SQL.Add('CODMODELO, ');
QCarrega.SQL.Add('IDATVORDEM, ');
QCarrega.SQL.Add('CODRAZAO,');
QCarrega.SQL.Add('CODAGENTE, ');
QCarrega.SQL.Add('DTHRINICIO, ');
QCarrega.SQL.Add('DTHRFIM) ');
QCarrega.sql.Add(' VALUES ( ');
QCarrega.SQL.Add('1');
QCarrega.SQL.Add(' , '+QuotedStr(DBEdit9.Text ));
QCarrega.SQL.Add(' , '+QuotedStr(DBEdit7.Text ));
QCarrega.SQL.Add(' , '+QuotedStr( 'Base'));
QCarrega.SQL.Add(' , '+' 0');
QCarrega.SQL.Add(' , '+QuotedStr(EditCodParada.Text ));
QCarrega.SQL.Add(' , '+'Null' );
QCarrega.SQL.Add(' , '+QuotedStr( '2007-11-01 00:00:01' ));
QCarrega.SQL.Add(' , '+QuotedStr( '2007-11-01 00:00:02' ));
QCarrega.SQL.Add(')');
//
{ Executa a instrução SQL. }
Memo5.Lines.AddStrings(QCarrega.SQL);
QCarrega.ExecSQL;
end;
finally
QCarrega.Close;
QCarrega.open;
end;
//desta forma gera erro
try
begin
{ Instrução SQL para inclusão dos registros. }
QCarrega.Close;
QCarrega.SQL.Clear;
QCarrega.SQL.Add('INSERT INTO KPARADAATV');
QCarrega.SQL.Add('(CODCOLIGADA,');
QCarrega.SQL.Add('CODORDEM,');
QCarrega.SQL.Add('CODESTRUTURA,');
QCarrega.SQL.Add('CODMODELO, ');
QCarrega.SQL.Add('IDATVORDEM, ');
QCarrega.SQL.Add('CODRAZAO,');
QCarrega.SQL.Add('CODAGENTE, ');
QCarrega.SQL.Add('DTHRINICIO, ');
QCarrega.SQL.Add('DTHRFIM) ');
QCarrega.sql.Add(' VALUES ( ');
QCarrega.SQL.Add('1');
QCarrega.SQL.Add(' , '+QuotedStr(DBEdit9.Text));
QCarrega.SQL.Add(' , '+QuotedStr(DBEdit7.Text));
QCarrega.SQL.Add(' , '+QuotedStr( 'Base' ));
QCarrega.SQL.Add(' , '+' 0');
QCarrega.SQL.Add(' , '+QuotedStr(EditCodParada.Text ));
QCarrega.SQL.Add(' , '+'Null' );
QCarrega.SQL.Add(' ,
'+QuotedStr(FormatDateTime('mm/dd/',EditHoraInicio.Text)),quotedstr(FormatDateTime('mm/dd/',EditHoraFim.Text)))
QCarrega.SQL.Add(')'); //1ª
{ Executa a instrução SQL. }
Memo4.Lines.AddStrings(QCarrega.SQL);
QCarrega.ExecSQL;
end;
finally
QCarrega.Close;
QCarrega.open;
end;
//erro
[Error] untInsercaoParadas.pas(319): There is no overloaded version
of 'FormatDateTime' that can be called with these arguments
[Error] untInsercaoParadas.pas(319): There is no overloaded version
of 'FormatDateTime' that can be called with these arguments
[Fatal Error] Producao.dpr(8): Could not compile used unit
'untInsercaoParadas.pas'
Re: [delphi-br] AdoQuery: Command Text does not return a result set
Boa tarde! Pode estar ocorrendo de nenhum registro no seu BD satisfazer aos parâmetros informados. Sds, Ricardo. Junior [EMAIL PROTECTED] escreveu: Estou tentando executar este comando via ADOQuery, porém ele está retornando Command Text does not return a result set UPDATE PRODUTOS SET PRECO_CUSTO= :PRECO_NORMAL CODIGO_BARRAS = :CODIGO_BARRAS, CODIGO_ORIGINAL= :CODIGO_FORNECEDOR, PRECO_VENDA = (PRECO_CUSTO + ((PRECO_CUSTO/100.00)*LUCRO)) WHERE CODIGO_FORNECEDOR = :CODIGO -Os campos da tabela estão corretos -Parameters estão preenchidos corretos (o próprio ADOQuery assume : como parametro) -DataSource ligado corretamente na tabela de Produtos. O que pode estar errado ? Desde já muitíssimo obrigado pela atenção Atenciosamente, Junior [As partes desta mensagem que não continham texto foram removidas] _ - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Erro com Instrução SQL!!!
Para ficar mais fácil a resolução do seu problema, acrescente esta linha de comando e coloque um memo no seu forma, após isso verifique a instrução gerada dentro do memo. Você verá que esta fechando a query Query1.Close; Mais não está limpando à mesma conforme respondido pelo colega Query1.SQL.Clear; Memo1.Lines.AddStrings(Query1.SQL); //acrescentar Query1.ExecSQL;
Re: [delphi-br] IMPRESSÃO DIRETA LPT1 / USB
Esta solução funciona para LPX - onde x é o número até 255 que você quiser rsrsrs. Outra opção é dizer na instalação da impressora que ela será utilizada para DOS e o próprio micro fará isto para vc ( associando no micro destino a porta USB à uma porta paralela ) Sérgio On 11/21/07, Celso Lorenzetti - GMail [EMAIL PROTECTED] wrote: Olá Juliano, deve existir outra mais elegante, mas esses dias passei pela mesma situação e resolvi assim: na máquina que você deseja imprimir, digite no DOS: net use lpt1 \\maquinaondeestaaimpressora\nomedaimpressora agora você pode mandar imprimir na LPT1 que saíra na impressora que está na USB, funciona inclusive local, pelo menos no XP que foi onde fiz isso, funcionou. Espero que ajude. Att, Celso Lorenzetti Analista de Sistemas msn: [EMAIL PROTECTED] celsolorenzetti%40ibest.com.br -- SysRS Tecnologia da Informação Ltda. www.sysrs.com.br - Original Message - From: Juliano Silva - Yahoo To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Wednesday, November 21, 2007 8:42 AM Subject: [delphi-br] IMPRESSÃO DIRETA LPT1 / USB Pessoal Estou realizando a impressão direta na porta, como todos sabem se existe uma impressora na rede compartilhada, basta passar o nome da terminal e também o nome do compartilhamento (HYPERLINK file:///TERMINAL01\\EPSON\\TERMINAL01\EPSON para uma impressora EPSON LX300 compartilhada), bem está funcionando perfeitamente para as impressoras que estão na LPT1 ou até mesmo COM, no entanto quando a impressora é USB não funciona, alguém poderia me ajudar? Juliano Silva No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.503 / Virus Database: 269.16.0/1137 - Release Date: 18/11/2007 17:15 No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.503 / Virus Database: 269.16.0/1137 - Release Date: 18/11/2007 17:15 [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] inserir dados usando ibdataset
ele me passa a mensagem na hora q eu vou salvar q o campo hora nao foi
encontrado..
dm1.Internacao.ParamByName('HORA').AsTime := Time();
dm1.Internacao.post;
- Original Message -
From: Andre Luis Silveria
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, November 21, 2007 11:00 AM
Subject: Res: [delphi-br] inserir dados usando ibdataset
Já tentou passar direto ?
dm1.Internacao. ParamByName( 'HORA').AsTime := Time();
ou guardar em uma variável do tipo TTime e passar ela ?
Tempo : TTime;
Tempo := Time();
dm1.Internacao. ParamByName( 'HORA').AsTime := Tempo;
- Mensagem original
De: inacio_mecena [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 21 de Novembro de 2007 11:51:57
Assunto: [delphi-br] inserir dados usando ibdataset
Ola pessoal bom dia.. seguinte estou com os seguintes problemas.. eu
crei um campo Hora do tipo time.. ai config o ibdataset tudo certinho
ele ta inserindo os dados.. so q eu to precisando pegar o parametro da
hora q el coloquei em um label com o seguinte codigo
lbHora.Caption := TimeToStr(time) ;
so q dai qdo eu vou salvar ele me fala q '0.38363000' não é um valor de
marca de tempo(timestamp) valido... dai mudei la no meu banco o campo
hora para timestamp mas mesmo assim o problema perdura..
e tbm gostaria de saber como faço para passar os parametros para o
ibdataset pq to usando o seguinte codigo.
dm1.Internacao. ParamByName( 'HORA').AsTime := lbHora.capiton;
ele fala q nao encontrou o campo hora qdo eu vou dar um post..
espro q tenham entendido a minha duvida.. att..
Inacio Mecena
!--
#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;}
--
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
http://br.mail.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] inserir dados usando ibdataset
Inácio, uma vez tive um probleminha com o nome do campo, qdo criei coloquei por
exemplo, Hora e passava HORA, verifique na sua tabela como esta escrito o nome
do campo, de repente se for possivel apague o campo e crie novamente, no meu
caso naum sei se foi coincidencia ou se há realmente uma diferença, pra naum
ter dúvidas TUDO no banco de dados é em maiuscula.
Kaputz, Robson
Skype: kaputz_gri
Keep the Dream Alive
- Mensagem original
De: Inácio Mecena [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 21 de Novembro de 2007 12:04:30
Assunto: Re: [delphi-br] inserir dados usando ibdataset
ele me passa a mensagem na hora q eu vou salvar q o campo hora nao foi
encontrado..
dm1.Internacao. ParamByName( 'HORA').AsTime := Time();
dm1.Internacao. post;
- Original Message -
From: Andre Luis Silveria
To: [EMAIL PROTECTED] os.com.br
Sent: Wednesday, November 21, 2007 11:00 AM
Subject: Res: [delphi-br] inserir dados usando ibdataset
Já tentou passar direto ?
dm1.Internacao. ParamByName( 'HORA').AsTime := Time();
ou guardar em uma variável do tipo TTime e passar ela ?
Tempo : TTime;
Tempo := Time();
dm1.Internacao. ParamByName( 'HORA').AsTime := Tempo;
- Mensagem original
De: inacio_mecena inacio_mecena@ yahoo.com. br
Para: [EMAIL PROTECTED] os.com.br
Enviadas: Quarta-feira, 21 de Novembro de 2007 11:51:57
Assunto: [delphi-br] inserir dados usando ibdataset
Ola pessoal bom dia.. seguinte estou com os seguintes problemas.. eu
crei um campo Hora do tipo time.. ai config o ibdataset tudo certinho
ele ta inserindo os dados.. so q eu to precisando pegar o parametro da
hora q el coloquei em um label com o seguinte codigo
lbHora.Caption := TimeToStr(time) ;
so q dai qdo eu vou salvar ele me fala q '0.38363000' não é um valor de
marca de tempo(timestamp) valido... dai mudei la no meu banco o campo
hora para timestamp mas mesmo assim o problema perdura..
e tbm gostaria de saber como faço para passar os parametros para o
ibdataset pq to usando o seguinte codigo.
dm1.Internacao. ParamByName( 'HORA').AsTime := lbHora.capiton;
ele fala q nao encontrou o campo hora qdo eu vou dar um post..
espro q tenham entendido a minha duvida.. att..
Inacio Mecena
!--
#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
[delphi-br] Re: AdoQuery: Command Text does not return a result set
Verifica está instrução, mais aconselho vovê usar SQL ao investe de
Parametros.
try
begin
{ Instrução SQL para Update dos registros. }
QTeste.Close;
QTeste.SQL.Clear;
QTeste.SQL.Add('UPDATE PRODUTOS ');
QTeste.SQL.Add(' SET ');
QTeste.SQL.Add(' PRECO_CUSTO,');
QTeste.SQL.Add(' CODIGO_BARRAS, ');
QTeste.SQL.Add(' CODIGO_ORIGINAL,');
QTeste.SQL.Add(' PRECO_VENDA ');
QTeste.SQL.Add(' WHERE CODIGO_FORNECEDOR IN ('0')');
{ Executa a instrução SQL. }
Memo1.Lines.AddStrings(QTeste.SQL);
QTeste.ExecSQL;
end;
finally
QTeste.Close;
QTeste.open;
end;
Re: [delphi-br] Dúvida - Conversão de datas
Vc já tentou usar o metodo ParambyName da Query???
Nunca mais vai ter dor de cabeça com conversões de campos nem se mudar de
banco de dados.
Em 21/11/07, itasouza [EMAIL PROTECTED] escreveu:
Bom dia a todos!!
Preciso fazer a conversão de datas e gravar tanto a data como a
hora, fiz o exemplo a baixo,
Mais está gerando erro na linha marcada como 1ª, preciso da ajuda de
vocês, sei que o tempo de voces e corrido,
mais me dar uma força ai se possível.
Agradeço!!
Banco SQL Server
tipo de campo: DateTime
//desta forma funciona
try
begin
{ Instrução SQL para inclusão dos registros. }
QCarrega.Close;
QCarrega.SQL.Clear;
QCarrega.SQL.Add('INSERT INTO KPARADAATV');
QCarrega.SQL.Add('(CODCOLIGADA,');
QCarrega.SQL.Add(' CODORDEM,');
QCarrega.SQL.Add('CODESTRUTURA,');
QCarrega.SQL.Add('CODMODELO, ');
QCarrega.SQL.Add('IDATVORDEM, ');
QCarrega.SQL.Add('CODRAZAO, ');
QCarrega.SQL.Add('CODAGENTE, ');
QCarrega.SQL.Add('DTHRINICIO, ');
QCarrega.SQL.Add('DTHRFIM) ');
QCarrega.sql.Add(' VALUES ( ');
QCarrega.SQL.Add('1');
QCarrega.SQL.Add(' , '+QuotedStr(DBEdit9.Text ));
QCarrega.SQL.Add(' , '+QuotedStr(DBEdit7.Text ));
QCarrega.SQL.Add(' , '+QuotedStr( 'Base' ));
QCarrega.SQL.Add(' , '+' 0' );
QCarrega.SQL.Add(' , '+QuotedStr(EditCodParada.Text ));
QCarrega.SQL.Add(' , '+'Null' );
QCarrega.SQL.Add(' , '+QuotedStr( '2007-11-01 00:00:01' ));
QCarrega.SQL.Add(' , '+QuotedStr( '2007-11-01 00:00:02' ));
QCarrega.SQL.Add(')');
//
{ Executa a instrução SQL. }
Memo5.Lines.AddStrings(QCarrega.SQL);
QCarrega.ExecSQL;
end;
finally
QCarrega.Close;
QCarrega.open;
end;
//desta forma gera erro
try
begin
{ Instrução SQL para inclusão dos registros. }
QCarrega.Close;
QCarrega.SQL.Clear;
QCarrega.SQL.Add('INSERT INTO KPARADAATV');
QCarrega.SQL.Add('(CODCOLIGADA,');
QCarrega.SQL.Add(' CODORDEM,');
QCarrega.SQL.Add('CODESTRUTURA,');
QCarrega.SQL.Add('CODMODELO, ');
QCarrega.SQL.Add('IDATVORDEM, ');
QCarrega.SQL.Add('CODRAZAO, ');
QCarrega.SQL.Add('CODAGENTE, ');
QCarrega.SQL.Add('DTHRINICIO, ');
QCarrega.SQL.Add('DTHRFIM) ');
QCarrega.sql.Add(' VALUES ( ');
QCarrega.SQL.Add('1');
QCarrega.SQL.Add(' , '+QuotedStr(DBEdit9.Text ));
QCarrega.SQL.Add(' , '+QuotedStr(DBEdit7.Text ));
QCarrega.SQL.Add(' , '+QuotedStr( 'Base' ));
QCarrega.SQL.Add(' , '+' 0' );
QCarrega.SQL.Add(' , '+QuotedStr(EditCodParada.Text ));
QCarrega.SQL.Add(' , '+'Null' );
QCarrega.SQL.Add(' ,
'+QuotedStr(FormatDateTime('mm/dd/',EditHoraInicio.Text
)),quotedstr(FormatDateTime('mm/dd/',EditHoraFim.Text)))
QCarrega.SQL.Add(')'); //1ª
{ Executa a instrução SQL. }
Memo4.Lines.AddStrings(QCarrega.SQL);
QCarrega.ExecSQL;
end;
finally
QCarrega.Close;
QCarrega.open;
end;
//erro
[Error] untInsercaoParadas.pas(319): There is no overloaded version
of 'FormatDateTime' that can be called with these arguments
[Error] untInsercaoParadas.pas(319): There is no overloaded version
of 'FormatDateTime' that can be called with these arguments
[Fatal Error] Producao.dpr(8): Could not compile used unit
'untInsercaoParadas.pas'
--
Visite:
Fundamental: www.amados.com.br
Dúvidas:http://nilsoftware.blogspot.com/
Obrigatório: www.saopaulofc.com.br
[As partes desta mensagem que não continham texto foram removidas]
Res: Res: [delphi-br] inserir dados usando ibdataset
desculpe to com muita dor de kbça hj, mas vamos lá acrecente à minha resposta:
verifique tb no componente q vc está utilizando se o campo esta adicionado no
mesmo, se naum resolver envie-nos qual componente q vc esta utilizando
(ADO,IBX,FIBPLUS, etc).
Kaputz, Robson
Skype: kaputz_gri
Keep the Dream Alive
- Mensagem original
De: Robson [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 21 de Novembro de 2007 13:03:49
Assunto: Res: [delphi-br] inserir dados usando ibdataset
Inácio, uma vez tive um probleminha com o nome do campo, qdo criei coloquei por
exemplo, Hora e passava HORA, verifique na sua tabela como esta escrito o nome
do campo, de repente se for possivel apague o campo e crie novamente, no meu
caso naum sei se foi coincidencia ou se há realmente uma diferença, pra naum
ter dúvidas TUDO no banco de dados é em maiuscula.
Kaputz, Robson
Skype: kaputz_gri
Keep the Dream Alive
- Mensagem original
De: Inácio Mecena inacio_mecena@ yahoo.com. br
Para: [EMAIL PROTECTED] os.com.br
Enviadas: Quarta-feira, 21 de Novembro de 2007 12:04:30
Assunto: Re: [delphi-br] inserir dados usando ibdataset
ele me passa a mensagem na hora q eu vou salvar q o campo hora nao foi
encontrado..
dm1.Internacao. ParamByName( 'HORA').AsTime := Time();
dm1.Internacao. post;
- Original Message -
From: Andre Luis Silveria
To: [EMAIL PROTECTED] os.com.br
Sent: Wednesday, November 21, 2007 11:00 AM
Subject: Res: [delphi-br] inserir dados usando ibdataset
Já tentou passar direto ?
dm1.Internacao. ParamByName( 'HORA').AsTime := Time();
ou guardar em uma variável do tipo TTime e passar ela ?
Tempo : TTime;
Tempo := Time();
dm1.Internacao. ParamByName( 'HORA').AsTime := Tempo;
- Mensagem original
De: inacio_mecena inacio_mecena@ yahoo.com. br
Para: [EMAIL PROTECTED] os.com.br
Enviadas: Quarta-feira, 21 de Novembro de 2007 11:51:57
Assunto: [delphi-br] inserir dados usando ibdataset
Ola pessoal bom dia.. seguinte estou com os seguintes problemas.. eu
crei um campo Hora do tipo time.. ai config o ibdataset tudo certinho
ele ta inserindo os dados.. so q eu to precisando pegar o parametro da
hora q el coloquei em um label com o seguinte codigo
lbHora.Caption := TimeToStr(time) ;
so q dai qdo eu vou salvar ele me fala q '0.38363000' não é um valor de
marca de tempo(timestamp) valido... dai mudei la no meu banco o campo
hora para timestamp mas mesmo assim o problema perdura..
e tbm gostaria de saber como faço para passar os parametros para o
ibdataset pq to usando o seguinte codigo.
dm1.Internacao. ParamByName( 'HORA').AsTime := lbHora.capiton;
ele fala q nao encontrou o campo hora qdo eu vou dar um post..
espro q tenham entendido a minha duvida.. att..
Inacio Mecena
!--
#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
Res: [delphi-br] AdoQuery: Command Text does not return a result set
Tente usar o execsql ou execute (não lembro agora) somente não use o open, ele
exige que se retorne um cursor de dados, e o update/insert/delete não retorna
um cursor.
- Mensagem original
De: Ricardo César Cardoso [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 21 de Novembro de 2007 12:12:49
Assunto: Re: [delphi-br] AdoQuery: Command Text does not return a result set
Boa tarde!
Pode estar ocorrendo de nenhum registro no seu BD satisfazer aos parâmetros
informados.
Sds,
Ricardo.
Junior red.mosquito@ uol.com.br escreveu: Estou
tentando executar este comando via ADOQuery, porém ele está retornando
“Command Text does not return a result set”
UPDATE PRODUTOS
SET PRECO_CUSTO= :PRECO_NORMAL
CODIGO_BARRAS = :CODIGO_BARRAS,
CODIGO_ORIGINAL= :CODIGO_FORNECEDOR,
PRECO_VENDA = (PRECO_CUSTO + ((PRECO_CUSTO/ 100.00)*LUCRO) )
WHERE CODIGO_FORNECEDOR = :CODIGO
-Os campos da tabela estão corretos
-Parameters estão preenchidos corretos (o próprio ADOQuery assume : como
parametro)
-DataSource ligado corretamente na tabela de Produtos.
O que pode estar errado ?
Desde já muitíssimo obrigado pela atenção
Atenciosamente,
Junior
[As partes desta mensagem que não continham texto foram removidas]
_
- - ---
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
[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;}
--
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
http://br.mail.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Sumindo Itens lançados
Galera é o seguinte tenho um sistema de contas, rodando em um pen-drive, da kingston de 1 gb deito em delphi e firebird 2.0 até ai, tudo blz, o sistema roda blzinha o cliente lança, altera, imprimi tudo ok passa um tempo o lançamento que o cliente fez some, não fica nem rastro no banco de dados. e o cliente imprimiu o lançamento, comprovando a existência do lançamento; e agora o que pode ser esse erros, sendo que no sistema nao tem nenhuma linha de exclusão de registros. será que deve ser problema no pen-drive ? ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/
Re: Res: [delphi-br] Erro com Instrução SQL!!!
Obrigado Galera, consegui resolver...e era uma coisa
simples...abraços!!!
--- Em delphi-br@yahoogrupos.com.br, Andre Luis Silveria
[EMAIL PROTECTED] escreveu
Vc não está limpando o sql anterior, por isso está ficando com duas
instruções:
Query1.Close;
Query1.SQL.Clear; -- Coloque esta linha aqui.
query1.SQL.Add( 'insert into CEP(CEP, LOGRADOURO, ENDERECO,
- Mensagem original
De: rafaelpinto19 [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 21 de Novembro de 2007 11:51:48
Assunto: [delphi-br] Erro com Instrução SQL!!!
Sempre quando faço os procedimentos para gravar os Registro no
banco funciona, mas quando vou cadastrar outro resgistro logo em
seguida dá o Seguinte Erro Dynamic SQL Error.SQL Error code = -104
Token unknown - line 3, char -1 insert.. Faço quando vou cadastrar um
CEP. Ou seja, eu cadastro um registro, q no outro seguida quando vou
gravar dá esse erro. aí eu tenho q fechar e gtravar de novo. E tbm dá
esse tipo de erro nas consultas mas é com outras palavras Dynamic SQL
Error.SQL Error code = -104 Token unknown - line 3, char -1 select..
taí o meu código:
if Edit1.Text '' then
begin
Query1.Close;
query1.SQL.Add( 'insert into CEP(CEP, LOGRADOURO, ENDERECO,
BAIRRO, CIDADE, UF)');
Query1.SQL.Add( 'values (:CEP, :LOGRADOURO, :ENDERECO, :BAIRRO,
:CIDADE, :UF)');
Query1.ParamByName( 'CEP').AsString := Edit1.Text;
Query1.ParamByName( 'LOGRADOURO' ).AsString := ComboBox1.Text;
Query1.ParamByName( 'ENDERECO' ).AsString := Edit2.Text;
Query1.ParamByName( 'BAIRRO') .AsString := Edit3.Text;
Query1.ParamByName( 'CIDADE') .AsString := Edit4.Text;
Query1.ParamByName( 'UF').AsString := Edit5.Text;
Query1.ExecSQL;
Query1.Transaction. Commit;
Query1.Transaction. Active := TRUE;
ShowMessage( 'C.E.P Registrado em Nossa basse de Dados!');
if MessageDlg(' Deseja Cadastrar outro
C.E.P!',mtConfirmat ion,[mbYES, mbNO],0)= mrYES then
begin
limpaedit;
ComboBox1.Text: = '';
Edit1.SetFocus;
end
else
close;
end
else
ShowMessage( 'Precisa Informar o C.E.P!');
Edit1.SetFocus;
será que alguém pode tirar essa dúvida pra min e me dizer por que
que ocorre esse erro?
!--
#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{
Res: [delphi-br] Sumindo Itens lançados
Banco de dados e pen drive não é uma boa ideia...já vi experiências extremas nesta prática... ainda mais quando o usuário só dá importancia ao backup depois que o pendrive sefoi. Se foi em dados de mais de uma tabela até acredito que possa ter sido problemas com o banco. (não confio em nada nos pendrives..) Outra dica é tentar ver se o banco encontra-se corrompido. Tome cuidado com os pontos de restauração do windows xp. é uma praga. (não sei se tem a ver com a estenção do arquivo .gdb) Um dica pra tentar descobrir, seria criar um log das operações efetuadas no banco, vai lá cria em trigger mesmo, so pra quebrar o galho que voce acaba descobrindo as brincadeiras que certos usuarios fazem no seu banco. E se por acaso descobrir o que esta aconteçendo, reporte aqui na lista. é muito interessante a gente ter conhecimento de certos problemas. Atenc; Elazar Felizes os pessismistas, pois estes fazem um backup - Mensagem original De: Luís [EMAIL PROTECTED] Para: Delphi-Br delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 21 de Novembro de 2007 13:39:04 Assunto: [delphi-br] Sumindo Itens lançados Galera é o seguinte tenho um sistema de contas, rodando em um pen-drive, da kingston de 1 gb deito em delphi e firebird 2.0 até ai, tudo blz, o sistema roda blzinha o cliente lança, altera, imprimi tudo ok passa um tempo o lançamento que o cliente fez some, não fica nem rastro no banco de dados. e o cliente imprimiu o lançamento, comprovando a existência do lançamento; e agora o que pode ser esse erros, sendo que no sistema nao tem nenhuma linha de exclusão de registros. será que deve ser problema no pen-drive ? _ _ _ _ ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo. com/mailbeta/ tudonovo/ Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Histórico internet explorer
Põe um TCheckListBox no form, coloca ele como ViewStyle = vsReport e
insere duas colunas.
No OnCreate do form coloca algo como abaixo:
Isso vai listar as urls visitadas e jogar no CheckListView. (Internet
Explorer);
Como pode ver vem do regedit, então basta criar um botão para apagar ou
inserir uma url.
procedure TForm1.FormCreate(Sender: TObject);
var
I, Tam: Integer;
C, V: string;
N: TStringList;
Lin: TListItem;
Col: TListColumn;
begin
Form1.Left := 50;
Form1.Top := 50;
Col := Lv.Columns.Add;
Col.Caption := 'Páginas visitadas';
Col.Width := 300;
Registro := TRegIniFile.Create('HKEY_CURRENT_USER');
Registro.OpenKey('\Software\Microsoft\Internet Explorer', False);
Page := Registro.ReadString('Main', 'Start Page', Page);
N := TStringList.Create;
Registro.ReadSection('TypedURLs', N);
Edit1.Text := Page;
for I := 0 to N.Count - 1 do
begin
C := N[I];
V := Registro.ReadString('TypedURLs', C, V);
Lin := LV.Items.Add;
Lin.Caption := V;
end;
if LV.Items.Count = 0 then
begin
Lin := LV.Items.Add;
Lin.Caption := V;
Lin.ImageIndex := 1;
end;
N.Free;
Registro.Free;
end;
Evaldo respondeu:
Bom dia,
Gostaria de saber se é possivel capturar o histórico da web do
internet explorer e do firefox atraves do delphi, pesquisei na
internet e não vi nenhuma referência sobre este assunto.
Grato pela atenção.
-
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
[As partes desta mensagem que não continham texto foram removidas]
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.503 / Virus Database: 269.16.2/1143 - Release Date: 21/11/2007
10:01
--
Adriano Santos
-
Editor Técnico Revista ClubeDelphi
www.delphitodelphi.blogspot.com
www.devmedia.com.br
www.devmedia.com.br/clubedelphi/pagina.asp
[Fwd: Re: [delphi-br] DELPHI 1, 2 ou 3 ...]
Em tempo... O delphi 3 que veio com a revista 14, usei para desenvolver um software científico que está postado no SuperDownloads, e por isso a consulta a revista sobre a legalidade do mesmo, segunda revista o software acompanhado do CD da revista é legal. O software desenvolvido: PESN para Windows http://superdownloads.uol.com.br/download/117/pesn-windows/ Testei tardiamente e não funciona no XP, pois alguma parte do código é específico para Win9x. Carlos Mensagem original Assunto:Re: [delphi-br] DELPHI 1, 2 ou 3 ... Data: Wed, 21 Nov 2007 15:07:26 -0200 De: Carlos [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Referências:[EMAIL PROTECTED] A revista PC Expert tem estes softwares, e em troca de e-mails com eles fui informado que a posse da mídia veiculado pela revista torna o legal, Revista 14 tem o Deplhi 3 e 1 Revista 15 tem C++ Builder 3 e 1 Revista 29 tem o Delphi 4, apesar de estar com problemas na instalação O duro é acha-las e com o CD incluso. Carlos Juliano Silva - Yahoo escreveu: Pessoal Alguém tem ou sabe onde posso conseguir o Delphi nas versões 1, 2 ou 3? São relíquias onde podemos mostrar a evolução da ferramenta como tenho alguns alunos gostaria de mostrar para eles estas mudanças. Juliano Silva No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.503 / Virus Database: 269.15.26/1120 - Release Date: 09/11/2007 09:26 No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.503 / Virus Database: 269.15.26/1120 - Release Date: 09/11/2007 09:26 [As partes desta mensagem que não continham texto foram removidas] -- Carlos -- Jamais fume na presença de seres vivos -- Carlos R. Macedonio Setor de Informática Departamento de Genética, ESALQ/USP
RES: [delphi-br] IMPRESSÃO DIRETA LPT1 / USB
Mas para impressoras instalada em WinXP esta opção não aparece, somente para impressoras em Win98. _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Sérgio Losada Enviada em: quarta-feira, 21 de novembro de 2007 11:32 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] IMPRESSÃO DIRETA LPT1 / USB Esta solução funciona para LPX - onde x é o número até 255 que você quiser rsrsrs. Outra opção é dizer na instalação da impressora que ela será utilizada para DOS e o próprio micro fará isto para vc ( associando no micro destino a porta USB à uma porta paralela ) Sérgio On 11/21/07, Celso Lorenzetti - GMail HYPERLINK mailto:clorenzettibr%40gmail.com[EMAIL PROTECTED] wrote: Olá Juliano, deve existir outra mais elegante, mas esses dias passei pela mesma situação e resolvi assim: na máquina que você deseja imprimir, digite no DOS: net use lpt1 \\maquinaondeestaai-mpressora\-nomedaimpressora agora você pode mandar imprimir na LPT1 que saíra na impressora que está na USB, funciona inclusive local, pelo menos no XP que foi onde fiz isso, funcionou. Espero que ajude. Att, Celso Lorenzetti Analista de Sistemas msn: HYPERLINK mailto:celsolorenzetti%40ibest.com.br[EMAIL PROTECTED] celsolorenzetti%-40ibest.com.-br SysRS Tecnologia da Informação Ltda. www.sysrs.com.-br - Original Message - From: Juliano Silva - Yahoo To: HYPERLINK mailto:delphi-br%40yahoogrupos.com.br[EMAIL PROTECTED] delphi-br%40yahoog-rupos.com.-br Sent: Wednesday, November 21, 2007 8:42 AM Subject: [delphi-br] IMPRESSÃO DIRETA LPT1 / USB Pessoal Estou realizando a impressão direta na porta, como todos sabem se existe uma impressora na rede compartilhada, basta passar o nome da terminal e também o nome do compartilhamento (HYPERLINK HYPERLINK file:///file:///TERMINAL01\-\EPSON\\-TERMINAL01\-EPSON para uma impressora EPSON LX300 compartilhada)-, bem está funcionando perfeitamente para as impressoras que estão na LPT1 ou até mesmo COM, no entanto quando a impressora é USB não funciona, alguém poderia me ajudar? Juliano Silva No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.503 / Virus Database: 269.16.0/1137 - Release Date: 18/11/2007 17:15 No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.503 / Virus Database: 269.16.0/1137 - Release Date: 18/11/2007 17:15 [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] No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.503 / Virus Database: 269.16.0/1137 - Release Date: 18/11/2007 17:15 No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.503 / Virus Database: 269.16.0/1137 - Release Date: 18/11/2007 17:15 [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] inserir dados usando ibdataset
Ola fiz como disse ta tudo em maisculo o campo HORA esta como TIME to usando
ibdataset da paleta interbase.. delphi 7
o meu insertsql ta assim
insert into INTERNACAO
(ID_INTERNACAO, PRONTUARIO, CONVENIO, HORA, DATA, RESPONSAVEL,
REP_PARENTESCO,
RESP_ENDERECO, RESP_CIDADE)
values
(:ID_INTERNACAO, :PRONTUARIO, :CONVENIO, :HORA, :DATA,
:RESPONSAVEL,
:REP_PARENTESCO, :RESP_ENDERECO, :RESP_CIDADE)
- Original Message -
From: Robson
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, November 21, 2007 12:23 PM
Subject: Res: Res: [delphi-br] inserir dados usando ibdataset
desculpe to com muita dor de kbça hj, mas vamos lá acrecente à minha resposta:
verifique tb no componente q vc está utilizando se o campo esta adicionado no
mesmo, se naum resolver envie-nos qual componente q vc esta utilizando
(ADO,IBX,FIBPLUS, etc).
Kaputz, Robson
Skype: kaputz_gri
Keep the Dream Alive
- Mensagem original
De: Robson [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 21 de Novembro de 2007 13:03:49
Assunto: Res: [delphi-br] inserir dados usando ibdataset
Inácio, uma vez tive um probleminha com o nome do campo, qdo criei coloquei
por exemplo, Hora e passava HORA, verifique na sua tabela como esta escrito o
nome do campo, de repente se for possivel apague o campo e crie novamente, no
meu caso naum sei se foi coincidencia ou se há realmente uma diferença, pra
naum ter dúvidas TUDO no banco de dados é em maiuscula.
Kaputz, Robson
Skype: kaputz_gri
Keep the Dream Alive
- Mensagem original
De: Inácio Mecena inacio_mecena@ yahoo.com. br
Para: [EMAIL PROTECTED] os.com.br
Enviadas: Quarta-feira, 21 de Novembro de 2007 12:04:30
Assunto: Re: [delphi-br] inserir dados usando ibdataset
ele me passa a mensagem na hora q eu vou salvar q o campo hora nao foi
encontrado..
dm1.Internacao. ParamByName( 'HORA').AsTime := Time();
dm1.Internacao. post;
- Original Message -
From: Andre Luis Silveria
To: [EMAIL PROTECTED] os.com.br
Sent: Wednesday, November 21, 2007 11:00 AM
Subject: Res: [delphi-br] inserir dados usando ibdataset
Já tentou passar direto ?
dm1.Internacao. ParamByName( 'HORA').AsTime := Time();
ou guardar em uma variável do tipo TTime e passar ela ?
Tempo : TTime;
Tempo := Time();
dm1.Internacao. ParamByName( 'HORA').AsTime := Tempo;
- Mensagem original
De: inacio_mecena inacio_mecena@ yahoo.com. br
Para: [EMAIL PROTECTED] os.com.br
Enviadas: Quarta-feira, 21 de Novembro de 2007 11:51:57
Assunto: [delphi-br] inserir dados usando ibdataset
Ola pessoal bom dia.. seguinte estou com os seguintes problemas.. eu
crei um campo Hora do tipo time.. ai config o ibdataset tudo certinho
ele ta inserindo os dados.. so q eu to precisando pegar o parametro da
hora q el coloquei em um label com o seguinte codigo
lbHora.Caption := TimeToStr(time) ;
so q dai qdo eu vou salvar ele me fala q '0.38363000' não é um valor de
marca de tempo(timestamp) valido... dai mudei la no meu banco o campo
hora para timestamp mas mesmo assim o problema perdura..
e tbm gostaria de saber como faço para passar os parametros para o
ibdataset pq to usando o seguinte codigo.
dm1.Internacao. ParamByName( 'HORA').AsTime := lbHora.capiton;
ele fala q nao encontrou o campo hora qdo eu vou dar um post..
espro q tenham entendido a minha duvida.. att..
Inacio Mecena
!--
#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%;
Re: [delphi-br] DELPHI 1, 2 ou 3 ...
A revista PC Expert tem estes softwares, e em troca de e-mails com eles fui informado que a posse da mídia veiculado pela revista torna o legal, Revista 14 tem o Deplhi 3 e 1 Revista 15 tem C++ Builder 3 e 1 Revista 29 tem o Delphi 4, apesar de estar com problemas na instalação O duro é acha-las e com o CD incluso. Carlos Juliano Silva - Yahoo escreveu: Pessoal Alguém tem ou sabe onde posso conseguir o Delphi nas versões 1, 2 ou 3? São relíquias onde podemos mostrar a evolução da ferramenta como tenho alguns alunos gostaria de mostrar para eles estas mudanças. Juliano Silva No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.503 / Virus Database: 269.15.26/1120 - Release Date: 09/11/2007 09:26 No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.503 / Virus Database: 269.15.26/1120 - Release Date: 09/11/2007 09:26 [As partes desta mensagem que não continham texto foram removidas] -- Carlos -- Jamais fume na presença de seres vivos
Re: [delphi-br] Histórico internet explorer
Procurando fazer o exemplo sitado nessa resposta, fiz o que recomendou e não
funcionou. Estou trabalhando com D7 e a propriedade ViewStyle não consta.
Outros erros tb estão acontecendo. Desculpe-me se foi minha barberagem.
Clovito
Clovis Machado Ferreira
Que o Grande Arquiteto do Universo nos Ampare
Msn-[EMAIL PROTECTED]
- Original Message -
From: Adriano Santos (Yahoo)
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, November 21, 2007 2:48 PM
Subject: Re: [delphi-br] Histórico internet explorer
Põe um TCheckListBox no form, coloca ele como ViewStyle = vsReport e
insere duas colunas.
No OnCreate do form coloca algo como abaixo:
Isso vai listar as urls visitadas e jogar no CheckListView. (Internet
Explorer);
Como pode ver vem do regedit, então basta criar um botão para apagar ou
inserir uma url.
procedure TForm1.FormCreate(Sender: TObject);
var
I, Tam: Integer;
C, V: string;
N: TStringList;
Lin: TListItem;
Col: TListColumn;
begin
Form1.Left := 50;
Form1.Top := 50;
Col := Lv.Columns.Add;
Col.Caption := 'Páginas visitadas';
Col.Width := 300;
Registro := TRegIniFile.Create('HKEY_CURRENT_USER');
Registro.OpenKey('\Software\Microsoft\Internet Explorer', False);
Page := Registro.ReadString('Main', 'Start Page', Page);
N := TStringList.Create;
Registro.ReadSection('TypedURLs', N);
Edit1.Text := Page;
for I := 0 to N.Count - 1 do
begin
C := N[I];
V := Registro.ReadString('TypedURLs', C, V);
Lin := LV.Items.Add;
Lin.Caption := V;
end;
if LV.Items.Count = 0 then
begin
Lin := LV.Items.Add;
Lin.Caption := V;
Lin.ImageIndex := 1;
end;
N.Free;
Registro.Free;
end;
Evaldo respondeu:
Bom dia,
Gostaria de saber se é possivel capturar o histórico da web do
internet explorer e do firefox atraves do delphi, pesquisei na
internet e não vi nenhuma referência sobre este assunto.
Grato pela atenção.
-
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
[As partes desta mensagem que não continham texto foram removidas]
--
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.503 / Virus Database: 269.16.2/1143 - Release Date: 21/11/2007
10:01
--
Adriano Santos
--
Editor Técnico Revista ClubeDelphi
www.delphitodelphi.blogspot.com
www.devmedia.com.br
www.devmedia.com.br/clubedelphi/pagina.asp
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] DELPHI 1, 2 ou 3 ...
Mas o D4 instala normal, só da uns erros de arquivos .TXT e .HTML que estão faltando, que falam sobre licensa e coisas e tal.. ehghehehhe No XP é bom copiar para o C:\ e colocar tudo em modo compativel com WIN98 que instala normal e roda 100% Agora o que eu quero são as atualizações do D3 e do D4, que não to achando mais em lugar nenhum. Luiz Escobar - Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/ASSEMBLY/MySQL/xBase SERVIDORES - CNA IntraNetWare4.11, LINUX-(RedHat9/Suse10.2), Windows 2K/XP From: Carlos Sent: Wednesday, November 21, 2007 3:07 PM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] DELPHI 1, 2 ou 3 ... A revista PC Expert tem estes softwares, e em troca de e-mails com eles fui informado que a posse da mídia veiculado pela revista torna o legal, Revista 14 tem o Deplhi 3 e 1 Revista 15 tem C++ Builder 3 e 1 Revista 29 tem o Delphi 4, apesar de estar com problemas na instalação O duro é acha-las e com o CD incluso. Carlos Juliano Silva - Yahoo escreveu: Pessoal Alguém tem ou sabe onde posso conseguir o Delphi nas versões 1, 2 ou 3? São relíquias onde podemos mostrar a evolução da ferramenta como tenho alguns alunos gostaria de mostrar para eles estas mudanças. Juliano Silva No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.503 / Virus Database: 269.15.26/1120 - Release Date: 09/11/2007 09:26 No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.503 / Virus Database: 269.15.26/1120 - Release Date: 09/11/2007 09:26 [As partes desta mensagem que não continham texto foram removidas] -- Carlos -- Jamais fume na presença de seres vivos [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: Dúvida - Conversão de datas
Você poderia posta um código como exemplo. Atenciosamente.
Re: [delphi-br] Histórico internet explorer
É lógico que não existe, te falei o componente errado.
É TListView e não CheckListView......foi mals,
Abs
--
Adriano Santos
-
Editor Técnico Revista ClubeDelphi
www.delphitodelphi.blogspot.com
www.devmedia.com.br
www.devmedia.com.br/clubedelphi/pagina.asp
Evaldo respondeu:
Eu modifiquei a função aqui para funcionar de acordo com minha
nescessidade, veja se é últil para você:
procedure TFprincipal.HistoricoInternetExplorer(lista: TStrings);
var registro : TRegIniFile;
begin
Registro := TRegIniFile. Create('HKEY_ CURRENT_USER' );
Registro.OpenKey( '\Software\Microsoft\Internet Explorer', False);
Registro.ReadSectionValues('TypedURLs' , lista);
Registro.Free;
end;
Procurando fazer o exemplo sitado nessa resposta, fiz o que recomendou
e não funcionou. Estou trabalhando com D7 e a propriedade ViewStyle
não consta. Outros erros tb estão acontecendo. Desculpe-me se foi
minha barberagem.
Clovito
--
Atenciosamente:
Evaldo Avelar Marques
Programador junior
-
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
[As partes desta mensagem que não continham texto foram removidas]
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.503 / Virus Database: 269.16.2/1143 - Release Date: 21/11/2007
10:01
Re: [delphi-br] Histórico internet explorer
Obrigado, funcionou perfeitamente! - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Histórico internet explorer
Eu modifiquei a função aqui para funcionar de acordo com minha nescessidade,
veja se é últil para você:
procedure TFprincipal.HistoricoInternetExplorer(lista: TStrings);
var registro : TRegIniFile;
begin
Registro := TRegIniFile. Create('HKEY_ CURRENT_USER' );
Registro.OpenKey( '\Software\Microsoft\Internet Explorer', False);
Registro.ReadSectionValues('TypedURLs' , lista);
Registro.Free;
end;
Procurando fazer o exemplo sitado nessa resposta, fiz o que recomendou e não
funcionou. Estou trabalhando com D7 e a propriedade ViewStyle não consta.
Outros erros tb estão acontecendo. Desculpe-me se foi minha barberagem.
Clovito
--
Atenciosamente:
Evaldo Avelar Marques
Programador junior
-
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Novo no grupo
Olá a todos. Esta é a minha primeira mensagem nesta lista. Gostaria de me apresentar e me colocar à disposição para ajudar no que estiver ao meu alcance e assim contribuir com o objetivo da lista. Sou formado em Análise de Sistemas. Tenho experiência em desenvolvimento Web (php, html, css, webstandards, javascript[ajax], flash, flex, ...) e há quase um ano estou trabalhando com desenvolvimento de aplicações ERP em Delphi. Nunca tinha visto Delphi anteriormente, até vir trabalhar aqui, e meu aprendizado(ou deveria dizer: as surras que tenho tomado) tem sido mais na prática que na teoria. Embora não seja uma boa prática, gostaria de, já na primeira mensagem, fazer uma pergunta ao grupo: estou muito interessado nas possibilidades de desenvolvimento do borland together. Tenho procurado , sem sucesso, material(apostila, tutorial, livro, curso, etc) a respeito. Alguém tem alguma indicação a fazer sobre o together? Bom, é isso. Saudações. Alexandre. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] formula'rio
olá amigos ... acabei de entrar para o grupo e agradeço sou novato com o delphi e estou com o sgte problema qdo crio um formálio master detail ... no detail a tabela deve estar indexada pelo campo que faz a ligação ou não necessáriamente??? tem outro ... qdo faço a inclusão no detail, aparece constantemente a msg key violation ... já fiz vários ensaios e não descubro ... alguem pode me dar alguma dica Cícero Fernandes Eng. Eletricista Eng. de Segurança ( (0xx 47) 3521 2988 / 9191-6226 * HYPERLINK blocked::mailto:[EMAIL PROTECTED][EMAIL PROTECTED] HYPERLINK blocked::http://www.fiosecabos.ind.br/www.fiosecabos.ind.br P Antes de imprimir, pense em sua responsabilidade e compromisso com o MEIO AMBIENTE! No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.503 / Virus Database: 269.16.2/1143 - Release Date: 21/11/2007 10:01 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Novo no grupo
seja bem vindo! http://www.borland.com/br/products/together/index.html do lado direito tem link pra baixar uma versao trial . boa sorte! - Original Message - From: Alexandre Paixão To: delphi-br@yahoogrupos.com.br Sent: Wednesday, November 21, 2007 2:05 PM Subject: [delphi-br] Novo no grupo Olá a todos. Esta é a minha primeira mensagem nesta lista. Gostaria de me apresentar e me colocar à disposição para ajudar no que estiver ao meu alcance e assim contribuir com o objetivo da lista. Sou formado em Análise de Sistemas. Tenho experiência em desenvolvimento Web (php, html, css, webstandards, javascript[ajax], flash, flex, ...) e há quase um ano estou trabalhando com desenvolvimento de aplicações ERP em Delphi. Nunca tinha visto Delphi anteriormente, até vir trabalhar aqui, e meu aprendizado(ou deveria dizer: as surras que tenho tomado) tem sido mais na prática que na teoria. Embora não seja uma boa prática, gostaria de, já na primeira mensagem, fazer uma pergunta ao grupo: estou muito interessado nas possibilidades de desenvolvimento do borland together. Tenho procurado , sem sucesso, material(apostila, tutorial, livro, curso, etc) a respeito. Alguém tem alguma indicação a fazer sobre o together? Bom, é isso. Saudações. Alexandre. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] DESLIGAR O WINDOWS
COMO DESLIGAR O WINDOWS XP ALGUÉM SABE ALGUMA FUNÇÃO... TENTEI USAR ExitWindowsEx(EWX_FORCE, 0) com vários parâmetros e tudo que conseguir foi finalizar a sessão atual Alguém pode dar uma forcinha?
Re: [delphi-br] DESLIGAR O WINDOWS
http://www.guiadodelphi.com.br/ler.php?codigo=1155 Em 21/11/07, sampaiobrito [EMAIL PROTECTED] escreveu: COMO DESLIGAR O WINDOWS XP ALGUÉM SABE ALGUMA FUNÇÃO... TENTEI USAR ExitWindowsEx(EWX_FORCE, 0) com vários parâmetros e tudo que conseguir foi finalizar a sessão atual Alguém pode dar uma forcinha? [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] DESLIGAR O WINDOWS
function ExitWindowsEx(uFlags : integer; // shutdown operation dwReserved : word) : boolean; // reserved external 'user32.dll' name 'ExitWindowsEx'; procedure Tchau; const EWX_LOGOFF = 0; // Dá logoff no usuário atual EWX_SHUTDOWN = 1; // Shutdown padrão do sistema EWX_REBOOT = 2; // Dá reboot no equipamento EWX_FORCE = 4; // Força o término dos processos EWX_POWEROFF = 8; // Desliga o equipamento begin ExitWindowsEx(EWX_FORCE, 0); end; _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de sampaiobrito Enviada em: quarta-feira, 21 de novembro de 2007 17:43 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] DESLIGAR O WINDOWS COMO DESLIGAR O WINDOWS XP ALGUÉM SABE ALGUMA FUNÇÃO... TENTEI USAR ExitWindowsEx(-EWX_FORCE, 0) com vários parâmetros e tudo que conseguir foi finalizar a sessão atual Alguém pode dar uma forcinha? No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.503 / Virus Database: 269.16.0/1137 - Release Date: 18/11/2007 17:15 No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.503 / Virus Database: 269.16.0/1137 - Release Date: 18/11/2007 17:15 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: Dúvida - Conversão de datas
Valeu Nilson, vou testar desta forma e ver o que ocorre. Atenciosamente
[delphi-br] Delphi7 + Oracle
Olá pessoal, bom dia ou boa tarde. J (Moro no Acre, há a diferença de três horas para alguns estados.) Aqui na empresa usamos Oracle 10G que roda num servidor Linux. O acesso da aplicação ao Server é feito via ODBC. A Aplicação é feita em genexus (Que gera VB e Oracle). Eu nunca brinquei com Oracle antes, sempre IB, FB e Mysql. Estou pensando em fazer uns teste de Delphi7 e Oracle mas nem me passa pela cabeça como conectar ao banco de dados via dbexpress, alguém da lista que faça uso poderia me dar um força? Eu so quero conectar na base e fazer uns selects para testar []’s Topolniak. [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] PEGAR LINHA DE CÓDIGO
Eu usava isso no velho clipper, nesse aspecto, no delphi, me faz falta, a utilidade boa desse tipo de solução seria, se poder rodar isso em runtime no usuário final do aplicativo, porque a coisas mais dificil, é a a informação de um erro chegar corretamente ao suporte, se temos em mãos o exato local do problema, é muito mais prático dar um retorno ao pessoal do suporte de campo (in loco). Em 19/11/07, Alexandre Rodrigues [EMAIL PROTECTED] escreveu: Isso é uma coisa que sinto falta no delphi. No java, por ser uma linguagem interpretada, sempre que ocorre uma exeção ele mostra a linha na qual a mesma ocorreu. Davi Eduardo Borges Wall escreveu: Se você está querendo usar isso para mostrar a linha que aconteceu um erro, eu aconselharia a utilizar Assert! Procure pela net por Assertion muitas empresas utilizam esta técnica. De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brmailto: delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br] Em nome de sampaiobrito Enviada em: segunda-feira, 19 de novembro de 2007 16:13 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brmailto: delphi-br%40yahoogrupos.com.br Assunto: [delphi-br] PEGAR LINHA DE CÓDIGO Amigos, há uma forma de pegar o nº da linha de código de execução no delphi em runtime? Desde já agradeço a colaboração! [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/ -- Leonardo Quinino [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] [urgente] Delphi 2006 X win98
minhas aplicações desenvolvidas em delphi 2005/2006 simplesmente dao bronca ao rodar num windows 98. a tela de menu fica por traz da tela principal impedindo que o usuario faça login. tambem da varios outros erros desse tipo alquem ja passou por isso? tenho 3 clientes novos e todos usam win98 e nao to vendo solução para isso. se alquem souber como contornar isso obrigado. 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]
Re: RES: [delphi-br] PEGAR LINHA DE CÓDIGO
Olá Leonardo, com delphi da um trabalhinho mais da pra fazer a mesma coisa, eu uso o Exceptional Magic e ta me atendendo bastante. Tem também o EurekaLog, MadException.. http://www.dimusware.com/products/excmagic/index.html Em 21/11/07, Leonardo Quinino [EMAIL PROTECTED] escreveu: Eu usava isso no velho clipper, nesse aspecto, no delphi, me faz falta, a utilidade boa desse tipo de solução seria, se poder rodar isso em runtime no usuário final do aplicativo, porque a coisas mais dificil, é a a informação de um erro chegar corretamente ao suporte, se temos em mãos o exato local do problema, é muito mais prático dar um retorno ao pessoal do suporte de campo (in loco). Em 19/11/07, Alexandre Rodrigues [EMAIL PROTECTED]alexandre_rodrigues_poa%40yahoo.com.br escreveu: Isso é uma coisa que sinto falta no delphi. No java, por ser uma linguagem interpretada, sempre que ocorre uma exeção ele mostra a linha na qual a mesma ocorreu. Davi Eduardo Borges Wall escreveu: Se você está querendo usar isso para mostrar a linha que aconteceu um erro, eu aconselharia a utilizar Assert! Procure pela net por Assertion muitas empresas utilizam esta técnica. De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br%40yahoogrupos.com.brmailto: delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br] Em nome de sampaiobrito Enviada em: segunda-feira, 19 de novembro de 2007 16:13 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br%40yahoogrupos.com.brmailto: delphi-br%40yahoogrupos.com.br Assunto: [delphi-br] PEGAR LINHA DE CÓDIGO Amigos, há uma forma de pegar o nº da linha de código de execução no delphi em runtime? Desde já agradeço a colaboração! [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/ -- Leonardo Quinino [As partes desta mensagem que não continham texto foram removidas] -- ... 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]
Re: [delphi-br] Delphi7 + Oracle
Da uma olhada no ZEOSLIB http://sourceforge.net/projects/zeoslib Em 21/11/07, Luciano Topolniak [EMAIL PROTECTED] escreveu: Olá pessoal, bom dia ou boa tarde. J (Moro no Acre, há a diferença de três horas para alguns estados.) Aqui na empresa usamos Oracle 10G que roda num servidor Linux. O acesso da aplicação ao Server é feito via ODBC. A Aplicação é feita em genexus (Que gera VB e Oracle). Eu nunca brinquei com Oracle antes, sempre IB, FB e Mysql. Estou pensando em fazer uns teste de Delphi7 e Oracle mas nem me passa pela cabeça como conectar ao banco de dados via dbexpress, alguém da lista que faça uso poderia me dar um força? Eu so quero conectar na base e fazer uns selects para testar []'s Topolniak. [As partes desta mensagem que não continham texto foram removidas] -- Ismair C. Alves msn: [EMAIL PROTECTED] ByteConf Soluções em Software Livre. Linux User: #447538 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Banco Firebird na NET
Gostaria de saber de alguem que ja tenha tido experiencia com bancos firebird na net. Seria disponibilizado um servidor com 5Mbps de Down e 1Mbps de Up, onde poderia ser configurado linux ou Windows 2003(tem algumas opçoes) Qual a melhor opçao? Manter o executavel local no micro do usuario e acessar o banco firebird na net no micro com linux ou Acessar o servidor via Terminal Server do Windows 2003 com o executavel e banco nesse servidor na net? Alguem tem alguma opiniao? Pelo que podemos ver em termos de trafego de dados, no Terminal Server, o trafego do servidor com o cliente parece menor, procede minha colocaçao? Obrigado Alosi [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] PEGAR LINHA DE CÓDIGO
Sim, a minha pergunta é se existe o recurso nativo do delphi , esses componentes são de terceiros. Ultimamente, estou tentando deixar os meus códigos mais puritanos possível. Mas de toda forma, vou dr uma olhada no material. Em 21/11/07, Eduardo Silva dos Santos [EMAIL PROTECTED] escreveu: Olá Leonardo, com delphi da um trabalhinho mais da pra fazer a mesma coisa, eu uso o Exceptional Magic e ta me atendendo bastante. Tem também o EurekaLog, MadException.. http://www.dimusware.com/products/excmagic/index.html Em 21/11/07, Leonardo Quinino [EMAIL PROTECTED]leonardo.quinino%40gmail.com escreveu: Eu usava isso no velho clipper, nesse aspecto, no delphi, me faz falta, a utilidade boa desse tipo de solução seria, se poder rodar isso em runtime no usuário final do aplicativo, porque a coisas mais dificil, é a a informação de um erro chegar corretamente ao suporte, se temos em mãos o exato local do problema, é muito mais prático dar um retorno ao pessoal do suporte de campo (in loco). Em 19/11/07, Alexandre Rodrigues [EMAIL PROTECTED]alexandre_rodrigues_poa%40yahoo.com.br alexandre_rodrigues_poa%40yahoo.com.br escreveu: Isso é uma coisa que sinto falta no delphi. No java, por ser uma linguagem interpretada, sempre que ocorre uma exeção ele mostra a linha na qual a mesma ocorreu. Davi Eduardo Borges Wall escreveu: Se você está querendo usar isso para mostrar a linha que aconteceu um erro, eu aconselharia a utilizar Assert! Procure pela net por Assertion muitas empresas utilizam esta técnica. De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br%40yahoogrupos.com.brdelphi-br%40yahoogrupos.com.brmailto: delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.brdelphi-br%40yahoogrupos.com.brdelphi-br%40yahoogrupos.com.brdelphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br] Em nome de sampaiobrito Enviada em: segunda-feira, 19 de novembro de 2007 16:13 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br%40yahoogrupos.com.brdelphi-br%40yahoogrupos.com.brmailto: delphi-br%40yahoogrupos.com.br Assunto: [delphi-br] PEGAR LINHA DE CÓDIGO Amigos, há uma forma de pegar o nº da linha de código de execução no delphi em runtime? Desde já agradeço a colaboração! [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/ -- Leonardo Quinino [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] eduardo.drd%40gmail.com Site: http://www.drdsistemas.com/ ... [As partes desta mensagem que não continham texto foram removidas] -- Leonardo Quinino [As partes desta mensagem que não continham texto foram removidas]
RE: RES: [delphi-br] PEGAR LINHA DE CÓDIGO
Nativamente, o Delphi não possui este recurso. No VB e no Clipper isso existe pois o código que eles geram é pseudo-compilado. Ou seja, apesar de gerar um .EXE, o conteúdo dese executável fica num formato que pode ser comprável aos bytecode gerados pelo compilador Java. Por isso que existiam, na época, descompiladores para VB e Clipper. Se quiser fazer isso, vc deverá implementar código para interpretar o conteúdo dos arquivos .MAP que podem ser gerados no momento que vc faz o build do projeto. Estes arquivos .MAP possuem a informação dos endereços e tamanhos alocados para cada parte do seu programa (estruturas, classes, métodos, procedures, functions, etc.) Procure que vc vai achar material na net que fala sobre isso. Sds. To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Wed, 21 Nov 2007 22:07:37 -0300Subject: Re: RES: [delphi-br] PEGAR LINHA DE CÓDIGO Sim, a minha pergunta é se existe o recurso nativo do delphi , essescomponentessão de terceiros.Ultimamente, estou tentando deixar os meus códigos mais puritanospossível.Mas de toda forma, vou dr uma olhada no material.Em 21/11/07, Eduardo Silva dos Santos [EMAIL PROTECTED] escreveu: Olá Leonardo, com delphi da um trabalhinho mais da pra fazer a mesma coisa, eu uso o Exceptional Magic e ta me atendendo bastante. Tem também o EurekaLog, MadException.. http://www.dimusware.com/products/excmagic/index.html Em 21/11/07, Leonardo Quinino [EMAIL PROTECTED]leonardo.quinino%40gmail.com escreveu: Eu usava isso no velho clipper, nesse aspecto, no delphi, me faz falta, a utilidade boa desse tipo de solução seria, se poder rodar isso em runtime no usuário final do aplicativo, porque a coisas mais dificil, é a a informação de um erro chegar corretamente ao suporte, se temos em mãos o exato local do problema, é muito mais prático dar um retorno ao pessoal do suporte de campo (in loco). Em 19/11/07, Alexandre Rodrigues [EMAIL PROTECTED]alexandre_rodrigues_poa%40yahoo.com.br alexandre_rodrigues_poa%40yahoo.com.brescreveu: Isso é uma coisa que sinto falta no delphi. No java, por ser uma linguagem interpretada, sempre que ocorre uma exeção ele mostra a linha na qual a mesma ocorreu. Davi Eduardo Borges Wall escreveu: Se você está querendo usar isso para mostrar a linha que aconteceu um erro, eu aconselharia a utilizar Assert! Procure pela net por Assertion muitas empresas utilizam esta técnica. De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br%40yahoogrupos.com.brdelphi-br%40yahoogrupos.com.brmailto: delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.brdelphi-br%40yahoogrupos.com.brdelphi-br%40yahoogrupos.com.brdelphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br] Em nome de sampaiobrito Enviada em: segunda-feira, 19 de novembro de 2007 16:13Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br%40yahoogrupos.com.brdelphi-br%40yahoogrupos.com.brmailto: delphi-br%40yahoogrupos.com.brAssunto: [delphi-br] PEGAR LINHA DE CÓDIGO Amigos, há uma forma de pegar o nº da linha de código de execução nodelphi em runtime? Desde já agradeço a colaboração! [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/ -- Leonardo Quinino [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] eduardo.drd%40gmail.com Site: http://www.drdsistemas.com/ ... [As partes desta mensagem que não continham texto foram removidas] -- Leonardo Quinino[As 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]
RES: [delphi-br] Banco Firebird na NET
Depende de como seu banco de dados foi construído, acredito que executável local e banco no servidor, independentemente de onde seja é sempre bem melhor, mas como eu disse antes, depende de como o banco foi construído e depende de como o sistema lida com o banco. Se você usa Stored Procedures e Triggers com freqüência, então é uma boa, se não, acho que terminal service é melhor mesmo. Vitor. _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Alosi yahoo Enviada em: quinta-feira, 22 de novembro de 2007 22:06 Para: [EMAIL PROTECTED]; delphi-br@yahoogrupos.com.br; firebird-br Assunto: [delphi-br] Banco Firebird na NET Gostaria de saber de alguem que ja tenha tido experiencia com bancos firebird na net. Seria disponibilizado um servidor com 5Mbps de Down e 1Mbps de Up, onde poderia ser configurado linux ou Windows 2003(tem algumas opçoes) Qual a melhor opçao? Manter o executavel local no micro do usuario e acessar o banco firebird na net no micro com linux ou Acessar o servidor via Terminal Server do Windows 2003 com o executavel e banco nesse servidor na net? Alguem tem alguma opiniao? Pelo que podemos ver em termos de trafego de dados, no Terminal Server, o trafego do servidor com o cliente parece menor, procede minha colocaçao? Obrigado Alosi [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: RES: [delphi-br] PEGAR LINHA DE CÓDIGO
Teoricamente é só pegar o código dos componentes em questão e adapta-los, com certeza os componentes fazem mais coisas do que você precisa, ou menos... então adaptar é sempre melhor... Mas uma sugestão... Essa história de não usar componentes de terceiros eu acho uma má idéia... fica reinventando a roda a todo momento não é nada produtivo e a maioria dos componentes que o pessoal usa, são componentes comprovadamente bons, então... Vitor. _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Leonardo Quinino Enviada em: quarta-feira, 21 de novembro de 2007 22:08 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] PEGAR LINHA DE CÓDIGO Sim, a minha pergunta é se existe o recurso nativo do delphi , esses componentes são de terceiros. Ultimamente, estou tentando deixar os meus códigos mais puritanos possível. Mas de toda forma, vou dr uma olhada no material. Em 21/11/07, Eduardo Silva dos Santos eduardo.drd@ mailto:eduardo.drd%40gmail.com gmail.com escreveu: Olá Leonardo, com delphi da um trabalhinho mais da pra fazer a mesma coisa, eu uso o Exceptional Magic e ta me atendendo bastante. Tem também o EurekaLog, MadException.. http://www.dimuswar http://www.dimusware.com/products/excmagic/index.html e.com/products/excmagic/index.html Em 21/11/07, Leonardo Quinino leonardo.quinino@ mailto:leonardo.quinino%40gmail.com gmail.comleonardo.quinino%40gmail.com escreveu: Eu usava isso no velho clipper, nesse aspecto, no delphi, me faz falta, a utilidade boa desse tipo de solução seria, se poder rodar isso em runtime no usuário final do aplicativo, porque a coisas mais dificil, é a a informação de um erro chegar corretamente ao suporte, se temos em mãos o exato local do problema, é muito mais prático dar um retorno ao pessoal do suporte de campo (in loco). Em 19/11/07, Alexandre Rodrigues alexandre_rodrigues mailto:alexandre_rodrigues_poa%40yahoo.com.br [EMAIL PROTECTED]alexandre_rodrigues_poa%40yahoo.com.br alexandre_rodrigues_poa%40yahoo.com.br escreveu: Isso é uma coisa que sinto falta no delphi. No java, por ser uma linguagem interpretada, sempre que ocorre uma exeção ele mostra a linha na qual a mesma ocorreu. Davi Eduardo Borges Wall escreveu: Se você está querendo usar isso para mostrar a linha que aconteceu um erro, eu aconselharia a utilizar Assert! Procure pela net por Assertion muitas empresas utilizam esta técnica. De: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br delphi-br%40yahoogrupos.com.brdelphi-br%40yahoogrupos.com.brdelphi-br%4 0yahoogrupos.com.brmailto: delphi-br%40yahoogrupos.com.br [mailto:[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.brdelphi-br%40yahoogrupos.com.brdelphi-br%40yahoogrupos.com.brde lphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br] Em nome de sampaiobrito Enviada em: segunda-feira, 19 de novembro de 2007 16:13 Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br delphi-br%40yahoogrupos.com.brdelphi-br%40yahoogrupos.com.brdelphi-br%4 0yahoogrupos.com.brmailto: delphi-br%40yahoogrupos.com.br Assunto: [delphi-br] PEGAR LINHA DE CÓDIGO Amigos, há uma forma de pegar o nº da linha de código de execução no delphi em runtime? Desde já agradeço a colaboração! [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. http://br.yahoo.com/mailbeta/tudonovo/ com/mailbeta/tudonovo/ -- Leonardo Quinino [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: eduardo.drd@ mailto:eduardo.drd%40gmail.com gmail.com eduardo.drd%40gmail.com Site: http://www.drdsiste http://www.drdsistemas.com/ mas.com/ ... [As partes desta mensagem que não continham texto foram removidas] -- Leonardo Quinino [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Carregar imagens atraves de String
Galera, gostaria de ajudar para resolver o seguinte problema. Tenho 32 Timage no meu formulário e gostaria de carregar esses Timage, conforme o retorno de uma string. A sequencia dentro da string, vem com virgulas entre os nomes das imagem, porém a última imagem vem sem a virgula. Exemplo sSeq:= 'imagem01a.jpg,imagem02e.jpg.,imagem32f.jpg'; // sequencia das imagens dentro da string image01.Picture.LoadFromFile(CaminhoImagem+'\'+imagem01a.jpg); //carrego a Timagem 01 com a foto correspondente. image02.Picture.LoadFromFile(CaminhoImagem+'\'+imagem02e.jpg); . . . image32.Picture.LoadFromFile(CaminhoImagem+'\'+imagem32f.jpg); espero ter exemplificado de forma a vcs entenderem. Fico no aguardo desse help. Vlw Ricardo Mendes [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] AdoQuery: Command Text does not return a result set
Obrigado pela ajuda.
O erro estava no uso do OPEN.
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Andre Luis Silveria
Enviada em: quarta-feira, 21 de novembro de 2007 13:30
Para: delphi-br@yahoogrupos.com.br
Assunto: Res: [delphi-br] AdoQuery: Command Text does not return a result
set
Tente usar o execsql ou execute (não lembro agora) somente não use o open,
ele exige que se retorne um cursor de dados, e o update/insert/delete não
retorna um cursor.
- Mensagem original
De: Ricardo César Cardoso ricardo_engsoft@
mailto:ricardo_engsoft%40yahoo.com.br yahoo.com.br
Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
Enviadas: Quarta-feira, 21 de Novembro de 2007 12:12:49
Assunto: Re: [delphi-br] AdoQuery: Command Text does not return a result set
Boa tarde!
Pode estar ocorrendo de nenhum registro no seu BD satisfazer aos parâmetros
informados.
Sds,
Ricardo.
Junior red.mosquito@ uol.com.br escreveu: Estou tentando executar este
comando via ADOQuery, porém ele está retornando
Command Text does not return a result set
UPDATE PRODUTOS
SET PRECO_CUSTO = :PRECO_NORMAL
CODIGO_BARRAS = :CODIGO_BARRAS,
CODIGO_ORIGINAL = :CODIGO_FORNECEDOR,
PRECO_VENDA = (PRECO_CUSTO + ((PRECO_CUSTO/ 100.00)*LUCRO) )
WHERE CODIGO_FORNECEDOR = :CODIGO
-Os campos da tabela estão corretos
-Parameters estão preenchidos corretos (o próprio ADOQuery assume : como
parametro)
-DataSource ligado corretamente na tabela de Produtos.
O que pode estar errado ?
Desde já muitíssimo obrigado pela atenção
Atenciosamente,
Junior
[As partes desta mensagem que não continham texto foram removidas]
_
- - ---
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
[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;paddin
g-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;}
--
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
http://br.mail. http://br.mail.yahoo.com/ yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
