Welcome, Guest
You have to register before you can post on our site.

Username
  

Password
  





Search Forums

(Advanced Search)

Forum Statistics
» Members: 98,262
» Latest member: King88to
» Forum threads: 2,426
» Forum posts: 11,371

Full Statistics

Online Users
There are currently 1737 online users.
» 3 Member(s) | 1730 Guest(s)
Applebot, Bing, Facebook, Google, King88to, linkthapcamac, shbettown

Latest Threads
WebApplication.IP change ...
Forum: IntraWeb General Discussion
Last Post: MJS@mjs.us
09-11-2026, 09:49 PM
» Replies: 1
» Views: 206
Hook/callback to handle t...
Forum: IntraWeb General Discussion
Last Post: Lenfors
09-08-2026, 09:03 AM
» Replies: 0
» Views: 165
Reproducible IIS crash in...
Forum: IntraWeb General Discussion
Last Post: alex.trejo@tttnet.com.mx
09-08-2026, 01:48 AM
» Replies: 0
» Views: 177
The packages IW16.xx inc...
Forum: IntraWeb General Discussion
Last Post: hsbelli
09-03-2026, 11:46 AM
» Replies: 2
» Views: 485
Redirection issues with F...
Forum: IntraWeb General Discussion
Last Post: magosk
08-31-2026, 10:03 AM
» Replies: 0
» Views: 248
Source Code
Forum: IntraWeb General Discussion
Last Post: magosk
08-31-2026, 08:11 AM
» Replies: 3
» Views: 651
TContenthandler requires ...
Forum: IntraWeb General Discussion
Last Post: valmeras
08-30-2026, 02:35 AM
» Replies: 0
» Views: 230
TIWjQDBGrid erratic behav...
Forum: IntraWeb General Discussion
Last Post: alex.trejo@tttnet.com.mx
08-20-2026, 05:12 PM
» Replies: 8
» Views: 2,254
Change Language DataTable
Forum: IntraWeb General Discussion
Last Post: Rigoberto Mercedes
08-19-2026, 03:21 PM
» Replies: 1
» Views: 367
How to terminate HTTP Thr...
Forum: Indy
Last Post: rlebeau
08-14-2026, 08:01 AM
» Replies: 5
» Views: 989

 
  Send SMS with Javascript
Posted by: valmeras - 06-13-2019, 01:31 AM - Forum: IntraWeb General Discussion - Replies (1)

I am using Intraweb 14 with C++ Builder 10.2
I am trying to send SMS from the client side using JavaScript or JQuery.
And I don't want to have to use a paid API.
Does somebody has a hint ?

Print this item

  Session Timeout Custom HTML page
Posted by: msgopala - 06-12-2019, 08:08 PM - Forum: IntraWeb General Discussion - Replies (1)

Embarcadero® Delphi 10 Seattle Version 23.0.20618.2753 
Intraweb 15.0.14
TMS pack Pro
FastReport 5

Followed the Demo CustomizingExceptions\UsingTemplates and created a custom Templates with the IWSessionimeout.html page. My project still timeouts with the generic sessiontimeout page instead of this new page.


Please let me know what I may be missing or doing wrong.



Thanks

Print this item

  Active sessions problem
Posted by: ioan - 06-12-2019, 07:06 PM - Forum: IntraWeb General Discussion - Replies (23)

I have a problem where from time to time there are thousands of sessions open on the server and every time between 5% and 10% of those are legitimate, the rest... I have no idea how they were created and why. 

In my code the sessions that are for the level OPERATOR or ROOT never expire as long as the browser is still connected (the levels will appear in the pastebin and my code bellow). The AGENT level sessions are alive for 15 minutes, the USER level sessions are alive for 10 minutes and if there is no level I time out the session after 1 minute.

This works fine for many hours, but sometimes when I check the active sessions are thousands of them and they never expire:

https://pastebin.com/raw/x0YASKBS

To control the time the sessions stay active I have a timer set for 20 seconds on each form:


Code:
procedure TformBalance.HeartbeatTimerAsyncTimer(Sender: TObject;  EventParams: TStringList);
begin
  StopHeartbeatTimer(HeartbeatTimer);
end;


procedure StopHeartbeatTimer(AHeartbeatTimer: TIWTimer; ACount: integer);
var
  iHeartbeats: integer;
