[delphi-br] Re: som interno no pc (pc speaker)
ohhh Zé Ruela, tenta Windows.Beep(freqüência, tempo); ambos são Cardinal. Ps.: vê se é um pouco menos arrogante da próxima vês, ninguém aqui é obrigado a responder cretinos como vc ... --- Em delphi-br@yahoogrupos.com.br, KLEITON [EMAIL PROTECTED] escreveu ola galera!...blz? bom, ninguem descobriu ou ñ quis responder como cria link num memo ou richedit, mas será q alguem sabe como toca som no alto falante interno do pc? pra delphi 2005 e windows xp. vlw t++ Kleiton B. Santos - Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho 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
[delphi-br] Assign em um Objeto TQuery
Ola, estou precisando clonar o ResultSet de uma Query(TQuery) em outra. Ex. Query1.assign(Query2); Como não é possível(Creio eu) dar um assign do ResultSet de uma Query em outra, pensei em usar um MemoryStream carregando-o com o ResultSet da Query2 e depois carregar a Query1 lendo do MemoryStream. Gostaria de saber se algum dos colegas já usou algo parecido ou teria uma ideia melhor para me sugerir. Ps. - Preciso que as 2 Query´s apontem para endereços de memória diferentes ou seja, não posso usar Query1 := Query2. - A Query1 poderia ser um ClientDataSet. - Não queria varrer uma Query para preencher a outra Exp.: For, While, etc ... Antecipadamente agradeço -- 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] Re: Rotina para limpar campos dando problemas me unit sem form
Oi, vc esqueceu de dizer pro seu metodo em que form ele deve procurar os edits ... Segue as alterações necessárias ... //Assinatura do metodo procedure LimparCampos(AForm: TForm); //metodo procedure LimparCampos(AForm: TForm); var i : integer; begin for i:=0 to AForm.ComponentCount-1 do begin if ( (AForm.Components[i] is TEdit) or (AForm.Components[i] is TMaskEdit) )then TEdit(AForm.Components[i]).Clear; end; end; //Chamada do metodo LimparCampos(Self); Abraços ... -- 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] Re: Migrar para sistema multicamadas
Welson, Que Banco de Dados vc usa e com que metodo de acesso ? Ex. BDE, DBExpress etc ... Vc vai ter IP Fixo ou Dinâmico ? Qual é a sua infra-estrutura de rede (Tem Roteador) ? --- Em delphi-br@yahoogrupos.com.br, Welson Avelar [EMAIL PROTECTED] escreveu Amigos, perdoem o assunto do email, as foi o mais próximo que encontrei para chamar a atenção para a minha questão. É o seguinte: temos hoje aqui na empresa um sistema que está em um cliente com filiais espalhadas por Minas. Quando foi colocado o sistema, tinha a necessidade que os bancos de dados de todos (matriz e filiais) permanecessem atualizados. Na época (eu não estava na empresa ainda) foi feito o seguinte: A filial extrai todos os dados, de todas as tabelas, que foram alterados e NÃO enviados na última exportação e manda para a matriz. A matriz importa e exporta alguma coisa que ela tenha feito, no mesmo esquema que as filiais, ou seja, extrai os dados, de todas as tabelas, que foram alterados e NÃO enviados na última exportação. Isso nós fazíamos porque o cliente tinha conexão discada e somente a matriz tinha banda larga (ela fica em Belo Horizonte). Recentemente todas as filiais colocaram banda larga e eles resolveram centralizar o banco de dados, porque é mais seguro contra invasão (física mesmo, de alguém ir lá e roubar o BD) e roubo dos dados. Bom, essa foi a explanação sobre como funciona o sistema hoje. É na filosofia de cliente/servidor. Pra colocar da forma que o cliente deu idéia, eu coloquei a possibilidade de passarmos pra multicamadas, mas uma dúvida ficou pertinente: o cliente disponibilizando um servidor dedicado, como eu conectarei remotamente a essa máquina ?! O que eu quero saber é se basta passar o IP do servidor para conectar a máquina e 'voi lá', já conectei... Acho que falta perguntar mais coisas, mas como é uma coisa absolutamente inédita pra mim, nem sei o que perguntar. Por isso que peço a ajuda dos amigos da lista, pra poderem me dar a luz no problema. []s. = O que me preocupa não é o grito dos maus. É o silêncio dos bons. Martin Luther King. = Welson de Avelar Soares Filho Analista/Programador Delphi Gemini Sistemas www.geminisistemas.com.br Juiz de Fora - Minas Gerais = ___ Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! http://br.mobile.yahoo.com/mailalertas/ -- 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] Re: LayOut de Arquivo
Nelsimar, vc pode baixar o manual no site abaixo ... http://www.febraban.org.br/Arquivo/Servicos/Downloads/download_lista.asp?id_comissao=4 Abraços --- Em delphi-br@yahoogrupos.com.br, [EMAIL PROTECTED] escreveu Pessoal, Alguem ja desenvolvel algum programa para geração do arquivo de Custodia de Cheque padrão Febraban Estou precisando desenvolver um programa mas não estou conseguindo me achar como o manual da febraban nelsimar. [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] Re: TStrings
Bruno, tenta form2.memo1.lines.Add('Teste') --- Em delphi-br@yahoogrupos.com.br, Julio Cesar [EMAIL PROTECTED] escreveu form2.memo1.lines.TEXT? Julio Cesar [EMAIL PROTECTED] +353 (87) 2184139 +353 (091) 630317 - Original Message - From: Bruno To: Delphi-Br Sent: Saturday, August 26, 2006 7:29 PM Subject: [delphi-br] TStrings Boa tarde , Estou tentando passar uma variável string para a form2.memo1.lines e não tá dando certo. O compilador diz que String é diferente de TString e que TString é o do memo. Alguém sabe como posso contornar o problema ? Abraços, Bruno. [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] 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 ... -- 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] Re: Problema com interfaces.
Oi Ricardo, Não sei se vc sabe para que serve um interface, mas o uso de uma interface exige que vc tenha um bom nível de conhecimento para usa-la. Tem uma série de erros no que vc está querendo implementar. Primeiro: vc declarou 2 métodos na Interface(GetNome e SetNome) que não foram declarados no Objeto. Segundo: Seu Metodo GetNome e SetNome precisam de um atributo FNone por exemplo para ler e escrever dele. Ex. TMeuObjeto = class(TObject,IMinhaInterface) private FNome: String; function GetNome: String; procedure setNome(const Value: String); public property Nome: String Read GetNome Write SetNome; end; //Onde function GetNome: String; begin Result := FNome; end; procedure setNome(const Value: String); begin FNome := Value; end; Terceiro: Vc precisará implementar Identificadores globais unicos GUID (globally unique identifier) além dos métodos _AddRef e _Release. Seu Objeto ficaria +/- assim ... TMeuObjeto = class(TObject,IMinhaInterface) protected FRefCount: Integer; function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall; function _AddRef: Integer; stdcall; function _Release: Integer; stdcall; private FNome: String; function GetNome: String; procedure setNome(const Value: String); public procedure AfterConstruction; override; procedure BeforeDestruction; override; //class function NewInstance: TObject; override; property RefCount: Integer read FRefCount; property Nome: String read GetNome Write setNome; end; e sua interface +/- assim ... IMinhaInterface = interface function GetNome:String; procedure SetNome(Const Value : String); end; Vc instanciaria seu objeto assim : procedure TForm1.Button1Click(Sender: TObject); Var Obj : TMeuObjeto; begin try //instacia um objeto TMeuObjeto Obj := TMeuObjeto.create; //Atribui um valor ao atributo nome Obj.Nome := 'Teste'; //exibe o atributo Nome num ShowMessage ShowMessage(Obj.GetNome); finally //Desaloca o Objeto da memoria e aterra o ponteiro FreeAndNil(Obj); end; end; Vale ressaltar que sua interface deve ficar numa unit diferente da do seu Objeto. Bem, espero que tenha lhe ajudado ... Abraços Eduardo Bianchi Ribeiro -- 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] Re: Delphi + Zeos + postgre 8 ..
Luiz, o Zeos é um pacote excelente para postgres, mas ele só tem suporte para postgreSQL até a versão 7.4, contudo eu uso a versão zeosdbo-6.1.5-stable com Postgre V8.0 sem problemas. Que Erro ta dando ? --- Em delphi-br@yahoogrupos.com.br, Luiz Eduardo Oliveira Fonseca [EMAIL PROTECTED] escreveu aí galera ... gotei mto do postgree .. uso ele no php e roda legalzinho ... só q eu queria migrar meus sistemas grandes do firebird para o postgree .. pq o firebird num tá aguentando .. e tbm .. na faculdade q eu trabalho .. agente vai centralizar o banco de dados no postgree .. só q lá .. tem mta coisa em delphi .. e é o seguinte .. eu to desistindo de instalar o zeos rsrs .. eu nao consegui msm .. ele instalou tudo .. mas na hora de acessar o postgre8.1 .. ele dá erro! se alguem souber de como instralar o zeos .. ou tiver o compoennte q funciona legal .. por fasvor .. me manda por email .. [EMAIL PROTECTED] .. eu vo fikar mto agradecido .. pq realmente eu nao estou conseguindo .. tenho grande esperiencia em delphi .. etc ... e posso afirmar q estou fazendo todos os passos corretamente .. se alguem puder ajudar .. fiko feliz :) vlw -- Atenciosamente, Luiz Eduardo. Desenvolvimento de Sistemas PHP e Delphi Manutenção em Base de Dados MySQL , Interbase/Firebird e MS Access ... Fone: (12) 8143-7191 email alternativo: [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] Re: Opiniões sobre herança para acesso ao banco de dados usando DBExpress
Oi Cândido, eu desenvolvi um Framework que faz +/- isso que vc está pretendendo fazer só que extremamente completo e complexo e que me custou alguns meses de desenvolvimento da classe básica e repositorio, sei das dificuldades e duvidas que vc deve está passando porque acho que tive as mesmas que vc está tendo. Acho que posso lhe ajudar nessa sua empreitada ... hehehe Antes de mais nada, gostaria de lhe dizer que o tempo gasto no desenvolvimento da classe basica é recompesado com a produtividade, que vc terá quando a mesma estiver pronta. Bem, meu framework funciona +/- assim: Eu tenho uma classe basica para cada entidade do banco que contém um TCollection e um TColletionItem com os metodos Get e Set do Objeto. Tenho um repositorio(No meu caso um DataModule, já que um DataModule nada mais é do que um repositório) que contém os metodos de acesso a dados, cada entidade do banco além da classe basica tb tem um repositorio herdado do meu repositorio principal(TManagerDataModule) com as regras de negocio de cada entidade. Não implementei uma Interface, mas ela já está prevista na próxima versão do framework além uma série de mudanças na classe básica pricipal e outras no repositorio principal. Bem ... superficialmente falando é +/- isso. Qualquer duvida me pergunta ... Haaa não uso componentes visuais, os objetos são criados dinamicamente. Abraços Eduardo Bianchi Ribeiro --- Em delphi-br@yahoogrupos.com.br, Cândido Luís Dias Ferreira [EMAIL PROTECTED] escreveu Povo Pretendo criar uma unit que contenha classes básicas para acesso ao BD. Haveria uma classe ancestral com as propriedades e métodos genéricos e quatro classes filhas para insert, update, delete e select. As outras units criariam objetos a partir das classes filhas. A unit para acesso ao BD faz parte de uma idéia maior de separar a aplicação em três partes fundamentais: interface do usuário, regras de negócio e acesso ao BD. A idéia é possuir o menor acoplamento possível com a GUI, além de reaproveitar mais rapidamente a unit para acesso ao BD. Entretanto, não pretendo e tenho receio de partir para uma solução que tente reinventar a roda. Neste momento, estou tentando implementar a unit para acesso BD com apenas um componente visual, o SQLConnection. A Query, DataSetProvider, ClientDataSet e DataSource estou tentando criar em tempo de execução a partir de TQuery, TDataSetProvider, TClientDataSet e TdataSource. Estou com problemas para implementar desse modo, assim , gostaria de saber se alguém pode falar alguma coisa sobre: 1.. a divisão do aplicativo nessas três partes principais; 2.. a criação dinâmica dos objetos DataSet e DataSource - em lugar da utilização visual direta em datamódulos; Atenciosamente Cândido Luís Dias Ferreira [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] Re: SimpleDataSet em tempo de execução
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 ... -- 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] Re: Gravação de dados
Eduardo, o que vc chama de label no banco ? vc se refere ao nome do campo ? Qual é o retorno do método que vc escreveu ? uma String ? se vc quiser o nome do campo, exitem diversas formas de se capturar-los. Vc pode usar Query.FieldList.GetText que lhe retornará toda a lista de campos da query ou usar um FOR para varrer a lista de campos dentre outras muitas possibilidades ... Ex. for i:=0 to query.Recordcount-1 do ClientDataSet1.FieldList.Strings[i]; Abraço !!! --- Em delphi-br@yahoogrupos.com.br, eduardobolela [EMAIL PROTECTED] escreveu Boa noite pessoal, gostaria de saber como faço para gravar um valor que está no label no banco de dados. Funciona da seguinte forma: Tem um processo no meu programa, onde um algortimo extrai os caracteres de uma placa e me retorna num label, então como faço para gravar estes caracteres no banco? Alguém poderia me passar o processo de gravação? Ficarei muito agradecido... -- 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] Re: como nao mostrar para o usuario uma mensgaem de erro do delphi
Oi dentro do Try Except o Erro só é exibido em tempo de execuçao se vc rodar o executável o erro não aparerá ... mp3player.Open; try mp3player.play; except //on e:Exception showmessage('saiu'); end; Abraços --- Em delphi-br@yahoogrupos.com.br, Delphi grupo [EMAIL PROTECTED] escreveu quando tento abrir via componente mediaplayer uma musica mp3 corrompida aparece uma mensgaem de erro device mci etc o que eu quero e nao mostar para o usuario nenhuma mensagem de erro como posso fazer isso eis o codigo mp3player.Open; try mp3player.play; except //on e:Exception begin //showmessage('saiu'); exit; 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] 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] Re: Performance em migração de Dados entre Bancos - SQL Server e Oracle
Raphael, o Oracle realmente consome muito recurso do sistema, mas voltando ao assunto, eu aconcelharia vc a exportar os Dados usando o SGBD, tanto o Sql Server quanto o Oracle lhe permite escrever codigo para fazer suas alteraçôes antes de grava-las. Outra alternativa seria exportar tudo sem alterações e depois fazer-las via SQL. Como vc está fazendo essa importação ? está varendo todo o ResultSet de uma query, alternado os dados e postando linha a linha ? vc já tentou usar o BatchMove ? com ele vc pode especificar de quantos em quantos registros vc quer Commitar os dados ... Abraços --- Em delphi-br@yahoogrupos.com.br, raphasaraiva [EMAIL PROTECTED] escreveu Olá Pessoal, Estou com o seguinte problema: Fiz um sistema em Delphi 6 que exporta 61.000 registros de um banco SQL Server e os importa em um banco Oracle 9i. Estou tendo sérios problemas de performance, ele roda bem até os 5.000 primeiros, depois começa a ficar cada vez mais lento ... Esse processo está sendo feito via sistema porque preciso fazer algumas alterações nas informações vindas do SQL antes de importar no Oracle. Acho que não estou usando a arquitetura correta, pois estou rodando o sistema do servidor do Oracle, windows 2000 e só o serviço do Oracle consome 430 mb de RAM. Tenho no total 1.5 GB de RAM ... mas essa é minha única alteranativa. Algum amigo tem uma dica para me ajudar? Raphael -- 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] Re: Erro ao ler form
Joaquim, provavelmente vc utiliza um Componente nesse form que vc não instalou, vc utiliza alguma library da Novell nesse form ? tenta adicionar essa unit que estou postando ao seu projeto, acho que esse é o Objeto que está faltando no seu form ... Abraços ... unit Select; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, CalWin32, NetWin32; type TSelectObjectForm = class(TForm) btnOK: TButton; btnCancel: TButton; fraObjects: TGroupBox; btnSetContext: TButton; lblContext: TLabel; lstObjects: TListBox; procedure FormCreate(Sender: TObject); procedure btnSetContextClick(Sender: TObject); private { Private declarations } hContext: NWDSContextHandle; FObjectClass: string; function GetObjectClass: string; procedure SetObjectClass(aValue: string); public { Public declarations } procedure ChangeToContext(aContext: NWDSContextHandle); procedure CanonicalizeNames; property ObjectClass: string read GetObjectClass write SetObjectClass; end; var SelectObjectForm: TSelectObjectForm; implementation uses NWHelper, Context; {$R *.DFM} // { Private Methods } function TSelectObjectForm.GetObjectClass: string; begin GetObjectClass := FObjectClass; end; // TSelectObjectForm.GetObjectClass() procedure TSelectObjectForm.SetObjectClass(aValue: string); begin if (FObjectClass aValue) then begin FObjectClass := aValue; lstObjects.Items.Clear; lstObjects.Items.AddStrings(GetObjectList(hContext, FObjectClass)); end; // if (FObjectClass aValue) end; // TSelectObjectForm.SetObjectClass() // { Public Methods } procedure TSelectObjectForm.ChangeToContext(aContext: NWDSContextHandle); var Context: array[0..MAX_DN_BYTES] of Char; begin try NWCheckAndThrow( NWDSDuplicateContextHandle(aContext, hContext) ); NWCheckAndThrow( NWDSGetContext(hContext, DCK_NAME_CONTEXT, @Context) ); lblContext.Caption := Context; lstObjects.Items.Clear; lstObjects.Items.AddStrings(GetObjectList(hContext, FObjectClass)); except on E:ENWException do E.Show(); end; // try-except end; // TSelectObjectForm.ChangeToContext() procedure TSelectObjectForm.CanonicalizeNames; var ShortName, CanonName: array[0..MAX_DN_BYTES] of Char; Index: Integer; bChecked: Boolean; begin for Index := 0 to lstObjects.Items.Count - 1 do begin bChecked := lstObjects.Selected[Index]; // Preserve setting StrPCopy (ShortName, lstObjects.Items[Index]); try NWCheckAndThrow( NWDSCanonicalizeName(hContext, @ShortName, @CanonName) ); except on E:ENWException do E.Show(); end; // try-except lstObjects.Items[Index] := '.' + string(CanonName); lstObjects.Selected[Index] := bChecked; end; // for end; // TSelectObjectForm.CanonicalizeNames // { Delphi-Generated Methods } procedure TSelectObjectForm.FormCreate(Sender: TObject); begin FObjectClass := '';// Show all objects hContext := GetContextHandle(); end; procedure TSelectObjectForm.btnSetContextClick(Sender: TObject); var ContextDlg: TContextForm; NameContext: array[0..MAX_DN_BYTES] of Char; begin // Initialize ContextDlg := TContextForm.Create(self); ContextDlg.ChangeToContext(hContext); // Show the selection dialog if (ContextDlg.ShowModal = mrOk) then begin // Get the new Name Context StrPCopy (NameContext, ContextDlg.NameContext); NWCheckAndThrow( NWDSSetContext(hContext, DCK_NAME_CONTEXT, @NameContext) ); lstObjects.Items.Clear; lstObjects.Items.AddStrings(GetObjectList(hContext, FObjectClass)); end; // OK hit ContextDlg.Free; end; end. --- Em delphi-br@yahoogrupos.com.br, Joaquim Macedo [EMAIL PROTECTED] escreveu Olá a todos. Utilizo o Delphi 5 Enterprise. O disco duro da máquina onde tinha instalado o Delphi morreu. Instalei o Delphi noutra máquina, mas dá erro ao ler um form, do meu programa: Class TSelectDlgT not found. Ignore the error and continue? NOTE: Ignoring the error may cause components to be deleted or property values to be lost. O que fazer para corrigir este erro? Desde já, o meu muito obrigado. Cumprimentos, Joaquim. -- 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:
[delphi-br] Re: Erro ao acessar form
Alex, Acho que o metodo Create só aceita um parametro, mas pelo que entedi, vc está tentando mandar uma string que na verdade está no ResultSet de uma Query num DataModule. Porque vc não acessa essa query direto do form novo ? Uma Dica, depois que vc Instancia o Objeto FContrato, ele já pode ser acessado, mesmo antes do show/showmodal pois ele já está na memoria. Vc já poderia mandar esse COD_CONTRATO diretamente para um Edit que está no form novo mesmo antes do Show/Showmodal. Abraço --- Em delphi-br@yahoogrupos.com.br, Alex Canario [EMAIL PROTECTED] escreveu Pessoal bom dia a todos, Estou criando um form da seguinte forma. try FContrato := TFContrato.Create(self, FDM.dtContratos_ax1.FieldByName('COD_CONTRATO').AsString); FContrato.ShowModal; finally FreeAndNil(FContrato); end; //Crio dessa forma para passar o parametro na criação para o form novo. Porem ao tentar acessar qualquer objeto no form criado dessa maneira, ocorre o excessao de Access Violation. Fcontrato.btSalvar.Enabled := False; Obrigado a quem puder me ajudar; Alex Canário [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