Obtener Nombre de la Unidad en Uso

[rmendoza83]

Buenos Dias compa;eros, un saludo cordial a todos.

Queria saber si alguno dispondra de una funcion que obtenga el nombre de la unidad en uso (UnitName), investigando en internet vi algo relacionado a la unidad RTTI que trabaja en base a esto, pero por falta de tiempo queria ver si ya alguien por aqui tendra alguna desarrollada! Estoy terminando un modulo de tratamiento de errores y quisiera incorporar en en log esta cadena para mejor soporte de usuarios.

Gracias.

[[escafandra]]

¿No te sirve extraerla de GetCurrentDirectory?

Saludos.

[roman]

Empezado por escafandra

¿No te sirve extraerla de GetCurrentDirectory?

Creo que el compañero se refiere a que, en una excepción, por ejemplo, poder mostrar el nombre de la unidad donde se produjo el error.

LineComment Saludos

[ecfisa]

Hola.

Podrías usar RTTI, por ejemplo:

Código Delphi [-]
unit uException;

interface

uses SysUtils;

type
  TAppExceptHandler = class(TObject)
  public
    procedure Handle(Sender: TObject; E: Exception);
  end;

var
  AppExceptHandler: TAppExceptHandler;

implementation

uses TypInfo, Dialogs;

procedure TAppExceptHandler.Handle(Sender: TObject; E: Exception);
var
  Ptd: PTypeData;
begin
  Ptd := GetTypeData(Sender.ClassInfo);
  if Assigned(Ptd) then
    ShowMessage(Format('Se produjo un error en %s%s%s',[Ptd^.UnitName, #10, E.Message]))
  else
    //...
  ;
end;
end.

Código Delphi [-]
program Project1;

uses
  Forms,
  uException in 'uException.pas',
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2},
  Unit3 in 'Unit3.pas' {Form3};

{$R *.res}

begin
  Application.OnException := AppExceptHandler.Handle;
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Forzar errores en distintas unidades :

Código Delphi [-]
unit Unit1;
...
type
  TForm1 = class(TForm)
    Button1: TButton;   
    Button2: TButton;
    Button3: TButton; 
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
...
  
implementation

uses Unit2, Unit3;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Visible := False;
  Edit1.SetFocus;  // Asignar foco a ctrl invisible
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Form2 := TForm2.Create(Self); // TStrings.LoadFromFile
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  Form3 := TForm3.Create(Self); // ADOQuery sin configurar
end;

...

Resultado:


Saludos

[roman]

Estupendo Daniel! Una pregunta, esta información (unit name) ¿viene en cualquier RTTI o sólo en las últimas versiones de Delphi?

LineComment Saludos

[Casimiro Notevi]

¡Qué monstruo! y lo fácil que parece.

[ecfisa]

Hola roman.

UnitName ya está definido en el tipo TTypeData en En Delphi 7, desconozco si lo está en versiones anteriores.

Saludos

[roman]

Gracias! No recordaba haberlo visto, pero qué bueno que lo aclaras.

LineComment Saludos

[[AgustinOrtu]]

Pues en Delphi 2010, la clase TObject ya dispone del siguiente metodo de clase:

Código Delphi [-]
  TObject = class
  public
    class function UnitName: string;

La cual retorna el nombre de la unidad del tipo de clase en cuestion, y siendo que todo deriva de TObject

Asi que esto basicamente funciona:

Código Delphi [-]
ShowMessageFmt('UnitName %s', [TObject.UnitName]);
ShowMessageFmt('UnitName %s', [TForm1.UnitName]);
ShowMessageFmt('UnitName %s', [DescendienteDeTObject.UnitName]);

[rmendoza83]

Hola Saludos a todos! exactamente lo que me muestra ecfisa es lo necesito! Lo revisare a fondo! Gracias compa;ero!!!

[rmendoza83]

Ahora bien, que seria mas recomendable? utilizar una sola unidad para el control de errores? o hacer el control propiamente dentro de cada código en los bloques try...except que manejo? de esta manera esta bastante simplificada y esta totalmente adaptable a mi proyecto, aunque básicamente como lo vengo haciendo lo que necesitaba conocer era la linea de código de GetTypeData que me obtiene el apuntador con toda la información de donde se esta ejecutando el código en cuestión. Yo estoy trabajando con BDS 2006, que opinan?

[elrayo76]

Como recomendación te puedo decir que el try..except lo tienes que hacer. Igualmene puede llamar a tu código cuando se produce eun errror que tienes atrapado y ahí decidir que mostrar de acuerdo al error.

Cuando tenemos centralizada la funcionalidad para atrapar los errores, lo que hacemos muchos es mediante el código de error que le pasamos personalizamos el mensaje que se quiere mostrar. Des esta forma en todos los lugares donde se de el mismo error siempre saldrá el mismo mensaje. Eso si, tienes que saber que tipo de error dio ese código porque puede que dos errores de distintos tipos tengan el mismo código.

Si quieres puedes mandar otro parámetro mas a esa función para escribir algo mas que necesites en algún lugar particular. Esto es una primera ayuda, despues tu puedes ir complicandola lo mas que necesites.

Saludos,
El Rayo