begin
  if ACount > 0 then
    iHeartbeats := ACount
  else
    // a hearthbeat is every 20 seconds, so the timeout its (iHeartbeats * 20) seconds.
    if UserSession.LevelString = 'USER' then
      iHeartbeats := 30
    else if (UserSession.LevelString = 'AGENT') or
      (UserSession.LevelString = 'COMPANY') then
      iHeartbeats := 45
    else if (UserSession.LevelString = '') then
      iHeartbeats := 1
    else
      Exit; // do not timeout

  if AHeartbeatTimer.Tag > iHeartbeats then
    AHeartbeatTimer.Enabled := false;
  AHeartbeatTimer.Tag := AHeartbeatTimer.Tag + 1;
end;

The ServerController's Session Timeout field value is 1.

Anyone have any idea where are those sessions coming from and why they are not timing out?

Edit: It might be a good idea for me to use the "rubber duck debugging method". Almost every time I post a question here, while I'm explaining what's happening I find the problem. Now I'm not sure if this is the fix, but a better code for the StopHeartbeatTimer procedure would handle all legitimate levels and the last "else" would be for everything else, aka timeout right away. 



Code:
    // a hearthbeat is every 20 seconds, so the timeout its (iHeartbeats * 20) seconds.
    if UserSession.LevelString = 'USER' then
      iHeartbeats := 30
    else if (UserSession.LevelString = 'AGENT') or
      (UserSession.LevelString = 'COMPANY') then
      iHeartbeats := 45
    else if (UserSession.LevelString = 'ROOT') or
      (UserSession.LevelString = 'OPERATOR') then
      Exit // do not timeout
    else
      iHeartbeats := 1;

Print this item

  IW 15.0.22 is out
Posted by: Alexandre Machado - 06-10-2019, 10:06 AM - Forum: IntraWeb General Discussion - Replies (6)

Hi guys,

there is a new update for IW 15.0 version here: 

https://www.atozed.com/2019/06/intraweb-15-0-22/

Enjoy  Smile

Print this item

  Debug Failure Between Cosmos and VMWare
Posted by: AwesomeCronk - 06-09-2019, 10:02 PM - Forum: COSMOS - Replies (13)

Yesterday I started having issues with testing my Cosmos code. Whenever I click the "Cosmos" button at the top of Visual Studio, It goes through the normal build and debug procedure, but when VMWare starts, I don't see my OS(named 'Experiment One'). I see:

Code:
ISOLINUX 6.03 2014-10-06 ETCD Copyright (C) 1994-2014 H. Peter Anvin et al
Loading Experiment... failed!
No files found!
boot: _
The first line is normal, but lines two and three seem to tell that the failure was due to an absence of some file. The underscore is a cursor. If I type "Experiment One" after the boot: statement, it gives me the failure message and the boot statement again.

Maybe related: If I open VMWare standalone, I can see a library of virtual machines. I right-clicked the one labeled "Cosmos" and clicked "Delete from disk" before all this chaos happened. Is there a way to fix this?

EDIT: I tried again with another project, received an error: 'Unable to use the previously selected debugger. Please select another one. I am going to try and reinstall VMWare.

Print this item

  Request to update the documentation
Posted by: AwesomeCronk - 06-06-2019, 09:09 PM - Forum: COSMOS - Replies (7)

I downloaded Visual Studio 2019 last night(love it!) and got the user kit this morning(6-6-19). I completed a simple OS, tested in VMWare, and tried to make an ISO file to boot it from USB on an old laptop. I found that the documentation for this references many things which(I guess) no longer exist.

Print this item

  Problems with modal dialogs with frames
Posted by: Francesco - 06-05-2019, 07:51 AM - Forum: IntraWeb General Discussion - Replies (4)

Hi, I'm attempting to show alternatively two modal dialogs using two TIWFrame and TIWModalWindows.

In IWAppFormCreate event I have added this code to create the frames:

 // Create first frame
 FFrameInput:=TIWFrameInput.Create(WebApplication);
 FFrameInput.Name:='FrameInput';
 FFrameInput.Top := 0;
 FFrameInput.Left := 0;
 FFrameInput.IWFrameRegion.Parent:=Self;
 FFrameInput.IWFrameRegion.Visible:=False;
 // Create second frame
 FFrameFilter:=TIWFrameFilter.Create(Self);
 FFrameFilter.Name:='FrameFilter';
 FFrameFilter.Top := 0;
 FFrameFilter.Left := 0;;
 FFrameFilter.IWFrameRegion.Parent:=Self;
 FFrameFilter.IWFrameRegion.Visible:=False;

