| ( |
|
|
|||
| returns 3 if web-user is logged in to the web-server, 0 - if not | |||
external procedure WebNotLoggedinMess();
global
function Boolean LoggedInTest()
begin
Boolean res;
if (WebLoginStatus==3) then begin
res = true;
end else begin
res = false;
WebNotLoggedinMess;
end;
LoggedInTest = res;
return;
end;
 |
|
| Related topics: | |