Re: [delphi-br] ClientDataSet - Out Of Memory
Exatamente isso que eu estou fazendo agora... mudando para gravar em um banco.. estou estudando as possiblidades.. mas estou inclinado a usar o sqlite From: Roni Rodrigo Sent: Saturday, July 17, 2010 3:11 PM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] ClientDataSet - Out Of Memory me metendo na conversa esse seu framework não poderia manipular um TDataSet ou um _RecordSet ao invés do cds? ai vc faria a consulta normalmente como o Fabiano falou... e já passaria o dataset ou recordset da consulta, independente do componente que estiver utilizando (cds, qry, procedure... ) sem necessidade de armazenar esses dados duplicados na memória... o/ Em 16/07/2010 23:44, Valdemir (yahoo) escreveu: na verdade .. montei um framework para gerar arquivos do governo... ele gera tanto arquivos de posição fixa (como o Sintegra), como arquivos separados com pipe (sped), entre outras funções ele visualiza os arquivos TXT como o Sintegra faz com o arquivo dele neste framework eu cadastro o layout, ou seja os registros, e cada campo com tamanho e tipo de arquivo... e eu ao gerar o txt, ele já faz algumas conferencias de acordo com o layout No sped, vc tem alguns registros Ex...I030 , que tem um campo com o total de registros do I030 que tem a quantidade de linhas do arquivo, ou seja logo no inicio do arquivo ele já me pede o total de linhas, neste caso eu tenho duas opções ou antes de gerar esta linha simulo a geração para saber o total de linhas, ou então arrumo um jeito de editar a linha apos eu gerar o arquivo inteiro. Entre gerar o arquivo e abrir o texto procurando por registro/posição no arquivo txt e ai substituir, eu preferi gravar tudo em cds e manipular o cds alterando o que é necessário From: Fabiano Moura Sent: Friday, July 16, 2010 10:49 PM To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Subject: Re: [delphi-br] ClientDataSet - Out Of Memory *Boa noite!* Valdemir, por que você pega os dados da tabela e gera no clientdataset, não é mais fácil você pegar (restaurar) os dados do banco e jogar direto no arquivo texto? *Obrigado,* ** *Fabiano* [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Fwd: SQL.TEXT em REMObjects
Pessoal, Ninguem sabe alguma coisa sobre este assunto? Depedo desta parte para encerrar esta tela. Se alguem tiver alguma ideia (mesmo boba), por favor, envie!! Obrigado MuriloCunha Pessoal, Como posso implementar o SQL.TEXT no PascalScript? O que eu quero fazer eh o seguinte: Consegui abrir e fechar o TSQLQuery colocado no form atraves de programacao no PascalScript. Gostaria, agora, de mudar o SQL desta query toda vez que chamar este script. Este SQL viria de uma variavel global colocado no form. Como implementar o *SQL.TEXT* no PascalScript? Ele nao reconhece estes comandos. Obrigado MuriloCunha
[delphi-br] [off] Comentários no código
Olá amigos, Peço licença à moderação do grupo para compartilhar um artigo que está profundamente ligado ao trabalho de todos nós programadores: o uso de comentários no código. Veja porque muitos dos comentários que vemos (e eventualmente escrevemos) não deveriam ser escritos e quais são alguns tipos de comentários que merecem ser escritos. http://MaisQueBomCodigo.blogspot.com/2010/07/nao-comente-seu-codigo.html Um abraço, Dirlei.
[delphi-br] [ ClientDataSet atualizar base offline ]
Ola Pessoal . estou criando uma aplicação on/offline , gostaria de saber se é possivel atualizar parcialmente o clientDataset ( mybase XML ) ?? ou seja ja baixei os dados dos clientes (sqlConetion SqlDataset provider clienteDatSet ) hoje , caso ocorra alguma alteracao nos dados cadastrais NO SERVIDOR , baixar so os cliente alterados . ps no servidor sempre que altero um dado fica gravado a data de modificacao ,, ai poderia comparar com a ultima data do arquivo XML e tal . mas como sobrepor isso no cliente data set ??? sem ter que baixar toda a tabela de cliente .. alguem ja viu algo parecido ?? alguem tem algum material para eu estudar?? Att, Marcio. Blumenau-SC
Re: [delphi-br] [ ClientDataSet atualizar base offline ]
Se entendi corretamente, você poderia gerar um XML/MyBase com o delta (registros incluidos, alterados e excluidos), parsear esse delta no cliente e efetivar as alterações no XML/MyBase definitivo. -- Dirlei Dionísio Novo artigo: // Não comente seu código http://MaisQueBomCodigo.blogspot.com Em 19 de julho de 2010 10:50, Marcio mar...@sulfabril.com.br escreveu: Ola Pessoal . estou criando uma aplicação on/offline , gostaria de saber se é possivel atualizar parcialmente o clientDataset ( mybase XML ) ?? ou seja ja baixei os dados dos clientes (sqlConetion SqlDataset provider clienteDatSet ) hoje , caso ocorra alguma alteracao nos dados cadastrais NO SERVIDOR , baixar so os cliente alterados . ps no servidor sempre que altero um dado fica gravado a data de modificacao ,, ai poderia comparar com a ultima data do arquivo XML e tal . mas como sobrepor isso no cliente data set ??? sem ter que baixar toda a tabela de cliente .. alguem ja viu algo parecido ?? alguem tem algum material para eu estudar?? Att, Marcio. Blumenau-SC [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Fast-Report - Como fazer SUM com condição?
Olá, Estou tentando fazer um SUM, com condição, por exemplo: Quero somar todos os valores em que o campo tipo_movimento for igual a E e diminuir todos os valores em que o campo tipo_movimento for igual a S. Como fazer? -- Atenciosamente, Paulo Coutinho. Blog: www.prsolucoes.com/blog Site: www.prsolucoes.com Msn: pa...@prsolucoes.com Skype: paulo.prsolucoes Consultor Certificado Bindows [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Criar DataBase em Execução
Colegas, Como eu posso criar uma Base de Dados FDB em tempo de execução. grato, josé ferreira
[delphi-br] Re: Fast-Report - Como fazer SUM com condição?
Use a função IIF(): IIF(tipo_movimento = 'E', valor, 0) Vai funcionar. --- Em delphi-br@yahoogrupos.com.br, Paulo Coutinho pa...@... escreveu Olá, Estou tentando fazer um SUM, com condição, por exemplo: Quero somar todos os valores em que o campo tipo_movimento for igual a E e diminuir todos os valores em que o campo tipo_movimento for igual a S. Como fazer? -- Atenciosamente, Paulo Coutinho. Blog: www.prsolucoes.com/blog Site: www.prsolucoes.com Msn: pa...@... Skype: paulo.prsolucoes Consultor Certificado Bindows [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] [ ClientDataSet atualizar base offline ]
Ola Dirlei !! desculpe , mas nao captei a mensagem !! como parsear ?? terei dois XML/CDS cliente.xml e inclusao.xml ??? Att. MArcio At 11:14 19/7/2010 -0300, you wrote: Se entendi corretamente, você poderia gerar um XML/MyBase com o delta (registros incluidos, alterados e excluidos), parsear esse delta no cliente e efetivar as alterações no XML/MyBase definitivo. -- Dirlei Dionísio Novo artigo: // Não comente seu código http://MaisQueBomCodigo.blogspot.comhttp://MaisQueBomCodigo.blogspot.com Em 19 de julho de 2010 10:50, Marcio mailto:marcio%40sulfabril.com.brmar...@sulfabril.com.br escreveu: Ola Pessoal . estou criando uma aplicação on/offline , gostaria de saber se é possivel atualizar parcialmente o clientDataset ( mybase XML ) ?? ou seja ja baixei os dados dos clientes (sqlConetion SqlDataset provider clienteDatSet ) hoje , caso ocorra alguma alteracao nos dados cadastrais NO SERVIDOR , baixar so os cliente alterados . ps no servidor sempre que altero um dado fica gravado a data de modificacao ,, ai poderia comparar com a ultima data do arquivo XML e tal . mas como sobrepor isso no cliente data set ??? sem ter que baixar toda a tabela de cliente .. alguem ja viu algo parecido ?? alguem tem algum material para eu estudar?? Att, Marcio. Blumenau-SC [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] [ ClientDataSet atualizar base offline ]
Interessante essa discussão. Gostaria tb de saber como poderia pegar uma massa de dados, seja em formato MyBase ou XML Datapacket do ClientDataSet, e aplicá-la para ser atualizada em um banco de dados. Esa discussão é interessante para o caso de atuação do cliente off-line até que o servidor volte à operar. Sds. To: delphi-br@yahoogrupos.com.br From: mar...@sulfabril.com.br Date: Mon, 19 Jul 2010 13:03:50 -0300 Subject: Re: [delphi-br] [ ClientDataSet atualizar base offline ] Ola Dirlei !! desculpe , mas nao captei a mensagem !! como parsear ?? terei dois XML/CDS cliente.xml e inclusao.xml ??? Att. MArcio At 11:14 19/7/2010 -0300, you wrote: Se entendi corretamente, você poderia gerar um XML/MyBase com o delta (registros incluidos, alterados e excluidos), parsear esse delta no cliente e efetivar as alterações no XML/MyBase definitivo. -- Dirlei Dionísio Novo artigo: // Não comente seu código http://MaisQueBomCodigo.blogspot.comhttp://MaisQueBomCodigo.blogspot.com Em 19 de julho de 2010 10:50, Marcio mailto:marcio%40sulfabril.com.brmar...@sulfabril.com.br escreveu: Ola Pessoal . estou criando uma aplicação on/offline , gostaria de saber se é possivel atualizar parcialmente o clientDataset ( mybase XML ) ?? ou seja ja baixei os dados dos clientes (sqlConetion SqlDataset provider clienteDatSet ) hoje , caso ocorra alguma alteracao nos dados cadastrais NO SERVIDOR , baixar so os cliente alterados . ps no servidor sempre que altero um dado fica gravado a data de modificacao ,, ai poderia comparar com a ultima data do arquivo XML e tal . mas como sobrepor isso no cliente data set ??? sem ter que baixar toda a tabela de cliente .. alguem ja viu algo parecido ?? alguem tem algum material para eu estudar?? Att, Marcio. Blumenau-SC [As partes desta mensagem que não continham texto foram removidas] _ TRANSFORME SUAS FOTOS EM EMOTICONS PARA O MESSENGER. CLIQUE AQUI PARA COMEÇAR. http://ilm.windowslive.com.br/?ocid=ILM:Live:Hotmail:Tagline:senDimensao:TRANSFORME78:- [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] [ClientDataSet atualizar base offline ]
deixa eu explicar melhor para baixar a base faco desta maneira : Aplicação servidora : SqlDataset : Select * from transportadora Aplicação Cliente : Cds := TClientDataSet.Create(nil); Cds.RemoteServer := SoapConnection1; SoapConnection1.Connected := True; Cds.Close; Cds.ProviderName := 'dspTransportadora' ; Cds.Open; //Cds.SaveToFile('dspTransportadora' + '.XML'); Cds.SaveToFile('dspTransportadora.cds',dfBinary); Cds.Free; ShowMessage('arquivo baixado'); exit; desta maneira baixei todas as transportadora , mas se eu quiser so atualizar o dspTransportadora.xml ? se eu fizer um select , SqlDataset : Select * from transportadora where DataMod = :DataMod como faco para unir com o dspTransportadora.xml com os registros do sql ?? att. Marcio At 07:33 19/7/2010 -0700, you wrote: Amigo como você falou que grava a data de alteração de cada registro você pode simplesmente gerar um SQL (select) que filtre somente pela data de alteração, poderia ser registro a registro porque ai você teria como comparar a data do registro do arquivo local com a do que estar no Server. Estando usando ClientDataSet + XML é só desativar o ChangeLog do CDS para não manter o registro antigo. isso resolve? === Jean Barreiros Programador/Web-Designer Delphi|C++|PHP|JavaScript FireBird|MySql|SQLServer PostGree|Oracle msn: delphij...@gmail.com e-mail: delphij...@yahoo.com.br === De: Marcio mar...@sulfabril.com.br Para: n...@yahoogrupos.com.br Enviadas: Segunda-feira, 19 de Julho de 2010 11:15:58 Assunto: Re: [NDDV] [ ClientDataSet atualizar base offline ] Daniel ,obrigado pela atençao. Bom .. Estou tentando(tenho) construir uma aplicacao para os vendedores externos da empresa . esta aplicao vai ser off-line / online. os vendedores antes de ir ao cliente baixam a base com os dados atualizados ou uma vez por semana .. estou baixando os dados via SOAP , mas o problema é se cada vez que atualizar a base cliente tiver que trazer tudo , fica muito pesado . pretendo atualizar a BASE cliente somente com os registros novos no servidor . estive pesquisando sobre compressao de dados no datapack mais nao encontrei nada . é possivel isso ?? At. Marcio [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Criar DataBase em Execução
Qual o banco de dados? Pablo Farias Market Sistemas Fone (81)3685.1562 www.marketsistemas.com.br Em 19/07/2010 11:56, Ferreira escreveu: Colegas, Como eu posso criar uma Base de Dados FDB em tempo de execução. grato, josé ferreira [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Problema PNG
Bom dia Rodrigo. A propriedade transparent do TImage já está false e mesmo assim não funcionou. Sério mesmo que o PNG não pode ter tranparência? Pq eu estou usando o formato PNG exatamente por isso. Eu não quero que a imagem tenha um fundo quero usar o meu form. Se for esse o caso... tem outra maneira para fazer isso? Obrigado. Lucas Rafael Rampin Programador Não tente trilhar um caminho estabelecido. Ao contrário, vá para onde não há caminho algum e deixe seu rastro. (Johnnie Walker) De: Roni Rodrigo ronirodr...@yahoo.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 16 de Julho de 2010 21:07:32 Assunto: Re: [delphi-br] Problema PNG o TImage tem uma propriedade chamada Tranparent... tenta colocar pra 'false', mas pra funcionar com png, se eu não me engano o arquivo .png tb não pode ser transparente, tem que colocar alguma cor onde tem transparencia... o/ Em 16/07/2010 14:24, Lucas Rampim escreveu: Boa Tarde. Estou com o seguinte problema No meu projeto, utilizo componentes TImage para exibir imagens no formato .PNG!!! Ao montar o form no delphi, consigo visualizar essas imagens normalmente, mas quando estou executando o programa, as imagens ficam transparentes. Eu criei as imagens no Photoshop CS2 e utilizo o delphi 2006! PS.: Criei um projeto apenas com um TImage e carreguei a imagem... o mesmo problema. Alguem me ajuda Lucas Rafael Rampin Programador Não tente trilhar um caminho estabelecido. Ao contrário, vá para onde não há caminho algum e deixe seu rastro. (Johnnie Walker) [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Pegar Nome do Computador
Ola, estou tentando pegar o nome do computador com a rotina abaixo porem nao funciona da erro no GetComputerName, estou utilizando o Delpho 2010, alguem pode me ajudar? Function RetNmComp: String; var lpBuffer: Array [0 .. 20] of Char; nSize: Word; mRet: Boolean; erro: Word; begin nSize := 120; mRet := GetComputerName(lpBuffer, nSize); if mRet then Result := lpBuffer else begin erro := GetLastError(); MessageDlg('Ocorreu o erro ' + IntToStr(erro) + ' ao procurar o nome do computador.', mtError, [mbOk], 0); Result := ''; end; end; []s, -- Pablo Farias Market Sistemas Fone (81)3685.1562 www.marketsistemas.com.br
Re: [delphi-br] Fwd: SQL.TEXT em REMObjects
O PS só vem com as definições da classe TDataSet, que não possuir a property SQL. Vc precisa criar um plugin com a classe da query, por exemplo, se for um TSqlQuery, vc precisar utilizar o utilitário do PS e converter a unit SqlExpr.pas em um plugin. Outra opção seria criar um método no seu form e registrar no script e dentro do script vc chama o método passando a query e o sql como argumentos. Mais ou menos assim: procedure Teditor.ceCompile(Sender: TPSScript); begin (...) Sender.AddMethod(Self, @TEditor.SetCommandText, 'SetCommandText(ADataSet: TDataSet; ACommandText: String)'); (...) end; procedure Teditor.SetCommandText(ADataSet: TDataSet; ACommandText: String); begin if ADataSet is TSQLQuery then TSQLQuery(ADataSet).SQL.Text := ACommandText; end; Em 19 de julho de 2010 09:01, Murilo Cunha mcscu...@yahoo.com.br escreveu: Pessoal, Ninguem sabe alguma coisa sobre este assunto? Depedo desta parte para encerrar esta tela. Se alguem tiver alguma ideia (mesmo boba), por favor, envie!! Obrigado MuriloCunha Pessoal, Como posso implementar o SQL.TEXT no PascalScript? O que eu quero fazer eh o seguinte: Consegui abrir e fechar o TSQLQuery colocado no form atraves de programacao no PascalScript. Gostaria, agora, de mudar o SQL desta query toda vez que chamar este script. Este SQL viria de uma variavel global colocado no form. Como implementar o *SQL.TEXT* no PascalScript? Ele nao reconhece estes comandos. Obrigado MuriloCunha [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] pixels de um TBitmap
Bom dia pessoal, preciso carregar uma imagem em um TBItmap e depois trabalhar com GetRValue, GetGValue e GetBValue. procedure Thread_Cobertura.JpgToBmp; var JPEG : TJPEGImage; begin PEG := TJPEGImage.Create; try JPEG.LoadFromFile(Arquivo); BMP := TBitmap.Create; BMP.Width := JPEG.Width; BMP.Height := JPEG.Height; BMP.Canvas.Draw(0, 0,JPEG); finally JPEG.Free; end; end; //obs: BMP um TBItmap; ... // Percorre os píxels ... for i := 0 to BMP.Height - 1 do begin for j := 0 to BMP.Width - 1 do begin R := GetRValue(BMP.Canvas.Pixels[j,i]); G := GetGValue(BMP.Canvas.Pixels[j,i]); B := GetBValue(BMP.Canvas.Pixels[j,i]); ... O codigo compila e roda normal, porém os valores para RGB são sempre 255, 255, 255 (ausencia de cor), porem se eu jogar o BMP em um TImage, ou no cavas do Form, a imagem é exibida normalmente ... alguem tem alguma dica? devo fazer outro procedimento p/ jogar a imagem pro BMP ? [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Pegar Nome do Computador
O mais importante vc não mencionou: o erro! Sds. To: delphi-br@yahoogrupos.com.br From: develo...@marketingrapido.com.br Date: Mon, 19 Jul 2010 10:57:45 -0300 Subject: [delphi-br] Pegar Nome do Computador Ola, estou tentando pegar o nome do computador com a rotina abaixo porem nao funciona da erro no GetComputerName, estou utilizando o Delpho 2010, alguem pode me ajudar? Function RetNmComp: String; var lpBuffer: Array [0 .. 20] of Char; nSize: Word; mRet: Boolean; erro: Word; begin nSize := 120; mRet := GetComputerName(lpBuffer, nSize); if mRet then Result := lpBuffer else begin erro := GetLastError(); MessageDlg('Ocorreu o erro ' + IntToStr(erro) + ' ao procurar o nome do computador.', mtError, [mbOk], 0); Result := ''; end; end; []s, -- Pablo Farias Market Sistemas Fone (81)3685.1562 www.marketsistemas.com.br _ CONVERSE COM SEUS AMIGOS E OS VEJA PELA WEBCAM NO MESSENGER. CLIQUE AQUI E VEJA COMO. http://www.windowslive.com.br/public/tip.aspx/view/84?product=2ocid=WLCRM:Live:Hotmail:Tagline:senDimensao:CONVERSECO85:- [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Fast-Report - Como fazer SUM com condição?
Terá que usar duas consultas. No Ibquery1.Coleque a seguinte condição :(select sum (valor ) where tipo_mocimento = E) No Ibquery2.Coleque a seguinte condição :( (select sum (valor ) where tipo_mocimento = S) Depois subtraia o resulta e jogue o valor dentro de uma variável. Antônio Júnior TI Metalúrgica Jano LTDA. t...@jano.ind.br (37) 3214-1140 Divinópolis MG _ De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Paulo Coutinho Enviada em: segunda-feira, 19 de julho de 2010 11:22 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Fast-Report - Como fazer SUM com condição? Olá, Estou tentando fazer um SUM, com condição, por exemplo: Quero somar todos os valores em que o campo tipo_movimento for igual a E e diminuir todos os valores em que o campo tipo_movimento for igual a S. Como fazer? -- Atenciosamente, Paulo Coutinho. Blog: www.prsolucoes.com/blog Site: www.prsolucoes.com Msn: pa...@prsolucoes.com mailto:paulo%40prsolucoes.com Skype: paulo.prsolucoes Consultor Certificado Bindows [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Criar DataBase em Execução
O IBDataBase, tem uma procedure CreateBataBase , da uma olhada nela que deve te ajudar... Att, Jhosef Marks de Carvalho Blog: http://www.jhosefmarks.com.br Jesus está voltando E se o meu povo, que se chama pelo meu nome, se humilhar, e orar, e buscar a minha face e se converter dos seus maus caminhos, então eu ouvirei dos céus, e perdoarei os seus pecados, e sararei a sua terra. (2 Cr 7:14) Em 19 de julho de 2010 12:22, Pablo Farias develo...@marketingrapido.com.br escreveu: Qual o banco de dados? Pablo Farias Market Sistemas Fone (81)3685.1562 www.marketsistemas.com.br Em 19/07/2010 11:56, Ferreira escreveu: Colegas, Como eu posso criar uma Base de Dados FDB em tempo de execução. grato, josé ferreira [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] [ClientDataSet atualizar base offline ]
Bom , com a aplicacao off-line , faço insercoes ,alteracoes etc . para enviar ao servidor (SOAP), faco assim .. ClientDataSet1.LoadFromFile('dspTransportadora.XML'); ClientDataSet1.ApplyUpdates(-1); Att. MArcio At 15:57 19/7/2010 +, you wrote: Interessante essa discussão. Gostaria tb de saber como poderia pegar uma massa de dados, seja em formato MyBase ou XML Datapacket do ClientDataSet, e aplicá-la para ser atualizada em um banco de dados. Esa discussão é interessante para o caso de atuação do cliente off-line até que o servidor volte à operar. Sds. To: mailto:delphi-br%40yahoogrupos.com.brdelphi-br@yahoogrupos.com.br From: mailto:marcio%40sulfabril.com.brmar...@sulfabril.com.br Date: Mon, 19 Jul 2010 13:03:50 -0300 Subject: Re: [delphi-br] [ ClientDataSet atualizar base offline ] Ola Dirlei !! desculpe , mas nao captei a mensagem !! como parsear ?? terei dois XML/CDS cliente.xml e inclusao.xml ??? Att. MArcio At 11:14 19/7/2010 -0300, you wrote: Se entendi corretamente, você poderia gerar um XML/MyBase com o delta (registros incluidos, alterados e excluidos), parsear esse delta no cliente e efetivar as alterações no XML/MyBase definitivo. -- Dirlei Dionísio Novo artigo: // Não comente seu código http://MaisQueBomCodigo.blogspot.comhttp://MaisQueBomCodigo.blogspot.c omhttp://MaisQueBomCodigo.blogspot.com Em 19 de julho de 2010 10:50, Marcio mailto:marcio%40sulfabril.com.brmailto:marcio%40sulfabril.com.brmarc i...@sulfabril.com.br escreveu: Ola Pessoal . estou criando uma aplicação on/offline , gostaria de saber se é possivel atualizar parcialmente o clientDataset ( mybase XML ) ?? ou seja ja baixei os dados dos clientes (sqlConetion SqlDataset provider clienteDatSet ) hoje , caso ocorra alguma alteracao nos dados cadastrais NO SERVIDOR , baixar so os cliente alterados . ps no servidor sempre que altero um dado fica gravado a data de modificacao ,, ai poderia comparar com a ultima data do arquivo XML e tal . mas como sobrepor isso no cliente data set ??? sem ter que baixar toda a tabela de cliente .. alguem ja viu algo parecido ?? alguem tem algum material para eu estudar?? Att, Marcio. Blumenau-SC [As partes desta mensagem que não continham texto foram removidas] __ TRANSFORME SUAS FOTOS EM EMOTICONS PARA O MESSENGER. CLIQUE AQUI PARA COMEÇAR. http://ilm.windowslive.com.br/?ocid=ILM:Live:Hotmail:Tagline:senDimensao:TRANSFORME78:-http://ilm.windowslive.com.br/?ocid=ILM:Live:Hotmail:Tagline:senDimensao:TRANSFORME78:- [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Função de comparação de estrutura de banco de dado s como do IbExpert
Alguém sabe como funciona e/ou tem alguma função que faça aquele comparação de estrutura de 2 banco de dados para gerar o script de atualização de uma das estruturas igual ao do IbExpert, tipo: DB Source: c:\BancoNovo.fdb DB Target: c:\BancoVelho.fdb o script executa e verifica o que é de diferente entre a versão velha e nova do banco de dados e ai gera o script pra fazer a atualização da estrutura velha. Alguém tem algo sobre isso? === Jean Barreiros Programador/Web-Designer Delphi|C++|PHP|JavaScript FireBird|MySql|SQLServer PostGree|Oracle msn: delphij...@gmail.com e-mail: delphij...@yahoo.com.br === [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Função de comparação de estrutur a de banco de dados como do IbExpert
*Boa tarde!* É isso o que você disse, ele compara a estrutura velha com a nova e gera um script, mas nunca confie 100% nos scripts gerados, pois talvez possa ocorrer algum drop desnecessário e dar dor de cabeça. *Obrigado,* * * *Fabiano * Em 19 de julho de 2010 14:01, Jean Barreiros delphij...@yahoo.com.brescreveu: Alguém sabe como funciona e/ou tem alguma função que faça aquele comparação de estrutura de 2 banco de dados para gerar o script de atualização de uma das estruturas igual ao do IbExpert, tipo: DB Source: c:\BancoNovo.fdb DB Target: c:\BancoVelho.fdb o script executa e verifica o que é de diferente entre a versão velha e nova do banco de dados e ai gera o script pra fazer a atualização da estrutura velha. Alguém tem algo sobre isso? === Jean Barreiros Programador/Web-Designer Delphi|C++|PHP|JavaScript FireBird|MySql|SQLServer PostGree|Oracle msn: delphij...@gmail.com e-mail: delphij...@yahoo.com.br === [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Função de comparação de estrutura de banco de dados como do IbExpert
Valeu ai, mas eu sei disso o que quero é saber se alguem tem alguma função ou sabe como funciona esse recurso do IbExpert; === Jean Barreiros Programador/Web-Designer Delphi|C++|PHP|JavaScript FireBird|MySql|SQLServer PostGree|Oracle msn: delphij...@gmail.com e-mail: delphij...@yahoo.com.br === De: Fabiano Moura mctbra...@gmail.com Para: delphi-br@yahoogrupos.com.br Enviadas: Segunda-feira, 19 de Julho de 2010 14:06:04 Assunto: Re: [delphi-br] Função de comparação de estrutura de banco de dados como do IbExpert *Boa tarde!* É isso o que você disse, ele compara a estrutura velha com a nova e gera um script, mas nunca confie 100% nos scripts gerados, pois talvez possa ocorrer algum drop desnecessário e dar dor de cabeça. *Obrigado,* * * *Fabiano * Em 19 de julho de 2010 14:01, Jean Barreiros delphij...@yahoo.com.brescreveu: Alguém sabe como funciona e/ou tem alguma função que faça aquele comparação de estrutura de 2 banco de dados para gerar o script de atualização de uma das estruturas igual ao do IbExpert, tipo: DB Source: c:\BancoNovo.fdb DB Target: c:\BancoVelho.fdb o script executa e verifica o que é de diferente entre a versão velha e nova do banco de dados e ai gera o script pra fazer a atualização da estrutura velha. Alguém tem algo sobre isso? === Jean Barreiros Programador/Web-Designer Delphi|C++|PHP|JavaScript FireBird|MySql|SQLServer PostGree|Oracle msn: delphij...@gmail.com e-mail: delphij...@yahoo.com.br === [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Função de comparação de estrutur a de banco de dados como do IbExpert
No IBExpert pago, tem o IBScript, que voce pode usar... eu utilizo pra efetuar um backup do banco antes de tudo, depois extraio os 2 bancos, comparo, e executo as mudanças.. se houver problemas, retorno o backup feito... []s Em 19 de julho de 2010 14:17, Jean Barreiros delphij...@yahoo.com.brescreveu: Valeu ai, mas eu sei disso o que quero é saber se alguem tem alguma função ou sabe como funciona esse recurso do IbExpert; === Jean Barreiros Programador/Web-Designer Delphi|C++|PHP|JavaScript FireBird|MySql|SQLServer PostGree|Oracle msn: delphij...@gmail.com delphijean%40gmail.com e-mail: delphij...@yahoo.com.br delphijean%40yahoo.com.br === De: Fabiano Moura mctbra...@gmail.com mctbrasil%40gmail.com Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Enviadas: Segunda-feira, 19 de Julho de 2010 14:06:04 Assunto: Re: [delphi-br] Função de comparação de estrutura de banco de dados como do IbExpert *Boa tarde!* É isso o que você disse, ele compara a estrutura velha com a nova e gera um script, mas nunca confie 100% nos scripts gerados, pois talvez possa ocorrer algum drop desnecessário e dar dor de cabeça. *Obrigado,* * * *Fabiano * Em 19 de julho de 2010 14:01, Jean Barreiros delphij...@yahoo.com.brdelphijean%40yahoo.com.br escreveu: Alguém sabe como funciona e/ou tem alguma função que faça aquele comparação de estrutura de 2 banco de dados para gerar o script de atualização de uma das estruturas igual ao do IbExpert, tipo: DB Source: c:\BancoNovo.fdb DB Target: c:\BancoVelho.fdb o script executa e verifica o que é de diferente entre a versão velha e nova do banco de dados e ai gera o script pra fazer a atualização da estrutura velha. Alguém tem algo sobre isso? === Jean Barreiros Programador/Web-Designer Delphi|C++|PHP|JavaScript FireBird|MySql|SQLServer PostGree|Oracle msn: delphij...@gmail.com delphijean%40gmail.com e-mail: delphij...@yahoo.com.br delphijean%40yahoo.com.br === [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- _ T.·.F.·.A.·. Fellipe Henrique http://blogs.digitumsoft.com.br/fellipeh --- [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Res: [delphi-br] Função de comparação de est rutura de banco de dados como do IbExpert
Não quero usar o IBExpert o que tentando saber é se existe alguma função, dll seja lá o que for, já pronto que agente possa incluir em nossos projetos. é que posso ter explicado mal. === Jean Barreiros Programador/Web-Designer Delphi|C++|PHP|JavaScript FireBird|MySql|SQLServer PostGree|Oracle msn: delphij...@gmail.com e-mail: delphij...@yahoo.com.br === De: Fellipe Henrique felli...@gmail.com Para: delphi-br@yahoogrupos.com.br Enviadas: Segunda-feira, 19 de Julho de 2010 14:29:08 Assunto: Re: [delphi-br] Função de comparação de estrutura de banco de dados como do IbExpert No IBExpert pago, tem o IBScript, que voce pode usar... eu utilizo pra efetuar um backup do banco antes de tudo, depois extraio os 2 bancos, comparo, e executo as mudanças.. se houver problemas, retorno o backup feito... []s Em 19 de julho de 2010 14:17, Jean Barreiros delphij...@yahoo.com.brescreveu: Valeu ai, mas eu sei disso o que quero é saber se alguem tem alguma função ou sabe como funciona esse recurso do IbExpert; === Jean Barreiros Programador/Web-Designer Delphi|C++|PHP|JavaScript FireBird|MySql|SQLServer PostGree|Oracle msn: delphij...@gmail.com delphijean%40gmail.com e-mail: delphij...@yahoo.com.br delphijean%40yahoo.com.br === De: Fabiano Moura mctbra...@gmail.com mctbrasil%40gmail.com Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Enviadas: Segunda-feira, 19 de Julho de 2010 14:06:04 Assunto: Re: [delphi-br] Função de comparação de estrutura de banco de dados como do IbExpert *Boa tarde!* É isso o que você disse, ele compara a estrutura velha com a nova e gera um script, mas nunca confie 100% nos scripts gerados, pois talvez possa ocorrer algum drop desnecessário e dar dor de cabeça. *Obrigado,* * * *Fabiano * Em 19 de julho de 2010 14:01, Jean Barreiros delphij...@yahoo.com.brdelphijean%40yahoo.com.br escreveu: Alguém sabe como funciona e/ou tem alguma função que faça aquele comparação de estrutura de 2 banco de dados para gerar o script de atualização de uma das estruturas igual ao do IbExpert, tipo: DB Source: c:\BancoNovo.fdb DB Target: c:\BancoVelho.fdb o script executa e verifica o que é de diferente entre a versão velha e nova do banco de dados e ai gera o script pra fazer a atualização da estrutura velha. Alguém tem algo sobre isso? === Jean Barreiros Programador/Web-Designer Delphi|C++|PHP|JavaScript FireBird|MySql|SQLServer PostGree|Oracle msn: delphij...@gmail.com delphijean%40gmail.com e-mail: delphij...@yahoo.com.br delphijean%40yahoo.com.br === [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- _ T.·.F.·.A.·. Fellipe Henrique http://blogs.digitumsoft.com.br/fellipeh --- [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] [off] Comentários no código
hehe, gostei mesmo foi dessa fraze: Interessado em facilitar a vida das pessoas através de bom software, sem arruinar a vida dos que os desenvolvem. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com SKYPE: WalterChagasJr - Original Message - From: Dirlei Dionísio To: delphi-br@yahoogrupos.com.br Sent: Monday, July 19, 2010 10:10 AM Subject: [delphi-br] [off] Comentários no código Olá amigos, Peço licença à moderação do grupo para compartilhar um artigo que está profundamente ligado ao trabalho de todos nós programadores: o uso de comentários no código. Veja porque muitos dos comentários que vemos (e eventualmente escrevemos) não deveriam ser escritos e quais são alguns tipos de comentários que merecem ser escritos. http://MaisQueBomCodigo.blogspot.com/2010/07/nao-comente-seu-codigo.html Um abraço, Dirlei. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Função de comparação de estrutur a de banco de dados como do IbExpert
Bom, pronto, pronto, que eu saiba só tem isso do IBExpert, e do DBComparer... porém este último já faz tempo que não atualiza, então tive problemas, por isso mudei pro esquema que mencionei, fora isso acredito que não tenha nada pronto. []s Em 19 de julho de 2010 14:36, Jean Barreiros delphij...@yahoo.com.brescreveu: Não quero usar o IBExpert o que tentando saber é se existe alguma função, dll seja lá o que for, já pronto que agente possa incluir em nossos projetos. é que posso ter explicado mal. === Jean Barreiros Programador/Web-Designer Delphi|C++|PHP|JavaScript FireBird|MySql|SQLServer PostGree|Oracle msn: delphij...@gmail.com delphijean%40gmail.com e-mail: delphij...@yahoo.com.br delphijean%40yahoo.com.br === De: Fellipe Henrique felli...@gmail.com fellipeh%40gmail.com Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Enviadas: Segunda-feira, 19 de Julho de 2010 14:29:08 Assunto: Re: [delphi-br] Função de comparação de estrutura de banco de dados como do IbExpert No IBExpert pago, tem o IBScript, que voce pode usar... eu utilizo pra efetuar um backup do banco antes de tudo, depois extraio os 2 bancos, comparo, e executo as mudanças.. se houver problemas, retorno o backup feito... []s Em 19 de julho de 2010 14:17, Jean Barreiros delphij...@yahoo.com.brdelphijean%40yahoo.com.br escreveu: Valeu ai, mas eu sei disso o que quero é saber se alguem tem alguma função ou sabe como funciona esse recurso do IbExpert; === Jean Barreiros Programador/Web-Designer Delphi|C++|PHP|JavaScript FireBird|MySql|SQLServer PostGree|Oracle msn: delphij...@gmail.com delphijean%40gmail.com delphijean% 40gmail.com e-mail: delphij...@yahoo.com.br delphijean%40yahoo.com.br delphijean% 40yahoo.com.br === De: Fabiano Moura mctbra...@gmail.com mctbrasil%40gmail.commctbrasil% 40gmail.com Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br% 40yahoogrupos.com.br Enviadas: Segunda-feira, 19 de Julho de 2010 14:06:04 Assunto: Re: [delphi-br] Função de comparação de estrutura de banco de dados como do IbExpert *Boa tarde!* É isso o que você disse, ele compara a estrutura velha com a nova e gera um script, mas nunca confie 100% nos scripts gerados, pois talvez possa ocorrer algum drop desnecessário e dar dor de cabeça. *Obrigado,* * * *Fabiano * Em 19 de julho de 2010 14:01, Jean Barreiros delphij...@yahoo.com.br delphijean%40yahoo.com.brdelphijean% 40yahoo.com.br escreveu: Alguém sabe como funciona e/ou tem alguma função que faça aquele comparação de estrutura de 2 banco de dados para gerar o script de atualização de uma das estruturas igual ao do IbExpert, tipo: DB Source: c:\BancoNovo.fdb DB Target: c:\BancoVelho.fdb o script executa e verifica o que é de diferente entre a versão velha e nova do banco de dados e ai gera o script pra fazer a atualização da estrutura velha. Alguém tem algo sobre isso? === Jean Barreiros Programador/Web-Designer Delphi|C++|PHP|JavaScript FireBird|MySql|SQLServer PostGree|Oracle msn: delphij...@gmail.com delphijean%40gmail.com delphijean% 40gmail.com e-mail: delphij...@yahoo.com.br delphijean%40yahoo.com.brdelphijean% 40yahoo.com.br === [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- _ T.·.F.·.A.·. Fellipe Henrique http://blogs.digitumsoft.com.br/fellipeh -- [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas] -- _ T.·.F.·.A.·. Fellipe Henrique http://blogs.digitumsoft.com.br/fellipeh --- [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse:
[delphi-br] Re: MethodAddress retornando NIL [CANCELADO]
Não consegui resolver e vou deixar isso de lado. Talvez o delphi não permita (mesmo me parecendo tão ilógico) ou é uma caixa preta até mesmo para uma lista de quase 5000 pessoas. Obrigado aquelas que tentaram ajudar, há uns dias o Bruno da Embarcadero disse que era possivel, espero que um dia nos mostre como rsrs, e que não seja nada que dependa do Delphi 2010 ou 2020. Grato, Eric --- Em delphi-br@yahoogrupos.com.br, eric_developer developer.syst...@... escreveu Boa tarde pessoal, alguem sabe como obter o ponteiro de métodos existentes ? no exemplo, se eu criar o método teste para o form2, funciona, retornando o ponteiro. No lugar de form2, usarei componentes edit, combobox, etc e metodos existentes. myCallMethod( edit1, 'SETFOCUS' ) ; myCallMethod( form3, 'SETFOCUS' ) ; procedure TForm2.teste ; begin ShowMessage('OLA'); end; procedure TForm2.Button1Click(Sender: TObject); var routine : TMethod ; Begin routine.data:=pointer(form2) ; routine.Code:=Form2.MethodAddress('teste') ; // Nome do metodo if routine.Code nil then begin ShowMessage('OK'); end; end; Grato, Eric Developer Systems
Re: [delphi-br] Fast-Report - Como fazer SUM com con dição?
Olá pessoal, Eu tinha um relatório aqui já com isso já funcionando, mas pensei que estava errado, mas acabei achando o jeito certo de fazer que é igualao que o @pjuniormol falou, e como resultado final ficou assim: [ SUM( IIF(frxDBRel.tipo_movimento='E',frxDBRel.valor - frxDBRel.valor_pago , 0) ) - SUM( IIF(frxDBRel.tipo_movimento='S',frxDBRel.valor - frxDBRel.valor_pago , 0) ) ] Valeu a todos. -- Atenciosamente, Paulo Coutinho. Blog: www.prsolucoes.com/blog Site: www.prsolucoes.com Msn: pa...@prsolucoes.com Skype: paulo.prsolucoes Consultor Certificado Bindows Em 19 de julho de 2010 12:05, TI - Metalúrgica Jano t...@jano.ind.brescreveu: Terá que usar duas consultas. No Ibquery1.Coleque a seguinte condição :(select sum (valor ) where tipo_mocimento = E) No Ibquery2.Coleque a seguinte condição :( (select sum (valor ) where tipo_mocimento = S) Depois subtraia o resulta e jogue o valor dentro de uma variável. Antônio Júnior TI Metalúrgica Jano LTDA. t...@jano.ind.br ti%40jano.ind.br (37) 3214-1140 Divinópolis MG _ De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em nome de Paulo Coutinho Enviada em: segunda-feira, 19 de julho de 2010 11:22 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: [delphi-br] Fast-Report - Como fazer SUM com condição? Olá, Estou tentando fazer um SUM, com condição, por exemplo: Quero somar todos os valores em que o campo tipo_movimento for igual a E e diminuir todos os valores em que o campo tipo_movimento for igual a S. Como fazer? -- Atenciosamente, Paulo Coutinho. Blog: www.prsolucoes.com/blog Site: www.prsolucoes.com Msn: pa...@prsolucoes.com paulo%40prsolucoes.com mailto: paulo%40prsolucoes.com paulo%2540prsolucoes.com Skype: paulo.prsolucoes Consultor Certificado Bindows [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Res: [delphi-br] Criar DataBase em Execução
Eu também gostaria de algo sobre o assunto e melhor seria que usando TSQLConnection === Jean Barreiros Programador/Web-Designer Delphi|C++|PHP|JavaScript FireBird|MySql|SQLServer PostGree|Oracle msn: delphij...@gmail.com e-mail: delphij...@yahoo.com.br === De: Jhosef Marks jho...@gmail.com Para: delphi-br@yahoogrupos.com.br Enviadas: Segunda-feira, 19 de Julho de 2010 13:41:00 Assunto: Re: [delphi-br] Criar DataBase em Execução O IBDataBase, tem uma procedure CreateBataBase , da uma olhada nela que deve te ajudar... Att, Jhosef Marks de Carvalho Blog: http://www.jhosefmarks.com.br Jesus está voltando E se o meu povo, que se chama pelo meu nome, se humilhar, e orar, e buscar a minha face e se converter dos seus maus caminhos, então eu ouvirei dos céus, e perdoarei os seus pecados, e sararei a sua terra. (2 Cr 7:14) Em 19 de julho de 2010 12:22, Pablo Farias develo...@marketingrapido.com.br escreveu: Qual o banco de dados? Pablo Farias Market Sistemas Fone (81)3685.1562 www.marketsistemas.com.br Em 19/07/2010 11:56, Ferreira escreveu: Colegas, Como eu posso criar uma Base de Dados FDB em tempo de execução. grato, josé ferreira [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 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] [ClientDataSet atualizar base offline ]
Marcio, vou te sugerir a maneira mais simples de resolver isso que me vem à mente agora, mas com certeza essa não é a única alternativa. Vamos lá. PS1: Estou pertindo do princípio que a atualização ocorre apenas no sentido SERVIDOR-CLIENTE, como eu entendi. Na tabela transportadora, além do campo DataMod, você precisa também ter um campo para informar que tipo de operação foi feita. Poderia ser, por exemplo, TipoMod. Os valores possíveis seriam I, A e E, significando, Inclusão, Alteração e Exclusão, respectivamente. PS2: Quando uma transportadora for excluída no servidor, o registro não poderá ser fisicamente excluído até que os cliente tenham sincronizado essa exclusão com suas bases locais. Para sincronizar as alterações do servidor com os clientes, você faz o seguinte: 1 - um select * from Transportadora where DATAMOD:DATA_E_HORA_DA_ULTIMA_SINCRONIZACAO_DO_CLIENTE 2 - carrega o dspTransportadora.cds para a memória 3 - percorre cada registro da query executada no servidor e verifica o campo TipoMod. - se o conteudo for: - I, INCLUI o registro no dataset que foi carregado com o dspTransportadora.cds - A, localiza o registro no dataset que foi carregado com o dspTransportadora.cds e faz a ALTERACAO - E, localiza o registro no dataset que foi carregado com o dspTransportadora.cds e faz a EXCLUSAO 4 - salva o dataset que foi carregado com o dspTransportadora.cds em disco 5 - grava em algum lugar a data e hora da última sincronização do cliente com o servidor. Posso ter esquecido algum detalhe, mas de modo geral, essa é uma solução possível para o seu problema. Um abraço, -- Dirlei Dionísio Novo artigo: // Não comente seu código http://MaisQueBomCodigo.blogspot.com Em 19 de julho de 2010 13:31, Marcio mar...@sulfabril.com.br escreveu: deixa eu explicar melhor para baixar a base faco desta maneira : Aplicação servidora : SqlDataset : Select * from transportadora Aplicação Cliente : Cds := TClientDataSet.Create(nil); Cds.RemoteServer := SoapConnection1; SoapConnection1.Connected := True; Cds.Close; Cds.ProviderName := 'dspTransportadora' ; Cds.Open; //Cds.SaveToFile('dspTransportadora' + '.XML'); Cds.SaveToFile('dspTransportadora.cds',dfBinary); Cds.Free; ShowMessage('arquivo baixado'); exit; desta maneira baixei todas as transportadora , mas se eu quiser so atualizar o dspTransportadora.xml ? se eu fizer um select , SqlDataset : Select * from transportadora where DataMod = :DataMod como faco para unir com o dspTransportadora.xml com os registros do sql ?? att. Marcio At 07:33 19/7/2010 -0700, you wrote: Amigo como você falou que grava a data de alteração de cada registro você pode simplesmente gerar um SQL (select) que filtre somente pela data de alteração, poderia ser registro a registro porque ai você teria como comparar a data do registro do arquivo local com a do que estar no Server. Estando usando ClientDataSet + XML é só desativar o ChangeLog do CDS para não manter o registro antigo. isso resolve? === Jean Barreiros Programador/Web-Designer Delphi|C++|PHP|JavaScript FireBird|MySql|SQLServer PostGree|Oracle msn: delphij...@gmail.com delphijean%40gmail.com e-mail: delphij...@yahoo.com.br delphijean%40yahoo.com.br === De: Marcio mar...@sulfabril.com.br marcio%40sulfabril.com.br Para: n...@yahoogrupos.com.br NDDV%40yahoogrupos.com.br Enviadas: Segunda-feira, 19 de Julho de 2010 11:15:58 Assunto: Re: [NDDV] [ ClientDataSet atualizar base offline ] Daniel ,obrigado pela atençao. Bom .. Estou tentando(tenho) construir uma aplicacao para os vendedores externos da empresa . esta aplicao vai ser off-line / online. os vendedores antes de ir ao cliente baixam a base com os dados atualizados ou uma vez por semana .. estou baixando os dados via SOAP , mas o problema é se cada vez que atualizar a base cliente tiver que trazer tudo , fica muito pesado . pretendo atualizar a BASE cliente somente com os registros novos no servidor . estive pesquisando sobre compressao de dados no datapack mais nao encontrei nada . é possivel isso ?? At. Marcio [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] [ClientDataSet atualizar base offline ]
Pra juntar dados, vc pode usar o método AppendData. Vc já tem um xml salvo, então vc carrega ele normalmente. Então vc faz um select com os registros alterados e carrega em outro ClientDataset e usa o AppendData. vDataSetLocal.LoadFromFile('dspTransportadora.cds'); vDataSetAlteracoes := DadosAlterados do servidor. vDataSetLoca.AppendData(vDataSetAlteracoes.Data, True); Acredito que funcione. Em 19 de julho de 2010 13:31, Marcio mar...@sulfabril.com.br escreveu: deixa eu explicar melhor para baixar a base faco desta maneira : Aplicação servidora : SqlDataset : Select * from transportadora Aplicação Cliente : Cds := TClientDataSet.Create(nil); Cds.RemoteServer := SoapConnection1; SoapConnection1.Connected := True; Cds.Close; Cds.ProviderName := 'dspTransportadora' ; Cds.Open; //Cds.SaveToFile('dspTransportadora' + '.XML'); Cds.SaveToFile('dspTransportadora.cds',dfBinary); Cds.Free; ShowMessage('arquivo baixado'); exit; desta maneira baixei todas as transportadora , mas se eu quiser so atualizar o dspTransportadora.xml ? se eu fizer um select , SqlDataset : Select * from transportadora where DataMod = :DataMod como faco para unir com o dspTransportadora.xml com os registros do sql ?? att. Marcio At 07:33 19/7/2010 -0700, you wrote: Amigo como você falou que grava a data de alteração de cada registro você pode simplesmente gerar um SQL (select) que filtre somente pela data de alteração, poderia ser registro a registro porque ai você teria como comparar a data do registro do arquivo local com a do que estar no Server. Estando usando ClientDataSet + XML é só desativar o ChangeLog do CDS para não manter o registro antigo. isso resolve? === Jean Barreiros Programador/Web-Designer Delphi|C++|PHP|JavaScript FireBird|MySql|SQLServer PostGree|Oracle msn: delphij...@gmail.com delphijean%40gmail.com e-mail: delphij...@yahoo.com.br delphijean%40yahoo.com.br === De: Marcio mar...@sulfabril.com.br marcio%40sulfabril.com.br Para: n...@yahoogrupos.com.br NDDV%40yahoogrupos.com.br Enviadas: Segunda-feira, 19 de Julho de 2010 11:15:58 Assunto: Re: [NDDV] [ ClientDataSet atualizar base offline ] Daniel ,obrigado pela atençao. Bom .. Estou tentando(tenho) construir uma aplicacao para os vendedores externos da empresa . esta aplicao vai ser off-line / online. os vendedores antes de ir ao cliente baixam a base com os dados atualizados ou uma vez por semana .. estou baixando os dados via SOAP , mas o problema é se cada vez que atualizar a base cliente tiver que trazer tudo , fica muito pesado . pretendo atualizar a BASE cliente somente com os registros novos no servidor . estive pesquisando sobre compressao de dados no datapack mais nao encontrei nada . é possivel isso ?? At. Marcio [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Re: MethodAddress retornando NIL [CANCELADO]
cara... eu utilizo a RTTI pra fazer chamadas a métodos da classe... para manipular os métodos e propriedades eu utilizo helpers para as classes da RTTI... se eu não me engano funciona com os métodos de qualquer escopo (ou menos da strict private.. não tenho certeza)... na verdade esse código eu achei na internet.. no site da embarcadero mesmo... mas agora não consegui achar pra passar o link.. então vou colocar o exemplo de como eu utilizo aqui --- Uses TypInfo, ObjAuto, uRClassProperties; type // declara os helpers para a RTTI TParamInfoHelper = record helper for TParamInfo public function AsString: string; function NextParam: PParamInfo; end; TReturnInfoHelper = record helper for TReturnInfo public function AsString: string; end; TMethodInfoHeaderHelper = record helper for TMethodInfoHeader private function GetReturnInfo: PReturnInfo; public property ReturnInfo: PReturnInfo read GetReturnInfo; end; TObjectHelper = class helper for TObject public function RTTIMethodsAsString: string; end; function DescriptionOfMethod( Obj: TObject; MethodName: string ): string; implementation uses SysUtils; const SHORT_LEN = sizeof(ShortString) - 1; function DescriptionOfMethod( Obj: TObject; MethodName: string ): string; var header: PMethodInfoHeader; headerEnd: Pointer; Params, Param: PParamInfo; returnInfo: PReturnInfo; begin header := ObjAuto.GetMethodInfo( Obj, MethodName ); if Header.Len = SizeOf(TMethodInfoHeader) - SHORT_LEN + Length(Header.Name) then begin Result := 'No rich RTTI'; exit; end; headerEnd := Pointer(Integer(header) + header^.Len); Params := PParamInfo(Integer(header) + SizeOf(header^) - SHORT_LEN + SizeOf(TReturnInfo) + Length(header^.Name)); Param := Params; Result := ''; while Integer(Param) Integer(headerEnd) do begin Result := Result + Param.AsString + '; '; Param := Param.NextParam; end; Delete( Result, Length(Result)-1,2 ); returnInfo := header.ReturnInfo; if assigned( returnInfo.ReturnType ) then Result := Format( 'function %s( %s ): %s', [ MethodName, Result, returnInfo.AsString ] ) else Result := Format( 'procedure %s( %s )%s', [ MethodName, Result, returnInfo.AsString ] ); end; { TParamInfoHelper } function TParamInfoHelper.AsString: string; begin Result := ''; if pfResult in Flags then exit; Result := Name + ': ' + ParamType^.Name; if pfVar in self.Flags then Result := 'var ' + Result; end; function TParamInfoHelper.NextParam: PParamInfo; begin Result := PParamInfo(Integer(@self) + SizeOf(self) - SHORT_LEN + Length(Name)); end; { TMethodInfoHeaderHelper } function TMethodInfoHeaderHelper.GetReturnInfo: PReturnInfo; begin Result := PReturnInfo(Integer(@self) + SizeOf(TMethodInfoHeader) - SHORT_LEN + Length(Name)); end; { TReturnInfoHelper } function TReturnInfoHelper.AsString: string; var c: string; begin Assert( Version = 1, 'Version of ReturnInfo incorrect' ); if assigned( ReturnType ) then Result := ReturnType^.Name; Result := Result + ';'; case CallingConvention of ccRegister: ;// Default ccCdecl: c := 'cdecl'; ccPascal: c := 'pascal'; ccStdCall: c := 'stdcall'; ccSafeCall: c := 'safecall'; end; if c '' then Result := Result + ' ' + c + ';'; end; { TObjectHelper } function TObjectHelper.RTTIMethodsAsString: string; var MethodInfo: Pointer; Count: Integer; method: PMethodInfoHeader; i: Integer; begin MethodInfo := PPointer(Integer(PPointer(self)^) + vmtMethodTable)^; if MethodInfo nil then begin Count := PWord(MethodInfo)^; Inc(Integer(MethodInfo), 2); method := MethodInfo; for i := 0 to Count - 1 do begin Result := Result + DescriptionOfMethod(self, method.Name) + sLineBreak; Inc(Integer(method), PMethodInfoHeader(method)^.Len); end; end; end; -- feito isso, adicione essa unit a Uses que irá fazer as chamadas... e utilize normalmente os métodos da RTTI para recuperar as informacoes do objeto em um TreeView, por exemplo: --- procedure GenerateNodes(Obj: TObject; Node: TTreeNode); var i: byte; InternalNode1, InternalNode2, InternalNode3: TTreeNode; PropList: PPropList; PropListCount: byte; MethodInfo: Pointer; MethodListCount: byte; Method: PMethodInfoHeader; begin if Assigned(Node) then InternalNode1 := Node else InternalNode1 := TreeView1.Items.Add(nil, Obj.ClassName); //Propriedades InternalNode2 := TreeView1.Items.AddChild( InternalNode1, 'Propriedades'); PropListCount := GetPropList(Obj, PropList); for i := 0 to Pred(PropListCount) do begin InternalNode3 := TreeView1.Items.AddChild(InternalNode2, string(PropList[i].Name) + '=' +
Re: [delphi-br] Delphi 6, 7 ou 2006?
Oi Bruno, pode dar mais detalhes de como trocar o gerenciador de memória para o FastMM, achei que isso já era padrão no BDS 2006. []s Andrei Em 19 de julho de 2010 18:26, Bruno Lichot bruno.lic...@microfocus.com escreveu: Certifique-se apenas de ter o update 2 do Delphi 2006 instalado, e troque o gerenciador de memória para o FastMM. Certifique-se de que possui todos os componentes de terceiros que precisa e vai com tudo. A época de minha migração do Delphi 7 para o 2006 no final de 2005 foi fantástica, muitas melhorias na IDE, meior produtividade melhores recursos, toda a parte de modelagem, em fim..muitas coisas. Pode ir sem medo para o 2006. Agora se estiver em pauta atualização para uma versão mais recente, Delphi 2010 está fantastico From: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] On Behalf Of Júlio César Santiago Guiótti Sent: segunda-feira, 19 de julho de 2010 16:58 To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Delphi 6, 7 ou 2006? Olá, hoje no projeto no qual trabalho utilizamos o Delphi 6. Estamos pensando em migrar para Delphi 2006, pois é a versão mais atual que possuímos licença. O projeto é um sistema desktop. No entanto, li e ouvi inúmeras críticas à versão 2006. Compensa o desgaste para migração? Me recomendaram migrar para a versão 7, que também possuímos licença. Obrigado, Júlio César Santiago Guiótti [As partes desta mensagem que não continham texto foram removidas] Click here https://www.mailcontroller.altohiway.com/sr/QSkFk7Ms9a3TndxI!oX7UpjH47C2n8lqQbMzRqMv6LVWRrIBW2WdcTQjXSXzH8!lNUUfQqbyebUNWyQ1f1p+mg== to report this email as spam. This message has been scanned for viruses by MailController http://www.MailController.altohiway.com/ . [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM