madshi wrote:Did you try both the patched version of my hook solution, and the "official" solution provided by IntraWeb, and they both failed?
function UserSession: TIWUserSession;
begin
if WebApplication <> nil then
Result := TIWUserSession(WebApplication.Data)
else
Result := nil;
end;
procedure AddCommandLineHeaderInfo(const exceptIntf: IMEException; var handled: boolean);
begin
exceptIntf.BugReportHeader['Product'] := 'Test';
if UserSession <> nil then
begin
exceptIntf.BugReportHeader['User #'] := UserSession.gv_UID;
exceptIntf.BugReportHeader['Site ID'] := UserSession.gv_SID;
end;
end;
Users browsing this forum: No registered users and 7 guests