I'm still having this problem. Any idea how to identify the actual issue?
I have this very simple apache module, Delphi XE6, DOA 4.1.3.5, OHS 12.2.1.3:
Create a webbroker apache module:
library mod_webbroker;
uses
Winapi.ActiveX,
System.Win.ComObj,
Web.WebBroker,
Web.ApacheApp,
Web.HTTPD24Impl,
WebModuleUnit2 in 'WebModuleUnit2.pas' {WebModule3: TWebModule};
{$E .so}
{$R *.res}
// httpd.conf entries:
(*
LoadModule webbroker_module modules/mod_webbroker.dll
<Location /xyz>
SetHandler mod_webbroker-handler
</Location>
*)
module.
var
GModuleData: TApacheModuleData;
exports
GModuleData name 'webbroker_module';
begin
CoInitFlags := COINIT_MULTITHREADED;
Web.ApacheApp.InitApplication(@GModuleData);
Application.Initialize;
Application.WebModuleClass := WebModuleClass;
Application.Run;
end.
The WebModuleUnit2 only contains TOracleSession and this code:
procedure TWebModule3.WebModule3DefaultHandlerAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var sResponse, sUserName, sPassword, sDatabase: string;
begin
sResponse := '<html>' +
'<head><title>TEST D.O.A. Connectivity - TOracleSession</title></head>' +
'<body>';
sUserName := 'scott';
sPassword := 'tiger';
sDatabase := 'mydb';
with OracleSession1 do begin
Connected := False;
LogonUsername := sUserName;
LogonPassword := sPassword;
LogonDatabase := sDatabase;
ConnectAs := caNormal;
try
Connected := True;
sResponse := sResponse + Format('<font color="GREEN">%s@%s CONNECTED</font><br>', [sUserName, sDatabase]);
except
on e:Exception do
sResponse := sResponse + Format('<font color="RED">Connect Error [%s@%s]: %s</font><br>', [sUserName, sDatabase, e.Message]);
end;
end;
sResponse := sResponse + '</body></html>';
Response.Content := sResponse;
end;
and the only thing I'm getting is:
Connect Error [scott@mydb]: Access violation at address 00007FFB78895014 in module 'oraclient12.dll'. Write of address 0000000000000018
TNSPing and sqlplus works, and a stand alone application does as well.
Any ideas?
