Nova cara!

Pois é, o corre-corre é tanto que acabei esquecendo de mais um aninho de vida desse blog. Dois meses se passaram e eu só me dei conta hoje... hehehe... o negócio tah pau!

Como de costume, alterei o visual, dessa vez aproveitanto os novos layouts disponibilizados pelo Blogger, que por sinal, achei bem mais profissionais e atuais.

É isso, nunca achei que escreveria tanto, e agora, passados 3 anos, vejo que estamos só começando.

Abraço!

Tratando Erros/Exceções de forma global no Delphi 7 com o "Application.OnException"

Sei que o assunto pra muitos vai parecer velharia, e até é mesmo, mas, como estou firulando esses dias com o Delphi, resolvi compartilhar esse detalhezinho que precisei para tratar exceções de forma global.


Sei que existem diversas dicas na net de como fazer isso, mas, nesse caso especial, vi que muitas pessoas estavam se enrolando ao tentar tratar Exceções do BDE como uma Exceção comum, então fica a dica:

1) Crie uma procedure no seu formulário principal

>> procedure ManipulaExcecoes(Sender: TObject; E: Exception);


2) Implemente a procedure conforme abaixo

>> procedure TFormPrincipal.ManipulaExcecoes(Sender: TObject; E: Exception);
Begin
TRATA_ERRO(E as EDBEngineError);
end;


3) No evento OnCreate do form principal escreva o seguinte código

>>procedure TFormPrincial.FormCreate(Sender: TObject);
begin
Application.OnException := ManipulaExcecoes;
end;


4) Por último implemente a função que trata os erros

>>Procedure TRATA_ERRO(vErro : EDBEngineError);
Var
x : Integer;
Begin
For x := 0 To vErro.ErrorCount -1 Do
Begin
If vErro.Errors[x].NativeError=0 Then
Case vErro.Errors[x].ErrorCode Of
9475:ShowMessage('Espaço Insuficiente em Disco.');
9479:ShowMessage('Tabela Está Cheia');
9429:ShowMessage('Espaço Insuficiente em Disco.');
9432:ShowMessage('Campo Obrigatório Sem Valor.');
9744:ShowMessage('Este registro não pode ser removido, outros registros dependem dele.');
9733:ShowMessage('Campo preenchido com valor incorreto! Verfique os dados informados!'+#13+vErro.Errors[x].Message);
9734:ShowMessage('Este registro não pode ser removido, outros registros dependem dele.'+#13+#13+'Para excluí-lo você deve primeiro excluir os seus dependentes...');
10241:ShowMessage('Registro em Uso Por Outro Usuário.');
10019:ShowMessage('Valor informado fora da limite permitido!')
Else
ShowMessage('Comunique o Erro Abaixo ao seu programador ou responsável pelo sistema.'+#13+IntToStr(vErro.Errors[x].ErrorCode)+'-'+vErro.Errors[x].Message);

End;
End;
End;


Pronto, agora é só usar!

[]'s

Positivo Y870 - Wireless caindo - Resolvido!

Essa é uma dica que me foi passada por um colega aqui do trabalho.

Ele estava tendo dificuldades com a wireless do notebook Positivo Y870 que sempre parava de funcionar após a utilização no Windows.

Para solucionar o problema ele fez o seguinte:

1- Removeu a tampa de proteção traseira do notebook.
2- Localizou e removeu uma etiqueta (aquelas de proteção dos cabos, etc).
3- Revelou uma pequena chave com as palvras "Intel" e "Others".
4- Alterou a chave para o lado "Intel".
5- Recolocou a tampa.

Pronto! Com esses passos a wireless tem o problema resolvido.

[]'s

D-Link DI-524 H1 - Caindo conexão - Resolvido!

Nas últimas semanas tive bastante trabalho com esse tal DI-524 da D-Link. O mesmo simplesmente travava do nada quando eu estava utilizando a conexão wireless.

A primeira coisa que fiz foi atualizar o firmware com a versão mais atual. Para isso basta ir no site do fabricante, baixar e atualizar. O procedimento é bastante simples. Aqui tem um breve tutorial de como proceder.

Pois bem, mesmo após a atualização continuei tendo problemas e resolvi dar uma olhada nas configurações do mesmo. De cara mudei o canal de frenquência utilizado pois no meu caso muitas das vezes eu não estava conseguindo nem dar um ping no roteador via wireless. Acredito que isso se deu por conta de interferências de uma antena de celular aqui próximo da casa, claro que é um palpite, mas mudando o canal consegui pingar sem problemas.

Mesmo assim o roteador continuou a parar do nada, e investigando mais um pouco as opções, vi que era possível escolher a "velocidade" de trabalho do mesmo, podendo operar em B, G ou N, e nesse caso, como não possuo nenhum equipamento N, resolvi deixar B e G. Para minha surpresa isso parece ter resolvido, pois já uso a uma semana e não estou tendo problemas.

Bom, a conclusão que tiro disso tudo é... Não compre D-Link... possuí um LynkSys e ele não deu "guêba" em nenhum momento.

É isso!

[]'s

--------------------

UPDATE: Vi agora que saiu a versão 4.05 do firmware, acho que vale fazer o upgrade. Para tal, acesse essa página e clique na aba suporte para fazer o download.

Lotus 123, quem lembra?? :)

Esses dias tive a oportunidade de dar de cara com os discos originais do Lotus 123.

Não resisti e tirei umas fotos pra postar aqui, afinal não é todo dia que podemos dar de cara com essas relíqueas.



É isso!

[]'s

O Código da Inteligência - Dica de Leitura

Dias atrás acabei de ler o livro "O código da inteligência" de Augusto Cury.

Pra quem comecou a sair dos livros técnicos, como é o meu caso, achei ser uma ótima pedida.

Fica a dica então!

[]'s

Onde encontrar o BrOffice 2.1?

Após algumas rodadas, encontrei a versão que eu estava precisando para fazer uns testes... :)


Como acredito que muitas pessoas também estejam se batendo para encontrar, fica a dica...

>> http://linorg.usp.br/www.broffice.org/stable/2.1.0/

[]'s