Then I attempt to display the FFrameFilter using TIWModalWindows with this code when I press a button in main form:

      RenderInvisibleControls:=True;
      with IWModalWindow1 do
       begin
        Reset;
        Buttons.CommaText := '&Ok,&Cancel';
        Title := 'Filter';
        ContentElement :=FFrameFilter.IWFrameRegion;
        OnAsyncClick := FrameFiltroDoOnAsyncClick;
        Show;
       end;

But instead the FFrameFilter the system displays the other one, the FFrameInput !
I assign to ContentElement the FFFrameFilter.IWFrameRegion and it display the FFrameInput.IWFrameRegion !!!

If in IWAppFormCreate I remove the code for creating the FFrameInput leaving only this code:

 // Create only the second frame
 FFrameFilter:=TIWFrameFilter.Create(Self);
 FFrameFilter.Name:='FrameFilter';
 FFrameFilter.Top := 0;
 FFrameFilter.Left := 0;;
 FFrameFilter.IWFrameRegion.Parent:=Self;
 FFrameFilter.IWFrameRegion.Visible:=False;

the system display correctly the dialog...

How it's possible ? Any idea to solve the issue ?

Francesco

Print this item

  How fix Money values with iwdbedit before save
Posted by: cprmlao@hotmail.com - 06-01-2019, 05:53 PM - Forum: IntraWeb General Discussion - Replies (3)

Hi,

I need to fix money values of a IWDBEDIT before save it to a  firebird DB table.
I use a MaskMoney JS plugin to format the money entry data.
Alter I enter data, my front end shows for sample: "$ 10,00". Next, I call an AsyncClick  of a Button as:


Code:
procedure TMyform.BtnSaveAsyncClick(Sender: TObject;  EventParams: TStringList);
begin
    // Here I´d like to fix the currency format before save to DB
    // But, is too late.  An error occur saying my entry field "$ 10,00" is not a format valid
end;

I could fix it in the front end, before call the async click. But, the field  will shows in wrong format in browser.

How could I fix it on back end before save the record?

Regards,
Luiz

Print this item

  Critical section problem: new problem on old code
Posted by: drueter - 06-01-2019, 01:50 AM - Forum: IntraWeb General Discussion - Replies (3)

Hi, all.  I have an IW10 stand-alone app packaged as a Windows service compiled with Delphi XE that continues to run great.  Except, that on one customer server (Win Server 2012 Datacenter) the service has begun crashing periodically.  The same .EXE doesn't seem to have this problem elsewhere.

In any case, the error logged in the Windows Event Log is Exception 0xc0000264 ... which pertains to critical section not owned.

I understand what that means, and am aware of fixes for some historical bugs.  (For example my project does use the IWRtlFix unit.)

I also understand that threading race conditions can be tricky, and can be masked until one day they appear.

So my question is:  Are there known Delphi or IW bugs discovered in the past few years that would impact IW10 on XE that are related to critical sections?

I've reviewed the code, and it seems to be OK.  But something (like a fairly recent Windows update) has caused the previously-stable service to crash.  This article seems relevant though:  https://docs.microsoft.com/en-us/windows...on-objects ...but that specific change was some time ago (before I began having problems).

Any ideas?

Print this item

  iwfileuploader max file size
Posted by: PDSBILL - 05-31-2019, 08:59 PM - Forum: IntraWeb General Discussion - Replies (1)

*** Problem Solved ***
Had to change <requestLimits maxAllowedContentLength /> setting in IIS



I created a simple ISAPI (.dll) and standalone (.exe) app with just a IWFileUploader on a blank form. I am not saving the file or have any events defined

I am getting error "UNKNOWN" when attempting to upload a file of size 39 meg when my intraweb app is run as ISAPI dll.

MaxFileSize is set to 90971520  (90 meg)

I can upload 19 meg file in both.

I can upload 39 meg file only in .exe app  ISAPI app shows uploading to 99% but then goes RED with hint saying "Unknown"

I have tried building in Delphi RIO with Intraweb 15.? and Delphi Tokyo 14.?

Is there a hard internal limit to the max size of a file that can be uploaded?

Bill B

Print this item