[delphi-br] Instalação do Delphi 2007 Win32 no Windows Vista Home Premium
Pessoal, Estou com dificuldade em instalar o Delphi 2007 Win32 no Windows Vista Home Premium. Dá erro na instalação do Microsoft .Net 2.0 Framework SDK. Tentei instalar somente o .Net 2.0 e dá erro também. Código do erro 0x80070BC9. Alguém sabe como resolver este problema? Levi Ribeiro Analista de Sistemas 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] Imprimir na Impressora Térmica Argox
Pessoal, Alguém tem exemplo de como imprimir para Impressora Térmica Argox? Agradeço pelo ajuda, Levi [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] ApplyUpdates em ClientDataset com Inner Join
No evento get table name coloca o nome da tabela que irá sofrer a alteração. Ats, Levi _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Alisson Yahoo Enviada em: terça-feira, 14 de novembro de 2006 08:47 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] ApplyUpdates em ClientDataset com Inner Join Olá pessoal, Em um cadastro utilizo os seguintes componentes: SQLDataSet - DataSetProvider - ClientDataSet - DataSource. Tenho duas tabelas : PEDVENDA -CodPed -CodPessoa PESSOAS -CodPessoa -NomePessoa Na Propriedade SQL do SQLDataset , faço um Inner Join pra buscar o Campo NomePessoa. Configurei a propriedade ProviderFlags(Tudo=False) do campo NomePessoa, mas, quando dou um ApplyUpdates no ClientDataset dá um erro dizendo que o campo não existe. Está faltando fazer mais alguma coisa? Estou usando DBExpress e Firebird. [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] Exportar para Excel com componente nativo
-Excel Incompatível','Erro',MB_OK+MB_ICONEXCLAMATION); end; Consulta.First; try for linha:=0 to Consulta.RecordCount-1 do begin for coluna:=1 to Consulta.FieldCount do begin valor := Consulta.Fields[coluna-1].AsString; //Inserindo os valores a partir da 3ª linha if (coluna in [2]) then excel.cells[linha+3,coluna]:= valor //Se for um valor numérico, insere sem a aspa simples no início, neste caso a coluna 2 é um valor numérico else excel.cells[linha+3,coluna]:=+valor; // Não sendo numérico insere com a aspa simples no início, assim o excel não interpreta um CPF, por exemplo, como número. end; Consulta.Next; end; for coluna:=1 to Consulta.FieldCount do // Inserindo os nomes de colunas na 2ª linha begin valor:= Consulta.Fields[coluna-1].DisplayLabel; excel.cells[2,coluna]:=valor; end; //Inserindo coluna de título para a planilha na 1ª linha excel.cells[1,1] := pTituloPlanilha; excel.cells[2,coluna].Font.Color := clBlue; excel.columns.AutoFit; Showmessage('Geração concluída com Sucesso!'); excel.visible:=true; except Application.MessageBox ('Aconteceu um erro desconhecido durante a conversão da tabela para o Ms-Excel','Erro',MB_OK+MB_ICONEXCLAMATION); end; end; Espero que lhe seja útil. Não precisa usar componente algum, apenas declare as units ComObj, ActiveX []'s Alessandro _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Levi Ribeiro de Freitas Enviada em: terça-feira, 3 de outubro de 2006 11:13 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Exportar para Excel com componente nativo Pessoal, Conhecem algum componente nativo gratuíto que eu posso usar para exportar dados para Excel? Ats, Levi Ribeiro [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Exportar para Excel com componente nativo
Pessoal, Conhecem algum componente nativo gratuíto que eu posso usar para exportar dados para Excel? Ats, Levi Ribeiro [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Envio de Email pelo Indy Falhando
Pessoal, Uso o Indy do Delphi 7 para enviar emails automáticos. Na minha máquina que tem o Delphi 7 instalado ele funciona sem problemas, no entanto em uma outra máquina ele as vezes falha. Será que tenho que levar alguma dll específica ou alguma biblioteca? Levi [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Re: SimpleDataSet em tempo de exe cução
Eduardo, Gostaria ver este exemplo também. [EMAIL PROTECTED] Obrigado. Levi _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Eduardo Bianchi Ribeiro Enviada em: domingo, 27 de agosto de 2006 15:37 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Re: SimpleDataSet em tempo de execução É Carlos, acho que realmente não estou lhe entendendo, a principio eu não criaria um form de pesquisa generico e sim um Repositorio(que podia ser um dataModule) de pesquisa genérico, adicionaria o mesmo no repositorio do Delphi e herdaria todos os meus repositorios(DataModule) dele. Depois criaria um repositorio para cada tabela no banco herdando-os do repositorio principal, fazendo isso vc separaria sua regra de negocio da GUI, mas isso não vem ao caso. Estou com um exemplo funcionando do que vc está querendo, me manda um e.mail que eu lhe envio. Abraço !!! Eduardo Bianchi [EMAIL PROTECTED] --- Em delphi-br@yahoogrupos.com.br, carlosclara [EMAIL PROTECTED] escreveu Bem, amigo, não funcionou. Acho que não me expliquei bem: Tenho um formulario (formProcura) com um grid ligado a um Tdatasource(dtSrc). Eu estava usando o componente SQLClientdataSet no delphi 7. Declaro a classe constructor: public { Public declarations } constructor Create(AOwner: TComponent; DataSet: TSimpleDataSet); reintroduce; E para chamar: constructor TformProcurar.Create(AOwner: TComponent; DataSet: TSimpleDataSet); begin inherited create(AOWner);// Chama o construtor da classe base dtSrc.DataSet:= DataSet;// atribui o dataset de procura end; Quando chamo o form: formProcurar:= TformProcurar.create(Self, dmADM.sds_proc_uni); //dmADM.sds_proc_uni: simpledataset (sds_proc_uni) em um datamodule(dmADM) com o sql de procura Este exemplo eu retirei da revista clubedelphi 30(Sistema DataCar) do Ghinter Pauli. --- Em delphi-br@yahoogrupos.com.br, Eduardo Bianchi Ribeiro [EMAIL PROTECTED] escreveu Oi Carlos, Vc deve usar o método Assign para atribuir um DataSet a outro. Eu tomei a liberdade de alterar um pouco seu construtor e funcionou bem aqui ... constructor Create(AOwner: TComponent; DataSet: Pointer); reintroduce; constructor TForm2.Create(AOwner: TComponent; DataSet: Pointer); var dtSrc : TSimpleDataSet; begin inherited create (AOwner); dtSrc := TSimpleDataSet(DataSet); end; Form2 := TForm2.Create(Self,SimpleDataSet1); Espero que tenha lhe ajudado Abraços ... [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Sugestão de vocês para componente de pesquisa.
Estou procurando este componente e não achei. Levi _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Andre Mesquita Enviada em: quarta-feira, 9 de agosto de 2006 18:11 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Sugestão de vocês para componente de pesquisa. No SourceForge tem um componente de pesquisa cujo nome é algo perto de EstSearch... Estou até querendo entrar nesse desenvolvimento, mas está faltando um pouco de tempo. [ ]'s, - Original Message - From: Ricardo Lima Mariz [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Wednesday, August 09, 2006 5:29 PM Subject: [delphi-br] Sugestão de vocês para componente de pesquisa. Pessoal estou desenvolvendo um compnente de pesquisa, pretendo criar as propriedades sql, sqlconnection, fields, na qual o usuário vai entrar com uma sql e o componente vai fazer o resto, gostaria de uma opnião/sugestão de vocês para o desenvolvimento, talves alguem da lista até ja desenvolvido algo parecido. Obrigado. At. Ricardo Lima [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Acionar proteção de tela
Pessoal, Como faço para via comandos em acionar a proteção de tela do windows e depois um tempo também via comandos cancelar a proteção de tela? Uso Delphi 7. Ats, Levi [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Zebedee, alguem pode ajudar
Por favor ajuda, Preciso ajuda para configurar o zebedee. Tenho a seguinte estrutura: Servidor Internet (Linux) Servidor Firebird (Windows). Estaçoes sao Windows. Como faço, alguem tem experiencia? Levi [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] ENC: Select para trazer os primeiros 10 registros
-Mensagem original- De: LRFreitas [mailto:[EMAIL PROTECTED] Enviada em: quinta-feira, 8 de junho de 2006 14:57 Para: 'delphi-br@yahoogrupos.com.br' Assunto: ENC: Select para trazer os primeiros 10 registros essoal, Estou precisando fazer um select para trazer os primeiros 10 registros num select no firebird. No sql server seria assim select top ... Como faço no firebird? Levi ___ Novo Yahoo! Messenger com voz: Instale agora e faça ligações de graça. http://br.messenger.yahoo.com/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Erro em base de dados Firebird
Pessoal, Estou com erro na base de dados, vejam abaixo. Como faço para corrigir? Já tentei fazer backup/restore mas na hora do restore dá um erro de overflow e aborta. Obs: A base está funcionando normalmente. Levi C:\Files\datagfix -m -i -user SYSDBA -password masterkey database.gdb Summary of validation errors Number of record level errors : 1 Number of index page errors : 1 Number of database page errors : 197 C:\Files\datagfix -v -f -user SYSDBA -password masterkey database.gdb Summary of validation errors Number of record level errors : 1 Number of index page errors : 1 Number of database page errors : 197 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de DelphiStar Enviada em: terça-feira, 9 de maio de 2006 09:28 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Re: Programa que bloqueia programas/internet/horários de uso do micro [OFF] Olá, Bom dia Se não for incomodo, também gostaria de testar Desde já agradeço Abraço Ademir Meu email - [EMAIL PROTECTED] -- Anderson, seu programa parece interessante e gostaria também de testá-lo. Meu email: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Valeu. Desenvolvimento (Anderson) [EMAIL PROTECTED] escreveu: Claro! vou enviar para seu email. O pessoal tem pedido modificações específicas, que estão sendo feitas... portanto, se alguém quiser, e precisar de modificações, é só pedir... (A TODOS: Desculpem, não quero usar a lista para vender ou divulgar, apenas pra ajudar nas idéias do software, que foram idéias muito importantes, todas colocadas em prática...) Anderson [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos ___ Yahoo! doce lar. Faça do Yahoo! sua homepage. http://br.yahoo.com/homepageset.html -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE Links do Yahoo! Grupos Para visitar o site do seu grupo na web, acesse:http://br.groups.yahoo.com/group/delphi-br/ Para sair deste grupo, envie um e-mail para:[EMAIL PROTECTED] O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.
[delphi-br] ReportBuilder Enterprise
Pessoal, Alguém tem o report builder enterprise para me arrumar? Atenciosamente, Levi Ribeiro de Freitas Programador de Computadores mailto:[EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] ENC: Tarifador para PABX
_ De: LRFreitas [mailto:[EMAIL PROTECTED] Enviada em: quarta-feira, 15 de março de 2006 09:03 Para: delphi-br@yahoogrupos.com.br Assunto: Tarifador para PABX Bom dia pessoal, Alguém sabe de algum fonte para programa tarifador de central telefonica no sourceforge? Atenciosamente, Levi Ribeiro de Freitas Programador de Computadores mailto:[EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] ajuda = Remover quebra de linha em campo memo
Olá Franscisco, Consegui sim, mas ninguém me ajudou no grupo, fiz na raça. Segue o código: function Tdata.RemoveQuebraLinha(sString: string): string; var i: Integer; s: String; begin // #13#10 for i:=1 to Length(sString) do begin if (Copy(sString, i, 1) = chr(13)) or (Copy(sString, i, 1) = chr(10)) then s:=s + ' ' else s:=s + Copy(sString, i, 1); end; Result:=s; end; Espero ter ajudado, Levi _ De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Enviada em: terça-feira, 3 de janeiro de 2006 02:56 Para: [EMAIL PROTECTED] Assunto: [delphi-br] ajuda = Remover quebra de linha em campo memo Olá Levi, Ví sua mensagem em um fórum a respeito de como remover a quebra de linha de um texto. Você conseguiu ?? Se tiver conseguido, peço que por favor, se possível, me informe como vc fez. Já estou há quase uma semana, tentando e nada. Se puder me ajudar, ficarei muito grato. Um forte abraço, Francisco [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Usar o Composite Report do QR e Banda Group
Pessoal, Alguém sabe como usar o composite report do QR? Se tiver algum exemplo, agradeço, estou quebrando a cabeça e não consigo. Ou usar a banda Group do Qr. Se tiver algum exemplo agradeço. Atenciosamente, Levi Ribeiro de Freitas Programador de Computadores mailto:[EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Backup do Firebird
Pessoal, Estou precisando criar uma aplicação que faça backup automático de um banco firebird. Uso delphi 7 e gostaria de usar os componentes nativos. Quero executar o backup firebird e depois comprimir o arquivo em zip e copiar para uma pasta em outro lugar da rede. Com respeito a comprimir em zip, e copiar para outro lugar da rede domino tranquilamente. Alguém poderia me ajudar no backup firebird? Atenciosamente, Levi Ribeiro de Freitas Programador de Computadores mailto:[EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] DeadLock no DBX Firebird
Pessoal, Qual é a melhor forma de previnir deadlock no firebird usando o dbx? Atenciosamente, Levi Ribeiro de Freitas Programador de Computadores mailto:[EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Juntar dois bancos firebird
Pessoal, Tem como juntar dois bancos firebird via código? As tabelas dos dois bancos não estão duplicadas. Atenciosamente, Levi Ribeiro de Freitas Programador de Computadores mailto:[EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Criar componente em run-time
Pessoal, Como faço para criar um TMemo em run-time? memo1:= Create(Self); memo1.Create(Self); memo1:= TMemo.Create(Self); memo1:=TMemo.Create(Form1); Atenciosamente, Levi Ribeiro de Freitas Programador de Computadores mailto:[EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Ordenar DbGrid ao clicar na coluna
Uso SimpleDataSet. Levi -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Walter Alves Chagas Junior Enviada em: terça-feira, 13 de dezembro de 2005 11:46 Para: 'delphi-br@yahoogrupos.com.br' Assunto: RES: [delphi-br] Ordenar DbGrid ao clicar na coluna Você usa ClientDataset? []s Walter Alves Chagas Junior Projeto e desenvolvimento Telemont Engenharia de telecomunicações Belo Horizonte - MG - Brazil [EMAIL PROTECTED] Fone: (31) 3389-8215 Fax: (31) 3389-8200 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Levi Ribeiro de Freitas Enviada em: terça-feira, 13 de dezembro de 2005 10:55 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Ordenar DbGrid ao clicar na coluna Pessoal, Como faço para ordernar um dbgrid ao clicar na coluna e deixar a coluna marcada diferente indicando a ordenação? Atenciosamente, Levi Ribeiro de Freitas Programador de Computadores mailto:[EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos ___ Yahoo! doce lar. Faça do Yahoo! sua homepage. http://br.yahoo.com/homepageset.html -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Pegar valor do dólar ptax e atualiz ar automaticamente no sistema
Mas alguém já pegou de forma automática? Levi -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Walter Alves Chagas Junior Enviada em: sexta-feira, 9 de dezembro de 2005 08:44 Para: 'delphi-br@yahoogrupos.com.br' Assunto: RES: [delphi-br] Pegar valor do dólar ptax e atualizar automaticamente no sistema No site do Banco central tem a cotação diaria www.bacen.gov.br []s Walter Alves Chagas Junior Projeto e desenvolvimento Telemont Engenharia de telecomunicações Belo Horizonte - MG - Brazil [EMAIL PROTECTED] Fone: (31) 3389-8215 Fax: (31) 3389-8200 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Levi Ribeiro de Freitas Enviada em: quinta-feira, 8 de dezembro de 2005 08:36 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Pegar valor do dólar ptax e atualizar automaticamente no sistema Pessoal, Alguém já conseguiu pegar valor do dólar ptax e atualizar automaticamente no sistema? Atenciosamente, Levi Ribeiro de Freitas Programador de Computadores mailto:[EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos ___ Yahoo! doce lar. Faça do Yahoo! sua homepage. http://br.yahoo.com/homepageset.html -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Pegar valor do dólar ptax e atualizar automaticamente no sistema
Pessoal, Alguém já conseguiu pegar valor do dólar ptax e atualizar automaticamente no sistema? Atenciosamente, Levi Ribeiro de Freitas Programador de Computadores mailto:[EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] ajuda = Remover quebra de linha em campo memo
Pessoal, Estou precisando gerar um txt pegando dados de um campo memo. Só que ele pode ter uma quebra de linha e ela atrapalha o txt todo. Tem alguma rotina que remove a quebra de linha de um campo memo? Atenciosamente, Levi Ribeiro de Freitas Programador de Computadores mailto:[EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] ENC: ajuda = Remover quebra de linha em campo memo
_ De: Levi Ribeiro de Freitas [mailto:[EMAIL PROTECTED] Enviada em: terça-feira, 6 de dezembro de 2005 11:45 Para: 'delphi-br@yahoogrupos.com.br' Assunto: ajuda = Remover quebra de linha em campo memo Pessoal, Estou precisando gerar um txt pegando dados de um campo memo. Só que ele pode ter uma quebra de linha e ela atrapalha o txt todo. Tem alguma rotina que remove a quebra de linha de um campo memo? Atenciosamente, Levi Ribeiro de Freitas Programador de Computadores mailto:[EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Remover Quebra de Linha
Pessoal, Como posso remover a quebra de linha de uma campo memo? Atenciosamente, Levi Ribeiro de Freitas Programador de Computadores mailto:[EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: RES: [delphi-br] Gravar Registro com sqldataset+datasetprovider+clientdataset usando join no select
Amigo, Vc resolveu o problema. Agora gravou. Muito obrigado _ De: Danilo Rogério [mailto:[EMAIL PROTECTED] Enviada em: quarta-feira, 23 de novembro de 2005 17:21 Para: Levi Ribeiro de Freitas Cc: Delphi-Br Assunto: Re: RES: [delphi-br] Gravar Registro com sqldataset+datasetprovider+clientdataset usando join no select Levi... que bom que você postou o erro, assim a galera ve todos os possíveis erros que estão acontecendo com você. Amigo, pelo erro me parece que seu SQL ainda está em minúsculo, não é? 1) Tente colocar em maiúsculo 2) Nos eventos do Datasetprovider existe um metodo chamado OnGetTableName. Neste Método coloque a seguinte instrução TableName := 'PRODUCAOS'; Como você tem join, vc disse para o datasetprovider qual a TABELA da sua instrução será atualizada... Mas faça um de cada vez... Coloque em maiúscula... Estou para apostar que é isso... Att. Danilo Levi Ribeiro de Freitas [EMAIL PROTECTED] escreveu: Danilo, Fiz o que vc me falou nos flags no sqldataset e no clientdataset e mesmo assim depois de dar applyupdate dá a seguinte mensagem: SQL Server Error: Table unknown producaos At line 1, column 21. select a.*, b.tratamento, c.comprimento, c.liga, c.tempera, d.gramatura, d.gramaturaplc from producaos a left join cadastro b on (a.id = b.id) and (a.codigo = b.codigo) left join ipedido c on (a.pedido_id = c.pedido_id) and (a.item = c.item) left join iferramenta d on (a.ferramenta_id = d.ferramenta_id) and (a.sequencia = d.sequencia) where a.status = 0 order by a.protocolo Não sei mais o que fazer. Acredito que vou ter que fazer a atualização na unha usando um outro clientdataset. Levi -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Danilo Rogério Enviada em: terça-feira, 22 de novembro de 2005 19:49 Para: delphi-br@yahoogrupos.com.br Cc: [EMAIL PROTECTED] Assunto: Re: [delphi-br] Gravar Registro com sqldataset+datasetprovider+clientdataset usando join no select Você configurou os providers flags das colunas? 1) Eu ja vi problemas de gravação com select em letras minúsculas. Eu, particularmente uso só maiúsculas. 2) Faça o seguinte: Adicione todos os campos no fields editor do SQLDataset e do ClientDataset. 3) Imagino que sua tabela producaos seja a que vc quer gravar. Portando para os campos(tratamento, comprimento, liga, temperatura, gramatura, gramaturaplc) marque TODOS o os flags(pfInUpdate, pfInWhere, pfInKey, pfInHidden) na propriedade Providers Flags para False, Required para False também. 4) Faça a mesma coisa no ClientDataset. Tente gravar novamente. O que você fez foi dizer ao Datasetprovider que os campos que não são da tabela producaos, não precisam ser atualizados(porque são de outras tabelas). PS: Procure conhecer algo sobre Reconcile Error, para capturar os erros ou problemas na gravação, quando utiliza DBExpress. Provavelmente isso vai resolver. Espero ter ajudado, Danilo Levi Ribeiro de Freitas escreveu: Pessoal, Estou precisando gravar um registro usando D7, Firebird 1.5 + sqldataset+datasetprovider+clientdataset, mas estou usando join no sqldataset+datasetprovider+select, vejam: select a.*, b.tratamento, c.comprimento, c.liga, c.tempera, d.gramatura, d.gramaturaplc from producaos a left join cadastro b on (a.id = b.id) and (a.codigo = b.codigo) left join ipedido c on (a.pedido_id = c.pedido_id) and (a.item = c.item) left join iferramenta d on (a.ferramenta_id = d.ferramenta_id) and (a.sequencia = d.sequencia) where a.status = 0 order by a.protocolo Preciso salvar apenas o registro de uma tabela, como faço? Tento mas ele dá erro. Atenciosamente, Levi Ribeiro de Freitas Programador de Computadores [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE var lrec_target=_blank;var lrec_URL=new Array(); lrec_URL[1]=http://br.rd.yahoo.com/SIG=12fq3ai6r/M=365837.7000707.7924794.2 369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1132697947/A=2950750/R=0/id=flashu rl/SIG=10tift5qr/*http://br.movies.yahoo.com/;; var lrec_flashfile=http://br.i1.yimg.com/br.yimg.com/i/br/ads6/0901_lrec_cinema _calendario.swf?clickTAG=javascript:LRECopenWindow(1); var lrec_altURL=http://br.rd.yahoo.com/SIG=12fq3ai6r/M=365837.7000707.7924794.2 369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1132697947/A=2950750/R=1/id=altimg /SIG=10tift5qr/*http://br.movies.yahoo.com/;; var lrec_altimg=http://br.i1.yimg.com/br.yimg.com/i/br/ads6/0829_lrec_cinema_ca lendario.gif; var lrec_width=300;var lrec_height=250; - Links do Yahoo! Grupos Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. - Yahoo! Acesso Grátis: Internet rápida e grátis
[delphi-br] RES: Diga qual foi a solução...
Solução: Colocar nos flags do sqldataset quais os campos que seriam atualizados e no evento OnGetTableName do datasetprovider a tabela que irá sofrer as atualizações. Um abraço, Levi _ De: Danilo Rogério [mailto:[EMAIL PROTECTED] Enviada em: quinta-feira, 24 de novembro de 2005 13:07 Para: [EMAIL PROTECTED] Assunto: Diga qual foi a solução... Levi, tudo bom... Que bom que seu problema foi solucionado...Mas poste na lista o que tinha de errado... Era as letras minúsculas ou faltou o evento OnGetTableName??? Att. Danilo _ Yahoo! Acesso Grátis: Internet rápida e grátis. Instale http://us.rd.yahoo.com/mail/br/tagline/discador/*http://br.acesso.yahoo.com / o discador agora! [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Gravar Registro com sqldataset+datasetprovider+clientdataset usando join no select
Danilo, Fiz o que vc me falou nos flags no sqldataset e no clientdataset e mesmo assim depois de dar applyupdate dá a seguinte mensagem: SQL Server Error: Table unknown producaos At line 1, column 21. select a.*, b.tratamento, c.comprimento, c.liga, c.tempera, d.gramatura, d.gramaturaplc from producaos a left join cadastro b on (a.id = b.id) and (a.codigo = b.codigo) left join ipedido c on (a.pedido_id = c.pedido_id) and (a.item = c.item) left join iferramenta d on (a.ferramenta_id = d.ferramenta_id) and (a.sequencia = d.sequencia) where a.status = 0 order by a.protocolo Não sei mais o que fazer. Acredito que vou ter que fazer a atualização na unha usando um outro clientdataset. Levi -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Danilo Rogério Enviada em: terça-feira, 22 de novembro de 2005 19:49 Para: delphi-br@yahoogrupos.com.br Cc: [EMAIL PROTECTED] Assunto: Re: [delphi-br] Gravar Registro com sqldataset+datasetprovider+clientdataset usando join no select Você configurou os providers flags das colunas? 1) Eu ja vi problemas de gravação com select em letras minúsculas. Eu, particularmente uso só maiúsculas. 2) Faça o seguinte: Adicione todos os campos no fields editor do SQLDataset e do ClientDataset. 3) Imagino que sua tabela producaos seja a que vc quer gravar. Portando para os campos(tratamento, comprimento, liga, temperatura, gramatura, gramaturaplc) marque TODOS o os flags(pfInUpdate, pfInWhere, pfInKey, pfInHidden) na propriedade Providers Flags para False, Required para False também. 4) Faça a mesma coisa no ClientDataset. Tente gravar novamente. O que você fez foi dizer ao Datasetprovider que os campos que não são da tabela producaos, não precisam ser atualizados(porque são de outras tabelas). PS: Procure conhecer algo sobre Reconcile Error, para capturar os erros ou problemas na gravação, quando utiliza DBExpress. Provavelmente isso vai resolver. Espero ter ajudado, Danilo Levi Ribeiro de Freitas [EMAIL PROTECTED] escreveu: Pessoal, Estou precisando gravar um registro usando D7, Firebird 1.5 + sqldataset+datasetprovider+clientdataset, mas estou usando join no sqldataset+datasetprovider+select, vejam: select a.*, b.tratamento, c.comprimento, c.liga, c.tempera, d.gramatura, d.gramaturaplc from producaos a left join cadastro b on (a.id = b.id) and (a.codigo = b.codigo) left join ipedido c on (a.pedido_id = c.pedido_id) and (a.item = c.item) left join iferramenta d on (a.ferramenta_id = d.ferramenta_id) and (a.sequencia = d.sequencia) where a.status = 0 order by a.protocolo Preciso salvar apenas o registro de uma tabela, como faço? Tento mas ele dá erro. Atenciosamente, Levi Ribeiro de Freitas Programador de Computadores mailto:[EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Yahoo! Grupos, um serviço oferecido por:PUBLICIDADE var lrec_target=_blank;var lrec_URL=new Array(); lrec_URL[1]=http://br.rd.yahoo.com/SIG=12fq3ai6r/M=365837.7000707.7924794.2 369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1132697947/A=2950750/R=0/id=flashu rl/SIG=10tift5qr/*http://br.movies.yahoo.com/;; var lrec_flashfile=http://br.i1.yimg.com/br.yimg.com/i/br/ads6/0901_lrec_cinema _calendario.swf?clickTAG=javascript:LRECopenWindow(1); var lrec_altURL=http://br.rd.yahoo.com/SIG=12fq3ai6r/M=365837.7000707.7924794.2 369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1132697947/A=2950750/R=1/id=altimg /SIG=10tift5qr/*http://br.movies.yahoo.com/;; var lrec_altimg=http://br.i1.yimg.com/br.yimg.com/i/br/ads6/0829_lrec_cinema_ca lendario.gif; var lrec_width=300;var lrec_height=250; - Links do Yahoo! Grupos Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. - Yahoo! Acesso Grátis: Internet rápida e grátis. Instale o discador agora! [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos ___ Yahoo! Acesso Grátis: Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para
[delphi-br] ENC: Registrar UDF no Firebird
_ De: Levi Ribeiro de Freitas [mailto:[EMAIL PROTECTED] Enviada em: terça-feira, 22 de novembro de 2005 17:01 Para: 'delphi-br@yahoogrupos.com.br' Assunto: Registrar UDF no Firebird Pessoal, Como faço para registrar uma UDF no Firebird? Atenciosamente, Levi Ribeiro de Freitas Programador de Computadores [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Gravar Registro com sqldataset+datasetprovider+clientdataset usando join no select
Pessoal, Estou precisando gravar um registro usando D7, Firebird 1.5 + sqldataset+datasetprovider+clientdataset, mas estou usando join no select, vejam: select a.*, b.tratamento, c.comprimento, c.liga, c.tempera, d.gramatura, d.gramaturaplc from producaos a left join cadastro b on (a.id = b.id) and (a.codigo = b.codigo) left join ipedido c on (a.pedido_id = c.pedido_id) and (a.item = c.item) left join iferramenta d on (a.ferramenta_id = d.ferramenta_id) and (a.sequencia = d.sequencia) where a.status = 0 order by a.protocolo Preciso salvar apenas o registro de uma tabela, como faço? Tento mas ele dá erro. Atenciosamente, Levi Ribeiro de Freitas Programador de Computadores mailto:[EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Código de Barras
Fabrício, Gostei do seu código de barras, mas estou com um problema: Uso o qr406 pro, ele exibe o código de barras no qrimage, mas na hora de imprimir não sai nada. Já viu isso acontecer? Sabe como resolver? Obrigado. Levi -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Fabrício Pinheiro França Enviada em: terça-feira, 8 de novembro de 2005 21:51 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Código de Barras Tem dois tipos de funções que eu tenho. Para gerar código I25 e EAN13. As duas utilizam um componente imagem Procedure I25CriaCodBarra(Cod : String; Imagem : TCanvas); Const digitos : array['0'..'9'] of string[5]= ('00110', '10001', '01001', '11000', '00101', '10100', '01100', '00011', '10010', '01010'); Var Numero : String; Cod1 : Array[1..1000] Of Char; Cod2 : Array[1..1000] Of Char; Codigo : Array[1..1000] Of Char; Digito : String; c1,c2 : Integer; x,y,z,h : LongInt; a,b,c,d : TPoint; I : Boolean; Begin Numero := Cod; For x := 1 to 1000 Do Begin Cod1 [x] := #0; Cod2 [x] := #0; Codigo[x] := #0; End ; c1 := 1; c2 := 1; x := 1; For y := 1 to Length(Numero) div 2 do Begin Digito := Digitos[Numero[x ]]; For z := 1 to 5 do Begin Cod1[c1] := Digito[z]; Inc(c1); End ; Digito := Digitos[Numero[x+1]]; For z := 1 to 5 do Begin Cod2[c2] := Digito[z]; Inc(c2); End ; Inc(x,2); End ; y := 5; Codigo[1] := '0'; Codigo[2] := '0'; Codigo[3] := '0'; Codigo[4] := '0'; { Inicio do Codigo } For x := 1 to c1-1 do begin Codigo[y] := Cod1[x]; Inc(y); Codigo[y] := Cod2[x]; Inc(y); end ; Codigo[y] := '1'; Inc(y); { Final do Codigo } Codigo[y] := '0'; Inc(y); Codigo[y] := '0'; Imagem.Pen .Width := 1; Imagem.Brush.Color := ClWhite; Imagem.Pen .Color := ClWhite; a.x := 1; a.y := 0; b.x := 1; b.y := 79; c.x := 2000; c.y := 79; d.x := 2000; d.y := 0; Imagem.Polygon([a,b,c,d]); Imagem.Brush.Color := ClBlack; Imagem.Pen .Color := ClBlack; x := 0; i := True; for y:=1 to 1000 do begin If Codigo[y] #0 Then Begin If Codigo[y] = '0' then h := 1 Else h := 3 ; a.x := x; a.y := 0; b.x := x; b.y := 79; c.x := x+h-1; c.y := 79; d.x := x+h-1; d.y := 0; If i Then Imagem.Polygon([a,b,c,d]); i := Not(i); x := x + h; End ; end ; end; Function EAN13Calculadv(codigo:string):string; var i,sp,si,d,dv:word; s:single; begin if length(codigo)12 then codigo:=copy(codigo,1,12); sp:=0; si:=0; for i:=1 to length(codigo) do begin d:=strtoint( copy(codigo,i,1) ); if odd(length(codigo)+1-i) then si:=si+d*7 else sp:=sp+d*9; end ; s:=(sp+si)/10; dv:=Trunc(10*frac(s)); if codigo='' then EAN13Calculadv := '' else EAN13Calculadv := codigo+inttostr(dv) ; end; procedure EAN13DesenhaBarras(SequenciaHexa: string; Imagem: TCanvas); var X, Y, H: LongInt; A, B, C, D: TPoint; I: Boolean; begin Imagem.Brush.Color := ClWhite; Imagem.Pen.Color := ClBlack; x := 10; i := True; for y := 1 to Length(SequenciaHexa) do begin if SequenciaHexa[y] = '0' then Imagem.Pen.Color := ClWhite else Imagem.Pen.Color := ClBlack ; h := 1; a.x := x; a.y := 0; b.x := x; b.y := 50; c.x := x + h - 1; c.y := 50; d.x := x + h - 1; d.y := 0; case Y of 1..3, 46..50, 93..95: begin b.y := 55; c.y := 55; end ; end; Imagem.Polygon([A, B, C, D]); i := not (i); x := x + h; end ; end; procedure EAN13CriaCodBarra(CodBarras: string; Imagem: TCanvas); const TabelaA: array[0..9] of string[7] = ('0001101', '0011001', '0010011', '001', '0100011', '0110001', '010', '0111011', '0110111', '0001011'); TabelaB: array[0..9] of string[7] = ('0100111', '0110011', '0011011', '0011011', '0011101', '0111001', '101', '0010001', '0001001', '0010111'); TabelaC: array[0..9] of string[7] = ('1110010', '1100110', '1101100', '110', '1011100', '1001110', '101',
[delphi-br] Append ou Insert no ClientDataSet, qual é mais rápido
Pessoal, Afinal qual é o comando mais rápido no ClientDataSet: Insert ou Append? Atenciosamente, Levi Ribeiro de Freitas Programador de Computadores mailto:[EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Scroll do mouse não funciona no dbgrid delphi 7
Pessoal, Alguém sabe por que o scroll do mouse não funciona no dbgrid do delphi7? Atenciosamente, Levi Ribeiro de Freitas Programador de Computadores mailto:[EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] VAGAS DIVERSAS - São Paulo e Rio de Janeiro
Favor enviar o salário. Grato Levi -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Patricia Andreolli Enviada em: quinta-feira, 10 de novembro de 2005 09:25 Para: [EMAIL PROTECTED]; delphi_box; delphi-advanced; delphi-br; delphi-mysql; delphi-total Assunto: [delphi-br] VAGAS DIVERSAS - São Paulo e Rio de Janeiro VAGAS DIVERSAS - São Paulo e Rio de Janeiro Coordenadores de Suporte - (Rio de Janeiro) Superior completo Experiência anterior de 3 anos Conhecimento em Delphi e VB, modelagem de dados, profundos conhecimentos em Banco de Dados SQL Horário de Trabalho: 09:00 às 18:00 de Segunda a sexta Local de Trabalho: Rio de Janeiro Enviar currículo com pretensão salarial para [EMAIL PROTECTED] indicando o Código 010805 Analista Porgramador Jr - (Rio de Janeiro) Cursando o superior Conhecimento em Delphi, VB e Modelagem de Dados em Banco de Dados SQL 01 Vaga para trabalho das 08:30 às 15:00 de Segunda a Sábado 01 Vaga para trabalho das 15:00 às 21:30 de Segunda a Sábado Local de Trabalho: Rio de Janeiro Enviar currículo com pretensão salarial para [EMAIL PROTECTED] indicando o Código 010605 Analista Programador Jr - (São Paulo) Cursando o superior Conhecimento em Delphi, VB e Modelagem de Dados em Banco de Dados SQL 02 Vagas para trabalho das 08:30 às 15:00 de Segunda a Sábado 02 Vagas para trabalho das 15:00 às 21:30 de Segunda a Sábado Local de Trabalho: São Paulo Enviar currículo com pretensão salarial para [EMAIL PROTECTED] indicando o Código 010505 Coordenadores de Suporte - (São Paulo) Superior completo Experiencia anterior de 3 anos Conhecimento em Delphi e VB, modelagem de dados, profundos conhecimentos em Banco de Dados SQL Horário de Trabalho: 09:00 às 18:00 de Segunda a sexta Local de Trabalho: São Paulo Enviar currículo com pretensão salarial para [EMAIL PROTECTED] indicando o Código 010305 Programador Sr. Superior completo em (Ciências da Computação, Processamento de Dados ou Engenharia da Computação) Experiencia de 3 anos em programação em Delphi e VB, modelagem de dados, profundos conhecimentos em Banco de Dados SQL Local de Trabalho: São Paulo Horário de Trabalho : 09:00 às 18:00 de Segunda a Sexta Enviar currículo com PRETENSÃO SALARIAL para [EMAIL PROTECTED] indicando no campo assunto 010205 Programador Jr. Superior cursando (último ano) ou completo em (Ciências da Computação, Processamento de Dados ou Engenharia da Computação) Conhecimentos em Banco de Dados SQL, Delphi e VB Local de Trabalho: São Paulo Horário de Trabalho : 09:00 às 18:00 de Segunda a Sexta Enviar currículo com PRETENSÃO SALARIAL para [EMAIL PROTECTED] indicando no campo assunto 010105 [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos ___ Yahoo! Acesso Grátis: Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Erro na Inclusão com sqldataset + dstprovider +clientdat aset
Pessoal, Já tentei de tudo, preciso da ajuda de vcs: Estou usando delphi7 + firebird 1.5 com sqlconn + sqldataset + dstprovider +clientdataset. Estou tendo problemas na inclusão de registro, estou com problemas em dois campos: Ele dá mensagem que o campo não permite nulo, mas ele permite sim pelo banco sqltimestamp, ou problema é que tenho um campo que é alimentado pelo proprio banco com a data hora atual ele tb dá erro. O que deve fazer? Atenciosamente, Levi Ribeiro de Freitas Programador de Computadores mailto:[EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Recuperar registro deletado do Paradox
Pessoal, Estou precisando recuperar um registro deletado do Paradox. Alguém tinha falado sobre um dbirecover ou algo parecido. Quem pode me ajudar? Atenciosamente, Levi Ribeiro de Freitas Programador de Computadores [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Format
Em vez de floatstr use formafloat(',0.00, value) levi _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de info.desenvolvimento Enviada em: terça-feira, 18 de outubro de 2005 10:57 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Format BOM DIA A TODOS Estou com pequeno problema. Quero gerar uma mensagem que informe na tela os valores de retenção e base de calculo com a formatação coreta da moeda. Exemplo: Retenção R$: 167,20 Base R$: 3.800,00 Esta acontecendo que os formatos estão saindo desta maneira: Retenção R$: 167,20 Base R$: 3800 CÓDIGO: Application.MessageBox( PansiChar( DataModulo.TREGRA.FieldByName('DESCRICAO').AsString+#13+ ' Valor de Retenção R$: ' + floattostr(RETENCAO)+ #13+' Valor de Base R$: ' + floattostr(BASE)),'Aviso', mb_iconExclamation); Onde está o erro? [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: http://br.i1.yimg.com/br.yimg.com/i/071005_324418_pop_ps2_celv550.gif _ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html . [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Recuperar Banco Firebird
Pessoal, Alguém tem alguma ferramenta para recuperar um banco firebird, acredito que o meu está com problema, visto que uma trigger está falhando. As vezes executa, as vezes não. Vejam o código: AS DECLARE VARIABLE FILLER VARCHAR (2) CHARACTER SET WIN1252; DECLARE VARIABLE FILLER1 VARCHAR (30) CHARACTER SET WIN1252; BEGIN FILLER = ' '; //Esta parte aqui não executa de jeito nenhum, verifica estas condicoes de jeito nenhum if ((new.situacao = 2 and old.situacao = 2) and (New.DT_NF Old.DT_NF) or (New.Peso_NF Old.Peso_NF) or (New.Valor_NF Old.Valor_NF) or (New.num_nf Old.num_nf)) then begin FILLER1 = 'MATERIAL DEVOLVIDO'; INSERT INTO tbemail (ID_TIPO, INFORMACAO, DOCUMENTO_CHAR, TEXTO, DESCRICAO, USR_CAD, DT_CAD, DESCRICAO1, DESCRICAO2, STATUS) VALUES(11, 'RAT - ' || :FILLER1 || ' - ' || cast(New.peso_nf as varchar(8)) || 'KG' , SUBSTRING( NEW.codigo FROM 1 FOR 4) || '/' || SUBSTRING( NEW.codigo FROM 5 FOR 2), NEW.tipo_id || :FILLER || New.cod_cli || :FILLER || New.cliente, NEW.desc_reclama, NEW.usr_ed, NEW.dt_ed, New.laudo, New.disposicao, 0); end //Até aqui. //Daqui pra frente executa normalmente. if (new.situacao = 1 and old.situacao = 1 and ((New.cod_cli Old.cod_cli) or (New.desc_reclama Old.desc_reclama))) then begin INSERT INTO tbemail (ID_TIPO, INFORMACAO, DOCUMENTO_CHAR, TEXTO, DESCRICAO, USR_CAD, DT_CAD, STATUS) VALUES(1, 'ALTERAÇÃO DE SAT', SUBSTRING( NEW.codigo FROM 1 FOR 4) || '/' || SUBSTRING( NEW.codigo FROM 5 FOR 2), NEW.tipo_id || :FILLER || New.cod_cli || :FILLER || New.cliente, NEW.desc_reclama, NEW.usr_ed, NEW.dt_ed, 0); end if (new.situacao = 2 and old.situacao = 1) then begin if (new.procedente = 1) then begin FILLER1 = 'PROCEDENTE'; INSERT INTO tbemail (ID_TIPO, INFORMACAO, DOCUMENTO_CHAR, TEXTO, DESCRICAO, USR_CAD, DT_CAD, DESCRICAO1, DESCRICAO2, STATUS) VALUES(2, 'INCLUSÃO DE RAT - ' || :FILLER1 , SUBSTRING( NEW.codigo FROM 1 FOR 4) || '/' || SUBSTRING( NEW.codigo FROM 5 FOR 2), NEW.tipo_id || :FILLER || New.cod_cli || :FILLER || New.cliente, NEW.desc_reclama, NEW.usr_ed, NEW.dt_ed, New.laudo, New.disposicao, 0); end if (new.procedente = 2) then begin FILLER1 = 'IMPROCEDENTE'; INSERT INTO tbemail (ID_TIPO, INFORMACAO, DOCUMENTO_CHAR, TEXTO, DESCRICAO, USR_CAD, DT_CAD, DESCRICAO1, DESCRICAO2, STATUS) VALUES(3, 'INCLUSÃO DE RAT - ' || :FILLER1 , SUBSTRING( NEW.codigo FROM 1 FOR 4) || '/' || SUBSTRING( NEW.codigo FROM 5 FOR 2), NEW.tipo_id || :FILLER || New.cod_cli || :FILLER || New.cliente, NEW.desc_reclama, NEW.usr_ed, NEW.dt_ed, New.laudo, New.disposicao, 0); end end if ((new.situacao = 2 and old.situacao = 2) and (New.laudo Old.laudo) or (New.disposicao Old.disposicao) or (New.procedente Old.procedente) or (New.devolucao Old.devolucao)) then begin if (new.procedente = 1) then begin FILLER1 = 'PROCEDENTE'; INSERT INTO tbemail (ID_TIPO, INFORMACAO, DOCUMENTO_CHAR, TEXTO, DESCRICAO, USR_CAD, DT_CAD, DESCRICAO1, DESCRICAO2, STATUS) VALUES(2, 'ALTERAÇÃO DE RAT - ' || :FILLER1 , SUBSTRING( NEW.codigo FROM 1 FOR 4) || '/' || SUBSTRING( NEW.codigo FROM 5 FOR 2), NEW.tipo_id || :FILLER || New.cod_cli || :FILLER || New.cliente, NEW.desc_reclama, NEW.usr_ed, NEW.dt_ed, New.laudo, New.disposicao, 0); end if (new.procedente = 2) then begin FILLER1 = 'IMPROCEDENTE'; INSERT INTO tbemail (ID_TIPO, INFORMACAO, DOCUMENTO_CHAR, TEXTO, DESCRICAO, USR_CAD, DT_CAD, DESCRICAO1, DESCRICAO2, STATUS) VALUES(3, 'ALTERAÇÃO DE RAT - ' || :FILLER1 , SUBSTRING( NEW.codigo FROM 1 FOR 4) || '/' || SUBSTRING( NEW.codigo FROM 5 FOR 2), NEW.tipo_id || :FILLER || New.cod_cli || :FILLER || New.cliente, NEW.desc_reclama, NEW.usr_ed, NEW.dt_ed, New.laudo, New.disposicao, 0); end end END Atenciosamente, Levi Ribeiro de Freitas Programador de Computadores Tel.: 55 12 3644-2119 / 9724-8804 Email: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] IsModified não funciona em SimpleDataSet?
Pessoal, Me parece que a método IsModified do SimpleDataSet não funciona. Alguém já se deparou com este problema? Como conseguiu resolve-lo? Atenciosamente, Levi Ribeiro de Freitas Programador de Computadores mailto:[EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Utilizar tabelas Dbf
Use vkdbf, ela atualiza indices ntx, padrão clipper. Levi _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Abner Enviada em: terça-feira, 4 de outubro de 2005 10:15 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Utilizar tabelas Dbf Olá a todos ! Qual componente utilizo para acessar as tabelas DBF e que atualizem os indices ? [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: http://br.rd.yahoo.com/SIG=12f5jju5s/M=371233.7216260.8122519.4826560/D=brc lubs/S=2137111264:HM/Y=BR/EXP=1128438537/A=3039887/R=0/SIG=13k7voobn/*http:/ /www.mercadolivre.com.br/jm/pms?site=324418word=050930-headerid=2021as_op t=http://www.mercadolivre.com.br MercadoLivre.com - Onde você compra e vende de tudo! Clique e Confira! PlayStation 2 a partir de R$ 659! Parcele! http://br.rd.yahoo.com/SIG=12f5jju5s/M=371233.7216260.8122519.4826560/D=brc lubs/S=2137111264:HM/Y=BR/EXP=1128438537/A=3039887/R=1/SIG=187o0ssd8/*http:/ /www.mercadolivre.com.br/jm/pms?site=324418word=050930-ps2mlmpid=2021as_o pt=/jm/search?as_categ_id=4384$$as_price_min=640$$as_price_max=1500$$as_filt ro_id=MPAGO$$as_pr_categ_id=AD$$as_display_type=G$$as_order_id=MAS_OFERTADOS $$as_filtro_id2=PRECIO_FIJO Celular Motorola com câmera a partir de R$ http://br.rd.yahoo.com/SIG=12f5jju5s/M=371233.7216260.8122519.4826560/D=brc lubs/S=2137111264:HM/Y=BR/EXP=1128438537/A=3039887/R=2/SIG=18h64job8/*http:/ /www.mercadolivre.com.br/jm/ms?site=324418word=050930-celmotcamid=2021as_ opt=/jm/search?as_categ_id=5082$$noQCat$$as_display_type=G$$as_filtro_id=MPA GO$$as_filtro_id2=NUEVO$$as_pr_categ_id=$$as_price_min=415$$as_search_both=Y $$as_word=$$as_order_id=MAS_OFERTADOS 449! Siemens SL65 com câmera a partir de R$ 730! http://br.rd.yahoo.com/SIG=12f5jju5s/M=371233.7216260.8122519.4826560/D=brc lubs/S=2137111264:HM/Y=BR/EXP=1128438537/A=3039887/R=3/SIG=18nf189r2/*http:/ /www.mercadolivre.com.br/jm/pms?site=324418word=050930-siemens_sl65id=2021 as_opt=/jm/search?as_word=$$as_pr_categ_id=$$as_price_min=499$$as_search_bo th=Y$$as_categ_id=3811$$as_display_type=G$$as_order_id=MAS_OFERTADOS$$noQCat =Y$$as_filtro_id=MPAGO$$as_filtro_id2=NUEVOCâmeras Digitais a partir de apenas R$ 399! http://br.rd.yahoo.com/SIG=12f5jju5s/M=371233.7216260.8122519.4826560/D=brc lubs/S=2137111264:HM/Y=BR/EXP=1128438537/A=3039887/R=4/SIG=1833fpca9/*http:/ /www.mercadolivre.com.br/jm/pms?site=324418word=50930-camdigmlmpid=2021as _opt=/jm/search?as_categ_id=1042$$as_pr_categ_id=AD$$as_filtro_id=MPAGO$$as_ order_id=MAS_OFERTADOS$$as_price_min=390$$as_display_type=G$$as_price_max=17 00$$as_filtro_id2=NUEVO Parcele! CD Players Pioneer a partir de R$ 369! http://br.rd.yahoo.com/SIG=12f5jju5s/M=371233.7216260.8122519.4826560/D=brc lubs/S=2137111264:HM/Y=BR/EXP=1128438537/A=3039887/R=5/SIG=18071v4b7/*http:/ /www.mercadolivre.com.br/jm/pms?site=324418word=050930-mp3carropioneermlmp id=2021as_opt=/jm/search?as_categ_id=5675$$as_pr_categ_id=AD$$as_price_min= 350$$as_display_type=G$$as_order_id=MAS_OFERTADOS$$as_filtro_id=MPAGO$$as_fi ltro_id2=PRECIO_FIJOMP3 Player iPod a partir de R$ 799! http://br.rd.yahoo.com/SIG=12f5jju5s/M=371233.7216260.8122519.4826560/D=brc lubs/S=2137111264:HM/Y=BR/EXP=1128438537/A=3039887/R=6/SIG=16nlj1eg1/*http:/ /www.mercadolivre.com.br/jm/pms?site=324418word=050930--ipodminiid=2021as _opt=/jm/search?as_categ_id=6367$$as_display_type=G$$as_filtro_id=NUEVO$$as_ filtro_id2=MPAGO$$as_price_min=735$$asorder_id=HIT_PAGE Parcele! _ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html . [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Curiosidade sobre a paleta System do D7
Eu utilizo para se comunicar com outro aplicativo e buscar dados dele. Dá pra conectar ao word, excel, etc Levi _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Fabiano A. C. Enviada em: terça-feira, 27 de setembro de 2005 21:48 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Curiosidade sobre a paleta System do D7 O que é e qual a finalidade básica do DDEClient,DDEServer e correlatas? Alguem já utilizou? Até +! Fabiano Augusto [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: http://br.i1.yimg.com/br.yimg.com/i/br/ads6/160905_pop_mp3pioneer_v300.gif _ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html . [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Bd
Use Firebird com dbExpress. Limite do Banco da Dados 4gb. Levi -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Anderson Enviada em: quarta-feira, 21 de setembro de 2005 14:15 Para: Grupo Delphi Assunto: [delphi-br] Bd Aes galera, Estou precisando desenvolver um sistema que guardará muitos registros em um banco de dados. Esse sistema rodará pelo menos 10 horas por dia, e por isso preciso fazê-lo para q naum ocorrá problemas no banco de dados... Sabendo que haverá bastantes registros e rodará praticamente o dia todo acho meio inviavel utilizar tabelas paradox (ao qual estou acostumado a usar). Com a ajuda de vcs, que banco de dados devo utilizar??? Vlw Anderson Rio Claro-SP [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Bd
www.firebase.com.br _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Anderson Enviada em: quarta-feira, 21 de setembro de 2005 15:01 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Bd e como eu posso conseguir o firebird co dbexpress.?? Anderson Rio Claro-SP - Original Message - From: Levi Ribeiro de Freitas To: delphi-br@yahoogrupos.com.br Sent: Wednesday, September 21, 2005 2:29 PM Subject: RES: [delphi-br] Bd Use Firebird com dbExpress. Limite do Banco da Dados 4gb. Levi -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Anderson Enviada em: quarta-feira, 21 de setembro de 2005 14:15 Para: Grupo Delphi Assunto: [delphi-br] Bd Aes galera, Estou precisando desenvolver um sistema que guardará muitos registros em um banco de dados. Esse sistema rodará pelo menos 10 horas por dia, e por isso preciso fazê-lo para q naum ocorrá problemas no banco de dados... Sabendo que haverá bastantes registros e rodará praticamente o dia todo acho meio inviavel utilizar tabelas paradox (ao qual estou acostumado a usar). Com a ajuda de vcs, que banco de dados devo utilizar??? Vlw Anderson Rio Claro-SP [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: http://br.i1.yimg.com/br.yimg.com/i/br/ads6/160905_pop_mp3pioneer_v300.gif _ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html . [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Converter String para Char
Pessoal, Como faço para converter um string para char? Atenciosamente, Levi Ribeiro de Freitas Programador de Computadores mailto:[EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Copiar pasta inteira
Solução: Usar Api do Windows. Uses ShellApi; function CopiaDirs(DirFonte,DirDest : String) : Boolean; var ShFileOpStruct : TShFileOpStruct; begin Result := False; if DirFonte = '' then raise Exception.Create('Diretório fonte não pode ficar em branco'); if DirDest = '' then raise Exception.Create( 'Diretório destino não pode ficar em branco'); if not DirectoryExists(DirFonte) then raise Exception.Create('Diretório fonte inexistente'); DirFonte := DirFonte+#0; DirDest := DirDest+#0; FillChar(ShFileOpStruct,Sizeof(TShFileOpStruct),0); with ShFileOpStruct do beginWnd := Application.Handle; wFunc := FO_COPY; pFrom := PChar(DirFonte); pTo := PChar(DirDest); fFlags := FOF_ALLOWUNDO or FOF_SIMPLEPROGRESS or FOF_NOCONFIRMATION; end; ShFileOperation(ShFileOpStruct); end; Levi _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de FILIPE - GURU Enviada em: quinta-feira, 15 de setembro de 2005 17:28 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Copiar pasta inteira pelo q sei, soh copiando arquivo por arquivo... - Original Message - From: Levi Ribeiro de Freitas [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Thursday, September 15, 2005 5:16 PM Subject: [delphi-br] Copiar pasta inteira Pessoal, Alguém sabe como faço para copiar uma pasta inteira pelo delphi, sem precisar copiar arquivo po arquivo? Atenciosamente, Levi Ribeiro de Freitas Programador de Computadores mailto:[EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: http://br.i1.yimg.com/br.yimg.com/i/br/ads6/160905_pop_celsamsung_camdig.gi f _ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html . [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Arquivo.DAT
Manda para mim eu verifico que base que é. Levi - [EMAIL PROTECTED] _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Cícero Enviada em: quinta-feira, 15 de setembro de 2005 08:24 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Arquivo.DAT Como faço para importar este arquivo para sql-server, mysql ou access ? -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Cícero Enviada em: quarta-feira, 14 de setembro de 2005 16:33 Para: Listadelphi (E-mail) Assunto: [delphi-br] Arquivo.DAT Galera estou com um sistema que não deu para descobrir se eh delphi ou vb. O fato eh que o danado do sistema veio com um formato de base de dados que não conheço. tabela.DAT tabela.IDX Que tipo de gerenciador eh esse? Como posso importar para o Access por exemplo, para depois levar para sql-server? -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE http://br.rd.yahoo.com/SIG=12f46dem2/M=365837.7000707.7924794.2369893/D=brc lubs/S=2137111264:HM/Y=BR/EXP=1126790606/A=2950750/R=2/id=noscript/SIG=10tif t5qr/*http://br.movies.yahoo.com/ _ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html . [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Copiar pasta inteira
Pessoal, Alguém sabe como faço para copiar uma pasta inteira pelo delphi, sem precisar copiar arquivo po arquivo? Atenciosamente, Levi Ribeiro de Freitas Programador de Computadores mailto:[EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Mudar uma propriedades de um componente em run-time
Pessoal, Estou precisando mudar as propriedades de um componente em run-time. Mas não sei como fazer, visto que quero fazer da maneira genérica. Seria algo assim: TDbEdit(components[Screen.ActiveControl.ComponentIndex]).Color:=clWindow;. Mas não está funcionando. Atenciosamente, Levi Ribeiro de Freitas Programador de Computadores mailto:[EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Mudar uma propriedades de um componente em run-time
Deu um erro de violation erro. levi _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Eduardo Enviada em: quarta-feira, 14 de setembro de 2005 12:02 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Mudar uma propriedades de um componente em run-time Por q nao deu certo Eduardo - Original Message - From: Levi Ribeiro de Freitas To: delphi-br@yahoogrupos.com.br Sent: Wednesday, September 14, 2005 9:48 AM Subject: [delphi-br] Mudar uma propriedades de um componente em run-time Pessoal, Estou precisando mudar as propriedades de um componente em run-time. Mas não sei como fazer, visto que quero fazer da maneira genérica. Seria algo assim: TDbEdit(components[Screen.ActiveControl.ComponentIndex]).Color:=clWindow;. Mas não está funcionando. Atenciosamente, Levi Ribeiro de Freitas Programador de Computadores mailto:[EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE http://br.rd.yahoo.com/SIG=12fb1th69/M=365837.7000707.7924794.2369893/D=brc lubs/S=2137111264:HM/Y=BR/EXP=1126718897/A=2950750/R=2/id=noscript/SIG=10tif t5qr/*http://br.movies.yahoo.com/ _ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html . [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Arquivo.DAT
Renomeia para extensão dbf e tenta abrir no paradox. Alguns programadores trocam as extensoes para segurança. Levi _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Cícero Enviada em: quarta-feira, 14 de setembro de 2005 16:33 Para: Listadelphi (E-mail) Assunto: [delphi-br] Arquivo.DAT Galera estou com um sistema que não deu para descobrir se eh delphi ou vb. O fato eh que o danado do sistema veio com um formato de base de dados que não conheço. tabela.DAT tabela.IDX Que tipo de gerenciador eh esse? Como posso importar para o Access por exemplo, para depois levar para sql-server? -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE http://br.rd.yahoo.com/SIG=12fuup636/M=365837.7000707.7924794.2369893/D=brc lubs/S=2137111264:HM/Y=BR/EXP=1126733518/A=2950750/R=2/id=noscript/SIG=10tif t5qr/*http://br.movies.yahoo.com/ _ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html . [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Endereço do Source Forge onde está o DBX estendido
Pessoal, Alguém falou de DBX estendido, sabem onde está no source forge? Não consegui achar. Atenciosamente, Levi Ribeiro de Freitas Programador de Computadores mailto:[EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Caracter especial dentro do Label
Pessoal, Estou precisando colocar caracter especial dentro de um label: ↓↑ Como faço? Quando tento colocar colando, aparece apenas ??. Atenciosamente, Levi Ribeiro de Freitas Programador de Computadores mailto:[EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] OFF - Oportunidade
Favor informar salário. Levi -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rogério Enviada em: terça-feira, 13 de setembro de 2005 16:40 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] OFF - Oportunidade Desculpem pelo OFF. Necessita-se programador em Delphi, com desejáveis conhecimentos: _Automação Comercial; _SQL; _Orientação à Objetos. Enviar currículo para: [EMAIL PROTECTED] assunto: Programador Delphi Grato, Rogério Ricardo Fernandes Desenvolvimento http://www.strategies.inf.br [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] SimpleDataSet tem problema mesmo?
Pessoal, Afinal por que é desaconselhável usar o SimpleDataSet do Delphi 7? Como faço para migrar todos os componentes que usei deste tipo para o trio seguro? Atenciosamente, Levi Ribeiro de Freitas Programador de Computadores [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Input Query diferente
Pessoal, Alguém já usou este inputquery: function InputQuery(const ACaption, APrompt: WideString; var Value: Integer, Min: Integer = Low(Integer); Max: Integer = High(Integer); Increment: Integer = 1): Boolean; overload; Não estou conseguindo. Alguém sabe como? Atenciosamente, Levi Ribeiro de Freitas Programador de Computadores mailto:[EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] DBF entre Datas
Coloca a data no formato mm/dd/. Levi _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Evandro Araujo de Abreu Enviada em: quinta-feira, 8 de setembro de 2005 16:20 Para: lista-delphi; zeoslib-br; Delphi-Total; Delphi-br; Delphi-ib Assunto: [delphi-br] DBF entre Datas Alguem ja manipulou tabelas DBF, fazer um select ex; select * from cadorc where orcmov = 30/04/2005 eu faco isso no database explorer, so que nao tras o resultado esperado Obs. parece que ele ignora o where, estou utilizando o dabase explorer No aguardo Evandro [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE http://br.rd.yahoo.com/SIG=12foai2qf/M=365837.7000707.7924794.2369893/D=brc lubs/S=2137111264:HM/Y=BR/EXP=1126214225/A=2950750/R=2/id=noscript/SIG=10tif t5qr/*http://br.movies.yahoo.com/ _ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html . [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Desligar o Windows
Pessoal uso este código para desligar o windows e funciona perfeitamente: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TForm1 = class(TForm) Timer1: TTimer; Label1: TLabel; Label2: TLabel; Label3: TLabel; Bevel1: TBevel; procedure Timer1Timer(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} Function DesligarWindows: String; var TTkHandle :THandle; TTkAtu,TTkAnt :TTokenPrivileges; TTkRet :DWORD; begin if OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, TTkHandle) then if LookupPrivilegeValue(nil, 'SeShutdownPrivilege', TTkAtu.Privileges[0].Luid) then begin TTkAtu.PrivilegeCount := 1; TTkAtu.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED; Windows.AdjustTokenPrivileges(TTkHandle, False, TTkAtu, SizeOf(TTkAtu), TTkAnt, TTkRet); ExitWindowsEx(EWX_POWEROFF or EWX_FORCE, 0); end; end; procedure TForm1.Timer1Timer(Sender: TObject); var sHoraDesligar, sHoraAgora: String; begin sHoraAgora:= FormatDateTime('hh:mm', now); sHoraDesligar:= '05:58'; label1.Caption:=SHoraDesligar; label2.Caption:=FormatDateTime('hh:mm:ss', now); label3.Caption:='Aguardando ...'; if sHoraAgora = sHoraDesligar then begin label3.Caption:='Desligando o Windows ...'; DesligarWindows; end; end; end. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Re: For ou While dentro de uma procedure firebird
Consegui obrigado. Para uso dos demais: CREATE TRIGGER TBQLCONTROLE_AI FOR TBQLCONTROLE ACTIVE AFTER INSERT POSITION 0 AS declare variable i integer; declare variable iFuros integer; BEGIN i = 1; iFuros = new.furos + 1; While (i iFuros) do begin insert into tbqlcontroledimensional (ID_CONTROLE, FURO, USR_CAD, DT_CAD) values (NEW.ID, :i, NEW.USR_CAD, NEW.DT_CAD); i = i + 1; end END Levi _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Danilo Enviada em: segunda-feira, 5 de setembro de 2005 11:19 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Re: For ou While dentro de uma procedure firebird Boa Tarde, faz assim CONTA = 0; --VARIAVEL CONTA INTEIRO FIM = 100; --VARIAVEL FIM INTEIRO while (CONTA = FIM) do begin -- cola aki seu codigo CONTA = CONTA +1; end abraços Danilo *** REPLY SEPARATOR *** On 5/9/2005 at 10:53 Levi Ribeiro de Freitas wrote: Silveira, Obrigado pela ajuda. Mas vê se eu posso fazer de outra forma. Cada vez que eu inserir um cadastro novo, este cadastro irá conter um campo que vai me dizer quantos itens preciso inserir na tabela filha. Acredito que não consiguirei usar uma estrutura baseada no seu exemplo. Levi _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de crsilveira Enviada em: segunda-feira, 5 de setembro de 2005 10:41 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Re: For ou While dentro de uma procedure firebird FOR SELECT CAMPO1 FROM TABELA WHERE XXX = :PARAM INTO :CAMPO1a DO BEGIN --Insira aqui o q vc quer executar END; --- Em delphi-br@yahoogrupos.com.br, Levi Ribeiro de Freitas [EMAIL PROTECTED] escreveu Pessoal, Alguém tem idéia de como posso fazer um while ou for dentro de uma procedure firebird? Preciso inserir um lote de registros cada vez que ela for executada. Obrigado Atenciosamente, Levi Ribeiro de Freitas Programador de Computadores mailto:[EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE http://br.rd.yahoo.com/SIG=12fdrc5uu/M=365837.7000707.7924794.2369893/D=brc lubs/S=2137111264:HM/Y=BR/EXP=1125934877/A=2950750/R=2/id=noscript/SIG=10tif t5qr/*http://br.movies.yahoo.com/ _ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html . [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE var lrec_target=_blank;var lrec_URL=new Array(); lrec_URL[1]=http://br.rd.yahoo.com/SIG=12f55gpkm/M=365837.7000707.7924794.2 369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1125936020/A=2950750/R=0/id=flashu rl/SIG=10tift5qr/*http://br.movies.yahoo.com/;; var lrec_flashfile=http://br.i1.yimg.com/br.yimg.com/i/br/ads6/0901_lrec_cinema _calendario.swf?clickTAG=javascript:LRECopenWindow(1); var lrec_altURL=http://br.rd.yahoo.com/SIG=12f55gpkm/M=365837.7000707.7924794.2 369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1125936020/A=2950750/R=1/id=altimg /SIG=10tift5qr/*http://br.movies.yahoo.com/;; var lrec_altimg=http://br.i1.yimg.com/br.yimg.com/i/br/ads6/0829_lrec_cinema_ca lendario.gif; var lrec_width=300;var lrec_height=250; Links do Yahoo! Grupos Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE http://br.rd.yahoo.com/SIG=12f2jvi3a/M=365837.7000707.7924794.2369893/D=brc lubs/S=2137111264:HM/Y=BR/EXP=1125981723/A=2950750/R=2/id=noscript/SIG=10tif t5qr/*http://br.movies.yahoo.com/ _ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http
[delphi-br] Enter para o Próximo Campo não Funciona
Pessoal, Estou usando um aplicationevents para com o enter passar para o próximo campo mas não está funcionando. Por quê? Vejam o código e digam o que está errado: procedure TfrmMenu.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean); begin //Enter para passar para o próximo campo if (ActiveControl is TDBEdit) or (ActiveControl is TDBComboBox) or (ActiveControl is TDBLookupComboBox) or (ActiveControl is TCustomEdit) then begin if Msg.message=WM_KEYDOWN then if Msg.wParam=VK_RETURN then Keybd_event(VK_TAB,0,0,0); end; end; Atenciosamente, Levi Ribeiro de Freitas Programador de Computadores Tel.: 55 12 3644-2119 / 9724-8804 Email: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] For ou While dentro de uma procedure firebird
Pessoal, Alguém tem idéia de como posso fazer um while ou for dentro de uma procedure firebird? Preciso inserir um lote de registros cada vez que ela for executada. Obrigado Atenciosamente, Levi Ribeiro de Freitas Programador de Computadores mailto:[EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Re: For ou While dentro de uma procedure firebird
Silveira, Obrigado pela ajuda. Mas vê se eu posso fazer de outra forma. Cada vez que eu inserir um cadastro novo, este cadastro irá conter um campo que vai me dizer quantos itens preciso inserir na tabela filha. Acredito que não consiguirei usar uma estrutura baseada no seu exemplo. Levi _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de crsilveira Enviada em: segunda-feira, 5 de setembro de 2005 10:41 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Re: For ou While dentro de uma procedure firebird FOR SELECT CAMPO1 FROM TABELA WHERE XXX = :PARAM INTO :CAMPO1a DO BEGIN --Insira aqui o q vc quer executar END; --- Em delphi-br@yahoogrupos.com.br, Levi Ribeiro de Freitas [EMAIL PROTECTED] escreveu Pessoal, Alguém tem idéia de como posso fazer um while ou for dentro de uma procedure firebird? Preciso inserir um lote de registros cada vez que ela for executada. Obrigado Atenciosamente, Levi Ribeiro de Freitas Programador de Computadores mailto:[EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE http://br.rd.yahoo.com/SIG=12fdrc5uu/M=365837.7000707.7924794.2369893/D=brc lubs/S=2137111264:HM/Y=BR/EXP=1125934877/A=2950750/R=2/id=noscript/SIG=10tif t5qr/*http://br.movies.yahoo.com/ _ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html . [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Depois de dar Refresh posiciona no Primeiro Registro
Pessoal, estou com uma dúvida: Estou usando simpledataset, delphi7, firebird 1.5. As vezes quando salvo um registro e dou refresh ele vai para o primeiro registro, mas as vezes não. O que poderia ser? Atenciosamente, Levi Ribeiro de Freitas Programador de Computadores mailto:[EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] XMANIFEST como Usar?
Pessoal, Como faço para usar o componente xpmanifest? Como faço para mudar o cursor que das messagedlg, das showmessage e das messagebox para que fique no padrão xp (Uma mão com dedo apontando o botão)? Atenciosamente, Levi Ribeiro de Freitas Programador de Computadores mailto:[EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Cálculo de Imposto - Alguém sabe
Exemplo: Vlr Líquido: 100,00 Pis/Cofins: 9,25 ICMS: 18% IPI: 5% Cálculo: 100,00 / (100 - (9,25 + 18) * 0,01) * 1,05. Seria este o cálculo correto? Levi _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Jenifer Arosa Enviada em: quinta-feira, 1 de setembro de 2005 01:37 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Cálculo de Imposto - Alguém sabe Oi Levi, Perdoa se por acaso falo alguma besteira. Não sei quanto Pis/Confis, mas o Icm já faz parte do valor liquido enquanto o IPI é destacado e somado ao valor liquido. Dessa forma seu calculo estaria acumulando icms sobre icms. beijosss {{}} Jenifer -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Levi Ribeiro de Freitas Enviada em: quarta-feira, 31 de agosto de 2005 17:10 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Cálculo de Imposto - Alguém sabe Pessoal, Estou montando uma rotina para cálculo de imposto e estou com dúvida, será que alguém sabe? Estou montando uma fórmula de cálculo para impostos, mas estou com dúvida, veja a fórmula e diga qual está correta: Preço Bruto = Preço Líquido + Pis/Cofins + ICMS + IPI ou Preço Bruto = Preço Líquido + ICMS + Pis/Cofins + IPI. Atenciosamente, Levi Ribeiro de Freitas Programador de Computadores [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE http://br.rd.yahoo.com/SIG=12fu6q53p/M=365837.7000707.7924794.2369893/D =brclubs/S=2137111264:HM/Y=BR/EXP=1125525791/A=2950750/R=2/id=noscript/S IG=10tift5qr/*http://br.movies.yahoo.com/ _ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html . [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE http://br.rd.yahoo.com/SIG=12fukgii2/M=365837.7000707.7924794.2369893/D=brc lubs/S=2137111264:HM/Y=BR/EXP=1125556629/A=2950750/R=2/id=noscript/SIG=10tif t5qr/*http://br.movies.yahoo.com/ _ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html . [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] DBExpress X Sql Server
Como faço para atualizar o delphi 7? Levi _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de [EMAIL PROTECTED] Enviada em: quinta-feira, 1 de setembro de 2005 09:15 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] DBExpress X Sql Server Salve Dr. Vinicius Vc ja atualizou o Delphi 7? O Ultimo update para o D7 ciorrige uns bugs no dbexpress. Em todo caso, eu te recomendo profundamente a usar ADO. Se e q vc me entende. hehehe as ordens []´s Bruno Lichot Bom dia pessoal, novamente me encontrei em uma situação dificio e preciso da ajuda de vcs. Fiz uma aplicação com dbexpress para um banco de dados Oracle, agora estou migrando a mesma para sql server, só que ela esta me dando um erro quando tento gravar, percebi que o erro acontece somente quando tenho uma transação aberta com o Sql Server isso é se eu não der um StartTransaction e executar os comando ele não da erro algum mas quando abro uma transação e executo o mesmo comando mesmo que seja um comando de consulta ele me retorna um erro (Sql Server Error (Null) e logo em seguida DBExpress Error Unknown Error Code 16389). Os valores do parâmetro que passo para abrir a transação esta logo abaixo. Transacao.TransactionID := 10; Transacao.GlobalID := 10; Transacao.IsolationLevel := xilREADCOMMITTED; Desde já agradeço qualquer tipo de ajuda. Att, Vinicius Vinha Dalvi - New Choice informatica ltda (21)3150-5564 / 3150-5569 [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE http://br.rd.yahoo.com/SIG=12f0tsb1p/M=365837.7000707.7924794.2369893/D=brc lubs/S=2137111264:HM/Y=BR/EXP=1125584619/A=2950750/R=2/id=noscript/SIG=10tif t5qr/*http://br.movies.yahoo.com/ _ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html . [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Cálculo de Imposto - Alguém sabe
A verdade é se sobre o valor com Pis/Cofins cálculo o ICMS e sobre o valor apurado por este cálculo coloco o IPI. Levi _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Felipe Preussler Enviada em: quarta-feira, 31 de agosto de 2005 17:27 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Cálculo de Imposto - Alguém sabe Acho que entendi o que você quer dizer... Na lógica os calculos são os mesmos, mas você quer saber se ICMS e IPI é calculado sobre o valor já calculado o COFINS ou o contrário certo? Bom, não sei te responder hehehe Só quis esclarecer... Felipe Em 31/08/05, Wilson Valdevite[EMAIL PROTECTED] escreveu: Levi, acho que os cálculos são iguais, ou não? - Original Message - From: Levi Ribeiro de Freitas To: delphi-br@yahoogrupos.com.br Sent: Wednesday, August 31, 2005 5:09 PM Subject: [delphi-br] Cálculo de Imposto - Alguém sabe Pessoal, Estou montando uma rotina para cálculo de imposto e estou com dúvida, será que alguém sabe? Estou montando uma fórmula de cálculo para impostos, mas estou com dúvida, veja a fórmula e diga qual está correta: Preço Bruto = Preço Líquido + Pis/Cofins + ICMS + IPI ou Preço Bruto = Preço Líquido + ICMS + Pis/Cofins + IPI. Atenciosamente, Levi Ribeiro de Freitas Programador de Computadores -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE http://br.rd.yahoo.com/SIG=12fu031pf/M=365837.7000707.7924794.2369893/D=brc lubs/S=2137111264:HM/Y=BR/EXP=1125582439/A=2950750/R=2/id=noscript/SIG=10tif t5qr/*http://br.movies.yahoo.com/ _ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html . [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] DBExpress X Sql Server
Tem como vc mandar o service pack 1 do delphi 7? Email: [EMAIL PROTECTED] levi _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Vinicius Dalvi Enviada em: quinta-feira, 1 de setembro de 2005 10:31 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] DBExpress X Sql Server Concordo com vc Bruno quanto ao ADO, o problema é que essa aplicação tem quer ser com o DBExpress, pois utilizo a mesma aplicação com os bancos de dados Oracle e Interbase que por sinal estão funcionando perfeitamente com o DBExpress. Já fiz a atualização do Delphi sim mas não sei se foi a ultima vou dar uma olhada se foi ou não, mas acredito que tenha sido a ultima sim! Att, Vinicius Vinha Dalvi - Original Message - From: [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Thursday, September 01, 2005 9:15 AM Subject: Re: [delphi-br] DBExpress X Sql Server Salve Dr. Vinicius Vc ja atualizou o Delphi 7? O Ultimo update para o D7 ciorrige uns bugs no dbexpress. Em todo caso, eu te recomendo profundamente a usar ADO. Se e q vc me entende. hehehe as ordens []´s Bruno Lichot Bom dia pessoal, novamente me encontrei em uma situação dificio e preciso da ajuda de vcs. Fiz uma aplicação com dbexpress para um banco de dados Oracle, agora estou migrando a mesma para sql server, só que ela esta me dando um erro quando tento gravar, percebi que o erro acontece somente quando tenho uma transação aberta com o Sql Server isso é se eu não der um StartTransaction e executar os comando ele não da erro algum mas quando abro uma transação e executo o mesmo comando mesmo que seja um comando de consulta ele me retorna um erro (Sql Server Error (Null) e logo em seguida DBExpress Error Unknown Error Code 16389). Os valores do parâmetro que passo para abrir a transação esta logo abaixo. Transacao.TransactionID := 10; Transacao.GlobalID := 10; Transacao.IsolationLevel := xilREADCOMMITTED; Desde já agradeço qualquer tipo de ajuda. Att, Vinicius Vinha Dalvi - New Choice informatica ltda (21)3150-5564 / 3150-5569 [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.344 / Virus Database: 267.10.15/82 - Release Date: 25/08/2005 [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE http://br.rd.yahoo.com/SIG=12fmtbaq5/M=365837.7000707.7924794.2369893/D=brc lubs/S=2137111264:HM/Y=BR/EXP=1125588480/A=2950750/R=2/id=noscript/SIG=10tif t5qr/*http://br.movies.yahoo.com/ _ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html . [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair
[delphi-br] Problema na consulta SQL com DATA
Pessoal, Estou com um problema em consulta SQL com campo data no Firebird. Eu faço a consulta por data usando Between, mas o campo armazena tb a hora. O problema é que quando passo os parâmetros ele deixa de fora alguns registros. Não consigo passar parâmetro com hora. Como fazer? Atenciosamente, Levi Ribeiro de Freitas Programador de Computadores mailto:[EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Generator como desfazer?
Jenifer, Segue a função que criei para resolver este problema function TData.DBGenerator(Generator: String; Tipo: Integer): Integer; var DataSet: TSimpleDataSet; begin DataSet:= TSimpleDataSet.Create(Self); DataSet.Connection:= tbEmpresa.Connection; if Tipo=1 then DataSet.DataSet.CommandText:='select gen_id(' + Generator + ', 1) ID from rdb$database' else DataSet.DataSet.CommandText:='select gen_id(' + Generator + ', -1) ID from rdb$database'; Try DataSet.Open; Result:=DataSet.FieldByName('ID').AsInteger; Except Result:=-1; end; DataSet.Free; end; Ate mais, Levi _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Lista - Rede Virtual Enviada em: quinta-feira, 1 de setembro de 2005 13:35 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Generator como desfazer? O que você pode fazer nesse caso seria criar uma tabela onde você teria 2 campos sendo um com o nome da tabela e outro com o ID atual. Sempre que você for fazer uma inclusão de dados, busque nessa tabela o registro correpondente a tabela que você está incluindo pegue o ID atual e incremente mais 1. O problema é que esse tipo de comportamento em rede não fica 100% confiável (na minha humilde opinião) De qualquer forma funciona, já usei muito isso dessa forma. Atualmente prefiro utilizar generator. Espero ter ajudado. Sucesso a todos ! T+ REDE VIRTUAL Internet S/C Ltda Paulo Roberto Vieira Jr Programador Web E-mail: [EMAIL PROTECTED] MSN: [EMAIL PROTECTED] -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Jenifer Arosa Enviada em: quinta-feira, 1 de setembro de 2005 11:43 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Generator como desfazer? Oi Gente,,, Nossa é muita duvida neh...rsss Meu projeto esta baseado em generators para incremento dos campos chaves, mas não gostei do seu comportamento. Se o usuario não gravar a inclusão aquele numero do generator se perde e não sei como faze-lo retornar casa não grave. Algum de voces teria uma sugestão? Uso Interbase com IBX no Delphi 7. Beijos {{}} Jenifer [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos http://br.groups.yahoo.com/group/delphi-br/ [EMAIL PROTECTED] http://br.yahoo.com/info/utos.html [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] _ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html . [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Registro no Site da Borland? Como se cadastrar?
Pessoal, Estou precisando me cadastrar no site da Borland, alguém sabe como faço isso? Atenciosamente, Levi Ribeiro de Freitas Programador de Computadores mailto:[EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Problema na consulta SQL com DATA
Amigo, Deu erro: Unasigned Code e não prosseguiu. Levi _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Leandro Enviada em: quinta-feira, 1 de setembro de 2005 14:48 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Problema na consulta SQL com DATA Opa, Eu faço assim: query1.parambyname('DataInicial').asdatetime := strtodatetime('01/01/2005 00:00:00'); query1.parambyname('DataFinal').asdatetime := strtodatetime('01/02/2005 23:59:59'); Leandro - Original Message - From: Levi Ribeiro de Freitas [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Thursday, September 01, 2005 1:37 PM Subject: [delphi-br] Problema na consulta SQL com DATA Pessoal, Estou com um problema em consulta SQL com campo data no Firebird. Eu faço a consulta por data usando Between, mas o campo armazena tb a hora. O problema é que quando passo os parâmetros ele deixa de fora alguns registros. Não consigo passar parâmetro com hora. Como fazer? Atenciosamente, Levi Ribeiro de Freitas Programador de Computadores mailto:[EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] _ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html . [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Cálculo de Imposto - Alguém sabe
Não são, por que são cumulativos, ou seja sobre o valor apurado no cálculo anterior. Levi _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Wilson Valdevite Enviada em: quarta-feira, 31 de agosto de 2005 17:10 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Cálculo de Imposto - Alguém sabe Levi, acho que os cálculos são iguais, ou não? - Original Message - From: Levi Ribeiro de Freitas To: delphi-br@yahoogrupos.com.br Sent: Wednesday, August 31, 2005 5:09 PM Subject: [delphi-br] Cálculo de Imposto - Alguém sabe Pessoal, Estou montando uma rotina para cálculo de imposto e estou com dúvida, será que alguém sabe? Estou montando uma fórmula de cálculo para impostos, mas estou com dúvida, veja a fórmula e diga qual está correta: Preço Bruto = Preço Líquido + Pis/Cofins + ICMS + IPI ou Preço Bruto = Preço Líquido + ICMS + Pis/Cofins + IPI. Atenciosamente, Levi Ribeiro de Freitas Programador de Computadores [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.344 / Virus Database: 267.10.18/86 - Release Date: 31/08/2005 [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE http://br.rd.yahoo.com/SIG=12fe9h79r/M=365837.7000707.7924794.2369893/D=brc lubs/S=2137111264:HM/Y=BR/EXP=1125526189/A=2950750/R=2/id=noscript/SIG=10tif t5qr/*http://br.movies.yahoo.com/ _ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html . [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Visualização de Arquivos CAD com integração a Banc o de Dados
Pessoal, Se alguém precisar de uma aplicação que integre banco de dados com visualização de arquivos cad (dwg), pode entrar em contato com posso desenvolver combinando o preço. Atenciosamente, Levi Ribeiro de Freitas Programador de Computadores mailto:[EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Dicas
Dicas para p pessoal: http://www.activedelphi.com.br/ mailto:[EMAIL PROTECTED] http://www.activedelphi.com.br/modules.php?op=modloadname=Newsfile=index; catid=topic=5allstories=1 http://www.activedelphi.com.br/modules.php?op=modloadname=Downloadsfile=i ndex http://www.activedelphi.com.br/produtos.php http://www.activedelphi.com.br/sobre.php Quarta-feira, 24 de Agosto de 2005 http://www.activedelphi.com.br/activenews/imagens/topmenu_01.gif http://www.activedelphi.com.br/activenews/imagens/topmenu_02.gif http://www.activedelphi.com.br/activenews/imagens/topmenu_03.gif http://www.activedelphi.com.br/activenews/imagens/topmenu_04.gif http://www.activedelphi.com.br/activenews/imagens/topmenu_05.gif http://www.activedelphi.com.br/activenews/imagens/topmenu_06.gif http://www.activedelphi.com.br/activenews/imagens/topmenu_07.gif http://www.activedelphi.com.br/activenews/imagens/topmenu_08.gif http://www.activedelphi.com.br/ Active News - Nº 166 _ http://www.activedelphi.com.br/activenews/imagens/topmenu_14.gif http://www.activedelphi.com.br/activenews/imagens/lateral-esq.gif Notícias da Edição: Treinamento ClientDataSet/DBExpress em São Paulo Este mês a EduDelphiPage voltou a divulgar seu treinamento de ClientDataSet/DBExpress e já montou uma turma para o mês de Setembro em São Paulo. Para quem não conhece, este treinamento é de um dia com carga horária de 08 horas em um laboratório com um aluno por micro contando com 2 apostilas. Ele é direcionado para aqueles que querem migrar suas aplicações BDE/Paradox para um modelo Cliente/Servidor utilizando uma engine de acesso mais leve (DBExpress, apenas uma dll) e um banco de dados seguro, relacional e gratuito que é o Firebird. Não perca tempo, as vagas são limitadas. O quanto antes se inscrever, mais barato ira pagar! Veja todos os detalhes do treinamento no site: http://www.edudelphipage.com.br/index.php?pagina=curso_cds.php?i=1 http://www.edudelphipage.com.br/index.php?pagina=curso_cds.php?i=1 Uma ótima semana a todos! Equipe Active Delphi http://www.activedelphi.com.br/ www.activedelphi.com.br (16) 3024-8713 Edição 18 http://www.activedelphi.com.br/revista_18.php esgotada _ 50 Programas/ Exemplos http://www.activedelphi.com.br/produtos.php _ Colabore com a comunidade Delphi, envie sua dica para publicarmos! 1- Últimos artigos postados no site. http://www.activedelphi.com.br/activenews/imagens/bullet.gif http://www.activedelphi.com.br/modules.php?op=modloadname=Newsfile=articl esid=265mode=threadorder=0thold=0 Tabelas temporárias do MS SQL Server no Delphi http://www.activedelphi.com.br/activenews/imagens/bullet.gif http://www.activedelphi.com.br/modules.php?op=modloadname=Newsfile=articl esid=264mode=threadorder=0thold=0 Form MDI com menu de controle das janelas http://www.activedelphi.com.br/activenews/imagens/bullet.gif http://www.activedelphi.com.br/modules.php?op=modloadname=Newsfile=articl esid=262mode=threadorder=0thold=0 MSDE A Carta na Manga http://www.activedelphi.com.br/activenews/imagens/bullet.gif http://www.activedelphi.com.br/modules.php?op=modloadname=Newsfile=articl esid=261mode=threadorder=0thold=0 Impressão de Código de Barras - Argox PPLB http://www.activedelphi.com.br/activenews/imagens/bullet.gif http://www.activedelphi.com.br/modules.php?op=modloadname=Newsfile=articl esid=260mode=threadorder=0thold=0 Pintando um trecho selecionado no DBGrid http://www.activedelphi.com.br/activenews/imagens/bullet.gif http://www.activedelphi.com.br/modules.php?op=modloadname=Newsfile=articl esid=259mode=threadorder=0thold=0 Como Imprimir Etiquetas com o QuickReport http://www.activedelphi.com.br/activenews/imagens/bullet.gif http://www.activedelphi.com.br/modules.php?op=modloadname=Newsfile=articl esid=258mode=threadorder=0thold=0 SQL Server - Funções de Sistema http://www.activedelphi.com.br/activenews/imagens/bullet.gif http://www.activedelphi.com.br/modules.php?op=modloadname=Newsfile=articl esid=256mode=threadorder=0thold=0 Desenvolvendo Interfaces _ Você quer ganhar uma revista Active Delphi? Não é sorteio e nem votação, basta escrever um artigo sobre qualquer assunto, básico ou avançado, e o mesmo ser publicado em nosso site. Simples, não ? Então envie seu material para mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] 2- Últimos downloads disponíveis no site. (necessário estar logado no site) http://www.activedelphi.com.br/activenews/imagens/bullet.gif Exemplo de como tratar formulários http://www.activedelphi.com.br/modules.php?op=modloadname=Downloadsfile=i ndexreq=viewdownloaddetailslid=477ttitle=Função_de_controle_de_Forms_MDI MDI...
[delphi-br] ReconcileError, alguém usa?
Pessoal, Implementei uma função que jogo em todos os ReconcileError do DataSet. Gostaria de saber se posso melhorá-la: function Tdata.ReconciliaErro(Mensagem: EReconcileError; Evento: TUpdateKind): TReconcileAction; var sEvento: string; begin case Evento of ukModify: sEvento:='Erro na alteração do registro. '; //The update to the record is a modification to the record's contents. ukInsert: sEvento:='Erro na inclusão do registro. '; //The update is the insertion of a new record. ukDelete: sEvento:='Erro na exclusão do registro. '; //The update is the deletion of a record. end; if Pos(UpperCase('violation of FOREIGN KEY constraint'), UpperCase(Mensagem.Message)) 0 then Application.MessageBox(Pchar(sEvento + 'Você não pode excluir este registro, existem dados relacionados!'),'Erro', MB_OK+MB_ICONERROR) else if Pos(UpperCase('attempt to store duplicate value (visible to active transactions) in unique index'), UpperCase(Mensagem.Message)) 0 then Application.MessageBox(Pchar(sEvento + 'Não foi possível incluir, este registro já existe nesta tabela!'),'Erro', MB_OK+MB_ICONERROR) else if Pos(UpperCase('violation of PRIMARY or UNIQUE KEY'), UpperCase(Mensagem.Message)) 0 then Application.MessageBox(Pchar(sEvento + 'Não foi possível incluir, este registro já existe nesta tabela!'),'Erro', MB_OK+MB_ICONERROR) else Application.MessageBox(PChar(sEvento + 'Erro: ' + Mensagem.Message + '!'),'Erro', MB_OK+MB_ICONERROR); Result:= raCancel; end; Chamo ela da seguinte forma: procedure Tdata.tbConfigReconcileError(DataSet: TCustomClientDataSet; E: EReconcileError; UpdateKind: TUpdateKind; var Action: TReconcileAction); begin Action:=data.ReconciliaErro(E, UpdateKind); end; Se puderem me ajudar... ou se quiseram usar a rotina para seu proveito ... Atenciosamente, Levi Ribeiro de Freitas Programador de Computadores [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
ENC: [delphi-br] Acessem agora para poder ganhar!
_ De: Levi Ribeiro de Freitas [mailto:[EMAIL PROTECTED] Enviada em: segunda-feira, 29 de agosto de 2005 13:22 Para: '[EMAIL PROTECTED]'; '[EMAIL PROTECTED]'; '[EMAIL PROTECTED]'; '[EMAIL PROTECTED]'; '[EMAIL PROTECTED]'; 'delphi-br@yahoogrupos.com.br'; '[EMAIL PROTECTED]'; '[EMAIL PROTECTED]'; '[EMAIL PROTECTED]'; '[EMAIL PROTECTED]'; '[EMAIL PROTECTED]'; '[EMAIL PROTECTED]'; '[EMAIL PROTECTED]'; '[EMAIL PROTECTED]'; '[EMAIL PROTECTED]'; '[EMAIL PROTECTED]'; '[EMAIL PROTECTED]'; '[EMAIL PROTECTED]'; '[EMAIL PROTECTED]'; '[EMAIL PROTECTED]' Assunto: ENC: [delphi-br] Acessem agora para poder ganhar! _ De: Levi Ribeiro de Freitas [mailto:[EMAIL PROTECTED] Enviada em: segunda-feira, 29 de agosto de 2005 13:10 Para: '[EMAIL PROTECTED]'; '[EMAIL PROTECTED]'; '[EMAIL PROTECTED]'; '[EMAIL PROTECTED]'; '[EMAIL PROTECTED]'; 'delphi-br@yahoogrupos.com.br'; '[EMAIL PROTECTED]'; '[EMAIL PROTECTED]'; '[EMAIL PROTECTED]'; '[EMAIL PROTECTED]'; '[EMAIL PROTECTED]'; '[EMAIL PROTECTED]'; '[EMAIL PROTECTED]'; '[EMAIL PROTECTED]'; '[EMAIL PROTECTED]'; '[EMAIL PROTECTED]'; '[EMAIL PROTECTED]'; '[EMAIL PROTECTED]'; '[EMAIL PROTECTED]'; '[EMAIL PROTECTED]' Assunto: RES: [delphi-br] Acessem agora para poder ganhar! Cara só mande link para os membros do grupo quando o site estiver completo. Agora está incompleto. Abraços Levi _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Albert Eije Enviada em: domingo, 28 de agosto de 2005 02:41 Para: [EMAIL PROTECTED]; [EMAIL PROTECTED]; [EMAIL PROTECTED]; [EMAIL PROTECTED]; [EMAIL PROTECTED]; delphi-br@yahoogrupos.com.br; [EMAIL PROTECTED]; [EMAIL PROTECTED]; [EMAIL PROTECTED]; [EMAIL PROTECTED]; [EMAIL PROTECTED]; [EMAIL PROTECTED]; [EMAIL PROTECTED]; [EMAIL PROTECTED]; [EMAIL PROTECTED]; [EMAIL PROTECTED]; [EMAIL PROTECTED]; [EMAIL PROTECTED]; [EMAIL PROTECTED]; [EMAIL PROTECTED] Assunto: [delphi-br] Acessem agora para poder ganhar! Caros amigos da lista. O site www.alberteije.com está realizando uma espécie de sorteio onde quem participar poderá ganhar os 12 CDs da série Complete. Acessem agora e participem. Abraços Albert Eije ___ Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: http://br.rd.yahoo.com/SIG=12f0ec6am/M=365837.7000707.7924794.2369893/D=brc lubs/S=2137111264:HM/Y=BR/EXP=1125214545/A=2932553/R=2/id=noscript/SIG=10tif t5qr/*http://br.movies.yahoo.com/ _ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html . [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] ENC: Usando o InnoSetup para Firebird 1.5 com DBexpress
Pessoal, Alguém tem um exemplo do InnoSetup para Firebird 1.5 com Dbexpress? Preciso que registrar a dll midas.dll e criar a entrada no c:\windows\system32\drivers\services = gds_db 3050/tcp # Firebird. Alguém tem como me ajudar? Atenciosamente, Levi Ribeiro de Freitas Programador de Computadores [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] É possível usar Tabela.findkey( [campo1+campo2+campo3]) ?
Veja se tem espaços entre os campos do índice. _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de delphi6_2005 Enviada em: segunda-feira, 29 de agosto de 2005 13:57 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] É possível usar Tabela.findkey([campo1+campo2+campo3]) ? Estou tentando localizar um registro em uma tabela DBF da seguinte forma: tabela.FindKey([campo1+campo2+campo3]); O índice da tabela é formado por esses 3 campos, mais não funciona o findkey só funciona com um campo? Agradeço os comentários Paulo -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: http://br.rd.yahoo.com/SIG=12fb9birv/M=365837.7000707.7924794.2369893/D=brc lubs/S=2137111264:HM/Y=BR/EXP=1125341823/A=2932553/R=2/id=noscript/SIG=10tif t5qr/*http://br.movies.yahoo.com/ _ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html . [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: RES: [delphi-br] É possível usar Tabela.fin dkey([campo1+campo2+campo3]) ?
Veja o tamanho dos campos. Se o primeiro campo for 10 caracteres o segundo 10 e o terceiro 10, ficaria assim: Tabela.findkey(['AS'+'BSD '+'CSDE ']) Entendeu? Levi _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de delphi6_2005 Enviada em: segunda-feira, 29 de agosto de 2005 14:19 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] É possível usar Tabela.findkey([campo1+campo2+campo3]) ? Levi dessa forma deveria funcionar? Veja se tem espaços entre os campos do índice. _ De: delphi-br@yahoogrupos.com.br [mailto:delphi- [EMAIL PROTECTED] Em nome de delphi6_2005 Enviada em: segunda-feira, 29 de agosto de 2005 13:57 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] É possível usar Tabela.findkey ([campo1+campo2+campo3]) ? Estou tentando localizar um registro em uma tabela DBF da seguinte forma: tabela.FindKey([campo1+campo2+campo3]); O índice da tabela é formado por esses 3 campos, mais não funciona o findkey só funciona com um campo? Agradeço os comentários Paulo -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: http://br.rd.yahoo.com/SIG=12fb9birv/M=365837.7000707.7924794.2369893 /D=brc lubs/S=2137111264:HM/Y=BR/EXP=1125341823/A=2932553/R=2/id=noscript/SIG =10tif t5qr/*http://br.movies.yahoo.com/ _ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] subject=Unsubscribe * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html . [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: http://br.rd.yahoo.com/SIG=12f6olrck/M=365837.7000707.7924794.2369893/D=brc lubs/S=2137111264:HM/Y=BR/EXP=1125343119/A=2932553/R=2/id=noscript/SIG=10tif t5qr/*http://br.movies.yahoo.com/ _ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html . [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: RES: [delphi-br] Descompactar
Dentro do arquivo zip que ele vem, tem diversos exemplos de compactar e descompactar. Levi _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rafael C. Mateus Enviada em: segunda-feira, 29 de agosto de 2005 09:21 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Descompactar Levi, daria pra vc mandar um exemplo de uso desse componente ? Valeu pela força!! Rafael --Mensagem original--- De: Levi Ribeiro de Freitas Data: 26/08/2005 14:00 Usa o ZipForge. www.componentace.com é Free. Levi _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Gabriel - Millenium Enviada em: sexta-feira, 26 de agosto de 2005 11:47 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Descompactar Filipe, Vc não conhece nenhum free.. que poderia me ajudar... pois sei que este a empresa que trabalho não irá fazer...Conhece ?? Agradeço desde já toda a sua ajuda comigo - Original Message - From: Filipe Xavier Ramalho [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Friday, August 26, 2005 11:23 AM Subject: RES: [delphi-br] Descompactar http://www.ziptv.com/ não usa dll e custa 260 dólares com os fontes (pode ser pago com cartão de crédito internacional) -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Gabriel - Millenium Enviada em: sexta-feira, 26 de agosto de 2005 11:12 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Descompactar E onde eu encontro este ZIPTV... ele não usa DLL ??? - Original Message - From: Filipe Xavier Ramalho [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Friday, August 26, 2005 10:50 AM Subject: RES: [delphi-br] Descompactar Eu uso o ZipTV -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Gabriel - Millenium Enviada em: sexta-feira, 26 de agosto de 2005 10:44 Para: Grupo Delphi Assunto: [delphi-br] Descompactar Pessoal, Alguém poderia me ajudar estou precisando de algum componente ou código DELPHI para Descompactar ZIP, mas que não use DDL... pois no meu sistema a DLL dá problema nos clientes... Alguém poderia me ajudar ? Aguardo um retorno... Gabriel Rene. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: http://br.rd.yahoo.com/SIG=12faq2msm/M=365837.7000707.7924794.2369893/D=brc lubs/S=2137111264:HM/Y=BR/EXP=1125342529/A=2932553/R=2/id=noscript/SIG=10tif t5qr/*http://br.movies.yahoo.com/ _ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html . [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Descompactar
Usa o ZipForge. www.componentace.com é Free. Levi _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Gabriel - Millenium Enviada em: sexta-feira, 26 de agosto de 2005 11:47 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Descompactar Filipe, Vc não conhece nenhum free.. que poderia me ajudar... pois sei que este a empresa que trabalho não irá fazer...Conhece ?? Agradeço desde já toda a sua ajuda comigo - Original Message - From: Filipe Xavier Ramalho [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Friday, August 26, 2005 11:23 AM Subject: RES: [delphi-br] Descompactar http://www.ziptv.com/ não usa dll e custa 260 dólares com os fontes (pode ser pago com cartão de crédito internacional) -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Gabriel - Millenium Enviada em: sexta-feira, 26 de agosto de 2005 11:12 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Descompactar E onde eu encontro este ZIPTV... ele não usa DLL ??? - Original Message - From: Filipe Xavier Ramalho [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Friday, August 26, 2005 10:50 AM Subject: RES: [delphi-br] Descompactar Eu uso o ZipTV -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Gabriel - Millenium Enviada em: sexta-feira, 26 de agosto de 2005 10:44 Para: Grupo Delphi Assunto: [delphi-br] Descompactar Pessoal, Alguém poderia me ajudar estou precisando de algum componente ou código DELPHI para Descompactar ZIP, mas que não use DDL... pois no meu sistema a DLL dá problema nos clientes... Alguém poderia me ajudar ? Aguardo um retorno... Gabriel Rene. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: http://br.rd.yahoo.com/SIG=12f8ga8ve/M=365837.7000707.7924794.2369893/D=brc lubs/S=2137111264:HM/Y=BR/EXP=1125074920/A=2932553/R=2/id=noscript/SIG=10tif t5qr/*http://br.movies.yahoo.com/ _ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html . [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do
[delphi-br] Erro ao dar AplyUpdate no Delphi 7
Pessoal, Estou tendo problemas ao dar applyupdate no Delphi 7, usando dbexpress, simpledataset no firebird 1.5. Vejam o código: function Tdata.DBCommit(DataSet: TSimpleDataSet): Boolean; begin if DataSet.ChangeCount 0 then begin Screen.Cursor:=crHourGlass; if DataSet.ApplyUpdates(-1) 0 then begin Screen.Cursor:=crDefault; Result:=False; raise EDataBaseError.Create(Exception(exceptobject).Message); end else begin Screen.Cursor:=crDefault; Result:=True; end; end; end; O que está errado. Atenciosamente, Levi Ribeiro de Freitas Programador de Computadores [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Somente o Nome do Arquivo do OpenDialog
Bom dia pessoal! Estou precisando pegar somento o nome do arquivo no OpenDialog. No entando sempre vem o diretório + o nome do arquivo. Alguém tem idéia de como posso fazer para pegar somente o nome? Eis o código: //coloco o arquivo dentro de um campo da tabela firebird. procedure TForm1.Button1Click(Sender: TObject); begin if DataSource1.State in [dsEdit, dsInsert] then if OpenDialog1.Execute then begin SimpleDataSet1ANEXO.LoadFromFile(OpenDialog1.FileName); SimpleDataSet1ARQUIVO.Value:=OpenDialog1.FileName; //Preciso pegar somente o nome do arquivo não o diretório onde ele está. end; end; //preciso salvar o arquivo agora. procedure TForm1.Button2Click(Sender: TObject); begin if SimpleDataSet1ANEXO.IsNull = False and SimpleDataSet1ARQUIVO.IsNull = False then begin SaveDialog1.FileName:=SimpleDataSet1ARQUIVO.Value; if SaveDialog1.Execute then SimpleDataSet1ANEXO.SaveToFile(SaveDialog1.FileName); end; end; Atenciosamente, Levi Ribeiro de Freitas Programador de Computadores [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Somente o Nome do Arquivo do OpenDialog
Eduardo, funcionou. Obrigado. Levi _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Eduardo Silva ® Enviada em: terça-feira, 23 de agosto de 2005 09:29 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Somente o Nome do Arquivo do OpenDialog Tenta assim SimpleDataSet1ANEXO.LoadFromFile(ExtractFileName(OpenDialog1.FileName)); -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Levi Ribeiro de Freitas Enviada em: terça-feira, 23 de agosto de 2005 09:27 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Somente o Nome do Arquivo do OpenDialog Bom dia pessoal! Estou precisando pegar somento o nome do arquivo no OpenDialog. No entando sempre vem o diretório + o nome do arquivo. Alguém tem idéia de como posso fazer para pegar somente o nome? Eis o código: //coloco o arquivo dentro de um campo da tabela firebird. procedure TForm1.Button1Click(Sender: TObject); begin if DataSource1.State in [dsEdit, dsInsert] then if OpenDialog1.Execute then begin SimpleDataSet1ANEXO.LoadFromFile(OpenDialog1.FileName); SimpleDataSet1ARQUIVO.Value:=OpenDialog1.FileName; //Preciso pegar somente o nome do arquivo não o diretório onde ele está. end; end; //preciso salvar o arquivo agora. procedure TForm1.Button2Click(Sender: TObject); begin if SimpleDataSet1ANEXO.IsNull = False and SimpleDataSet1ARQUIVO.IsNull = False then begin SaveDialog1.FileName:=SimpleDataSet1ARQUIVO.Value; if SaveDialog1.Execute then SimpleDataSet1ANEXO.SaveToFile(SaveDialog1.FileName); end; end; Atenciosamente, Levi Ribeiro de Freitas Programador de Computadores [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. __ NOD32 1.1199 (20050822) Information __ This message was checked by NOD32 antivirus system. http://www.nod32.com [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: http://br.rd.yahoo.com/SIG=12faa13ro/M=365837.7000707.7924794.2369893/D=brc lubs/S=2137111264:HM/Y=BR/EXP=1124807255/A=2932553/R=2/id=noscript/SIG=10tif t5qr/*http://br.movies.yahoo.com/ _ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html . [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Somente o Nome do Arquivo do OpenDialog
Obrigado. Consegui. Segue código para uso dos companheiros: Assunto: Salvar Arquivo no BD e Visualizar Depois ou Exportar unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, DBClient, SimpleDS, ExtCtrls, DBCtrls, StdCtrls, Grids, DBGrids, ShellApi; type TForm1 = class(TForm) SimpleDataSet1: TSimpleDataSet; SimpleDataSet1LIGA: TStringField; SimpleDataSet1ANEXO: TBlobField; SimpleDataSet1ARQUIVO: TStringField; Button1: TButton; OpenDialog1: TOpenDialog; DBNavigator1: TDBNavigator; DataSource1: TDataSource; DBGrid1: TDBGrid; Button2: TButton; SaveDialog1: TSaveDialog; procedure Button1Click(Sender: TObject); procedure SimpleDataSet1AfterPost(DataSet: TDataSet); procedure Button2Click(Sender: TObject); procedure DBGrid1DblClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} function TempDir : String; {Retorna o Diretorio Temp do Windows} Var Buffer : Array[0..144] of Char; Begin GetTempPath(144,Buffer); Result := StrPas(Buffer); end; procedure TForm1.Button1Click(Sender: TObject); begin if DataSource1.State in [dsEdit, dsInsert] then if OpenDialog1.Execute then begin Screen.Cursor:=crHourGlass; SimpleDataSet1ANEXO.LoadFromFile(OpenDialog1.FileName); SimpleDataSet1ARQUIVO.Value:=ExtractFileName(OpenDialog1.FileName); Screen.Cursor:=crDefault; end; end; procedure TForm1.SimpleDataSet1AfterPost(DataSet: TDataSet); begin Screen.Cursor:=crHourGlass; SimpleDataSet1.ApplyUpdates(-1); Screen.Cursor:=crDefault; end; procedure TForm1.Button2Click(Sender: TObject); begin if SimpleDataSet1ARQUIVO.IsNull = False then begin SaveDialog1.FileName:=SimpleDataSet1ARQUIVO.Value; SaveDialog1.DefaultExt:=ExtractFileExt(SimpleDataSet1ARQUIVO.Value); SaveDialog1.Filter:=SaveDialog1.DefaultExt + '|' + SaveDialog1.DefaultExt; if SaveDialog1.Execute then begin Screen.Cursor:=crHourGlass; SimpleDataSet1ANEXO.SaveToFile(SaveDialog1.FileName); Screen.Cursor:=crDefault; end; end; end; procedure TForm1.DBGrid1DblClick(Sender: TObject); var sArquivo: string; begin if SimpleDataSet1ARQUIVO.IsNull = False then begin sArquivo:=TempDir+SimpleDataSet1ARQUIVO.Value; Screen.Cursor:=crHourGlass; SimpleDataSet1ANEXO.SaveToFile(sArquivo); Screen.Cursor:=crDefault; ShellExecute(Application.Handle, 'open', PChar(sArquivo), nil, nil, SW_SHOWMAXIMIZED); end; end; end. _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Walter Alves Chagas Junior Enviada em: terça-feira, 23 de agosto de 2005 09:28 Para: 'delphi-br@yahoogrupos.com.br' Assunto: RES: [delphi-br] Somente o Nome do Arquivo do OpenDialog Basta voce passar a função ExtractFileName na chamada ao path do arquivo: //coloco o arquivo dentro de um campo da tabela firebird. procedure TForm1.Button1Click(Sender: TObject); begin if DataSource1.State in [dsEdit, dsInsert] then if OpenDialog1.Execute then begin SimpleDataSet1ANEXO.LoadFromFile(OpenDialog1.FileName); SimpleDataSet1ARQUIVO.Value:=ExtractFileName(OpenDialog1.FileName); end; end; []s Walter Alves Chagas Junior Projeto e desenvolvimento Telemont Engenharia de telecomunicações Belo Horizonte - MG - Brazil [EMAIL PROTECTED] Fone: (31) 3389-8215 Fax: (31) 3389-8200 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Levi Ribeiro de Freitas Enviada em: terça-feira, 23 de agosto de 2005 09:27 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Somente o Nome do Arquivo do OpenDialog Bom dia pessoal! Estou precisando pegar somento o nome do arquivo no OpenDialog. No entando sempre vem o diretório + o nome do arquivo. Alguém tem idéia de como posso fazer para pegar somente o nome? Eis o código: //coloco o arquivo dentro de um campo da tabela firebird. procedure TForm1.Button1Click(Sender: TObject); begin if DataSource1.State in [dsEdit, dsInsert] then if OpenDialog1.Execute then begin SimpleDataSet1ANEXO.LoadFromFile(OpenDialog1.FileName); SimpleDataSet1ARQUIVO.Value:=OpenDialog1.FileName; //Preciso pegar somente o nome do arquivo não o diretório onde ele está. end; end; //preciso salvar o arquivo agora. procedure TForm1.Button2Click(Sender: TObject); begin if SimpleDataSet1ANEXO.IsNull = False and SimpleDataSet1ARQUIVO.IsNull = False then begin SaveDialog1.FileName:=SimpleDataSet1ARQUIVO.Value; if SaveDialog1.Execute then SimpleDataSet1ANEXO.SaveToFile(SaveDialog1.FileName); end; end; Atenciosamente, Levi Ribeiro de Freitas Programador de Computadores [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar
RES: [delphi-br] Somente o Nome do Arquivo do OpenDialog
Obrigado pela ajuda. Para os companheiros: Salvar arquivo no BD, Recuperar ou Visualizar: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, DBClient, SimpleDS, ExtCtrls, DBCtrls, StdCtrls, Grids, DBGrids, ShellApi; type TForm1 = class(TForm) SimpleDataSet1: TSimpleDataSet; SimpleDataSet1LIGA: TStringField; SimpleDataSet1ANEXO: TBlobField; SimpleDataSet1ARQUIVO: TStringField; Button1: TButton; OpenDialog1: TOpenDialog; DBNavigator1: TDBNavigator; DataSource1: TDataSource; DBGrid1: TDBGrid; Button2: TButton; SaveDialog1: TSaveDialog; procedure Button1Click(Sender: TObject); procedure SimpleDataSet1AfterPost(DataSet: TDataSet); procedure Button2Click(Sender: TObject); procedure DBGrid1DblClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} function TempDir : String; {Retorna o Diretorio Temp do Windows} Var Buffer : Array[0..144] of Char; Begin GetTempPath(144,Buffer); Result := StrPas(Buffer); end; procedure TForm1.Button1Click(Sender: TObject); begin if DataSource1.State in [dsEdit, dsInsert] then if OpenDialog1.Execute then begin Screen.Cursor:=crHourGlass; SimpleDataSet1ANEXO.LoadFromFile(OpenDialog1.FileName); SimpleDataSet1ARQUIVO.Value:=ExtractFileName(OpenDialog1.FileName); Screen.Cursor:=crDefault; end; end; procedure TForm1.SimpleDataSet1AfterPost(DataSet: TDataSet); begin Screen.Cursor:=crHourGlass; if SimpleDataSet1.ApplyUpdates(-1) 0 then raise EDataBaseError.Create(Exception(exceptobject).Message); Screen.Cursor:=crDefault; end; procedure TForm1.Button2Click(Sender: TObject); begin if SimpleDataSet1ARQUIVO.IsNull = False then begin SaveDialog1.FileName:=SimpleDataSet1ARQUIVO.Value; SaveDialog1.DefaultExt:=ExtractFileExt(SimpleDataSet1ARQUIVO.Value); SaveDialog1.Filter:=SaveDialog1.DefaultExt + '|' + SaveDialog1.DefaultExt; if SaveDialog1.Execute then begin Screen.Cursor:=crHourGlass; SimpleDataSet1ANEXO.SaveToFile(SaveDialog1.FileName); Screen.Cursor:=crDefault; end; end; end; procedure TForm1.DBGrid1DblClick(Sender: TObject); var sArquivo: string; iTeste: Integer; begin if SimpleDataSet1ARQUIVO.IsNull = False then begin sArquivo:=TempDir+SimpleDataSet1ARQUIVO.Value; Screen.Cursor:=crHourGlass; if FileExists(sArquivo) then DeleteFile(sArquivo); SimpleDataSet1ANEXO.SaveToFile(sArquivo); Screen.Cursor:=crDefault; iTeste:=ShellExecute(Application.Handle, 'open', PChar(sArquivo), nil, nil, SW_SHOWMAXIMIZED); if iTeste in [2,3,5,8,26,27,28,29,30,31,32] then ShowMessage('Não foi possível abrir o arquivo! Erro número: '+ IntToStr(iTeste)); end; end; end. _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Walter Alves Chagas Junior Enviada em: terça-feira, 23 de agosto de 2005 10:26 Para: 'delphi-br@yahoogrupos.com.br' Assunto: RES: [delphi-br] Somente o Nome do Arquivo do OpenDialog Dá uma olhada nisto: procedure TForm1.SimpleDataSet1AfterPost(DataSet: TDataSet); begin Screen.Cursor:=crHourGlass; if SimpleDataSet1.ApplyUpdates(-1) 0 then raise EDataBaseError.Create(Exception(exceptobject).Message); Screen.Cursor:=crDefault; end; procure sempre tratar pontos críticos no seu projeto para evitar que uma exceção o derrube e gere Deadlocks no banco de dados. []s Walter Alves Chagas Junior Projeto e desenvolvimento Telemont Engenharia de telecomunicações Belo Horizonte - MG - Brazil [EMAIL PROTECTED] Fone: (31) 3389-8215 Fax: (31) 3389-8200 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Levi Ribeiro de Freitas Enviada em: terça-feira, 23 de agosto de 2005 10:25 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Somente o Nome do Arquivo do OpenDialog Obrigado. Consegui. Segue código para uso dos companheiros: Assunto: Salvar Arquivo no BD e Visualizar Depois ou Exportar unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, DBClient, SimpleDS, ExtCtrls, DBCtrls, StdCtrls, Grids, DBGrids, ShellApi; type TForm1 = class(TForm) SimpleDataSet1: TSimpleDataSet; SimpleDataSet1LIGA: TStringField; SimpleDataSet1ANEXO: TBlobField; SimpleDataSet1ARQUIVO: TStringField; Button1: TButton; OpenDialog1: TOpenDialog; DBNavigator1: TDBNavigator; DataSource1: TDataSource; DBGrid1: TDBGrid; Button2: TButton; SaveDialog1: TSaveDialog; procedure Button1Click(Sender: TObject); procedure SimpleDataSet1AfterPost(DataSet: TDataSet); procedure Button2Click(Sender: TObject); procedure DBGrid1DblClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm
ENC: [delphi-br] ENC: Dúvida sobre DLL carregada n a memória
Alguém pode ajudar com respeito a DLL carregada na memória? Ninguém sabe a resposta ou ninguém quer me responder? Levi _ De: Levi Ribeiro de Freitas [mailto:[EMAIL PROTECTED] Enviada em: sexta-feira, 19 de agosto de 2005 14:50 Para: 'delphi-br@yahoogrupos.com.br' Assunto: ENC: [delphi-br] ENC: Dúvida sobre DLL carregada na memória Pessoal: alguém pode me ajudar? Levi _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Levi Ribeiro de Freitas Enviada em: sexta-feira, 19 de agosto de 2005 09:09 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] ENC: Dúvida sobre DLL carregada na memória _ De: Levi Ribeiro de Freitas [mailto:[EMAIL PROTECTED] Enviada em: sexta-feira, 19 de agosto de 2005 09:01 Para: 'delphi-br@yahoogrupos.com.br' Assunto: Dúvida sobre DLL carregada na memória Pessoal, Tenho uma dúvida sobre otimização do aplicativo: Tenho um aplicativo que está com 3.5 mb, uso dbexpress com firebird. A velocidade de acesso está excelente, pois uso a metodologia de tabelas fechadas e forms criados em tempo de execução ou seja só conecta na tabela de configuração e usuários, as demais só quando o usuário for usar. Os formulários são criados ao serem chamados e destruídos ao fechar. O problema que estou enfrentando é que estou usando uma dll para visualização de arquivo cad (dwg), ela é carregada mesmo quando o formulário que a usa ainda não esteja criado. Eu queria chamar esta dll quando fosse criar o formulário, visto que o usuário pode estar acessando outra área do sistema que não precisa da biblioteca. Como faço para chamar esta dll somente quando criar o formulário que a usa? Agradeço a ajuda dos companheiros. Atenciosamente, Levi Ribeiro de Freitas Programador de Computadores [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: http://br.rd.yahoo.com/SIG=12fc21phl/M=365837.7000707.7924794.2369893/D=brc lubs/S=2137111264:HM/Y=BR/EXP=1124460148/A=2932553/R=2/id=noscript/SIG=10tif t5qr/*http://br.movies.yahoo.com/ _ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html . [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] ENC: Dúvida sobre DLL carregada n a memória
Obrigado por responder. Ela é carregada num form, não no principal. Este form não é criado automaticamente. Eu o crio na hora de chamar. Levi _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Eduardo S Santos Enviada em: segunda-feira, 22 de agosto de 2005 14:04 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] ENC: Dúvida sobre DLL carregada na memória voce tem que observar no seu software onde a biblioteca está sendo chamada, por exemplo,, se as chamadas as funções da DLL estiverem no Formulario principal, mude para o Form que vc deseja... - Original Message - From: Levi Ribeiro de Freitas [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Monday, August 22, 2005 1:56 PM Subject: ENC: [delphi-br] ENC: Dúvida sobre DLL carregada na memória Alguém pode ajudar com respeito a DLL carregada na memória? Ninguém sabe a resposta ou ninguém quer me responder? Levi _ De: Levi Ribeiro de Freitas [mailto:[EMAIL PROTECTED] Enviada em: sexta-feira, 19 de agosto de 2005 14:50 Para: 'delphi-br@yahoogrupos.com.br' Assunto: ENC: [delphi-br] ENC: Dúvida sobre DLL carregada na memória Pessoal: alguém pode me ajudar? Levi _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Levi Ribeiro de Freitas Enviada em: sexta-feira, 19 de agosto de 2005 09:09 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] ENC: Dúvida sobre DLL carregada na memória _ De: Levi Ribeiro de Freitas [mailto:[EMAIL PROTECTED] Enviada em: sexta-feira, 19 de agosto de 2005 09:01 Para: 'delphi-br@yahoogrupos.com.br' Assunto: Dúvida sobre DLL carregada na memória Pessoal, Tenho uma dúvida sobre otimização do aplicativo: Tenho um aplicativo que está com 3.5 mb, uso dbexpress com firebird. A velocidade de acesso está excelente, pois uso a metodologia de tabelas fechadas e forms criados em tempo de execução ou seja só conecta na tabela de configuração e usuários, as demais só quando o usuário for usar. Os formulários são criados ao serem chamados e destruídos ao fechar. O problema que estou enfrentando é que estou usando uma dll para visualização de arquivo cad (dwg), ela é carregada mesmo quando o formulário que a usa ainda não esteja criado. Eu queria chamar esta dll quando fosse criar o formulário, visto que o usuário pode estar acessando outra área do sistema que não precisa da biblioteca. Como faço para chamar esta dll somente quando criar o formulário que a usa? Agradeço a ajuda dos companheiros. Atenciosamente, Levi Ribeiro de Freitas Programador de Computadores [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: http://br.rd.yahoo.com/SIG=12fc21phl/M=365837.7000707.7924794.2369893/D=brc lubs/S=2137111264:HM/Y=BR/EXP=1124460148/A=2932553/R=2/id=noscript/SIG=10tif t5qr/*http://br.movies.yahoo.com/ _ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html . [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: http://br.rd.yahoo.com/SIG=12fterjah/M=365837.7000707.7924794.2369893/D=brc lubs/S=2137111264:HM/Y=BR/EXP=1124737430/A=2932553/R=2/id=noscript/SIG=10tif t5qr/*http://br.movies.yahoo.com/ _ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html . [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED
[delphi-br] Tem como salvar um arquivo dentro de um campo firebird e depois recuperar ele?
Pessoal estou precisando de uma ajuda: Preciso salvar um arquivo dentro de um campo do banco firebird e depois recuperar ele, será que tem como? Não é preciso abrir este arquivo pelo delphi somente o usuário escolhe o arquivo e ele é salvo num campo e seu nome com extensão é salvo em um campo texto para depois ser recuperado. Se algué souber eu agradeço muito ... Atenciosamente, Levi Ribeiro de Freitas Programador de Computadores mailto:[EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] ENC: Dúvida sobre DLL carregada na memória
_ De: Levi Ribeiro de Freitas [mailto:[EMAIL PROTECTED] Enviada em: sexta-feira, 19 de agosto de 2005 09:01 Para: 'delphi-br@yahoogrupos.com.br' Assunto: Dúvida sobre DLL carregada na memória Pessoal, Tenho uma dúvida sobre otimização do aplicativo: Tenho um aplicativo que está com 3.5 mb, uso dbexpress com firebird. A velocidade de acesso está excelente, pois uso a metodologia de tabelas fechadas e forms criados em tempo de execução ou seja só conecta na tabela de configuração e usuários, as demais só quando o usuário for usar. Os formulários são criados ao serem chamados e destruídos ao fechar. O problema que estou enfrentando é que estou usando uma dll para visualização de arquivo cad (dwg), ela é carregada mesmo quando o formulário que a usa ainda não esteja criado. Eu queria chamar esta dll quando fosse criar o formulário, visto que o usuário pode estar acessando outra área do sistema que não precisa da biblioteca. Como faço para chamar esta dll somente quando criar o formulário que a usa? Agradeço a ajuda dos companheiros. Atenciosamente, Levi Ribeiro de Freitas Programador de Computadores [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
ENC: [delphi-br] ENC: Dúvida sobre DLL carregada n a memória
Pessoal: alguém pode me ajudar? Levi _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Levi Ribeiro de Freitas Enviada em: sexta-feira, 19 de agosto de 2005 09:09 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] ENC: Dúvida sobre DLL carregada na memória _ De: Levi Ribeiro de Freitas [mailto:[EMAIL PROTECTED] Enviada em: sexta-feira, 19 de agosto de 2005 09:01 Para: 'delphi-br@yahoogrupos.com.br' Assunto: Dúvida sobre DLL carregada na memória Pessoal, Tenho uma dúvida sobre otimização do aplicativo: Tenho um aplicativo que está com 3.5 mb, uso dbexpress com firebird. A velocidade de acesso está excelente, pois uso a metodologia de tabelas fechadas e forms criados em tempo de execução ou seja só conecta na tabela de configuração e usuários, as demais só quando o usuário for usar. Os formulários são criados ao serem chamados e destruídos ao fechar. O problema que estou enfrentando é que estou usando uma dll para visualização de arquivo cad (dwg), ela é carregada mesmo quando o formulário que a usa ainda não esteja criado. Eu queria chamar esta dll quando fosse criar o formulário, visto que o usuário pode estar acessando outra área do sistema que não precisa da biblioteca. Como faço para chamar esta dll somente quando criar o formulário que a usa? Agradeço a ajuda dos companheiros. Atenciosamente, Levi Ribeiro de Freitas Programador de Computadores [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: http://br.rd.yahoo.com/SIG=12fc21phl/M=365837.7000707.7924794.2369893/D=brc lubs/S=2137111264:HM/Y=BR/EXP=1124460148/A=2932553/R=2/id=noscript/SIG=10tif t5qr/*http://br.movies.yahoo.com/ _ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html . [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Lista de Bancos - FEBRABAN
Celso manda para mim tb. [EMAIL PROTECTED] _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Celso Redes Enviada em: quinta-feira, 18 de agosto de 2005 15:32 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Lista de Bancos - FEBRABAN Eu tenho em TXT, estou enviando para seu e-mail. __o Celso Redes_ \,_ _(_)/_(_)_ Analista de Sistemas - Original Message - From: ediberto_alves To: delphi-br@yahoogrupos.com.br Sent: Thursday, August 18, 2005 11:49 AM Subject: [delphi-br] Lista de Bancos - FEBRABAN Olá Pessoal, Aonde eu posso arrumar uma relação de todos os bancos cadastrados no FEBRABAN? Gostaria de gerar uma tabela usando essa relação Grato Ediberto Alves -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] _ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html . [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Dicas para criar um aplicativo residente
Eu fiz um aplicativo que consome 7 mb de memoria. Usa dbexpress firebird 1.5 e envia emails de 1 em 1 minuto. Levi _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Valfrid-Ly Silva Couto Enviada em: terça-feira, 16 de agosto de 2005 15:51 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Dicas para criar um aplicativo residente O agendador do Windows já é um serviço que poderia ser utilizado. Não sei se ele tem a periodicidade de que você necessita. Se não for possível utilizá-lo, procure sobre a criação de serviços. Eu mesmo nunca fiz, mas aplicativos residentes, nesses Windows, devem ser serviços. --- Osmar de Souza Júnior [EMAIL PROTECTED] escreveu: Pessoal, eu preciso criar um aplicativo que fique residente no servidor (Windows XP e 2003 Server, são dois). Queria receber sugestões de como fazê-lo, pois este aplicativo não pode ficar consumindo muita memória. Ele deve executar uma tarefa de tantos em tantos minutos, e disparar e-mails dependendo do caso. Uso um timer, o agendador de tarefas do próprio Windows, ou nenhum deles? Gostaria de receber dicas. Obrigado. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos http://br.yahoo.com/info/utos.html Valfrid-Ly Silva Couto [EMAIL PROTECTED] [EMAIL PROTECTED] [EMAIL PROTECTED] ICQ 15114646 __ Converse com seus amigos em tempo real com o Yahoo! Messenger http://br.download.yahoo.com/messenger/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] _ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html . [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Erro no DataSet do DbExpress - Ajudem por Favor
Por favor me ajudem: Estou precisando tirar uma dúvida e gostaria da ajuda dos companheiros: Quando salvo um registro usando dbexpress e firebird 1.5 uso a seguinte função que criei no evento AfterPost: function Tdata.DBCommit(DataSet: TSimpleDataSet): Boolean; var TransDesc : TTransactionDesc; begin if DataSet.ChangeCount 0 then begin DataSet.ApplyUpdates(-1); TransDesc.TransactionID := Random(30) + 123456; TransDesc.IsolationLevel := xilREADCOMMITTED; DataSet.Connection.StartTransaction(TransDesc); try DataSet.Connection.Commit(TransDesc); Result:=True; except DataSet.Connection.Rollback(TransDesc); Result:=False; //Application.MessageBox(PChar('Erro ao atualizar dados da tabela ' + DataSet.DataSet.Name + ' !'),'Erro', MB_OK+MB_ICONERROR); end; end; end; Acontece o seguinte: Quando salvo o registro e logo em seguida tento alterar e salvar novamente ele me dá uma mensagem de erro dizendo que o registro foi alterado por outro usuário. Para resolver este problema eu dou um refresh no dataset e altero sem problemas. A questão é que quando dou refresh no dataset ele volta ao primeiro registro confundindo o usuário. O que devo fazer? Atenciosamente, Levi Ribeiro de Freitas Programador de Computadores [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] ENC: Erro no DataSet do DbExpress - Ajudem por Favor
Por favor me ajudem: Estou precisando tirar uma dúvida e gostaria da ajuda dos companheiros: Quando salvo um registro usando dbexpress e firebird 1.5 uso a seguinte função que criei no evento AfterPost: function Tdata.DBCommit(DataSet: TSimpleDataSet): Boolean; var TransDesc : TTransactionDesc; begin if DataSet.ChangeCount 0 then begin DataSet.ApplyUpdates(-1); TransDesc.TransactionID := Random(30) + 123456; TransDesc.IsolationLevel := xilREADCOMMITTED; DataSet.Connection.StartTransaction(TransDesc); try DataSet.Connection.Commit(TransDesc); Result:=True; except DataSet.Connection.Rollback(TransDesc); Result:=False; //Application.MessageBox(PChar('Erro ao atualizar dados da tabela ' + DataSet.DataSet.Name + ' !'),'Erro', MB_OK+MB_ICONERROR); end; end; end; Acontece o seguinte: Quando salvo o registro e logo em seguida tento alterar e salvar novamente ele me dá uma mensagem de erro dizendo que o registro foi alterado por outro usuário. Para resolver este problema eu dou um refresh no dataset e altero sem problemas. A questão é que quando dou refresh no dataset ele volta ao primeiro registro confundindo o usuário. O que devo fazer? Atenciosamente, Levi Ribeiro de Freitas Programador de Computadores [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Reindexação de índices para Dbase em Run-time
Eu tenho um componente para ntx e cdx. Se quiser... Levi _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de V.Alberto Enviada em: sexta-feira, 12 de agosto de 2005 15:04 Para: Delphi-Br-Msgs Assunto: [delphi-br] Reindexação de índices para Dbase em Run-time Prezados Colegas, Alguém tem uma rotina em Delphi para reindexação de tabelas DBase III ou IV em run-time q pudesse me passar? Estou martelando há dias para criar um arquivo de índice composto de 2 campos e não estou conseguindo. Ficaria muito grato se alguém pudesse me ajudar. Abraços, Vandinei [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] _ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html . [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Reindexação de índices para Dbase em Run-time
Este componente para delphi elimina o bde, o acesso é mais rápido também. Levi _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de V.Alberto Enviada em: sexta-feira, 12 de agosto de 2005 15:24 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Reindexação de índices para Dbase em Run-time Levi, Eu preciso de uma rotina q gere os arquivos .ndx ou .mdx mesmo q possam ser utilizados pelo Delphi/BDE. Os arquivos .ntx é para emprego no Clipper. Mesmo assim, eu agradeço a ajuda. Abraços Vandinei - Original Message - From: Levi Ribeiro de Freitas [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Friday, August 12, 2005 3:26 PM Subject: RES: [delphi-br] Reindexação de índices para Dbase em Run-time Eu tenho um componente para ntx e cdx. Se quiser... Levi _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de V.Alberto Enviada em: sexta-feira, 12 de agosto de 2005 15:04 Para: Delphi-Br-Msgs Assunto: [delphi-br] Reindexação de índices para Dbase em Run-time Prezados Colegas, Alguém tem uma rotina em Delphi para reindexação de tabelas DBase III ou IV em run-time q pudesse me passar? Estou martelando há dias para criar um arquivo de índice composto de 2 campos e não estou conseguindo. Ficaria muito grato se alguém pudesse me ajudar. Abraços, Vandinei [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] _ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html . [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] _ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html . [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] E-mail (Outlook)
Amigo, segue uma função que envia sem o outlook. Uso os seguintes componentes da paleta Indy IndySMTPServer e IdMessage. Atenção para preencher dados do remetente no componente IndySMTPServer, servidor, senha, username. function TData.EnviaEmail(Destinatarios: String; Assunto: String; Mensagem: TMemo): Boolean; var i: integer; begin MensagemEmail.From.Name:='Levi Ribeiro'; MensagemEmail.From.Address:='[EMAIL PROTECTED]; MensagemEmail.Recipients.EMailAddresses:=Destinatarios; MensagemEmail.Subject:=Assunto; MensagemEmail.Body:=Mensagem.Lines; try ServidorSMTP.Connect(15); ServidorSMTP.Send(MensagemEmail); Result:=True; Except Application.MessageBox('Email não foi enviado!','Erro', MB_OK+MB_ICONERROR); Result:=False; end; ServidorSMTP.Disconnect; end; _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Cristiano Enviada em: quinta-feira, 11 de agosto de 2005 10:29 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] E-mail (Outlook) Grupo Alguém tem um exemplo básico para criar um programa para mandar um e-mail usando o outlook em Delphi7,,, apostila, fonte de exemplo, quais componentes eu utilizo qualquer informação para mim sempre vai ser bem vinda !!... Obrigado a quem poder me ajudar Cristiano __ Converse com seus amigos em tempo real com o Yahoo! Messenger http://br.download.yahoo.com/messenger/ [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] _ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html . [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br]
Estou precisando tirar uma dúvida e gostaria da ajuda dos companheiros: Quando salvo um registro usando dbexpress e firebird 1.5 uso a seguinte função que criei no evento AfterPost: function Tdata.DBCommit(DataSet: TSimpleDataSet): Boolean; var TransDesc : TTransactionDesc; begin if DataSet.ChangeCount 0 then begin DataSet.ApplyUpdates(-1); TransDesc.TransactionID := Random(30) + 123456; TransDesc.IsolationLevel := xilREADCOMMITTED; DataSet.Connection.StartTransaction(TransDesc); try DataSet.Connection.Commit(TransDesc); Result:=True; except DataSet.Connection.Rollback(TransDesc); Result:=False; //Application.MessageBox(PChar('Erro ao atualizar dados da tabela ' + DataSet.DataSet.Name + ' !'),'Erro', MB_OK+MB_ICONERROR); end; end; end; Acontece o seguinte: Quando salvo o registro e logo em seguida tento alterar e salvar novamente ele me dá uma mensagem de erro dizendo que o registro foi alterado por outro usuário. Para resolver este problema eu dou um refresh no dataset e altero sem problemas. A questão é que quando dou refresh no dataset ele volta ao primeiro registro confundindo o usuário. O que devo fazer? Atenciosamente, Levi Ribeiro de Freitas Programador de Computadores [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html