17 novembro 2011

Validar CPF/CNPJ e CEI no Delphi

Esta função valida o CNPJ/CPF ou CEI passado como parâmetro, retornando ou não uma mensagem de erro ao usuário. Ela usa a função somentenumerosnastring, postado anteriormente.

Aconselho formatar o Cnpj/CPF direto no banco numa trigger beforeinsert/update, usando a Stored procedure postada anteriormente



Retornar somente números na string

Essa função retorna somente números passados na string. Útil para validação de documentos, testes,etc.


function ApenasNumerosNaString(pStr:String): String;
//Converte uma cadeia de string onde se tenha numeros e caracteres em uma cadeia de strings onde so tenha numeros
Var
  I: Integer;
begin
  Result := '';
  For I := 1 To Length(pStr) do
   If pStr[I] In ['1','2','3','4','5','6','7','8','9','0'] Then
     Result := Result + pStr[I];
end;

10 novembro 2011

Resolvendo Runtime Error 216 ao instalar RAD/Delphi XE e XE2

[Portugese and English]

Provavelmente alguem já passou por este problema ou vai passar: Ter as versões RAD/Delphi XE2 e XE instaladas na mesma máquina e após a instalação a IDE do XE não inicializar com o erro abaixo:

Nome do evento do problema:   APPCRASH
Nome da aplicação:   bds.exe
Versão da aplicação:   15.0.3953.35171
Nome do módulo com erro:   coreide150.bpl

e em seguida: Runtime error 216 at 20A784BF

Resolução:

O problema está nos Arquivos Comuns (Common Files) das duas IDE´s. Você deve especificar caminhos diferentes na instalação das duas para que não haja conflito.

  • Se você já instalou o XE2 e tem o XE instalado, terá que remover os dois e reiniciar a máquina
  • Veja se não existe nenhum lixo que a instalação não apagou na pasta Common Files (C:\Program Files (x86)\Embarcadero\RAD Studio\8.0 e 9.0). Se houver, delete.
  • Instale o XE e na tela que pedir os caminhos de CommonFiles informe outro endereço sempre dentro da pasta common files sugerida pelo instalador. (ex: C:\Program Files\Common Files\XE)
  • Continue a instalação, execute o XE, registre e este estará ok.
  • Repita a instalação do XE2 e faça o mesmo, colocando na pasta Common Files\XE2 , por exemplo.

Desse modo você terá as 2 IDE´s rodando sem problema

Até a próxima.


In English:

  1. Uninstall RAD XE1 and XE2
  2. Check if have garbage Common Files of this older installations and delete it. (C:\Program Files (x86)\Embarcadero\RAD Studio\8.0 and 9.0)
  3. Install XE1 and choose different Common Files directory on installation: Ex:  C:\Program Files\Common Files\XE
  4. Register XE1. done
  5. Install XE2 and put XE2 Common Files in different path Ex: C:\Program Files\Common Files\XE2
  6. Register XE2
  7. Done....

03 novembro 2011

Gevey SIM card parou ou não funcionar? Passo-a-passo para desbloquear o iPhone


    Este guia vai mostrar como usar o Gevey Turbo SIM para desbloquear o iPhone 4 com a baseband 2.10.04, 3.10.01 e 4.10.01. Funciona por enquanto até o iOS 4.3.5 (testado por mim).
    Este tutorial se aplica somente a pessoas que tem seu iPhone importado bloqueado por operadora e atualizou o firmware e a baseband (por descuido) .
Se não souber onde comprar o Gevey, entre em contato comigo que tenho para vender.