Subject | TIB_Session in ISAPI DLL |
---|---|
Author | |
Post date | 2014-06-17T13:04:59Z |
I added one TIB_Session (Name=AS_DLL_SESSION; UseCursor=False) and one TIB_Transaction (Name=AS_DLL_TRANSACTION; IB_Session=AS_DLL_SESSION) to the TWebModule2=class(TWebModule) form.
I create all database, table and query objects in code, using the three object types below. I typically use nil as the constructor parameter.
The first time the DLL app tries to access a database it blows up on the Create statement.
What am I doing wrong?
TAS_IBODatabase = class(TIBODatabase)
private
public
constructor Create(anOwner: TComponent); override;
end;
TAS_IBOTable = class(TIBOTable)
private
public
constructor Create(anOwner: TComponent); override;
end;
TAS_IBOQuery = class(TIBOQuery)
private
public
constructor Create(anOwner: TComponent); override;
end;
constructor TAS_IBODatabase.Create(anOwner: TComponent);
begin
inherited Create(anOwner);
IB_Session := WebModule2.AS_DLL_Session;
end;
constructor TAS_IBOTable.Create(anOwner: TComponent);
begin
inherited Create(anOwner);
IB_Session := WebModule2.AS_DLL_Session;
IB_Transaction := WebModule2.AS_DLL_TRANSACTION;
end;
{$ENDIF}
constructor TAS_IBOQuery.Create(anOwner: TComponent);
begin
inherited Create(anOwner);
IB_Session := WebModule2.AS_DLL_Session;
IB_Transaction := WebModule2.AS_DLL_TRANSACTION;
end;
Bjorn
I create all database, table and query objects in code, using the three object types below. I typically use nil as the constructor parameter.
The first time the DLL app tries to access a database it blows up on the Create statement.
What am I doing wrong?
TAS_IBODatabase = class(TIBODatabase)
private
public
constructor Create(anOwner: TComponent); override;
end;
TAS_IBOTable = class(TIBOTable)
private
public
constructor Create(anOwner: TComponent); override;
end;
TAS_IBOQuery = class(TIBOQuery)
private
public
constructor Create(anOwner: TComponent); override;
end;
constructor TAS_IBODatabase.Create(anOwner: TComponent);
begin
inherited Create(anOwner);
IB_Session := WebModule2.AS_DLL_Session;
end;
constructor TAS_IBOTable.Create(anOwner: TComponent);
begin
inherited Create(anOwner);
IB_Session := WebModule2.AS_DLL_Session;
IB_Transaction := WebModule2.AS_DLL_TRANSACTION;
end;
{$ENDIF}
constructor TAS_IBOQuery.Create(anOwner: TComponent);
begin
inherited Create(anOwner);
IB_Session := WebModule2.AS_DLL_Session;
IB_Transaction := WebModule2.AS_DLL_TRANSACTION;
end;
Bjorn