[delphi-br] Componentes Zeos
Duvidas Como Fazer com o componente ZeosAccess no ZQuery1 no propriedade Sql fica sempre em Caixa Alta ? Obrigado
[delphi-br] Usuário Logado no Interbase
Com sabe atraves de um Select o usuário logado ? Obrigado Wellington
Re: [delphi-br] Exeption EOleSyserror in module Classe nao registrada
opaaa... obrigado pela dica ... vc sabe me dizer como faço pra ver qual dll é? vale. 2009/12/8 Leandro mutu...@yahoo.com.br alguma dll que seu sistema precise nao esta registrada, ou seja deve ter sido retirada do win 7.. acredito que seja isso 2009/12/8 wellingtonamsantos wamsan...@gmail.com ola a todos, tenho uma aplicacao escrita e compilatada em delphi7 e banco de dados firebird 2.0, o problema e q roda em todos os sistemas operacionais windows, menos no windows7, chega abrir a primeira tela mais depois aparece uma janela com essa mensagem de erro. Exeption EOleSyserror in module nome da aplicacao Classe nao Registrada. alguem tem uma luz grato well. -- Leandro, MuTukA [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Exeption EOleSyserror in module Classe nao registrada
achei a dll. e uma chamada KERNELBASE.DLL , sabe como devo proceder? 2009/12/8 Wellington Santos wamsan...@gmail.com opaaa... obrigado pela dica ... vc sabe me dizer como faço pra ver qual dll é? vale. 2009/12/8 Leandro mutu...@yahoo.com.br alguma dll que seu sistema precise nao esta registrada, ou seja deve ter sido retirada do win 7.. acredito que seja isso 2009/12/8 wellingtonamsantos wamsan...@gmail.com ola a todos, tenho uma aplicacao escrita e compilatada em delphi7 e banco de dados firebird 2.0, o problema e q roda em todos os sistemas operacionais windows, menos no windows7, chega abrir a primeira tela mais depois aparece uma janela com essa mensagem de erro. Exeption EOleSyserror in module nome da aplicacao Classe nao Registrada. alguem tem uma luz grato well. -- Leandro, MuTukA [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Problemas nas Cores das Telas
Amigo, Coloque as cores em hexadecimal para não ter este problema pois se vc tiver usando váriaveis como clWhite nem sempre é a cor desejada dependendo da configuração do windows é a mesma . Wellington. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Rafael Marques Enviada em: terça-feira, 11 de agosto de 2009 13:46 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Problemas nas Cores das Telas Boa Tarde pessoal estou tendo um problema de umas semanas pra cá e n consegui achar a resposta no google!! eu tenho um programa onde n utilizo as cores padroes do windows nas telas (eu uso tons de verde nos Panels, groupbox e dbgrids). De umas semanas pra cá, n sei como, as maquinas onde uso o sistema com o windows (Vista ou XP) e com a aparencia propria desses windows, estes componentes ficam todos com cor branca. Se eu volto a aparencia pra classica do windows (aquela do win98 com tudo cinza). alguem saber o q pode ser?? mto obrigado!! Rafael [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] Re: visualizar tabela de 10 em 10 minutos
Fazer um teste usando o Union all Select * from Horario Where Horario between '0700' and '0709' union all Select * from Horario Where Horario between '0710' and '0719' union all Select * from Horario Where Horario between '0720' and '0729' asandro1501 escreveu: Exatamente rubem, tenho uma tabela com horarios das 07:00 até as 22:00 feita de minuto em minuto mas se eu gerar um relatório com esta tabela dessa forma vai ficar enorme, então preciso de uma opção para visualizar os horários de separados de 10 em 10 minutos. Po exemplo: 7:00 7:10 7:20 7:30 até chegar em 22:00 Conseguiu entender? Pode me ajudar? Alex Silva --- Em delphi...@yahoogrup os.com.br mailto:delphi-br%40yahoogrupos.com.br, Leandro mutu...@... escreveu rubem acho q ele quiz dizer horarios cadastrados num periodo de 10 em 10 min tipo trazer soh os cadastrados de 10:00:00 as 10:10:00, foi isso alex? 2009/6/23 Rubem Rocha rubem.rocha@ ... Não existe SELECT temporizado via SQL. Essa idéia é equivocada. Você tem que implementar isso na sua camada front-end, ou seja, na sua aplicação. Isso, a grosso modo, seria um timer que, de tempos em tempos, abriria e fecharia um componente de consulta definido por você Boa sorte. Sds. De: delphi...@yahoogrup os.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoog rupos.com. br [mailto: delphi...@yahoogrup os.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoog rupos.com. br] Em nome de asandro1501 Enviada em: terça-feira, 23 de junho de 2009 10:35 Para: delphi...@yahoogrup os.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoog rupos.com. br Assunto: [delphi-br] visualizar tabela de 10 em 10 minutos Olá Pessoal Tenho uma tabela de horários onde tenho horários cadastrados minuto a minuto. Alguém sabe alguma instrução sql para visualizar os horários separados a cada 10 minutos? Deus abençoe Alex Silva msn:lekinhors@ ... lekinhors%40hotmai l.com mailto: lekinhors%40hotmail .com lekinhors%2540hotm ail.com [As partes desta mensagem que não continham texto foram removidas] -- Leandro, MuTukA [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Impressão de Comprovantes no tef discado
caso queira tirar alguma duvida em pvt, estou a disposição Wellington wellingt...@hotmail.com Luiz Antonio Roussenq escreveu: Estou com duvida em relacao a impressao dos comprovantes no tef discado. No roteiro de homologação da REDECARD diz quando estiver imprimindo e a impressora nao estiver respondendo para ficar em loop e assim que voltar a responder continua a imprimir. Mas conversando com suporte da VISANET me passou que se ocorrer esta situação e para fechar o comprovante e abrir um gerencial iniciar a impressao novamente. QUEM ESTA CORRETO ALGUEM SABE ME DIZER?
Re: [delphi-br] Boleto Bancario
da uma olhada neste Site : www.cobrebemx.com.br Wellington rzzanatta escreveu: Olá galera... Estou com dificuldades de fazer o boleto bancario da nossa caixa, alguém aí já fez? Noa conseguindo saber de onde veem alguns valores do codigo de barras e do campo digitável... se alguem aí sabe , por favor me ajude
[delphi-br] Numerador de Pagina no QuickReport
Caros, No QR, criei uma variável como TQRSysdata e na propriedade data coloquei qrsPageNumber, daí não achei como setar (inicializar) a dita qrsPageNumber, como se faz? Obs.: quero imprimir o relatorio todo, somente quero que o numerador começe numa determinada página informada pelo usuário, e não na página 1, têm como passar um parâmetro para o número inicial do contador? Ou terei que criar meu próprio contador e controlar tudo manualmente? sds Wellington
Re: [delphi-br] [Dica] Exportanto e Importando do Excel
Adriano, O código funcinou no BDS2006 pra DelphiWin32. Todavia, preciso de uma variante desse código para o Delphi.NET. Eu até já construi o código que segue: type TExportarGrid = class helper for TStringGrid procedure ExportarGridExcel(Arquivo :String); end; implementation uses Dialogs, uFuncoes; { TExportarGrid } procedure TExportarGrid.ExportarGridExcel(Arquivo: String); var Linha, Coluna :integer; Arq :TextFile; ExcelApp :Excel._Application; ExcelWorkBook :Excel._Workbook; ExcelWorkSheet :Excel._Worksheet; begin if Self.RowCount 1 then begin try try //Remove o arquivo, caso ele exista //AssignFile(Arq, Arquivo); //Erase(Arq); ExcelApp := Excel.ApplicationClass.Create; //ExcelApp.Visible := True; ExcelWorkBook := Excel._Workbook(ExcelApp.Workbooks.Add(Excel.XlWBATemplate.xlWBATWorksheet)); ExcelWorkSheet := Excel._Worksheet(ExcelWorkBook.Sheets[TObject(1)]); ExcelWorkSheet.Activate; Linha := 0; for Coluna := 0 to Self.ColCount - 1 do begin ExcelWorkSheet.Cells[TObject(Linha + 1), TObject(Coluna + 1)] := removerQuebraLinha(Self.Cells[Coluna, Linha]); end; Linha := 1; while Linha = Self.RowCount - 1 do begin for Coluna:=0 to Self.ColCount - 1 do begin ExcelWorkSheet.Cells[TObject(Linha + 1), TObject(Coluna + 1)] := removerQuebraLinha(Self.Cells[Coluna, Linha]); end; Linha := Linha + 1; end; ExcelWorkBook.SaveAs(arquivo, Excel.XlFileFormat.xlWorkbookNormal, nil, nil, TObject(false), TObject(false), Excel.XlSaveAsAccessMode.xlNoChange, Excel.XlSaveConflictResolution.xlLocalSessionChanges, nil, nil, nil, nil); except end; finally ExcelWorkBook.Close(TObject(false), nil, nil); ExcelApp.Quit; FreeAndNil(ExcelApp); FreeAndNil(ExcelWorkBook); FreeAndNil(ExcelWorkSheet); end; end else ShowMessage('A Grid '+Self.Name+'tem que possuir valor para a migração.'); end; Porém, estou tendo o seguinte problema: esse código está funcionando corretamente em algumas máquinas. Em outras, não. Nessas máquinas, ocorre o seguinte erro: Falha na recuperação de factory de classes COM do componente com CLSID {00024500---C000-0046} devido ao seguinte erro: 80070005. Será que você poderia me dar uma ajuda?!!??! Grato desde já, Wellington Analista de Sistemas 2008/11/5 Adriano Santos (Y!) [EMAIL PROTECTED] Opa, Perdão, não tenho postado meu blog na assinatura. www.delphitodelphi.blogspot.com []s -- Adriano Santos www.delphitodelphi.blogspot.com www.adrianosantos.pro.br www.devmedia.com.br www.dug-sp.com Wellington Passos respondeu: Desculpe minha ignorância mas, qual é o endereço? www.dug-sp.com ? Grato, Wellington -- Wellington Passos de Paula [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] [Dica] Exportanto e Importando do Excel
Desculpe minha ignorância mas, qual é o endereço? www.dug-sp.com ? Grato, Wellington 2008/11/3 Adriano Santos (Y!) [EMAIL PROTECTED] Pessoal, Em resposta a alguns colegas, postei hoje no blog uma dica de como Importar e Exportar para Excel. []s -- Adriano Santos www.dug-sp.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Relatório Mestre Detalhe em Delphi a partir de arq. XML
Olá, Quero imprimir arquivos XML gerados por outro sistema. São registros mestre/detalhe em arquivos XML distintos. Com um único arquivo XML, foi tranquilo, mas não consegui mesclar dois ou mais. Alguem sabe dizer como fazer isso diretamente, sem ter que carregar os XMLs para o Banco de dados? Quero fazer isso na máquina cliente, sem trafego no servidor. Vou precisar de cabeçalho, corpo, totalizaçoes e quebras. Tenho preferência pela utilização do QReport e/ou Rave. Agradeço sugestões Abraço a todos sds Wellington Genar
Re: Res: [delphi-br] Relatório Mestre Detalhe em Delphi a partir de arq. XML
Olá Jean, obrigado, É justamente aí que emperrou, eu converti os XML's para XML's do delphi e carreguei em dois ClientDataSets distintos, estão em memória e eu consigo imprimi-los individualmente, mas não consegui relacioná- los para a saída do tipo: Produto 1 26/10 R$ 1.000,00 27/10 R$ 1.500,00 TOTAL DO Produto 1 R$ 2.500,00 Produto 2 26/10 R$ 1.200,00 27/10 R$ 1.300,00 TOTAL DO Produto 1 R$ 2.500,00 TOTAL GERAL DO PERIODO R$ 5.000,00 Pode me ajudar nisso? Ou pode me indicar onde encontro material sobre o uso do ClientDataSet nesses moldes? Sds. Wellington --- Em delphi-br@yahoogrupos.com.br, Jean Barreiros [EMAIL PROTECTED] escreveu cara você já tentou carregar este xml's em ClientDataSets? dai vc pode relacioná-los. . . . Jean Barreiros Programador/Web-Designer Delphi, C++, PHP, JavaScript FireBird/InterBase, MySql, SQLServer, PostGree, Oracle msn: [EMAIL PROTECTED] e-mail: [EMAIL PROTECTED] De: Wellington Genar [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Segunda-feira, 27 de Outubro de 2008 13:53:33 Assunto: [delphi-br] Relatório Mestre Detalhe em Delphi a partir de arq. XML Olá, Quero imprimir arquivos XML gerados por outro sistema. São registros mestre/detalhe em arquivos XML distintos. Com um único arquivo XML, foi tranquilo, mas não consegui mesclar dois ou mais. Alguem sabe dizer como fazer isso diretamente, sem ter que carregar os XMLs para o Banco de dados? Quero fazer isso na máquina cliente, sem trafego no servidor. Vou precisar de cabeçalho, corpo, totalizaçoes e quebras. Tenho preferência pela utilização do QReport e/ou Rave. Agradeço sugestões Abraço a todos sds Wellington Genar Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: Relatório Mestre Detalhe em Delphi a partir de arq. XML
Olá Guionardo, obrigado, Espero que sim. Pelo que pesquisei é o caminho, só que ainda não consegui desatar esse nó. Vc. já viu isso funcionando? Como fica o relacionamento na hora do loop de impressão? Sds. Wellington --- Em delphi-br@yahoogrupos.com.br, Guionardo Furlan [EMAIL PROTECTED] escreveu Clientdataset não resolveria? 2008/10/27 Wellington Genar [EMAIL PROTECTED]: Olá, Quero imprimir arquivos XML gerados por outro sistema. São registros mestre/detalhe em arquivos XML distintos. Com um único arquivo XML, foi tranquilo, mas não consegui mesclar dois ou mais. Alguem sabe dizer como fazer isso diretamente, sem ter que carregar os XMLs para o Banco de dados? Quero fazer isso na máquina cliente, sem trafego no servidor. Vou precisar de cabeçalho, corpo, totalizaçoes e quebras. Tenho preferência pela utilização do QReport e/ou Rave. Agradeço sugestões Abraço a todos sds Wellington Genar -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
Re: Res: Res: [delphi-br] Relatório Mestre Detalhe em Delphi a partir de arq. XML
Vc. por acaso vc. tem o skype? Não estou com msn nesta máquina :( --- Em delphi-br@yahoogrupos.com.br, Jean Barreiros [EMAIL PROTECTED] escreveu na minha assinatura da msg tem meu msn, caso queira add ai que agente conversa. depois vc publica a solução aqui na lista. . . . Jean Barreiros Programador/Web-Designer Delphi, C++, PHP, JavaScript FireBird/InterBase, MySql, SQLServer, PostGree, Oracle msn: [EMAIL PROTECTED] e-mail: [EMAIL PROTECTED] De: Wellington Genar [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Segunda-feira, 27 de Outubro de 2008 14:38:29 Assunto: Re: Res: [delphi-br] Relatório Mestre Detalhe em Delphi a partir de arq. XML Olá Jean, obrigado, É justamente aí que emperrou, eu converti os XML's para XML's do delphi e carreguei em dois ClientDataSets distintos, estão em memória e eu consigo imprimi-los individualmente, mas não consegui relacioná- los para a saída do tipo: Produto 1 26/10 R$ 1.000,00 27/10 R$ 1.500,00 TOTAL DO Produto 1 R$ 2.500,00 Produto 2 26/10 R$ 1.200,00 27/10 R$ 1.300,00 TOTAL DO Produto 1 R$ 2.500,00 TOTAL GERAL DO PERIODO R$ 5.000,00 Pode me ajudar nisso? Ou pode me indicar onde encontro material sobre o uso do ClientDataSet nesses moldes? Sds. Wellington --- Em [EMAIL PROTECTED] os.com.br, Jean Barreiros delphijean@ ... escreveu cara você já tentou carregar este xml's em ClientDataSe ts? dai vc pode relacioná-los. . . . Jean Barreiros Programador/ Web-Designer Delphi, C++, PHP, JavaScript FireBird/InterBase, MySql, SQLServer, PostGree, Oracle msn: jean@ e-mail: delphijean@ .. _ _ __ De: Wellington Genar wgenar@ Para: [EMAIL PROTECTED] os.com.br Enviadas: Segunda-feira, 27 de Outubro de 2008 13:53:33 Assunto: [delphi-br] Relatório Mestre Detalhe em Delphi a partir de arq. XML Olá, Quero imprimir arquivos XML gerados por outro sistema. São registros mestre/detalhe em arquivos XML distintos. Com um único arquivo XML, foi tranquilo, mas não consegui mesclar dois ou mais. Alguem sabe dizer como fazer isso diretamente, sem ter que carregar os XMLs para o Banco de dados? Quero fazer isso na máquina cliente, sem trafego no servidor. Vou precisar de cabeçalho, corpo, totalizaçoes e quebras. Tenho preferência pela utilização do QReport e/ou Rave. Agradeço sugestões Abraço a todos sds Wellington Genar Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail. com. http://br.new. mail.yahoo. com/addresses [As partes desta mensagem que não continham texto foram removidas] Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] ajuda com relação a impressão de textos - help
Só complementando, o comando net use vai funcionar bem se a impressora estiver em outro micro da rede, se for no próprio micro, primeiro, vc. deve compartilhá-la senão o net use não funciona. Sds --- Em delphi-br@yahoogrupos.com.br, Luciano Calenzani Simões [EMAIL PROTECTED] escreveu net use LPT1 \\computador_onde_esta_impressora\compartilhamento_da_impressora Luciano Calenzani Simões De: Leonardo Baldino [EMAIL PROTECTED] Para: Grupo_Delphi delphi-br@yahoogrupos.com.br Enviadas: Segunda-feira, 27 de Outubro de 2008 13:49:33 Assunto: [delphi-br] ajuda com relação a impressão de textos - help eu tenho um codigo que o assignfile onde eu mando um arquivo txt dereito para porta lpt1 pra ser impresso, porem eu estou tentando fazer isso com uma impressora que naum usa lpt1 mas usb e naum da certo gostaria de saber se alguem tem alguma ideia do que eu posso fazer para jogar este meu arquivo direto para impresso usando a saida usb da impressora Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Re: Res: Res: Res: [delphi-br] Relatório Mestre Detalhe em Delphi a partir de arq. XML
Beleza, vou fazer uma descrição detalhada e criar a base no ClientDataSet para passar os XMLs p/ vc acompanhar, sds Wellington --- Em delphi-br@yahoogrupos.com.br, Jean Barreiros [EMAIL PROTECTED] escreveu Não uso Skype naum! vamos tentar resolver por aqui, descreva o cenário, campos chaves e ect. . . . Jean Barreiros Programador/Web-Designer Delphi, C++, PHP, JavaScript FireBird/InterBase, MySql, SQLServer, PostGree, Oracle msn: [EMAIL PROTECTED] e-mail: [EMAIL PROTECTED] De: Wellington Genar [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Segunda-feira, 27 de Outubro de 2008 14:46:52 Assunto: Re: Res: Res: [delphi-br] Relatório Mestre Detalhe em Delphi a partir de arq. XML Vc. por acaso vc. tem o skype? Não estou com msn nesta máquina :( --- Em [EMAIL PROTECTED] os.com.br, Jean Barreiros delphijean@ ... escreveu na minha assinatura da msg tem meu msn, caso queira add ai que agente conversa. depois vc publica a solução aqui na lista. . . . Jean Barreiros Programador/ Web-Designer Delphi, C++, PHP, JavaScript FireBird/InterBase, MySql, SQLServer, PostGree, Oracle msn: jean@ e-mail: delphijean@ .. _ _ __ De: Wellington Genar wgenar@ Para: [EMAIL PROTECTED] os.com.br Enviadas: Segunda-feira, 27 de Outubro de 2008 14:38:29 Assunto: Re: Res: [delphi-br] Relatório Mestre Detalhe em Delphi a partir de arq. XML Olá Jean, obrigado, É justamente aí que emperrou, eu converti os XML's para XML's do delphi e carreguei em dois ClientDataSets distintos, estão em memória e eu consigo imprimi-los individualmente, mas não consegui relacioná- los para a saída do tipo: Produto 1 26/10 R$ 1.000,00 27/10 R$ 1.500,00 TOTAL DO Produto 1 R$ 2.500,00 Produto 2 26/10 R$ 1.200,00 27/10 R$ 1.300,00 TOTAL DO Produto 1 R$ 2.500,00 TOTAL GERAL DO PERIODO R$ 5.000,00 Pode me ajudar nisso? Ou pode me indicar onde encontro material sobre o uso do ClientDataSet nesses moldes? Sds. Wellington --- Em [EMAIL PROTECTED] os.com.br, Jean Barreiros delphijean@ ... escreveu cara você já tentou carregar este xml's em ClientDataSe ts? dai vc pode relacioná-los. .. . . Jean Barreiros Programador/ Web-Designer Delphi, C++, PHP, JavaScript FireBird/InterBase, MySql, SQLServer, PostGree, Oracle msn: jean@ e-mail: delphijean@ .. _ _ __ De: Wellington Genar wgenar@ Para: [EMAIL PROTECTED] os.com.br Enviadas: Segunda-feira, 27 de Outubro de 2008 13:53:33 Assunto: [delphi-br] Relatório Mestre Detalhe em Delphi a partir de arq. XML Olá, Quero imprimir arquivos XML gerados por outro sistema. São registros mestre/detalhe em arquivos XML distintos. Com um único arquivo XML, foi tranquilo, mas não consegui mesclar dois ou mais. Alguem sabe dizer como fazer isso diretamente, sem ter que carregar os XMLs para o Banco de dados? Quero fazer isso na máquina cliente, sem trafego no servidor. Vou precisar de cabeçalho, corpo, totalizaçoes e quebras. Tenho preferência pela utilização do QReport e/ou Rave. Agradeço sugestões Abraço a todos sds Wellington Genar Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail. com. http://br.new. mail.yahoo. com/addresses [As partes desta mensagem que não continham texto foram removidas] Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail. com. http://br.new. mail.yahoo. com/addresses [As partes desta mensagem que não continham texto foram removidas] Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Problema com Code Gear Studio 2007 e Excel
Caros, boa noite! Estou com o seguinte problema: o código abaixo deveria ser capaz de imprimir dados em um arquivo Excel, no Delphi .NET: type TExportarGrid = class helper for TStringGrid procedure ExportarGridExcel(Arquivo :String); end; implementation uses Dialogs, uFuncoes; { TExportarGrid } procedure TExportarGrid.ExportarGridExcel(Arquivo: String); var Linha, Coluna :integer; Arq :TextFile; ExcelApp :Excel._Application; ExcelWorkBook :Excel._Workbook; ExcelWorkSheet :Excel._Worksheet; begin if Self.RowCount 1 then begin try try //Remove o arquivo, caso ele exista //AssignFile(Arq, Arquivo); //Erase(Arq); ExcelApp := Excel.ApplicationClass.Create; //ExcelApp.Visible := True; ExcelWorkBook := Excel._Workbook(ExcelApp.Workbooks.Add(Excel.XlWBATemplate.xlWBATWorksheet)); ExcelWorkSheet := Excel._Worksheet(ExcelWorkBook.Sheets[TObject(1)]); ExcelWorkSheet.Activate; Linha := 0; for Coluna := 0 to Self.ColCount - 1 do begin ExcelWorkSheet.Cells[TObject(Linha + 1), TObject(Coluna + 1)] := removerQuebraLinha(Self.Cells[Coluna, Linha]); end; Linha := 1; while Linha = Self.RowCount - 1 do begin for Coluna:=0 to Self.ColCount - 1 do begin ExcelWorkSheet.Cells[TObject(Linha + 1), TObject(Coluna + 1)] := removerQuebraLinha(Self.Cells[Coluna, Linha]); end; Linha := Linha + 1; end; ExcelWorkBook.SaveAs(arquivo, Excel.XlFileFormat.xlWorkbookNormal, nil, nil, TObject(false), TObject(false), Excel.XlSaveAsAccessMode.xlNoChange, Excel.XlSaveConflictResolution.xlLocalSessionChanges, nil, nil, nil, nil); except end; finally ExcelWorkBook.Close(TObject(false), nil, nil); ExcelApp.Quit; FreeAndNil(ExcelApp); FreeAndNil(ExcelWorkBook); FreeAndNil(ExcelWorkSheet); end; end else ShowMessage('A Grid '+Self.Name+'tem que possuir valor para a migração.'); end; Esse código está funcionando corretamente em algumas máquinas. Em outras, não. Até o momento, a única diferença que vi entre as essas máquinas é a existência de uma versão do Code Gear Studio 2007 instalada. Ou seja, tanto faz compilar esse código utilizando o Borland Developer Studio 2006 ou Code Gear Studio 2007, o código funciona perfeitamente, exceto nas máquinas onde o Code Gear Studio 2007 está instalado. Nessas máquinas, ocorre o seguinte erro: Falha na recuperação de factory de classes COM do componente com CLSID {00024500---C000-0046} devido ao seguinte erro: 80070005. Alguém já teve esse problema, ou pode me sugerir outra solução? Grato desde já, Wellington Analista de Sistemas
[delphi-br] Dbxpress driver mssql
Pessoal, Estou com problemas usando Dbxpress com banco sql server com driver mssql a conexão funciona perfeitamente mas não são reconhecidos alguns parâmetros como application name e host name no banco sql server. Tem algum processo a ser feito neste caso ??? [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Instruções SQL+Paradox.
Valeu .. Realmente e resultado mesmo. mais já ta em False o Request Live. Eu montei uma rotina pra apagar , mais ele não ta apagando. Grato. Well. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Ricardo César Cardoso Enviada em: quinta-feira, 14 de junho de 2007 17:11 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Instruções SQL+Paradox. Hum... vou dar um chute aqui... não é bem a resposta para a tua pergunta mas já pode ser um caminho. esses arquivos _QS???.DB deve ser o result set das consultas anteriores. Acho que vc pode ter uma rotina que apaga automaticamente estes arquivos ao sair da aplicação ou ao entrar na aplicação. Só por curiosidade... vc está deixando a propriedade RequestLive como False nestes componentes? Sds, Ricardo. wellingtonamsantos HYPERLINK mailto:well.santos%40gmx.net[EMAIL PROTECTED] escreveu: Ola a todos... Eu tenho um sistema em delphi infelizmente eu ainda tenho base dados em paradox , mais todas as instruçoes eu uso em sql com um componente QUERY. Só q ele gera um _QS??.DB , alguem sabe como eu nao gero esse arquivo , ou como posso apagar.??? grato well. _ - Novo Yahoo! Cadê? - Experimente uma nova busca. [As partes desta mensagem que não continham texto foram removidas] No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.472 / Virus Database: 269.8.14/845 - Release Date: 12/06/2007 06:39 No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.472 / Virus Database: 269.8.14/845 - Release Date: 12/06/2007 06:39 [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Instruções SQL+Paradox.
Pra resolver isso. Se eu colocar Query.Close; no evento close do form resolve? Grato Well. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Edison DRP Enviada em: quinta-feira, 14 de junho de 2007 17:43 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Instruções SQL+Paradox. Estes arquivos só permanecem gravados se a terminação da Query NÃO for normal. Causa mais frequente: a aplicação está sendo fechada com as queries abertas. Seria o caso ? Quando falo em abertas seriam queries (tipo select ... ) que voce mandar abrir ou ativar e não executar. [] s Edison Garcia - Original Message - From: wellingtonamsantos HYPERLINK mailto:well.santos%40gmx.net[EMAIL PROTECTED] To: HYPERLINK mailto:delphi-br%40yahoogrupos.com.brdelphi-br@yahoogrupos.com.br Sent: Thursday, June 14, 2007 4:26 PM Subject: [delphi-br] Instruções SQL+Paradox. Ola a todos... Eu tenho um sistema em delphi infelizmente eu ainda tenho base dados em paradox , mais todas as instruçoes eu uso em sql com um componente QUERY. Só q ele gera um _QS??.DB , alguem sabe como eu nao gero esse arquivo , ou como posso apagar.??? grato well. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.472 / Virus Database: 269.8.14/845 - Release Date: 12/06/2007 06:39 No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.472 / Virus Database: 269.8.14/845 - Release Date: 12/06/2007 06:39 [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Re: O Comando Case
Tente fazer desta forma function CaseString(const s: string; const x: array of string): Integer; var i: Integer; begin Result := -1; for i := Low(x) to High(x) do begin if s = x[i] then begin Result:= i; Break; end; end; end; Use desta forma Case CaseString(ArquivoExtensao,['.QRP','.JPG','.PDF']) Of 0: showmessage('Quickreport'); 1: showmessage('Imagem'); 2: begin showmessage('Adobe'); End; End; WELLINGTON TECLE UP informática - Softwares - Hardwares - Redes Analista / Programador de Sistemas * [EMAIL PROTECTED] Frase da semana: As pessoas que vencem neste mundo são as que procuram as circunstâncias de que precisam e quando não as encontram, as criam -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Joao Morais Enviada em: terça-feira, 13 de fevereiro de 2007 09:17 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Re: O Comando Case Gabriel Herdt wrote: Jorge, obrigado pela ajuda. Mas esse não eu o caso eu me refiro ao comando CASE OF do delphi(2005) não ao CASE WHEN de Select. Oque eu gostaria de fazer é o seguinte: case trim(UpperCase(sNome)) of 'Gabriel': Begin ... ... End; `Gustavo': Begin ... End; Quanto a Delphi 8 em diante eu não sei, veja o que o help diz a você. Nas versões anteriores, case trabalha apenas com tipos enumeráveis, ou seja, char e números inteiros em geral. Ele não foi criado apenas pra bonito, mas porque o compilador pode gerar um código mais otimizado quando você tem comparações com estes tipos de dados. Para fazer um 'case' com string você tem dois caminhos. O mais prático é com a infinidade de ifs. Não fica muito elegante mas fica um código bem otimizado, caso a sua preocupação também seja performance. Procure colocar na frente aqueles if que têm mais chance de dar verdadeiro. Se for indiferente, tanto faz a ordem. Para que o seu código fique menos feio, chame procedures locais ao invés de criar um begin/end para cada opção. Caso maiúsculo e minúsculo sejam indiferentes, use SameText ao invés de string = string. O caminho mais elegante é criar uma classe para cada resposta, colocar a resposta correta como um método de classe e registrar todas as classes envolvidas em uma lista de classes. É uma solução bem mais escalável, mas se o que você precisa é apenas consultar alguns poucos nomes que nunca vão mudar, é melhor deixar esta solução de lado e ficar com ifs + procedures locais mesmo. -- Joao Morais -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos
RES: [delphi-br] Distribuição via Inno Setup
Procure informações sobre Firebird embarcado pois é somente copiar a DLL o sistema já funciona . Wellington. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Wagner Binoto Enviada em: quarta-feira, 13 de dezembro de 2006 10:15 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Distribuição via Inno Setup Galera, Quem domina o Inno Setup ? Estou precisando gerar uma instalação de um sistema e juntamente com ele o Firebird. Isso na verdade eu ja fiz, o q não consegui foi deixar o firebird subir assim q a máquina do cliente for ligada e de preferencia como aplicativo. Será que alguem já teve q fazer isso em algumas de suas distribuições? Abraços [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] Atualização automática
Para fechar o programa tente desta forma. HNDMens := FindWindowEx(0,0,nil,PChar(fPrograma)); If Not isWindow(HNDMens) then Begin //Senão esta em Execução WinExec(Pchar(fPath+'\'+fPrograma+'.EXE'),0); End Else Begin //Em Execução //FINALIZA PROGRAMA PostMessage(HNDMens,WM_QUIT,0,0); Sleep(1000); Application.ProcessMessages; End; De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de willer Enviada em: sexta-feira, 8 de dezembro de 2006 17:16 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Atualização automática Valeu pela dica. Vou fazer desse jeito. E é usuário quem fecharia o programa par que a atualização fosse feita. Gostei da idéia, vou implelentar. - Original Message - From: Luiz Escobar To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Friday, December 08, 2006 4:35 PM Subject: Re: [delphi-br] Atualização automática Bom na logica, antes de fechar,copiar,abrir o executavel, é melhor vc fazer a perguntinha basica pro usuario, vc tem uma atualziação para este software, deseja fazer agora ? e que a pargunta se repita tipo a cada 30 minutos, se não o usuário vai querer te matar... ehhehehe quanto a uma aplicação fechar outra, sei que tem jeito, mas de cabeça agora não lembro desculpe... Luiz Escobar Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase DOS - Clipper/Assembler xBase SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k LINUX - LAZARUS/Kylix/MySQL; http://www.megasistema.com.br http://www.megasistema.com.br - Original Message - From: willer To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Friday, December 08, 2006 3:22 PM Subject: Re: [delphi-br] Atualização automática Só tenho dúvida na lógica. Já consigo verificar se há atualização e até baixar os novos arquivos, só não estou conseguindo fechar o executável e abró-lo novamente com a nova versão. - Original Message - From: Marcelo Hoepfner (SI) To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Friday, December 08, 2006 1:57 PM Subject: RES: [delphi-br] Atualização automática Cara eu fiz um sistema desses, caso você tenha interesse podemos negociar. Marcelo Hoepfner msn: [EMAIL PROTECTED] mailto:mehvsc%40hotmail.com _ 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 Andrei Luís Enviada em: sexta-feira, 8 de dezembro de 2006 13:22 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] Atualização automática Willer, Uma idéia seria você utilizar no seu sistema 2 executáveis: 1 pequeno, que será executado através de ícones na área de trabalho, etc, que faz a atualização quando necessário e chama o 2º executável que é o sistema em si. [] Andrei Em 08/12/06, willer[EMAIL PROTECTED] mailto:willer%40personalcom.com.br mailto:willer%40personalcom.com.br escreveu: Como faço para fechar o meu programa após ter aberto outro? Estou implementando uma rotina de atualização automáticxa que deverá fzer isso, baixa um arquivo(.exe), abre um programa auxiliar e fecha. O programa auxiliar exclui o antigo, e renomeia o novo, abre-o e fecha-se; [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 1910 (20061208) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 1911 (20061208) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: [Off Topic] Hint dos componentes
Clieuqe em cima da paleta de componentes com o botão invertido do mouse e marque show hint. Wellington --- Em delphi-br@yahoogrupos.com.br, fabio_giro [EMAIL PROTECTED] escreveu Tive que reinstalar o D7 e não está aparecendo o hint dos componentes. Já pesquisei em tools/environment e tools/editor. Alguém pode me ajudar? Obrigado. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Problemas com While
Charles bom dia, você não falou qual é o problema que você está tendo com o loop, mas percebi que você não está dando IBQryBalanco.next no seu while, sem este comando o seu loop será infinito, não sei se é isto que está acontecendo... Atenciosamente Régis Miranda [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Instalação do Delphi
Amigo, Faça logon com usuário administrador entre no registro do windows HKEY_CURRENT_USER\software\borland\delphi\5.0 selecione a pasta 5.0 do delphi5 ou 6.0 delphi6 entre no Menu - Registro - Exportar arquivo do registro salve com o nome : Delphi5 Faça logon com o outro usuário e execute este arquivo após abrir o delphi já conseguira ver os outros componentes ... -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Adilson Silva Enviada em: terça-feira, 10 de janeiro de 2006 16:30 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Instalação do Delphi Olá a todos! Uso o win2k e instalei o Delphi na conta 'Administrador' da máquina, mas eu uso normalmente como outro usuário (resolvi usar o administrador apenas pra instalar programas), acontece que quando abro o delphi na minha conta normal de uso, no pallete de componentes, só aparece a página **standard** com apenas um item: **frames** e mais nada. (como administrador fica perfeito, o pallete completo) Sei que se reinstalar o Delphi na minha conta ele vai funcionar, mas eu não queria isso... quero instalar o Delphi em apenas um usário e usá-lo normalmente nos outros usuários.. Como fazer então para conseguir o que eu quero? Obrigado! - Yahoo! doce lar. Faça do Yahoo! sua homepage. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Designer.Form não identificada
Pessoal, Esta declaração - Designer.Form funcionava perfeitamente em delphi5 passei a utilizar o delphi7 mas não encontrei a opção form dentro do de Designer como posso substituir esta linha ??? if (Designer.Form is GetTypeData(GetPropType)^.ClassType) and (Designer.Form.Name '') then Proc(Designer.Form.Name); Grato, Wellington. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Detectar qdo a aplicação está SEM uso
Segue parte do código que uso Application.OnMessage := SecuritySystem; procedure TfrmMain.SecuritySystem(var Msg: TMsg; var Handled: Boolean); //Função que testa se alguma tecla foi digitada // ou se o mouse foi movimentado ou pressionado begin If ((Msg.message = WM_KEYDOWN) or (Msg.message = VK_LBUTTON) or (Msg.message = VK_RBUTTON) or (Msg.message = VK_MBUTTON) or (Msg.message = WM_MOUSEMOVE) or (Msg.message = WM_MENUSELECT)) then begin tmrSecuritySystem.Enabled := False; StatusMain.Panels[4].Text := 'Sistema em Uso'; TempoOciso.OciosoInicial := Now; End Else Begin tmrSecuritySystem.Enabled := True; StatusMain.Panels[4].Text := 'Sistema Ocioso'; StatusMain.Panels[5].Text := FormatDateTime('hh:nn:ss',Now - TempoOciso.OciosoInicial); //Application.Title := StatusMain.Panels[5].Text; end; end; -Mensagem original- De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Em nome de Marcos - Digirotas Informática Enviada em: terça-feira, 9 de agosto de 2005 12:16 Para: [EMAIL PROTECTED] Assunto: [lista-delphi] Tempo ocioso -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Pedro Vagner Rossi Enviada em: terça-feira, 9 de agosto de 2005 14:45 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Detectar qdo a aplicação está SEM uso Olá a todos. Gostaria de detectar qdo a aplicação está SEM uso: Eu explico: A aplicação está aberta, mas o usuário saiu da mesa, então após um certo tempo a aplicação requer um novo login ou fecha automaticamente. Estive olhando o evento application.onidle, mas não consegui muita coisa. Será que alguém já fez isto? Atenciosamente. Pedro Vagner Rossi [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Ipconfig
Desta forma ele gera um arquivo e só capturar o arquivo e pronto WinExec('IPCONFIG C:\IPCONFIG.txt ',WS_MAXIMIZE); Atenciosamente, Wellington. -Mensagem original- De: gracieli_ribeiro [mailto:[EMAIL PROTECTED] Enviada em: quinta-feira, 7 de abril de 2005 16:31 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Ipconfig Olá queridos, Boa Tarde, gostaria de saber se alguém poderia me ajudar.É o seguinte: Preciso capturar todos os dados visíveis ao comando IPCONFIG no MS- DOS...Alguém saberia qual comando uso no delphi para pegar essas informações?ou teria algum artigo ou documentação q falasse sobre isso? Obrigada , Gracieli -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Capturar Imagem de QuickRep
Amigo, Já é um bom começo. = MF : TMetafile; BMP : TBitmap; JPG : TJpegImage; begin Try MF := QRPrinter.GetPage(numPage); if Assigned(MF) then begin Bmp:= TBitmap.Create; Bmp.Height := MF.Height; Bmp.Width := MF.Width; Bmp.Canvas.Draw(0,0,MF); JPG:= TJpegImage.Create; sFN:= FileName; JPG.CompressionQuality := 85; JPG.Assign(Bmp); JPG.SaveToFile(sFN); Result.Add(sFN); end; finally FreeAndNil(Bmp); FreeAndNil(JPG); end; End; === -Mensagem original- De: Alosi yarru [mailto:[EMAIL PROTECTED] Enviada em: terça-feira, 5 de abril de 2005 09:31 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Capturar Imagem de QuickRep Alguém sabe como se faz para capturar a imagem da impressão do quickrep e salvar em arquivo de figura. Já ouvi falar de que é possível salvar como wmf, alguém sabe? obrigado [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Simular telas
Amigo, Vc deve usar o evento Application.OnIdle dentro deste evento Teste as teclas com getasynckeystate(Tecla) Espero ter ajudado ... -Mensagem original- De: Weber Luvisa [mailto:[EMAIL PROTECTED] Enviada em: terça-feira, 16 de novembro de 2004 11:01 Para: [EMAIL PROTECTED] Assunto: [delphi-br] Simular telas Olá, tenho um rotina no menu pricipal.. e preciso executala em qual quer formulario.. mas quero fazer isso com o precionamento de teclas.. tipo shift + cntr + F9... mas tudo deve estar declarado no form pricipal.. e quando precionar estas teclas em qual quer formulario execute a rotina... Grato. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Chat usando Socket
Pessoal, Desenvolvi programa de Chat usando os componetes ServerSocket, ClientSocket na rede local funciona normalmente sendo um programa servidor e um programa cliente quando coloco na internet não consigo fazer conexão com o servidor de chat retornando o seguinte Erro assíncrono de socket 10060 Alguém poderia me esclarecer ... [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Acho que ninguém sabe essa
Veja se ajuda ... If gdSelected in State then begin stgDados.Canvas.Brush.Color := clHighlight; stgDados.Canvas.Font.Color := clHighlightText; End Else Begin If (stgDados.Cells[12,ARow] = 'V') then Begin stgDados.Canvas.Font.color := clBlack; stgDados.RowHeights[ARow] := 18; Case Acol Of 8..11: Begin stgDados.Canvas.Font.Style := [fsBold]; stgDados.Canvas.Brush.Color := $FDFD; End; Else stgDados.Canvas.Brush.Color := $00B3; End; End Else If (stgDados.Cells[12,ARow] = 'N') then Begin stgDados.Canvas.Font.color := clBlack; stgDados.Canvas.Brush.Color := $009DFF9D; Case Acol Of 8..11: stgDados.Canvas.Font.Style := [fsBold]; End; End Else If (stgDados.Cells[12,ARow] = 'P') then Begin stgDados.Canvas.Font.Size := 7; stgDados.Canvas.Font.color := clBlack; stgDados.RowHeights[ARow] := 12; End Else If (stgDados.Cells[12,ARow] = 'C') then Begin stgDados.Canvas.Font.Size := 7; stgDados.Canvas.Font.color := clBlack; stgDados.Canvas.Brush.Color := $00D8D8D8; stgDados.RowHeights[ARow] := 12; End; End; stgDados.Canvas.FillRect(Rect); stgDados.Canvas.TextOut(Rect.Left+1,Rect.Top,stgDados.cells[Acol,ARow]); -Mensagem original- De: Darkzad [mailto:[EMAIL PROTECTED] Enviada em: segunda-feira, 18 de outubro de 2004 09:46 Para: [EMAIL PROTECTED] Assunto: [delphi-br] Acho que ninguém sabe essa Galera estou precisano do seguinte Quando for inserido a letra A em uma celula qualquer gostaria que está celula tivesse a cor AZUL, quando fosse inserido a letra V gostaria que a celula ficasse VERDE. Tem como fazer isso no Stringrid? Não posso usar outro componete se não for o Stringrid. Valeu [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Acho que ninguém sabe essa
Faltou o evento use no Ondrawcell do stringGrid -Mensagem original- De: WELLINGTON Enviada em: segunda-feira, 18 de outubro de 2004 10:30 Para: [EMAIL PROTECTED] Assunto: RES: [delphi-br] Acho que ninguém sabe essa Veja se ajuda ... If gdSelected in State then begin stgDados.Canvas.Brush.Color := clHighlight; stgDados.Canvas.Font.Color := clHighlightText; End Else Begin If (stgDados.Cells[12,ARow] = 'V') then Begin stgDados.Canvas.Font.color := clBlack; stgDados.RowHeights[ARow] := 18; Case Acol Of 8..11: Begin stgDados.Canvas.Font.Style := [fsBold]; stgDados.Canvas.Brush.Color := $FDFD; End; Else stgDados.Canvas.Brush.Color := $00B3; End; End Else If (stgDados.Cells[12,ARow] = 'N') then Begin stgDados.Canvas.Font.color := clBlack; stgDados.Canvas.Brush.Color := $009DFF9D; Case Acol Of 8..11: stgDados.Canvas.Font.Style := [fsBold]; End; End Else If (stgDados.Cells[12,ARow] = 'P') then Begin stgDados.Canvas.Font.Size := 7; stgDados.Canvas.Font.color := clBlack; stgDados.RowHeights[ARow] := 12; End Else If (stgDados.Cells[12,ARow] = 'C') then Begin stgDados.Canvas.Font.Size := 7; stgDados.Canvas.Font.color := clBlack; stgDados.Canvas.Brush.Color := $00D8D8D8; stgDados.RowHeights[ARow] := 12; End; End; stgDados.Canvas.FillRect(Rect); stgDados.Canvas.TextOut(Rect.Left+1,Rect.Top,stgDados.cells[Acol,ARow]); -Mensagem original- De: Darkzad [mailto:[EMAIL PROTECTED] Enviada em: segunda-feira, 18 de outubro de 2004 09:46 Para: [EMAIL PROTECTED] Assunto: [delphi-br] Acho que ninguém sabe essa Galera estou precisano do seguinte Quando for inserido a letra A em uma celula qualquer gostaria que está celula tivesse a cor AZUL, quando fosse inserido a letra V gostaria que a celula ficasse VERDE. Tem como fazer isso no Stringrid? Não posso usar outro componete se não for o Stringrid. Valeu [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html