RES: [delphi-br] Windows 2003 Server
Fiz teste uma vez com D6 no Win2003, a instalação até rolou, mas sem sucesso pra usar essa forma pra trabalhar, uma série de restrições, e janelas com autorizações, mesmo sendo user administrador. Thiago Filiano -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Walter Chagas (Bol) Enviada em: sexta-feira, 29 de janeiro de 2010 08:36 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Windows 2003 Server Tecnicamente não há nada que impeça isto. []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: Arrobba Sistemas To: delphi-br@yahoogrupos.com.br Sent: Thursday, January 28, 2010 7:05 PM Subject: [delphi-br] Windows 2003 Server Posso instalar o Delphi 2009, no Windows 2003 server, e depois Acessa-lo via terminal service ? Antonio C. de M. Pires [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
[delphi-br] Lendo TMemoryStream
Galera, Estou tendo uma dificuldade grande, e não estou encontrando algo que me dê essa luz. Tenho um Record, com 2 propriedades, e o mesmo eu incluo em um MemoryStream para enviar via socket. Na outra ponta, recebo o memoryStream, mas não consigo receber esses dados novamente no formato do meu record. Me fiz claro? Caso alguém que conheça uma forma de fazer essa leitura, qualquer ajuda será muito bem vinda! grato []'s Thiago Filiano
[delphi-br] Ajuda como recuperar TObject adicionado com AddObject do TStringList
Senhores, Estou tentando recuperar a Porta das impressoras instaladas em minha máquina, e dando uma olhada na unit Printers, precisamente a função GetPrinters da classe TPrinter, e verifiquei que em um determinado momento no FPrinters (TStringList) essa função atribui alguns valores da seguinte forma: FPrinters.AddObject(Format(SDeviceOnPort, [pPrinterName, Port]), TPrinterDevice.Create(nil, pPrinterName, Port)); Estou tentando recuperar esses valores, mas não estou obtendo sucesso. A base para recuperar os valores que tenho é: Printer.Printers.Objects[1], mas não sei como fazer o tratamento. Agradeço toda e qualquer ajuda. []'s Thiago Filiano [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br]BuscaCEP (104MB de dados)
Desculpem pessoal prolongar um pouquinho mais essa thread. Tenho um domínio registrado junto ao provedor de serviços KingHost (www.kinghost.net) e o mesmo disponibiliza um webservices para seus clientes de consulta CEP e pelo que vi não tem vínculos com Correio, portanto não acredito que outra forma seja ilegal a não ser que tenha-se provas de que alguém ou de alguma forma está pegando a base do correio e replicando-a. Até onde sei o correios vende um serviço ao comercializar webservices ou a própria base em cd, de um trabalho que ele teve de coletar os ceps. Agora se eu sair de rua em rua coletar os ceps e criar uma base e disponibilizar na net, seria ilegal? Acredito que não, portanto julgar que a base postada ou qualquer outro tipo de serviço disponibilizado como o da republicavirtual ou mesmo da KingHost ou mesmo outros lugares é infundada. []'s Thiago Filiano - Original Message - From: Eduardo Silva dos Santos eduardo@gmail.com To: delphi-br@yahoogrupos.com.br Sent: Thursday, January 22, 2009 10:56 AM Subject: Re: [delphi-br]BuscaCEP (104MB de dados) Ok João, também não estou falando em fazer um Dump na tabela, ninguém pode confirmar que essa tabela que o Silvio postou foi Dumpada ou não, dai a questão.. Da forma como a coisa toda ficou colocada então deve-se apenas usar os serviços dos correios.. consulta no site.. e o web-service ate onde sei eles não fornecem mais.. tem um da republicavirtual ou algo assim que pelo que vi não tem relação alguma com os correios.. então finalizando.. a forma ética seria.. consultar manualmente no site dos correios ou então contratar esses serviços: http://www.correios.com.br/servicos/cep/dne.cfm http://www.correios.com.br/servicos/precos_tarifas/nacionais/dne/tratamento_enderecos.cfm de resto qualquer outra prática é ilegal e antiética.. 2009/1/22 Joao Morais jcmorai...@gmail.com Eduardo, Um dump converte uma base Access para Firebird, e uma pesquisa bem feita quebra a criptografia, portanto não pode ser usado como argumento. O uso do webservices, bem como a pesquisa no site é (até aonde eu sei) publica e gratuita, disponibilizada pelos correios. Se o webservice depende de logon, então concordo com você. Joao Morais 2009/1/22 Eduardo Silva dos Santos eduardo@gmail.comeduardo.drd%40gmail.com : João são situações diferentes, certamente esse arquivo que o Silvio disponibilizou não faz parte do CD que é vendido pelos correios, até porque o arquivo dos correios é em Access e os dados estão criptografados. certamente esse arquivo dele teve qualquer outra origem, menos a do CD dos Correios. Se for analisar por esse prisma, quem usa esses web-services que faz consulta em bases de cep também não está sendo ético e deveriam contratar os serviços dos correios para obter essas informações, qualquer outra alternativa a isso é anti-ético e ilegal. 2009/1/22 Joao Morais jcmorai...@gmail.com jcmoraisjr%40gmail.com 2009/1/21 Eduardo Silva dos Santos eduardo@gmail.comeduardo.drd%40gmail.com eduardo.drd%40gmail.com : Você só vai sofrer alguma penalidade se disponibilizar o arquivo que vem no CD dos correios.. fora isso eles não podem fazer nada. Se eu pegar seu software, alterar as instruções que verificam a expiração, UPXzar, desUPXzar, eu terei outro software que, em sua essência, continuará sendo seu. Para o caso específico da lista, e porque não pelo próprio Silvio, não estamos falando em risco mas em ética. Fazer um copy/paste não o deixa numa situação melhor do que usar a base original. Joao Morais -- ... 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] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM -- .. 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] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM - Esta mensagem foi verificada pelo sistema KingNoSpam (versao 1.4.2) Assinatura: !DSPAM:497882c7103733844436310! Resultado: INOCENTE Para reportar este e-mail como SPAM, clique aqui: http://webmail.americasoft.com.br/retrain.php?sigI7882c7103733844436310class=amuser=i...@americasoft.com.br
Re: [delphi-br] Sistema Restaurante alguem pode indicar?
Rodrigo, pelo que vi, existem critérios para essa nova lei.. se seu estabelecimento tiver faturamento anual meno que 120.000, não é necessário ter impressora fiscal, vc pode emitir NF's na mão mesmo. em todo caso, muitos restaurantes, pizzarias, churrascarias, e outros usam o Colibri.. (*www*.*colibri*.*com*.*br)* []'s Thiago filiano Rodrigo Mota escreveu: Boa noite galera, Estou a procura para um amigo, ele tem um restaurante…. E a nova leido nosso querido amigo.Serra...foi aprovado a lei... Q todo estabelecimento deve ter a impressora fiscale blablabalabl Seguinte ambiente: A pessoa chega self-servive..a moça anota o valor na comanda dele... Depois ele consome mais algo...a moça anota na comanda o valoretc... Preciso de um softeware somente para emitir esse valor total...em um cupom fiscal Tipo assim.. CUPOM FISCAL Refeição ... R$ 12,00 Diversos R$ 3,00 Diversos R$ 4,00 Total : R$ 19,00 ECF Bla bla bla bla bla Só preciso disso no momento sem integração com estoque...cozinha...e etc... Preciso somente emitir o cupom fiscalde forma legal, pois ele já recebeu comunicado... E esta desesperado para regularizar, acho que ele vai comprar impressora termica da darumaou bemateck Se alguém conhece alguma solução freeou não...com código fonte ou não... Me passe o valor em PVT...e se tiver link para acesso fico agradecido... Att, Rodrigo Mota. -- 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
Re: [delphi-br] Manipulação de forms
Boa tarde Natanael!
a primeira situação, vc pode resolver com o conceito:
procedure RecebeValores;
var
Valor1, Valor2, Valor3: String;
begin
if not Assigned(Formulario) then
Application.CreateForm(TFormulario, Formulario);
with Formulario do
begin
ShowModal;
if ModalResult = mrOk then
begin
Valor1 := edtdoFormulario.Text;
Valor2 := qryDoForlulario.FieldByName('CAMPO').AsString;
Valor3 := PropertyDoFormulario;
end;
end;
para a segunda situação, explique que tipo de processo, e como vc
gostaria de apontar isso,
eu utilizando guage? progressbar?? quer soh o resultado??
[]'s
Thiago Filiano
11-8288-4402
Natanael Rodrigues escreveu:
Buenas pessoal...
Tenho duas dúvidas,
A primeira situação é a seguinte:
Tenho uma form onde eu apresento todas as minhas mensagens de erro, para
as mensagens de erro ela está funcionando perfeitamente, agora gostaria de
utilizá-la para as mensagem onde necessito do retorno da ação do usuário,
por exemplo quando mando uma mensagem com Sim/Não. Como posso tratar o
retorno da interação do usuario?
A Segunda situação é a seguinte:
Tenho uma form onde eu gostaria de utlizá-la para mostrar o andamento do
progresso de todos os processos do sistema. Como posso manipular esta tela
enviando informação do processo bem como o andamento e tambem fazer com que
o sistema respeite um click de cancelar o processo.
Obs: A intenção seria utilizar tanto por forms como tambem por units no
sistema.
Ficarei grato se puderem me ajudar.
[As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Manipulação de forms
Então,
utiliza o conceito que te passei (e que o Alexandre tbm citou) para a
primeira situação,
e cria uma thread para controlar o processo.
no botão cancelar, pare a thread, e se quiser devolva algum valor para
seu form.. variaveil... como na primeira situação.
[]'s
Thiago Filiano
Natanael Rodrigues escreveu:
Na verdade a segunda situação vai ser um gauge, um label e um botão
cancelar.
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Thiago Filiano (America Soft)
Enviada em: terça-feira, 11 de setembro de 2007 13:11
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Manipulação de forms
Boa tarde Natanael!
a primeira situação, vc pode resolver com o conceito:
procedure RecebeValores;
var
Valor1, Valor2, Valor3: String;
begin
if not Assigned(Formulario) then
Application.CreateForm(TFormulario, Formulario);
with Formulario do
begin
ShowModal;
if ModalResult = mrOk then
begin
Valor1 := edtdoFormulario.Text;
Valor2 := qryDoForlulario.FieldByName('CAMPO').AsString;
Valor3 := PropertyDoFormulario;
end;
end;
para a segunda situação, explique que tipo de processo, e como vc
gostaria de apontar isso,
eu utilizando guage? progressbar?? quer soh o resultado??
[]'s
Thiago Filiano
11-8288-4402
Natanael Rodrigues escreveu:
Buenas pessoal...
Tenho duas dúvidas,
A primeira situação é a seguinte:
Tenho uma form onde eu apresento todas as minhas mensagens de erro, para
as mensagens de erro ela está funcionando perfeitamente, agora gostaria de
utilizá-la para as mensagem onde necessito do retorno da ação do usuário,
por exemplo quando mando uma mensagem com Sim/Não. Como posso tratar o
retorno da interação do usuario?
A Segunda situação é a seguinte:
Tenho uma form onde eu gostaria de utlizá-la para mostrar o andamento do
progresso de todos os processos do sistema. Como posso manipular esta tela
enviando informação do processo bem como o andamento e tambem fazer com
que
o sistema respeite um click de cancelar o processo.
Obs: A intenção seria utilizar tanto por forms como tambem por units no
sistema.
Ficarei grato se puderem me ajudar.
[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] Relatorios no Delphi Turbo Explorer - uma luz por favor!
Desculpe Bruno, talvez essa pergunta até tenha sido respondida já em outro momento, mas com o Turbo Professional, é possível o desenvolvimento de aplicações N-Tier? thank's Thiago Filiano Bruno Lichot escreveu: Salve Galera. Realmente não tem geradores de relatórios no Turbo Explorer, e na versão Explorer realmente não e possível instalar nenhum outro componente dos que já vem instalados. Mas tenho vários amigos usando o Turbo Explorer e gerando relatórios, criam classes que implementam impressão baseada no TPrinter, e tudo funciona bem. Os que utilizam impressoras matriciais, estão feliz da vida diga-se de passagem. Muitos estão trabalhando com equipes mistas, onde possuem licenças enterprises e turbo/Professional, trabalhando com Explorer, e criando servidores de relatórios ou classes no projeto com as outras licenças, fazendo isso tudo com muito sucesso, ainda mais agora com os descontos de 20% em toda linha de produtos e as facilidades de pagamentos.Confiram no site: www.borlandshop.com.br Abraços Bruno Lichot De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Alexandre Rodrigues Enviada em: sexta-feira, 7 de setembro de 2007 10:11 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Relatorios no Delphi Turbo Explorer - uma luz por favor! Bruno ou Andreano me corrijam se eu estiver equivocado, mas, devido as limitações da Versão Explorer, creio a mesma que venha sem gerador de relatório e também não é possível instalar um. Cristiano Nunes - Programador escreveu: Colegas Ontem baixei do site da codegear o Turbo Delphi Explorer (lindo diga-se de passagem) eu uso delphi 4 (que baita diferenca no design hehehehe). Mas nao achei nenhuma paleta de gerador de relatorios (eu uso no d4 o quickreport). Qual gerador de relatorios da versao turbo explorer? (tem algum?) Qualquer ajuda é bem-vinda, muito obrigado. []´s Tiano. ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/ __ Informação do NOD32 IMON 2513 (20070907) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Farmacia Popular
Alessando qual seria o padrão a ser gerado?
eu comecei criando um objeto para gerar o xml, conforme os parametros
que eu vou passando.. mas eh um objeto especifico,
onde cada property.. eh um campo do meu xml.
uma forma simples de gerar um xml eh através do clientdataset tbm..
usando o metodo SaveToFile.
sendo usado assim por exemplo: cds.SaveToFile('C:\MeuArquivoXML.xml');
[]'s
*Thiago Filiano *
msn: [EMAIL PROTECTED]
Alessandro da Silva Souza escreveu:
Boa tarde,
Preciso muito de ajuda. Preciso gerar um arquivo XML para o farmacia
popular, mais não consegui achar nenhum exemplo do arquivo XML gerado
para que eu possa saber como gerar o arquivo. Se algume puder me ajudar
ficarei muito grato.
Alessandro.
Re: [delphi-br] Procurando Serviço
Porque não pode ser sério Anderson? * Thiago Filiano * Anderson Marques Ferraz escreveu: Isso não pode ser sério. Em 27/08/07, [EMAIL PROTECTED] [EMAIL PROTECTED] escreveu: Moro em Dourado, estado de São Paulo, mas aceito em qualquer lugar do Brasil ou fora Clóvis Machado Ferreira Que o GADU nos Ampare Msn-[EMAIL PROTECTED] clovito.ferreira%40hotmail.com - Original Message - From: Madsom Silva To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Monday, August 27, 2007 12:04 PM Subject: RES: [delphi-br] Procurando Serviço Clovis, aonde você mora ? Madsom. -Mensagem original- 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 [EMAIL PROTECTED] clovis.machado%40uol.com.br Enviada em: domingo, 26 de agosto de 2007 00:30 Para: [EMAIL PROTECTED] lista-delphi%40yahoogrupos.com.br Assunto: [delphi-br] Procurando Serviço Boa noite Pessoal Saudações Clovis Machado Ferreira Nasc: 21/09/1942 Formação Prof: Engenheiro Agrono o - ESALQ 1971 Analise de Sistemas - Autodidata Informática - Basic - DBase - Clipper Summer 87 - Delphi 7 - InterBase/ FireBird Local de Trabalho - Todo o Brasil Tipo de Contrato - CLT, Autonomo, INicio - Imediatamente Obrigado Clovis Clóvis Machado Ferreira Que o GADU nos Ampare Msn-[EMAIL PROTECTED] clovito.ferreira%40hotmail.com [As partes desta mensagem que não continham texto foram removidas] No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.484 / Virus Database: 269.12.9/975 - Release Date: 26/08/2007 21:34 [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] não consigo entender
Tem duas formas de fazer isso. 1. no sdsClientes, faça um select antes de dar um insert 2. dspClientes vá no evento OnGetTableName e coloque assim: TableName := 'SuaTabela'; *Thiago Filiano * msn: [EMAIL PROTECTED] http://www.americasoft.com.br [EMAIL PROTECTED] escreveu: ola pessoal saudações Estou desenvolvendo um sistema D7, interbase, dbExpress. Tenho um banco de dados e duas tabelas, ainda, dentro desse BD. Clientes e Telefones. Uso os seguintes componentes: SQLConnection, SQLDataSet, DataSetProvider, ClienteDataSet e um DataSource, isto para cada tabela, sendo em comum apenas a Connection. No botão Confirma faço a locação dos campos com os respectivos valores das respectivas edits.text. Tanto para os campos do cliente, como para os do telefone. E no final de cada um uso um ApplyUpdates nos clientDataSet respectivos. No caso do dados dos clientes, da um erro dizendo que não reconhece a tabela Clientes, e no caso do telefone aceita sem problemas. O que fazer ou o que estou fazendo de errado? Obrigado Clovito Clóvis Machado Ferreira Que o GADU nos Ampare Msn-[EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Trabalhando com serviços
No seu serviço, Anderson, altere a propriedde Interactive para False. aproveitando aqui, alguém saberia dizer como faço para o serviço após ser instalado, ser iniciado? *Thiago Filiano * Desenvolvimento (Anderson) escreveu: Boa tarde, criei uma aplicação pra rodar como serviço... tá tudo 100%. instala, desinstala... mas queria fazer esse processo em modo silecioso, pra não ficar exibindo mensagem de OK ou ERRO... já tentei: /q /u /s /silent /quiet alguém sabe qual parâmetro devo usar? Obrigado And. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Teclas de Combinações
tenta assim:
if ((ssCtrl in Shift) and (Key = 80)) then
ShowMessage('agora funcionou!!!');
[]'s
*Thiago Filiano *
Ricardo Mendes escreveu:
Gostaria de tirar um duvida com vcs
Alguem poderia me dizer como faço para realizar a combinação de tecla no
dephi.
Exemplo...
eu preciso que qdo a tecla Ctrl + P for pressionada ele imprima um recibo e
qdo a tecla Shift + P for pressionada um recibo completo seja impresso...
alguem pode me ajudar...
Desculpe se é uma pergunta meio q sem noção...
mas ja procurei na net e até agora não funciona...
utilizo D7
Ricardo
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Criar usuário no banco
Cara eu sei fazer isso por meio de arquivos de lote (BAts) faço assim: cd c:\Arquiv~1\Firebird\Firebird_1_5\bin set isc_user=SYSDBA set isc_password=masterkey gsec -add USUARIO -pw SENHA -lname USUARIO []'s * Thiago Filiano * Marcelo Mendes de Oliveira escreveu: Bom dia pessoal está querendo programar uma rotina pra criar o usuário no banco quando ele se logar no meu sistema mas to meio sem saber como fazer se alguém tiver um exemplo ou uma idéia fico grato, estou utilizando D2006 e FB com concessão via DBexpress. VLW Marcelo Marcelo Mendes de Oliveira Analista de Informática Tel.: + 49 3551-0177 Fax: + 49 3541-0423 IGUAÇU - celulose, papel s.a http://www.iguacucelulose.com.br/ www.iguacucelulose.com.br P Antes de imprimir pense em sua responsabilidade e compromisso com o MEIO AMBIENTE! Before printing this document, think about your responsibility and care for the ENVIRONMENT! [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] duvida sobre uso de mysql com delphi6
Pessoal, como faço para usar o Delphi 6 acessando uma base de dados MySql em um serviço de hospedagem? existem a possibilidade de utilizar todos os recursos do dbx? obrigado, * Thiago Filiano * http://www.americasoft.com.br
Re: [delphi-br] duvida sobre uso de mysql com delphi6
é Ricardo, eu tentei ir por esse lado uns dias atráz tbm, mas não funciona não.. ouvi dizer que o Delphi 6 só é compatível com MySQL 3.0 e ainda por cima, tem alguns problemas. as outras versoes do Delphi, soh conseguir acessar base MYSQL (4.0 e 5.0) com o Delphi2007. alguém tem uma dll para conexao DBX com D6 + MYSQL 3.0 ou 4.0 ?? onde eu possa fazer consultas, e inserções/alterações? toda ajuda eh bem vinda! *Thiago Filiano * http://www.americasoft.com.br Ricardo César Cardoso escreveu: Nunca fiz isso, mas indo pelo lado da lógica e do chutômetro, bastaria vc ter o endereço da base de dados (IP + caminho dentro do servidor) que vc consegue usar perfeitamente no DBX. Sds, Ricardo. Thiago Filiano (America Soft) [EMAIL PROTECTED] escreveu: Pessoal, como faço para usar o Delphi 6 acessando uma base de dados MySql em um serviço de hospedagem? existem a possibilidade de utilizar todos os recursos do dbx? obrigado, * Thiago Filiano * http://www.americasoft.com.br _ - Novo Yahoo! Cadê? - Experimente uma nova busca. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Dúvida, como usar DisplayFormat em comps JEDI VCL?
Pessoal, estou usando o componente: TJvValidateEdit, mas não estou conseguindo formatar seu display format, como quero em runtime. preciso formatá-lo, de acordo com uma variável que é passada, dizendo qtas casas decimais ele terá. Alguém tem um dica? *Thiago Filiano * ICQ: 368-084-624 http://www.americasoft.com.br
Re: [delphi-br] Criar botão na barra de título
tem sim, da uma olhada nesse link! http://www.esnips.com/doc/13240d68-c0bd-4714-b9be-0c82782e0b10/Caption-Buttons []'s Thiago Filiano msn: [EMAIL PROTECTED] 11-8288-4402 Leandro escreveu: Boa tarde, Alguém tem um exemplo de como criar um botão na barra de título de uma janela? Seria um botão com uma ? que ao ser clicado mostraria uma ajuda sobre algum item da janela, parecido com o que acontece em algumas janelas de configuração do Windows. []',s Leandro [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Enquetes DEVMEDIA
ClubeDelphi [EMAIL PROTECTED] [EMAIL PROTECTED] [EMAIL PROTECTED] [EMAIL PROTECTED] SQL Magazine [EMAIL PROTECTED] .Net Magazine WebMobile Java Magazine [EMAIL PROTECTED] Ricardo César Cardoso escreveu: Alcistemas Informática [EMAIL PROTECTED] escreveu: - Original Message - From: alan_adolfo2 To: delphi-br@yahoogrupos.com.br Sent: Thursday, June 14, 2007 9:37 AM Subject: [delphi-br] Enquetes DEVMEDIA Gostaria de Saber quem tanto aq utiliza o Site www.devmedia.com.br para consulta e quem assina ou compra as Revistas coloque o teu email em baixo da revista em q vc assina ou compra. ClubeDelphi [EMAIL PROTECTED] [EMAIL PROTECTED] [EMAIL PROTECTED] SQL Magazine [EMAIL PROTECTED] .Net Magazine WebMobile Java Magazine [EMAIL PROTECTED] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.472 / Virus Database: 269.8.15/848 - Release Date: 13/6/2007 12:50 [As partes desta mensagem que não continham texto foram removidas] __ - Novo Yahoo! Cadê? - Experimente uma nova busca. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Rave Report ou Fortes Report?
amigo, mais facil do explicar por escrito é ter um bom exemplo, na lista fortesreport aqui do yahoo mesmo, tem exemplos mto shows utilizando o fortes report. segue link http://groups.yahoo.com/group/fortesreport/ []'s Thiago Izaias Gomes escreveu: Amigo vc sabe como fazer relatorio agrupados com forte report. Desde já agradeço. - Novo Yahoo! Cadê? - Experimente uma nova busca. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Rave Report ou Fortes Report?
O fortes tem me atendido mto bem, e seus relatórios são rápidamente e facilmente gerados. o Rave, tenho ouvido de amigos, que ele é muito lento, não trabalhei com ele. *Thiago Filiano * Daniel Lucena escreveu: Boa tarde a todos, Provavelmente, alguem já deve ter feito esse questionamento, porém me passou desapercebido! Como grande maioria, trabalhei muito com QuickReport, porém, é notório o defasamento dele em relação a outros Report. Gostei muito do ambiente do Rave Report, apesar de ainda não ter usado em minhas aplicações e ainda não tive tempo de olhar o Fortes Report. Como estou iniciando um novo projeto e gostaria utilizar um novo gerador de relatórios e por isso pergunto aos senhores... Qual é o melhor? Rave ou Fortes? Levando em consideração, o número de ferramentas, o ambiente de criação, a compatibilidade (de win 95 a vista), o recurso de máquina requerido, a qualidade do relatório impreso e em visualização, etc. Desculpe se essa questão já foi muito debatida! Desde já, muito obrigado a todos e tenham todos uma excelente semana! Daniel Vitor Eng. de Computação Novo Yahoo! Cadê? - Experimente uma nova busca. http://yahoo.com.br/oqueeuganhocomisso [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Access Violation
o erro aparece quando vc sai da tela? que metodologia de desenvolvimento vc esta utilizando? Verifique como vc está fechando o form, ou se há algum componente acessando alguma coisa. ou tentando acessar. Atenciosamente, * Thiago Filiano * Programador America Soft Informática www.americasoft.com.br http://www.americasoft.com.br ICQ: 368-084-624 http://www.americasoft.com.br Henrique Cristiano Rodrigues escreveu: Estou recebendo a mensagem de erro: Access violation at address 004D9614 in module 'Arquivo.exe'. Read of address 8 o fato é que funciona normal, o acesso e a gravação dos dados, mas quando sai da tela aparece esse erro, não encontro o que fiz de errado, esses códigos ajudam em algo ou não? Henrique Cristiano Rodrigues tel.: 9122-4471 Messeger: [EMAIL PROTECTED] Orkut: http://www.orkut.com/Profile.aspx?uid=10107590976039686513 __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Qhick-Report + PDF
se vc estiver usando o QR que vem no Delphi6, ou 7 tem um componente de terceiro, que não me lembro o nome agora, mas acho que acha fácil na net.. o problema dele é que as imagens, qdo gerado em PDF ficam com uma resolução péssima. no QR4 que é a última versão se não estou enganado, já tem essa funcionalidade, inclusive tbm, para exportar para Excel, e Html.. []'s *Thiago Filiano * Programador America Soft Informática www.americasoft.com.br http://www.americasoft.com.br ICQ: 368-084-624 http://www.americasoft.com.br Marx Gentil escreveu: Olá grupo, gostaria de saber se é possível transformar um relatório do Quick-Report em PDF __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] Access Violation
que bom cara!! se possível, compartilha com a gente ;) dai se passar por algo parecido. pulamos essa! []'s *Thiago Filiano * Programador America Soft Informática www.americasoft.com.br http://www.americasoft.com.br ICQ: 368-084-624 http://www.americasoft.com.br Henrique Cristiano Rodrigues escreveu: Já achei o erro. Henrique Cristiano Rodrigues tel.: 9122-4471 Messeger: [EMAIL PROTECTED] Orkut: http://www.orkut.com/Profile.aspx?uid=10107590976039686513 - Mensagem original De: Henrique Cristiano Rodrigues [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 16 de Maio de 2007 9:48:15 Assunto: [delphi-br] Access Violation Estou recebendo a mensagem de erro: Access violation at address 004D9614 in module 'Arquivo.exe' . Read of address 8 o fato é que funciona normal, o acesso e a gravação dos dados, mas quando sai da tela aparece esse erro, não encontro o que fiz de errado, esses códigos ajudam em algo ou não? Henrique Cristiano Rodrigues tel.: 9122-4471 Messeger: henrique_mail@ yahoo.com. br Orkut: http://www.orkut. com/Profile. aspx?uid= 1010759097603968 6513 _ _ _ _ __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger .yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] [OFF] BPM - Business Process Management
Pessoal, tenho um trabalho acadêmico sobre BPM.. presquisei, mas o pouco do material que achei não tem muito conteúdo. por isso se alguém puder me ajudar com a vivência relacionada ao BPM agradeço muito! Thiago Filiano 55-11-8288-4402
Re: [delphi-br] Para pessoal da Borland | CodeGear
então Andreano, em minha casa, eu fiz a instalação do trial do 2007, e aconteceu isso.. toda vez que abro o Delphi2006, o mesmo não aparece na area de trabalho. estranho... * Thiago Filiano * Andreano Lanusse escreveu: Thiago, não existe uma relação entre seu problema e a instalação de Delphi. Poderiamo nos dar mais detalhes? []'s . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . http://www.codegear.com/ Andreano Lanusse Product Line Manager Latin America Caribbean phone 1.831.431.5051 | mobile 1.831.332.5100 | email [EMAIL PROTECTED] 100 Enteprise Way Scotts Valley, CA, 95066 USA www.codegear.com blogs.codegear.com/andreanolanusse ¡Visite CodeGear Developer Network en Español! http://dn.codegear.com/es http://dn.codegear.com/es Visite CodeGear Developer Network em Português! http://dn.codegear.com/br http://dn.codegear.com/br From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On Behalf Of Thiago Filiano (America Soft) Sent: Thursday, May 03, 2007 12:38 PM To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Para pessoal da Borland | CodeGear Andreano, Bruno, instalei a versao do Delphi 2007 na minha máquina, e a mesma fez com que ao abrir o BDS2006 não aparecça mais a janela do BDS na minha barra de tarefas. Assim só consigo alternar entres os delphis abertos utilizando Alt+TAB. Isso já foi verificado por vocês? há alguma atualização disponível para sanar isso? Atenciosamente, -- * Thiago Filiano * Programador America Soft Informática www.americasoft.com.br http://www.americasoft.com.br http://www.americasoft.com.br ICQ: 248-076-771 http://www.americasoft.com.br http://www.americasoft.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Interbase 2007 - versao developer - duvida
Gostaria de ter mais informações, do que posso ou não posso fazer com essa versão do interbase. Thiago Filiano
Re: [delphi-br] Para pessoal da Borland | CodeGear
Olha só, fiz um teste como o amigo da lista falou, e qdo minimizo ele volta para a barra de tarefas!! mas qdo abro simplesmente, se nao minimizar em nenhum instante.. ja era nao vai mesmo. []'s * Thiago Filiano * http://www.americasoft.com.br Adriano Santos escreveu: Pode até ser alguma chave em registro que o Delphi 2007 mexeu, mas não acredito.
[delphi-br] Para pessoal da Borland | CodeGear
Andreano, Bruno, instalei a versao do Delphi 2007 na minha máquina, e a mesma fez com que ao abrir o BDS2006 não aparecça mais a janela do BDS na minha barra de tarefas. Assim só consigo alternar entres os delphis abertos utilizando Alt+TAB. Isso já foi verificado por vocês? há alguma atualização disponível para sanar isso? Atenciosamente, * Thiago Filiano * Programador America Soft Informática www.americasoft.com.br http://www.americasoft.com.br ICQ: 248-076-771 http://www.americasoft.com.br
Re: [delphi-br] SQLConnection property required for this operation.
Bom dia Carlos, Esse erro é provável que esteja ocorrendo porque há algum dataset ligado, mas não está sendo possível a conexão no momento em que vc abre seu sistema. verifique se todos os cds, sds, estão desligados. []'s Thiago Carlos escreveu: Bom dia a todos!!! Em primeiro lugar, quero agradecer a todos os colegas que sempre estão dispostos a nos ajudar. É sempre bom saber que existem pessoas dispostas a compartilhar o conhecimento. Solicito a quem possa me auxiliar em outro erro que acontece em uma aplicação delphi que estou criando. Sempre que abro o código desta aplicação, me aparece a tela de erro com a seguinte mensagem SQLConnection property required for this operation. umas 05 ou 06 vezes de forma repetida. Mas não afeta o meu uso(pelo menos por enquanto), encontrei em um site (em inglês) que se trata de um erro de comunicação entre a aplicação e o DB e seria necessário usar um DCOMConnectio. Seria isso mesmo? por que e como usar? Agradeço antecipadamente o auxílio de todos. Fraterno abraço! Carlos
Re: [delphi-br] [licenca Delphi6]
Marcio, pelo que pesquisei uns meses atráz, só diretamente com a Borland.. e isso não sai barato não, você teria que comprar uma licença por exemplo do Delphi2006 e solicitar um Downgrade. []'s Thiago Marcio escreveu: Bom Dia !!! Companheiros, preciso comprar uma licença de delphi 6 ou superior, alguem sabe me informar onde conseguir ?? Marcio Blumenau - SC
Re: [delphi-br] Como contar a quantidade de caracteres
Henrique, use a função do delphi Length(), ela te da esse resultado exemplo: ShowMessage(IntToStr(Length(edit1.text))); []'s Thiago Filiano msn: [EMAIL PROTECTED] Henrique Cristiano Rodrigues escreveu: Como contar a quantidade de caracteres vindo de um edit? Henrique Cristiano Rodrigues tel.: 9122-4471 Messeger: [EMAIL PROTECTED] Orkut: http://www.orkut.com/Profile.aspx?uid=10107590976039686513 __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Botão redondo
Anderson, se possivel disponibilza nos arquivos do grupo ;) abs. Thiago Hudson escreveu: pra mi tbm..rsrs [EMAIL PROTECTED] valeu - Original Message - From: Régis Bender To: delphi-br@yahoogrupos.com.br Sent: Tuesday, April 24, 2007 5:01 PM Subject: Re: [delphi-br] Botão redondo Se possivel, passa pra mim também... [EMAIL PROTECTED] vlw sds Bender Desenvolvimento de Sistemas e Serviços Contábeis (Régis) (51) 98470699 Novo Hamburgo/RS MSN: [EMAIL PROTECTED] - Original Message - From: José Mário Silva Guedes To: delphi-br@yahoogrupos.com.br Sent: Tuesday, April 24, 2007 4:42 PM Subject: Re: [delphi-br] Botão redondo Puxa vida, quero sim: [EMAIL PROTECTED] Muito obrigado. [As partes desta mensagem que não continham texto foram removidas] -- E-mail classificado pelo Identificador de Spam Inteligente. Para alterar a categoria classificada, visite o Terra Mail -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.463 / Virus Database: 269.5.9/773 - Release Date: 22/4/2007 20:18 [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] Caracter estranho
desculpe Rodilson, eu tenho tido o mesmo problema, mas é recebendo e-mail de outra lista... :( se alguem tiver uma solução.. tbm agradeço. abs. Thiago Rodilson escreveu: Pessoal boa tarde, Tenho recebido e-mail do grupo no outlook express normalmente, porém as mensagens com acentuação está aparecendo uns caracteres estranhos nos acentos. Alguém sabe por que isso acontece? Rodilson [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Delphi 2007 Win32 QuickReport
Claus, entra no site da codegear, sendo cliente registrado, vc tem direito sim, http://www.codegear.com/Downloads/RegisteredUsers/Delphi/tabid/150/Default.aspx []'s Thiago * * /Thiago Filiano / ** DESENVOLVIMENTO DE SOFTWARE *AméricaSoft Informática * ( Tel * (11) 6955-8833 * ( * Fax (11) 6955-8833 * * [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] *WebSite:_www.americasoft.com.br_* Claus escreveu: Olá Pessoal ! Alguem já baixou o QR do site da QUSOFT ? Eles estão pedindo número serial do produto e eu informo o serial number que consta do cartão de licença do Delphi, que é recusado. A versão disponível para download é a Professional. Temos direiro à ela ? []´s Claus
[delphi-br] análise combinatória de string
Pessoal, alguém possuí uma função de análise combinatória de string? valeu! Thiago Filiano
Re: Res: [delphi-br] Re: Livro: Sistema Comercial Integrado com Delphi 2005
se nao me engano tenho esse livro. ele não é mto profundo, mas tem umas dicas legais, e básicas sobre selects, e ensina por cima como trabalhar com dbexpress. tem algumas coisas mais.. []'s Thiago Carlos escreveu: Não posso dizer para você que a versão 2005 seja a ideal, haja vista que não a conheço, creio que a tecnologia usada deva ser dbexpress. Mas posso lhe afirmar, depois de comprar muitos livros, que a maioria só muda o título, ou seja, vc compra um, viu todos(estamos falando de livros, não de folhetos ou gibis...rs...). Podemos afirmar que existem muitos sites de desemvoilvimento, e alguns deles com uma edição mensal de revistas sobre a linguagem desejada, com dicas e criação de softwares passo a passo, por um preço bem acessível. No meu caso (veja bem, não estou dizendo a ninguém para fazer isto, estou falando de minha experiência), assino a revista Clube Delphi, por um valor anual inferior a R$ 100,00 (12 edições) e o melhor, posso baixar muitas video-aulas referente ao assunto, onde colaboradores desenvolvem sistemas usando varias tecnologias, muito elucidativo para quem quer aprender. No mais, vc tem o apoio de uma grande comunidade de desenvolvedores, e vc que já conta com uma experiência em Delphi (a versão 5 enterprise já contava com o ADO), pode garimpar na internet e sempre que precisar, pedir um auxílio para o pessoal do grupo. --- Em delphi-br@yahoogrupos.com.br, Rodrigo Lether [EMAIL PROTECTED] escreveu Olá Carlos, Valeu pela dica... Eu ja Conheço sim o Delphi, mas faz muito tempo que eu não faço nada com ele parei na versão 5. Qual livro vc recomendaria para eu estudar a versão 2005 ??? Obrigado, Rodrigo - Mensagem original De: Carlos [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Sábado, 31 de Março de 2007 17:17:24 Assunto: [delphi-br] Re: Livro: Sistema Comercial Integrado com Delphi 2005 Veja bem, comprei este material para treinamento e posso lhe falar que: - a tecnologia usada é BDE(totalmente obsoleta); - se vc tiver uma base de programação em delphi, conseguira adaptar os exemplos dos livros para ADO ou DBExpress; - os livros são muito explicativos, no entanto vc precisa primeiro usar o de cadastro e estoque (que é o n° 1) e depois dar continuidade com o de Vendas e Contas. - é valido, mas se vc tiver uma boa base em Delphi e DB, na minha sincera e humilde opinião, é dinheiro (e diga-se, muito, já que os dois atualmente nas livrarias, se novos, são quase 300 reais) jogado fora, e tempo. se vc tem uma pequena noção de Delhi e DB, ai a conversa muda. É tudo uma questão de necessidade e aplicabilidade. --- Em [EMAIL PROTECTED] os.com.br, Rodrigo rlether@ escreveu Boa Noite Galera, Estava vendo uns livros sobre Delphi 2005 e achei interessante estes 2 livros: - Sistema Comercial Integrado com Delphi 2005 - Cadastro e Estoque - Sistema Comercial Integrado com Delphi 2005 - Vendas, Contas a Pagar e a Receber Como faz tempo que eu não programa em Delphi, gostaria de saber a opnião de vocês sobre estes livros para quem já esta afastado a algum tempo, antigamente eu programava no delphi 5 e 6. Obrigado, Rodrigo [As partes desta mensagem que não continham texto foram removidas] __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Converter Palavras em Numeros - como faço??
blz cara, vou testar aqui..
olha sinceramente eu tbm não sei, mas um amigo meu pediu para postar a
dúvida :)
obrigadao!!
Eduardo Castro Alves escreveu:
Ta na mao, mas nao sei ate a onde vale apena.
function TForm1.NumeroPTexto(pNum : String) : String;
var
i : Integer;
t,
s : String;
begin
s := '';
i := 1;
t := pNum;
while i Length(t) do
begin
s := s + Chr(StrToInt(Copy(t, i, 3)));
i := i + 3;
end;
Result := s;
end;
function TForm1.TextoPNumero(pTexto : String) : String;
var
i : Integer;
s : String;
begin
s := '';
for i := 1 to Length(pTexto) do
begin
s := s + FormatFloat('000', ORD(pTexto[i]));
end;
Result := s;
end;
Eduardo
Thiago Filiano (America Soft) escreveu:
Pessoal,
bom dia!
Alguém tem um algoritimo pra converter palavras em numeros??
e depois voltar os numeros para a/as palavras?
Obrigado,
Thiago Filiano
___
Yahoo! Mail - Sempre a melhor opção para você!
Experimente já e veja as novidades.
http://br.yahoo.com/mailbeta/tudonovo/
[delphi-br] Converter Palavras em Numeros - como faço??
Pessoal, bom dia! Alguém tem um algoritimo pra converter palavras em numeros?? e depois voltar os numeros para a/as palavras? Obrigado, Thiago Filiano
Re: [delphi-br] Converter Palavras em Numeros - como faço??
não, quero converter em numero mesmo uma palavra, e ao desconverter os numeros eu obtenha a minha antiga palavra. Guionardo Furlan escreveu: Vc quer dizer converter mil e um para 1001? E vice-versa? Em 27/03/07, Thiago Filiano (America Soft) [EMAIL PROTECTED] escreveu: Pessoal, bom dia! Alguém tem um algoritimo pra converter palavras em numeros?? e depois voltar os numeros para a/as palavras? Obrigado, Thiago Filiano
Re: [delphi-br] Delphi - Erro no windows XP
acho que seu banco então nao esta conectado... Dercino escreveu: Eduardo, Logo que executa aparece a mensagem de erro. O objeto de conecção está active=false. isso acontece logo quando executa? verifique se o seu objeto de conexão ao banco de dados não ficou com a propriedade Active = True. Em 13/03/07, dercino [EMAIL PROTECTED] escreveu: Boa tarde!! Pessoal, estou com 5 micro com um sistema em Delphi e todos os micros com o windows XP. Em dois deles eu não consigo rodar o sistema, pois dá erro na execução e aparece aquela famosa tela de erro do windows. Alguém sabe como resolver isso ? Obrigado! Aviso de confidencialidade Esta mensagem da Empresa Brasileira de Pesquisa Agropecuária (Embrapa), empresa pública federal regida pelo disposto na Lei Federal no. 5.851, de 7 de dezembro de 1972, é enviada exclusivamente a seu destinatário e pode conter informações confidenciais, protegidas por sigilo profissional. Sua utilização desautorizada é ilegal e sujeita o infrator às penas da lei. Se você a recebeu indevidamente, queira, por gentileza, reenviá-la ao emitente, esclarecendo o equivoco. Confidentiality note This message from Empresa Brasileira de Pesquisa Agropecuária (Embrapa) a government company established under Brazilian law (5.851/72), is directed exclusively to its addressee and may contain confidential data, protected under professional secrecy rules. Its unauthorized use is illegal and may subject the transgressor to the law's penalties. If you're not the addressee, please send it back, elucidating the failure.
Re: [delphi-br] Delphi - Erro no windows XP
ok.. tenta debugar o sistema.. talvez mata o problema na raiz ;) Dercino escreveu: Thiago , A ligação está sendo feita, em um micro funciona e em outro não, esse é o problema. Os micros que estão dando problemas, acessa normalmente a ambiente de rede. acho que seu banco então nao esta conectado... Dercino escreveu: Eduardo, Logo que executa aparece a mensagem de erro. O objeto de conecção está active=false. isso acontece logo quando executa? verifique se o seu objeto de conexão ao banco de dados não ficou com a propriedade Active = True. Em 13/03/07, dercino [EMAIL PROTECTED] escreveu: Boa tarde!! Pessoal, estou com 5 micro com um sistema em Delphi e todos os micros com o windows XP. Em dois deles eu não consigo rodar o sistema, pois dá erro na execução e aparece aquela famosa tela de erro do windows. Alguém sabe como resolver isso ? Obrigado! Aviso de confidencialidade Esta mensagem da Empresa Brasileira de Pesquisa Agropecuária (Embrapa), empresa pública federal regida pelo disposto na Lei Federal no. 5.851, de 7 de dezembro de 1972, é enviada exclusivamente a seu destinatário e pode conter informações confidenciais, protegidas por sigilo profissional. Sua utilização desautorizada é ilegal e sujeita o infrator às penas da lei. Se você a recebeu indevidamente, queira, por gentileza, reenviá-la ao emitente, esclarecendo o equivoco. Confidentiality note This message from Empresa Brasileira de Pesquisa Agropecuária (Embrapa) a government company established under Brazilian law (5.851/72), is directed exclusively to its addressee and may contain confidential data, protected under professional secrecy rules. Its unauthorized use is illegal and may subject the transgressor to the law's penalties. If you're not the addressee, please send it back, elucidating the failure. Aviso de confidencialidade Esta mensagem da Empresa Brasileira de Pesquisa Agropecuária (Embrapa), empresa pública federal regida pelo disposto na Lei Federal no. 5.851, de 7 de dezembro de 1972, é enviada exclusivamente a seu destinatário e pode conter informações confidenciais, protegidas por sigilo profissional. Sua utilização desautorizada é ilegal e sujeita o infrator às penas da lei. Se você a recebeu indevidamente, queira, por gentileza, reenviá-la ao emitente, esclarecendo o equivoco. Confidentiality note This message from Empresa Brasileira de Pesquisa Agropecuária (Embrapa) a government company established under Brazilian law (5.851/72), is directed exclusively to its addressee and may contain confidential data, protected under professional secrecy rules. Its unauthorized use is illegal and may subject the transgressor to the law's penalties. If you're not the addressee, please send it back, elucidating the failure.
Re: [delphi-br] Função AbrirForm
pra vc usar essa função, no seu form tem que ter as seguintes linhas...
initialization
RegisterClass(NomeDaClasseDoForm)
finalization
UnRegisterClass(NomeDaClasseDoForm)
Eduardo Silva dos Santos escreveu:
Interessante a sua rotina, eu tentei testar aqui mas
na linha Pc := GetClass('T' + AForm);
mesmo com um Nome de Form Certinho PC sempre fica como Nil.. dai não
executa o resto.
eu fiz uma rotina generica so que bem mais simples que pra min
provisoriamente ta resolvendo, mas to tentando chamar o form so pelo nome
tb..
ShowForm( TFrmCliente, FrmClientes );
**
procedure ShowForm( TFrm:TFormClass; Frm:TForm );
begin
try
if not Assigned( Frm ) then
Frm := TFrm.Create( Application );
Frm.ShowModal;
finally
FreeAndNil( Frm );
end;
end;
Em 14/03/07, Adriano Santos - Direção de Arte [EMAIL PROTECTED]
escreveu:
Pessoal, alguém pode ver se consegue dar um help pra gente?
Estamos tentando terminar a função para abrir form pelo nome.
Já está funcionando em partes.
Quando chamamos o form assim:
AbrirForm('frmMatCol06', frmMatCol06);
O form abre, porém se este mesmo form faz alguma referência a algum
componente visual em tela tipo um:
btnCancelar.Enabled := True;
Dá AccessViolation, se alteramos para
Self.btnCancelar.Enabled := True;
Funciona. Tem alguma coisa a ver com o Dono do objeto. Não consigo
descobrir.
Já tentamos de tudo que é jeito:
1º AbrirForm('frmMatCol06', Self);
2º AbrirForm('frmMatCol06', Application);
3º AbrirForm('frmMatCol06', frmMatOpe01); //frmMatOpe01 é o form chamador.
ou ainda:
procedure TfrmMatOpe01.N110Click(Sender: TObject);
var
frmMatCol06 : TfrmMatCol06;
begin
frmMatCol06 := TfrmMatCol06(AbrirForm('frmMatCol06', Self));
.
end;
A função completa AbrirForm é esta. Vlw.
function AbrirForm(AForm: string; ADono: TComponent; AEstilo:
TFormBorderStyle = bsSingle;
AShow: Boolean = True): TForm;
var
Pc : TPersistentClass;
Nome : TForm;
I : Integer;
begin
try
Pc := GetClass('T' + AForm);
if (Pc nil) then
begin
Nome := nil;
I := 0;
while I Screen.FormCount do
begin
if Screen.Forms[I] is Pc then
Nome := Screen.Forms[I];
Inc(I);
end;
if Nome = nil then
begin
try
Nome := TFormClass(Pc).Create(ADono);
Nome.KeyPreview := True;
Nome.OnKeyDown := frmAmerica.AdicionarAtalho;
Result := Nome;
if AShow then
Nome.Show
else
Nome.ShowModal;
except on E: Exception do
begin
MessageDlg('Ocorreu um erro ao carregar esta função.' + #13 +
'Erro original: ' + #13#13 +
E.Message, mtWarning, [mbOk], 0);
Result := nil;
Exit;
end;
end;
end
else
begin
if AShow then
Nome.Show
else
Nome.ShowModal;
Result := Nome;
end;
end
else
begin
MessageDlg('Ocorreu um erro ao carregar esta função.' + #13 +
'Janela: ' + AForm, mtWarning, [mbOk], 0);
Result := nil;
end;
except
Result := nil;
end;
end;
--
--
*Adriano Santos*
Re: [delphi-br] Re: Mascara p/ CAMPO DECIMAL no CLIENTDATASET ?
tenta fazer assim oh: depois que vc abrir seu clientdataset
(FieldByName('CAMPO') as TNumericField).DisplayFormat := '##,###,##0.00'
talvez ajude, comigo funciona ;)
:P
[]'s
Thiago
Leonardo Anselmo escreveu:
Murilo,
Conseguir da seguinte forma, ve só. Isso pq eh so pra mostrar no
GRID, nao pensei em outras implicaçoes que possam a ter, como uma possivel
atualizacao em banco. Mas, fiz assim: criei um campo calculado como float e
depois no clientdataset atribuir o valor do campo que eu quero ao campo
calculado, ai pedir pra mostrar o campo calculado com a mascara no grid em
vez de mostrar o campo decimal que se encontra no banco de dados. Olha muito
obrigado pela força, espero que isso possa servir pra alguem que um dia venha
a precisa.
Valeu
Leonardo Anselmo
- Original Message -
From: Leonardo Anselmo
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, March 08, 2007 3:42 PM
Subject: Re: [delphi-br] Re: Mascara p/ CAMPO DECIMAL no CLIENTDATASET ?
Murillo, não funcionou não, vc teria alguma outra ideia. Pois, for ser
sincero, ja tentei de tudo.
Valeu
Leonardo Anselmo
- Original Message -
From: Murillo Proença
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, March 08, 2007 10:24 AM
Subject: [delphi-br] Re: Mascara p/ CAMPO DECIMAL no CLIENTDATASET ?
Tenta colocar na propriedade DisplayFormat ##,###,##0.00
Abraço
Murillo Proença
--- Em delphi-br@yahoogrupos.com.br, Leonardo Anselmo [EMAIL PROTECTED]
escreveu
Pessoal,
Tenho um grid e estou exibindo um campo decimal nele,
mas quando eu coloco mascara ele nao exibi a mesma, testei com outros
campos e funcionou, entao vi que o problema eh que o clientdataset
identifica o campo DECIMAL que esta no banco como BCD, e nao como o
tipo que realmente se encontra no banco, entao como eu faco pra exibir
a mascara pra esse tipo de campo?.
Valeu
Leonardo Anselmo
[As partes desta mensagem que não continham texto foram removidas]
__ Informação do NOD32 IMON 2102 (20070308) __
Esta mensagem foi verificada pelo NOD32 sistema antivírus
http://www.eset.com.br
[As partes desta mensagem que não continham texto foram removidas]
__ Informação do NOD32 IMON 2103 (20070308) __
Esta mensagem foi verificada pelo NOD32 sistema antivírus
http://www.eset.com.br
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Botão no Título do Ca ption estilo XP
Adriano, segundo o autor desse artigo que vc mencionou, o Themes.. a uxTheme vem com o delphi a partir da versão 7. flw ;) Adriano Santos - Direção de Arte escreveu: Opa, menos mal. Eu procurei tb, mal procurado pelo jeito, mas procurei. Legal. Vou ver se consigo compilar. Engraçado que se está no diretório do proprio Delphi pq não compila né? Eduardo respondeu: Sem sacanagem pesquisei no google li alguns artigos sobre UxTheme e pesquisei na minha maquina e como em um passe de magica achei nesta pasta Delphi$\Source\Rtl\Win Eduardo Adriano Santos - Direção de Arte escreveu: Pessoal, Peguei uma dica antiga de como colocar um botão no título da janela, mas a dica cria um frame, meio zuado pois fica totalmente rídiculo no windows. Ai encontramos (eu e meu técnico) esta dica: http://scriptbrasil.com.br/forum/index.php?showtopic=90357 http://scriptbrasil.com.br/forum/index.php?showtopic=90357 http://scriptbrasil.com.br/forum/index.php?showtopic=90357 http://scriptbrasil.com.br/forum/index.php?showtopic=90357 Mas pede uma tal de UxTheme e não compila. Alguém tem alguma coisa ai que não fique muito feio? vlw ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/ http://br.yahoo.com/mailbeta/tudonovo/ No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.446 / Virus Database: 268.18.8/714 - Release Date: 8/3/2007 10:58
Re: [delphi-br] Re: Imagem no Cadastro
ola Ricardo, como vc esta chamando sua foto atualmente?? Ricardo Mendes escreveu: Galera ainda não consegui resolver o problema, mas pelo visto os meus colegas, não puderam me ajudar ainda, pois tive apenas uma resposta da minha duvida. Estou na pesquisa de acertar essa dificuldade e colocar aki na lista a solução depois. []s Ricardo --- Em delphi-br@yahoogrupos.com.br, Ricardo Mendes [EMAIL PROTECTED] escreveu Olá galera, td blz. Gostaria de uma ajuda para resolver o seguinte problema. Eu preciso montar um cadastro de aluno e que cada aluno contenha a sua foto. O meu problema é a parte de trabalhar com a imagem, pois preciso copiar a imagem q for selecionada e fazer uma copia dessa imagem em tamanho determinado e coloca em um diretorio especifico e no banco de dados gravar o nome do arquivo que foi na foto no diretorio especifico. Eu crie um form que realiza a busca da foto, mas não consigo fazer com que a imagem seja visualizada no meu Image. Será que alguem pode me dar um help nisso. Agradeço Ricardo Mendes TotalSat - Rastreamento de Veículos Departamento de Informática E-mail: [EMAIL PROTECTED]
Re: [delphi-br] Botão no Título do Ca ption estilo XP
aee galera! disponibilizando no meu link abaixo, um exemplo/componente desenvolvido pelo Thales Pontes Martins.. eh mto joia fica bem legais os botoes!! http://www.esnips.com/web/Thiago-Exemplos/?flush=1 []'s Thiago Adriano Santos - Direção de Arte escreveu: É, esse esquema ai um colega nosso da lista passou, mas volto a dizer. No Delphi 6.0 não consigo compilar, mas o exemplo é loco...vcs tem que ver. *Adriano Santos* Ricardo César Cardoso respondeu: Só complementando, dê uma olhada nesse site abaixo; pelo pouco que pude ler ele baixa o uxtheme e tb ensina como instalá-lo. Sds, Ricardo Adriano Santos - Direção de Arte [EMAIL PROTECTED] mailto:artes%40doiscliques.com escreveu: Pessoal, Peguei uma dica antiga de como colocar um botão no título da janela, mas a dica cria um frame, meio zuado pois fica totalmente rídiculo no windows. Ai encontramos (eu e meu técnico) esta dica: http://scriptbrasil.com.br/forum/index.php?showtopic=90357 http://scriptbrasil.com.br/forum/index.php?showtopic=90357 Mas pede uma tal de UxTheme e não compila. Alguém tem alguma coisa ai que não fique muito feio? vlw __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ http://br.messenger.yahoo.com/ [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.446 / Virus Database: 268.18.8/714 - Release Date: 8/3/2007 10:58
[delphi-br] Erro com trigger no SQL 2005
Msg 570, Level 16, State 1, Procedure TR_basTCSpecLayoutList_ComplementOwnerDel, Line 1 Instead of triggers do not support direct recursion. Trigger execution failed. No meu banco de dados tenho trigger de com recursiva. Mas ao disparar a mesma sempre ocorre o erro acima, mesmo que a opção Recursive Triggers Enabled esteja marcada como True. Alguém poderia me ajudar configurar o SQL Server 2005 para suportar trigger recuriva. Obrigado!! Thiago
Re: [delphi-br] Erro com trigger no SQL 2005
Gabriel, Da maneira em que está o sistema hoje eu teria que fazer muitas alterações. No SQL 2000 funcionava sem problemas somente no 2005 está ocorrendo este erro. []'s Thiago Gabriel Filho escreveu: Pelo q diz na mensagem ele nao aceita em Instead vc nao pode usar esse trigger sem ser Instead ? pode resolver o problema. Em 08/03/07, Thiago Filiano (America Soft) [EMAIL PROTECTED] escreveu: Msg 570, Level 16, State 1, Procedure TR_basTCSpecLayoutList_ComplementOwnerDel, Line 1 Instead of triggers do not support direct recursion. Trigger execution failed. No meu banco de dados tenho trigger de com recursiva. Mas ao disparar a mesma sempre ocorre o erro acima, mesmo que a opção Recursive Triggers Enabled esteja marcada como True. Alguém poderia me ajudar configurar o SQL Server 2005 para suportar trigger recuriva. Obrigado!! Thiago [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Erro com trigger no SQL 2005
é então, já olhei, e apenas diz para setar Recursive_TRIGGERS como ON. Foi o que eu fiz e ainda não funcionou. não sei mais o que fazer :( Gabriel Filho escreveu: Bom ai eu recomendo q vc de uma pesquisado no Books on-line do SQL 2005, pois pode ter algo referente a isto. Em 08/03/07, Thiago Filiano (America Soft) [EMAIL PROTECTED] escreveu: Gabriel, Da maneira em que está o sistema hoje eu teria que fazer muitas alterações. No SQL 2000 funcionava sem problemas somente no 2005 está ocorrendo este erro. []'s Thiago Gabriel Filho escreveu: Pelo q diz na mensagem ele nao aceita em Instead vc nao pode usar esse trigger sem ser Instead ? pode resolver o problema. Em 08/03/07, Thiago Filiano (America Soft) [EMAIL PROTECTED]thiago%40americasoft.com.br escreveu: Msg 570, Level 16, State 1, Procedure TR_basTCSpecLayoutList_ComplementOwnerDel, Line 1 Instead of triggers do not support direct recursion. Trigger execution failed. No meu banco de dados tenho trigger de com recursiva. Mas ao disparar a mesma sempre ocorre o erro acima, mesmo que a opção Recursive Triggers Enabled esteja marcada como True. Alguém poderia me ajudar configurar o SQL Server 2005 para suportar trigger recuriva. Obrigado!! Thiago [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] botao adicional na barra de titulo - como??
Boa tarde pessial, alguém tem uma dica ai, de como colocar um botãozinho.. ou ícone, semelhante ao Maximizar, minimizar.. na barra de título?? Obrigado! Thiago
Re: [delphi-br] botao adicional na barra de titulo - como??
hmm isso nao eh mto interessante para nós aqui, pois temos mtas telas.. para adaptar isso não seria mto legal.. Humberto escreveu: bom.. adicionar um novo botão eu não, mas o que vc pode fazer para contornar essa situação seria não exibir a barra de títulos e criar a sua própria barra.. \o/ - Original Message - From: Thiago Filiano (America Soft) To: delphi-br@yahoogrupos.com.br Sent: Thursday, March 08, 2007 4:55 PM Subject: [delphi-br] botao adicional na barra de titulo - como?? Boa tarde pessial, alguém tem uma dica ai, de como colocar um botãozinho.. ou ícone, semelhante ao Maximizar, minimizar.. na barra de título?? Obrigado! Thiago -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.446 / Virus Database: 268.18.8/714 - Release Date: 8/3/2007 10:58 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] SimpleDataSet - ajuda
Pessoal, alguém sabe se existe um componente, SimpleDS (SimpleDataSet) para o Delphi6 ??? poderiam indicar um local? Obrigado. Thiago
Re: RES: [delphi-br] SimpleDataSet - ajuda
Bruno, eu tenho intensão de usar arquivos Xml.. no caso, o SqlDataSet me possibilita isso? Abraço!! Thiago Bruno Lichot escreveu: O simple dataset foi descontinuado.. Vc tem q usar o sqldataset no lugar dele.. Tem uma apostila de desenvolvimento de aplicaçõeas passo a passo com dbexpress q aborda o uso de sqldataset. E so entrara no meu link de downloads(abaixo da minha assinatura) e baixar gratuitamente. Atenciosamente, Bruno Lichot CodeGegar Team Brazil http://www.codegear.com http://cc.codegear.com/Author/795118 De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Thiago Filiano (America Soft) Enviada em: terça-feira, 6 de março de 2007 13:49 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] SimpleDataSet - ajuda Pessoal, alguém sabe se existe um componente, SimpleDS (SimpleDataSet) para o Delphi6 ??? poderiam indicar um local? Obrigado. Thiago __ Informação do NOD32 IMON 2097 (20070305) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] máximo de 4 caracteres
clique no seu Edit e va no object Inspector, lá tem uma opção MaxLength, coloque 4 []'s Thiago Cleiton escreveu: Oi pessoal... Como faço pra impedir que seja digitado mais de 4 caracteres em um campo do tipo TEdit?
Re: [delphi-br] TFrame dinamico
usar o destroy não é uma boa prática, procure utilizar FreeAndNil(Frame) []'s Thiago Humberto escreveu: tente utilizar o frame.Destroy - Original Message - From: Ezequiel To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Friday, February 23, 2007 2:53 PM Subject: [delphi-br] TFrame dinamico Ola pessoal! Criei um TFrame e agora estou tentando instanciá-lo dinamicamente. Tudo corre bem, mas quando preciso liberá-lo da memória dá a seguinte mensagem: Access violation at address 0 Meu código: //criação do frame frame := TFrameExemplo.Create(self); frame.Name := 'frameExemplo1'; frame.Parent := Form1; frame.Show; //liberação do frame frame.Free; Quando chamo o .Free me dá o erro de Access violation! Alguém já trabalhou com frames dinâmicos e poderia me dar uma luz?? []'s Ezequiel -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.441 / Virus Database: 268.18.3/698 - Release Date: 23/2/2007 04:39 [As partes desta mensagem que não continham texto foram removidas] __
Re: [delphi-br] DLL's necessárias para apli cação utilizando dbExpress.
declara as dll's na uses MidasLib, e as outras dll's do dbexpress utilizadas. Desta forma não se faz necessário enviar as dll's, pois as mesmas já vão compiladas... []'s Thiago Filiano 11-8288-4402 msn: [EMAIL PROTECTED] Humberto escreveu: Creio q talves, seja necessário registrar as Dlls no windows. Provavelmente o instalador já deva fazer isso para vc. Tente utilizar o regsvr32 do windows para registrar a Dll, ele se localiza no diretório: Windows/System32 - Original Message - From: criamabr To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Thursday, February 22, 2007 10:21 AM Subject: [delphi-br] DLL's necessárias para aplicação utilizando dbExpress. Olá pessoal! Desenvolvi uma aplicação utilizando dbExpress e formulários em MDI. As DLL's necessárias para rodar a mesma são: DBEXPINT.DLL, MIDAS.DLL e QTINTF.DLL, copidas no mesmo diretório do executável, certo? Se eu instalar as mesmas através do InstallShield, funciona tudo beleza mas se forem copiadas sem o InstallShield, ou seja, no Copiar e Colar, dá um erro dizendo que não conseguiu carregar o arquivo MIDAS.DLL. Complicado, não é? Através do inatalador funciona beleza, mas se eu pegar minha pastinha com as mesmas e copiar na máquina desejada, não funciona. Alguém pode me dá uma ajudinha? Desde já, obrigado. Abraço, Cristiano. -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.441 / Virus Database: 268.18.3/694 - Release Date: 20/2/2007 13:44 [As partes desta mensagem que não continham texto foram removidas] _
Re: [delphi-br] DLL's necessárias para apli cação utilizando dbExpress.
declare Dbexpint se estiver usando BDS 2006. aqui funciona! []'s Thiago Logos escreveu: ja tentei fazer isso com as dll do dbexpress.. e nao funciona... o midas e beleza. - Original Message - From: Thiago Filiano (America Soft) To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Thursday, February 22, 2007 12:45 PM Subject: Re: [delphi-br] DLL's necessárias para aplicação utilizando dbExpress. declara as dll's na uses MidasLib, e as outras dll's do dbexpress utilizadas. Desta forma não se faz necessário enviar as dll's, pois as mesmas já vão compiladas... []'s Thiago Filiano 11-8288-4402 msn: [EMAIL PROTECTED] mailto:thiago22filiano%40hotmail.com Humberto escreveu: Creio q talves, seja necessário registrar as Dlls no windows. Provavelmente o instalador já deva fazer isso para vc. Tente utilizar o regsvr32 do windows para registrar a Dll, ele se localiza no diretório: Windows/System32 - Original Message - From: criamabr To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Thursday, February 22, 2007 10:21 AM Subject: [delphi-br] DLL's necessárias para aplicação utilizando dbExpress. Olá pessoal! Desenvolvi uma aplicação utilizando dbExpress e formulários em MDI. As DLL's necessárias para rodar a mesma são: DBEXPINT.DLL, MIDAS.DLL e QTINTF.DLL, copidas no mesmo diretório do executável, certo? Se eu instalar as mesmas através do InstallShield, funciona tudo beleza mas se forem copiadas sem o InstallShield, ou seja, no Copiar e Colar, dá um erro dizendo que não conseguiu carregar o arquivo MIDAS.DLL. Complicado, não é? Através do inatalador funciona beleza, mas se eu pegar minha pastinha com as mesmas e copiar na máquina desejada, não funciona. Alguém pode me dá uma ajudinha? Desde já, obrigado. Abraço, Cristiano.
Re: [delphi-br] Re: [lista-delphi ] Como saber se a Classe está ou nã o registrada? - RESOLVIDO + CONTRIBUICAO
Valeu João Funcionou direitinho!!!
pessoal segue o código que estou utilizando para chamar forms, sem
declarar sua unit na uses do meu form principal.
function AbreForm(AForm: String; ADono: TComponent; AEstilo:
TBorderStyle = bsSingle;
AShow: Boolean = True): Boolean;
var
Pc: TPersistentClass;
nome: TForm;
i: Integer;
begin
Pc := GetClass('t' + AForm);
if (Pc nil) then
begin
nome := nil;
i := 0;
while I Screen.FormCount do
begin
if Screen.Forms[I] is Pc then
Nome := Screen.Forms[I];
Inc(I);
end;
if nome = nil then
TFormClass(Pc).Create(ADono).Show
else
nome.Show;
end;
end;
antes do end. da unit do form a ser chamar deve conter as seguintes
linhas:
initialization
RegisterClass(TMeuForm)
finalization
UnRegisterClass(TMeuForm)
end.
Abraços!
Thiago Filiano
11-8288-4402
msn: [EMAIL PROTECTED]
Joao Morais escreveu:
Adriano Santos wrote:
Ai galera, o Thiago trabalha comigo aqui.
O que precisamos é o seguinte:
Nesta função abaixo nós criamos o form passando para a função o nome
dele, porém precisamos saber se o mesmo já foi criado e então apenas
dar
um Show no mesmo. Não estamos conseguindo montar corretamente a função.
Teria que ser mais ou menos isso:
function AbreForm(AForm: String; AEstilo: TBorderStyle = bsSingle;
AShow: Boolean = True): Boolean;
var
Pc: TPersistentClass;
nome: TForm;
begin
Pc := GetClass('t' + AForm);
if (Pc nil) then
{aqui teria que ter uma verificação}
if not Form_Já_Criado_E_Registrado then
Nome := nil;
I := 0
while I Screen.FormCount do
begin
if Screen.Forms[I] is Pc then
Nome := Screen.Forms[I];
Inc(I);
end;
begin
with TFormClass(Pc).Create(frmPrincipal) do
try
Show;
finally
Free;
end;
Show seguido de Free irá destruir o form logo depois de apresentá-lo.
Use ShowModal ou destrua o form só quando ele for fechado (Action :=
caFree).
end
else
Show;
end;
--
João Morais
Mensagem original
De: Thiago Filiano (America Soft) [EMAIL PROTECTED]
mailto:thiago%40americasoft.com.br
Para: delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
Assunto: [lista-delphi] Como saber se a Classe está ou não registrada?
Data: 14-02-2007 13:44
Pessoal,
Bom dia!!
Tenho a seguinte função para chamar os forms:
function AbreForm(AForm: String; AEstilo: TBorderStyle = bsSingle;
AShow: Boolean = True): Boolean;
var
Pc: TPersistentClass;
nome: TForm;
begin
Pc := GetClass('t' + AForm);
if (Pc nil) then
with TFormClass(Pc)
.Create(frmPrincipal) do
try
Show;
Update;
finally
Free;
end;
end;
[delphi-br] Verificar o nome das classes registradas
Pessoal,
Bom dia!!
Tenho a seguinte função para chamar os forms:
function AbreForm(AForm: String; AEstilo: TBorderStyle = bsSingle;
AShow: Boolean = True): Boolean;
var
Pc: TPersistentClass;
nome: TForm;
begin
Pc := GetClass('t' + AForm);
if (Pc nil) then
with TFormClass(Pc).Create(frmPrincipal) do
try
Show;
Update;
finally
Free;
end;
end;
---
Tenho essa função para nao ser necessario declarar a unit na uses do meu
frmPrincipal,
sendo assim, eu tbm coloco em todos os meus forms
initialization
RegisterClass(MeuForm);
meu problema é que preciso verificar se esse form ja foi criado, pq se
ele ja estiver criado, quero somente dar um Show nele.
Do jeito que minha função está, ele cria uma nova instancia do form.
Alguém tem alguma sugestão de como melhorar essa função?
e me ajudar?
Abraços!
Thiago Filiano
11-8288-4402
msn: [EMAIL PROTECTED]
skype: alegrethi
[delphi-br] Como saber se a Classe está ou não regi strada?
Pessoal,
Bom dia!!
Tenho a seguinte função para chamar os forms:
function AbreForm(AForm: String; AEstilo: TBorderStyle = bsSingle;
AShow: Boolean = True): Boolean;
var
Pc: TPersistentClass;
nome: TForm;
begin
Pc := GetClass('t' + AForm);
if (Pc nil) then
with TFormClass(Pc)
.Create(frmPrincipal) do
try
Show;
Update;
finally
Free;
end;
end;
Re: [delphi-br] Pegar o MAC do micro - duvidas
então Luiz, tenho sim.. e eh aqui q esta o problema.. minha rotina esta pegando o MAC certinho, mas acontece que tem cliente que esta dizendo que o cabo está desconectado.. mas mesmo assim está identificando o MAC dele. a rotina foi feita para identificar o MAC somente com placa de rede ativa. não sei o que esta ocorrendo :( []'s Thiago Luiz Escobar escreveu: Bom vc tem alguma rotina para ler direto do dispositivo ? pq acho q as q tenho são usando API´s Creio que isso seria de grande ajuda para todos. obrigado. 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: Andre Veloso de Mesquita To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Friday, February 09, 2007 8:25 PM Subject: Re: [delphi-br] Pegar o MAC do micro - duvidas Nota: No Windows é possível trocar o MAC. O MAC não será trocado na placa de rede, mas sim na camada lógica do Windows. Logo, quando vc ler o MAC, tente lê-lo no dispositivo e não usando uma API qq do Windows. [ ]'s - Original Message - From: Luiz Escobar [EMAIL PROTECTED] mailto:escobar%40megasistema.com.br To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Friday, February 09, 2007 5:22 PM Subject: Re: [delphi-br] Pegar o MAC do micro - duvidas BLZ Thiago.. Bom o modem não tem MAC-address, pode até ter um código de indentificação, mas não sei como pegar isso MAC-address é um número de série gravador na sua placa de rede, cada uma tem o seu (acontece de repetir, mas é raro, então esqueca isso por enquanto, mas saiba que acontece!).. SIM, tendo ou não o cabo conectado vc vai ter sempre o mesmo número MAC. exemplo de MAC : 00:0A:E6:40:1B:49 ou 000A:E640:1B49 ou 000AE6401B49 é um valor de 48 bit´s. então a cada 281.474.976.710.655 vai se repetir rsrsrsrs não é bem assim não, mas deixa isso pra lá heheheheh O que pode mudar é o número de IP.. exemplo de IP´s internos, intranet: subistitua o X por um valor entre 1 e 254 192.168.0.x 10.x.x.x 169.x.x.x exemplo de IP´s externos, internet: subistitua o X por um valor entre 1 e 254 64.x.x.x 200.x.x.x 201.x.x.x etc... Quando ao XP, ele vai te dar sempre um número de IP, mas nem sempre vai ser o mesmo, primeiro ele vai procurar o DHCP na rede, se não achar ele vai pedir ao DHCP interno dele e vai receber um número 169.x.x.x, no 98 acho que vem zerado.mas ja faz tempo nao lembro... 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: Thiago Filiano (America Soft) To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Friday, February 09, 2007 3:54 PM Subject: [delphi-br] Pegar o MAC do micro - duvidas Pessoal, estou com duvidas.. Alguém já tem essas respostas?? estou passando por um problema, que ta dificil de resolver, tenho um palpite, mas não consegui um definição certa. ai vai minhas duvidas: usando WINXP: qdo pego o serial MAC pelo Delphi quando estou com um cabo de rede ligado em meu pc mas com conexao desativada, recebo o numero de MAC? ou vem zerado ()?? quando estou com o cabo ligado e a rede ligada sei que vem a identificação 021AD122 (exemplo); quando tiro o cabo, que valores recebo? zerado, ou o numero MAC? usando WIN98 quando estou com um cabo de rede ligado em meu pc mas com conexao desativada, recebo o numero de MAC? ou vem zerado ()?? quando estou com o cabo ligado e a rede ligada sei que vem a identificação 021AD122 (exemplo); quando tiro o cabo, que valores recebo? zerado, ou o numero MAC? se eu tiver modem, e não placa de Rede... recebo algum valor para MAC?? com cabo desconectado mesmo assim recebo endereço de MAC?? alguém possui esses levantamentos?? muito grato! Thiago Filiano [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Pegar o MAC do micro - duvidas
não estou com essa rotina aqui.. mas amanhã se conseguir coloco aqui sim! Luiz Escobar escreveu: se quizer mandar ela pra gente dar uma olhada acho q fica mais facil... 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: Thiago Filiano (America Soft) To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Monday, February 12, 2007 3:16 PM Subject: Re: [delphi-br] Pegar o MAC do micro - duvidas então Luiz, tenho sim.. e eh aqui q esta o problema.. minha rotina esta pegando o MAC certinho, mas acontece que tem cliente que esta dizendo que o cabo está desconectado.. mas mesmo assim está identificando o MAC dele. a rotina foi feita para identificar o MAC somente com placa de rede ativa. não sei o que esta ocorrendo :( []'s Thiago Luiz Escobar escreveu: Bom vc tem alguma rotina para ler direto do dispositivo ? pq acho q as q tenho são usando API´s Creio que isso seria de grande ajuda para todos. obrigado. 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 http://www.megasistema.com.br http://www.megasistema.com.br - Original Message - From: Andre Veloso de Mesquita To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Friday, February 09, 2007 8:25 PM Subject: Re: [delphi-br] Pegar o MAC do micro - duvidas Nota: No Windows é possível trocar o MAC. O MAC não será trocado na placa de rede, mas sim na camada lógica do Windows. Logo, quando vc ler o MAC, tente lê-lo no dispositivo e não usando uma API qq do Windows. [ ]'s - Original Message - From: Luiz Escobar [EMAIL PROTECTED] mailto:escobar%40megasistema.com.br mailto:escobar%40megasistema.com.br To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Friday, February 09, 2007 5:22 PM Subject: Re: [delphi-br] Pegar o MAC do micro - duvidas BLZ Thiago.. Bom o modem não tem MAC-address, pode até ter um código de indentificação, mas não sei como pegar isso MAC-address é um número de série gravador na sua placa de rede, cada uma tem o seu (acontece de repetir, mas é raro, então esqueca isso por enquanto, mas saiba que acontece!).. SIM, tendo ou não o cabo conectado vc vai ter sempre o mesmo número MAC. exemplo de MAC : 00:0A:E6:40:1B:49 ou 000A:E640:1B49 ou 000AE6401B49 é um valor de 48 bit´s. então a cada 281.474.976.710.655 vai se repetir rsrsrsrs não é bem assim não, mas deixa isso pra lá heheheheh O que pode mudar é o número de IP.. exemplo de IP´s internos, intranet: subistitua o X por um valor entre 1 e 254 192.168.0.x 10.x.x.x 169.x.x.x exemplo de IP´s externos, internet: subistitua o X por um valor entre 1 e 254 64.x.x.x 200.x.x.x 201.x.x.x etc... Quando ao XP, ele vai te dar sempre um número de IP, mas nem sempre vai ser o mesmo, primeiro ele vai procurar o DHCP na rede, se não achar ele vai pedir ao DHCP interno dele e vai receber um número 169.x.x.x, no 98 acho que vem zerado.mas ja faz tempo nao lembro... 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 http://www.megasistema.com.br http://www.megasistema.com.br - Original Message - From: Thiago Filiano (America Soft) To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Friday, February 09, 2007 3:54 PM Subject: [delphi-br] Pegar o MAC do micro - duvidas Pessoal, estou com duvidas.. Alguém já tem essas respostas?? estou passando por um problema, que ta dificil de resolver, tenho um palpite, mas não consegui um definição certa. ai vai minhas duvidas: usando WINXP: qdo pego o serial MAC pelo Delphi quando estou com um cabo de rede ligado em meu pc mas com conexao desativada, recebo o numero de MAC? ou vem zerado ()?? quando estou com o cabo ligado e a rede ligada sei que vem a identificação 021AD122 (exemplo); quando tiro o cabo, que valores recebo? zerado, ou o numero MAC? usando WIN98 quando estou com um cabo
[delphi-br] Pegar o MAC do micro - duvidas
Pessoal, estou com duvidas.. Alguém já tem essas respostas?? estou passando por um problema, que ta dificil de resolver, tenho um palpite, mas não consegui um definição certa. ai vai minhas duvidas: usando WINXP: qdo pego o serial MAC pelo Delphi quando estou com um cabo de rede ligado em meu pc mas com conexao desativada, recebo o numero de MAC? ou vem zerado ()?? quando estou com o cabo ligado e a rede ligada sei que vem a identificação 021AD122 (exemplo); quando tiro o cabo, que valores recebo? zerado, ou o numero MAC? usando WIN98 quando estou com um cabo de rede ligado em meu pc mas com conexao desativada, recebo o numero de MAC? ou vem zerado ()?? quando estou com o cabo ligado e a rede ligada sei que vem a identificação 021AD122 (exemplo); quando tiro o cabo, que valores recebo? zerado, ou o numero MAC? se eu tiver modem, e não placa de Rede... recebo algum valor para MAC?? com cabo desconectado mesmo assim recebo endereço de MAC?? alguém possui esses levantamentos?? muito grato! Thiago Filiano
Re: [delphi-br] Re: [Meio OFF] - Regras de Negócio
Obrigado Walter, clare-ou bastante!! []'s Thiago
[delphi-br] Rede no slackware..
Boa tarde a todos. Tenho um pc com o Slackware 10.2 instalado. Quero fazer um rede com esse pc sendo o servidor. Ligarei mais 12 máquinas nesse pc. tenho ja as placas de rede e o switch. estou tendo dificuldades para configurar as placas e distribuir a rede. podem me ajudar? sds. Thiago Filiano Rosa 55-11-8101-3774 - Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
