El problema que tengo es el siguiente:
Tengo una clase llamada TEscuela con la siguiente estructura:
unit Escuela;
interface
uses Data.DB, Data.Win.ADODB, Sysutils, Vcl.dialogs, DataSnap.DBClient;
type
TEscuela = class
private
Fnombre: String;
Festado: String;
procedure Setnombre(val: String);
procedure Setestado(val: String);
public
constructor Create;
destructor Destroy;
property nombre: String read Fnombre write Setnombre;
property estado: String read Festado write Setestado;
function altaEscuelaProcedencia:String; virtual;abstract;
function bajaEscuelaProcedencia:String; virtual;abstract;
function cambiaEscuelaProcedencia:String; virtual;abstract;
function regresaEscuelasProcedenciaEstado:TDataset; virtual;abstract;
strict private
sp: TADOStoredProc;
end;
implementation
uses BD;
constructor TEscuela.Create;
var
BD: TBd;
begin
inherited Create;
BD := TBd.GetInstance;
try
try
sp := TADOStoredProc.Create(nil);
// Se regresa la conexión a la base de datos
sp.Connection := BD.regresaConexion;
except
on e: Exception do
ShowMessage(e.message);
end;
finally
//BD.Destroy;
end;
end;
destructor TEscuela.Destroy;
begin
inherited Destroy;
end;
procedure TEscuela.Setnombre(val: String);
begin
Fnombre:=val;
end;
procedure TEscuela.Setestado(val: String);
begin
Festado:=val;
end;
end.
Y tengo una clase hija llamada TEscuelaProcedencia con la siguiente estructura:
unit EscuelaProcedencia;
interface
uses Data.DB, Data.Win.ADODB, Sysutils, Vcl.dialogs, DataSnap.DBClient, Escuela;
type
TEscuelaProcedencia = class(TEscuela)
private
public
constructor Create;
destructor Destroy;
function altaEscuelaProcedencia:String; override;
function bajaEscuelaProcedencia:String; override;
function cambiaEscuelaProcedencia:String; override;
function regresaEscuelasProcedenciaEstado:TDataset; override;
strict private
sp: TADOStoredProc;
end;
implementation
uses BD;
function TEscuelaProcedencia.altaEscuelaProcedencia: String;
begin
inherited Create;
if nombre = '' then
begin
result := 'Debe escribir el nombre de la escuela';
end
else
begin
try
sp.ProcedureName := 'sc.spAltaEscuelaProcedencia';
sp.Parameters.Refresh;
sp.Parameters.Items[1].Value := nombre;
sp.Parameters.Items[2].Value := estado;
sp.ExecProc;
result := 'OK';
except
on e: Exception do
begin
if pos('IX_nombre_idEntidadFederativa_CE_ESCUELA_PROCEDENCIA', e.message) > 0 then
begin
result := 'Ya existe la escuela en es estado';
end
else
begin
result := e.message;
end;
end;
end;
end;
end;
function TEscuelaProcedencia.bajaEscuelaProcedencia: String;
begin
end;
function TEscuelaProcedencia.cambiaEscuelaProcedencia: String;
begin
end;
constructor TEscuelaProcedencia.Create;
begin
inherited Create;
sp:=sp;
end;
destructor TEscuelaProcedencia.Destroy;
begin
inherited Destroy;
end;
function TEscuelaProcedencia.regresaEscuelasProcedenciaEstado: TDataset;
begin
sp.Close;
sp.ProcedureName := 'sc.[spRegresaEscuelaProcedenciaEstado]';
sp.Parameters.Refresh;
sp.Parameters.Items[1].Value := estado;
sp.Open;
result := sp;
end;
end.
En el constructor de la clase padre, estoy utilizando el patrón SINGLETON para hacer la conexión a la BD:
constructor TEscuela.Create;
var
BD: TBd;
begin
inherited Create;
BD := TBd.GetInstance;
try
try
sp := TADOStoredProc.Create(nil);
// Se regresa la conexión a la base de datos
sp.Connection := BD.regresaConexion;
except
on e: Exception do
ShowMessage(e.message);
end;
finally
//BD.Destroy;
end;
end;
Y esa conexión la utilizo para ejecutar un procedimiento almacenado en mi BD que me regresa un Dataset( function TEscuelaProcedencia.regresaEscuelasProcedenciaEstado: TDataset;), sin embargo, cuando llego a llamar al objeto sp, marca un error de memoria y este es el error: Project program.exe raised exception class $C0000005 with message 'c0000005 ACCESS_VIOLATION"
¿Cómo podría hacer que tenga acceso a la conexión creada desde la clase padre a la hija y poder usarla en esa función y las demás?