Re: [delphi-br] Capturar exceção gerada por uma th read
é amigo so assim q funciona ...
procedure TST.Execute;
var i,cod :integer;
LOG : textfile;
slog,txt: string;
begin
{ Place thread code here }
while not terminated do
begin
while not serv.cdslognet.Eof do
begin
try ...
[codigo da thread]
except
on E: Exception do
begin
try
AssignFile(log, 'c:\concursonet.log');
if not FileExists('c:\concursonet.log') then
Rewrite(log,'c:\concursonet.log');
Append(log);
WriteLn(log, e.Message +' - '+ datetimetostr(now));
finally
CloseFile(log);
end;
end;
- Original Message -
From: José Mário Silva Guedes
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, February 20, 2008 6:20 PM
Subject: Re: [delphi-br] Capturar exceção gerada por uma thread
OK.
Eu entendo da seguinte forma: A thread é um processo separado... Logo, se
der um exception no Execute da Thread, o exception acaba não chegando para
você do jeito que você fez... Pois a thread é um processo filho com vida
própria.
Sendo assim, sugiro que no Execute da Thread você coloque um try...except e
trate o erro lá mesmo.
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] MySQL (conexão)
Bom dia pessoal! Seguinte... a dúvida q tenho já me aconteceu antes e eu não sei o pq! Fiquei mais ou menos 1 semana sem usar o MySQL e minhas aplicações e hoje qdo eu abri o Delphi e fui me conectar ao Banco de dados o MySQL não aceitou a conexão e tb não consegui através do SQL Manager Lite for MySQL. Uma vez aconteceu isso e eu tive q desinstalar o MySQL e instalar de novo para funcionar! Alguém sabe como q faço ele funcionar novamente sem eu ter q reinstalar? Já tentei remover a configuração e configurar de novo pelo MySQL Server Instance Configuration Wizard, mas tb não dá certo! Qdo mando executar ele dá erro em: Start Service. Muito obrigado pela ajuda! Um abraço a todos! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] ODAC - Delphi 6
Tenta esse link: [ http://www.torry.net/quicksearchd.php?String=Oracle+Data+Access+ComponentsTitle=Yes ] Atte, Ricardo. Elidio Brito Santana [EMAIL PROTECTED] escreveu: Bom dia, Alguém sabe onde consigo fazer download dos componentes Oracle Data Access Components (ODAC) para Delphi 6? Grato Elidio Santana - 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] ODAC - Delphi 6
Bom dia, Alguém sabe onde consigo fazer download dos componentes Oracle Data Access Components (ODAC) para Delphi 6? Grato Elidio Santana
[delphi-br] IBDAC vs FibPlus, qual o melhor e mais rápido com Firebird 2.x?
Olá amigos, alguém que já fez o teste com o IBDAC e o FibPlus, poderia me fizer qual o melhor para uma aplicação de médio/grande porte? Qual o mais rápido e melhor levando em consideração a conectividade com o Firebird 2.x. Sei que ambos são compatíveis, mais e o melhor? Desde já agradeço a todos. []s -- _ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] MySQL (conexão)
Oi Bruno... Provalmente, quando você instalou o MySql anteriormente, você tenha configurado o inicio dele de forma manual e não de forma automática. Para iniciar o MySql de forma manual basta você executar o arquivo mysqld.exe. Se você o instalou no diretório padrão, o caminho é o seguinte: C:\Arquivos de programas\MySQL\MySQL Server 4.1\bin\mysqld.exe Talvez possa ser isso... - Original Message - From: Bruno - CPD To: delphi-br@yahoogrupos.com.br Sent: Thursday, February 21, 2008 9:09 AM Subject: [delphi-br] MySQL (conexão) Bom dia pessoal! Seguinte... a dúvida q tenho já me aconteceu antes e eu não sei o pq! Fiquei mais ou menos 1 semana sem usar o MySQL e minhas aplicações e hoje qdo eu abri o Delphi e fui me conectar ao Banco de dados o MySQL não aceitou a conexão e tb não consegui através do SQL Manager Lite for MySQL. Uma vez aconteceu isso e eu tive q desinstalar o MySQL e instalar de novo para funcionar! Alguém sabe como q faço ele funcionar novamente sem eu ter q reinstalar? Já tentei remover a configuração e configurar de novo pelo MySQL Server Instance Configuration Wizard, mas tb não dá certo! Qdo mando executar ele dá erro em: Start Service. Muito obrigado pela ajuda! Um abraço a todos! [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] Quando o sistema gera ERRO sair do sistema e gravar em log...
Extraido do Dicas e Truques de Delphi v.2.7:
637 - Função para gerar Log de Erros
function SaveLogError(Const AUnitError, ASimbolError, ADescription, ATypeError,
ASQLError, AInsError: string): integer;
var
VMemory: TMemoryStatus;
VLogFile: TextFile;
VLogFileName: string;
vcount : Integer;
begin
VMemory.dwLength := SizeOf(TMemoryStatus);
GlobalMemoryStatus(VMemory);
VLogFileName := format('%spdferror.log',[GPathFile]);
try
AssignFile(VLogFile,VLogFileName);
if FileExists(VLogFileName) then
begin
Append(VLogFile);
Writeln(VLogFile,'');
Writeln(VLogFile,'--');
Writeln(VLogFile,'');
end
else
begin
Rewrite(VLogFile);
Writeln(VLogFile,'CABTEC - Soluções em códigos de barras');
Writeln(VLogFile,format('Fone %s - E-Mail: [EMAIL
PROTECTED]','(0xx31)3295-0555']));
Writeln(VLogFile,'Rua Araguari, nº 358/16º andar - Barro Preto');
Writeln(VLogFile,'20190-110 - Belo Horizonte - MG');
Writeln(VLogFile,'==');
Writeln(VLogFile,'');
end;
Writeln(VLogFile,format('DATE/TIME: %s',[DateTimeToStr(Now)]));
Writeln(VLogFile,format('Unit Error...: %s',[AUnitError]));
Writeln(VLogFile,format('Call Symbol..: %s',[ASimbolError]));
Writeln(VLogFile,format('Error type...: %s',[ATypeError]));
Writeln(VLogFile,format('Description..: %s',[ADescription]));
Writeln(VLogFile,format('SQL Error: %s',[ASQLError]));
Writeln(VLogFile,format('Instruction error: %s',[AInsError]));
Writeln(VLogFile,'');
Writeln(VLogFile,format('Memory free..: %.0f
bytes',[(VMemory.dwAvailPhys / 1024)])); // bytes livres de memória física
Writeln(VLogFile,format('Total PageFile...: %.0f
bytes',[(VMemory.dwTotalPageFile / 1024)])); // bytes livres de paginação de
arquivo // bytes de paginação de arquivo
Writeln(VLogFile,format('Avail PageFile...: %.0f
bytes',[(VMemory.dwAvailPageFile / 1024)])); // bytes em uso de espaço de
endereço
Writeln(VLogFile,format('Total Virtual ...: %.0f
bytes',[(VMemory.dwTotalVirtual / 1024)]));
Writeln(VLogFile,format('Avail virtual free...: %.0f
bytes',[(VMemory.dwAvailVirtual / 1024)])); // bytes livres
CloseFile(VLogFile);
result := IOResult;
except
result := IOResult;
result := -1;
end;
end;
para chamá-la faça assim:
try
Post;
result := True;
except
on E: Exception do
begin
SaveLogError('Unit_nota','function TForm_Nota.SetSaveItensData: boolean',
E.Message, E.ClassName, '', 'Post');
Application.MessageBox('Ocorreu um erro ao gravar os dados na tabela de
ITENS!',CCAPTIONAPPLICATIONTITLE,mb_Ok + mb_IconStop + mb_DefButton1 +
mb_applmodal);
Cancel;
result := False;
break;
end;
end;
Basta adaptar as suas necessidades.
Espero que seja útil.
Atte,
Ricardo.
Doretto [EMAIL PROTECTED] escreveu: Uso delphi5
e gostaria de registrar os erros de Sistema em um arquivo texto.
Como eu faria isto ?
Doretto
[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]
[delphi-br] Quando o sistema gera ERRO sair do sistema e gravar em log...
Uso delphi5 e gostaria de registrar os erros de Sistema em um arquivo texto. Como eu faria isto ? Doretto [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Mascára para Data
Das duas, uma: 1) Mude o formato de exibição de data no Windows. O Delphi possui variáveis globais de formatação de data e hora que são preenchidas por essas configurações, e essas mesmas variáveis globais são usadas por rotinas de formatação do Delphi para retornar data e hora na forma de string. Feche a aplicação, altere as configuração de exibição de data e hora e depois execute a aplicação novamente. Pra saber mais sobre essas variáveis globais de formatação de data e hora (ShortDateFormat, LongDateFormat, ShortTimeFormat, etc.), não há lugar melhor do que o próprio help do Delphi. 2) Antes de iniciar sua aplicação, altere a variável global ShortDateFormat para o valor 'dd/mm/'. O local ideal para isso é no fonte .DPR da aplicação. Qualquer outra dúvida, o Google é o limite! Boa sorte! Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Thu, 21 Feb 2008 09:36:49 -0300 Subject: [delphi-br] Mascára para Data Saudações Galera, Estou utlizando um DataClientSet para se conectar em uma base de dados DBF. Nessa tabela eu tenho um campo DATA no formato (dd/mm/yy), por exemplo: 01/02/2008. Acontece que quando exibo o conteúdo desse campo ele aparece: 1/2/2008 e preciso que fique o dia/mês com DOIS digitos, 01/02/2008. Coloquei MaskEdit mas nao funcionou, devo ter errado em alguma coisa. Alguma dica? Thanks -- []´s CeBoLaRk http://www.tuxwifi.com.br msn: [EMAIL PROTECTED] _ Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos! http://www.amigosdomessenger.com.br
[delphi-br] Mascára para Data
Saudações Galera, Estou utlizando um DataClientSet para se conectar em uma base de dados DBF. Nessa tabela eu tenho um campo DATA no formato (dd/mm/yy), por exemplo: 01/02/2008. Acontece que quando exibo o conteúdo desse campo ele aparece: 1/2/2008 e preciso que fique o dia/mês com DOIS digitos, 01/02/2008. Coloquei MaskEdit mas nao funcionou, devo ter errado em alguma coisa. Alguma dica? Thanks -- []´s CeBoLaRk http://www.tuxwifi.com.br msn: [EMAIL PROTECTED]
Res: Re: [delphi-br] MySQL (conexão)
Mas eu não executei ele manualmente! Usei o MySQL Server Instance Configuration Wizard para configurar ele pela primeira vez! Tinha umas 2 semanas q eu usava ele todo dia e não dava problema! Gostaria de saber sobre esse problema pq já pensou se eu desenvolvo um sistema pra alguma empresa e de repente tele pára de funcionar! Alguém tem um forma melhor de deixar o MySQL sempre funcionando e uma forma q não dê esses tipos de problemas? Obrigado mais uma vez! ---Mensagem original--- De: Cleiton Data: 21/02/2008 09:42:15 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] MySQL (conexão) Oi Bruno... Provalmente, quando você instalou o MySql anteriormente, você tenha configurado o inicio dele de forma manual e não de forma automática. Para iniciar o MySql de forma manual basta você executar o arquivo mysqld exe. Se você o instalou no diretório padrão, o caminho é o seguinte: C:\Arquivos de programas\MySQL\MySQL Server 4.1\bin\mysqld.exe Talvez possa ser isso... - Original Message - From: Bruno - CPD To: delphi-br@yahoogrupos.com.br Sent: Thursday, February 21, 2008 9:09 AM Subject: [delphi-br] MySQL (conexão) Bom dia pessoal! Seguinte... a dúvida q tenho já me aconteceu antes e eu não sei o pq! Fiquei mais ou menos 1 semana sem usar o MySQL e minhas aplicações e hoje qdo eu abri o Delphi e fui me conectar ao Banco de dados o MySQL não aceitou a conexão e tb não consegui através do SQL Manager Lite for MySQL. Uma vez aconteceu isso e eu tive q desinstalar o MySQL e instalar de novo para funcionar! Alguém sabe como q faço ele funcionar novamente sem eu ter q reinstalar? Já tentei remover a configuração e configurar de novo pelo MySQL Server Instance Configuration Wizard, mas tb não dá certo! Qdo mando executar ele dá erro em: Start Service. Muito obrigado pela ajuda! Um abraço a todos! [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: Re: [delphi-br] MySQL (conexão)
Esse seu caso aí é estranho... no cliente eu sempre deixo o MySql instalado como serviço do windows e dessa forma nunca tive problema; e na máquina que uso para desenvolvimento deixo a inicialização dele automática. - Original Message - From: Bruno - CPD To: delphi-br@yahoogrupos.com.br Sent: Thursday, February 21, 2008 9:56 AM Subject: Res: Re: [delphi-br] MySQL (conexão) Mas eu não executei ele manualmente! Usei o MySQL Server Instance Configuration Wizard para configurar ele pela primeira vez! Tinha umas 2 semanas q eu usava ele todo dia e não dava problema! Gostaria de saber sobre esse problema pq já pensou se eu desenvolvo um sistema pra alguma empresa e de repente tele pára de funcionar! Alguém tem um forma melhor de deixar o MySQL sempre funcionando e uma forma q não dê esses tipos de problemas? Obrigado mais uma vez! ---Mensagem original--- De: Cleiton Data: 21/02/2008 09:42:15 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] MySQL (conexão) Oi Bruno... Provalmente, quando você instalou o MySql anteriormente, você tenha configurado o inicio dele de forma manual e não de forma automática. Para iniciar o MySql de forma manual basta você executar o arquivo mysqld exe. Se você o instalou no diretório padrão, o caminho é o seguinte: C:\Arquivos de programas\MySQL\MySQL Server 4.1\bin\mysqld.exe Talvez possa ser isso... - Original Message - From: Bruno - CPD To: delphi-br@yahoogrupos.com.br Sent: Thursday, February 21, 2008 9:09 AM Subject: [delphi-br] MySQL (conexão) Bom dia pessoal! Seguinte... a dúvida q tenho já me aconteceu antes e eu não sei o pq! Fiquei mais ou menos 1 semana sem usar o MySQL e minhas aplicações e hoje qdo eu abri o Delphi e fui me conectar ao Banco de dados o MySQL não aceitou a conexão e tb não consegui através do SQL Manager Lite for MySQL. Uma vez aconteceu isso e eu tive q desinstalar o MySQL e instalar de novo para funcionar! Alguém sabe como q faço ele funcionar novamente sem eu ter q reinstalar? Já tentei remover a configuração e configurar de novo pelo MySQL Server Instance Configuration Wizard, mas tb não dá certo! Qdo mando executar ele dá erro em: Start Service. Muito obrigado pela ajuda! Um abraço a todos! [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Criar tabela no Firebird
E possivel criar tabelas em tempo de execucao no firebird, levando em consideracao que cada tabela vai ter como nome o mes e o ano corrente, ou seja quando o sistema iniciar, ele sozinho cria esta tabela caso ela no exista, caso seja possivel poderia me dar um exemplo ? sds Auriston
[delphi-br] Combobox
Lista Eu uso o JVCombobox ( JEDI ), gostaria de saber se alguem sabe como faço para quando eles mostrar os items... mostrar eme inteiro.. por exemplo.. tenho um combobox com o width=150, mas uns dos items não cabe em 150 apenas , ai queria que quando ele mostrasse, ele se ficasse de uma tamanho que mostrasse tudo acho que eu consegui explicar né... flw... Wesley [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Mascára para Data
Coloque no OnCreate do form principal: LongDateFormat:='dd/mm/'; ShortDateFormat:='dd/mm/'; Deve resolver. Alexandre - Original Message - From: Tux Wi-FI To: delphi-br@yahoogrupos.com.br Sent: Thursday, February 21, 2008 9:36 AM Subject: [delphi-br] Mascára para Data Saudações Galera, Estou utlizando um DataClientSet para se conectar em uma base de dados DBF. Nessa tabela eu tenho um campo DATA no formato (dd/mm/yy), por exemplo: 01/02/2008. Acontece que quando exibo o conteúdo desse campo ele aparece: 1/2/2008 e preciso que fique o dia/mês com DOIS digitos, 01/02/2008. Coloquei MaskEdit mas nao funcionou, devo ter errado em alguma coisa. Alguma dica? Thanks -- []´s CeBoLaRk http://www.tuxwifi.com.br msn: [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
Res: Re: Re: [delphi-br] MySQL (conexão)
Como q vc faz a configuração dele após a instalação? Vc faz manual? Pode me ajudar? Obrigado! ---Mensagem original--- De: Cleiton Data: 21/02/2008 10:45:40 Para: delphi-br@yahoogrupos.com.br Assunto: Re: Re: [delphi-br] MySQL (conexão) Esse seu caso aí é estranho... no cliente eu sempre deixo o MySql instalado como serviço do windows e dessa forma nunca tive problema; e na máquina que uso para desenvolvimento deixo a inicialização dele automática. - Original Message - From: Bruno - CPD To: delphi-br@yahoogrupos.com.br Sent: Thursday, February 21, 2008 9:56 AM Subject: Res: Re: [delphi-br] MySQL (conexão) Mas eu não executei ele manualmente! Usei o MySQL Server Instance Configuration Wizard para configurar ele pela primeira vez! Tinha umas 2 semanas q eu usava ele todo dia e não dava problema! Gostaria de saber sobre esse problema pq já pensou se eu desenvolvo um sistema pra alguma empresa e de repente tele pára de funcionar! Alguém tem um forma melhor de deixar o MySQL sempre funcionando e uma forma q não dê esses tipos de problemas? Obrigado mais uma vez! ---Mensagem original--- De: Cleiton Data: 21/02/2008 09:42:15 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] MySQL (conexão) Oi Bruno... Provalmente, quando você instalou o MySql anteriormente, você tenha configurado o inicio dele de forma manual e não de forma automática. Para iniciar o MySql de forma manual basta você executar o arquivo mysqld exe. Se você o instalou no diretório padrão, o caminho é o seguinte: C:\Arquivos de programas\MySQL\MySQL Server 4.1\bin\mysqld.exe Talvez possa ser isso... - Original Message - From: Bruno - CPD To: delphi-br@yahoogrupos.com.br Sent: Thursday, February 21, 2008 9:09 AM Subject: [delphi-br] MySQL (conexão) Bom dia pessoal! Seguinte... a dúvida q tenho já me aconteceu antes e eu não sei o pq! Fiquei mais ou menos 1 semana sem usar o MySQL e minhas aplicações e hoje qdo eu abri o Delphi e fui me conectar ao Banco de dados o MySQL não aceitou a conexão e tb não consegui através do SQL Manager Lite for MySQL. Uma vez aconteceu isso e eu tive q desinstalar o MySQL e instalar de novo para funcionar! Alguém sabe como q faço ele funcionar novamente sem eu ter q reinstalar? Já tentei remover a configuração e configurar de novo pelo MySQL Server Instance Configuration Wizard, mas tb não dá certo! Qdo mando executar ele dá erro em: Start Service. Muito obrigado pela ajuda! Um abraço a todos! [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Campo Calculado ou outro componente
Olá Amigos Espero que alguém possa me ajudar. Estou usando o Delphi 7 e BD Interbase 6.0.1.1 Tenho um banco de dados com uma tabela (pinheiros) com sete campos [Id (Integer), dataprevista (Date), dataefetiva (Date), descricao (varchar), credito (numeric 15,2), debito (numeric 15,2) e apresentado (varchar). Tenho um DBgrid que, através de uma Query (DM.qr_pinheiros) exibe os campos dataefetiva (Data), descricao (Histórico), credito (Crédito) e debito (Débito). Acrescentei à query 2 campos calculados nomeados como Saldo (DM.qr_PinheirosSaldo) e Vinculado (DM.qr_PinheirosVinculado). Fiz alguns lançamentos fictícios e o DBgrid, em execução, apresenta- se da seguinte forma: DataHistóricoCréditoDébito Saldo Vinculado (ainda sem código) 01/02/2008 Saldo inicial 2.000,00 0,00 2.000,00 03/02/2008 Saque 0,00 250,00 05/02/2008 Depósito 1.000,00 0,00 1.000,00 07/02/2008 Livros 0,00 25,00 Eu quero que o DBgrid se apresente da seguinte forma: DataHistóricoCréditoDébito Saldo 01/02/2008 Saldo inicial 2.000,00 0,00 2.000,00 03/02/2008 Saque 0,00 250,00 2.000,00 05/02/2008 Depósito 1.000,00 0,00 3.000,00 07/02/2008 Livros 0,00 25,00 3.000,00 Explicação: 1 - O campo apresentado pode ser SIM ou NÃO. Se SIM o DBgrid mostra o registro em preto (funcionando) e a coluna Saldo é afetada. Se NÃO o DBgrid mostra o registro em azul (funcionando) e a coluna Saldo não deve ser afetada, mantendo o valor anterior. No exemplo acima os registros de 03/02 e de 07/02 têm a opção NÃO no campo apresentado. 2 - No evento OnCalcFields a Procedure completa atual é a seguinte: procedure TDM.qr_PinheirosCalcFields(DataSet: TDataSet); var SldPi, VincPi : currency; begin SldPi:=0; if DM.qr_PinheirosAPRESENTADO.Value = 'SIM' then begin Sldpi:=SldPi + DM.qr_PinheirosCREDITO.Value - DM.qr_PinheirosDEBITO.Value; DM.qr_PinheirosSaldo.Value:= SldPi; end; end; end. Como devo fazer para obter o resultado que estou buscando. Desde já agradeço qualquer ajuda.
Re: Re: Re: [delphi-br] MySQL (conexão)
olá Bruno, realmente seu problema é muito incomum e estranho. siga os seguintes passos: 1 - abra o gerenciador de serviços e procure pelo MySQL, achando o serviço click duas vezes nele e veja no campo Caminho do executável se tem algo parecido com isso: F:\MySQL\\bin\mysqld --defaults-file=F:\MySQL\my.ini MySQL veja com qual nome o serviço esta instalado e tente iniciar pelo prompt.. usando Net Start NomeDoServiçoQueoMySQLtaUsando se der erro é anote o erro e me avise, pode ser alguma confuração no My.ini vou te passar o my.ini que tenho aqui, onde vc pode facilmente configurar na mão mesmo. Em 21/02/08, Bruno - CPD [EMAIL PROTECTED] escreveu: Como q vc faz a configuração dele após a instalação? Vc faz manual? Pode me ajudar? Obrigado! ---Mensagem original--- De: Cleiton Data: 21/02/2008 10:45:40 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: Re: Re: [delphi-br] MySQL (conexão) Esse seu caso aí é estranho... no cliente eu sempre deixo o MySql instalado como serviço do windows e dessa forma nunca tive problema; e na máquina que uso para desenvolvimento deixo a inicialização dele automática. - Original Message - From: Bruno - CPD To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Thursday, February 21, 2008 9:56 AM Subject: Res: Re: [delphi-br] MySQL (conexão) Mas eu não executei ele manualmente! Usei o MySQL Server Instance Configuration Wizard para configurar ele pela primeira vez! Tinha umas 2 semanas q eu usava ele todo dia e não dava problema! Gostaria de saber sobre esse problema pq já pensou se eu desenvolvo um sistema pra alguma empresa e de repente tele pára de funcionar! Alguém tem um forma melhor de deixar o MySQL sempre funcionando e uma forma q não dê esses tipos de problemas? Obrigado mais uma vez! ---Mensagem original--- De: Cleiton Data: 21/02/2008 09:42:15 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] MySQL (conexão) Oi Bruno... Provalmente, quando você instalou o MySql anteriormente, você tenha configurado o inicio dele de forma manual e não de forma automática. Para iniciar o MySql de forma manual basta você executar o arquivo mysqld exe. Se você o instalou no diretório padrão, o caminho é o seguinte: C:\Arquivos de programas\MySQL\MySQL Server 4.1\bin\mysqld.exe Talvez possa ser isso... - Original Message - From: Bruno - CPD To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Thursday, February 21, 2008 9:09 AM Subject: [delphi-br] MySQL (conexão) Bom dia pessoal! Seguinte... a dúvida q tenho já me aconteceu antes e eu não sei o pq! Fiquei mais ou menos 1 semana sem usar o MySQL e minhas aplicações e hoje qdo eu abri o Delphi e fui me conectar ao Banco de dados o MySQL não aceitou a conexão e tb não consegui através do SQL Manager Lite for MySQL. Uma vez aconteceu isso e eu tive q desinstalar o MySQL e instalar de novo para funcionar! Alguém sabe como q faço ele funcionar novamente sem eu ter q reinstalar? Já tentei remover a configuração e configurar de novo pelo MySQL Server Instance Configuration Wizard, mas tb não dá certo! Qdo mando executar ele dá erro em: Start Service. Muito obrigado pela ajuda! Um abraço a todos! [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- ... 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]
[delphi-br] Programa precisa fechar ele mesmo
Bom dia a todos. Estou desenvolvendo um programa que é chamado por uma outra aplicação. Esta aplicação chamará o meu software, que precisa ler algumas informações em um arquivo texto, e fica então esperando até meu software fechar. Coloquei no meu software, após a execução da tarefa de leitura do arquivo, o seguinte comando Self.Close;, porém ele permence aberto na memória. Alguém sabe me dizer como posso fazer para que um programa feche a si mesmo? Desde já agradeço a todos. -- Não te esqueças de que o arado, dilacerando o solo, acaba igualmente desmantelado e ferido, entretanto, desse choque de forças surge o pão que te supre a mesa. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Programa precisa fechar ele mesmo
Já tentou usar Application.Terminate ? Em 21/02/08, Diogo de Oliveira Cunha [EMAIL PROTECTED] escreveu: Bom dia a todos. Estou desenvolvendo um programa que é chamado por uma outra aplicação. Esta aplicação chamará o meu software, que precisa ler algumas informações em um arquivo texto, e fica então esperando até meu software fechar. Coloquei no meu software, após a execução da tarefa de leitura do arquivo, o seguinte comando Self.Close;, porém ele permence aberto na memória. Alguém sabe me dizer como posso fazer para que um programa feche a si mesmo? Desde já agradeço a todos. -- Não te esqueças de que o arado, dilacerando o solo, acaba igualmente desmantelado e ferido, entretanto, desse choque de forças surge o pão que te supre a mesa. [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] Programa precisa fechar ele mesmo
Ja tentei sim, mas infelizmente acontece a mesma coisa. Abraço 2008/2/21 Consultores Software [EMAIL PROTECTED]: Já tentou usar Application.Terminate ? Em 21/02/08, Diogo de Oliveira Cunha [EMAIL PROTECTED]diogo.cunhajf%40gmail.com escreveu: Bom dia a todos. Estou desenvolvendo um programa que é chamado por uma outra aplicação. Esta aplicação chamará o meu software, que precisa ler algumas informações em um arquivo texto, e fica então esperando até meu software fechar. Coloquei no meu software, após a execução da tarefa de leitura do arquivo, o seguinte comando Self.Close;, porém ele permence aberto na memória. Alguém sabe me dizer como posso fazer para que um programa feche a si mesmo? Desde já agradeço a todos. -- Não te esqueças de que o arado, dilacerando o solo, acaba igualmente desmantelado e ferido, entretanto, desse choque de forças surge o pão que te supre a mesa. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Não te esqueças de que o arado, dilacerando o solo, acaba igualmente desmantelado e ferido, entretanto, desse choque de forças surge o pão que te supre a mesa. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Criar tabela no Firebird
Sim e possivel, voce pode usar o IBScript pra fazer isso, eu utilizo para criar tabelas novas no sistema dos representantes, e so colocar o SQL e mandar executar. Qualquer duvida eu te mando um exemplo qdo chegar em casa. Att Em 21/02/08, auriston.delphi [EMAIL PROTECTED] escreveu: E possivel criar tabelas em tempo de execucao no firebird, levando em consideracao que cada tabela vai ter como nome o mes e o ano corrente, ou seja quando o sistema iniciar, ele sozinho cria esta tabela caso ela no exista, caso seja possivel poderia me dar um exemplo ? sds Auriston -- Ismair C. Alves msn: [EMAIL PROTECTED] ByteConf Soluções em Software Livre. Linux User: #447538 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Programa precisa fechar ele mesmo
Use: Application.Terminate; ao invés de Self.Close; - Original Message - From: Diogo de Oliveira Cunha To: delphi-br@yahoogrupos.com.br Sent: Thursday, February 21, 2008 11:09 AM Subject: [delphi-br] Programa precisa fechar ele mesmo Bom dia a todos. Estou desenvolvendo um programa que é chamado por uma outra aplicação. Esta aplicação chamará o meu software, que precisa ler algumas informações em um arquivo texto, e fica então esperando até meu software fechar. Coloquei no meu software, após a execução da tarefa de leitura do arquivo, o seguinte comando Self.Close;, porém ele permence aberto na memória. Alguém sabe me dizer como posso fazer para que um programa feche a si mesmo? Desde já agradeço a todos. -- Não te esqueças de que o arado, dilacerando o solo, acaba igualmente desmantelado e ferido, entretanto, desse choque de forças surge o pão que te supre a mesa. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Ref. DBGrid
Ola Delphianos,
Estou usando o seguinte código no DBGrid e ele fica direto repintando ele,
como que em loop, sempre em drwaing.
Alguém sabe como evitar isto. Queria só diferenciar umas linhas com status
diferente colocando em cor diferente.
Só mais uma coisa: alguém sabe de algum componente que toda a linha focada do
DBGrid fique em cor diferente e não
somente a coluna ?
procedure TFrmBaixadeHoras.DBGrid_BaixaHorasDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;State: TGridDrawState);
begin
If DM.Table_LancamentoHoras.FieldByName('Compensada').AsString = 'S' then
begin
DBGrid_BaixaHoras.Font.Style:= [fsBold];
DBGrid_BaixaHoras.Canvas.Font.Color := clGreen; //Navy;
end
Else
begin
DBGrid_BaixaHoras.Font.Style:= [];
DBGrid_BaixaHoras.Canvas.Font.Color := clRed; // clBlack
end;
DBGrid_BaixaHoras.DefaultDrawDataCell(Rect,
DBGrid_BaixaHoras.columns[datacol].field, state);
end;
Abraço a todos e obrigado desde já.
Att.
Omar M. Haddad
Analista de Sistemas
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]
Re: [delphi-br] Programa precisa fechar ele mesmo
Pessoal obrigado a todos. Com segui resolver com o Application.terminate mudando apenas a linha onde o comando era chamado. 2008/2/21 Alexandre Nicolas [EMAIL PROTECTED]: Use: Application.Terminate; ao invés de Self.Close; - Original Message - From: Diogo de Oliveira Cunha To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Thursday, February 21, 2008 11:09 AM Subject: [delphi-br] Programa precisa fechar ele mesmo Bom dia a todos. Estou desenvolvendo um programa que é chamado por uma outra aplicação. Esta aplicação chamará o meu software, que precisa ler algumas informações em um arquivo texto, e fica então esperando até meu software fechar. Coloquei no meu software, após a execução da tarefa de leitura do arquivo, o seguinte comando Self.Close;, porém ele permence aberto na memória. Alguém sabe me dizer como posso fazer para que um programa feche a si mesmo? Desde já agradeço a todos. -- Não te esqueças de que o arado, dilacerando o solo, acaba igualmente desmantelado e ferido, entretanto, desse choque de forças surge o pão que te supre a mesa. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Não te esqueças de que o arado, dilacerando o solo, acaba igualmente desmantelado e ferido, entretanto, desse choque de forças surge o pão que te supre a mesa. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Programa precisa fechar ele mesmo
Ativar um timer e no evento onTimer dar o close. Em Qui 21 Fev 2008 12:15, Diogo de Oliveira Cunha escreveu: Ja tentei sim, mas infelizmente acontece a mesma coisa. Abraço 2008/2/21 Consultores Software [EMAIL PROTECTED]: Já tentou usar Application.Terminate ?
[delphi-br] Recuperar area de uma tela como Imagem
Boa tarde, Eu tenho um formulário com vários componentes, eu goastaria de recuperar uma determinada área do formulário como imagem? Seria algo estilo print-screen, mas eu precisaria passar as coordenadas... Obrigado, Elidio Santana MSN: [EMAIL PROTECTED]
Re: [delphi-br] Programa precisa fechar ele mesmo
Faça o primeiro fechar o segundo quando houver determinada mundança no arquivo texto ou em outro arquivo texto feito pelo segundo, dizendo que já é hora de ser fechado.. vlw Celio Alexandre Nicolas [EMAIL PROTECTED] escreveu: Use: Application.Terminate; ao invés de Self.Close; - Original Message - From: Diogo de Oliveira Cunha To: delphi-br@yahoogrupos.com.br Sent: Thursday, February 21, 2008 11:09 AM Subject: [delphi-br] Programa precisa fechar ele mesmo Bom dia a todos. Estou desenvolvendo um programa que é chamado por uma outra aplicação. Esta aplicação chamará o meu software, que precisa ler algumas informações em um arquivo texto, e fica então esperando até meu software fechar. Coloquei no meu software, após a execução da tarefa de leitura do arquivo, o seguinte comando Self.Close;, porém ele permence aberto na memória. Alguém sabe me dizer como posso fazer para que um programa feche a si mesmo? Desde já agradeço a todos. -- Não te esqueças de que o arado, dilacerando o solo, acaba igualmente desmantelado e ferido, entretanto, desse choque de forças surge o pão que te supre a mesa. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] - Célio Bernardo de Lima Diretor de Projetos e Novas Tecnologias siatech.com.br - - 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] Mascára para Data
Pessoal, Obrigado pelas dicas, usei a dica do Alexandre Nicolas e resolveu meu problema. Obrigado a todos... Em 21/02/08, Alexandre Nicolas[EMAIL PROTECTED] escreveu: Coloque no OnCreate do form principal: LongDateFormat:='dd/mm/'; ShortDateFormat:='dd/mm/'; Deve resolver. Alexandre - Original Message - From: Tux Wi-FI To: delphi-br@yahoogrupos.com.br Sent: Thursday, February 21, 2008 9:36 AM Subject: [delphi-br] Mascára para Data Saudações Galera, Estou utlizando um DataClientSet para se conectar em uma base de dados DBF. Nessa tabela eu tenho um campo DATA no formato (dd/mm/yy), por exemplo: 01/02/2008. Acontece que quando exibo o conteúdo desse campo ele aparece: 1/2/2008 e preciso que fique o dia/mês com DOIS digitos, 01/02/2008. Coloquei MaskEdit mas nao funcionou, devo ter errado em alguma coisa. Alguma dica? Thanks -- []´s CeBoLaRk http://www.tuxwifi.com.br msn: [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- []´s CeBoLaRk http://www.tuxwifi.com.br msn: [EMAIL PROTECTED]
Re: [delphi-br] Campo Calculado ou outro componente
eu não entendi direito o que vc ta querendo , principalmente naquela parte do Sim e Não. mas parece que vc quer um saldo como controle de caixa e banco. na minha opiniao e é como eu faço aqui e que deu mais certo foi fazer tudo no banco servidor ou seja eu fiz aqui caixa e banco com saldo usando o proprio firebird ja fiz de varias maneira muita coisa pelo delphi mas no firebird é muuuito melhor. ganhei em segurança e performace , ja que não faz no cliente e sim no servidor vou postar uns exemplos : minha tabela caixa : sendo que DATA e MOV sao chaves primarias e MOv é incrementado. CREATE TABLE CAIXA ( DATA DATE NOT NULL, MOVINTEGER NOT NULL, HISTORICO VARCHAR(100), APURACAO VARCHAR(30), CREDITODECIMAL(15,2) DEFAULT 0, DEBITO DECIMAL(15,2) DEFAULT 0, SALDO DECIMAL(15,2) DEFAULT 0, LANC INTEGER ); essa minha procedure de saldo : CREATE OR ALTER PROCEDURE CXSALDO ( inicial date) as declare variable data date; declare variable mov integer; declare variable total decimal(15,2); declare variable anterior decimal(15,2); begin SELECT SUM(CREDITO-DEBITO) FROM caixa WHERE DATA :inicial INTO :anterior; if (:anterior is null) then anterior = 0; for select data , mov,(credito-debito)total from caixa where data = :inicial order by data, mov into :data,:mov, :total do begin update caixa set saldo=:anterior+credito-debito where data=:data and mov=:mov; anterior=:anterior+:total; end suspend; end^ se tiver interessado de como funciona posta ae ou manda um email . tenho tambem de movimento bancario que é um pouco mais complexa . mas nao tanto - Original Message - From: zecabr2003 To: delphi-br@yahoogrupos.com.br Sent: Thursday, February 21, 2008 11:45 AM Subject: [delphi-br] Campo Calculado ou outro componente Olá Amigos Espero que alguém possa me ajudar. Estou usando o Delphi 7 e BD Interbase 6.0.1.1 Tenho um banco de dados com uma tabela (pinheiros) com sete campos [Id (Integer), dataprevista (Date), dataefetiva (Date), descricao (varchar), credito (numeric 15,2), debito (numeric 15,2) e apresentado (varchar). Tenho um DBgrid que, através de uma Query (DM.qr_pinheiros) exibe os campos dataefetiva (Data), descricao (Histórico), credito (Crédito) e debito (Débito). Acrescentei à query 2 campos calculados nomeados como Saldo (DM.qr_PinheirosSaldo) e Vinculado (DM.qr_PinheirosVinculado). Fiz alguns lançamentos fictícios e o DBgrid, em execução, apresenta- se da seguinte forma: Data Histórico Crédito Débito Saldo Vinculado (ainda sem código) 01/02/2008 Saldo inicial 2.000,00 0,00 2.000,00 03/02/2008 Saque 0,00 250,00 05/02/2008 Depósito 1.000,00 0,00 1.000,00 07/02/2008 Livros 0,00 25,00 Eu quero que o DBgrid se apresente da seguinte forma: Data Histórico Crédito Débito Saldo 01/02/2008 Saldo inicial 2.000,00 0,00 2.000,00 03/02/2008 Saque 0,00 250,00 2.000,00 05/02/2008 Depósito 1.000,00 0,00 3.000,00 07/02/2008 Livros 0,00 25,00 3.000,00 Explicação: 1 - O campo apresentado pode ser SIM ou NÃO. Se SIM o DBgrid mostra o registro em preto (funcionando) e a coluna Saldo é afetada. Se NÃO o DBgrid mostra o registro em azul (funcionando) e a coluna Saldo não deve ser afetada, mantendo o valor anterior. No exemplo acima os registros de 03/02 e de 07/02 têm a opção NÃO no campo apresentado. 2 - No evento OnCalcFields a Procedure completa atual é a seguinte: procedure TDM.qr_PinheirosCalcFields(DataSet: TDataSet); var SldPi, VincPi : currency; begin SldPi:=0; if DM.qr_PinheirosAPRESENTADO.Value = 'SIM' then begin Sldpi:=SldPi + DM.qr_PinheirosCREDITO.Value - DM.qr_PinheirosDEBITO.Value; DM.qr_PinheirosSaldo.Value:= SldPi; end; end; end. Como devo fazer para obter o resultado que estou buscando. Desde já agradeço qualquer ajuda. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Recuperar area de uma tela como Imagem
Dá uma olhada nesse link: [ http://www.swissdelphicenter.ch/torry/showcode.php?id=259 ] Atte, Ricardo. Elidio Brito Santana [EMAIL PROTECTED] escreveu: Boa tarde, Eu tenho um formulário com vários componentes, eu goastaria de recuperar uma determinada área do formulário como imagem? Seria algo estilo print-screen, mas eu precisaria passar as coordenadas... Obrigado, Elidio Santana MSN: [EMAIL PROTECTED] _ - 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] Ref. DBGrid
Quanto a selecionar a linha toda, use a opção dgRowSelect como True.
Quanto ao restante, não sei. SE vc quer zebrar o DBGrid, recomendo o DBGrid da
JEDI VCL que já tem propriedades para definir as cores.
Atte,
Ricardo.
Omar Marques [EMAIL PROTECTED] escreveu: Ola
Delphianos,
Estou usando o seguinte código no DBGrid e ele fica direto repintando ele,
como que em loop, sempre em drwaing.
Alguém sabe como evitar isto. Queria só diferenciar umas linhas com status
diferente colocando em cor diferente.
Só mais uma coisa: alguém sabe de algum componente que toda a linha focada do
DBGrid fique em cor diferente e não
somente a coluna ?
procedure TFrmBaixadeHoras.DBGrid_BaixaHorasDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;State: TGridDrawState);
begin
If DM.Table_LancamentoHoras.FieldByName('Compensada').AsString = 'S' then
begin
DBGrid_BaixaHoras.Font.Style:= [fsBold];
DBGrid_BaixaHoras.Canvas.Font.Color := clGreen; //Navy;
end
Else
begin
DBGrid_BaixaHoras.Font.Style:= [];
DBGrid_BaixaHoras.Canvas.Font.Color := clRed; // clBlack
end;
DBGrid_BaixaHoras.DefaultDrawDataCell(Rect,
DBGrid_BaixaHoras.columns[datacol].field, state);
end;
Abraço a todos e obrigado desde já.
Att.
Omar M. Haddad
Analista de Sistemas
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]
__.
-
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] Quando o sistema gera ERRO sair do sistema e gravar em log...
Da um olhada no componente EurekaLog ... passa até email quando ocorre um erro,
inclusive com a imagem do erro.
Gerson
Ricardo César Cardoso [EMAIL PROTECTED] escreveu:
Extraido do Dicas e Truques de Delphi v.2.7:
637 - Função para gerar Log de Erros
function SaveLogError(Const AUnitError, ASimbolError, ADescription, ATypeError,
ASQLError, AInsError: string): integer;
var
VMemory: TMemoryStatus;
VLogFile: TextFile;
VLogFileName: string;
vcount : Integer;
begin
VMemory.dwLength := SizeOf(TMemoryStatus);
GlobalMemoryStatus(VMemory);
VLogFileName := format('%spdferror.log',[GPathFile]);
try
AssignFile(VLogFile,VLogFileName);
if FileExists(VLogFileName) then
begin
Append(VLogFile);
Writeln(VLogFile,'');
Writeln(VLogFile,'--');
Writeln(VLogFile,'');
end
else
begin
Rewrite(VLogFile);
Writeln(VLogFile,'CABTEC - Soluções em códigos de barras');
Writeln(VLogFile,format('Fone %s - E-Mail: [EMAIL
PROTECTED]','(0xx31)3295-0555']));
Writeln(VLogFile,'Rua Araguari, nº 358/16º andar - Barro Preto');
Writeln(VLogFile,'20190-110 - Belo Horizonte - MG');
Writeln(VLogFile,'==');
Writeln(VLogFile,'');
end;
Writeln(VLogFile,format('DATE/TIME: %s',[DateTimeToStr(Now)]));
Writeln(VLogFile,format('Unit Error...: %s',[AUnitError]));
Writeln(VLogFile,format('Call Symbol..: %s',[ASimbolError]));
Writeln(VLogFile,format('Error type...: %s',[ATypeError]));
Writeln(VLogFile,format('Description..: %s',[ADescription]));
Writeln(VLogFile,format('SQL Error: %s',[ASQLError]));
Writeln(VLogFile,format('Instruction error: %s',[AInsError]));
Writeln(VLogFile,'');
Writeln(VLogFile,format('Memory free..: %.0f
bytes',[(VMemory.dwAvailPhys / 1024)])); // bytes livres de memória física
Writeln(VLogFile,format('Total PageFile...: %.0f
bytes',[(VMemory.dwTotalPageFile / 1024)])); // bytes livres de paginação de
arquivo // bytes de paginação de arquivo
Writeln(VLogFile,format('Avail PageFile...: %.0f
bytes',[(VMemory.dwAvailPageFile / 1024)])); // bytes em uso de espaço de
endereço
Writeln(VLogFile,format('Total Virtual ...: %.0f
bytes',[(VMemory.dwTotalVirtual / 1024)]));
Writeln(VLogFile,format('Avail virtual free...: %.0f
bytes',[(VMemory.dwAvailVirtual / 1024)])); // bytes livres
CloseFile(VLogFile);
result := IOResult;
except
result := IOResult;
result := -1;
end;
end;
para chamá-la faça assim:
try
Post;
result := True;
except
on E: Exception do
begin
SaveLogError('Unit_nota','function TForm_Nota.SetSaveItensData: boolean',
E.Message, E.ClassName, '', 'Post');
Application.MessageBox('Ocorreu um erro ao gravar os dados na tabela de
ITENS!',CCAPTIONAPPLICATIONTITLE,mb_Ok + mb_IconStop + mb_DefButton1 +
mb_applmodal);
Cancel;
result := False;
break;
end;
end;
Basta adaptar as suas necessidades.
Espero que seja útil.
Atte,
Ricardo.
Doretto [EMAIL PROTECTED] escreveu: Uso delphi5 e gostaria de registrar os
erros de Sistema em um arquivo texto.
Como eu faria isto ?
Doretto
[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]
-
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] Criar tabela no Firebird
Se vc usa DBExpress, vc pode fazer o mesmo usando o componente TSQLConnection e o método ExecuteDirect. O retorno do comando é um número inteiro que indica sucesso ( valor 0 ) ou o erro ocorrido. Atte, Ricardo. Ismair Alves [EMAIL PROTECTED] escreveu: Sim e possivel, voce pode usar o IBScript pra fazer isso, eu utilizo para criar tabelas novas no sistema dos representantes, e so colocar o SQL e mandar executar. Qualquer duvida eu te mando um exemplo qdo chegar em casa. Att Em 21/02/08, auriston.delphi [EMAIL PROTECTED] escreveu: E possivel criar tabelas em tempo de execucao no firebird, levando em consideracao que cada tabela vai ter como nome o mes e o ano corrente, ou seja quando o sistema iniciar, ele sozinho cria esta tabela caso ela no exista, caso seja possivel poderia me dar um exemplo ? sds Auriston -- Ismair C. Alves msn: [EMAIL PROTECTED] ByteConf Soluções em Software Livre. Linux User: #447538 [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] ODAC - Delphi 6
Aqui com certeza... www.crlab.com Luiz Escobar - Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/ASSEMBLY/MySQL/xBase SERVIDORES - CNA IntraNetWare4.11, LINUX-(RedHat9/Suse10.2), Windows 2K/XP HARBOUR Borland C++ 5.5.1 (32 bit) Harbour Devel build 1.1-1 Intl. Harbour MiniGUI 1.4 Extended Edition (Build 48) - 2008.02.01 - From: Elidio Brito Santana Sent: Thursday, February 21, 2008 9:04 AM To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] ODAC - Delphi 6 Bom dia, Alguém sabe onde consigo fazer download dos componentes Oracle Data Access Components (ODAC) para Delphi 6? Grato Elidio Santana [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] [OFF-TOPIC] Microsoft vai publicar APIs de seus principais produtos
Quinta-feira, 21 de fevereiro de 2008 - 13h39 SÃO PAULO - Ballmer diz que decisão é mudança radical na relação com o software livre e amplia oportunidades. A Microsoft comunicou que vai publicar as APIs (Application Programming Interfaces) de seus principais produtos. A empresa também vai liberar o acesso a protocolos e códigos de funcionamento de seus sistemas para servidores, a fim de garantir que qualquer desenvolvedor possa criar produtos plenamente compatíveis com suas tecnologias. Atualmente, o acesso a este tipo de informação é feito de forma muito restrita, em acordos pontuais com parceiros. A Microsoft mantém, por exemplo, acordos de interoperabilidade com a Novell e o Turbolinux. Agora, os desenvolvedores não precisarão pagar licenças ou royalties para acessar estas informações. O CEO da Microsoft, Steve Ballmer, garantiu ainda que a empresa não vai processar quem usar os códigos para criar produtos não comerciais que tenham ampla interoperabilidade com as tecnologias da Microsoft. Já produtos comerciais pagarão uma “pequena taxa” de licenciamento. Como primeiro passo, a Microsoft vai publicar protocolos de comunicação usados pelo Windows Server, algo que antes só estava disponível para parceiros que assinavam restritos contratos de confidencialidade. Protocolos para permitir a interoperabilidade com o Office 2007 serão liberados “em alguns meses”, afirmou a Microsoft. Estão na lista de produtos que terão informações reveladas o Windows Vista, .NET Framework, Windows Server 2008, SQL Server 2008, Office 2007, Exchange Server 2007 e Office SharePoint Server 2007. Com a decisão, o Office 2007, por exemplo, poderá trabalhar melhor com outros formatos. A suíte não suporta nativamente o formato alternativo ODF, por exemplo. Na opinião de Steve Ballmer a mudança permitirá “um melhor trabalho e relacionamento com os projetos e comunidades de código aberto” e “permitirá maior troca de informações em soluções de interoperabilidade de sistemas”. Em comunicado, o executivo de negócios estratégicos da Microsoft, Brad Smith, reconhece que as mudanças fazem parte de um esforço para atender plenamente decisões de cortes européias. Na Europa, a Microsoft é acusada de levar vantagem ilegalmente sobre seus competidores por não revelar informações importantes sobre como os aplicativos funcionam em seus servidores e sistemas operacionais Windows. Ballmer elencou uma lista do que considera ser as 4 principais orientações da nova “política transparente”. 1 - A Microsoft se concentrará em garantir conexões abertas entre diferentes produtos. 2 - A Microsoft vai promover a portabilidade de dados entre sistemas. 3 – A Microsoft vai melhorar o suporte a padrões de mercado. 3 – A Microsoft vai incentivar o engajamento de seus clientes e da indústria com comunidades de software livre. Felipe Zmoginski, do Plantão INFO __ Fonte: http://info.abril.com.br/aberto/infonews/022008/21022008-18.shl _ Conheça o Windows Live Spaces, a rede de relacionamentos do Messenger! http://www.amigosdomessenger.com.br/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: ODAC - Delphi 6
Neste link eu consigo baixar apenas uma versão demo... Alguém sabe onde encontro esse pacote de componente sem restrição de uso? Grato --- Em delphi-br@yahoogrupos.com.br, [EMAIL PROTECTED] escreveu Aqui com certeza... www.crlab.com Luiz Escobar - Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/ASSEMBLY/MySQL/xBase SERVIDORES - CNA IntraNetWare4.11, LINUX-(RedHat9/Suse10.2), Windows 2K/XP HARBOUR Borland C++ 5.5.1 (32 bit) Harbour Devel build 1.1-1 Intl. Harbour MiniGUI 1.4 Extended Edition (Build 48) - 2008.02.01 - From: Elidio Brito Santana Sent: Thursday, February 21, 2008 9:04 AM To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] ODAC - Delphi 6 Bom dia, Alguém sabe onde consigo fazer download dos componentes Oracle Data Access Components (ODAC) para Delphi 6? Grato Elidio Santana [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: ODAC - Delphi 6
Amigo, mesmo que alguem saiba, nao poderá dizer aqui, pois isso é crime, e o responsável pelo grupo poderia ser responsabilizado. []s Em 21/02/08, Elidio Brito Santana [EMAIL PROTECTED] escreveu: Neste link eu consigo baixar apenas uma versão demo... Alguém sabe onde encontro esse pacote de componente sem restrição de uso? Grato --- Em delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br, [EMAIL PROTECTED] escreveu Aqui com certeza... www.crlab.com Luiz Escobar - Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/ASSEMBLY/MySQL/xBase SERVIDORES - CNA IntraNetWare4.11, LINUX-(RedHat9/Suse10.2), Windows 2K/XP HARBOUR -- Borland C++ 5.5.1 (32 bit) Harbour Devel build 1.1-1 Intl. Harbour MiniGUI 1.4 Extended Edition (Build 48) - 2008.02.01 -- - From: Elidio Brito Santana Sent: Thursday, February 21, 2008 9:04 AM To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Subject: [delphi-br] ODAC - Delphi 6 Bom dia, Alguém sabe onde consigo fazer download dos componentes Oracle Data Access Components (ODAC) para Delphi 6? Grato Elidio Santana [As partes desta mensagem que não continham texto foram removidas] -- _ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Re: ODAC - Delphi 6
Parece que tem uma copia FULL sem essa restrição naquele link chamado ORDERING (http://www.crlab.com/odac/ordering.html) De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Elidio Brito Santana Enviada em: quinta-feira, 21 de fevereiro de 2008 17:00 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Re: ODAC - Delphi 6 Neste link eu consigo baixar apenas uma versão demo... Alguém sabe onde encontro esse pacote de componente sem restrição de uso? Grato --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br , [EMAIL PROTECTED] escreveu Aqui com certeza... www.crlab.com Luiz Escobar - Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/ASSEMBLY/MySQL/xBase SERVIDORES - CNA IntraNetWare4.11, LINUX-(RedHat9/Suse10.2), Windows 2K/XP HARBOUR -- Borland C++ 5.5.1 (32 bit) Harbour Devel build 1.1-1 Intl. Harbour MiniGUI 1.4 Extended Edition (Build 48) - 2008.02.01 -- - From: Elidio Brito Santana Sent: Thursday, February 21, 2008 9:04 AM To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Subject: [delphi-br] ODAC - Delphi 6 Bom dia, Alguém sabe onde consigo fazer download dos componentes Oracle Data Access Components (ODAC) para Delphi 6? Grato Elidio Santana [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Re: ODAC - Delphi 6
Sem restrição ? tem SIM www.crlab.com e procure por ORDERING, lá você vai conseguir baixar a versão sem restrição! De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Elidio Brito Santana Enviada em: quinta-feira, 21 de fevereiro de 2008 17:00 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Re: ODAC - Delphi 6 Neste link eu consigo baixar apenas uma versão demo... Alguém sabe onde encontro esse pacote de componente sem restrição de uso? Grato --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br , [EMAIL PROTECTED] escreveu Aqui com certeza... www.crlab.com Luiz Escobar - Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/ASSEMBLY/MySQL/xBase SERVIDORES - CNA IntraNetWare4.11, LINUX-(RedHat9/Suse10.2), Windows 2K/XP HARBOUR -- Borland C++ 5.5.1 (32 bit) Harbour Devel build 1.1-1 Intl. Harbour MiniGUI 1.4 Extended Edition (Build 48) - 2008.02.01 -- - From: Elidio Brito Santana Sent: Thursday, February 21, 2008 9:04 AM To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Subject: [delphi-br] ODAC - Delphi 6 Bom dia, Alguém sabe onde consigo fazer download dos componentes Oracle Data Access Components (ODAC) para Delphi 6? Grato Elidio Santana [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: ODAC - Delphi 6
Rapaz... pelo amor de Deus.. baixa o trial e testa.. se vc gostar compra... se não tiver dinheiro pra comprar muda de profissão ou usa outro componente.. oq vc ta fazendo é ridículo. totalmente errado. Em 21/02/08, Elidio Brito Santana [EMAIL PROTECTED] escreveu: Neste link eu consigo baixar apenas uma versão demo... Alguém sabe onde encontro esse pacote de componente sem restrição de uso? Grato --- Em delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br, [EMAIL PROTECTED] escreveu Aqui com certeza... www.crlab.com Luiz Escobar - Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/ASSEMBLY/MySQL/xBase SERVIDORES - CNA IntraNetWare4.11, LINUX-(RedHat9/Suse10.2), Windows 2K/XP HARBOUR -- Borland C++ 5.5.1 (32 bit) Harbour Devel build 1.1-1 Intl. Harbour MiniGUI 1.4 Extended Edition (Build 48) - 2008.02.01 -- - From: Elidio Brito Santana Sent: Thursday, February 21, 2008 9:04 AM To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Subject: [delphi-br] ODAC - Delphi 6 Bom dia, Alguém sabe onde consigo fazer download dos componentes Oracle Data Access Components (ODAC) para Delphi 6? Grato Elidio Santana [As partes desta mensagem que não continham texto foram removidas] -- ... 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] Programa precisa fechar ele mesmo
Usa o Free, depois o Terminate. - Mensagem Original - De: Diogo de Oliveira Cunha [EMAIL PROTECTED] Enviada: quinta-feira, 21 de fevereiro de 2008 12:15 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Programa precisa fechar ele mesmo Ja tentei sim, mas infelizmente acontece a mesma coisa. Abraço 2008/2/21 Consultores Software [EMAIL PROTECTED]: Já tentou usar Application.Terminate ? Em 21/02/08, Diogo de Oliveira Cunha [EMAIL PROTECTED]diogo.cunhajf%40gmail.com escreveu: Bom dia a todos. Estou desenvolvendo um programa que é chamado por uma outra aplicação. Esta aplicação chamará o meu software, que precisa ler algumas informações em um arquivo texto, e fica então esperando até meu software fechar. Coloquei no meu software, após a execução da tarefa de leitura do arquivo, o seguinte comando Self.Close;, porém ele permence aberto na memória. Alguém sabe me dizer como posso fazer para que um programa feche a si mesmo? Desde já agradeço a todos. -- Não te esqueças de que o arado, dilacerando o solo, acaba igualmente desmantelado e ferido, entretanto, desse choque de forças surge o pão que te supre a mesa. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Não te esqueças de que o arado, dilacerando o solo, acaba igualmente desmantelado e ferido, entretanto, desse choque de forças surge o pão que te supre a mesa. [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Programa precisa fechar ele mesmo
Tem coisa errada aí! Se com o método Close() a aplicação não fecha (assumindo que a mesma tenha apenas um único formulário), tem alguma coisa estranha nisso daí! Diogo, quais eventos desse formulário vc definiu e o que cada um deles faz? Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Thu, 21 Feb 2008 18:03:38 -0300 Subject: RE: [delphi-br] Programa precisa fechar ele mesmo Usa o Free, depois o Terminate. - Mensagem Original - De: Diogo de Oliveira Cunha [EMAIL PROTECTED] Enviada: quinta-feira, 21 de fevereiro de 2008 12:15 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Programa precisa fechar ele mesmo Ja tentei sim, mas infelizmente acontece a mesma coisa. Abraço 2008/2/21 Consultores Software [EMAIL PROTECTED]: Já tentou usar Application.Terminate ? Em 21/02/08, Diogo de Oliveira Cunha [EMAIL PROTECTED] escreveu: Bom dia a todos. Estou desenvolvendo um programa que é chamado por uma outra aplicação. Esta aplicação chamará o meu software, que precisa ler algumas informações em um arquivo texto, e fica então esperando até meu software fechar. Coloquei no meu software, após a execução da tarefa de leitura do arquivo, o seguinte comando Self.Close;, porém ele permence aberto na memória. Alguém sabe me dizer como posso fazer para que um programa feche a si mesmo? Desde já agradeço a todos. -- Não te esqueças de que o arado, dilacerando o solo, acaba igualmente desmantelado e ferido, entretanto, desse choque de forças surge o pão que te supre a mesa. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Não te esqueças de que o arado, dilacerando o solo, acaba igualmente desmantelado e ferido, entretanto, desse choque de forças surge o pão que te supre a mesa. [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
Re: [delphi-br] Delphi parou de dar erro
tenta por um TApplicationEvents e da um raise na classe de exception pra ver se aparece .. é uma gambiarra completa, eu sei .. mas vai que te sana este problema até vc consguir uma solução melhor. Em 20/02/08, Alexandre Nicolas [EMAIL PROTECTED] escreveu: Bom dia, o pior é que não tem nada diferente no sistema. inclusive se eu compilar em outro computador, funciona normalmente as mensagens de erro. por isso só posso concluir que tem a ver com alguma configuração, mas já comparei e até mesmo reinstalei o delphi e nada. no google então, nada de algo parecido... essa é cabeluda hein pessoal... Alexandre. - Original Message - From: Douglas Uesato To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Tuesday, February 19, 2008 3:19 PM Subject: RES: [delphi-br] Delphi parou de dar erro Alexandre, Será que você não colocou um ApplicationEvents na sua aplicação e no evento OnException esqueceu de dar um ShowMessage na string de erro? Atenciosamente, Douglas Uesato 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 Alexandre Nicolas Enviada em: terça-feira, 19 de fevereiro de 2008 14:15 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: [delphi-br] Delphi parou de dar erro boa tarde pessoal, vejam que interessante: qualquer sistema que eu compilo no meu delphi, caso aconteça algum erro durante a execução, o erro não é exibido, o sistema simplesmente ignora. a única maneira de descobrir qual o erro é rodar o sistema com o delphi aberto, ai sim é possivel descobrir qual o erro. já olhei todas as configurações de ambiente, editor, debugger, etc.. já comparei com outros computadores aqui da empresa, já reinstalei o delphi e nada. isso tá me causando problemas, pois às vezes dá algum pau no cliente e não tem como detectar qual erro está dando lá. se alguem tiver alguma dica ou já passou por situação semelhante, agradeço a ajuda. []s Alexandre [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Abs Daniel A. Bastos [As partes desta mensagem que não continham texto foram removidas]
