Re: [delphi-br] Gerador de Relatorios..
Eu uso o FreeReport excelente..t+ JESUS TE AMA !!! * MarcioCC® - Analista/Programador - Delphi,PHP,ASP *
Res: [delphi-br] Capturar LPT1
Faça um SellExec de NET USE LPT1 \\COMPUTADOR\IMPRESSORA
Luciano Calenzani Simões
- Mensagem original
De: Alison Zen [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 29 de Abril de 2008 21:01:08
Assunto: [delphi-br] Capturar LPT1
Boa noite a todos.
Estou precisando em uma aplicação, capturar a porta de impressão LPT1
mesmo ela não sendo a porta de impressão padrão.
Alguem teria como me ajudar nesse tópico, pois procurei alguns
exemplos na internet, e nada me ajudou.
Abraços a todos.
--
Alison G. Zen
Programador Plano
Elotech Gestão Pública
[EMAIL PROTECTED] com
!--
#ygrp-mkp{
border:1px solid #d8d8d8;font-family:Arial;margin:14px 0px;padding:0px 14px;}
#ygrp-mkp hr{
border:1px solid #d8d8d8;}
#ygrp-mkp #hd{
color:#628c2a;font-size:85%;font-weight:bold;line-height:122%;margin:10px 0px;}
#ygrp-mkp #ads{
margin-bottom:10px;}
#ygrp-mkp .ad{
padding:0 0;}
#ygrp-mkp .ad a{
color:#ff;text-decoration:none;}
--
!--
#ygrp-sponsor #ygrp-lc{
font-family:Arial;}
#ygrp-sponsor #ygrp-lc #hd{
margin:10px 0px;font-weight:bold;font-size:78%;line-height:122%;}
#ygrp-sponsor #ygrp-lc .ad{
margin-bottom:10px;padding:0 0;}
--
!--
#ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean,
sans-serif;}
#ygrp-mlmsg table {font-size:inherit;font:100%;}
#ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean,
sans-serif;}
#ygrp-mlmsg pre, code {font:115% monospace;}
#ygrp-mlmsg * {line-height:1.22em;}
#ygrp-text{
font-family:Georgia;
}
#ygrp-text p{
margin:0 0 1em 0;}
#ygrp-tpmsgs{
font-family:Arial;
clear:both;}
#ygrp-vitnav{
padding-top:10px;font-family:Verdana;font-size:77%;margin:0;}
#ygrp-vitnav a{
padding:0 1px;}
#ygrp-actbar{
clear:both;margin:25px 0;white-space:nowrap;color:#666;text-align:right;}
#ygrp-actbar .left{
float:left;white-space:nowrap;}
.bld{font-weight:bold;}
#ygrp-grft{
font-family:Verdana;font-size:77%;padding:15px 0;}
#ygrp-ft{
font-family:verdana;font-size:77%;border-top:1px solid #666;
padding:5px 0;
}
#ygrp-mlmsg #logo{
padding-bottom:10px;}
#ygrp-reco {
margin-bottom:20px;padding:0px;}
#ygrp-reco #reco-head {
font-weight:bold;color:#ff7900;}
#reco-grpname{
font-weight:bold;margin-top:10px;}
#reco-category{
font-size:77%;}
#reco-desc{
font-size:77%;}
#ygrp-vital{
background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;}
#ygrp-vital #vithd{
font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text-transform:uppercase;}
#ygrp-vital ul{
padding:0;margin:2px 0;}
#ygrp-vital ul li{
list-style-type:none;clear:both;border:1px solid #e0ecee;
}
#ygrp-vital ul li .ct{
font-weight:bold;color:#ff7900;float:right;width:2em;text-align:right;padding-right:.5em;}
#ygrp-vital ul li .cat{
font-weight:bold;}
#ygrp-vital a{
text-decoration:none;}
#ygrp-vital a:hover{
text-decoration:underline;}
#ygrp-sponsor #hd{
color:#999;font-size:77%;}
#ygrp-sponsor #ov{
padding:6px 13px;background-color:#e0ecee;margin-bottom:20px;}
#ygrp-sponsor #ov ul{
padding:0 0 0 8px;margin:0;}
#ygrp-sponsor #ov li{
list-style-type:square;padding:6px 0;font-size:77%;}
#ygrp-sponsor #ov li a{
text-decoration:none;font-size:130%;}
#ygrp-sponsor #nc{
background-color:#eee;margin-bottom:20px;padding:0 8px;}
#ygrp-sponsor .ad{
padding:8px 0;}
#ygrp-sponsor .ad #hd1{
font-family:Arial;font-weight:bold;color:#628c2a;font-size:100%;line-height:122%;}
#ygrp-sponsor .ad a{
text-decoration:none;}
#ygrp-sponsor .ad a:hover{
text-decoration:underline;}
#ygrp-sponsor .ad p{
margin:0;}
o{font-size:0;}
.MsoNormal{
margin:0 0 0 0;}
#ygrp-text tt{
font-size:120%;}
blockquote{margin:0 0 0 4px;}
.replbq{margin:4;}
--
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
http://br.mail.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Ler ABAS EM UM TABELA EXCELL
Pessoal, tenho uma planilha excell com diversas ABAS, alguém teria uma função ou procedure em delphi ou conhecimento para eu poder ir lendo ABA por ABA desta planilha para jogar algumas informações para um banco de dados? Tenho que abrir a planilha e acessar cada ABA desta planilha. fico grato pelas futuras ajudas desde já Hilderaldo Barbosa
Re: [delphi-br] Ler ABAS EM UM TABELA EXCELL
Vc pode usar a paleta ADO do delphi vc pode até dar comandos sql's no arquivo... Wesley From: hideraldo_barbosa Sent: Wednesday, April 30, 2008 8:14 AM To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Ler ABAS EM UM TABELA EXCELL Pessoal, tenho uma planilha excell com diversas ABAS, alguém teria uma função ou procedure em delphi ou conhecimento para eu poder ir lendo ABA por ABA desta planilha para jogar algumas informações para um banco de dados? Tenho que abrir a planilha e acessar cada ABA desta planilha. fico grato pelas futuras ajudas desde já Hilderaldo Barbosa __ Informação do NOD32 IMON 3065 (20080430) __ 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] Gerador de Relatorios..
Obrigado João! Já me deu o que fazer no feriado... Atte, Ricardo. Joao Morais [EMAIL PROTECTED] escreveu: Ricardo César Cardoso wrote: Sabe que isso me deu uma grande idéia, João? Pq o ReportManager tem um designer próprio... O chato é ter que baixar o FR só pra xeretar esse demo... http://fast-report.com/en/download/free-report-download.html 850kb Vale cada kb baixado. seria pedir muito se vc pudesse postar só esse trecho aqui ou mandar em PVT? private FReport: TfrReport; ... procedure TPressFRReport.InternalDesignReport; begin FReport.DesignReport; end; e então ele abre o design. depois: procedure TPressFRReport.InternalExecuteReport; begin FReport.ShowReport; end; aqui ele mostra o relatório que você desenhou. __ - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ler ABAS EM UM TABELA EXCELL
Aqui tem um bom compêndio de técnicas de trabalho com o Excel funcionando como uma fonte de dados. [ http://delphi.about.com/od/database/l/aa090903a.htm ] Atte, Ricardo. hideraldo_barbosa [EMAIL PROTECTED] escreveu: Pessoal, tenho uma planilha excell com diversas ABAS, alguém teria uma função ou procedure em delphi ou conhecimento para eu poder ir lendo ABA por ABA desta planilha para jogar algumas informações para um banco de dados? Tenho que abrir a planilha e acessar cada ABA desta planilha. fico grato pelas futuras ajudas desde já Hilderaldo Barbosa - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Solução Seria eliminar Filtro????
Bom dia! Peguei um sistema ja pronto com o seguinte problema, o programador anterior implementou os modulos de contas a receber e pagar utilizando uma tela de entrada onde o usuário escolhe se quer visualizar contas baixadas, em aberto, por periodo, por valor por cliente todos os tipos de possibilidades possíveis para o usuário visualizar o lançamento da maneira que ele desejar. Mas a questão é que isso foi implemetado utilizando-se de filtro (BD PARADOX)depois de ecolher o lançameto que ele quer visualizar o mesmo clica em visualizar e o sistema implementa o filtro necessário àquela pesquisa e abre o formulario principal. São duas tabelas, uma receber onde constam os lançamentos e outra Ireceber onde o usuário formaliza a baixa sendo que esta ireceber é uma DETAIL da receber. O que ocorre é que a uns tempos atras o sistema TODO ao abrir, estava implementado para abrir todas as tabelas deste cerca de 300 tabelas abertas ao mesmo tempo (em uma rede de 10 maquinas com um servidor dedicado ao BD) o que começou a me causar problemas de falta de memória na maioria dos computadores (Todos minimo celeron 1.1 com 512 rede 10/100 com swith). Durante este tempo em que todas as tab. eram abertas ao mesmo tempo os modulos receber e pagar deste sistema por incrivel que pareça funcionavam muito bem. Quando digo muito bem quero dizer que quando o usuário baixava um determinado lançamento esta baixa era quase instantanea. Mas eu tive que resolver o problema de falata de memoria. E fiz da seguinte forma simplesmente acabei com as funçoes que abriam todas as tabelas ao entrar no sistema e agora só abro as mesmas quando necessito (on Demanda) ou seja quando estou com o modulo receber aberto só estou com as tabelas necessárias àquele modulo aberta, quando antes estavam todas as tab. do sistema abertas. O sistema todo ficou muito mais leve, o problema de falta de memoria foi resolvido. Mas para o meu espanto tanto o modulo de receber (só baixa) quanto pagar (só baixa) ficaram extremamente lentos cerca de 5m para realizarem uma baixa. Intervi novamente da seguinte forma verifiquei nas duas tabelas do sistema receber quais eventos eram estartados desde o momentos em que as tabelas são abertas até o momento em que elas são fechadas ( o formulario de receber é composto por dois grids um para mostrar os dados da tab receberr e outro para a tab. ireceber.) fiz o seguinte removi todos os eventos (on insert, on after insert, onedit, Before post, after post) ao inves de fazer as baixas direto dentro da grid da tab ireceber, inseri campos edit, dateedit, enfim todoas os campos da grid ireceber eu inseri campos identicos logo abaixo da grid e passei a mesma para read only ou seja a baixa que era feita na grid agora é feita em componetes tEdit e os eventos que eram estartados na tab ireceber eu inseri em um botão, nomeado de efetuar baixa, que contem todos os processos de verificação utilizados nos eventos citados acima da tab. Ireceber. O sistema melhorou muito quando efetuei a primeira baixa depois de implemetado isso tudo. Porem esta ocorrendo o seguinte se faço mais que cinco baixas direto sem fechar o sistema ele volta a ficar lento como antes. (Normalmento processamos a cada entrada neste modulos cerca de 20 a 25 baixas. Qual seria a solução definitiva e viavel para essa situação. (A lentidão se da na hora do sistema baixar o lançamento e dar o feedback para o usuario na grid ou seja dar o refresh na tab receber e remover aquele registo do filtro utilizado na consulta.) Conto com a ajuda de voces. Grande Abraço a todos. Sandro Cardoso [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Tem como chamar um Form por uma var string, sem usar o RegisterClass?
Olá amigos, vi na net uma função que pode ser usada pra chamar um Form, tendo o nome dele numa variavel string. Porém ele usa o RegisterClass, existe alguma maneira de fazer isso sem usar o RegisterClass? Ou ainda, como eu uso um FrmBasico, e todos são herdados dele, tem como criar o RegisterClass genérico para todos os forms, de forma que eu não tenha que ir um a um, coloando o RegisterClass? Desde já agradeço []s -- _ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] Cansou do MercadoLivre como eu? Tente o www.uaileilão.com.br. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: Ler ABAS EM UM TABELA EXCELL
ok, obrigado pela dica vc chegou a usar este material? eu baixei, implementei com minha planilha, porém ele não tras as ABAS. consegue fazer a conexão, porém não tras as ABAS. sabe de algo que possa me ajudar nesta? mais uma vez obrigado pela disposição --- Em delphi-br@yahoogrupos.com.br, Ricardo César Cardoso [EMAIL PROTECTED] escreveu Aqui tem um bom compêndio de técnicas de trabalho com o Excel funcionando como uma fonte de dados. [ http://delphi.about.com/od/database/l/aa090903a.htm ] Atte, Ricardo. hideraldo_barbosa [EMAIL PROTECTED] escreveu: Pessoal, tenho uma planilha excell com diversas ABAS, alguém teria uma função ou procedure em delphi ou conhecimento para eu poder ir lendo ABA por ABA desta planilha para jogar algumas informações para um banco de dados? Tenho que abrir a planilha e acessar cada ABA desta planilha. fico grato pelas futuras ajudas desde já Hilderaldo Barbosa - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: Ler ABAS EM UM TABELA EXCELL
ok, obrigado pela dica vc chegou a usar este material? eu baixei, implementei com minha planilha, porém ele não tras as ABAS. consegue fazer a conexão, porém não tras as ABAS. sabe de algo que possa me ajudar nesta? mais uma vez obrigado pela disposição --- Em delphi-br@yahoogrupos.com.br, Ricardo César Cardoso [EMAIL PROTECTED] escreveu Aqui tem um bom compêndio de técnicas de trabalho com o Excel funcionando como uma fonte de dados. [ http://delphi.about.com/od/database/l/aa090903a.htm ] Atte, Ricardo. hideraldo_barbosa [EMAIL PROTECTED] escreveu: Pessoal, tenho uma planilha excell com diversas ABAS, alguém teria uma função ou procedure em delphi ou conhecimento para eu poder ir lendo ABA por ABA desta planilha para jogar algumas informações para um banco de dados? Tenho que abrir a planilha e acessar cada ABA desta planilha. fico grato pelas futuras ajudas desde já Hilderaldo Barbosa - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] DbGrid não atualiza após inserção
Pessoal, Estou com um problema mei macabro. Em algumas máquinas o DbGrid não insere uma nova linha após a inclusão de um novo registro. Se fechar a tela e abrir o dataset novamente, o DbGrid é atualizado(Mostra todas as linhas). Na máquina onde programo o erro não acontece. Alguém sabe o que está acontecendo? __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
[delphi-br] ERRO NO FINAL
pessoal, minha aplicação está apresentando uma mensagem de erro quando eu fecho e além disso fica ocupando memoria mesmo depois de fechada, no gerenciador de dispositivo um monte de exe da aplicação. aguém pode me ajudar.
[delphi-br] Impedir mais de 1 execução do programa
Pessoal, criei uma rotina para impedir que o programa seja executado mais de uma vez. Ao abrir o programa pela segunda vez deveria piscar o programa na barra de tarefas e trazer a tela pra frente, mas como abre 2 programas na barra de tarefas, é executado a rotina com o que foi aberto por último. Preciso que execute a rotina para o que foi aberto primeiro. Uso o código abaixo: CreateMutex(nil, TRUE, 'NOMEDOPROGRAMA'); if GetLastError = ERROR_ALREADY_EXISTS then begin Beep(100, 100); H := FindWindow(nil, 'NOMEDOPROGRAMA'); ShowWindow(H, SW_RESTORE);//mostra a janela SetForegroundWindow(H);//traz pra frente FlashWindow(H, True); //Pisca o programa na barra de tarefas MessageBox(0, 'O programa já está aberto!', 'Sivap', mb_OK + mb_IconWarning); Application.Terminate; end; ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/
Re: [delphi-br] Booleano ClientDataSet MySql DBExpress Delphi 2007
Já tentou assim? Menu.Enabled := Campo.Value = 0 ou Menu.Enabled := Campo.Value = 1 __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Impedir mais de 1 execução do prog rama
Eu utilizo o seguinte codigo no view do projeto...
ele verifica se está aberto, caso não esteja ele libera para abrir...
CreateSemaphore(nil, 1, 1, 'NomedoProjeto');
If GetLastError = Error_Already_Exists then
begin
hdlAplicacao := FindWindow('TFrm_Menu','Frm_Menu');
if not isWindowVisible(hdlAplicacao) then
Application.MessageBox('Aplicativo já em execução
!','Aviso',mb_IconWarning + mb_ok);
Espero que te ajude.
Ricardo Mendes
Departamento de Informática
Tel. (41) 2109-7736
E-mail: [EMAIL PROTECTED]
Site: www.totalsat.com.br
- Original Message -
From: Alisson
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, April 30, 2008 10:52 AM
Subject: [delphi-br] Impedir mais de 1 execução do programa
Pessoal, criei uma rotina para impedir que o programa seja executado mais
de uma vez. Ao abrir o programa pela segunda vez deveria piscar o programa
na barra de tarefas e trazer a tela pra frente, mas como abre 2 programas na
barra de tarefas, é executado a rotina com o que foi aberto por último.
Preciso que execute a rotina para o que foi aberto primeiro. Uso o código
abaixo:
CreateMutex(nil, TRUE, 'NOMEDOPROGRAMA');
if GetLastError = ERROR_ALREADY_EXISTS then
begin
Beep(100, 100);
H := FindWindow(nil, 'NOMEDOPROGRAMA');
ShowWindow(H, SW_RESTORE);//mostra a janela
SetForegroundWindow(H);//traz pra frente
FlashWindow(H, True); //Pisca o programa na barra de tarefas
MessageBox(0, 'O programa já está aberto!', 'Sivap', mb_OK +
mb_IconWarning);
Application.Terminate;
end;
___
Yahoo! Mail - Sempre a melhor opção para você!
Experimente já e veja as novidades.
http://br.yahoo.com/mailbeta/tudonovo/
[As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] ERRO NO FINAL
Qual o erro?
Luciano Calenzani Simões
- Mensagem original
De: Eduardo Oliveira silva [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 30 de Abril de 2008 10:52:30
Assunto: [delphi-br] ERRO NO FINAL
pessoal, minha aplicação está apresentando uma mensagem de erro
quando
eu fecho e além disso
fica ocupando memoria mesmo depois de fechada, no gerenciador de dispositivo
um monte de exe da aplicação.
aguém pode me ajudar.
!--
#ygrp-mkp{
border:1px solid #d8d8d8;font-family:Arial;margin:14px 0px;padding:0px 14px;}
#ygrp-mkp hr{
border:1px solid #d8d8d8;}
#ygrp-mkp #hd{
color:#628c2a;font-size:85%;font-weight:bold;line-height:122%;margin:10px 0px;}
#ygrp-mkp #ads{
margin-bottom:10px;}
#ygrp-mkp .ad{
padding:0 0;}
#ygrp-mkp .ad a{
color:#ff;text-decoration:none;}
--
!--
#ygrp-sponsor #ygrp-lc{
font-family:Arial;}
#ygrp-sponsor #ygrp-lc #hd{
margin:10px 0px;font-weight:bold;font-size:78%;line-height:122%;}
#ygrp-sponsor #ygrp-lc .ad{
margin-bottom:10px;padding:0 0;}
--
!--
#ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean,
sans-serif;}
#ygrp-mlmsg table {font-size:inherit;font:100%;}
#ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean,
sans-serif;}
#ygrp-mlmsg pre, code {font:115% monospace;}
#ygrp-mlmsg * {line-height:1.22em;}
#ygrp-text{
font-family:Georgia;
}
#ygrp-text p{
margin:0 0 1em 0;}
#ygrp-tpmsgs{
font-family:Arial;
clear:both;}
#ygrp-vitnav{
padding-top:10px;font-family:Verdana;font-size:77%;margin:0;}
#ygrp-vitnav a{
padding:0 1px;}
#ygrp-actbar{
clear:both;margin:25px 0;white-space:nowrap;color:#666;text-align:right;}
#ygrp-actbar .left{
float:left;white-space:nowrap;}
.bld{font-weight:bold;}
#ygrp-grft{
font-family:Verdana;font-size:77%;padding:15px 0;}
#ygrp-ft{
font-family:verdana;font-size:77%;border-top:1px solid #666;
padding:5px 0;
}
#ygrp-mlmsg #logo{
padding-bottom:10px;}
#ygrp-reco {
margin-bottom:20px;padding:0px;}
#ygrp-reco #reco-head {
font-weight:bold;color:#ff7900;}
#reco-grpname{
font-weight:bold;margin-top:10px;}
#reco-category{
font-size:77%;}
#reco-desc{
font-size:77%;}
#ygrp-vital{
background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;}
#ygrp-vital #vithd{
font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text-transform:uppercase;}
#ygrp-vital ul{
padding:0;margin:2px 0;}
#ygrp-vital ul li{
list-style-type:none;clear:both;border:1px solid #e0ecee;
}
#ygrp-vital ul li .ct{
font-weight:bold;color:#ff7900;float:right;width:2em;text-align:right;padding-right:.5em;}
#ygrp-vital ul li .cat{
font-weight:bold;}
#ygrp-vital a{
text-decoration:none;}
#ygrp-vital a:hover{
text-decoration:underline;}
#ygrp-sponsor #hd{
color:#999;font-size:77%;}
#ygrp-sponsor #ov{
padding:6px 13px;background-color:#e0ecee;margin-bottom:20px;}
#ygrp-sponsor #ov ul{
padding:0 0 0 8px;margin:0;}
#ygrp-sponsor #ov li{
list-style-type:square;padding:6px 0;font-size:77%;}
#ygrp-sponsor #ov li a{
text-decoration:none;font-size:130%;}
#ygrp-sponsor #nc{
background-color:#eee;margin-bottom:20px;padding:0 8px;}
#ygrp-sponsor .ad{
padding:8px 0;}
#ygrp-sponsor .ad #hd1{
font-family:Arial;font-weight:bold;color:#628c2a;font-size:100%;line-height:122%;}
#ygrp-sponsor .ad a{
text-decoration:none;}
#ygrp-sponsor .ad a:hover{
text-decoration:underline;}
#ygrp-sponsor .ad p{
margin:0;}
o{font-size:0;}
.MsoNormal{
margin:0 0 0 0;}
#ygrp-text tt{
font-size:120%;}
blockquote{margin:0 0 0 4px;}
.replbq{margin:4;}
--
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
http://br.mail.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Impedir mais de 1 execução do p rograma
Uma forma simples de fazer isso é alterar o projeto.dpr
Na linha onde faz o start:
Application.Initialize;
Application.Title := 'Sistema';
Application.CreateForm(TfrmPrincipal, frmPrincipal);
Application.Run;
coloca um teste:
if (FindWindow('TApplication', 'NomeSisetma') = 0) then
begin
Application.Initialize;
Application.Title := 'Sistema';
Application.CreateForm(TfrmPrincipal, frmPrincipal);
Application.Run;
end if;
Luciano Calenzani Simões
- Mensagem original
De: Alisson [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 30 de Abril de 2008 10:52:31
Assunto: [delphi-br] Impedir mais de 1 execução do programa
Pessoal, criei uma rotina para impedir que o programa seja
executado mais
de uma vez. Ao abrir o programa pela segunda vez deveria piscar o programa
na barra de tarefas e trazer a tela pra frente, mas como abre 2 programas na
barra de tarefas, é executado a rotina com o que foi aberto por último.
Preciso que execute a rotina para o que foi aberto primeiro. Uso o código
abaixo:
CreateMutex( nil, TRUE, 'NOMEDOPROGRAMA' );
if GetLastError = ERROR_ALREADY_ EXISTS then
begin
Beep(100, 100);
H := FindWindow(nil, 'NOMEDOPROGRAMA' );
ShowWindow(H, SW_RESTORE); //mostra a janela
SetForegroundWindow (H);//traz pra frente
FlashWindow( H, True); //Pisca o programa na barra de tarefas
MessageBox(0, 'O programa já está aberto!', 'Sivap', mb_OK +
mb_IconWarning) ;
Application. Terminate;
end;
_ _ _ _ ___
Yahoo! Mail - Sempre a melhor opção para você!
Experimente já e veja as novidades.
http://br.yahoo. com/mailbeta/ tudonovo/
!--
#ygrp-mkp{
border:1px solid #d8d8d8;font-family:Arial;margin:14px 0px;padding:0px 14px;}
#ygrp-mkp hr{
border:1px solid #d8d8d8;}
#ygrp-mkp #hd{
color:#628c2a;font-size:85%;font-weight:bold;line-height:122%;margin:10px 0px;}
#ygrp-mkp #ads{
margin-bottom:10px;}
#ygrp-mkp .ad{
padding:0 0;}
#ygrp-mkp .ad a{
color:#ff;text-decoration:none;}
--
!--
#ygrp-sponsor #ygrp-lc{
font-family:Arial;}
#ygrp-sponsor #ygrp-lc #hd{
margin:10px 0px;font-weight:bold;font-size:78%;line-height:122%;}
#ygrp-sponsor #ygrp-lc .ad{
margin-bottom:10px;padding:0 0;}
--
!--
#ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean,
sans-serif;}
#ygrp-mlmsg table {font-size:inherit;font:100%;}
#ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean,
sans-serif;}
#ygrp-mlmsg pre, code {font:115% monospace;}
#ygrp-mlmsg * {line-height:1.22em;}
#ygrp-text{
font-family:Georgia;
}
#ygrp-text p{
margin:0 0 1em 0;}
#ygrp-tpmsgs{
font-family:Arial;
clear:both;}
#ygrp-vitnav{
padding-top:10px;font-family:Verdana;font-size:77%;margin:0;}
#ygrp-vitnav a{
padding:0 1px;}
#ygrp-actbar{
clear:both;margin:25px 0;white-space:nowrap;color:#666;text-align:right;}
#ygrp-actbar .left{
float:left;white-space:nowrap;}
.bld{font-weight:bold;}
#ygrp-grft{
font-family:Verdana;font-size:77%;padding:15px 0;}
#ygrp-ft{
font-family:verdana;font-size:77%;border-top:1px solid #666;
padding:5px 0;
}
#ygrp-mlmsg #logo{
padding-bottom:10px;}
#ygrp-reco {
margin-bottom:20px;padding:0px;}
#ygrp-reco #reco-head {
font-weight:bold;color:#ff7900;}
#reco-grpname{
font-weight:bold;margin-top:10px;}
#reco-category{
font-size:77%;}
#reco-desc{
font-size:77%;}
#ygrp-vital{
background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;}
#ygrp-vital #vithd{
font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text-transform:uppercase;}
#ygrp-vital ul{
padding:0;margin:2px 0;}
#ygrp-vital ul li{
list-style-type:none;clear:both;border:1px solid #e0ecee;
}
#ygrp-vital ul li .ct{
font-weight:bold;color:#ff7900;float:right;width:2em;text-align:right;padding-right:.5em;}
#ygrp-vital ul li .cat{
font-weight:bold;}
#ygrp-vital a{
text-decoration:none;}
#ygrp-vital a:hover{
text-decoration:underline;}
#ygrp-sponsor #hd{
color:#999;font-size:77%;}
#ygrp-sponsor #ov{
padding:6px 13px;background-color:#e0ecee;margin-bottom:20px;}
#ygrp-sponsor #ov ul{
padding:0 0 0 8px;margin:0;}
#ygrp-sponsor #ov li{
list-style-type:square;padding:6px 0;font-size:77%;}
#ygrp-sponsor #ov li a{
text-decoration:none;font-size:130%;}
#ygrp-sponsor #nc{
background-color:#eee;margin-bottom:20px;padding:0 8px;}
#ygrp-sponsor .ad{
padding:8px 0;}
#ygrp-sponsor .ad #hd1{
font-family:Arial;font-weight:bold;color:#628c2a;font-size:100%;line-height:122%;}
#ygrp-sponsor .ad a{
text-decoration:none;}
#ygrp-sponsor .ad a:hover{
text-decoration:underline;}
#ygrp-sponsor .ad p{
margin:0;}
o{font-size:0;}
.MsoNormal{
margin:0 0 0 0;}
#ygrp-text tt{
font-size:120%;}
blockquote{margin:0 0 0 4px;}
.replbq{margin:4;}
--
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
http://br.mail.yahoo.com/
[As partes desta mensagem que não continham
Re: [delphi-br] Re: Ler ABAS EM UM TABELA EXCELL
Usei sim e inclusive fiz o que vc precisa. Mas prefiro te ensinar a pescar. Uma boa pista de como fazer está neste link ( se vc reparou este artigo é a primeira de sete partes sobre o assunto ) [ http://delphi.about.com/od/database/l/aa090903c.htm ] Agora é só adaptar ( se necessário ) às suas necessidades. Atte, Ricardo. hideraldo_barbosa [EMAIL PROTECTED] escreveu: ok, obrigado pela dica vc chegou a usar este material? eu baixei, implementei com minha planilha, porém ele não tras as ABAS. consegue fazer a conexão, porém não tras as ABAS. sabe de algo que possa me ajudar nesta? mais uma vez obrigado pela disposição --- Em delphi-br@yahoogrupos.com.br, Ricardo César Cardoso [EMAIL PROTECTED] escreveu Aqui tem um bom compêndio de técnicas de trabalho com o Excel funcionando como uma fonte de dados. [ http://delphi.about.com/od/database/l/aa090903a.htm ] Atte, Ricardo. hideraldo_barbosa [EMAIL PROTECTED] escreveu: Pessoal, tenho uma planilha excell com diversas ABAS, alguém teria uma função ou procedure em delphi ou conhecimento para eu poder ir lendo ABA por ABA desta planilha para jogar algumas informações para um banco de dados? Tenho que abrir a planilha e acessar cada ABA desta planilha. fico grato pelas futuras ajudas desde já Hilderaldo Barbosa - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas] - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Tem como chamar um Form por uma var string, sem usar o RegisterClass?
Vc pode criar um mecanismo de registro usando uma instancia de TStringList, usando o método AddObject deste pra registrar nessa instância tanto o nome da classe como a classe propriamente dita. Mas, na minha opinião, é trocar seis por meia dúzia, pq o RegisterClass faz a mesma coisa internamente. Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Wed, 30 Apr 2008 10:33:49 -0300 Subject: [delphi-br] Tem como chamar um Form por uma var string, sem usar o RegisterClass? Olá amigos, vi na net uma função que pode ser usada pra chamar um Form, tendo o nome dele numa variavel string. Porém ele usa o RegisterClass, existe alguma maneira de fazer isso sem usar o RegisterClass? Ou ainda, como eu uso um FrmBasico, e todos são herdados dele, tem como criar o RegisterClass genérico para todos os forms, de forma que eu não tenha que ir um a um, coloando o RegisterClass? Desde já agradeço []s -- _ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] Cansou do MercadoLivre como eu? Tente o www.uaileilão.com.br. [As partes desta mensagem que não continham texto foram removidas] _ Receba GRÁTIS as mensagens do Messenger no seu celular quando você estiver offline. Conheça o MSN Mobile! http://mobile.live.com/signup/signup2.aspx?lc=pt-br
[delphi-br] Re: Ler ABAS EM UM TABELA EXCELL
valeu, seguinte, eu estava tentando usar e ja tinha lido todos 7 itens do compendio lá. Porém eu tava no delphi 6 ele não trazia pra mim as abas, dai passei para o delphi 7 funcionou normal. valeu pela dica --- Em delphi-br@yahoogrupos.com.br, Ricardo César Cardoso [EMAIL PROTECTED] escreveu Usei sim e inclusive fiz o que vc precisa. Mas prefiro te ensinar a pescar. Uma boa pista de como fazer está neste link ( se vc reparou este artigo é a primeira de sete partes sobre o assunto ) [ http://delphi.about.com/od/database/l/aa090903c.htm ] Agora é só adaptar ( se necessário ) às suas necessidades. Atte, Ricardo. hideraldo_barbosa [EMAIL PROTECTED] escreveu: ok, obrigado pela dica vc chegou a usar este material? eu baixei, implementei com minha planilha, porém ele não tras as ABAS. consegue fazer a conexão, porém não tras as ABAS. sabe de algo que possa me ajudar nesta? mais uma vez obrigado pela disposição --- Em delphi-br@yahoogrupos.com.br, Ricardo César Cardoso ricardo_engsoft@ escreveu Aqui tem um bom compêndio de técnicas de trabalho com o Excel funcionando como uma fonte de dados. [ http://delphi.about.com/od/database/l/aa090903a.htm ] Atte, Ricardo. hideraldo_barbosa hideraldo_barbosa@ escreveu: Pessoal, tenho uma planilha excell com diversas ABAS, alguém teria uma função ou procedure em delphi ou conhecimento para eu poder ir lendo ABA por ABA desta planilha para jogar algumas informações para um banco de dados? Tenho que abrir a planilha e acessar cada ABA desta planilha. fico grato pelas futuras ajudas desde já Hilderaldo Barbosa - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas] - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] DbGrid não atualiza após inserção
vc usa os métodos DisableControls e EnableControls do DataSet? Se usa, verifique se o EnableControls não foi acionado por algum motivo. No mais, sua pergunta está extremamente básica, não dá nem pra chutar o que pode ser. Tente detalhar mais por favor. 2008/4/30 Alisson [EMAIL PROTECTED]: Pessoal, Estou com um problema mei macabro. Em algumas máquinas o DbGrid não insere uma nova linha após a inclusão de um novo registro. Se fechar a tela e abrir o dataset novamente, o DbGrid é atualizado(Mostra todas as linhas). Na máquina onde programo o erro não acontece. Alguém sabe o que está acontecendo? __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/ -- Abs Daniel A. Bastos [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Desenvolvimento em Equipe
Pessoal, estive pesquisando sobre o assunto e gostaria da opnião de vocês Seguinte, nós desenvolvemos em grupo utilizando SVN, e como as atualizações e mudanças no software são muito rápidas, o suporte e a documentação não conseguem acompanhar, o que acaba gerando transtornos, antes era assim e agora é assado, a documentação fica errada... Precisamos começar a documentar tudo que foi adicionado/alterado no software, estava pensando em documentar via TXT mesmo, alguém mais tem o mesmo problema, estou afim de trocar idéias... Obrigado. Vinicius dos Santos Analista de Desenvolvimento Júnior MSI SOLUÇÕES Av. Dr. Altino Arantes, 131 Sala 145 - 146 Centro - Ourinhos/Sp - Brasil Fone/Fax: +55 (14) 3324-8181 www.msisolucoes.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Desenvolvimento em Equipe
Tentei usar o PASDoc mas acabei desistindo... Acho que é uma opção. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Solução Seria eliminar Filtro????
BDE... Argh! Qual a chance de trocar por um SGDB de verdade? Sugestão rápida: Firebird. Aí, vc teria muito mais recursos e eficiência no trato aos dados. 2008/4/30 Sandro [EMAIL PROTECTED]: Bom dia! Peguei um sistema ja pronto com o seguinte problema, o programador anterior implementou os modulos de contas a receber e pagar utilizando uma tela de entrada onde o usuário escolhe se quer visualizar contas baixadas, em aberto, por periodo, por valor por cliente todos os tipos de possibilidades possíveis para o usuário visualizar o lançamento da maneira que ele desejar. Mas a questão é que isso foi implemetado utilizando-se de filtro (BD PARADOX)depois de ecolher o lançameto que ele quer visualizar o mesmo clica em visualizar e o sistema implementa o filtro necessário àquela pesquisa e abre o formulario principal. São duas tabelas, uma receber onde constam os lançamentos e outra Ireceber onde o usuário formaliza a baixa sendo que esta ireceber é uma DETAIL da receber. O que ocorre é que a uns tempos atras o sistema TODO ao abrir, estava implementado para abrir todas as tabelas deste cerca de 300 tabelas abertas ao mesmo tempo (em uma rede de 10 maquinas com um servidor dedicado ao BD) o que começou a me causar problemas de falta de memória na maioria dos computadores (Todos minimo celeron 1.1 com 512 rede 10/100 com swith). Durante este tempo em que todas as tab. eram abertas ao mesmo tempo os modulos receber e pagar deste sistema por incrivel que pareça funcionavam muito bem. Quando digo muito bem quero dizer que quando o usuário baixava um determinado lançamento esta baixa era quase instantanea. Mas eu tive que resolver o problema de falata de memoria. E fiz da seguinte forma simplesmente acabei com as funçoes que abriam todas as tabelas ao entrar no sistema e agora só abro as mesmas quando necessito (on Demanda) ou seja quando estou com o modulo receber aberto só estou com as tabelas necessárias àquele modulo aberta, quando antes estavam todas as tab. do sistema abertas. O sistema todo ficou muito mais leve, o problema de falta de memoria foi resolvido. Mas para o meu espanto tanto o modulo de receber (só baixa) quanto pagar (só baixa) ficaram extremamente lentos cerca de 5m para realizarem uma baixa. Intervi novamente da seguinte forma verifiquei nas duas tabelas do sistema receber quais eventos eram estartados desde o momentos em que as tabelas são abertas até o momento em que elas são fechadas ( o formulario de receber é composto por dois grids um para mostrar os dados da tab receberr e outro para a tab. ireceber.) fiz o seguinte removi todos os eventos (on insert, on after insert, onedit, Before post, after post) ao inves de fazer as baixas direto dentro da grid da tab ireceber, inseri campos edit, dateedit, enfim todoas os campos da grid ireceber eu inseri campos identicos logo abaixo da grid e passei a mesma para read only ou seja a baixa que era feita na grid agora é feita em componetes tEdit e os eventos que eram estartados na tab ireceber eu inseri em um botão, nomeado de efetuar baixa, que contem todos os processos de verificação utilizados nos eventos citados acima da tab. Ireceber. O sistema melhorou muito quando efetuei a primeira baixa depois de implemetado isso tudo. Porem esta ocorrendo o seguinte se faço mais que cinco baixas direto sem fechar o sistema ele volta a ficar lento como antes. (Normalmento processamos a cada entrada neste modulos cerca de 20 a 25 baixas. Qual seria a solução definitiva e viavel para essa situação. (A lentidão se da na hora do sistema baixar o lançamento e dar o feedback para o usuario na grid ou seja dar o refresh na tab receber e remover aquele registo do filtro utilizado na consulta.) -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
[delphi-br] Sublinhado do botao roubando foco do DBGrid
Alo a todos! delphi 7, observei tanto no windows 2000 quanto no xp Tenho num form um dbgrid e um bitbtn No bitbtn tem uma action. na Caption da Action tem Executar ou seja, o E fica sublinhado no botao. Que eu sabia, só com Alt+E este botao seria executado. Porém, com o foco no dbgrid, quando estou digitando, se calhar de eu pressionar a letra E ele executa o botao!!! pensei até q o teclado tivesse com alt preso, mas em qualquer computador que tentei tá acontecendo isto conferi se eu tava com alguma programaçao em algum keypress, keyup, keydown e nao tenho nada programado sei q a propriedade KeyPreview do form nao tem a ver com isto, mas fiz um teste. mudá-la nao ajudou dai eu fiz um teste: na action eu coloquei: if dbgrid1.focused then exit; o problema é q o dbgrid nao recebe a teclada. o E nao aparece! a propriedade shortcut da action tá em branco fiz uma solução porca no momento: tirei o da caption da action! dai funciona normal, o E aparece na dbgrid alguem já observou isto? como driblar este problema? após 18 anos nestas empresa vital eu nunca havia notado isto!!!
Re: [delphi-br] Tem como chamar um Form por uma var string, sem usar o RegisterClass?
Olá Rubem, acho que entendi o que quis dizer, o porém, é que tenho mais de 300 forms, e sempre alguém esquece de por o danado do RegisterClass.. minha ideia era o seguinte - se for possível - todos os forms são herdados do FrmBasico... eu colocaria no FrmBasico o RegisterClass, mas teria que registrar o form descedente e nao o FrmBasico, entendeu? Como eu poderia fazer isso, se é que é possível. Obrigado, Fellipe H. 2008/4/30 Rubem Nascimento da Rocha [EMAIL PROTECTED]: Vc pode criar um mecanismo de registro usando uma instancia de TStringList, usando o método AddObject deste pra registrar nessa instância tanto o nome da classe como a classe propriamente dita. Mas, na minha opinião, é trocar seis por meia dúzia, pq o RegisterClass faz a mesma coisa internamente. Sds. To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br From: [EMAIL PROTECTED] fellipeh%40gmail.com Date: Wed, 30 Apr 2008 10:33:49 -0300 Subject: [delphi-br] Tem como chamar um Form por uma var string, sem usar o RegisterClass? Olá amigos, vi na net uma função que pode ser usada pra chamar um Form, tendo o nome dele numa variavel string. Porém ele usa o RegisterClass, existe alguma maneira de fazer isso sem usar o RegisterClass? Ou ainda, como eu uso um FrmBasico, e todos são herdados dele, tem como criar o RegisterClass genérico para todos os forms, de forma que eu não tenha que ir um a um, coloando o RegisterClass? Desde já agradeço []s -- _ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] fellipeh%40gmail.com Cansou do MercadoLivre como eu? Tente o www.uaileilão.com.brhttp://www.uaileil%C3%A3o.com.br . [As partes desta mensagem que não continham texto foram removidas] __ Receba GRÁTIS as mensagens do Messenger no seu celular quando você estiver offline. Conheça o MSN Mobile! http://mobile.live.com/signup/signup2.aspx?lc=pt-br -- _ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] Cansou do MercadoLivre como eu? Tente o www.uaileilão.com.br. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] DbGrid não atualiza após inser ção
Desculpe, nao gosto de responder assim, mais poderia passar o banco de dados que está usando e quais os componentes de acesso.. se for um AdoTable ou Adoquery por exempoo tente query1.refresh; ou se for uma máquina muito antigo tente. dbgrid1.refresh ou form1.refresh; pode ser que nao esteja desenhando a tela pra vc.. qual a configuraçao da maquina em que o erro ocorre ? Alcione Guimarães (11)9515-8707 - Original Message - From: Alisson To: delphi-br@yahoogrupos.com.br Sent: Wednesday, April 30, 2008 10:46 AM Subject: [delphi-br] DbGrid não atualiza após inserção Pessoal, Estou com um problema mei macabro. Em algumas máquinas o DbGrid não insere uma nova linha após a inclusão de um novo registro. Se fechar a tela e abrir o dataset novamente, o DbGrid é atualizado(Mostra todas as linhas). Na máquina onde programo o erro não acontece. Alguém sabe o que está acontecendo? __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Erro ao enviar e-mail com anexo usando indy
Boa tarde Senhores,
depois de tanto penar pra tentar achar uma solução estou aqui escrevendo
pra vocês pra ver se alguém pode me ajudar.
Estou tentando enviar arquivos anexados no e-mail e está ocorrendo o seguinte.
Se eu enviar um e-mail com o arquivo x.txt em anexo para [EMAIL PROTECTED] tudo
certo, se eu enviar o arquivo y.txt para [EMAIL PROTECTED] sem fechar o
programa, ele automaticamente anexa os arquivos enviados anteriormente, ou
seja, envia o x.txt + y.txt,e isso não pode acontecer, abaixo segue o código
que estou usando, se alguém puder me ajudar por favor.
var Controle : integer;
SqlAnterior,emailremetente,usernameremetente,servidoremails,usernameautenticacao,senhaautenticacao,comcopia,
linha1,linha2,linha3,linha4,linha5,linha6,linha7,linha8,linha9,linha10 :
String;
xAnexo : Integer;
ConfIni : TInifile;
begin
// limpa o memo da mensagem que vai no corpo do e-mail
MemoMensagem.Clear;
// limpa o listbox contendo o ou os arquivos que estarão anexos ao e-mail
ListBox1.Clear;
If DataM.IBqAssistenciasENVIADO.AsString = 'Sim' then begin
If Application.MessageBox('Deseja enviar novamente este pedido?.','Soft
System Pergunta ',292)= 6 then begin
SqlAnterior := DatAM.IBqAssistencias.SQL.Text;
FFortesReport := TFFortesReport.Create(Application);
Try
Controle := DatAM.IBqAssistenciasCONTROLE.AsInteger;
DataM.IBqAssistencias.Close;
DatAM.IBqAssistencias.SQL.Clear;
DataM.IBqAssistencias.SQL.Add('Select * from tassistencias where
controle = '+IntToStr(Controle));
DatAM.IBqAssistencias.Open;
//
{ DataM.IbqItensAssistencias.Close;
DataM.IbqItensAssistencias.SQL.Clear;
DatAM.IbqItensAssistencias.SQL.Add('Select * from
titensassistencias where codassistencia = '+IntToStr(Controle));
DataM.IbqItensAssistencias.Open;}
//
FFortesReport.RLImage7.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'Logotipo.bmp');
FFortesReport.RLEnvioPedido.SaveToFile(ExtractFilePath(Application.ExeName)+'rel\Solicitacao'+DataM.IBqAssistenciasCONTROLE.AsString+'.pdf');
//
ListBox1.Items.Add(ExtractFilePath(Application.ExeName)+'rel\Solicitacao'+DataM.IBqAssistenciasCONTROLE.AsString+'.pdf');
ListBox1.Refresh;
//
ConfIni :=
TIniFile.Create((ExtractFilePath(Application.ExeName)+'ConfigSoft.ini'));
emailremetente := confIni.ReadString('Assistencias','E-mail do
remetente',emailremetente);
usernameremetente := confIni.ReadString('Assistencias','User name
do remetente',usernameremetente);
servidoremails := confIni.ReadString('Assistencias','Servidor de
e-mails de saída',servidoremails);
usernameautenticacao := confIni.ReadString('Assistencias','User
name para autenticação',usernameautenticacao);
senhaautenticacao := confIni.ReadString('Assistencias','Senha para
autenticação',senhaautenticacao);
comcopia := confIni.ReadString('Assistencias','Enviar com cópia
para',comcopia);
Linha1 := confIni.ReadString('Assistencias','Mensagem
linha1',Linha1);
Linha2 := confIni.ReadString('Assistencias','Mensagem
linha2',Linha2);
Linha3 := confIni.ReadString('Assistencias','Mensagem
linha3',Linha3);
Linha4 := confIni.ReadString('Assistencias','Mensagem
linha4',Linha4);
Linha5 := confIni.ReadString('Assistencias','Mensagem
linha5',Linha5);
Linha6 := confIni.ReadString('Assistencias','Mensagem
linha6',Linha6);
Linha7 := confIni.ReadString('Assistencias','Mensagem
linha7',Linha7);
Linha8 := confIni.ReadString('Assistencias','Mensagem
linha8',Linha8);
Linha9 := confIni.ReadString('Assistencias','Mensagem
linha9',Linha9);
Linha10 := confIni.ReadString('Assistencias','Mensagem
linha10',Linha10);
ConfIni.Free;
//
MemoMensagem.Lines.Append(linha1);
MemoMensagem.Lines.Append(linha2);
MemoMensagem.Lines.Append(linha3);
MemoMensagem.Lines.Append(linha4);
MemoMensagem.Lines.Append(linha5);
MemoMensagem.Lines.Append(linha6);
MemoMensagem.Lines.Append(linha7);
MemoMensagem.Lines.Append(linha8);
MemoMensagem.Lines.Append(linha9);
MemoMensagem.Lines.Append(linha10);
//
IdMessage.Recipients.EMailAddresses :=
LowerCase(DatAM.IBqAssistenciasEMAILFORNECEDOR.AsString);
IdMessage.CCList.EMailAddresses := LowerCase(comcopia);
//IdMessage.BccList.EMailAddresses := edtCCO.Text;
//Trata a Prioridade da mensagem
//case cbxPrioridade.ItemIndex of
IdMessage.Priority := mpHigh;
// 1 : IdMessage.Priority := mpNormal;
// 2 : IdMessage.Priority := mpLow;
//
[delphi-br] Gerador de Relatorios
Obrigado a todos que me deram varias dicas. Fiquei mais interessado e instalei o FastReport. Só que estou quebrando um pouco a cabeça... alguns recursos eu ainda não descobri. Alguem poderia me informar onde eu consigo alguma literatura sobre FastReport?? (livro, apostila.. etc) Obrigado.
[delphi-br] Active X - Como gerar o .OCX?
Eu tenho o editor.ocx e o editor_tlb.pas alguem sabe como gerar o ocx novamente após ter alterado algumas propriedades ? [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Solução Seria eliminar Filtr o????
Sandro, te pergunto, é com Tabelas ou SQL? Roberto - Original Message - From: Sandro To: delphi-br Sent: Wednesday, April 30, 2008 9:42 AM Subject: [delphi-br] Solução Seria eliminar Filtro Bom dia! Peguei um sistema ja pronto com o seguinte problema, o programador anterior implementou os modulos de contas a receber e pagar utilizando uma tela de entrada onde o usuário escolhe se quer visualizar contas baixadas, em aberto, por periodo, por valor por cliente todos os tipos de possibilidades possíveis para o usuário visualizar o lançamento da maneira que ele desejar. Mas a questão é que isso foi implemetado utilizando-se de filtro (BD PARADOX)depois de ecolher o lançameto que ele quer visualizar o mesmo clica em visualizar e o sistema implementa o filtro necessário àquela pesquisa e abre o formulario principal. São duas tabelas, uma receber onde constam os lançamentos e outra Ireceber onde o usuário formaliza a baixa sendo que esta ireceber é uma DETAIL da receber. O que ocorre é que a uns tempos atras o sistema TODO ao abrir, estava implementado para abrir todas as tabelas deste cerca de 300 tabelas abertas ao mesmo tempo (em uma rede de 10 maquinas com um servidor dedicado ao BD) o que começou a me causar problemas de falta de memória na maioria dos computadores (Todos minimo celeron 1.1 com 512 rede 10/100 com swith). Durante este tempo em que todas as tab. eram abertas ao mesmo tempo os modulos receber e pagar deste sistema por incrivel que pareça funcionavam muito bem. Quando digo muito bem quero dizer que quando o usuário baixava um determinado lançamento esta baixa era quase instantanea. Mas eu tive que resolver o problema de falata de memoria. E fiz da seguinte forma simplesmente acabei com as funçoes que abriam todas as tabelas ao entrar no sistema e agora só abro as mesmas quando necessito (on Demanda) ou seja quando estou com o modulo receber aberto só estou com as tabelas necessárias àquele modulo aberta, quando antes estavam todas as tab. do sistema abertas. O sistema todo ficou muito mais leve, o problema de falta de memoria foi resolvido. Mas para o meu espanto tanto o modulo de receber (só baixa) quanto pagar (só baixa) ficaram extremamente lentos cerca de 5m para realizarem uma baixa. Intervi novamente da seguinte forma verifiquei nas duas tabelas do sistema receber quais eventos eram estartados desde o momentos em que as tabelas são abertas até o momento em que elas são fechadas ( o formulario de receber é composto por dois grids um para mostrar os dados da tab receberr e outro para a tab. ireceber.) fiz o seguinte removi todos os eventos (on insert, on after insert, onedit, Before post, after post) ao inves de fazer as baixas direto dentro da grid da tab ireceber, inseri campos edit, dateedit, enfim todoas os campos da grid ireceber eu inseri campos identicos logo abaixo da grid e passei a mesma para read only ou seja a baixa que era feita na grid agora é feita em componetes tEdit e os eventos que eram estartados na tab ireceber eu inseri em um botão, nomeado de efetuar baixa, que contem todos os processos de verificação utilizados nos eventos citados acima da tab. Ireceber. O sistema melhorou muito quando efetuei a primeira baixa depois de implemetado isso tudo. Porem esta ocorrendo o seguinte se faço mais que cinco baixas direto sem fechar o sistema ele volta a ficar lento como antes. (Normalmento processamos a cada entrada neste modulos cerca de 20 a 25 baixas. Qual seria a solução definitiva e viavel para essa situação. (A lentidão se da na hora do sistema baixar o lançamento e dar o feedback para o usuario na grid ou seja dar o refresh na tab receber e remover aquele registo do filtro utilizado na consulta.) Conto com a ajuda de voces. Grande Abraço a todos. Sandro Cardoso [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG. Version: 7.5.524 / Virus Database: 269.23.6/1407 - Release Date: 4/30/ 11:35 [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Active X - Como gerar o .OCX?
Não é assim q a banda toca, companheiro. O arquivo editor_tlb.pas tem apenas as interfaces disponibilizadas pelo OCX. Pra vc gerar um novo .OCX, vc teria que ter o código .PAS que implementa essa interface do editor_tlb. Ou seja, sem chance! Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Wed, 30 Apr 2008 17:08:23 -0300 Subject: [delphi-br] Active X - Como gerar o .OCX? Eu tenho o editor.ocx e o editor_tlb.pas alguem sabe como gerar o ocx novamente após ter alterado algumas propriedades ? [As partes desta mensagem que não continham texto foram removidas] _ Confira vídeos com notícias do NY Times, gols direto do Lance, videocassetadas e muito mais no MSN Video! http://video.msn.com/?mkt=pt-br
Re: [delphi-br] Gerador de Relatorios
No próprio site tem toda a documentação, veja em http://fast-report.com/en/download/fast-report-4-download.html no final da página. veja também os demos que fast instala em seu computador, são de grande valia. 2008/4/30 Vinicius da Silva Pinto [EMAIL PROTECTED]: Obrigado a todos que me deram varias dicas. Fiquei mais interessado e instalei o FastReport. Só que estou quebrando um pouco a cabeça... alguns recursos eu ainda não descobri. Alguem poderia me informar onde eu consigo alguma literatura sobre FastReport?? (livro, apostila.. etc) Obrigado. -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ ... [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] ERRO NO FINAL
o sistema fica em funcionamento, consumindo memoria mesmo
depois de fechado
2008/4/30, Luciano Calenzani Simões [EMAIL PROTECTED]:
Qual o erro?
Luciano Calenzani Simões
- Mensagem original
De: Eduardo Oliveira silva [EMAIL PROTECTED] eduosilva%40gmail.com
Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
Enviadas: Quarta-feira, 30 de Abril de 2008 10:52:30
Assunto: [delphi-br] ERRO NO FINAL
pessoal, minha aplicação está apresentando uma mensagem de erro quando
eu fecho e além disso
fica ocupando memoria mesmo depois de fechada, no gerenciador de
dispositivo
um monte de exe da aplicação.
aguém pode me ajudar.
!--
#ygrp-mkp{
border:1px solid #d8d8d8;font-family:Arial;margin:14px 0px;padding:0px
14px;}
#ygrp-mkp hr{
border:1px solid #d8d8d8;}
#ygrp-mkp #hd{
color:#628c2a;font-size:85%;font-weight:bold;line-height:122%;margin:10px
0px;}
#ygrp-mkp #ads{
margin-bottom:10px;}
#ygrp-mkp .ad{
padding:0 0;}
#ygrp-mkp .ad a{
color:#ff;text-decoration:none;}
--
!--
#ygrp-sponsor #ygrp-lc{
font-family:Arial;}
#ygrp-sponsor #ygrp-lc #hd{
margin:10px 0px;font-weight:bold;font-size:78%;line-height:122%;}
#ygrp-sponsor #ygrp-lc .ad{
margin-bottom:10px;padding:0 0;}
--
!--
#ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean,
sans-serif;}
#ygrp-mlmsg table {font-size:inherit;font:100%;}
#ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean,
sans-serif;}
#ygrp-mlmsg pre, code {font:115% monospace;}
#ygrp-mlmsg * {line-height:1.22em;}
#ygrp-text{
font-family:Georgia;
}
#ygrp-text p{
margin:0 0 1em 0;}
#ygrp-tpmsgs{
font-family:Arial;
clear:both;}
#ygrp-vitnav{
padding-top:10px;font-family:Verdana;font-size:77%;margin:0;}
#ygrp-vitnav a{
padding:0 1px;}
#ygrp-actbar{
clear:both;margin:25px 0;white-space:nowrap;color:#666;text-align:right;}
#ygrp-actbar .left{
float:left;white-space:nowrap;}
.bld{font-weight:bold;}
#ygrp-grft{
font-family:Verdana;font-size:77%;padding:15px 0;}
#ygrp-ft{
font-family:verdana;font-size:77%;border-top:1px solid #666;
padding:5px 0;
}
#ygrp-mlmsg #logo{
padding-bottom:10px;}
#ygrp-reco {
margin-bottom:20px;padding:0px;}
#ygrp-reco #reco-head {
font-weight:bold;color:#ff7900;}
#reco-grpname{
font-weight:bold;margin-top:10px;}
#reco-category{
font-size:77%;}
#reco-desc{
font-size:77%;}
#ygrp-vital{
background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;}
#ygrp-vital #vithd{
font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text-transform:uppercase;}
#ygrp-vital ul{
padding:0;margin:2px 0;}
#ygrp-vital ul li{
list-style-type:none;clear:both;border:1px solid #e0ecee;
}
#ygrp-vital ul li .ct{
font-weight:bold;color:#ff7900;float:right;width:2em;text-align:right;padding-right:.5em;}
#ygrp-vital ul li .cat{
font-weight:bold;}
#ygrp-vital a{
text-decoration:none;}
#ygrp-vital a:hover{
text-decoration:underline;}
#ygrp-sponsor #hd{
color:#999;font-size:77%;}
#ygrp-sponsor #ov{
padding:6px 13px;background-color:#e0ecee;margin-bottom:20px;}
#ygrp-sponsor #ov ul{
padding:0 0 0 8px;margin:0;}
#ygrp-sponsor #ov li{
list-style-type:square;padding:6px 0;font-size:77%;}
#ygrp-sponsor #ov li a{
text-decoration:none;font-size:130%;}
#ygrp-sponsor #nc{
background-color:#eee;margin-bottom:20px;padding:0 8px;}
#ygrp-sponsor .ad{
padding:8px 0;}
#ygrp-sponsor .ad #hd1{
font-family:Arial;font-weight:bold;color:#628c2a;font-size:100%;line-height:122%;}
#ygrp-sponsor .ad a{
text-decoration:none;}
#ygrp-sponsor .ad a:hover{
text-decoration:underline;}
#ygrp-sponsor .ad p{
margin:0;}
o{font-size:0;}
.MsoNormal{
margin:0 0 0 0;}
#ygrp-text tt{
font-size:120%;}
blockquote{margin:0 0 0 4px;}
.replbq{margin:4;}
--
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
http://br.mail.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
