[delphi-br] URGENTE: UserControl Decriptar senha para teste
Olá pessoal, Alguém pode me ajudar com o problema de como decriptar a senha do usuário usando o compoente UserControl ? Preciso criar uma rotina onde ao excluir um registro do cadastro de membros ele teste a senha do usuário e caso não seja o ADMINISTRADOR não poderá excluir. Tentei o procedimento abaixo, mas não deu certo, alguém pode me ajudar. procedure TfrmMembros.btnExcluirClick(Sender: TObject); *var vPermissaoSenha: string; begin if SolicitarPermissao('Solicitar Permissão', 'Informe a senha do Administrador:', vPermissaoSenha) = True then begin frmPrincipal.vSenha := Decrypt(frmPrincipal.vSenha, frmPrincipal.UCPrincipal.EncryptKey); if (UpperCase(vPermissaoSenha) = frmPrincipal.vSenha) and (frmPrincipal.vUsuario = 'ADMIN') then begin activecontrol := nil; dm.membros.Delete; end; end; end;* Att, Jorge Ericsson S. Pinheiro Ericsson Sistemas e Soluções (61) 3244-4748 / 8592-9960 / 9227-4785 http://www.jericsson.com.br jericsson...@gmail.com jericsson...@jericsson.com.br skype:jericsson Brasília - DF [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] URGENTE: UserControl Decriptar senha para teste
Jorge, Se nao me engano nao tem como desencriptar. O codigo usado eh o MD5. Nao ha como reverter. O que pode ser feito eh atribuir um usuario e senha ja conhecidos e exibi-los para o usuario. Ou seja, cancelar o registro e inserir um outro (bem conhecido) feito pelo sistema. Obrigado MuriloCunha On 16/08/2010 15:49, Jorge Ericsson wrote: Olá pessoal, Alguém pode me ajudar com o problema de como decriptar a senha do usuário usando o compoente UserControl ? Preciso criar uma rotina onde ao excluir um registro do cadastro de membros ele teste a senha do usuário e caso não seja o ADMINISTRADOR não poderá excluir. Tentei o procedimento abaixo, mas não deu certo, alguém pode me ajudar. procedure TfrmMembros.btnExcluirClick(Sender: TObject); *var vPermissaoSenha: string; begin if SolicitarPermissao('Solicitar Permissão', 'Informe a senha do Administrador:', vPermissaoSenha) = True then begin frmPrincipal.vSenha := Decrypt(frmPrincipal.vSenha, frmPrincipal.UCPrincipal.EncryptKey); if (UpperCase(vPermissaoSenha) = frmPrincipal.vSenha) and (frmPrincipal.vUsuario = 'ADMIN') then begin activecontrol := nil; dm.membros.Delete; end; end; end;* Att, Jorge Ericsson S. Pinheiro Ericsson Sistemas e Soluções (61) 3244-4748 / 8592-9960 / 9227-4785 http://www.jericsson.com.br jericsson...@gmail.com jericsson...@jericsson.com.br skype:jericsson Brasília - DF [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] URGENTE: UserControl Decriptar senha para teste
Eu percebi isso Murilo, então criei um usário mestre que não aparece na lista de usuários onde solicito a senha desse usuário. Só assim consegui resolver o problema. De qq forma valew pelas dicas pessoal. Abraços. Em 16 de agosto de 2010 17:31, Murilo Cunha mcscu...@yahoo.com.brescreveu: Jorge, Se nao me engano nao tem como desencriptar. O codigo usado eh o MD5. Nao ha como reverter. O que pode ser feito eh atribuir um usuario e senha ja conhecidos e exibi-los para o usuario. Ou seja, cancelar o registro e inserir um outro (bem conhecido) feito pelo sistema. Obrigado MuriloCunha On 16/08/2010 15:49, Jorge Ericsson wrote: Olá pessoal, Alguém pode me ajudar com o problema de como decriptar a senha do usuário usando o compoente UserControl ? Preciso criar uma rotina onde ao excluir um registro do cadastro de membros ele teste a senha do usuário e caso não seja o ADMINISTRADOR não poderá excluir. Tentei o procedimento abaixo, mas não deu certo, alguém pode me ajudar. procedure TfrmMembros.btnExcluirClick(Sender: TObject); *var vPermissaoSenha: string; begin if SolicitarPermissao('Solicitar Permissão', 'Informe a senha do Administrador:', vPermissaoSenha) = True then begin frmPrincipal.vSenha := Decrypt(frmPrincipal.vSenha, frmPrincipal.UCPrincipal.EncryptKey); if (UpperCase(vPermissaoSenha) = frmPrincipal.vSenha) and (frmPrincipal.vUsuario = 'ADMIN') then begin activecontrol := nil; dm.membros.Delete; end; end; end;* Att, Jorge Ericsson S. Pinheiro Ericsson Sistemas e Soluções (61) 3244-4748 / 8592-9960 / 9227-4785 http://www.jericsson.com.br jericsson...@gmail.com jericssonsup%40gmail.com jericsson...@jericsson.com.br jericssonsup%40jericsson.com.br skype:jericsson Brasília - DF [As partes desta mensagem que não continham texto foram removidas] -- Att, Jorge Ericsson S. Pinheiro Ericsson Sistemas e Soluções (61) 3244-4748 / 8592-9960 / 9227-4785 http://www.jericsson.com.br jericsson...@gmail.com jericsson...@jericsson.com.br skype:jericsson Brasília - DF [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] Urgente: Pedendo estado de inserção após tela de confirmação
Olá amigos Estou com um sério problema na minha aplicação delphi 7 + mysql + ADO. Estava funcionando tudo perfeitinho numa rotina de registro de entrada a anos, após uma alteração solicitada pelo meu usuário, eu coloquei apenas uma mensagem de confirmação e após a confirmação o mesmo mudou o estado de dsInset para dsInactive. Estou tentando encontrar o problema e não consigo será que alguém já passou por isso ? Segue abaixo um trecho do código que parou de funcionar logo após a mensagem de confirmação. *procedure TFormEntradas.GravarEntradaContribuicao(vContaContabil : String); begin try //Iniciar a inserção de dados na tabela de contribuição if (DBLookupFormaPagto.KeyValue = Null) or (DBLookupFormaPagto.KeyValue = 0) Then begin DBLookupFormaPagto.SetFocus; Application.MessageBox('O campo Forma de Pagamento é de preenchimento OBRIGATÓRIO.','Aviso do Sistema',MB_OK + MB_ICONWARNING); Exit; end; vVlrEntrada := StrToFloat(BuscaTroca(dbevlrEntrada.Text,'.','')); if (Trim(dbevlrEntrada.Text) = '') or (vVlrEntrada = 0) Then dbevlrEntrada.SelectAll; //Até aqui o DataSet está com Inserção if (Application.MessageBox(Pchar('Confirma a CONTRIBUIÇÃO no valor de R$ '+FormatFloat('#,##0.00', vVlrEntrada)+' ?'), 'Entrada de Contribuição', MB_ICONQUESTION + MB_YESNO) = IDYES) then begin //Após a confirmação do valor o mesmo muda para dsInactive e não entra na rotina abaixo //Gostaria de entender o motivo dessa mudança.. Screen.Cursor := crSQLWait; //Aqui if (dtsEntradas.DataSet.State in [dsInsert, dsEdit]) and (dtsContaContabil.DataSet.FieldByName('cta_contabilred').Value 0) and (dtsFormaPgto.DataSet.FieldByName('cod_formapgto').Value 0) Then begin vVlrEntrada := StrToFloat(BuscaTroca(dbevlrEntrada.Text,'.','')); vDtaEntrada := FormatDateTime('/mm/dd',Now); vHraEntrada := FormatDateTime('HH:mm',Now); btnImprimir.Enabled := True; * Obrigado, Jorge Ericsson Brasília - DF [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] URGENTE: Problema com Exceções
Se uma exceção acontece dentro de um bloco try..except, por padrão ela será capturada pelo Debugger e exibida dentro da IDE. No Debugger Options do Delphi7 há um configuração Stop On Delphi Exceptions que desabilita esse comportamento. Deve haver algo equivalente no lazarus. Dirlei. Em Ter, 2010-04-27 às 19:49 -0300, Paulo César escreveu: Pessoal, Uso o Lazarus e desenvolvi o seguinte código: procedure TForm1.Button1Click(Sender: TObject); begin try Edit3.text:=floattostr(strtofloat(edit1.text)/strtofloat(edit2.text)); except on E:Exception do begin ShowMessage(E.message); end; end; end; Quando ele executa, ele dá o seguinte erro: project1.exe raised exception class 'External: SIGFPE' Porém, se eu executo ele pelo .exe, ele não causa o erro. Quem pode ajudar? É urgente pessoal!!! Abraços, Atenciosamente, Paulo César de Oliveira, [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] URGENTE: Problema com Exceções
Se uma exceção acontece dentro de um bloco try..except, por padrão ela será capturada pelo Debugger e exibida dentro da IDE. No Debugger Options do Delphi7 há um configuração Stop On Delphi Exceptions que desabilita esse comportamento. Deve haver algo equivalente no lazarus. Dirlei. Em Ter, 2010-04-27 às 19:49 -0300, Paulo César escreveu: Pessoal, Uso o Lazarus e desenvolvi o seguinte código: procedure TForm1.Button1Click(Sender: TObject); begin try Edit3.text:=floattostr(strtofloat(edit1.text)/strtofloat(edit2.text)); except on E:Exception do begin ShowMessage(E.message); end; end; end; Quando ele executa, ele dá o seguinte erro: project1.exe raised exception class 'External: SIGFPE' Porém, se eu executo ele pelo .exe, ele não causa o erro. Quem pode ajudar? É urgente pessoal!!! Abraços, Atenciosamente, Paulo César de Oliveira,
Re: [delphi-br] URGENTE: Problema com Exceçõe s
Não uso Lazarus, mas creio que seja bem parecido com o Delphi. No Delphi, quando vc executa o sistema a partir do próprio Delphi, ele para a execução do programa e exibe a mensagem de erro, mesmo com código de captura de erro. Isso serve para o programador acompanhar detalhadamente o que ocorre. Mas quando se executa apenas o programa (.exe), os blocos de tratamento de erro funcionam normalmente, pois presumi-se que o programador ja deixou o tratamento adequado ao erro em questão, não sendo necessários outros avisos ao usuário final que normalmente é leigo Sds, Fabiano de Almeida. Em 27/04/2010 19:49, Paulo César escreveu: Pessoal, Uso o Lazarus e desenvolvi o seguinte código: procedure TForm1.Button1Click(Sender: TObject); begin try Edit3.text:=floattostr(strtofloat(edit1.text)/strtofloat(edit2.text)); except on E:Exception do begin ShowMessage(E.message); end; end; end; Quando ele executa, ele dá o seguinte erro: project1.exe raised exception class 'External: SIGFPE' Porém, se eu executo ele pelo .exe, ele não causa o erro. Quem pode ajudar? É urgente pessoal!!! Abraços, Atenciosamente, Paulo César de Oliveira, [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] URGENTE: Problema com Exceções
Pessoal, Uso o Lazarus e desenvolvi o seguinte código: procedure TForm1.Button1Click(Sender: TObject); begin try Edit3.text:=floattostr(strtofloat(edit1.text)/strtofloat(edit2.text)); except on E:Exception do begin ShowMessage(E.message); end; end; end; Quando ele executa, ele dá o seguinte erro: project1.exe raised exception class 'External: SIGFPE' Porém, se eu executo ele pelo .exe, ele não causa o erro. Quem pode ajudar? É urgente pessoal!!! Abraços, Atenciosamente, Paulo César de Oliveira, [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Urgente: Exporta para WORD 2003
Olá amigos, Alguém conhece uma solução de exportação de relatório no *QuickReport*(apenas), para * Word 2003* (Doc). Para RTF eu já consegui mas a formatação do relatório não fica 100% usando a instrução abaixo: with SaveDialog1 do begin if Execute then begin self.RPreview.QRPrinter.ExportToFilter(TQRRTFExportFilter.Create(FileName)); { Other filters: HTML: TQRHTMLDocumentFilter ASCII: TQRAsciiExportFilter CSV: TQRCommaSeparatedFilter WMF: TQRWMFExportFilter Excel: TQRXLSFilter } end; end; Grato pela ajuda, Jorge Ericsson S. Pinheiros Ericsson Sistemas e Soluções (61) 3244-4748 / 8592-9960 / 9227-4785 http://www.jericsson.com.br jericsson...@gmail.com jericsson...@jericsson.com.br skype:jericsson Brasília - DF [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Urgente: Erro ao atualizar dados em uma tabela.
Jorge, este erro normalmente aconteceu porque a tabela ou não tem uma chave primária ou uma chave primaria não muito consistente e a atualização que voce tentou fazer consiste em um registro que já exista no banco ou que o SGBD interpretou como um registro duplicado. Seria interessante, por exemplo, voce postar o código da rotina aque pra ver se dá pra enxergar alguma coisa. []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: Jorge Ericsson To: undisclosed-recipients: Sent: Thursday, February 04, 2010 5:29 PM Subject: [delphi-br] Urgente: Erro ao atualizar dados em uma tabela. Amigos Delphianos, Estou usando o Delphi 7 + ADO + MySQL e em alguns casos de atualização de dados, está aparecendo esta mensagem qdo executo o POST: * A linha não pode ser localizada para atualização. Alguns valores podem ter sido alterados desde que ela foi lida pela última vez *Obs.: Não estou usando Master/Detail, apenas estou atualizando os dados em uma tabela, depois de preencher alguns dados (DBLookUpComboBox), DBEdit * *Alguém poderia me dá uma solução para este problema ? * * Abraços, Jorge Ericsson Brasília - DF [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] Urgente: Erro ao atualizar dados em uma tabela.
Olá amigos, o problema já foi resolvido. Estava acontecendo devido a tentativa de atualização da data de nascimento que estava nula no banco, ou seja, -00-00. Eu dei um update em todas as data para NULL e parou de dá o erro, não entendi tbém...rsrs A rotina da tela de cadastro é muito grande, não daria para postar aqui. De qualquer forma está funcionando bem e já tratei para uma mensagem mais amigavel. Obs.: Só aconteceu esse problema na base de dados de um cliente que sofre migração de outro sistema, e não havia reparado nessa data dessa forma. Obrigado a todos. Em 5 de fevereiro de 2010 08:59, Walter Chagas (Bol) wchag...@bol.com.brescreveu: Jorge, este erro normalmente aconteceu porque a tabela ou não tem uma chave primária ou uma chave primaria não muito consistente e a atualização que voce tentou fazer consiste em um registro que já exista no banco ou que o SGBD interpretou como um registro duplicado. Seria interessante, por exemplo, voce postar o código da rotina aque pra ver se dá pra enxergar alguma coisa. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br wchagasj%40bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: Jorge Ericsson To: undisclosed-recipients: Sent: Thursday, February 04, 2010 5:29 PM Subject: [delphi-br] Urgente: Erro ao atualizar dados em uma tabela. Amigos Delphianos, Estou usando o Delphi 7 + ADO + MySQL e em alguns casos de atualização de dados, está aparecendo esta mensagem qdo executo o POST: * A linha não pode ser localizada para atualização. Alguns valores podem ter sido alterados desde que ela foi lida pela última vez *Obs.: Não estou usando Master/Detail, apenas estou atualizando os dados em uma tabela, depois de preencher alguns dados (DBLookUpComboBox), DBEdit * *Alguém poderia me dá uma solução para este problema ? * * Abraços, Jorge Ericsson Brasília - DF [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
[delphi-br] Urgente: Erro ao atualizar dados em uma tabela.
Amigos Delphianos, Estou usando o Delphi 7 + ADO + MySQL e em alguns casos de atualização de dados, está aparecendo esta mensagem qdo executo o POST: * A linha não pode ser localizada para atualização. Alguns valores podem ter sido alterados desde que ela foi lida pela última vez *Obs.: Não estou usando Master/Detail, apenas estou atualizando os dados em uma tabela, depois de preencher alguns dados (DBLookUpComboBox), DBEdit * *Alguém poderia me dá uma solução para este problema ? * * Abraços, Jorge Ericsson Brasília - DF [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] URGENTE: Identificador de Chamadas
Faça uma pesquisa na lista acessando o grupo que vai ver muita coisa. Vou adiantando algumas coisas: - Nunca vi uma solução completa sobre este assunto; - Cada estado tem uma configuração da telefonia/operadora portanto, um programa que teve exito em São Paulo, pode não funcionar em Minas Gerais...; - Existem milhares de componentes e rotinas na internet (basta fazer uma pesquisa no Google), tenho visto falar que nenhuma delas funcionaram bem, o que vc deve fazer é baixar uma-a-uma e ir testando, pois, como disse, pode funcionar numa região e não funcionar em outra. Sucesso Em 14/12/2009 20:27, Jorge Ericsson escreveu: Olá amigos delphianos, Estou finalizando um sistema para controle de pizzaria (delivery) e neste projeto eu gostaria de implementar um controle de identificação de chamadas. Alguém tem uma solução que gostaria de negóciar ? O detalhe importante é que eu gostaria de usar a minha placa de fax/modem. Obs.: Minha linha telefônica de teste, já possui habilitado o Identificador de Chamadas. Aguardo contato. Jorge Ericsson S. Pinheiro Ericsson Sistemas e Soluções (61) 3797-4785 / 8592-9960 / 9227-4785 http://www.jericsson.com.br http://www.jericsson.com.br jericsson...@gmail.com mailto:jericssonsup%40gmail.com jericsson...@jericsson.com.br mailto:jericssonsup%40jericsson.com.br skype:jericsson Brasília - DF [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] URGENTE: Identificador de Chamadas
Jorge, A muuiitoo tempoi atrás eu achei um componente que fazia isso, é o SpBina. Eu havia melhorado o exemplo dele e usei por um bom tempo, até trocar de micro que não veio + com modem pois já usava banda larga. Depois disso não consegui fazer funcionar com os fax-modems que passaram pela minha mão. De qualquer forma, segue o link: http://www.planetadelphi.com.br/download/443/identificador-de-chamadas---bina---delphi-3 Além do componente SpBina, o exemplo usa os botões da RXLib, mas você pode trocar para tbutton sem problema. [] Andrei 2009/12/14 Jorge Ericsson jericsson...@gmail.com Olá amigos delphianos, Estou finalizando um sistema para controle de pizzaria (delivery) e neste projeto eu gostaria de implementar um controle de identificação de chamadas. Alguém tem uma solução que gostaria de negóciar ? O detalhe importante é que eu gostaria de usar a minha placa de fax/modem. Obs.: Minha linha telefônica de teste, já possui habilitado o Identificador de Chamadas. Aguardo contato. Jorge Ericsson S. Pinheiro Ericsson Sistemas e Soluções (61) 3797-4785 / 8592-9960 / 9227-4785 http://www.jericsson.com.br jericsson...@gmail.com jericsson...@jericsson.com.br skype:jericsson Brasília - DF [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] URGENTE: Identificador de Chamadas
Olha, já tentei implementar uma identificação de chamadas. O que posso te adiantar é que: 1º: a maioria das placas de Fax/Modem que vendem por aí não tem suporte a DTMF, e consequentemente, não fazem a leitura do número que está ligando, mesmo que sua linha esteja habilitada para identificar chamadas. 2º: como o amigo EmbarcaDelphi disse, algumas regiões tem suas particularidades, e uma delas que conheço é que alguns lugares pro sinal DTMF chegar corretamente na sua placa, vc precisa colocar 1 peça entre a linha e a placa, comprada em lojas trabalham com telefonia. . É o que posso te adiantar. Abraço Gabriel R B 2009/12/14 Jorge Ericsson jericsson...@gmail.com Olá amigos delphianos, Estou finalizando um sistema para controle de pizzaria (delivery) e neste projeto eu gostaria de implementar um controle de identificação de chamadas. Alguém tem uma solução que gostaria de negóciar ? O detalhe importante é que eu gostaria de usar a minha placa de fax/modem. Obs.: Minha linha telefônica de teste, já possui habilitado o Identificador de Chamadas. Aguardo contato. Jorge Ericsson S. Pinheiro Ericsson Sistemas e Soluções (61) 3797-4785 / 8592-9960 / 9227-4785 http://www.jericsson.com.br jericsson...@gmail.com jericssonsup%40gmail.com jericsson...@jericsson.com.br jericssonsup%40jericsson.com.br skype:jericsson Brasília - DF [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] URGENTE: Identificador de Chamadas
Valew amigos pelas dicas, aqui em Brasília eu já testei com duas linhas os componentes que encontrei garimpando na net, mas nem um funcionou bem, só que encontrei um demo de um sistema de delivery que funciona perfeitamente com a fax/modem, só que a empresa vende a solução completa que custa o olho da cara, por isso resolvi desenvolver um. Estou testando algumas coisas com o ITAPI componente de comunicação, mas não estou tento sucesso. Abraços. 2009/12/15 Gabriel R B gbf...@gmail.com Olha, já tentei implementar uma identificação de chamadas. O que posso te adiantar é que: 1º: a maioria das placas de Fax/Modem que vendem por aí não tem suporte a DTMF, e consequentemente, não fazem a leitura do número que está ligando, mesmo que sua linha esteja habilitada para identificar chamadas. 2º: como o amigo EmbarcaDelphi disse, algumas regiões tem suas particularidades, e uma delas que conheço é que alguns lugares pro sinal DTMF chegar corretamente na sua placa, vc precisa colocar 1 peça entre a linha e a placa, comprada em lojas trabalham com telefonia. . É o que posso te adiantar. Abraço Gabriel R B 2009/12/14 Jorge Ericsson jericsson...@gmail.com Olá amigos delphianos, Estou finalizando um sistema para controle de pizzaria (delivery) e neste projeto eu gostaria de implementar um controle de identificação de chamadas. Alguém tem uma solução que gostaria de negóciar ? O detalhe importante é que eu gostaria de usar a minha placa de fax/modem. Obs.: Minha linha telefônica de teste, já possui habilitado o Identificador de Chamadas. Aguardo contato. Jorge Ericsson S. Pinheiro Ericsson Sistemas e Soluções (61) 3797-4785 / 8592-9960 / 9227-4785 http://www.jericsson.com.br jericsson...@gmail.com jericssonsup%40gmail.com jericsson...@jericsson.com.br jericssonsup%40jericsson.com.br skype:jericsson Brasília - DF [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 -- Att, Jorge Ericsson S. Pinheiro Ericsson Sistemas e Soluções (61) 3797-4785 / 8592-9960 / 9227-4785 http://www.jericsson.com.br jericsson...@gmail.com jericsson...@jericsson.com.br skype:jericsson Brasília - DF [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] URGENTE: Identificador de Chamadas
Olá amigos delphianos, Estou finalizando um sistema para controle de pizzaria (delivery) e neste projeto eu gostaria de implementar um controle de identificação de chamadas. Alguém tem uma solução que gostaria de negóciar ? O detalhe importante é que eu gostaria de usar a minha placa de fax/modem. Obs.: Minha linha telefônica de teste, já possui habilitado o Identificador de Chamadas. Aguardo contato. Jorge Ericsson S. Pinheiro Ericsson Sistemas e Soluções (61) 3797-4785 / 8592-9960 / 9227-4785 http://www.jericsson.com.br jericsson...@gmail.com jericsson...@jericsson.com.br skype:jericsson Brasília - DF [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Urgente: Aplicativo gerando travamento no Windows Vista
Olá meus amigos, Estou com um problema sério com minha aplicação no Windows Vista de um usuário. De uns tempos para cá, um usuário me reclamou que o sistema está travando e aparentemente achei que era vírus, fiz todas as investigações possíveis e não encontrei nada. Analisando o log de erros do Windows eu me deparei com as informações a baixo, que são geradas assim que eu mando finalizar o processo. Alguém poderia me informar o que posso fazer para que isso acabe de uma vez ? Detalhe só acontece no windows vista, já pedi para o usuário testar seu login no windows 2000 e xp que tem na empresa. Log de erro gerado pelo windows vista. Falha no compartimento de memória 742381043, tipo 5 Nome do Evento: AppHangB1 Resposta: Nenhum ID. de arquivo CAB: 0 Assinatura do problema: P1: siger.exe P2: 2.17.9.1 P3: 2a425e19 P4: afae P5: 0 P6: P7: P8: P9: P10: Arquivos anexados: C:\Users\testesammua\AppData\Local\Temp\WER4836.tmp.version.txt C:\Users\testesammua\AppData\Local\Temp\WER5D4C.tmp.appcompat.txt Estes arquivos podem estar disponíveis em: C:\Users\testesammua\AppData\Local\Microsoft\Windows\WER\ReportArchive\Report0e6e624b Att, Jorge Ericsson S. Pinheiro Ericsson Sistemas e Soluções (61) 3797-4785 / 8592-9960 / 9227-4785 http://www.jericsson.com.br jericsson...@gmail.com jericsson...@jericsson.com.br skype:jericsson Brasília - DF [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Urgente: Criando um Data Mining
Olá pessoal, Estou precisando da ajuda dos mais experientes e safos do grupo. Desenvolvi um software para gerenciamento de igrejas que está no ar a uns 6 anos, hoje um cliente me questionou sobre a possibilidade de desenvolver no produto um módulo sobre DataMining (mineração de dados). Criar uma forma onde através de cruzamentos de dados ele obtenha informações para analise e impressão como por exemplo, saber todos os membros que possui passaporte e que ganham acima de um determinando valor, para poder enviar e-mail sobre novas excursões e etc. Isto é apenas um exemplo. Andei pesquisando sobre o assunto e até agora não encontrei nada a respeito feito em delphi que eu posso analisar. Alguém que já Desenvolveu algo parecido pode me ajudar com material de pesquisa e informações ? Obrigado desde já, Jorge Ericsson Brasília - DF [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Urgente: Criando um Data Mining
Amigo, Você vai ter que montar um cubo. Ou seja, um tabelão com todas as informações relevantes (colunas) e apartir dela vai montar as suas consultas. Se prepare para crar vários índices e views sobre esta tabela. Esta tabela poderá ser alterada/incrementada toda a noite por exemplo. 2009/6/15 Jorge Ericsson jericsson...@gmail.com Olá pessoal, Estou precisando da ajuda dos mais experientes e safos do grupo. Desenvolvi um software para gerenciamento de igrejas que está no ar a uns 6 anos, hoje um cliente me questionou sobre a possibilidade de desenvolver no produto um módulo sobre DataMining (mineração de dados). Criar uma forma onde através de cruzamentos de dados ele obtenha informações para analise e impressão como por exemplo, saber todos os membros que possui passaporte e que ganham acima de um determinando valor, para poder enviar e-mail sobre novas excursões e etc. Isto é apenas um exemplo. Andei pesquisando sobre o assunto e até agora não encontrei nada a respeito feito em delphi que eu posso analisar. Alguém que já Desenvolveu algo parecido pode me ajudar com material de pesquisa e informações ? Obrigado desde já, Jorge Ericsson Brasília - DF [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] Urgente: Criando um Data Mining
Use o Decision cube, lembre se: o segredo está em gerar as visoes alguns links pra comecar http://www.planetadelphi.com.br/artigo/128/decision-cube---1a.-parte http://www.multicomp.com.br/Cont_Default.aspx?idnews=79 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Urgente: Criando um Data Mining
ops, eu quis dizer: o segredo para gerar as visões está na clausula - group by Boa sorte! Use o Decision cube, lembre se: o segredo está em gerar as visoes alguns links pra comecar http://www.planetad elphi.com. br/artigo/ 128/decision- cube---1a. -parte http://www.multicom p.com.br/ Cont_Default. aspx?idnews= 79 [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] Urgente: Criando um Data Mining
Sugestões: 1) ExpressPivotGrid, da DevExpress (http://www.componentsource.com/products/expresspivotgrid-suite/index-brl.html) É excelente... mas é pago! Na página, tem opção pra ver o preço em reais (BRL - Brazilian Real). 2) Enhanced Borland Decision Cube 2.1 for Delphi (http://sourceforge.net/projects/fxds/) Free/na faixa/0800. Não avaliei, mas deve ser interessante! Sds. De: delphi-br@yahoogrupos.com.br [delphi...@yahoogrupos.com.br] em Nome de Evaldo [evaldoave...@yahoo.com.br] Enviado: segunda-feira, 15 de junho de 2009 6:53 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Urgente: Criando um Data Mining Use o Decision cube, lembre se: o segredo está em gerar as visoes alguns links pra comecar http://www.planetadelphi.com.br/artigo/128/decision-cube---1a.-parte http://www.multicomp.com.br/Cont_Default.aspx?idnews=79 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Urgente: Desabilitar ShortCut
Pessoal eu gostaria de saber como desabilitar a tecla de atalho do menu após a entrada de um determinado usuário ? Exemplo: Eu tenho alguns usuário que acessam no menu um determinado Item com o Atalho CTRl + ALT + E (Tela do Financeiro), mas alguns novos usuários que não possuem essa permissão mesmo desabilitando o menu ou colocando Visible = False ou colocando Menu.ShortCut := 0 o atalho ainda funcionar. Gostaria de saber se tem outro jeito de desabilitar o menu e a tecla de atalho para um determinado usuário. Grato, Jorge Ericsson Brasília - DF [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Urgente: Como detectar o modelo da placa mãe pelo D elphi
Olá pessoal, eu tó com um problema de lentidão em minhas aplicação que usam Interbase. Simplesmente começaram a ter uma lentidão impressionante, só que descobrir que isso só acontece nas placas com o Intel(R) HP Technology Habilitado, tanto Intel como AMD. Bom eu gostaria de desenvolver algo em delphi que detectasse o modelo da placa e desabilitasse esta opção de forma transparente para o usuário. Alguém tem um exemplo de como posso controlar isso ? Obs.: Não me interessa saber de migração de banco de dados, porque no momento eu tenho várias aplicações espalhadas pelo Brasil e não posso migrar para Firebird, MySQL e etc. Preciso de uma solução para ontem nestes aplicativos. Obrigado pela ajuda desde já. Jorge Ericsson Brasília - DF [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Urgente: Como detectar o modelo da pl aca mãe pelo Delphi
Um programa em delphi para determinar o tipo do processador? Você terá de apaelar para código assembly para conseguir isso. Os livros específicos de cada chipset da Intel tem este algoritmo (em assembly) pronto para você usar/adaptar para as suas necessidades. O problema é que estas soluções são específicas de cada fabricante, ou seja, um programa que detecta uma determinada família de processadores da Intel poderá não funcionar com processadores da AMD, e vice-versa. Eu te sugiro procurar algum software já pronto que possa lhe dar as informações necessárias, e você de dentro do teu programa Delphi, ativar estes outros softwares, os quais irão gerar algum tipo de relatório/arquivo. De posse deste arquivo você poderá fazer a leitura das informações desejadas. Abaixo segue um site (achei usando o google) que você poderá usar para obter informações de processadores AMD e Intel. Não sei se estes programas irão atender as tuas necessidades, mas vale você dar uma conferida neles. http://web.inter.nl.net/hcc/J.Steunebrink/chkcpu.htm Clayton. _ De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Jorge Ericsson Enviada em: terça-feira, 24 de março de 2009 11:28 Para: undisclosed-recipients: Assunto: [delphi-br] Urgente: Como detectar o modelo da placa mãe pelo Delphi Olá pessoal, eu tó com um problema de lentidão em minhas aplicação que usam Interbase. Simplesmente começaram a ter uma lentidão impressionante, só que descobrir que isso só acontece nas placas com o Intel(R) HP Technology Habilitado, tanto Intel como AMD. Bom eu gostaria de desenvolver algo em delphi que detectasse o modelo da placa e desabilitasse esta opção de forma transparente para o usuário. Alguém tem um exemplo de como posso controlar isso ? Obs.: Não me interessa saber de migração de banco de dados, porque no momento eu tenho várias aplicações espalhadas pelo Brasil e não posso migrar para Firebird, MySQL e etc. Preciso de uma solução para ontem nestes aplicativos. Obrigado pela ajuda desde já. Jorge Ericsson Brasília - DF [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] Urgente: Como detectar o modelo da p laca mãe pelo Delphi
Valew Clayton mas eu já resolvi meu problema e pesquisando eu encontrei o TJvComputerInfoEx da biblioteca JEDI, já tenho o que precisava, obrigado. 2009/3/24 clayton clay...@agriness.com Um programa em delphi para determinar o tipo do processador? Você terá de apaelar para código assembly para conseguir isso. Os livros específicos de cada chipset da Intel tem este algoritmo (em assembly) pronto para você usar/adaptar para as suas necessidades. O problema é que estas soluções são específicas de cada fabricante, ou seja, um programa que detecta uma determinada família de processadores da Intel poderá não funcionar com processadores da AMD, e vice-versa. Eu te sugiro procurar algum software já pronto que possa lhe dar as informações necessárias, e você de dentro do teu programa Delphi, ativar estes outros softwares, os quais irão gerar algum tipo de relatório/arquivo. De posse deste arquivo você poderá fazer a leitura das informações desejadas. Abaixo segue um site (achei usando o google) que você poderá usar para obter informações de processadores AMD e Intel. Não sei se estes programas irão atender as tuas necessidades, mas vale você dar uma conferida neles. http://web.inter.nl.net/hcc/J.Steunebrink/chkcpu.htm Clayton. _ 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 Jorge Ericsson Enviada em: terça-feira, 24 de março de 2009 11:28 Para: undisclosed-recipients: Assunto: [delphi-br] Urgente: Como detectar o modelo da placa mãe pelo Delphi Olá pessoal, eu tó com um problema de lentidão em minhas aplicação que usam Interbase. Simplesmente começaram a ter uma lentidão impressionante, só que descobrir que isso só acontece nas placas com o Intel(R) HP Technology Habilitado, tanto Intel como AMD. Bom eu gostaria de desenvolver algo em delphi que detectasse o modelo da placa e desabilitasse esta opção de forma transparente para o usuário. Alguém tem um exemplo de como posso controlar isso ? Obs.: Não me interessa saber de migração de banco de dados, porque no momento eu tenho várias aplicações espalhadas pelo Brasil e não posso migrar para Firebird, MySQL e etc. Preciso de uma solução para ontem nestes aplicativos. Obrigado pela ajuda desde já. Jorge Ericsson Brasília - DF [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Att, Jorge Ericsson S. Pinheiro Ericsson Sistemas e Soluções (61) 3797-4785 / 3244-8689 / 9227 4785 http://www.jericsson.com.br jericsson...@gmail.com jericsson...@hotmail.com skype:jericsson Brasília - DF [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Urgente - Indicações
Olá Pessoal, Estou com a seguinte oportunidade: Analista Programador Delphi com Oracle Seria necessário no mínimo três anos de experiência com linguagem delphi e um ano e meio com banco de dados Oracle. Desejável conhecimento em ERP O local de atuação seria na região da Barra Funda, em um projeto por tempo indeterminado com a contratação PJ Por favor me indique profissionais Seguem meus contatos : thais.sant...@cadmus.com.br ou 8349-7541 Abraços. Thais Santana Recursos Humanos Cadmus Soluções em TI Tel: +55 11 3848-2677 Ramal: 2715 Fax: +55 11 3848-2679 _ Rua: Gomes de Carvalho, 1.765 - 9º andar - Vila Olímpia - São Paulo - SP - CEP: 04547-006 Antes de imprimir pense em sua responsabilidade e compromisso com o meio ambiente. Essa mensagem é destinada exclusivamente ao seu destinatário e pode conter informações confidenciais, protegidas por sigilo profissional ou cuja divulgação seja proibida por lei. O uso não autorizado de tais informações é proibido e está sujeito às penalidades cabíveis. This message is intended exclusively for its addressee and may contain information that is confidential and protected by a professional privilege or whose disclosure is prohibited by law. Unauthorized use of such information is prohibited and subject to applicable penalties. [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Urgente: Como detectar o mo delo da placa mãe pelo Delphi
Uma outra alternativa seria listar esse fato no manual do seu sistema ou num FAQ ou melhor ainda informar os usuários sobre esse bug e instruí-los sobre como detectar se o HP Technology está habilitado bem como instruções sobre como desabilitar, caso esse processo traga ganho de performance da sua aplicação. Tentar fazer isso com o Delphi vai envolver código assembly (como já disseram) e pode ser que vc esbarre com o erro de instrução privilegiada. Nesse caso é melhor apelar para algo mais adminstrativo, ou seja, um comunicado aos usuários do que se descabelar atrás de uma solução técnica que pode ou não atingir o usuário. E a propósito, essa solução atende seu requisito de a solução tem que ser pra ontem. Atte, Ricardo. Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! --- Em ter, 24/3/09, clayton clay...@agriness.com escreveu: Um programa em delphi para determinar o tipo do processador? Você terá de apaelar para código assembly para conseguir isso. Os livros específicos de cada chipset da Intel tem este algoritmo (em assembly) pronto para você usar/adaptar para as suas necessidades. O problema é que estas soluções são específicas de cada fabricante, ou seja, um programa que detecta uma determinada família de processadores da Intel poderá não funcionar com processadores da AMD, e vice-versa. Eu te sugiro procurar algum software já pronto que possa lhe dar as informações necessárias, e você de dentro do teu programa Delphi, ativar estes outros softwares, os quais irão gerar algum tipo de relatório/arquivo. De posse deste arquivo você poderá fazer a leitura das informações desejadas. Abaixo segue um site (achei usando o google) que você poderá usar para obter informações de processadores AMD e Intel. Não sei se estes programas irão atender as tuas necessidades, mas vale você dar uma conferida neles. http://web.inter. nl.net/hcc/ J.Steunebrink/ chkcpu.htm Clayton. _ De: delphi...@yahoogrup os.com.br [mailto:delphi...@yahoogrup os.com.br] Em nome de Jorge Ericsson Enviada em: terça-feira, 24 de março de 2009 11:28 Para: undisclosed- recipients: Assunto: [delphi-br] Urgente: Como detectar o modelo da placa mãe pelo Delphi Olá pessoal, eu tó com um problema de lentidão em minhas aplicação que usam Interbase. Simplesmente começaram a ter uma lentidão impressionante, só que descobrir que isso só acontece nas placas com o Intel(R) HP Technology Habilitado, tanto Intel como AMD. Bom eu gostaria de desenvolver algo em delphi que detectasse o modelo da placa e desabilitasse esta opção de forma transparente para o usuário. Alguém tem um exemplo de como posso controlar isso ? Obs.: Não me interessa saber de migração de banco de dados, porque no momento eu tenho várias aplicações espalhadas pelo Brasil e não posso migrar para Firebird, MySQL e etc. Preciso de uma solução para ontem nestes aplicativos. Obrigado pela ajuda desde já. Jorge Ericsson Brasília - DF Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] [URGENTE] memo no RAVE
alquem ai sabe como eu faço para imprimir um texto muito grande num memo? tipo eu vou montar o texto todo em tempo de execução num memo. depois queria que o outro memo que esta dentro do rave carregase essas linhas e imprimesse, detalhe que ele fose tambem aparecendo nas proximas paginas e tal como o quick rep fazia.. no quickrep eu botaria na propiedade strenchi se nao me engano como true e ele saia creescendo o memo e colocando ele nas paganas sequintes. e isso que eu gostraria de fazer.. to aguniado e precisando muito de uma forma de escrever isso. obrigado e t+ e muito grato a quem responder t+ -- _ Rafael jorge alves Desenvolvedor/analista Ativa Soluções em TI. Recife - PE [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Urgente: Como detectar o modelo d a placa mãe pelo Delphi
Esqueci de mencionar, todos os programas D6-PRO ou HARBOUR rodam melhor (mais rapidos) nos HTs, menos no DUO CORE que falei... (graças a DEUS só tem 1) AH, o meu QUAD de 2.6Ghz roda normal to aguardando o QUAD com HT que da 8 nucleos, 4 reais e mais 4 virtuais no HT... []s Luiz Escobar From: Ricardo César Cardoso Sent: Tuesday, March 24, 2009 4:41 PM To: delphi-br@yahoogrupos.com.br Subject: Re: RES: [delphi-br] Urgente: Como detectar o modelo da placa mãe pelo Delphi Uma outra alternativa seria listar esse fato no manual do seu sistema ou num FAQ ou melhor ainda informar os usuários sobre esse bug e instruí-los sobre como detectar se o HP Technology está habilitado bem como instruções sobre como desabilitar, caso esse processo traga ganho de performance da sua aplicação. Tentar fazer isso com o Delphi vai envolver código assembly (como já disseram) e pode ser que vc esbarre com o erro de instrução privilegiada. Nesse caso é melhor apelar para algo mais adminstrativo, ou seja, um comunicado aos usuários do que se descabelar atrás de uma solução técnica que pode ou não atingir o usuário. E a propósito, essa solução atende seu requisito de a solução tem que ser pra ontem. Atte, Ricardo. Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! --- Em ter, 24/3/09, clayton clay...@agriness.com escreveu: Um programa em delphi para determinar o tipo do processador? Você terá de apaelar para código assembly para conseguir isso. Os livros específicos de cada chipset da Intel tem este algoritmo (em assembly) pronto para você usar/adaptar para as suas necessidades. O problema é que estas soluções são específicas de cada fabricante, ou seja, um programa que detecta uma determinada família de processadores da Intel poderá não funcionar com processadores da AMD, e vice-versa. Eu te sugiro procurar algum software já pronto que possa lhe dar as informações necessárias, e você de dentro do teu programa Delphi, ativar estes outros softwares, os quais irão gerar algum tipo de relatório/arquivo. De posse deste arquivo você poderá fazer a leitura das informações desejadas. Abaixo segue um site (achei usando o google) que você poderá usar para obter informações de processadores AMD e Intel. Não sei se estes programas irão atender as tuas necessidades, mas vale você dar uma conferida neles. http://web.inter. nl.net/hcc/ J.Steunebrink/ chkcpu.htm Clayton. _ De: delphi...@yahoogrup os.com.br [mailto:delphi...@yahoogrup os.com.br] Em nome de Jorge Ericsson Enviada em: terça-feira, 24 de março de 2009 11:28 Para: undisclosed- recipients: Assunto: [delphi-br] Urgente: Como detectar o modelo da placa mãe pelo Delphi Olá pessoal, eu tó com um problema de lentidão em minhas aplicação que usam Interbase. Simplesmente começaram a ter uma lentidão impressionante, só que descobrir que isso só acontece nas placas com o Intel(R) HP Technology Habilitado, tanto Intel como AMD. Bom eu gostaria de desenvolver algo em delphi que detectasse o modelo da placa e desabilitasse esta opção de forma transparente para o usuário. Alguém tem um exemplo de como posso controlar isso ? Obs.: Não me interessa saber de migração de banco de dados, porque no momento eu tenho várias aplicações espalhadas pelo Brasil e não posso migrar para Firebird, MySQL e etc. Preciso de uma solução para ontem nestes aplicativos. Obrigado pela ajuda desde já. Jorge Ericsson Brasília - DF Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Res: RES: [delphi-br] Urgente: Como detectar o m odelo da placa mãe pelo Delphi
Olá galera, Na JVCL tem um componente que detecta, o JvComputerInfoEx. P.S: Espero que minha resposta apareça para os usuários da lista ainda hoje. []'s, Silvio Clécio --- Linux User: #481900 Skype: silvioprog ICQ: 432519902 E-mail, Y! Messenger: silviop...@yahoo.com.br Gmail, GTalk: silviop...@gmail.com Hotmail, MSN: silviop...@hotmail.com BlogSpot: http://silvioclecio.blogspot.com/ BlogSite: http://silvioprog.blogspot.com/ °oO| Seja livre, use Linux! |Oo° De: clayton clay...@agriness.com Para: delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 24 de Março de 2009 13:03:30 Assunto: RES: [delphi-br] Urgente: Como detectar o modelo da placa mãe pelo Delphi Um programa em delphi para determinar o tipo do processador? Você terá de apaelar para código assembly para conseguir isso. Os livros específicos de cada chipset da Intel tem este algoritmo (em assembly) pronto para você usar/adaptar para as suas necessidades. O problema é que estas soluções são específicas de cada fabricante, ou seja, um programa que detecta uma determinada família de processadores da Intel poderá não funcionar com processadores da AMD, e vice-versa. Eu te sugiro procurar algum software já pronto que possa lhe dar as informações necessárias, e você de dentro do teu programa Delphi, ativar estes outros softwares, os quais irão gerar algum tipo de relatório/arquivo. De posse deste arquivo você poderá fazer a leitura das informações desejadas. Abaixo segue um site (achei usando o google) que você poderá usar para obter informações de processadores AMD e Intel. Não sei se estes programas irão atender as tuas necessidades, mas vale você dar uma conferida neles. http://web.inter. nl.net/hcc/ J.Steunebrink/ chkcpu.htm Clayton. _ De: delphi...@yahoogrup os.com.br [mailto:delphi...@yahoogrup os.com.br] Em nome de Jorge Ericsson Enviada em: terça-feira, 24 de março de 2009 11:28 Para: undisclosed- recipients: Assunto: [delphi-br] Urgente: Como detectar o modelo da placa mãe pelo Delphi Olá pessoal, eu tó com um problema de lentidão em minhas aplicação que usam Interbase. Simplesmente começaram a ter uma lentidão impressionante, só que descobrir que isso só acontece nas placas com o Intel(R) HP Technology Habilitado, tanto Intel como AMD. Bom eu gostaria de desenvolver algo em delphi que detectasse o modelo da placa e desabilitasse esta opção de forma transparente para o usuário. Alguém tem um exemplo de como posso controlar isso ? Obs.: Não me interessa saber de migração de banco de dados, porque no momento eu tenho várias aplicações espalhadas pelo Brasil e não posso migrar para Firebird, MySQL e etc. Preciso de uma solução para ontem nestes aplicativos. Obrigado pela ajuda desde já. Jorge Ericsson Brasília - DF Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] URGENTE: Retorna informações do Banco Firebird
Saudações Delphianas, Amigos, eu preciso através do delphi retorna para uma string as informações do banco de dados como por exemplo o DIALECT. Alguém já desenvolveu algo que faça isso ? Por favor me retorne. Obs.: Sei como seta o dialeto mais antes de seta-lo eu gostaria primeiro de verificar em qual dialeto está o banco. Para seta eu já uso por exemplo a seguinte linha de comando: If blablablá for diferente do dialect 3 Then Executar_Aguarda('c:\arquivos de programas\firebird\firebird_2_1\bin\gfix.exe', ' -sql_dialect 3 ' + 'c:\banco.fdb', SW_SHOWMINIMIZED) else Application.MessageBox('Banco de Dados já está no Dialeto 3', 'Informação', MB_ICONINFORMATION + mb_OK); Jorge Ericsson Brasília - DF [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] URGENTE: Tempo decorrido
Olá amigos Delphianos. Estou precisando implementar urgente na minha rotina de atualização de banco o tempo decorrido de cada processo. Por exemplo eu tenho os processos de criação do banco, correção de banco, carga de dados no banco. Resultado seria mais ou menos assim: Criação de Banco 05:06:45 Correção de Banco03:30:20 Carga de Dados no Banco 10:03:30 18:40:35 Total em hora:minutos:segundos Eu preciso criar se possível uma threading ou 3 no caso que registre no formulário o tempo decorrido de cada processo. Alguém poderia me ajudar com uma diga boa ? Abraços Jorge Ericsson S. Pinheiro [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] URGENTE: Gravar e Ler imagem no banco MYSQL
Amigos, eu uso dessa forma para recuperar a imagem do banco e funciona perfeitamente com ADO mas com Zeus não deu certo mesmo mudando as propriedades e fazendo a chamada. Esta meio tosco mais funciona, na época eu só encontrei essa forma de trabalhar ADO e MySQL 4.0 Obs.: Hoje eu utilizo Zeos e MySQL 5.0 Espero ter sido claro. procedure TFormMembros.Carregar_Foto_Membro(DataSet: TDataSet); begin try Pic:= nil; Stream := nil; If varisnull(DataSet.fieldbyName('FOT_MEMBRO').Value) or (DataSet.fieldbyName('FOT_MEMBRO').Value = '') Then begin try Stream := TMemoryStream.Create; Pic:= TJpegImage.Create; Pic.LoadFromFile(ExtractFilePath(Application.ExeName)+'Logotipo.jpg'); FotoMembro.Picture.Assign(Pic); GraphType := gtJpeg; Stream.Write(GraphType, 1); Pic.SaveToStream(Stream); except Pic.Free; Stream.Free; raise; end; end else begin Stream := TAdoBlobStream.Create(TBlobField(DataSet.FieldbyName('FOT_MEMBRO')), bmRead); try Stream.Seek(JpegStartsInBlob(TBlobField(DataSet.FieldbyName('FOT_MEMBRO'))), soFromBeginning); Pic := TJpegImage.Create; try Pic.LoadFromStream(Stream); FotoMembro.Picture.Graphic := Pic; finally Pic.Free; end; finally Stream.Free end; end; except end; end; Para Carregar e Gravar eu faço assim: procedure TFormMembros.mnuCarregarClick(Sender: TObject); begin if OpenFotoMembro.Execute then begin mnuLimpar.Click; Jpg := nil; Stream := nil; try Stream := TMemoryStream.Create; FileExt := LowerCase(ExtractFileExt(OpenFotoMembro.FileName)); if (FileExt = '.bmp') or (FileExt = '.dib') then begin GraphType := gtBitmap; Stream.Write(GraphType, 1); with FotoMembro.Picture.Bitmap do begin LoadFromFile(OpenFotoMembro.FileName); FotoMembro.Picture.Bitmap.SaveToStream(Stream); end; end else if (FileExt = '.jpg') or (FileExt = '.jpeg') or (FileExt = '.jpe') then begin Jpg := TJpegImage.Create; Jpg.LoadFromFile(OpenFotoMembro.FileName); FotoMembro.Picture.Assign(Jpg); GraphType := gtJpeg; Stream.Write(GraphType, 1); Jpg.SaveToStream(Stream); end; QueryFoto:= Nil; QueryFoto:= TADOQuery.Create(QueryFoto); QueryFoto.Connection := Tabelas.ADOConnSGI; QueryFoto.Sql.Clear; QueryFoto.Sql.Add('update tb_sgi_membros set fot_membro = :fot_membro where cod_membro = :cod_membro'); Screen.Cursor := crHourGlass; if (Stream nil) Then begin QueryFoto.Parameters.ParamByName('cod_membro').Value := vCodMembro; QueryFoto.Parameters.ParamByName('fot_membro').LoadFromStream(Stream,ftBlob); end; QueryFoto.ExecSQL; QueryFoto.Free; end; except jpg.Free; Stream.Free; raise; end; end; end; [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] URGENTE: Gravar e Ler imagem no banco MYSQL
Olá amigos delphianos, migrei um aplicação ACCESS para MySql e estou com problemas em gravar e recuperar a foto do membro. Alguém poderia me indicar uma rotina para realizar essa tarefa sem que ter que popular a Query ou a Table com os campos ?? Exemplo. Tabelas.*TabDirigenteImg_Foto_Dirigente* .SaveToStream(Tabelas.BlobMemoryStream); Tabelas.BlobMemoryStream.Position := 0; Tabelas.JPEGImage.LoadFromStream(Tabelas.BlobMemoryStream); FotoDirigente.Picture.Assign(Tabelas.JPEGImage); Gostaria de uma solução inteligente para gravar e carregar tanto BMP, JPEG, JPG e etc se possível.. Valew Amigos.. Jorge Ericsson S. Pinheiro Ericsson Sistemas e Soluções (61) 3797-4785 / 3244-8689 / 9227 4785 http://www.jericsson.com.br jericsson...@gmail.com jericsson...@hotmail.com skype:jericsson Brasília - DF [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] URGENTE: Gravar e Ler imagem no banco MYSQL
Jorge, qual o componente de acesso você ta usando? o campo deve ser do tipo LongBlob ok. 2009/1/20 Jorge Ericsson jericsson...@gmail.com Olá amigos delphianos, migrei um aplicação ACCESS para MySql e estou com problemas em gravar e recuperar a foto do membro. Alguém poderia me indicar uma rotina para realizar essa tarefa sem que ter que popular a Query ou a Table com os campos ?? Exemplo. Tabelas.*TabDirigenteImg_Foto_Dirigente* .SaveToStream(Tabelas.BlobMemoryStream); Tabelas.BlobMemoryStream.Position := 0; Tabelas.JPEGImage.LoadFromStream(Tabelas.BlobMemoryStream); FotoDirigente.Picture.Assign(Tabelas.JPEGImage); Gostaria de uma solução inteligente para gravar e carregar tanto BMP, JPEG, JPG e etc se possível.. Valew Amigos.. Jorge Ericsson S. Pinheiro Ericsson Sistemas e Soluções (61) 3797-4785 / 3244-8689 / 9227 4785 http://www.jericsson.com.br jericsson...@gmail.com jericssonsup%40gmail.com jericsson...@hotmail.com jericssonsup%40hotmail.com skype:jericsson Brasília - DF -- ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 8842-9489 MSN: eduardo@gmail.com Site: http://www.drdsistemas.com.br/ ... [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] URGENTE: Gravar e Ler imagem no banco MYSQL
Eduardo, sim tó usando LongBlob, o componente de acesso aos dados que eu estava usando antes era ADO, agora eu tó usando Zeos e ainda não consegui encontra nada eficiente para resolver o meu problema. 2009/1/20 Eduardo Silva dos Santos eduardo@gmail.com Jorge, qual o componente de acesso você ta usando? o campo deve ser do tipo LongBlob ok. 2009/1/20 Jorge Ericsson jericsson...@gmail.comjericssonsup%40gmail.com Olá amigos delphianos, migrei um aplicação ACCESS para MySql e estou com problemas em gravar e recuperar a foto do membro. Alguém poderia me indicar uma rotina para realizar essa tarefa sem que ter que popular a Query ou a Table com os campos ?? Exemplo. Tabelas.*TabDirigenteImg_Foto_Dirigente* .SaveToStream(Tabelas.BlobMemoryStream); Tabelas.BlobMemoryStream.Position := 0; Tabelas.JPEGImage.LoadFromStream(Tabelas.BlobMemoryStream); FotoDirigente.Picture.Assign(Tabelas.JPEGImage); Gostaria de uma solução inteligente para gravar e carregar tanto BMP, JPEG, JPG e etc se possível.. Valew Amigos.. Jorge Ericsson S. Pinheiro Ericsson Sistemas e Soluções (61) 3797-4785 / 3244-8689 / 9227 4785 http://www.jericsson.com.br jericsson...@gmail.com jericssonsup%40gmail.com jericssonsup% 40gmail.com jericsson...@hotmail.com jericssonsup%40hotmail.com jericssonsup% 40hotmail.com skype:jericsson Brasília - DF -- ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 8842-9489 MSN: eduardo@gmail.com eduardo.drd%40gmail.com Site: http://www.drdsistemas.com.br/ ... [As partes desta mensagem que não continham texto foram removidas] -- Att, Jorge Ericsson S. Pinheiro Ericsson Sistemas e Soluções (61) 3797-4785 / 3244-8689 / 9227 4785 http://www.jericsson.com.br jericsson...@gmail.com jericsson...@hotmail.com skype:jericsson Brasília - DF [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] URGENTE: Gravar e Ler imagem no banco MYSQL
Olá pessoal, Eu já fiz com Zeos: [http://www.4shared.com/file/67344222/71f82185/Zeos_and_Picture.html?dirPwdVerified=4f84753f]. Aceita os formatos PNG, GIF, BMP, JPG, ICO e etc. []'s, Silvio Clécio --- Linux User: #481900 Skype: silvioprog ICQ: 432519902 E-mail, Y! Messenger: silviop...@yahoo.com.br Gmail, GTalk: silviop...@gmail.com Hotmail, MSN: silviop...@hotmail.com BlogSpot: http://silvioclecio.blogspot.com/ BlogSite: http://silvioprog.blogspot.com/ °oO| Seja livre, use Linux! |Oo° De: Jorge Ericsson jericsson...@gmail.com Enviadas: Terça-feira, 20 de Janeiro de 2009 12:29:56 Assunto: [delphi-br] URGENTE: Gravar e Ler imagem no banco MYSQL Olá amigos delphianos, migrei um aplicação ACCESS para MySql e estou com problemas em gravar e recuperar a foto do membro. Alguém poderia me indicar uma rotina para realizar essa tarefa sem que ter que popular a Query ou a Table com os campos ?? Exemplo. Tabelas.*TabDirigen teImg_Foto_ Dirigente* .SaveToStream( Tabelas.BlobMemo ryStream) ; Tabelas.BlobMemoryS tream.Position := 0; Tabelas.JPEGImage. LoadFromStream( Tabelas.BlobMemo ryStream) ; FotoDirigente. Picture.Assign( Tabelas.JPEGImag e); Gostaria de uma solução inteligente para gravar e carregar tanto BMP, JPEG, JPG e etc se possível.. Valew Amigos.. Jorge Ericsson S. Pinheiro Ericsson Sistemas e Soluções (61) 3797-4785 / 3244-8689 / 9227 4785 http://www.jericsso n.com.br jericssonsup@ gmail.com jericssonsup@ hotmail.com skype:jericsson Brasília - DF Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] URGENTE: Gravar e Ler imagem no banco MYSQL
Jorge, você deve fazer da mesma forma que fazia com o ADO. Qual exatamente o seu problema? 2009/1/20 Jorge Ericsson jericsson...@gmail.com Eduardo, sim tó usando LongBlob, o componente de acesso aos dados que eu estava usando antes era ADO, agora eu tó usando Zeos e ainda não consegui encontra nada eficiente para resolver o meu problema. 2009/1/20 Eduardo Silva dos Santos eduardo@gmail.comeduardo.drd%40gmail.com Jorge, qual o componente de acesso você ta usando? o campo deve ser do tipo LongBlob ok. 2009/1/20 Jorge Ericsson jericsson...@gmail.comjericssonsup%40gmail.com jericssonsup%40gmail.com Olá amigos delphianos, migrei um aplicação ACCESS para MySql e estou com problemas em gravar e recuperar a foto do membro. Alguém poderia me indicar uma rotina para realizar essa tarefa sem que ter que popular a Query ou a Table com os campos ?? Exemplo. Tabelas.*TabDirigenteImg_Foto_Dirigente* .SaveToStream(Tabelas.BlobMemoryStream); Tabelas.BlobMemoryStream.Position := 0; Tabelas.JPEGImage.LoadFromStream(Tabelas.BlobMemoryStream); FotoDirigente.Picture.Assign(Tabelas.JPEGImage); Gostaria de uma solução inteligente para gravar e carregar tanto BMP, JPEG, JPG e etc se possível.. Valew Amigos.. Jorge Ericsson S. Pinheiro Ericsson Sistemas e Soluções (61) 3797-4785 / 3244-8689 / 9227 4785 http://www.jericsson.com.br jericsson...@gmail.com jericssonsup%40gmail.com jericssonsup% 40gmail.com jericssonsup% 40gmail.com jericsson...@hotmail.com jericssonsup%40hotmail.com jericssonsup% 40hotmail.com jericssonsup% 40hotmail.com skype:jericsson Brasília - DF -- ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 8842-9489 MSN: eduardo@gmail.com eduardo.drd%40gmail.com eduardo.drd% 40gmail.com Site: http://www.drdsistemas.com.br/ ... [As partes desta mensagem que não continham texto foram removidas] -- Att, Jorge Ericsson S. Pinheiro Ericsson Sistemas e Soluções (61) 3797-4785 / 3244-8689 / 9227 4785 http://www.jericsson.com.br jericsson...@gmail.com jericssonsup%40gmail.com jericsson...@hotmail.com jericssonsup%40hotmail.com skype:jericsson Brasília - DF [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 8842-9489 MSN: eduardo@gmail.com Site: http://www.drdsistemas.com.br/ ... [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] URGENTE: Gravar e Ler imagem no banco MYSQL
Eduado, Eu fiz exatamente como está fazendo com ADO só que estava apresentando uns de Stream que eu terei que reproduzir novamente e postar aqui, mas por enquanto não deu certo a minha tentativa da mesma forma que usando ADO. 2009/1/20 Eduardo Silva dos Santos eduardo@gmail.com Jorge, você deve fazer da mesma forma que fazia com o ADO. Qual exatamente o seu problema? 2009/1/20 Jorge Ericsson jericsson...@gmail.comjericssonsup%40gmail.com Eduardo, sim tó usando LongBlob, o componente de acesso aos dados que eu estava usando antes era ADO, agora eu tó usando Zeos e ainda não consegui encontra nada eficiente para resolver o meu problema. 2009/1/20 Eduardo Silva dos Santos eduardo@gmail.comeduardo.drd%40gmail.com eduardo.drd%40gmail.com Jorge, qual o componente de acesso você ta usando? o campo deve ser do tipo LongBlob ok. 2009/1/20 Jorge Ericsson jericsson...@gmail.comjericssonsup%40gmail.com jericssonsup%40gmail.com jericssonsup%40gmail.com Olá amigos delphianos, migrei um aplicação ACCESS para MySql e estou com problemas em gravar e recuperar a foto do membro. Alguém poderia me indicar uma rotina para realizar essa tarefa sem que ter que popular a Query ou a Table com os campos ?? Exemplo. Tabelas.*TabDirigenteImg_Foto_Dirigente* .SaveToStream(Tabelas.BlobMemoryStream); Tabelas.BlobMemoryStream.Position := 0; Tabelas.JPEGImage.LoadFromStream(Tabelas.BlobMemoryStream); FotoDirigente.Picture.Assign(Tabelas.JPEGImage); Gostaria de uma solução inteligente para gravar e carregar tanto BMP, JPEG, JPG e etc se possível.. Valew Amigos.. Jorge Ericsson S. Pinheiro Ericsson Sistemas e Soluções (61) 3797-4785 / 3244-8689 / 9227 4785 http://www.jericsson.com.br jericsson...@gmail.com jericssonsup%40gmail.com jericssonsup% 40gmail.com jericssonsup% 40gmail.com jericssonsup% 40gmail.com jericsson...@hotmail.com jericssonsup%40hotmail.com jericssonsup% 40hotmail.com jericssonsup% 40hotmail.com jericssonsup% 40hotmail.com skype:jericsson Brasília - DF -- ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 8842-9489 MSN: eduardo@gmail.com eduardo.drd%40gmail.com eduardo.drd% 40gmail.com eduardo.drd% 40gmail.com Site: http://www.drdsistemas.com.br/ ... [As partes desta mensagem que não continham texto foram removidas] -- Att, Jorge Ericsson S. Pinheiro Ericsson Sistemas e Soluções (61) 3797-4785 / 3244-8689 / 9227 4785 http://www.jericsson.com.br jericsson...@gmail.com jericssonsup%40gmail.com jericssonsup% 40gmail.com jericsson...@hotmail.com jericssonsup%40hotmail.com jericssonsup% 40hotmail.com skype:jericsson Brasília - DF [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 8842-9489 MSN: eduardo@gmail.com eduardo.drd%40gmail.com Site: http://www.drdsistemas.com.br/ ... [As partes desta mensagem que não continham texto foram removidas] -- Att, Jorge Ericsson S. Pinheiro Ericsson Sistemas e Soluções (61) 3797-4785 / 3244-8689 / 9227 4785 http://www.jericsson.com.br jericsson...@gmail.com jericsson...@hotmail.com skype:jericsson Brasília - DF [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] URGENTE: Gravar e Ler imagem no banco MYSQL
Jorge, era pra funcionar corretamente.. vamos tentar reproduzir o problema. me informe o seguinte, versão do MySQL, Qual componente de acesso vc usa e qual a versão dele. e um exemplo do código que vc usa pra eu tentar montar um test case aqui. 2009/1/20 Jorge Ericsson jericsson...@gmail.com Eduado, Eu fiz exatamente como está fazendo com ADO só que estava apresentando uns de Stream que eu terei que reproduzir novamente e postar aqui, mas por enquanto não deu certo a minha tentativa da mesma forma que usando ADO. 2009/1/20 Eduardo Silva dos Santos eduardo@gmail.comeduardo.drd%40gmail.com Jorge, você deve fazer da mesma forma que fazia com o ADO. Qual exatamente o seu problema? -- ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 8842-9489 MSN: eduardo@gmail.com Site: http://www.drdsistemas.com.br/ ... [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] URGENTE: Configuração INTERBAS E Dual Core
Amigo Ericsson, Boa noite! Amigo você tem um problema relativamente sério. Primeiro. Eu Sou um grande intusiasta de InterBase deixo isso empre claro. Segundo. InterBase 6 já algo muito antigo do ano de 2000, mês de Junho. O interBase 6 não suporta multi processamento simétrico ou seja ele não tira proveito máquinas com mais de 1 processadores. Além disso ele potencialmente lento para os novos hardwares e sistemas operacionais por vários motivos que ficaria longo eu descrever neste email. Você tem duas saídas Licenciar (Não é Free é pago mas é muito barato a licença vai variar conforme a quantidade de usuários e de processadores no servidor) uma versão do interbase que tire proveito de SMP (simetrical multi processing) e iso já foi implementado des de a versão 7 do InterBase, e já estamos na versão 2009 que tira mais proveito ainda de máquinas com mais de um processador (Coisa que o firebird está lonje muito lonje de fazer acontecer). InterBase 2007 Que internamente é o InterBase 8 é um dos melhores SGDBRS da história em minha opinião. eu licenciei e não me arrependo de nada. (Mas também uso o Firebird) Ou Segundo usar uma versão do Firebird 1.0.3 que é bem próxima do InterBase 6.0 Porém com a arquitetura ClassicServer que se dá melhor com máquinas multi processadas (Mas não é realmente SMP) e tem a vantagem de ser gratuito Firebird 2.0.4 (ClassicServer também) Melhorou muito isso e outros pontos de performance, tem uma biblioteca de retro-compatibilidade gds32 caso você ainda estiver usando BDE ou IBX funciona tudo igual. O segredo é ter cuidado nahora de fazer uma migração, faça testes antes com um banco piloto, faça backup do seu banco IB6 e em outra máquina muit processada sem IB6 instala uma versão do ClassicServer de uma das versões que te indiquei, depois um restore do banco com a estensão ao invéz de .gdb para .fdb e faça os testes acredito que vc vai se agradar. Se tiver dúvidas e problema sinta-se livre para entrar em contato comigo terei prazer em ajudar. Fraternalmente Marcelo Fortes. --- Em ter, 30/12/08, Jorge Ericsson jericsson...@gmail.com escreveu: De: Jorge Ericsson jericsson...@gmail.com Assunto: [delphi-br] URGENTE: Configuração INTERBASE Dual Core Para: Data: Terça-feira, 30 de Dezembro de 2008, 14:42 Olá amigos Delphianos, Procurei na lista e na NET mas não encontrei solução para o meu problema. Tenho um aplicativo (ADMINISTRATIVO) que funciona em vários estados e município usando IB 6.0. Só que algumas máquinas com dual core (múltiplo processador) o interbase fica lento do nada. Alguém sabe de alguma configuração ou atualização (patch) que resolva esse meu problema ? Obs.: Não posso mudar a arquitetura de acesso ao banco no momento para Firebird ou outro, tenho que manter por enquanto o IB 6.0. Valew pessoal, Jorge Ericsson [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] URGENTE: Configuração INTERBASE Dual Core
Olá amigos Delphianos, Procurei na lista e na NET mas não encontrei solução para o meu problema. Tenho um aplicativo (ADMINISTRATIVO) que funciona em vários estados e município usando IB 6.0. Só que algumas máquinas com dual core (múltiplo processador) o interbase fica lento do nada. Alguém sabe de alguma configuração ou atualização (patch) que resolva esse meu problema ? Obs.: Não posso mudar a arquitetura de acesso ao banco no momento para Firebird ou outro, tenho que manter por enquanto o IB 6.0. Valew pessoal, Jorge Ericsson [As partes desta mensagem que não continham texto foram removidas]
RES: {Disarmed} [delphi-br] URGENTE: Configuração INTERBASE Dual Core
A Versão 6.0 não é a versão base do Firebird? Até onde lembro o Firebird não tinha suporte para multi-processamento... Então, se for a mesma coisa... você estará usando um núcleo apenas do processador... Valei besteira? Wellingthon Cristiano Alves de Araújo http://www.upbrasil.com.br/ UpDate Tecnologia - (31) 3339- - BH-MG Desenvolvimento _ De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Jorge Ericsson Enviada em: terça-feira, 30 de dezembro de 2008 15:42 Assunto: {Disarmed} [delphi-br] URGENTE: Configuração INTERBASE Dual Core Olá amigos Delphianos, Procurei na lista e na NET mas não encontrei solução para o meu problema. Tenho um aplicativo (ADMINISTRATIVO) que funciona em vários estados e município usando IB 6.0. Só que algumas máquinas com dual core (múltiplo processador) o interbase fica lento do nada. Alguém sabe de alguma configuração ou atualização (patch) que resolva esse meu problema ? Obs.: Não posso mudar a arquitetura de acesso ao banco no momento para Firebird ou outro, tenho que manter por enquanto o IB 6.0. Valew pessoal, Jorge Ericsson [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] URGENTE: Como faço para instalar BDE de forma silenciosa.
Blz Eduardo, mas essa dica eu já tentei, não funciona. Vou continua pesquisando, pq qdo a instalação do BDE encontra qq coisa referente a mesma, a mensagem informando a instalação ou atualização aparece. Valew. 2008/12/11 Eduardo Silva dos Santos eduardo@gmail.com Espero que essa dica ajude: BDE em 1 disquete...065 - BDE em 1 disquete Depois que apanhei bastente do BDE, recorri a lista e ninguem consegui me ajudar ... consegui resolver o problema. E como acredito que outras pessoas tenham o mesmo problema, resolvi colocar essa dica na lista. Por favor, se alguem tiver algo a acresentar ou mesmo corrigir, sinta-se a vontade para compartilhar conosco. Arquivos Exenciais para o BDE: EUROPE.BLL USA.BLL IDR20009.DLL IDAPI32.DLL BLW32.DLL IDAPI32.CFG --- esse arquivo pode ter qualquer outro nome, desde que seja configurado no registro. Drivers de Banco de Dados: IDPDX32.DLL --- Driver Paradox IDASCI32.DLL --- Driver ASCII IDDBAS32.DLL --- Driver DBase IDODBC32.DLL --- Driver ODBC O BDE precisa de pelo menos um Driver de Banco de Dados para funcionar. Esses acima sao apenas alguns, existem varios outros. O BDE 4.51 + Driver Paradox compactados com o Algoritimo ZIP, ocuparam aproximadamente 650 Kb. Entradas no Registro do Win95: HKEY_LOCAL_MACHINE SOFTWARE\Borland\Database Engine DLLPATH - localizacao do BDE (Unidade+Caminho Completo) CONFIGFILE01 - localizacao do arquivo de configuracao (Unidade+Caminho Completo+Nome do Arquivo) SOFTWARE\Borland\BLW32 BLAPIPATH - localizacao do BDE (Unidade+Caminho Completo) LOCALE_LIB1 - localizacao do arquivo USA.BLL (Unidade+Caminho Completo+USA.BLL) LOCALE_LIB2 - localizacao do arquivo EUROPE.BLL (Unidade+Caminho Completo+EUROPE.BLL) Segue um pequeno exemplo de como registrar o BDE no Registro do Win95: begin Registry.RootKey := HKEY_LOCAL_MACHINE; Registry.CreateKey('SOFTWARE\Borland\Database Engine'); Registry.OpenKey('SOFTWARE\Borland\Database Engine', False); Registry.WriteString('DLLPATH', 'C:\ARQUIVOS DE PROGRAMAS\BDE\'); Registry.WriteString('CONFIGFILE1', 'C:\ARQUIVOS DE PROGRAMAS\BDE\IDAPI32.CFG'); Registry.OpenKey('\', False); Registry.CreateKey('SOFTWARE\Borland\BLW32'); Registry.OpenKey('SOFTWARE\Borland\BLW32', False); Registry.WriteString('BLAPIPATH', 'C:\ARQUIVOS DE PROGRAMAS\BDE\'); Registry.WriteString('LOCALE_LIB1', 'C:\ARQUIVOS DE PROGRAMAS\BDE\USA.BLL'); Registry.WriteString('LOCALE_LIB2', 'C:\ARQUIVOS DE PROGRAMAS\BDE\EUROPE.BLL'); end; Para compilar esse codigo, sera necessario declarar a Unit Registry. Como eu disse, esse e um exemplo bem simples. Ele nem mesmo verifica se o BDE ja esta registrado ou não. Para criar o Alias atravez do seu instalador, voce pode usar a funcão da api do BDE chamada DbiAddAlias. *Fonte: DTDelphi 2.8* 2008/12/11 Jorge Ericsson jericsson...@gmail.comjericssonsup%40gmail.com Olá amigos Delphianos, Sei que para muitos vai soar como um atraso de tecnologia, mas tenho um sistema em vários estados que necessita ainda do BDE. Bom eu desenvolvi um instalador para o meu aplicativo e todas as vezes que tento instalar a BDE atraves do comando REGSRV32 /s BDEINST.DLL, me apresenta uma tela informando que a BDE vai ser instalada/atualizada. Gostaria de instalar e registrar o BDE sem a necessidade do usuário confirma nada. Alguém já passou por isso e pode me ajudar com alguma dica ? Valew pessoal, Jorge Ericsson S. Pinheiro Ericsson Sistemas e Soluções (61) 3797-4785 / 3244-8689 / 9227 4785 http://www.jericsson.com.br jericsson...@gmail.com jericssonsup%40gmail.com jericssonsup% 40gmail.com jericsson...@hotmail.com jericssonsup%40hotmail.com jericssonsup% 40hotmail.com skype:jericsson Brasília - DF -- ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 8842-9489 MSN: eduardo@gmail.com eduardo.drd%40gmail.com Site: http://www.drdsistemas.com.br/ ... [As partes desta mensagem que não continham texto foram removidas] -- Att, Jorge Ericsson S. Pinheiro Ericsson Sistemas e Soluções (61) 3797-4785 / 3244-8689 / 9227 4785 http://www.jericsson.com.br jericsson...@gmail.com jericsson...@hotmail.com skype:jericsson Brasília - DF [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] URGENTE: Como faço para instalar BDE de forma silenciosa.
Olá amigos Delphianos, Sei que para muitos vai soar como um atraso de tecnologia, mas tenho um sistema em vários estados que necessita ainda do BDE. Bom eu desenvolvi um instalador para o meu aplicativo e todas as vezes que tento instalar a BDE atraves do comando REGSRV32 /s BDEINST.DLL, me apresenta uma tela informando que a BDE vai ser instalada/atualizada. Gostaria de instalar e registrar o BDE sem a necessidade do usuário confirma nada. Alguém já passou por isso e pode me ajudar com alguma dica ? Valew pessoal, Jorge Ericsson S. Pinheiro Ericsson Sistemas e Soluções (61) 3797-4785 / 3244-8689 / 9227 4785 http://www.jericsson.com.br [EMAIL PROTECTED] [EMAIL PROTECTED] skype:jericsson Brasília - DF [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] URGENTE: Como faço para instalar BDE de forma silenciosa.
Espero que essa dica ajude: BDE em 1 disquete...065 - BDE em 1 disquete Depois que apanhei bastente do BDE, recorri a lista e ninguem consegui me ajudar ... consegui resolver o problema. E como acredito que outras pessoas tenham o mesmo problema, resolvi colocar essa dica na lista. Por favor, se alguem tiver algo a acresentar ou mesmo corrigir, sinta-se a vontade para compartilhar conosco. Arquivos Exenciais para o BDE: EUROPE.BLL USA.BLL IDR20009.DLL IDAPI32.DLL BLW32.DLL IDAPI32.CFG --- esse arquivo pode ter qualquer outro nome, desde que seja configurado no registro. Drivers de Banco de Dados: IDPDX32.DLL --- Driver Paradox IDASCI32.DLL --- Driver ASCII IDDBAS32.DLL --- Driver DBase IDODBC32.DLL --- Driver ODBC O BDE precisa de pelo menos um Driver de Banco de Dados para funcionar. Esses acima sao apenas alguns, existem varios outros. O BDE 4.51 + Driver Paradox compactados com o Algoritimo ZIP, ocuparam aproximadamente 650 Kb. Entradas no Registro do Win95: HKEY_LOCAL_MACHINE SOFTWARE\Borland\Database Engine DLLPATH - localizacao do BDE (Unidade+Caminho Completo) CONFIGFILE01 - localizacao do arquivo de configuracao (Unidade+Caminho Completo+Nome do Arquivo) SOFTWARE\Borland\BLW32 BLAPIPATH - localizacao do BDE (Unidade+Caminho Completo) LOCALE_LIB1 - localizacao do arquivo USA.BLL (Unidade+Caminho Completo+USA.BLL) LOCALE_LIB2 - localizacao do arquivo EUROPE.BLL (Unidade+Caminho Completo+EUROPE.BLL) Segue um pequeno exemplo de como registrar o BDE no Registro do Win95: begin Registry.RootKey := HKEY_LOCAL_MACHINE; Registry.CreateKey('SOFTWARE\Borland\Database Engine'); Registry.OpenKey('SOFTWARE\Borland\Database Engine', False); Registry.WriteString('DLLPATH', 'C:\ARQUIVOS DE PROGRAMAS\BDE\'); Registry.WriteString('CONFIGFILE1', 'C:\ARQUIVOS DE PROGRAMAS\BDE\IDAPI32.CFG'); Registry.OpenKey('\', False); Registry.CreateKey('SOFTWARE\Borland\BLW32'); Registry.OpenKey('SOFTWARE\Borland\BLW32', False); Registry.WriteString('BLAPIPATH', 'C:\ARQUIVOS DE PROGRAMAS\BDE\'); Registry.WriteString('LOCALE_LIB1', 'C:\ARQUIVOS DE PROGRAMAS\BDE\USA.BLL'); Registry.WriteString('LOCALE_LIB2', 'C:\ARQUIVOS DE PROGRAMAS\BDE\EUROPE.BLL'); end; Para compilar esse codigo, sera necessario declarar a Unit Registry. Como eu disse, esse e um exemplo bem simples. Ele nem mesmo verifica se o BDE ja esta registrado ou não. Para criar o Alias atravez do seu instalador, voce pode usar a funcão da api do BDE chamada DbiAddAlias. *Fonte: DTDelphi 2.8* 2008/12/11 Jorge Ericsson jericsson...@gmail.com Olá amigos Delphianos, Sei que para muitos vai soar como um atraso de tecnologia, mas tenho um sistema em vários estados que necessita ainda do BDE. Bom eu desenvolvi um instalador para o meu aplicativo e todas as vezes que tento instalar a BDE atraves do comando REGSRV32 /s BDEINST.DLL, me apresenta uma tela informando que a BDE vai ser instalada/atualizada. Gostaria de instalar e registrar o BDE sem a necessidade do usuário confirma nada. Alguém já passou por isso e pode me ajudar com alguma dica ? Valew pessoal, Jorge Ericsson S. Pinheiro Ericsson Sistemas e Soluções (61) 3797-4785 / 3244-8689 / 9227 4785 http://www.jericsson.com.br jericsson...@gmail.com jericssonsup%40gmail.com jericsson...@hotmail.com jericssonsup%40hotmail.com skype:jericsson Brasília - DF -- ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 8842-9489 MSN: eduardo@gmail.com Site: http://www.drdsistemas.com.br/ ... [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] URGENTE: System Error . Code 1400. O identificador d e janela é inválido.
Olá pessoal, Instalei o Delphi 2007 normalmente, criei um exemplo e compilou perfeitamente, só que depois que instalei a JVCL, quando fecho o Delphi aparece o seguinte erro: System Error . Code 1400. O identificador de janela é inválido. Alguém pode me ajudar? Segui umas dicas da NET com o SmitfraudFix mas não funfou. []'s, Silvio Clécio Contatos/Blog Skype: silvioprog E-mail, Yahoo! Messenger: [EMAIL PROTECTED] Gmail, Google Talk: [EMAIL PROTECTED] Hotmail, MSN: [EMAIL PROTECTED] BlogSpot: http://silvioclecio.blogspot.com/ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] URGENTE: Controlar Inatividade do sistema
Olá pessoal, Talvez eu esteja fazendo uma pergunta que já houve resposta no forum, mas como não encontrei nada em minha pesquisa, vou remete-la. Bom eu preciso desenvolver uma função para controle de inatividade do meu sistema, tenho usuário que iniciam transações e não concluem me gerando alguns problemas no. Gostaria de após um determinado tempo fechar a tela aberta retornando o usuário para a tela principal do meu sistema. Alguém já fez isso ou conhece bem o componente JVC JEDI que faz isso ? Eu estou tentando usar somente a biblioteca JEDI qdo uso componente. Desde já agradeço... Jorge Ericsson Brasília - DF [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] URGENTE: Controlar Inatividade do sistema
Olá pessoal, Jorge eu já usei isso, coloquei um TTimer que em 3 minutos, se nada for digitado, ou se o mouse não tiver em 'foco' no Form, o TTimer faz a pergunta se o usuário deseja aplicar ou cancelar a transação, e emite um bip para chamar a atenção do usuário (tem gente que quando está no MSN esquece do mundo, rsrsrsrs). Se mesmo assim o usuário não ouvir o bip, o TTimer cancela a transação, e informa ao usuário (2 horas depois quando saiu do MSN, rsrsrsrs). []'s, Silvio Clécio Contatos/Blog Skype: silvioprog E-mail, Yahoo! Messenger: [EMAIL PROTECTED] Gmail, Google Talk: [EMAIL PROTECTED] Hotmail, MSN: [EMAIL PROTECTED] BlogSpot: http://silvioclecio.blogspot.com/ De: Jorge Ericsson [EMAIL PROTECTED] Enviadas: Terça-feira, 18 de Novembro de 2008 9:19:46 Assunto: [delphi-br] URGENTE: Controlar Inatividade do sistema Olá pessoal, Talvez eu esteja fazendo uma pergunta que já houve resposta no forum, mas como não encontrei nada em minha pesquisa, vou remete-la. Bom eu preciso desenvolver uma função para controle de inatividade do meu sistema, tenho usuário que iniciam transações e não concluem me gerando alguns problemas no. Gostaria de após um determinado tempo fechar a tela aberta retornando o usuário para a tela principal do meu sistema. Alguém já fez isso ou conhece bem o componente JVC JEDI que faz isso ? Eu estou tentando usar somente a biblioteca JEDI qdo uso componente. Desde já agradeço... Jorge Ericsson Brasília - DF Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] URGENTE: Controlar Inatividade do sistema
Poe no seu form KeyPreview := True e um Timer, e no OnTimer dele você poe o comando pra fechar o form. Nos eventos de pressionamento de mouse/teclado do seu form, você reseta o Timer pra ele não disparar. Feito. 2008/11/18 Jorge Ericsson [EMAIL PROTECTED] Olá pessoal, Talvez eu esteja fazendo uma pergunta que já houve resposta no forum, mas como não encontrei nada em minha pesquisa, vou remete-la. Bom eu preciso desenvolver uma função para controle de inatividade do meu sistema, tenho usuário que iniciam transações e não concluem me gerando alguns problemas no. Gostaria de após um determinado tempo fechar a tela aberta retornando o usuário para a tela principal do meu sistema. Alguém já fez isso ou conhece bem o componente JVC JEDI que faz isso ? Eu estou tentando usar somente a biblioteca JEDI qdo uso componente. Desde já agradeço... Jorge Ericsson Brasília - DF [As partes desta mensagem que não continham texto foram removidas] -- Atenciosamente, Paulo Coutinho. Site: www.prsolucoes.com Msn: [EMAIL PROTECTED] Skype: paulo.prsolucoes [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] URGENTE: Controlar Inatividade do sistema
2008/11/18 Jorge Ericsson [EMAIL PROTECTED]: Bom eu preciso desenvolver uma função para controle de inatividade do meu sistema, tenho usuário que iniciam transações e não concluem me gerando alguns problemas O problema não está no fato do usuário segurar uma tela de alteração, mas de você ter segurado a transação aberta por causa daquela tela. Transações não podem ficar mais do que uma fração de segundos aberta. Joao Morais
[delphi-br] URGENTE: Instalação de Programa no Windows Vista
Olá pessoal, Alguém já instalou algum programa pelo delphi no Windows Vista ? Estou testando um instalador que criei no Windows Vista e não estou tendo sucesso. Já coloquei o usuário e o administrrador ativos Ex: Net user Administrador /Active:yes e mesmo assim quando chega na instalação do Firebird ou do PostGres, dá a mensagem dizendo que o usuário não tem previlégio. Se alguém tiver uma solução a nivél de código pelo Delphi, por favor me informe. Grato. Jorge Ericsson [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] [urgente] iw do delphi 2009 nao funciona com o iis 6.0
desenvolvi uma aplicacao em iw agora fui publicar e simplesmente nao ta rodando.. ja setei permissao na pasta.. criei um diretorio virtual com as tres primeiras opcoes de executar, etc. e nada.. estou desenvolvendo usando ADO... obrigado.. t+ -- --- Rafael jorge alves (Analista/desenvolvedor) www.sistemafocus.com.br sistema focus de gestão comercial e serviços em informatica. --- [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] [urgente] iw do delphi 2009 nao funciona com o iis 6.0
Passa o coninitialization do server controller para cinormal... já fez isso? From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On Behalf Of Rafael Jorge Sent: quarta-feira, 22 de outubro de 2008 16:44 To: delphi-br Subject: [delphi-br] [urgente] iw do delphi 2009 nao funciona com o iis 6.0 desenvolvi uma aplicacao em iw agora fui publicar e simplesmente nao ta rodando.. ja setei permissao na pasta.. criei um diretorio virtual com as tres primeiras opcoes de executar, etc. e nada.. estou desenvolvendo usando ADO... obrigado.. t+ -- -- Rafael jorge alves (Analista/desenvolvedor) www.sistemafocus.com.br sistema focus de gestão comercial e serviços em informatica. -- [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] [urgente] iw do delphi 2009 nao funciona com o iis 6.0
coloquei mas nao faz nada. T+ 2008/10/22 Bruno Lichot [EMAIL PROTECTED] Passa o coninitialization do server controller para cinormal... já fez isso? From: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br[mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] On Behalf Of Rafael Jorge Sent: quarta-feira, 22 de outubro de 2008 16:44 To: delphi-br Subject: [delphi-br] [urgente] iw do delphi 2009 nao funciona com o iis 6.0 desenvolvi uma aplicacao em iw agora fui publicar e simplesmente nao ta rodando.. ja setei permissao na pasta.. criei um diretorio virtual com as tres primeiras opcoes de executar, etc. e nada.. estou desenvolvendo usando ADO... obrigado.. t+ -- -- Rafael jorge alves (Analista/desenvolvedor) www.sistemafocus.com.br sistema focus de gestão comercial e serviços em informatica. -- [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- --- Rafael jorge alves (Analista/desenvolvedor) www.sistemafocus.com.br sistema focus de gestão comercial e serviços em informatica. --- [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Urgente: Rotina para criação de Crachá/Carteirinha Runtime
Olá amigos, Pesquisei muito na net e não encontrei nenhum sisteminha com fontes de como criar um crachá ou carteirinha de membros de modo runtime que eu pudesse analisar. Meu cliente me pediu que desenvolvesse algo para ele criar a carteirinha dos membros com foto ao gosto dele, e não encontrei nenhum exemplo em delphi que me desse essa flexibilidade. Bom eu preciso colocar a foto do membro, desenhar as caixas onde vão os texto frente e verso e imprimir no quickreport. com opção de um apenas ou 4 por folha. Alguém conhece uma maneira ou pode me dá uma luz para eu seguir em frente ? Grato pela ajuda. Jorge Ericsson S. Pinheiro Ericsson Sistemas e Soluções (61) 3797-4785 / 3244-8689 / 9227 4785 http://www.jericsson.com.br [EMAIL PROTECTED] [EMAIL PROTECTED] skype:jericsson Brasília - DF [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] [urgente] Intraweb delphi 2009 cheio de ?????
criei uma aplicacao em intraweb pra um cliente meu. NO MEU pc ela funciona perfeitamente... na maquina dele fica cheia de ??? Vc já tentou rodar uma aplicação simples do IW (talvez algo com um botão que faça alguma coisa) na máquina de seu cliente? Qual o browser dele? É uma ISAPI ou Stand Alone Server que vc está executando? Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores CodeGear Web Site: http://www.toolsandcomps.com Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps e-mail: [EMAIL PROTECTED] Fone: 27 3389 1138 - 8811 0324 Devhost - Webhost para desenvolvedores Delphi http://www.devhost.com.br [EMAIL PROTECTED]
[delphi-br] [urgente] Intraweb delphi 2009 cheio de ?????
estou agoniado.. ja fiz de tudo... criei uma aplicacao em intraweb pra um cliente meu. NO MEU pc ela funciona perfeitamente... na maquina dele fica cheia de ??? ? ??? e nada... alquem sabe como resolver isso.. to usando dbexpress 4 acessando firebird 2.1 com o driver interbase.. pq o driver do firebird mermo nao funciona no delphi 2009 T+ -- --- Rafael jorge alves (Analista/desenvolvedor) www.sistemafocus.com.br sistema focus de gestão comercial e serviços em informatica. --- [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] URGENTE: Autenticação no GMAIL para envio de e-mail
Olá amigos, Alguém já conseguiu enviar e-mail autenticado usando uma conta do GMAIL ? Eu tentei vários exemplos pesquisados na REDE com Indy 10 e não consegui´. Ao meu ver o código está correto e desconfio que a minha rede (trabalho) está bloqueando a saída. Alguém que já passou por isso, poderia dá uma Luz. Obrigado amigos procedure TForm1.Button1Click(Sender: TObject); begin with MSG do begin Body.Add(Memo1.Text); From.Address := Edit2.Text; From.Name:= 'Siger Suporte'; //opcional Recipients.Add; Recipients.Items[0].Address := Edit1.Text;//'[EMAIL PROTECTED]'; Recipients.Items[0].Name:= 'Atendimento On-Line'; Subject := 'Suporte Técnico'; end; try SMTP.Connect(); SMTP.Send(MSG); SMTP.Disconnect; except on E : Exception do begin ShowMessage('Falha no envio!'+E.Message); exit; end; end; ShowMessage('Mensagem enviada com sucesso!'); end; procedure TForm1.FormCreate(Sender: TObject); begin with SMTP do begin AuthType := atSASL; (já mudei para Default e deu o mesmo erro. Host := 'smtp.gmail.com'; IOHandler:= SSLSocket; Password := '123456789'; Port := StrToInt(Edit3.Text);// 995; Username := '[EMAIL PROTECTED]'; end; SSLSocket.SSLOptions.Method := sslvSSLv2; SSLSocket.SSLOptions.Mode := sslmClient; end; -- Att, Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3967.6172 Brasília - DF
Re: [delphi-br] URGENTE: Autenticação no GMAIL para envio de e-mail
E ae Jorge, blz? vc colocou na pasta do system32 os dois arquivos de conexão? Onjahyr Jorge Ericsson escreveu: Olá amigos, Alguém já conseguiu enviar e-mail autenticado usando uma conta do GMAIL ? Eu tentei vários exemplos pesquisados na REDE com Indy 10 e não consegui´. Ao meu ver o código está correto e desconfio que a minha rede (trabalho) está bloqueando a saída. Alguém que já passou por isso, poderia dá uma Luz. Obrigado amigos procedure TForm1.Button1Click(Sender: TObject); begin with MSG do begin Body.Add(Memo1.Text); From.Address := Edit2.Text; From.Name := 'Siger Suporte'; //opcional Recipients.Add; Recipients.Items[0].Address := Edit1.Text;//'[EMAIL PROTECTED] mailto:%2F%2F%27shaokhann%40gmail.com'; Recipients.Items[0].Name := 'Atendimento On-Line'; Subject := 'Suporte Técnico'; end; try SMTP.Connect(); SMTP.Send(MSG); SMTP.Disconnect; except on E : Exception do begin ShowMessage('Falha no envio!'+E.Message); exit; end; end; ShowMessage('Mensagem enviada com sucesso!'); end; procedure TForm1.FormCreate(Sender: TObject); begin with SMTP do begin AuthType := atSASL; (já mudei para Default e deu o mesmo erro. Host := 'smtp.gmail.com'; IOHandler:= SSLSocket; Password := '123456789'; Port := StrToInt(Edit3.Text);// 995; Username := '[EMAIL PROTECTED] mailto:%27meusuporte%40gmail.com'; end; SSLSocket.SSLOptions.Method := sslvSSLv2; SSLSocket.SSLOptions.Mode := sslmClient; end; -- Att, Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br http://www.jericsson.com.br 61 9227.4785 / 3967.6172 Brasília - DF
Re: [delphi-br] URGENTE: Autenticação no GMAIL para envio de e-mail
Sim, tentei na pasta system32 e tbém local onde esta o executável. 2008/9/30 Onjahyr - GMAIL [EMAIL PROTECTED]: E ae Jorge, blz? vc colocou na pasta do system32 os dois arquivos de conexão? Onjahyr Jorge Ericsson escreveu: Olá amigos, Alguém já conseguiu enviar e-mail autenticado usando uma conta do GMAIL ? Eu tentei vários exemplos pesquisados na REDE com Indy 10 e não consegui´. Ao meu ver o código está correto e desconfio que a minha rede (trabalho) está bloqueando a saída. Alguém que já passou por isso, poderia dá uma Luz. Obrigado amigos procedure TForm1.Button1Click(Sender: TObject); begin with MSG do begin Body.Add(Memo1.Text); From.Address := Edit2.Text; From.Name := 'Siger Suporte'; //opcional Recipients.Add; Recipients.Items[0].Address := Edit1.Text;//'[EMAIL PROTECTED] mailto:%2F%2F%27shaokhann%40gmail.com'; Recipients.Items[0].Name := 'Atendimento On-Line'; Subject := 'Suporte Técnico'; end; try SMTP.Connect(); SMTP.Send(MSG); SMTP.Disconnect; except on E : Exception do begin ShowMessage('Falha no envio!'+E.Message); exit; end; end; ShowMessage('Mensagem enviada com sucesso!'); end; procedure TForm1.FormCreate(Sender: TObject); begin with SMTP do begin AuthType := atSASL; (já mudei para Default e deu o mesmo erro. Host := 'smtp.gmail.com'; IOHandler:= SSLSocket; Password := '123456789'; Port := StrToInt(Edit3.Text);// 995; Username := '[EMAIL PROTECTED] mailto:%27meusuporte%40gmail.com'; end; SSLSocket.SSLOptions.Method := sslvSSLv2; SSLSocket.SSLOptions.Mode := sslmClient; end; -- Att, Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br http://www.jericsson.com.br 61 9227.4785 / 3967.6172 Brasília - DF -- Att, Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3967.6172 Brasília - DF
[delphi-br] Urgente ! - Dúvida DblookupComboBox
Boa tarde pessoal,tudo bem ?...Sou novo aqui e estou com uma dúvida que está me estressando pois não consigo resolver, espero que vocês possam me ajudar, sou programador júnior e não acho a solução...Vou explicar o problema : Tenho uma tabela de cliente, produtos, e outra com produtos filtrado por cliente. Na tela de cadastro dos produtos filtrados, o usuário seleciona o cliente, e todos os produtos cadastrados devem ser exibidos um a um no dblookupcombobox automaticamente. Mas o problema é que quando passo algum produto para ser exibido no dblookupcombobox, ele não mostra. E quando fui no debug ele recebe o valor mas não exibe. URGENTE!!!
[delphi-br] Urgente - Criação de Subpasta no menu INICIAR do Windows
Olá amigos, Depois de fuçar muito esses dois dias, eu não encontrei nada que resolvesse o meu problema. Talvezes seja o cansaço mais não consegui mesmo resolver o meu problema. Bom, preciso criar um atalho para o meu programa na pasta dentro da Programas e nessa pasta colocar meu atalho da seguinte forma. Programa Console - Desktop (moleza) Console (programa) Programa Exportação - Iniciar - Programas - Exportação (pasta) Export.exe (programa) Programa Importação - Iniciar - Programas - Importação (pasta) Import.exe (programa) Programa Migração - Iniciar - Programas - Migração (programa) Sei que o Inno Setup dá pra fazer isso com o pé nas costa, mas como eu criei o meu programa de instalação eu gostaria de controlar essa distribuição de aplicativos. Tentei usar a function abaixo mas não deu certo. CreateShortcut(SourceFileName ;. const SHELL_FOLDERS_ROOT = 'Software\MicroSoft\Windows\CurrentVersion\Explorer'; QUICK_LAUNCH_ROOT = 'Software\MicroSoft\Windows\CurrentVersion\GrpConv'; Se alguém que já passou por isso puder me ajudar, já lhe fico grato... Valew pessoal. Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3967.6172 Brasília - DF [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Urgente - Criação de Subpasta no m enu INICIAR do Windows
Meu computador se chama VINICIUS, as pastas ficam aqui dentro: C:\Documents and Settings\VINICIUS\Menu Iniciar\Programas\ basta criar uma pasta ali dentro. Vinicius dos Santos Blog: http://tuplas.blogspot.com http://www.msisolucoes.com.br - Original Message - From: Jorge Ericsson To: undisclosed-recipients: Sent: Thursday, August 14, 2008 3:45 PM Subject: [delphi-br] Urgente - Criação de Subpasta no menu INICIAR do Windows Olá amigos, Depois de fuçar muito esses dois dias, eu não encontrei nada que resolvesse o meu problema. Talvezes seja o cansaço mais não consegui mesmo resolver o meu problema. Bom, preciso criar um atalho para o meu programa na pasta dentro da Programas e nessa pasta colocar meu atalho da seguinte forma. Programa Console - Desktop (moleza) Console (programa) Programa Exportação - Iniciar - Programas - Exportação (pasta) Export.exe (programa) Programa Importação - Iniciar - Programas - Importação (pasta) Import.exe (programa) Programa Migração - Iniciar - Programas - Migração (programa) Sei que o Inno Setup dá pra fazer isso com o pé nas costa, mas como eu criei o meu programa de instalação eu gostaria de controlar essa distribuição de aplicativos. Tentei usar a function abaixo mas não deu certo. CreateShortcut(SourceFileName ;. const SHELL_FOLDERS_ROOT = 'Software\MicroSoft\Windows\CurrentVersion\Explorer'; QUICK_LAUNCH_ROOT = 'Software\MicroSoft\Windows\CurrentVersion\GrpConv'; Se alguém que já passou por isso puder me ajudar, já lhe fico grato... Valew pessoal. Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3967.6172 Brasília - DF [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] Urgente - Criação de Subpasta no menu INICIAR do Windows
Vinicius o problema é que gostaria de criar para qq usuários que logasse na máquina ou seja C:\Documents and Settings\All Users\Menu Iniciar\Programas Dessa forma qq usuário que logar na máquina terá a visualização dos programas. 2008/8/14 Vinicius Santos - MSI [EMAIL PROTECTED] Meu computador se chama VINICIUS, as pastas ficam aqui dentro: C:\Documents and Settings\VINICIUS\Menu Iniciar\Programas\ basta criar uma pasta ali dentro. Vinicius dos Santos Blog: http://tuplas.blogspot.com http://www.msisolucoes.com.br - Original Message - From: Jorge Ericsson To: undisclosed-recipients: Sent: Thursday, August 14, 2008 3:45 PM Subject: [delphi-br] Urgente - Criação de Subpasta no menu INICIAR do Windows Olá amigos, Depois de fuçar muito esses dois dias, eu não encontrei nada que resolvesse o meu problema. Talvezes seja o cansaço mais não consegui mesmo resolver o meu problema. Bom, preciso criar um atalho para o meu programa na pasta dentro da Programas e nessa pasta colocar meu atalho da seguinte forma. Programa Console - Desktop (moleza) Console (programa) Programa Exportação - Iniciar - Programas - Exportação (pasta) Export.exe (programa) Programa Importação - Iniciar - Programas - Importação (pasta) Import.exe (programa) Programa Migração - Iniciar - Programas - Migração (programa) Sei que o Inno Setup dá pra fazer isso com o pé nas costa, mas como eu criei o meu programa de instalação eu gostaria de controlar essa distribuição de aplicativos. Tentei usar a function abaixo mas não deu certo. CreateShortcut(SourceFileName ;. const SHELL_FOLDERS_ROOT = 'Software\MicroSoft\Windows\CurrentVersion\Explorer'; QUICK_LAUNCH_ROOT = 'Software\MicroSoft\Windows\CurrentVersion\GrpConv'; Se alguém que já passou por isso puder me ajudar, já lhe fico grato... Valew pessoal. Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3967.6172 Brasília - DF [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Att, Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3967.6172 Brasília - DF [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Urgente - Criação de Subpasta no m enu INICIAR do Windows
certo, mas então qual o problema de se criar dentro de All User ?? - Original Message - From: Jorge Ericsson To: delphi-br@yahoogrupos.com.br Sent: Thursday, August 14, 2008 4:11 PM Subject: Re: [delphi-br] Urgente - Criação de Subpasta no menu INICIAR do Windows Vinicius o problema é que gostaria de criar para qq usuários que logasse na máquina ou seja C:\Documents and Settings\All Users\Menu Iniciar\Programas Dessa forma qq usuário que logar na máquina terá a visualização dos programas. 2008/8/14 Vinicius Santos - MSI [EMAIL PROTECTED] Meu computador se chama VINICIUS, as pastas ficam aqui dentro: C:\Documents and Settings\VINICIUS\Menu Iniciar\Programas\ basta criar uma pasta ali dentro. Vinicius dos Santos Blog: http://tuplas.blogspot.com http://www.msisolucoes.com.br - Original Message - From: Jorge Ericsson To: undisclosed-recipients: Sent: Thursday, August 14, 2008 3:45 PM Subject: [delphi-br] Urgente - Criação de Subpasta no menu INICIAR do Windows Olá amigos, Depois de fuçar muito esses dois dias, eu não encontrei nada que resolvesse o meu problema. Talvezes seja o cansaço mais não consegui mesmo resolver o meu problema. Bom, preciso criar um atalho para o meu programa na pasta dentro da Programas e nessa pasta colocar meu atalho da seguinte forma. Programa Console - Desktop (moleza) Console (programa) Programa Exportação - Iniciar - Programas - Exportação (pasta) Export.exe (programa) Programa Importação - Iniciar - Programas - Importação (pasta) Import.exe (programa) Programa Migração - Iniciar - Programas - Migração (programa) Sei que o Inno Setup dá pra fazer isso com o pé nas costa, mas como eu criei o meu programa de instalação eu gostaria de controlar essa distribuição de aplicativos. Tentei usar a function abaixo mas não deu certo. CreateShortcut(SourceFileName ;. const SHELL_FOLDERS_ROOT = 'Software\MicroSoft\Windows\CurrentVersion\Explorer'; QUICK_LAUNCH_ROOT = 'Software\MicroSoft\Windows\CurrentVersion\GrpConv'; Se alguém que já passou por isso puder me ajudar, já lhe fico grato... Valew pessoal. Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3967.6172 Brasília - DF [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Att, Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3967.6172 Brasília - DF [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] Urgente - Criação de Subpasta no menu INICIAR do Windows
você sabe como criar via código ??? Pq eu já testei e não tive sucesso, mesmo criando na mão a pasta. 2008/8/14 Vinicius Santos - MSI [EMAIL PROTECTED] certo, mas então qual o problema de se criar dentro de All User ?? - Original Message - From: Jorge Ericsson To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Thursday, August 14, 2008 4:11 PM Subject: Re: [delphi-br] Urgente - Criação de Subpasta no menu INICIAR do Windows Vinicius o problema é que gostaria de criar para qq usuários que logasse na máquina ou seja C:\Documents and Settings\All Users\Menu Iniciar\Programas Dessa forma qq usuário que logar na máquina terá a visualização dos programas. 2008/8/14 Vinicius Santos - MSI [EMAIL PROTECTED]vinicius%40msisolucoes.com.br Meu computador se chama VINICIUS, as pastas ficam aqui dentro: C:\Documents and Settings\VINICIUS\Menu Iniciar\Programas\ basta criar uma pasta ali dentro. Vinicius dos Santos Blog: http://tuplas.blogspot.com http://www.msisolucoes.com.br - Original Message - From: Jorge Ericsson To: undisclosed-recipients: Sent: Thursday, August 14, 2008 3:45 PM Subject: [delphi-br] Urgente - Criação de Subpasta no menu INICIAR do Windows Olá amigos, Depois de fuçar muito esses dois dias, eu não encontrei nada que resolvesse o meu problema. Talvezes seja o cansaço mais não consegui mesmo resolver o meu problema. Bom, preciso criar um atalho para o meu programa na pasta dentro da Programas e nessa pasta colocar meu atalho da seguinte forma. Programa Console - Desktop (moleza) Console (programa) Programa Exportação - Iniciar - Programas - Exportação (pasta) Export.exe (programa) Programa Importação - Iniciar - Programas - Importação (pasta) Import.exe (programa) Programa Migração - Iniciar - Programas - Migração (programa) Sei que o Inno Setup dá pra fazer isso com o pé nas costa, mas como eu criei o meu programa de instalação eu gostaria de controlar essa distribuição de aplicativos. Tentei usar a function abaixo mas não deu certo. CreateShortcut(SourceFileName ;. const SHELL_FOLDERS_ROOT = 'Software\MicroSoft\Windows\CurrentVersion\Explorer'; QUICK_LAUNCH_ROOT = 'Software\MicroSoft\Windows\CurrentVersion\GrpConv'; Se alguém que já passou por isso puder me ajudar, já lhe fico grato... Valew pessoal. Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3967.6172 Brasília - DF [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Att, Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3967.6172 Brasília - DF [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Att, Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3967.6172 Brasília - DF [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Urgente - Criação de Subpasta no m enu INICIAR do Windows
Coloquei um botão no form e coloquei isso: MkDir('C:\Documents and Settings\All Users\Menu Iniciar\Programas\Teste') funcionou, normalmente ! além de MkDir, vc tem o CreateDir, para criar pastas. - Original Message - From: Jorge Ericsson To: delphi-br@yahoogrupos.com.br Sent: Thursday, August 14, 2008 4:25 PM Subject: Re: [delphi-br] Urgente - Criação de Subpasta no menu INICIAR do Windows você sabe como criar via código ??? Pq eu já testei e não tive sucesso, mesmo criando na mão a pasta. 2008/8/14 Vinicius Santos - MSI [EMAIL PROTECTED] certo, mas então qual o problema de se criar dentro de All User ?? - Original Message - From: Jorge Ericsson To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Thursday, August 14, 2008 4:11 PM Subject: Re: [delphi-br] Urgente - Criação de Subpasta no menu INICIAR do Windows Vinicius o problema é que gostaria de criar para qq usuários que logasse na máquina ou seja C:\Documents and Settings\All Users\Menu Iniciar\Programas Dessa forma qq usuário que logar na máquina terá a visualização dos programas. 2008/8/14 Vinicius Santos - MSI [EMAIL PROTECTED]vinicius%40msisolucoes.com.br Meu computador se chama VINICIUS, as pastas ficam aqui dentro: C:\Documents and Settings\VINICIUS\Menu Iniciar\Programas\ basta criar uma pasta ali dentro. Vinicius dos Santos Blog: http://tuplas.blogspot.com http://www.msisolucoes.com.br - Original Message - From: Jorge Ericsson To: undisclosed-recipients: Sent: Thursday, August 14, 2008 3:45 PM Subject: [delphi-br] Urgente - Criação de Subpasta no menu INICIAR do Windows Olá amigos, Depois de fuçar muito esses dois dias, eu não encontrei nada que resolvesse o meu problema. Talvezes seja o cansaço mais não consegui mesmo resolver o meu problema. Bom, preciso criar um atalho para o meu programa na pasta dentro da Programas e nessa pasta colocar meu atalho da seguinte forma. Programa Console - Desktop (moleza) Console (programa) Programa Exportação - Iniciar - Programas - Exportação (pasta) Export.exe (programa) Programa Importação - Iniciar - Programas - Importação (pasta) Import.exe (programa) Programa Migração - Iniciar - Programas - Migração (programa) Sei que o Inno Setup dá pra fazer isso com o pé nas costa, mas como eu criei o meu programa de instalação eu gostaria de controlar essa distribuição de aplicativos. Tentei usar a function abaixo mas não deu certo. CreateShortcut(SourceFileName ;. const SHELL_FOLDERS_ROOT = 'Software\MicroSoft\Windows\CurrentVersion\Explorer'; QUICK_LAUNCH_ROOT = 'Software\MicroSoft\Windows\CurrentVersion\GrpConv'; Se alguém que já passou por isso puder me ajudar, já lhe fico grato... Valew pessoal. Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3967.6172 Brasília - DF [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Att, Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3967.6172 Brasília - DF [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Att, Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3967.6172 Brasília - DF [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] Urgente - Criação de Subpasta no menu INICIAR do Windows
Desculpe Vinicius mas vc não entendeu meu problema.. Valew amigão.. 2008/8/14 Vinicius Santos - MSI [EMAIL PROTECTED] Coloquei um botão no form e coloquei isso: MkDir('C:\Documents and Settings\All Users\Menu Iniciar\Programas\Teste') funcionou, normalmente ! além de MkDir, vc tem o CreateDir, para criar pastas. - Original Message - From: Jorge Ericsson To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Thursday, August 14, 2008 4:25 PM Subject: Re: [delphi-br] Urgente - Criação de Subpasta no menu INICIAR do Windows você sabe como criar via código ??? Pq eu já testei e não tive sucesso, mesmo criando na mão a pasta. 2008/8/14 Vinicius Santos - MSI [EMAIL PROTECTED]vinicius%40msisolucoes.com.br certo, mas então qual o problema de se criar dentro de All User ?? - Original Message - From: Jorge Ericsson To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br% 40yahoogrupos.com.br Sent: Thursday, August 14, 2008 4:11 PM Subject: Re: [delphi-br] Urgente - Criação de Subpasta no menu INICIAR do Windows Vinicius o problema é que gostaria de criar para qq usuários que logasse na máquina ou seja C:\Documents and Settings\All Users\Menu Iniciar\Programas Dessa forma qq usuário que logar na máquina terá a visualização dos programas. 2008/8/14 Vinicius Santos - MSI [EMAIL PROTECTED]vinicius%40msisolucoes.com.br vinicius%40msisolucoes.com.br Meu computador se chama VINICIUS, as pastas ficam aqui dentro: C:\Documents and Settings\VINICIUS\Menu Iniciar\Programas\ basta criar uma pasta ali dentro. Vinicius dos Santos Blog: http://tuplas.blogspot.com http://www.msisolucoes.com.br - Original Message - From: Jorge Ericsson To: undisclosed-recipients: Sent: Thursday, August 14, 2008 3:45 PM Subject: [delphi-br] Urgente - Criação de Subpasta no menu INICIAR do Windows Olá amigos, Depois de fuçar muito esses dois dias, eu não encontrei nada que resolvesse o meu problema. Talvezes seja o cansaço mais não consegui mesmo resolver o meu problema. Bom, preciso criar um atalho para o meu programa na pasta dentro da Programas e nessa pasta colocar meu atalho da seguinte forma. Programa Console - Desktop (moleza) Console (programa) Programa Exportação - Iniciar - Programas - Exportação (pasta) Export.exe (programa) Programa Importação - Iniciar - Programas - Importação (pasta) Import.exe (programa) Programa Migração - Iniciar - Programas - Migração (programa) Sei que o Inno Setup dá pra fazer isso com o pé nas costa, mas como eu criei o meu programa de instalação eu gostaria de controlar essa distribuição de aplicativos. Tentei usar a function abaixo mas não deu certo. CreateShortcut(SourceFileName ;. const SHELL_FOLDERS_ROOT = 'Software\MicroSoft\Windows\CurrentVersion\Explorer'; QUICK_LAUNCH_ROOT = 'Software\MicroSoft\Windows\CurrentVersion\GrpConv'; Se alguém que já passou por isso puder me ajudar, já lhe fico grato... Valew pessoal. Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3967.6172 Brasília - DF [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Att, Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3967.6172 Brasília - DF [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Att, Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3967.6172 Brasília - DF [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Att, Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3967.6172 Brasília - DF [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Urgente - Criação de Subpasta no menu INICIAR do Windows
Mas e se eu tiver duas partições e minha documents and settings estiver na unidade D:\ por exemplo? De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Vinicius Santos - MSI Enviada em: quinta-feira, 14 de agosto de 2008 Boa tarde Dé 15:51 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Urgente - Criação de Subpasta no menu INICIAR do Windows Meu computador se chama VINICIUS, as pastas ficam aqui dentro: C:\Documents and Settings\VINICIUS\Menu Iniciar\Programas\ basta criar uma pasta ali dentro. Vinicius dos Santos Blog: http://tuplas.blogspot.com http://www.msisolucoes.com.br - Original Message - From: Jorge Ericsson To: undisclosed-recipients: Sent: Thursday, August 14, 2008 3:45 PM Subject: [delphi-br] Urgente - Criação de Subpasta no menu INICIAR do Windows Olá amigos, Depois de fuçar muito esses dois dias, eu não encontrei nada que resolvesse o meu problema. Talvezes seja o cansaço mais não consegui mesmo resolver o meu problema. Bom, preciso criar um atalho para o meu programa na pasta dentro da Programas e nessa pasta colocar meu atalho da seguinte forma. Programa Console - Desktop (moleza) Console (programa) Programa Exportação - Iniciar - Programas - Exportação (pasta) Export.exe (programa) Programa Importação - Iniciar - Programas - Importação (pasta) Import.exe (programa) Programa Migração - Iniciar - Programas - Migração (programa) Sei que o Inno Setup dá pra fazer isso com o pé nas costa, mas como eu criei o meu programa de instalação eu gostaria de controlar essa distribuição de aplicativos. Tentei usar a function abaixo mas não deu certo. CreateShortcut(SourceFileName ;. const SHELL_FOLDERS_ROOT = 'Software\MicroSoft\Windows\CurrentVersion\Explorer'; QUICK_LAUNCH_ROOT = 'Software\MicroSoft\Windows\CurrentVersion\GrpConv'; Se alguém que já passou por isso puder me ajudar, já lhe fico grato... Valew pessoal. Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3967.6172 Brasília - DF [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] No virus found in this incoming message. Checked by AVG - http://www.avg.com Version: 8.0.138 / Virus Database: 270.6.3/1611 - Release Date: 14/8/2008 06:20 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Urgente - Como bloquear um texto no TMemo ?
Olá pessoal, Estou desenvolvendo um construtor de Querys e gostaria de bloquear a digitação de comandos como DELETE, UPDATE, INSERT etc permitindo apenas a construção de sintaxe de pesquisa como SELECT. Alguém sabe como fazer isso ?? Att, Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3967.6172 Brasília - DF [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Urgente - Como bloquear um texto no TMemo ?
Antes de executar a query verifique se existem esses comandos no texto do memo. if (Pos('INSERT', UpperCase(Memo1.Text)) 0) then ShowMessage('Comando Insert não permitido!') else if (Pos('DELETE', UpperCase(Memo1.Text)) 0) then ShowMessage('Comando Delete não permitido!') else if (Pos('UPDATE', UpperCase(Memo1.Text)) 0) then ShowMessage('Comando Update não permitido!'); [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] [URGENTE] erro no firebird.. The cursor identified in the update or delete statement is not positioned on a row. no current record for fetch operation.
Vc poderia mandar o SELECT... iria ajudar bastante... t+ - Original Message - From: Rafael Jorge To: delphi-br Sent: Tuesday, July 15, 2008 8:53 PM Subject: [delphi-br] [URGENTE] erro no firebird.. The cursor identified in the update or delete statement is not positioned on a row. no current record for fetch operation. migrei do 1.5 pro firebird 2 se eu fizer um select que tenho um left join e um where ele da The cursor identified in the update or delete statement is not positioned on a row. no current record for fetch operation. e nao retorna nada.. ja to agoniado.. alquem sabe como resolver isso? socorro.. se alquem souber solucionar isso por favor me ajuda.. t+ -- -- Rafael jorge alves (Analista/desenvolvedor) www.sistemafocus.com.br sistema focus de gestão comercial e serviços em informatica. -- [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] [URGENTE] erro no firebird.. The cursor identified in the update or delete statement is not positioned on a row. no current record for fetch operation.
migrei do 1.5 pro firebird 2 se eu fizer um select que tenho um left join e um where ele da The cursor identified in the update or delete statement is not positioned on a row. no current record for fetch operation. e nao retorna nada.. ja to agoniado.. alquem sabe como resolver isso? socorro.. se alquem souber solucionar isso por favor me ajuda.. t+ -- --- Rafael jorge alves (Analista/desenvolvedor) www.sistemafocus.com.br sistema focus de gestão comercial e serviços em informatica. --- [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] URGENTE - Quickreport (Error creating form: Printer selected is not valid.)
Olá amigos delphianos, Alguém sabe como resolver aquele velho problema do Quickreport não funcionar corretamente quando não encontra uma impressora instalada no Rwindows. Não gostaria de pedi para o usuário instalar qq coisa na máquina, se houver uma solução melhor, por favor postem para mim. Muito Grato, Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3967.6172 Brasília - DF [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] URGENTE - Converte projeto CLX para VCL
Olá amigos, estou precisando de algumas dicas para migrar um sistema de CLX para VCL com certa urgência. Alguém já experimentou tal proeza ou conheci alguma ferramenta paga ou free que faça isso ? Valew pessoal. Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3967.6172 Brasília - DF [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] URGENTE: Registrar DLL pelo delphi
Blz Davi, vou testar esta função mas por enquanto tive que resolver usando o /s na opção. Obrigado. 2008/6/13 Davi Eduardo Borges Wall [EMAIL PROTECTED]: Aí! 500 pila a solução pronta. Aproveita que hoje estou generoso! Pode depositar nessa conta HSBC - 018-112888-8 function TFormMain.RegisterActiveXServer(const ServerLocation: string; Register: Boolean): Boolean; var ServerDllRegisterServer: function: HResult; stdcall; ServerDllUnregisterServer: function: HResult; stdcall; ServerHandle: THandle; procedure UnloadServerFunctions; begin @ServerDllRegisterServer := nil; @ServerDllUnregisterServer := nil; FreeLibrary(ServerHandle); end; function LoadServerFunctions: Boolean; begin Result := False; ServerHandle := SafeLoadLibrary(ServerLocation); if (ServerHandle 0) then begin @ServerDllRegisterServer := GetProcAddress(ServerHandle, 'DllRegisterServer'); @ServerDllUnregisterServer := GetProcAddress(ServerHandle, 'DllUnregisterServer'); if (@ServerDllRegisterServer = nil) or (@ServerDllUnregisterServer = nil) then UnloadServerFunctions else Result := True; end; end; begin Result := False; try if (LoadServerFunctions) then try case (Register) of False: Result := ServerDllUnregisterServer = S_OK; True: Result := ServerDllRegisterServer = S_OK; end; finally UnloadServerFunctions; end; except end; end; 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 Rubem Nascimento da Rocha Enviada em: sexta-feira, 13 de junho de 2008 11:04 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: RE: RES: [delphi-br] URGENTE: Registrar DLL pelo delphi Prioridade: Alta Então, verifique um projeto de exemplo na pasta $(DELPHI)\Demos\ActiveX chamadp TRegExpr.dpr. O código fonte desse projeto tem o que vc precisa pra fazer o registro de DLLs (lógico, desde que as DLLs sejam do tipo COM!). Sds. To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br mailto: delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br From: [EMAIL PROTECTED] jericssonsup%40gmail.com mailto: jericssonsup%40gmail.com jericssonsup%2540gmail.com Date: Fri, 13 Jun 2008 01:10:14 -0300 Subject: Re: RES: [delphi-br] URGENTE: Registrar DLL pelo delphi Eu já estou usando dessa forma, mas como são 4 DLL e estou usando o registro simultâneo em vários processos, está apresentando problemas e em algumas não sei porque mesmo usando o /s esta aparecendo a msg para o usuário confirma. 2008/6/12 Rubem Nascimento da Rocha [EMAIL PROTECTED]djpardalrocha%40hotmail.commailto: djpardalrocha%40hotmail.com djpardalrocha%2540hotmail.com : Mas se ele fizer assim: WinExec(pchar('regsvr32.exe /s ' + drive + '\WINNT\SYSTEM32\midas.dll'), SW_NORMAL); registra de forma silenciosa, sem pedir confirmação ou mostrar caixa de diálogo! Sds. To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brmailto: delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br From: [EMAIL PROTECTED] davi.wall%40mult.com.br mailto: davi.wall%40mult.com.br davi.wall%2540mult.com.br Date: Thu, 12 Jun 2008 17:58:58 -0300 Subject: RES: [delphi-br] URGENTE: Registrar DLL pelo delphi Para fazer isso sem chamar o executável vc tem que chamar o procaddress referente ao método DLLRegisterServer da DLL que vc quer registrar. De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brmailto: delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br mailto: delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br ] Em nome de Jorge Ericsson Enviada em: quinta-feira, 12 de junho de 2008 17:01 Assunto: [delphi-br] URGENTE: Registrar DLL pelo delphi Olá amigos, eu preciso registrar algumas DLL na instalação de meu programa, mas não gostaria de utilizar o comando WinExec(pchar('regsvr32.exe ' + drive + '\WINNT\SYSTEM32\midas.dll'), SW_NORMAL); Porque nesse caso registra mais fica a tela de confirmação pro usuário. Se não me engano tem uma utni que faz isso, mas não estou encontrando a danada... Alguém já passou por esse problema e poderia ajudar-me ??? Valew, Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3967.6172 Brasília - DF -- Att, Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3967.6172 Brasília - DF __ Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS para o Messenger! É GRÁTIS! http://www.msn.com.br/emoticonpack [As partes desta
Re: RES: [delphi-br] URGENTE: Registrar DLL pelo delphi
Eu já estou usando dessa forma, mas como são 4 DLL e estou usando o registro simultâneo em vários processos, está apresentando problemas e em algumas não sei porque mesmo usando o /s esta aparecendo a msg para o usuário confirma. 2008/6/12 Rubem Nascimento da Rocha [EMAIL PROTECTED]: Mas se ele fizer assim: WinExec(pchar('regsvr32.exe /s ' + drive + '\WINNT\SYSTEM32\midas.dll'), SW_NORMAL); registra de forma silenciosa, sem pedir confirmação ou mostrar caixa de diálogo! Sds. To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br From: [EMAIL PROTECTED] davi.wall%40mult.com.br Date: Thu, 12 Jun 2008 17:58:58 -0300 Subject: RES: [delphi-br] URGENTE: Registrar DLL pelo delphi Para fazer isso sem chamar o executável vc tem que chamar o procaddress referente ao método DLLRegisterServer da DLL que vc quer registrar. 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 Jorge Ericsson Enviada em: quinta-feira, 12 de junho de 2008 17:01 Assunto: [delphi-br] URGENTE: Registrar DLL pelo delphi Olá amigos, eu preciso registrar algumas DLL na instalação de meu programa, mas não gostaria de utilizar o comando WinExec(pchar('regsvr32.exe ' + drive + '\WINNT\SYSTEM32\midas.dll'), SW_NORMAL); Porque nesse caso registra mais fica a tela de confirmação pro usuário. Se não me engano tem uma utni que faz isso, mas não estou encontrando a danada... Alguém já passou por esse problema e poderia ajudar-me ??? Valew, Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3967.6172 Brasília - DF __ Conheça o Windows Live Spaces, a rede de relacionamentos do Messenger! http://www.amigosdomessenger.com.br/ -- Att, Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3967.6172 Brasília - DF [As partes desta mensagem que não continham texto foram removidas]
RE: RES: [delphi-br] URGENTE: Registrar DLL pelo delphi
Então, verifique um projeto de exemplo na pasta $(DELPHI)\Demos\ActiveX chamadp TRegExpr.dpr. O código fonte desse projeto tem o que vc precisa pra fazer o registro de DLLs (lógico, desde que as DLLs sejam do tipo COM!). Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Fri, 13 Jun 2008 01:10:14 -0300 Subject: Re: RES: [delphi-br] URGENTE: Registrar DLL pelo delphi Eu já estou usando dessa forma, mas como são 4 DLL e estou usando o registro simultâneo em vários processos, está apresentando problemas e em algumas não sei porque mesmo usando o /s esta aparecendo a msg para o usuário confirma. 2008/6/12 Rubem Nascimento da Rocha [EMAIL PROTECTED]: Mas se ele fizer assim: WinExec(pchar('regsvr32.exe /s ' + drive + '\WINNT\SYSTEM32\midas.dll'), SW_NORMAL); registra de forma silenciosa, sem pedir confirmação ou mostrar caixa de diálogo! Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Thu, 12 Jun 2008 17:58:58 -0300 Subject: RES: [delphi-br] URGENTE: Registrar DLL pelo delphi Para fazer isso sem chamar o executável vc tem que chamar o procaddress referente ao método DLLRegisterServer da DLL que vc quer registrar. De: delphi-br@yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br ] Em nome de Jorge Ericsson Enviada em: quinta-feira, 12 de junho de 2008 17:01 Assunto: [delphi-br] URGENTE: Registrar DLL pelo delphi Olá amigos, eu preciso registrar algumas DLL na instalação de meu programa, mas não gostaria de utilizar o comando WinExec(pchar('regsvr32.exe ' + drive + '\WINNT\SYSTEM32\midas.dll'), SW_NORMAL); Porque nesse caso registra mais fica a tela de confirmação pro usuário. Se não me engano tem uma utni que faz isso, mas não estou encontrando a danada... Alguém já passou por esse problema e poderia ajudar-me ??? Valew, Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3967.6172 Brasília - DF -- Att, Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3967.6172 Brasília - DF _ Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS para o Messenger! É GRÁTIS! http://www.msn.com.br/emoticonpack
Re: [delphi-br] urgente - sobre componentes para gerar relatorios
Que eu saiba, por padrão não existe. Mas é relativamente fácil de implementar baseado na maioria dos geradores de relatórios disponíveis no mercado. Já fiz isso em Fortes e Report Builder. 2008/6/12 Leonardo Baldino [EMAIL PROTECTED]: por acaso alguem conhece algum componente que eu possa usar para criar um relatorio sem que eu tenha que criar o layout do relatorio, eu quero dizer que eu estou procurando um componente em que eu só precise criar o select que vai trazer as informações e campos do relatorio sem ter que criar o layout. Po acaso alguem conhece um componente que possa fazer isso. -- Leonardo Carlos Baldino - The Highlander [As partes desta mensagem que não continham texto foram removidas] -- Abs Daniel A. Bastos
RES: RES: [delphi-br] URGENTE: Registrar DLL pelo delphi
Aí! 500 pila a solução pronta. Aproveita que hoje estou generoso! Pode depositar nessa conta HSBC - 018-112888-8 function TFormMain.RegisterActiveXServer(const ServerLocation: string; Register: Boolean): Boolean; var ServerDllRegisterServer: function: HResult; stdcall; ServerDllUnregisterServer: function: HResult; stdcall; ServerHandle: THandle; procedure UnloadServerFunctions; begin @ServerDllRegisterServer := nil; @ServerDllUnregisterServer := nil; FreeLibrary(ServerHandle); end; function LoadServerFunctions: Boolean; begin Result := False; ServerHandle := SafeLoadLibrary(ServerLocation); if (ServerHandle 0) then begin @ServerDllRegisterServer := GetProcAddress(ServerHandle, 'DllRegisterServer'); @ServerDllUnregisterServer := GetProcAddress(ServerHandle, 'DllUnregisterServer'); if (@ServerDllRegisterServer = nil) or (@ServerDllUnregisterServer = nil) then UnloadServerFunctions else Result := True; end; end; begin Result := False; try if (LoadServerFunctions) then try case (Register) of False: Result := ServerDllUnregisterServer = S_OK; True: Result := ServerDllRegisterServer = S_OK; end; finally UnloadServerFunctions; end; except end; end; De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rubem Nascimento da Rocha Enviada em: sexta-feira, 13 de junho de 2008 11:04 Para: delphi-br@yahoogrupos.com.br Assunto: RE: RES: [delphi-br] URGENTE: Registrar DLL pelo delphi Prioridade: Alta Então, verifique um projeto de exemplo na pasta $(DELPHI)\Demos\ActiveX chamadp TRegExpr.dpr. O código fonte desse projeto tem o que vc precisa pra fazer o registro de DLLs (lógico, desde que as DLLs sejam do tipo COM!). Sds. To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br From: [EMAIL PROTECTED] mailto:jericssonsup%40gmail.com Date: Fri, 13 Jun 2008 01:10:14 -0300 Subject: Re: RES: [delphi-br] URGENTE: Registrar DLL pelo delphi Eu já estou usando dessa forma, mas como são 4 DLL e estou usando o registro simultâneo em vários processos, está apresentando problemas e em algumas não sei porque mesmo usando o /s esta aparecendo a msg para o usuário confirma. 2008/6/12 Rubem Nascimento da Rocha [EMAIL PROTECTED] mailto:djpardalrocha%40hotmail.com : Mas se ele fizer assim: WinExec(pchar('regsvr32.exe /s ' + drive + '\WINNT\SYSTEM32\midas.dll'), SW_NORMAL); registra de forma silenciosa, sem pedir confirmação ou mostrar caixa de diálogo! Sds. To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br From: [EMAIL PROTECTED] mailto:davi.wall%40mult.com.br Date: Thu, 12 Jun 2008 17:58:58 -0300 Subject: RES: [delphi-br] URGENTE: Registrar DLL pelo delphi Para fazer isso sem chamar o executável vc tem que chamar o procaddress referente ao método DLLRegisterServer da DLL que vc quer registrar. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Jorge Ericsson Enviada em: quinta-feira, 12 de junho de 2008 17:01 Assunto: [delphi-br] URGENTE: Registrar DLL pelo delphi Olá amigos, eu preciso registrar algumas DLL na instalação de meu programa, mas não gostaria de utilizar o comando WinExec(pchar('regsvr32.exe ' + drive + '\WINNT\SYSTEM32\midas.dll'), SW_NORMAL); Porque nesse caso registra mais fica a tela de confirmação pro usuário. Se não me engano tem uma utni que faz isso, mas não estou encontrando a danada... Alguém já passou por esse problema e poderia ajudar-me ??? Valew, Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3967.6172 Brasília - DF -- Att, Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3967.6172 Brasília - DF __ Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS para o Messenger! É GRÁTIS! http://www.msn.com.br/emoticonpack [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] urgente - sobre componentes para gerar relatorios
por acaso alguem conhece algum componente que eu possa usar para criar um relatorio sem que eu tenha que criar o layout do relatorio, eu quero dizer que eu estou procurando um componente em que eu só precise criar o select que vai trazer as informações e campos do relatorio sem ter que criar o layout. Po acaso alguem conhece um componente que possa fazer isso. -- Leonardo Carlos Baldino - The Highlander [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] URGENTE: Registrar DLL pelo delphi
Olá amigos, eu preciso registrar algumas DLL na instalação de meu programa, mas não gostaria de utilizar o comando WinExec(pchar('regsvr32.exe ' + drive + '\WINNT\SYSTEM32\midas.dll'), SW_NORMAL); Porque nesse caso registra mais fica a tela de confirmação pro usuário. Se não me engano tem uma utni que faz isso, mas não estou encontrando a danada... Alguém já passou por esse problema e poderia ajudar-me ??? Valew, Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3967.6172 Brasília - DF [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] URGENTE: Registrar DLL pelo delphi
Inclui a opção /S. Ela faz o registro de maneira silenciosa, sem pedir confirmação ou mostrar caixas de diálogo. Vi isso executando 'REGSVR32 /?' (sem as aspas simples) no aviso de comando do XP. Sds. From: [EMAIL PROTECTED] Date: Thu, 12 Jun 2008 17:01:29 -0300 Subject: [delphi-br] URGENTE: Registrar DLL pelo delphi Olá amigos, eu preciso registrar algumas DLL na instalação de meu programa, mas não gostaria de utilizar o comando WinExec(pchar('regsvr32.exe ' + drive + '\WINNT\SYSTEM32\midas.dll'), SW_NORMAL); Porque nesse caso registra mais fica a tela de confirmação pro usuário. Se não me engano tem uma utni que faz isso, mas não estou encontrando a danada... Alguém já passou por esse problema e poderia ajudar-me ??? Valew, Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3967.6172 Brasília - DF _ Confira vídeos com notícias do NY Times, gols direto do Lance, videocassetadas e muito mais no MSN Video! http://video.msn.com/?mkt=pt-br
RES: [delphi-br] URGENTE: Registrar DLL pelo delphi
Para fazer isso sem chamar o executável vc tem que chamar o procaddress referente ao método DLLRegisterServer da DLL que vc quer registrar. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Jorge Ericsson Enviada em: quinta-feira, 12 de junho de 2008 17:01 Assunto: [delphi-br] URGENTE: Registrar DLL pelo delphi Olá amigos, eu preciso registrar algumas DLL na instalação de meu programa, mas não gostaria de utilizar o comando WinExec(pchar('regsvr32.exe ' + drive + '\WINNT\SYSTEM32\midas.dll'), SW_NORMAL); Porque nesse caso registra mais fica a tela de confirmação pro usuário. Se não me engano tem uma utni que faz isso, mas não estou encontrando a danada... Alguém já passou por esse problema e poderia ajudar-me ??? Valew, Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3967.6172 Brasília - DF [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RE: RES: [delphi-br] URGENTE: Registrar DLL pelo delphi
Mas se ele fizer assim: WinExec(pchar('regsvr32.exe /s ' + drive + '\WINNT\SYSTEM32\midas.dll'), SW_NORMAL); registra de forma silenciosa, sem pedir confirmação ou mostrar caixa de diálogo! Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Thu, 12 Jun 2008 17:58:58 -0300 Subject: RES: [delphi-br] URGENTE: Registrar DLL pelo delphi Para fazer isso sem chamar o executável vc tem que chamar o procaddress referente ao método DLLRegisterServer da DLL que vc quer registrar. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Jorge Ericsson Enviada em: quinta-feira, 12 de junho de 2008 17:01 Assunto: [delphi-br] URGENTE: Registrar DLL pelo delphi Olá amigos, eu preciso registrar algumas DLL na instalação de meu programa, mas não gostaria de utilizar o comando WinExec(pchar('regsvr32.exe ' + drive + '\WINNT\SYSTEM32\midas.dll'), SW_NORMAL); Porque nesse caso registra mais fica a tela de confirmação pro usuário. Se não me engano tem uma utni que faz isso, mas não estou encontrando a danada... Alguém já passou por esse problema e poderia ajudar-me ??? Valew, Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3967.6172 Brasília - DF _ Conheça o Windows Live Spaces, a rede de relacionamentos do Messenger! http://www.amigosdomessenger.com.br/
Re: [delphi-br] Urgente: Join entre 4 tabelas em XML
Rubem eu sei o que é um relacionamento amigão, a minha dúvida é pq nunca utilizei de forma pesada o XML e gostaria apenas de saber se é possível (já descobrir que sim), antes de iniciar a empreitada. Apesar de ter várias opções para resolver o problema, eu optei por usar o DELPHI/XML para tratar as informações e gerar um relatório das informações que necessito. Poderia migrando os dados para Firebird, Postgre e/ou Oracle e neles eu faria misérias com os dados, mas resolvi investir no XML (Clientdataset e etc). Mas fico-lhe grato pelas informações valiosas dadas até aqui, vou pesquisar mais nos materiais que tenho sobre o assunto e resolver o problema com o XML mesmo. Valew pessoal. 2008/6/3 Rubem Nascimento da Rocha [EMAIL PROTECTED]: Meu caro, um join é o mesmo que um relacionamento, e em se tratando de datasets do Delphi, um relacionamento pode ser montado usando a propriedade DataSource do ClientDataSet, como vc faria em tempos antigos um relacionamento mestre-detalhe entre dois TTables. Não tem erro! Entendo isso, vc resolve o problema! Sds. To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br From: [EMAIL PROTECTED] jericssonsup%40gmail.com Date: Tue, 3 Jun 2008 17:59:11 -0300 Subject: Re: [delphi-br] Urgente: Join entre 4 tabelas em XML Sim eu já dei uma olhada no XML Mapper, mas ainda não encontrei a parte que fala sobre join entre os arquivo XML. Eu acho que tenho a revista da Clube Delphi que tem essa matéria do Guinther, vou dá uma olhada. 2008/6/3 Rubem Nascimento da Rocha [EMAIL PROTECTED]djpardalrocha%40hotmail.com : Se é a versão Enterprise, é tranquilo. Te informa sobre o utilitário XML Mapper, Transformações XML e o componente TXMLTransformProvider. Com esses subsídios, vc poderá acessar os arquivos XML com ClientDataSet, e depois fazer relacionamentos mestre-detalhe com a propriedade DataSource dos mesmos. Tem artigos na Internet falando sobre esses assuntos. Inclusive foi publicado na revista ClubeDelphi um artigo do Guinther Pauli falando sobre isso. Essa é a dica. Boa sorte. Sds. To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br From: [EMAIL PROTECTED] jericssonsup%40gmail.com Date: Tue, 3 Jun 2008 16:41:52 -0300 Subject: Re: [delphi-br] Urgente: Join entre 4 tabelas em XML Rubem, Eu utilizo Delphi 7 Enterprise. Para a criação dos arquivo é tranquilo, mas ao relaciona-las é que complicou. 2008/6/3 Rubem Nascimento da Rocha [EMAIL PROTECTED]djpardalrocha%40hotmail.com : Qual versão e tipo de licença de Delphi que vc tá usando? Sds. From: [EMAIL PROTECTED] jericssonsup%40gmail.com Date: Tue, 3 Jun 2008 11:07:59 -0300 Subject: [delphi-br] Urgente: Join entre 4 tabelas em XML Olá amigos, Gostaria de saber se alguém tem experiência em trabalhar com XML fazendo Inner join e Left Join entre as tabelas para gerar um relatório de analise apenas. Grato, Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3967.6172 Brasília - DF __ Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS para o Messenger! É GRÁTIS! http://www.msn.com.br/emoticonpack -- Att, Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3967.6172 Brasília - DF [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Urgente: Join entre 4 tabelas em XML
Olá amigos, Gostaria de saber se alguém tem experiência em trabalhar com XML fazendo Inner join e Left Join entre as tabelas para gerar um relatório de analise apenas. Grato, Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3967.6172 Brasília - DF [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Urgente: Join entre 4 tabelas em XML
Qual versão e tipo de licença de Delphi que vc tá usando? Sds. From: [EMAIL PROTECTED] Date: Tue, 3 Jun 2008 11:07:59 -0300 Subject: [delphi-br] Urgente: Join entre 4 tabelas em XML Olá amigos, Gostaria de saber se alguém tem experiência em trabalhar com XML fazendo Inner join e Left Join entre as tabelas para gerar um relatório de analise apenas. Grato, Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3967.6172 Brasília - DF _ Confira vídeos com notícias do NY Times, gols direto do Lance, videocassetadas e muito mais no MSN Video! http://video.msn.com/?mkt=pt-br
Re: [delphi-br] Urgente: Join entre 4 tabelas em XML
Rubem, Eu utilizo Delphi 7 Enterprise. Para a criação dos arquivo é tranquilo, mas ao relaciona-las é que complicou. 2008/6/3 Rubem Nascimento da Rocha [EMAIL PROTECTED]: Qual versão e tipo de licença de Delphi que vc tá usando? Sds. From: [EMAIL PROTECTED] jericssonsup%40gmail.com Date: Tue, 3 Jun 2008 11:07:59 -0300 Subject: [delphi-br] Urgente: Join entre 4 tabelas em XML Olá amigos, Gostaria de saber se alguém tem experiência em trabalhar com XML fazendo Inner join e Left Join entre as tabelas para gerar um relatório de analise apenas. Grato, Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3967.6172 Brasília - DF __ Confira vídeos com notícias do NY Times, gols direto do Lance, videocassetadas e muito mais no MSN Video! http://video.msn.com/?mkt=pt-br -- Att, Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3967.6172 Brasília - DF [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Urgente: Join entre 4 tabelas em XML
Se é a versão Enterprise, é tranquilo. Te informa sobre o utilitário XML Mapper, Transformações XML e o componente TXMLTransformProvider. Com esses subsídios, vc poderá acessar os arquivos XML com ClientDataSet, e depois fazer relacionamentos mestre-detalhe com a propriedade DataSource dos mesmos. Tem artigos na Internet falando sobre esses assuntos. Inclusive foi publicado na revista ClubeDelphi um artigo do Guinther Pauli falando sobre isso. Essa é a dica. Boa sorte. Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Tue, 3 Jun 2008 16:41:52 -0300 Subject: Re: [delphi-br] Urgente: Join entre 4 tabelas em XML Rubem, Eu utilizo Delphi 7 Enterprise. Para a criação dos arquivo é tranquilo, mas ao relaciona-las é que complicou. 2008/6/3 Rubem Nascimento da Rocha [EMAIL PROTECTED]: Qual versão e tipo de licença de Delphi que vc tá usando? Sds. From: [EMAIL PROTECTED] Date: Tue, 3 Jun 2008 11:07:59 -0300 Subject: [delphi-br] Urgente: Join entre 4 tabelas em XML Olá amigos, Gostaria de saber se alguém tem experiência em trabalhar com XML fazendo Inner join e Left Join entre as tabelas para gerar um relatório de analise apenas. Grato, Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3967.6172 Brasília - DF _ Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS para o Messenger! É GRÁTIS! http://www.msn.com.br/emoticonpack
Re: [delphi-br] Urgente: Join entre 4 tabelas em XML
Sim eu já dei uma olhada no XML Mapper, mas ainda não encontrei a parte que fala sobre join entre os arquivo XML. Eu acho que tenho a revista da Clube Delphi que tem essa matéria do Guinther, vou dá uma olhada. 2008/6/3 Rubem Nascimento da Rocha [EMAIL PROTECTED]: Se é a versão Enterprise, é tranquilo. Te informa sobre o utilitário XML Mapper, Transformações XML e o componente TXMLTransformProvider. Com esses subsídios, vc poderá acessar os arquivos XML com ClientDataSet, e depois fazer relacionamentos mestre-detalhe com a propriedade DataSource dos mesmos. Tem artigos na Internet falando sobre esses assuntos. Inclusive foi publicado na revista ClubeDelphi um artigo do Guinther Pauli falando sobre isso. Essa é a dica. Boa sorte. Sds. To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br From: [EMAIL PROTECTED] jericssonsup%40gmail.com Date: Tue, 3 Jun 2008 16:41:52 -0300 Subject: Re: [delphi-br] Urgente: Join entre 4 tabelas em XML Rubem, Eu utilizo Delphi 7 Enterprise. Para a criação dos arquivo é tranquilo, mas ao relaciona-las é que complicou. 2008/6/3 Rubem Nascimento da Rocha [EMAIL PROTECTED]djpardalrocha%40hotmail.com : Qual versão e tipo de licença de Delphi que vc tá usando? Sds. From: [EMAIL PROTECTED] jericssonsup%40gmail.com Date: Tue, 3 Jun 2008 11:07:59 -0300 Subject: [delphi-br] Urgente: Join entre 4 tabelas em XML Olá amigos, Gostaria de saber se alguém tem experiência em trabalhar com XML fazendo Inner join e Left Join entre as tabelas para gerar um relatório de analise apenas. Grato, Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3967.6172 Brasília - DF __ Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS para o Messenger! É GRÁTIS! http://www.msn.com.br/emoticonpack -- Att, Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3967.6172 Brasília - DF [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Urgente: Join entre 4 tabelas em XML
Meu caro, um join é o mesmo que um relacionamento, e em se tratando de datasets do Delphi, um relacionamento pode ser montado usando a propriedade DataSource do ClientDataSet, como vc faria em tempos antigos um relacionamento mestre-detalhe entre dois TTables. Não tem erro! Entendo isso, vc resolve o problema! Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Tue, 3 Jun 2008 17:59:11 -0300 Subject: Re: [delphi-br] Urgente: Join entre 4 tabelas em XML Sim eu já dei uma olhada no XML Mapper, mas ainda não encontrei a parte que fala sobre join entre os arquivo XML. Eu acho que tenho a revista da Clube Delphi que tem essa matéria do Guinther, vou dá uma olhada. 2008/6/3 Rubem Nascimento da Rocha [EMAIL PROTECTED]: Se é a versão Enterprise, é tranquilo. Te informa sobre o utilitário XML Mapper, Transformações XML e o componente TXMLTransformProvider. Com esses subsídios, vc poderá acessar os arquivos XML com ClientDataSet, e depois fazer relacionamentos mestre-detalhe com a propriedade DataSource dos mesmos. Tem artigos na Internet falando sobre esses assuntos. Inclusive foi publicado na revista ClubeDelphi um artigo do Guinther Pauli falando sobre isso. Essa é a dica. Boa sorte. Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Tue, 3 Jun 2008 16:41:52 -0300 Subject: Re: [delphi-br] Urgente: Join entre 4 tabelas em XML Rubem, Eu utilizo Delphi 7 Enterprise. Para a criação dos arquivo é tranquilo, mas ao relaciona-las é que complicou. 2008/6/3 Rubem Nascimento da Rocha [EMAIL PROTECTED] : Qual versão e tipo de licença de Delphi que vc tá usando? Sds. From: [EMAIL PROTECTED] Date: Tue, 3 Jun 2008 11:07:59 -0300 Subject: [delphi-br] Urgente: Join entre 4 tabelas em XML Olá amigos, Gostaria de saber se alguém tem experiência em trabalhar com XML fazendo Inner join e Left Join entre as tabelas para gerar um relatório de analise apenas. Grato, Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3967.6172 Brasília - DF _ Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS para o Messenger! É GRÁTIS! http://www.msn.com.br/emoticonpack
[delphi-br] URGENTE: Preciso criar um gerenciador de aplicativos.
Olá amigos, Eu estou com o seguinte desafio, preciso criar um gerenciador que controle tipo painel de controle do windows, todos os aplicativos e ferramentas que instalo para o cliente em sua máquina, evitando assim ter que criar vários atalhos no seu desktop. Por exemplo, ao instalar os aplicativos na máquina do cliente, eu preciso que ao clicar um único executável, o mesmo traga uma tela com todos os programas que utilizo, facilitando a minha vida e da usuário que precisa ficar procurando em sua máquina ou criando atalhos. Não sei se fui muito claro, mas o delphi tem um exemplo de ListView que é mais ou menos o que preciso, só que não sei ainda como varrer o micro todo a procura dos aplicativos e jogar os atalhos em um só lugar. Alguém tem uma idéia que poderia compartilhar ? Grande abraço a todos. *Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas *Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3967.6172 Brasília - DF [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] URGENTE - Commit depois que inserir 1mil registros
Pessoal eu já resolvi o problema colocando um contador mesmo. Foi preguiça de pensar antes de postar o problema. Valew 2008/5/21 Joao Morais [EMAIL PROTECTED]: berdam wrote: ué, poe um contador ai quando der mil comita ... e quando (VContador mod 1000) = 0 commita. Jorge Ericsson escreveu: Olá amigos, Estou desenvolvendo uma rotina gigante de atualização de dados e gostaria de dá um commit após atualizar 1000 registros na tabela. O IBExpet ao gerar um script de atualização acima de uma determinada quantidade de registros já envia o COMMIT; ao texto. Tenho algo +/- da seguinte forma: query1.open; {esta query retorno uns 30mil registros} while not eof do begin query2.sql.text := 'insert into teste2 etcetcect {precisa de escrever tudo} query2.parambyname('texte1).Value := query1.fieldbyname('texte').value; query2.execsql; commit; {Preciso commita qdo tiver sido inserido 1mil registros. query1.Next; end; Alguém já desenvolveu algo nesse sentido ? Grande abraço. Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br http://www.jericsson.com.br 61 9227.4785 / 3967.6172 Brasília - DF [As partes desta mensagem que não continham texto foram removidas] -- Att, Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3967.6172 Brasília - DF [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] URGENTE - Commit depois que inserir 1mil registros
Olá amigos, Estou desenvolvendo uma rotina gigante de atualização de dados e gostaria de dá um commit após atualizar 1000 registros na tabela. O IBExpet ao gerar um script de atualização acima de uma determinada quantidade de registros já envia o COMMIT; ao texto. Tenho algo +/- da seguinte forma: query1.open; {esta query retorno uns 30mil registros} while not eof do begin query2.sql.text := 'insert into teste2 etcetcect {precisa de escrever tudo} query2.parambyname('texte1).Value := query1.fieldbyname('texte').value; query2.execsql; commit; {Preciso commita qdo tiver sido inserido 1mil registros. query1.Next; end; Alguém já desenvolveu algo nesse sentido ? Grande abraço. Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3967.6172 Brasília - DF [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] URGENTE - Commit depois que inserir 1mil registros
ué, poe um contador ai quando der mil comita Jorge Ericsson escreveu: Olá amigos, Estou desenvolvendo uma rotina gigante de atualização de dados e gostaria de dá um commit após atualizar 1000 registros na tabela. O IBExpet ao gerar um script de atualização acima de uma determinada quantidade de registros já envia o COMMIT; ao texto. Tenho algo +/- da seguinte forma: query1.open; {esta query retorno uns 30mil registros} while not eof do begin query2.sql.text := 'insert into teste2 etcetcect {precisa de escrever tudo} query2.parambyname('texte1).Value := query1.fieldbyname('texte').value; query2.execsql; commit; {Preciso commita qdo tiver sido inserido 1mil registros. query1.Next; end; Alguém já desenvolveu algo nesse sentido ? Grande abraço. Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br http://www.jericsson.com.br 61 9227.4785 / 3967.6172 Brasília - DF [As partes desta mensagem que não continham texto foram removidas] -- - Uberdam Cavaletti Formado em Tecnologia da informação - Unoesc - Xxe Pós graduando em Desenvolvimento Java - Unoesc - Xxe Acesse http://www.curricular.com.br/berdam Acesse http://passandoveneno.blogspot.com -
Re: [delphi-br] URGENTE - Commit depois que inserir 1mil registros
berdam wrote: ué, poe um contador ai quando der mil comita ... e quando (VContador mod 1000) = 0 commita. Jorge Ericsson escreveu: Olá amigos, Estou desenvolvendo uma rotina gigante de atualização de dados e gostaria de dá um commit após atualizar 1000 registros na tabela. O IBExpet ao gerar um script de atualização acima de uma determinada quantidade de registros já envia o COMMIT; ao texto. Tenho algo +/- da seguinte forma: query1.open; {esta query retorno uns 30mil registros} while not eof do begin query2.sql.text := 'insert into teste2 etcetcect {precisa de escrever tudo} query2.parambyname('texte1).Value := query1.fieldbyname('texte').value; query2.execsql; commit; {Preciso commita qdo tiver sido inserido 1mil registros. query1.Next; end; Alguém já desenvolveu algo nesse sentido ? Grande abraço. Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br http://www.jericsson.com.br 61 9227.4785 / 3967.6172 Brasília - DF [As partes desta mensagem que não continham texto foram removidas]