felipearaujolopes escreveu:
>
>
> Galera boa tarde
>
> Coloquei no meu projeto a seguinte estrutura para que possa guardar o
> erro ocorrido em um banco de dados.
> with qrygravaerro do
> begin
> ParamByName('iderrosistema').AsInteger := codigo;
> ParamByName('idlocalerrosistema').AsInteger := StrToInt(DmPrincipal.local);
> ParamByName('datahora').AsDateTime := Now;
> ParamByName('idusuario').AsInteger :=
> DmPrincipal.qryusuarioidusuario.AsInteger;
> ParamByName('idlocalusuario').AsInteger :=
> DmPrincipal.qryusuarioidlocal.AsInteger;
> ParamByName('formulario').AsString := Screen.ActiveForm.Name;
> ParamByName('controle').AsString := Screen.ActiveControl.Name;
> ParamByName('erro').AsString := e.Message;
> ExecSQL;
> end;
> Nisso consigo o nome do formulario e componente no qual ocorreu o erro.
> Alguem sabe como conseguir em qual linha do codigo o erro aconteceu?
A linha exatamente sem variações, eu acredito que vc não conseguirá, eu
já pesquisei sobre o assunto...Mas tenha em mente que é impossível vc
obter a linha em Pascal, Delphi é compilado e vc conseguirá no máximo
Assembly.
Talvez isto de ajude: http://www.eurekalog.com/
--
Vinicius A. Santos
www.msisolucoes.com.br
